Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: reading piped email with attachments

by moxliukas (Curate)
on Sep 24, 2003 at 06:31 UTC ( [id://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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-03-29 06:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found