#!/usr/bin/perl
use strict;
use CGI;
my $query = new CGI;
#$query->use_named_parameters(1); # Use names when setting parameters...
my @paramnames = $query->param;
print $query->header(-type=>'text/html; charset=iso-8859-1');
if ($#paramnames >= 0) { # Returned form
do_register($query);
} else {
do_form();
}
sub do_register {
my ($query) = shift;
my $name = $query->param('name');
my $address = $query->param('address');
my $zip = $query->param('zip');
my @errlist = ();
push(@errlist, "Name") if (!defined($name) || ($name eq ""));
push(@errlist, "Address") if (!defined($address) || ($address eq ""));
push(@errlist, "zip code") if (!defined($zip) || ($zip eq ""));
if (scalar(@errlist) > 0) {
abort("The following information was missing:\n" . join("\n", @errlist) .
"\nPlease check and try again.\n");
}
open(REGFILE, ">> registrationlist");
print REGFILE "=========================\n";
@paramnames = $query->param;
foreach my $qp (@paramnames) {
print REGFILE "$qp: ", $query->param($qp), "\n";
}
close(REGFILE);
open(REGMAIL, "|/usr/sbin/sendmail -fapsmith\@lispace.org -t");
print REGMAIL "To: apsmith\@lispace.org\n";
print REGMAIL "Subject: New registration\n\n";
foreach my $qp (@paramnames) {
print REGMAIL "$qp: ", $query->param($qp), "\n";
}
close(REGMAIL);
print << "SUCCESS";
LISS Registration Form
Long Island Space Society Registration
$name has been registered
Thanks for joining us!
SUCCESS
}
sub do_form {
print << "EOFORM";
LISS Registration Form
Long Island Space Society Registration
EOFORM
}
sub abort
{
my($msg) = @_;
print "Registration Form Error";
print "";
print "Error!
\n";
print "$msg\n";
print "";
exit(0);
}