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;
Alex
__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail.
http://personal.mail.yahoo.com/
