Greetings,
I have uploaded the following to a UNIX server at Earthlink,
and it is returning a 500 Internal Server Error.
Is my script at fault?
Thanks,
Dave
( kora musician / audiophile / web master @ cora connection / Ft. Worth, TX, USA)
--------
#!/usr/bin/perl -w
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
use strict;
my $mailprog = '/usr/lib/sendmail';
my $recipient = '[EMAIL PROTECTED]';
my $referer = referer; # what was the previous page?
my $which_page = param('page');
# $recipient = ($which_page eq 'info request') ? '[EMAIL PROTECTED]' : ' [EMAIL
PROTECTED]';
my $subject = ($which_page eq 'info') ? 'Info Request' : 'Booking Request';
my $date = strftime('%A, %B %d, %Y %I:%M %p',localtime);
my $loc = '/pages/thankyou.htm';
my $name = ($which_page eq 'info') ? param('Contact') : param('First Name') . " ".
param('Last Name');
my $email= param('Email');
$email = lc($email);
# Send E-Mail
&send_mail;
# Return HTML Page
print redirect($loc);
sub send_mail {
open(MAIL, "|$mailprog -t");
print MAIL "To: $recipient\n";
print MAIL "From: $name <$email>\n";
print MAIL "Subject: $subject\n\n";
for my $val (param()){
print "$val param($val)\n";
}
print $referer;
close(MAIL);
}
==============================================
Cora Connection: Your West African Music Source
Resources, Recordings, Instruments & More!
<http://www.coraconnection.com/>
==============================================
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
