Normand, Looks like there's a quote missing on the subject line.
Craig > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:perl-unix- > [EMAIL PROTECTED]] On Behalf Of SuccessInMind > Sent: Sunday, September 01, 2002 12:26 PM > To: [EMAIL PROTECTED] > Subject: [Perl-unix-users] Can't find string terminator "*END*" anywhere > before EOF > > 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 _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
