#!/usr/bin/perl -w
#-----------------------------------------------
# Login version 1
#
# Purpose: Receive username and password through
# CGI, and prints them in an HTML document
#
# Author: H.L. Hiew
# Created: 10/07/2000
# Last modified: 10/08/2001
#
#-----------------------------------------------
# Load the standard CGI module
use CGI qw(:standard) ;
# get the user-supplied name and passwd through CGI
my $username = param("name") ;
my $passwd = param("passwd") ;
# print the values as HTML document
print "Content-type: text/html \n\n" ;
print "" ;
print "" ;
print "Login Page version 1 <\/h2>" ;
# notice I have to escape
# the "/" by
# using "\/", since "/" has special
# meaning in Perl.
print "
" ;
print "
Username is $username <\/p>" ;
print "
Password is $passwd <\/p>" ;
print "<\/body>" ;
print "<\/html>" ;