#!/usr/bin/perl
#
# Guestbook
# Ben Sinclair - 5/28/98
#
require "ctime.pl";
$date = &ctime(time);

use CGI;
$query = new CGI;

$formname = $query->param('name');
$formemail = $query->param('email');
$formurl = $query->param('url');
$formcomment = $query->param('comment');

$guestheader = "guestheader.html";
$guestfooter = "guestfooter.html";
$guestadded  = "guestadded.html";
$guestdata   = "guestdata.txt";

print "Content-type: text/html\n\n";

  open (FILE,$guestheader);
    while (<FILE>) {
      print;
    }
  close(FILE);


# 5Nov05: removed input logic

# We're displaying the entries

  open(FILE,$guestdata);
    while(<FILE>) {
      print;
    }
  close(FILE);

  open(FILE,$guestfooter);
    while(<FILE>) {
      print;
    }
  close(FILE);