#!/usr/bin/perl -w -- -*- C -*-

# Modified from a file by Henrik Delin <delin@math.chalmers.se> september 95.

require "cgi-lib.pl";

MAIN: 
{
  $book="Ediskkommentarer.html";
  $form="Kommentarform.html";
# Read in all the variables set by the form
  if (&ReadParse(*input)) {
    &ProcessForm;
  } else {
    &PrintForm;
  }
}

sub ProcessForm {
# Start processing and saving data

  $dator = $ENV{'REMOTE_HOST'};
  $tid = `date '+Klockan %T den %d %h %Y'`;
  $tid =~ s/May/Maj/g;
  $tid =~ s/Oct/Okt/g;
# Add the form result to the book.

  open(BOOK,">>$book");

  print BOOK <<ENDOF;
<DT><B> $tid, $dator</B>:
<BR><DD>
$input{'text'}
<ADDRESS>
- $input{'namn'} ($input{'email'})
</ADDRESS>

ENDOF
  
  close BOOK;

# Print the header
  print &PrintHeader;

#print <<`EOC`; 
#  cat $book;
#EOC
  print"</DL><HR>";



  print "<a name=\"end\"> </a>";
  open(FIL,"$form");
  while (<FIL>) {
    print;

  }
  close(FIL);
  
#  open(FIL,"log_foot.html");
#  while (<FIL>) {
#    print;
#  }
#  close(FIL);
  
}
sub PrintForm {
  print &PrintHeader;

  open(FIL,"$form");
  while (<FIL>) {
    print;
  }
  close(FIL);
#  print "<hr>";
#  
#  open(FIL,"$book");
#  while (<FIL>) {
#    print;
#  }
#  close(FIL);
#  
#  print"</DL>";
#  
#  open(FIL,"log_foot.html");
#  while (<FIL>) {
#    print;
#  }
#  close(FIL);
  
}