Help for this page

Select Code to Download


  1. or download this
    <input name="mode" value="form1">
<input name="history" value="HISTORYBUF">
  2. or download this
    use strict;
use CGI;
...
my $mode = $q->param("mode");
if ($mode eq "form1") { &validateform1; }
elsif ...
  3. or download this
    use Storable;

...
$template =~ s/HISTORYBUF/$frozen/;
print $template; # do a "print $q->header" at top