Perl question

Anonymous — GMT

I'm NOT a perl programmer, but I have to edit a perl file. I know HTML in an out, but not Perl in the least! I updated all the files I saw for a course registration page: http://www.hcrhs.k12.nj.us/cgi-bin/ettc/courses.pl but after you click register and fill in the info (bogus info) it gives this message:

[b]Unable to OPen file at /var/scohttp/cgi-bin/academy_regis.pl line 127. [/b]

Here is that file (is there something wrong???):
#!/usr/local/bin/perl
# academy_regis.pl
# edited 1-20-01 to setup for Groupwise auto respond.
# edited 2-12-01 to change file format (for future class lists)
require "cgi-lib.pl";
MAIN:
{
print &PrintHeader;
print "";
print "

Academy Course Registration Form

";
print "

HCRHS - - 84 Route 31 - - Flemington, NJ - - 08822";
print "

";
print "The following information has been sent to The Academy at Hunterdon Central. Please forward your check/purchase order (if required) to Dr. Judy Gray at the adress listed above";
print "";

read (STDIN,$buf,$ENV{'CONTENT_LENGTH'});
@kvpairs = split(/&/,$buf);
# $newinfo = join (/:/,@kvpairs);
foreach $kv (@kvpairs) {
($key,$val) = split(/=/,$kv);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
$formdata{$key}= $val;
}

print "";

print "";
print "";
print "";
print "";

print "

"; print "Course	Starting Date	Time
"; print "$formdata{course1}	$formdata{date1}	$formdata{time1}
"; print "$formdata{course2}	$formdata{date2}	$formdata{time2}
"; print "$formdata{course3}	$formdata{date3}	$formdata{time3}

";
print "
";
print "Name - ",$formdata{realname};
print "
";
print "Address - ",$formdata{Address};
print "
";
print "City - ",$formdata{City};
print "
";
print "State - ",$formdata{State};
print "
";
print "Zip - ",$formdata{Zip};
print "
";
print "School - ",$formdata{School};
print "
";
print "School Address - ",$formdata{School_Address};
print "
";
print "Home Phone - ",$formdata{Home_phone};
print "
";
print "Work Phone - ",$formdata{Work_phone};
print "
";
print "E-mail - ",$formdata{email};
print "
";

print "
";
print "";
print &HtmlBot;

}

# the mail routine
$mailprog="/usr/lib/sendmail";
$recipient='sschaffe@hcrhs.k12.nj.us';
open (MAIL,"|\/usr\/lib\/sendmail -t");
print MAIL "To: $recipient \n";
print MAIL "From: $formdata{email}\n";
$subj="CS:".$formdata{course1};
print MAIL "Subject: $subj \n\n";
print MAIL $formdata{realname}," has recently registered via our web site.\n";
print MAIL "\n Here is the data he/she supplied:\n\n";
print MAIL "course #1 - ",$formdata{course1};
print MAIL "\n";
print MAIL "start date - ",$formdata{date1};
print MAIL "\n";
print MAIL "time - ",$formdata{time1};
print MAIL "\n---------------------";
print MAIL "\n\n";
print MAIL "course #2 - ",$formdata{course2};
print MAIL "\n";
print MAIL " ",$formdata{date2};
print MAIL "\n";
print MAIL " ",$formdata{time2};
print MAIL "\n\n---------------------";
print MAIL "\n\n";
print MAIL "course #3 - ",$formdata{course3};
print MAIL "\n";
print MAIL " ",$formdata{date3};
print MAIL "\n";
print MAIL " ",$formdata{time3};
print MAIL "\n\n---------------------";
print MAIL "\n\n";
print MAIL "Name - ",$formdata{realname},"\n";
print MAIL "Address - ",$formdata{Address},"\n";
print MAIL "City - ",$formdata{City},"\n";
print MAIL "State - ",$formdata{State},"\n";
print MAIL "Zip - ",$formdata{Zip},"\n";
print MAIL "School - ",$formdata{School},"\n";
print MAIL "School Address - ",$formdata{School_Address},"\n";
print MAIL "Home Phone - ",$formdata{Home_phone},"\n";
print MAIL "Work Phone - ",$formdata{Work_phone},"\n";
print MAIL "E-mail - ",$formdata{email},"\n";
print MAIL "Remote Host IP - ",$ENV{REMOTE_ADDR},"\n";

close (MAIL);

$recipient='sschaffe@hcrhs.k12.nj.us';
open (MAIL,"|\/usr\/lib\/sendmail -t");
print MAIL "To: $recipient \n";
print MAIL "From: $formdata{email}\n";
$subj="CS:".$formdata{course1};
print MAIL "Subject: $subj \n\n";
print MAIL $formdata{realname}," has recently registered via our web site.\n";
print MAIL "\n Here is the data he/she supplied:\n\n";
print MAIL "course #1 - ",$formdata{course1};
print MAIL "\n";
print MAIL "start date - ",$formdata{date1};
print MAIL "\n";
print MAIL "time - ",$formdata{time1};
print MAIL "\n---------------------";
print MAIL "\n\n";
print MAIL "course #2 - ",$formdata{course2};
print MAIL "\n";
print MAIL " ",$formdata{date2};
print MAIL "\n";
print MAIL " ",$formdata{time2};
print MAIL "\n\n---------------------";
print MAIL "\n\n";
print MAIL "course #3 - ",$formdata{course3};
print MAIL "\n";
print MAIL " ",$formdata{date3};
print MAIL "\n";
print MAIL " ",$formdata{time3};
print MAIL "\n\n---------------------";
print MAIL "\n\n";
print MAIL "Name - ",$formdata{realname},"\n";
print MAIL "Address - ",$formdata{Address},"\n";
print MAIL "City - ",$formdata{City},"\n";
print MAIL "State - ",$formdata{State},"\n";
print MAIL "Zip - ",$formdata{Zip},"\n";
print MAIL "School - ",$formdata{School},"\n";
print MAIL "School Address - ",$formdata{School_Address},"\n";
print MAIL "Home Phone - ",$formdata{Home_phone},"\n";
print MAIL "Work Phone - ",$formdata{Work_phone},"\n";
print MAIL "E-mail - ",$formdata{email},"\n";
print MAIL "Remote Host IP - ",$ENV{REMOTE_ADDR},"\n";

close (MAIL);

# open file to keep data
open(FOO,">>/u/httpdocs/academy/regis.dat") || die("Unable to OPen file ");
print FOO $buf,"\n";

close(FOO);

Anonymous — GMT

u/httpdocs/academy/regis.dat is a totally different path than what your error path message is. I would change that path to reflect the true location of regis.dat

probably should be /var/scohttp/cgi-bin/regis.dat

Auron — GMT

[quote="Anonymous"]u/httpdocs/academy/regis.dat is a totally different path than what your error path message is. I would change that path to reflect the true location of regis.dat

probably should be /var/scohttp/cgi-bin/regis.dat[/quote]

should be /var/scohttp/academy/regis.dat

Latest posts for the topic "Perl question"

Perl question

Academy Course Registration Form

HCRHS - - 84 Route 31 - - Flemington, NJ - - 08822"; print "

HCRHS - - 84 Route 31 - - Flemington, NJ - - 08822";
print "