#!/usr/local/bin/perl

#Check for the right password.
# if given, display link to add homework
#by Andy Harris/ 8/30/96

require "cgi-lib.pl";

#Get value from form
&ReadParse (*input);
$password = $input{'TxtPass'};

#used to test from command line
#$password = <STDIN>;
#chop ($password);

print &PrintHeader;
print "<h1>Results of password check</h1>";

print "<br>";
print "You said $password<br>";
if ($password eq "safex") {
  #A legitimate user!;
  print "<a href =http://klingon.cs.iupui.edu/~aharris/math/hwform.html>";
  print "Add</a> a homework assignment <br>";
} else {
  #they shouldn't be here!
    print "You did not enter the proper password.</br>";
}