#!/perl/bin/perl
require ("d:/pub/scripts/perl-cgi/GuestBook.pm:)||
die ("Can't find GuestBok header file: $!\ n");
# Get the POSTed information from STDIN and put it in
# $post_info.
read (STDIN, $post_info, $ENV { 'CONTENT_LENGTH'} );
# Split off the fields, which are delimited with '&',
# and put them in @InfoArray.
@InfoArray = split (/&/, $post_info);
# Go through each element in @InfoArray, split off the
# "variable=" part, then translate pluses into spaces and
# any escaped hex chars back into their real character values.
for ($n = 0; @InfoArray[$n]; $n++)
{
($dummy, $temp) = split (/=/, @InfoArray[$n]);
$temp = ~ tr/+/ /;
$temp = ~s/%([\ dA-Fa-f][\ dA-Fa-f])/
pack ("C", hex ($1))/eg;
@InfoArray [$n] = $temp;
}
# Now we'll check to see if we have anything to write
# to the quest book. We need a first or last name, at
# least; otherwise, we'll jump around the routines that
# write this stuff to the guest book file.
if ((length (@InfoArray[$FirstNameIndex]) != 0)
|| (length (@InfoArray [$LastNameIndex]) !=0))
{
# Tack the current time to the end of the array.
# Get the current time.
$time = time ();
# Put it in the array.
@InfoArray[$NumEntryTime] = $time;
# Pack the data into a binary structure, open the guest
# book file for appending, and write it all out to disk.
$GuestEntry = pack ($GuestEntryStruct, @InfoArray);
open (GUEST_LOG, ">>$GuestBookPath")
|| die "Can't open guest book: $!";
print GUEST_LOG $GuestEntry;
close (GUEST_LOG);
} # END IF (LENGTH...)
# Finally, we put up a cute little HTML document announcing
# that everything's done, with a link to the guest book
# viewer.
&HTML_Header ("All done!");
print "
\ n";
print "\ n";
print "Thanks for taking the time to sign our guest book...
"\ n;
print "
"\ n;
print "Click here to view the guest book."\ n;
&HTML_Ender ()\ n;
# End addguest.pl