Sponsored Content
Top Forums Shell Programming and Scripting perl check email script not seeing attachment Post 302450665 by Ikon on Friday 3rd of September 2010 11:27:57 AM
Old 09-03-2010
perl check email script not seeing attachment

The following script does pull the sender and Subject of the email but it is not seeing the attachment name. I know there is an attachment.

I line in red SHOULD pull the filename out.

this line is in the message:
Code:
Content-Disposition: attachment;   filename="Picture 243.jpg"

Code:
#!/usr/bin/perl

use Mail::POP3Client;

  $pop = new Mail::POP3Client( USER     => "someusername",
                               PASSWORD => "somepasswot",
                               HOST     => "mail.somedomain.com" ) || die "Error";
    print "Messages:".$pop->Count()."\n";
  for ($i = 1; $i <= $pop->Count(); $i++) {
    foreach ( $pop->HeadAndBody( $i ) ) {
      #/^(From|Subject):\s+/i and print $_, "\n";
    /^From:\s+/i and @from = split(/:/);
    /^Subject:\s+/i and @subject = split(/:/);
    /^Content-Disposition: attachment;\s+/i and @filename = split(/=/);
    }
    print "From: $from[1]\n";    
    print "Subject: $subject[1]\n";
    print "Attachement: $filename[1]\n";
    print ;
    print "\n*************************************************\n";
  }
$pop->close;

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

script that will send and email attachment

I'm looking for a sample of some code that will take the output from a file and generate an email that will include that text as an attachment. the script is in the borne shell. any help? (2 Replies)
Discussion started by: davels
2 Replies

2. Shell Programming and Scripting

Script to check processes and send an email

I searched through the forum and couldn't quite find what I was looking for. I have a script that looks for a process "DW" to be running. If it is not it will email a notice to an account. I would like to add the functionality to have it also email a seperate notice if there is more that one of... (1 Reply)
Discussion started by: heprox
1 Replies

3. AIX

Email with Attachment

Hi, I have .ksh file which internally calls a .sql file. This sql file writes a file with the result. I am using the following command to send email with the result file as attachment uuencode file.txt file.txt | mail -s "Subject" abc@abc.com. When i run the .ksh file i get a message you... (5 Replies)
Discussion started by: piyushprabhakar
5 Replies

4. Shell Programming and Scripting

Email Attachment Script

Hello, I created the following script but i'm trying to figure out why i keep getting an error. #!/usr/bin/perl -w use strict; use warnings; my $baseDir = '/export/home/omcadmin/bin'; my $attachment = "$baseDir/message.txt"; my $from = 'xxx@xxx.com'; my $to = 'xxx@xxx.com'; my... (10 Replies)
Discussion started by: xmaverick
10 Replies

5. Shell Programming and Scripting

Sending email and attachment file using Perl

