#! /srvtools/http/bin/perl
#############################################################################
#  
#   File:          Retry.pl
#
#   Author:        Jungmin Kim
#
#   Created:       03/05/95
#   Modified:      March 23 1995 by Paul Coddington
#   Version: 
#
#   Input:         VOID
#   Output:        HTML text with fill-out forms
#          
#
#   Description:   Same as function &Entry(). This function is
#                  invoked when the first trial of entering pass word is
#                  failed.
#
#
#############################################################################


sub Retry{
local($user, $subdir) = @_;

print "Content-type\: text/html\n\n";
print "\n";
print "<TITLE> WeBBoard - a Networked Discussion and Bulletin Board System</TITLE>\n";
print "<H1> Welcome to WeBBoard</H1><P>\n";
print "<H2> <i>A Web-based Discussion and Bulletin Board System</i> </H2><P>\n";
print "<HR><P>\n";
print "<FORM METHOD=\"POST\" ACTION=\"${action}\/$subdir\:check\">\n";
print "<H2>AUTHENTICATION FAILED! PLEASE TRY AGAIN.</H2>\n";
print "If you are an authorized forum participant, please \n";
print "enter your name and your authorization password. <P>\n";
print "If you wish to enter a forum as a guest, type in <tt>guest</tt> \n";
print "as a user name. No password is needed. \n";
print "Guests can read but not write information on WeBBoard. <P>\n";
print "<P>\n";
print "<HR>\n";
print "<P>\n";
print "<UL>\n";
print "<LI>\n";
print "<b>Please type in your username </b>\: \n";
print "<INPUT SIZE=25 NAME=\"username\" VALUE=\"$user\"><br>\n";
print "<LI>\n";
print "<b>Please type in your password </b>\: \n";
print "<INPUT TYPE=\"password\" SIZE=25 NAME=\"passwd\" VALUE=\"\">\n";
print "</UL>\n";
print "<P>\n";
print "Press the submit button to begin reading WeBBoard\: ";
print "<INPUT TYPE=\"submit\" VALUE=\"SUBMIT\">\n";
print "</FORM>\n";
print "<P>\n";
print "<B><A HREF=\"$help/help-entry.html\">\n";
print "[GET HELP]</A></B>\n";
print "<P>\n";
print "<HR>\n";

# Address and copyright
Address();

}
1;

