A cursory look at the code appears ok, you are positive that there are no errors given, have you tried running it command line??
What does sendmail's log file look like??? The program may be sending to sendmail, it may not be complaining back immediately, but it might be complaining later and not necessarily to you, aka to apache (or whatever user your web server runs as), root, postmaster, or even /dev/null. Do you ever use the values retrieved from the $q->param sections?? http://danconia.org no longer exists wrote: > Hello, > > i have used cgi-lib for awhile, but have just been > given the job of securing my companies perl files and > have started using cgi.pm plus all the security > restrictions and have come across a problem. > > I have this code that redirects just fine, gives me no > errors, yet will NOT send out the e-mail that is > written within the script. IT is running on a AIX > machine. Anyone have any ideas on how to get the > e-mail to run? i have to rewrite ALL 100+ scripts > within my companies cgi-bin within 3 weeks and could > REALLY use the help:) > > #!/usr/bin/perl -wT > use strict; > use CGI; > > # test.cgi > > $CGI::DISABLE_UPLOADS = 1; > $CGI::POST_MAX = 102_400; #100 KB; > > BEGIN > { > $ENV{PATH} = "/bin:/usr/bin"; > delete @ENV{ qw ( IFS CDPATH ENV BASH_ENV) }; > } > > my $q = new CGI; > my $ZipPostalCode = $q->param( "ZipPostalCode" ) =~ /^ > ( [\w+.] ) /; > my $FirstName = $q->param( "FirstName" ) =~ /^ ( > [\w+.] ) /; > my $recipient = $q->param( "recipient" ) =~ /^ ( > [\w+.] ) /; > my $subject = $q->param( "subject" ) =~ /^ ( [\w+.] ) > /; > my $referrer = $q->param( "referrer" ) =~ /^ ( [\w+.] > ) /; > my $AddName = $q->param( "AddName" ) =~ /^ ( [\w+.] ) > /; > > print $q->redirect( "/campaign/inf/00/thankyou.html" > ); > print "/campaign/inf/00/thankyou.html"; > > open MAIL, "| '/usr/lib/sendmail' -t -i" or die "Could > not open sendmail: $!"; > > print MAIL <<EOM; > To: cynkim\@yahoo.com > From: mememememe\@yahoo.com > Reply-To: cynkim\@yahoo.com > Subject: Perl security test > > This is a test, it is only a test > EOM > close MAIL or die "Error closing sendmail: $!"; > > > > > > __________________________________________________ > Do You Yahoo!? > HotJobs - Search Thousands of New Jobs > http://www.hotjobs.com > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
