#!/usr/bin/perl
require 'parseex.pl';
$data = $ENV{ 'QUERY_STRING' };
%form = &parse_params($data);
$firstname = $form{'firstname'};
$lastname = $form{'lastname'};
$email = $form{'email'};
$address = $form{'address'};
$city = $form{'city'};
$state = $form{'state'};
$zip = $form{'zip'};
$boardfile = 'info.dat';
$formfile = 'info.form';
sub print_top
{
print "Content-type: text/html\r\n";
print "\n";
print "\n";
print "\n";
print "Black Moonshine Signup< \n";
print "\n";
print "\n";
print "Black Moonshine Signup
\n";
print "Signing up is easy, all you need to do is send a blank email, with subject Join, to BlackMoonshine-subscribe\@egroups.com and fill in the form below. Remember, if you have already sent the email, or been put on the fanclub email list, you only need to fill in the form below. This info will be used only to send you fanclub information and establish regional demographics. Please make sure to put your state or country.
\n";
print "\n";
}
sub print_messages
{
}
sub print_form
{
open (FORMS, "$formfile") || die print "dead\n";
while ()
{
print;
}
close (FORMS);
}
sub print_bottom
{
print "";
print "