Added the missing quote which was a translation typo into the e-mail and the apparently missing $sender = new Mail::Sender line but I still get the same error message as below.
Here is where I got the example: Under Multipart message with attachment 3/4 down the page. http://search.cpan.org/author/JENDA/Mail-Sender-0.8.00/Sender.pm Normand Charette -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Craig B. Nakata Sent: Sunday, September 01, 2002 2:32 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: RE: [Perl-unix-users] Can't find string terminator "*END*" anywhere before EOF 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 _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
