#!/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 (<HEADER>){
  print "$_\n";
}
close (HEADER);

open (LIST,"< $LIST") || die "cant open $LIST!\n";
while (<LIST>){
  $lines++;
  print "$_\n";
}
close (LIST);

open (LIST,"< $NULIST") || die "cant open $LIST!\n";
while (<LIST>){
  $lines++;
  # print "$_\n";
}
close (LIST);

if ($formdata{sign}){
   open (LIST,">> $NULIST") || die "cant open $NULIST!\n";
   $nr = $lines + 1;
   print LIST "$nr ) $formdata{sign}<br>\n";
   close (LIST);
   open (THX,"<$THANKS") || die "cant open $THANKS!\n";
   while (<THX>){
      print "$_\n";
   }
   close (THX);
   exit;
}

  
open (FOOTER,"< $FOOTER") || die "cant open $FOOTER!\n";
while (<FOOTER>){
  print "$_\n";
}
close (FOOTER);
  


sub get_form_data {
        $buffer = "";
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs=split(/&/,$buffer);
        foreach $pair (@pairs)
        {
                @a = split(/=/,$pair);
                $name=$a[0];
                $value=$a[1];
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                $value =~ s/~!/ ~!/g;
                $value =~ s/\+/ /g;
               $value =~ s/\</\&lt\;/g;  # remove these lines
               $value =~ s/\>/\&gt\;/g;  # to enable HTML tagging
                $value =~ s/\r//g;
                push (@data,$name);
                push (@data, $value);
        }
        %formdata=@data;
        %formdata;
}