pecan204 — Sat, 27 Jan 2001 02:48:21 +0000

I did just get this error.

Any comments?

syntax error at /data/pecan204/cgi-bin/send_mail.cgi line 27, near "$key ("
Execution of /data/pecan204/cgi-bin/send_mail.cgi aborted due to compilation errors.
[Fri Jan 26 18:31:38 2001] [error] [client 24.25.151.112] Premature end of script headers: /data/pecan204/cgi-bin/send_mail.cgi
[Fri Jan 26 18:31:38 2001] [error] [client 24.25.151.112] MOD_VR9: Error 500 occured while processing : /data/pecan204/cgi-bin/send_mail.cgi

syanet — Fri, 26 Jan 2001 18:32:05 +0000

I slighly modified this since I can't seen to get a mail script to work on my new server (RaQ3). And as with the others, it dosen't work either. ANyone see an obvious problem? I get 500 errors.

#!/usr/bin/perl

print "Content-type:text/html\n\n";

read(STDIN, $buffer, 128000);
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

$mailprog = '/usr/sbin/sendmail';
open (MAIL, "|$mailprog") or &dienice("Can't access $mailprog!\n");
print MAIL "To: syanet\@neo.rr.com";
print MAIL "From: $FORM{'email'}\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: Submission\n\n";

foreach $key (keys(%FORM))
{
print MAIL "$key = $FORM{$key}\n";
}

close(MAIL);

anti — Fri, 26 Jan 2001 08:43:09 +0000

But the sender (From: ...) belongs in the header, that is before the empty line(\n\n).

Give it a try.

BTW:
On which system is this running ?
(BSD, Linux, Solaris ?)

pecan204 — Fri, 26 Jan 2001 02:36:00 +0000

Hello,

The sender should be filled in from the form with the variable - 'email'.

If I understand that right. Is there an environment variable called sender?

Comments? Anyone.

anti — Thu, 25 Jan 2001 13:56:44 +0000

Just a question,

where is the sender specified ?
Some MTA won't deliver it without.

And you won't get an error back.

anti