M
Mark Tarver
Hi,
This is a perl program I cribbed for sending the mail from a series of
forms. It fails to work with the message.
Software error:
Can't open mailprog.
For help, please send mail to this site's webmaster, giving this error
message and the time and date of the error.
Any ideas why?
Mark
_____________________________________________________________________________
#!/usr/bin/perl -wT
use CGI qwstandard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
#me! and you! replace real addresses
open(SENDMAIL, "/usr/sbin/sendmail -oi -t -odq") or die "Can't fork for
sendmail: $!\n";
print SENDMAIL <<"EOF";
From: me!
To: you!
Subject: form
my $name = param('name');
my $email = param('email');
my $commqi = param('commqi');
my $commqitk = param('commqitk');
my $inform = param('inform');
my $support = param('support');
my $consultation = param('consultation');
my $lisp = param('lisp');
my $os = param('os');
my $remarks = param('remarks');
EOF
close(SENDMAIL) or warn "couldn't close sendmail";
This is a perl program I cribbed for sending the mail from a series of
forms. It fails to work with the message.
Software error:
Can't open mailprog.
For help, please send mail to this site's webmaster, giving this error
message and the time and date of the error.
Any ideas why?
Mark
_____________________________________________________________________________
#!/usr/bin/perl -wT
use CGI qwstandard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
#me! and you! replace real addresses
open(SENDMAIL, "/usr/sbin/sendmail -oi -t -odq") or die "Can't fork for
sendmail: $!\n";
print SENDMAIL <<"EOF";
From: me!
To: you!
Subject: form
my $name = param('name');
my $email = param('email');
my $commqi = param('commqi');
my $commqitk = param('commqitk');
my $inform = param('inform');
my $support = param('support');
my $consultation = param('consultation');
my $lisp = param('lisp');
my $os = param('os');
my $remarks = param('remarks');
EOF
close(SENDMAIL) or warn "couldn't close sendmail";