#!C:/usr/bin/Perl
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser set_message);
my $log = 'Requests.log'; #All three of these are different in the actual script, but that's not the problem
my $errors = 'Errors.log';
my $techcontact = 'me@myaddress.com';
#You don't seriously expect me to document what these variables contain, do you?
my $_name = param( 'name' );
my $_email = param( 'email' );
my $_institution = param( 'institution' );
my $_rank = param( 'rank' );
my $_address = param( 'address');
my $_telnum = param( 'telnum' );
my $_faxnum = param( 'faxnum' );
open LOG, ">> $log" or die " I can't open logfile for appending: $! Contact $techcontact at once!";
print LOG "Name: $_name -- Email: $_email -- Institution: $_institution -- Rank: $_rank -- Telnum: $_telnum -- Faxnum: $_faxnum -- Address: $_address \n";
close LOG;
#OK, so here's the problem: In IE, EVERY SINGLE field appears in $_name
#In Netscape, these are all blank! Help! What can I do?!
print header;
print "";
print "\n";
print "Registration Received\n";
print "\n";
print "\n";
print "
\n";
print "Your form has been received successfully.
\n";
print "Expect a confirmation email with payment instructions in the next few days.";
print "We received the following information: ";
print "
Name: $_name";
print "
Email: $_email";
print "
Institution: $_institution";
print "
Rank: $_rank";
print "
Telephone: $_telnum";
print "
Fax: $_faxnum";
print "
Address: $_address";
print '
If this is wrong, try submitting again. If it is still wrong, send the correct info to rvandenh@stfx.ca';
print "\n";
print "\n";
#This block of code deals with when the user needs to be smacked with a clue-by-four.
BEGIN {
sub handle_errors {
my $msg = shift;
print "$msg";
print "
Try filling out the form again.";
}
set_message(\&handle_errors);
}