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