#!/usr/bin/perl
use CGI qw(:standard);

print header;
print start_html(-title => "Guestbook Thing");
print h1("Guestbook Thing");
&writeit();
&readit();
&printit();
print end_html;

sub writeit{
  print startform;
  print "Name:";
  my $name = param('Name');
  my $comments = param('Comments');
  print textfield(-name =>'Name'), br;

  print "Message:", br, textarea(-name => "Comments",
                                 -rows => "10",
                                 -columns => "50"),
        br, "\n";
  print submit(-value => "Submit");
  print reset(-value=>Reset);
  print hr;
  print endform;

  open(WRITE, ">>guestbook.txt") || dienice("AHH $!");
  print WRITE "$name::$comments\n"; #wonders if he should use the join function here...
  close(WRITE) || dienice("AHH $!");
}