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]
