I think it's on the line above 111:
$Mail::Sendmail{Date} = Mail::Sendmail::time_to_date( time() - 86400
),
The comma at the end needs to be a semicolon (;).
-----Original Message-----
From: Sharon Tiroff [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 19, 2001 7:54 AM
To: '[EMAIL PROTECTED]'
Subject: Sendmail Syntax error
Hi I am new to Perl CGI programming and I am receiving this syntax
error:
syntax error at C:\Inetpub\wwwroot\cgi-bin\form.cgi line 111, near ") {"
________________________________________________________________________
___________
Here's the code:
$Mail::Sendmail{Smtp} =
'special_server.for-this-message-only.domain.com';
$Mail::Sendmail{'X-custom'} = 'My custom additionnal header';
$Mail::Sendmail{'mESSaGE : '} = "The message key looks terrible, but
works.";
# cheat on the date:
$Mail::Sendmail{Date} = Mail::Sendmail::time_to_date( time() - 86400
),
if ( sendmail %Mail::Sendmail ) { print "Mail sent OK.\n" } #line
111
else { print "Error sending mail: $Mail::Sendmail::error \n" }
print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;
________________________________________________________________________
_________________
Does anyone see my error? This is the example code from the Sendmail.pm.
Any help would be appreciated.
Thanks again!
Sheri
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
