#!/usr/local/bin/perl #Written by Lee Tze Meng using PERL !! The Camel ################################################## # set this to your cgi-bin directory push(@INC,"/.mosaic/cgi-bin"); require '../cgi-lib.pl'; ################################################## &ReadParse; print &PrintHeader; print " "; ################# Print the header ############### print "

Thank you $in{Name}! Your entry has been sent to the guestbook successfully!

\n"; print "

Your entry has been updated

"; print "Have a nice day !

\n"; print 'Back to Form'; print '
'; print 'View Guest Book'; ################ send the data to temp.html ############################# open (OUT, ">>temp.html") || die("Unable to open the file"); print OUT "Name: $in{'Name'}\n"; print OUT "
"; print OUT "E-mail: $in{'email'}\n"; print OUT "
"; print OUT "Org: $in{'Org'}\n"; print OUT "
"; print OUT "Hobbies: $in{'hob'}\n"; print OUT "
"; print OUT "URL: $in{'url'}\n"; print OUT "
"; print OUT "
"; print OUT "
"; close (OUT);