> -----Original Message----- > From: awards [mailto:[EMAIL PROTECTED] > Sent: Friday, August 08, 2003 8:54 AM > To: [EMAIL PROTECTED] > Subject: mime::parser(again) download problem > > > Hi, > > This is how i'm retrieving messages(code below). The text is > fine it is > perfectly downloading it. > But for pictures attachment, the file has the size of the > real picture, but > I Can Not view the downloaded pictures. > for example I'm sending picture aaa.jpg it is 16Kb. > When I retrieve it i get 12321123-1233-aaa.jpg it is 16KB but > I can not > retrieve the pictures. > any help is appreciated > > awards > > open(CURRMSG, "C:\\currmsg.txt") or die "Cannot open message: $!\n"; > my $uniq=time().'-'.$$; > $entity=$parser->parse(\*CURRMSG); > close CURRMSG; > my @parts=$entity->parts; > while(my $part = shift(@parts)) { > if($part->parts) { > push @parts,$part->parts; # Nested multi-part > next; > } > > my $filename=$part->head->recommended_filename; > my $inputfile=$part->open("r"); > open(F,"> $attachdir/$uniq-$filename.jpg"); > while(read($inputfile,$buf,1024)) { > print F $buf; > } > close(F); > $inputfile->close; > } > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] try:
my $uniq=time().'-'.$$; $parser->extract_uuencode(1); # decode uuencode $entity=$parser->parse(\*CURRMSG); Let me know how you make out! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
