#!/usr/bin/perl

require "cgi-lib.pl";

MAIN:
{
        if (&ReadParse(*input)) 
            {&ProcessForm;}
        else
             {&ShowForm;}
}

sub ShowForm
{
# Contains option to display form
     print &PrintHeader;
     print &HtmlTop("Reset Array of Values");
     print <<STUFF;
<CENTER>
<form><p>

Enter password: <input type=password name=pwd><p>
<input type=submit VALUE="Zero out results">&nbsp;&nbsp;&nbsp;<input type=reset VALUE=RESET>

</form>
</CENTER><p><hr><p>
Last updated 98/11/24<br>
&#169; <A HREF="mailto:cs3604\@ei.cs.vt.edu">J.A.N. Lee</A>, 1998.<p>

STUFF

     print &HtmlBot;
}

sub ProcessForm
{

     print &PrintHeader;
     print &HtmlTop("Resetting Values Survey Results");

       if ($input{'pwd'} ne "babbage") {# check password
              print "<h1>UNAUTHORIZED ENTRY, TRY AGAIN</h1>"
               }
else {

# set up blank array of zeros separated by blanks

$zero = 0.0;

open(sfile,  ">values");
   print(sfile " ");
   for ($i=1; $i<22; $i++) {
          print(sfile $zero);
          print(sfile " ")
     } #end for
close(sfile);

#open(rfile, "<values");
#read(rfile,  $b,256);
#@reread=split(/ /,$b);
#print @reread,"<p>";

#for ($i=1; $i<22; $i++){
#print "reread[$i] = ", $reread[$i], "<p>"
#   } # end for
close(rfile);

    print "<h2>Survey Results Reset to Zero<br> Click BACK button to Return to Survey</h2><p>";

    print &HtmlBot
} #end else
}