I am trying to send an email body of information and also attachment using perl script, but I am only able to send the body but not an attachment. is there around it without using "use MIME::Lite;" module. $user = "bataf\@xyz.com"; $subjectt = "mail from perl"; open(MAIL, "| mailx -s... (1 Reply)
Discussion started by: bataf
1 Replies

6. Shell Programming and Scripting

Check email and download attachment

Hi, I had search the web for a script to download email, but failed to found one. I need a bash or perl script that will check for email originating from an address such as john@rambo.com and download the .zip attachment into a specified folder. Anyone could assist or give me some... (1 Reply)
Discussion started by: mynullvoid
1 Replies

7. Solaris

Sent an email attachment, but the attachment is empty

I'm trying to send a .zip file from my unix box to my work email (email client outlook) The file name that I'm trying to sent is sites.zip and this is how I do it: uuencode sites.zip | mailx -s "testing" myname@mydomain.com When I open the .zip, the zip is empty. Looking around the we, I... (17 Replies)
Discussion started by: amb1s1
17 Replies

8. Shell Programming and Scripting

Help....script check status if see something then send email

autorep -m bogus Machine Name Max Load Current Load Factor O/S Status ___________ ________ ___________ ______ ________ ______ bogus --- --- 1.00 Sys Agent Online Status ______ Online Offline Missing Unqualified The "Status" always "Online". I like create a script execute run... (6 Replies)
Discussion started by: dotran
6 Replies

9. UNIX for Dummies Questions & Answers

Send email attachment using Operating System Script(UNIX) in Oracle Alerts

Good Day Kindly assist: I am creating an Alert that will notify supervisors of staff members who are due for probation report. I am using Operating System Script(Unix) as source.I have already developed the script. Now the challenge is if there are 3 employee records then the alert... (2 Replies)
Discussion started by: nosi27
2 Replies

10. Shell Programming and Scripting

How to check email with attachment received or not from UNIX shell script?

Hello Guys, Here is the requirement!! I want to check the mail with attachment received or not through unix scripting. And send an notification email when mail with attachment already received. Any thoughts on this is much appreciated!! Regards, Harry (0 Replies)
Discussion started by: dharry2017
0 Replies
Geo::GoogleEarth::Pluggable(3pm)			User Contributed Perl Documentation			  Geo::GoogleEarth::Pluggable(3pm)

NAME
Geo::GoogleEarth::Pluggable - Generates GoogleEarth Documents SYNOPSIS
use Geo::GoogleEarth::Pluggable; my $document=Geo::GoogleEarth::Pluggable->new(%data); #is a special Folder... my $folder =$document->Folder(%data); #isa Geo::GoogleEarth::Pluggable::Folder my $point =$document->Point(%data); #isa Geo::GoogleEarth::Pluggable::Point my $netlink =$document->NetworkLink(%data); #isa Geo::GoogleEarth::Pluggable::NetworkLink my $lookat =$document->LookAt(%data); #isa Geo::GoogleEarth::Pluggable::LookAt my $style =$document->Style(%data); #isa Geo::GoogleEarth::Pluggable::Style print $document->render; KML CGI Example use Geo::GoogleEarth::Pluggable; my $document=Geo::GoogleEarth::Pluggable->new(name=>"KML Document"); print $document->header, $document->render; KMZ CGI Example use Geo::GoogleEarth::Pluggable; my $document=Geo::GoogleEarth::Pluggable->new(name=>"KMZ Document"); print $document->header_kmz, $document->archive; DESCRIPTION
Geo::GoogleEarth::Pluggable is a Perl object oriented interface that allows for the creation of XML documents that can be used with Google Earth. Geo::GoogleEarth::Pluggable (aka Document) is a Geo::GoogleEarth::Pluggable::Folder with a render method. Object Inheritance Graph -- Base --- Folder --- Document | +- Placemark -+- Point | +- LineString | +- LinearRing | +- StyleBase -+- Style | +- StyleMap | +- NetworkLink USAGE
This is all of the code you need to generate a complete Google Earth document. use Geo::GoogleEarth::Pluggable; my $document=Geo::GoogleEarth::Pluggable->new; $document->Point(name=>"White House", lat=>38.897337, lon=>-77.036503); print $document->render; CONSTRUCTOR
new my $document=Geo::GoogleEarth::Pluggable->new(name=>"My Name"); METHODS
type Returns the object type. my $type=$folder->type; document Returns the document object. All objects know to which document they belong even the document itself! render Returns an XML document with an XML declaration and a root name of "Document" print $document->render; archive Returns a KMZ formatted Zipped archive of the XML document print $document->archive; xmlns Add or update a namespace $document->xmlns->{"namespace"}=$url; Delete a namespace delete($document->xmlns->{"xmlns:gx"}); Replace all namespaces $document->{"xmlns"}={namespace=>$url}; Reset to default namespaces delete($document->{"xmlns"}); nextId This method is in the document since all Styles and StyleMaps are in the document not folders. my $id=$document->nextId($type); #$type in "Style" or "StyleMap" header, header_kml Returns a header appropriate for a web application Content-type: application/vnd.google-earth.kml+xml Content-Disposition: attachment; filename=filename.xls $document->header #embedded in browser $document->header(filename=>"filename.xls") #download prompt $document->header(content_type=>"application/vnd.google-earth.kml+xml") #default content type header_kmz Returns a header appropriate for a web application Content-type: application/vnd.google-earth.kml+xml Content-Disposition: attachment; filename=filename.xls $document->header_kmz #embedded in browser $document->header_kmz(filename=>"filename.xls") #download prompt $document->header_kmz(content_type=>"application/vnd.google-earth.kmz") #default content type TODO
Support for default Polygon and Line styles that are nicer than GoogleEarth's Support for DateTime object in the constructor that is promoted to the LookAt object. Create a GPS::Point plugin (Promote tag as name and datetime to LookAt) BUGS
Please log on RT and send to the geo-perl email list. LIMITATIONS
Not So Pretty XML The XML produced by XML::LibXML is not "pretty". If you need pretty XML you must pass the output through xmllint or a simular product. For example: perl -MGeo::GoogleEarth::Pluggable -e "print Geo::GoogleEarth::Pluggable->new->render" | xmllint --format - Write Only This package can only write KML and KMZ files. However, if you need to read KML files, please see the Geo::KML package's "from" method. SUPPORT
DavisNetworks.com supports all Perl applications including this package. AUTHOR
Michael R. Davis (mrdvt92) CPAN ID: MRDVT COPYRIGHT
This program is free software licensed under the... The BSD License The full text of the license can be found in the LICENSE file included with this module. SEE ALSO
Geo::KML, XML::LibXML, XML::LibXML::LazyBuilder, Archive::Zip, IO::Scalar perl v5.14.2 2011-06-25 Geo::GoogleEarth::Pluggable(3pm)
All times are GMT -4. The time now is 04:53 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy