Hi,
The script below using Mail::Sender to send a Multipart attachement produce
the following Debug error:
<Can't find string terminator "*END*" anywhere before EOF at
/var/mnt/System/Web/cgi-bin/myscript.cgi line 21.
Your program doesn't produce ANY output!>
#=====myscript.cgi======
use CGI::Debug;
use Mail::Sender;
$sender->OpenMultipart({to => '[EMAIL PROTECTED]',
subject => My ZIP File'});
$sender->Body({ msg => <<'*END*' });
Here is a new module Mail::Sender.
It provides an object based interface to sending SMTP mails.
It uses a direct socket connection, so it do not
additional program.
Enjoy, Normand
*END*
$sender->Attach({description => 'Mail::Sender',
ctype => 'application/x-zip-encoded',
encoding => 'Base64',
disposition => 'attachment; filename="Zip5.tar.gz"; type="ZIP archive"',
file => '/var/mnt/System/Web/cgi-bin/Zip5.tar.gz' });
$sender->Close;
print "Content-type: text/html\n\n";
print "Message Sent \n";
exit;
#====================
What is missing? This is taken directly from the POD.
Normand Charette
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
