#!/usr/bin/perl

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

require "formparser.lib"; &parseform;
use DB_File;

my $guestbook = "/home/matt/gbook";
my $name = $formdata{'name'};
my $email = $formdata{'email'};
my $comments = $formdata{'comments'};
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdist) = localtime(time);
my $postime = "$hour:$min $mday-$mon-$year";

dbmopen %BOOK, $guestbook, 0666 or die "Cant open $guestbook: $!\n";

%BOOK = ('name'  => $name,
         'email' => $email,
         'comments'  => $comments,
         'postime' => $postime );
         
         
@array1 = values(%BOOK);
print "@array1";

print "size of hash:  " . keys( %BOOK ) . ".\n";

dbmclose(%BOOK);