#! /usr/local/bin/perl ################################### # # # GuestBook CGI # # # # Written by Zach Whalen -- # # (zwhalen@english.ufl.edu) # # # # Copyleft Zach Whalen 2003 # # You can use this program if # # you want to. Just don't try to # # Copyright it yourself, please. # # # ################################### ### SUMMARY ### # # This is the main part of a simple guestbook # script you can add to your web-page. alarm(20); use strict; print "Content-type: text/html \n\n"; require '/web/nwe/share/nwe.pm'; my %data = &Parse_web_data(); my @guestfiles = glob "*.guest"; my @sorted = sort(@guestfiles); my $oldfile = $#sorted; my $newfile = $oldfile + 1; $newfile = "$newfile.guest"; open (WRITE, ">$newfile"); foreach (keys %data){ print WRITE "$_=$data{$_}\n"; } print < Untitled Document REDIRECT_HTML