#!/usr/bin/perl
$HEADER = './header.html';
$FOOTER = './footer.html';
$LIST = './list.html';
$NULIST = './nulist.html';
$THANKS = './thanks.html';
print "Content-type: text/html\nPragma: no-cache\n\n";
&get_form_data;
open (HEADER,"< $HEADER") || die "cant open $HEADER!\n";
while (){
print "$_\n";
}
close (HEADER);
open (LIST,"< $LIST") || die "cant open $LIST!\n";
while (){
$lines++;
print "$_\n";
}
close (LIST);
open (LIST,"< $NULIST") || die "cant open $LIST!\n";
while (){
$lines++;
# print "$_\n";
}
close (LIST);
if ($formdata{sign}){
open (LIST,">> $NULIST") || die "cant open $NULIST!\n";
$nr = $lines + 1;
print LIST "$nr ) $formdata{sign} \n";
close (LIST);
open (THX,"<$THANKS") || die "cant open $THANKS!\n";
while (){
print "$_\n";
}
close (THX);
exit;
}
open (FOOTER,"< $FOOTER") || die "cant open $FOOTER!\n";
while (