>Hmmm...I thought I had it, but not quite. For some
>reason, my Perl script is outputting to the screen,
>not my mailwrapper. Are there any limitations on what
>you can send to the mailwrapper? My program is below:
>
>#!/usr/bin/perl
>
>$fileout = system("/bin/cat
>/home/www/schnarff/images/chili.jpg |
>/usr/bin/uuencode /home/www/schnarff/chili.jpg");
>$bound = "---bound";
>
>open (MAIL, "|/usr/bin/sendmail -t");
>print MAIL "To: alexlefevre\@yahoo.com\n";
>print MAIL "Mime-Version: 1.0\n";
>print MAIL "Content-Type: multipart/mixed;
>boundary=\"$bound\"; charset=\"iso-8859-1\"\n";
>print MAIL "$bound\n";
>print MAIL "Content-Type: image/jpg;
>name=\"chili.jpg\"\n";
>print MAIL "Content-Disposition: attachment;
>filename=\"chili.jpg\"";
>print MAIL "Content-Transfer-Encoding: uuencode";
>print MAIL "$fileout";
>close MAIL;
This may be a little late, but why don't you simply use one of the
many Perl modules that deal with MIME and know how to do it right,
for example, MIME::Lite? Go to <http://search.cpan.org/>.
>
>Alex
>
>__________________________________________________
>Do You Yahoo!?
>Get email at your own domain with Yahoo! Mail.
>http://personal.mail.yahoo.com/
--
--
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693
[EMAIL PROTECTED]
