email attachement

2008-02-21 Thread Tony Marquis
Hi all, I'm trying to save attachment from emails with a specific subject. but i can't find the right module... thank you for your help. My script : # Duh use Net::IMAP::Simple; use Email::Simple; # Create the object my $imap =

Saving attachment

2008-02-20 Thread Tony Marquis
I need to save attachment received by email with a specific subject. My email server support IMAP and POP3... I tried with Net::IMAP:Simple, Email::Simple, but i can't find a way to strip the attachment from the message and save it somewhere. Which module i should use for this kind of

parse mime email

2007-06-20 Thread Tony marquis
I'm trying to read the body and the attachment in a mime message. I keep getting the folling error. Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Email/MIME/ContentType.pm line 24. #!/usr/bin/perl -w use Net::POP3; use Email::MIME; my ($mail_server, $username,

parse mime email

2007-06-20 Thread TONY MARQUIS
I'm trying to read the body and the attachment in a mime message. I keep getting the folling error. Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Email/MIME/ContentType.pm line 24. #!/usr/bin/perl -w use Net::POP3; use Email::MIME; my ($mail_server, $username,

sending email problem....

2006-03-31 Thread Tony Marquis
Hi everyone, The problem is really simple. When i try to send a message with this function with a wrong sender email address, my script just stops... as an exemple : sender address [EMAIL PROTECTED] the error message is - user not found on this server and the script stops.

Simple question

2005-05-30 Thread Tony Marquis
Very simple question. I'm reading a file and i want to remove all the CRLF in each lines. while(FIC) { $test = $_; #remove crlf. ... some code } How can i do that. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Very simple question.

2005-05-16 Thread Tony Marquis
I'm creating a script that open a directory. create a file call lock Work in the directory. delete the lock file and quit. my ($rep_em) = /test; opendir (DIR, $rep_em) || die (Error open directory $rep_em.); chdir($rep_em) || die (Error change directory to $rep_em); my @fic = readdir(DIR);