Fw: Re: E-Mail Attachments

[Milan Sorm]

Kdyz je tu ta ziva diskuze o attachmentech k e-mailu, tohle je k tomuto
tematu z comp.lang.perl.misc:

----- Forwarded message from David Cassell <cassell na mail.cor.epa.gov> -----

# > I am sending mail via a PERL script that looks like this:
# > 
# > open ( MAIL, "| /usr/lib/sendmail -t");
# > print MAIL "Subject: Whatever\n";
# > print MAIL "From: $me\n";
# > print MAIL "To: $eMail\n";
# > print MAIL "Reply-To: $me\n";
# > print MAIL "Text Content ";
# > close ( MAIL );
# > 
# > Can anyone give me an example of how to attach an .exe file?
# > 
# > I tried it like this:
# > 
# > open ( MAIL, "| /usr/lib/sendmail -t");
# > print MAIL "Subject: Whatever\n";
# > print MAIL "From: $me\n";
# > print MAIL "To: $eMail\n";
# > print MAIL "Reply-To: $me\n";
# > print MAIL "MIME-Version: 1.0\n";
# > print MAIL "X-Accept-Language: en\n";
# > print MAIL "Content-Type: multipart/mixed;\n";
# > print MAIL "Content-Type: application/octet-stream; name=$file\n";
# > print MAIL "Content-Transfer-Encoding: base64\n";
# > print MAIL "Content-Disposition: attachment; filename=$file\n";
# > print MAIL "Text Content";
# > close ( MAIL );
# > 
# > but no joy...
# 
# You might have better luck if you try doing this using the MIME
# modules available at CPAN.  MIME::Base64 (en|de)codes base64
# strings.  And MIME::Lite should solve your attachment problem.

ci-li zkuste MIME::Lite (nejspis z MIME::Parseru)

milan