dear perl gurus

i *have* to use a hosting service that does not have/allow Mime::Lite so i
am pretty much stuck with the classic sendmail. but i need to send
attachments. the hosting service is godaddy - i mention them not to
denigrate but in case someone else found a solution with this hosting
service.

my code

sub emailnotice{
    $mailprog = '/usr/lib/sendmail';
   open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
   print MAIL "Reply-to: '$email'\n";
   print MAIL "To: '$email'\n";
   print MAIL "From: '$email'\n";
   print MAIL "Subject: Customer Submitted Info -Web Site\n\n";
   print MAIL $thetext;
   close (MAIL);
}


works great. the $thetext is presently a text file that i read in and simply
put it in the body - quickly becoming impractical .... also tried the *uuencode
*- perhaps did not that do right ...

though i tried in vain, how can i attach either a binary file or a text file
using sendmail?

thank you in advance ...
mario
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to