Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: reading piped email with attachments

by moxliukas (Curate)
on Sep 24, 2003 at 06:31 UTC ( #293782=note: print w/ replies, xml ) Need Help??


in reply to reading piped email with attachments

Maybe something like this will help (it is a piece of code that I recently wrote for my weblog to accept entries via email):

#!/usr/bin/perl -w use strict; use MIME::Parser; use FileHandle; use File::Path; $|++; # autoflush on # Directory paths my $tmp_dir = '/home/moxliukas/tmp'; my $output_dir = '/home/moxliukas/public_html/moblog/images'; my $parser = MIME::Parser->new; $parser->output_dir($tmp_dir); my $entry = $parser->parse(\*STDIN); # for each MIME message part... for my $part ($entry->parts) { # ...check MIME type my $mime = $part->mime_type; if($mime =~ /jpeg/) { # if it is JPG, generate a new filename my $url = time() . '.jpg'; my $fh = FileHandle->new($output_dir . '/' . $url, 'w' +); binmode($fh); # Let's write the JPG to the output directory my $ifh = $part->open('r'); $fh->print($ifh->getlines); $_->close for($fh, $ifh); } $dbh->disconnect;

Hope this helps.


Comment on Re: reading piped email with attachments
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://293782]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2014-09-19 06:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (132 votes), past polls