Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (None)
    As of 2021-10-19 03:26 GMT
    Find Nodes?
      Voting Booth?
      My first memorable Perl project was:

      Results (76 votes). Check out past polls.