#!/usr/bin/perl
#
# Login CGI

use CGI ':standard';    

# send required HTTP response header and blank line.
print "Content-type: text/html\n\n";

# Get the name and password from the query
$user =param('name');
$pw = param('password');


# Make sure the name and password are correct
if (($user eq "dave") && ($pw eq "eiw")) {
   print "<H1>Welcome $user, you are valid.</H1>\n";
} else {
   print "<H1>You are not valid!</H1>\n";  
   sendfile("form.html");
}


sub sendfile() {
   my($filename) = $_[0];
   open(F,$filename);
   while (<F>) {
       print;
   }
   close(F);
}