Yay, Update received.

#!/usr/bin/perl # # Updates a file edited online # 11/19/01 -rjp require "cgi-lib.pl"; &ReadParse(*input); $GUIDE = $input{'theguide'}; $OUT = "guide2.html"; # -- test for input errors $formerrors = ""; if ($GUIDE eq "") { $formerrors = $formerrors . "Ack! Did you just nuke the user guide? Go back and fix it.
"; } if ($formerrors ne "") { print &CgiDie("Error(s) ","$formerrors"); } open(OUT,">$OUT") || die("Cannot open output file."); print OUT <Yay, Update received.\n"; print "

Thanks for your addition. File is being updated...

\n"; print "\n"; print "
\n"; print "

\n"; # now let's move the versions of guide*.html around system("cat guide.html > guide-old.html"); system("cat guide2.html > guide.html");