$html_title: Login.

############################################################################### # These are replacement subroutines and new subroutines to be placed in the # # html.pl file with the secure password lookup mod. # # # # Use these if you are using the default html.pl file. # ############################################################################### ############################################################################### # Replace the following subroutines # # # ############################################################################### sub html_login_form { # -------------------------------------------------------- # The login screen. &html_print_headers; print qq| $html_title: Login.

$html_title: Login

<$font_title>Log On
<$font>Welcome! You need to have an active account to access $html_title. For the demo, you can use userid/passwords: 'admin/admin', 'author/author', 'guest/guest'.
|; if ($auth_signup) { print qq| If you do not yet have an account, you may sign up for one here.
|; } print qq| If you have forgotten your password, you may receive another password here.

|; } sub html_login_failure { # -------------------------------------------------------- # There was an error logging in. The error message is stored in $message. my ($message) = $_[0]; &html_print_headers; print qq| $html_title: Login Error.

$html_title: Login Error

<$font_title>Log On Error
<$font>Oops, there was a problem logging into the system: $message.

Please try logging in again, or contact the system administrator.
|; if ($auth_signup) { print qq| If you do not yet have an account, you may sign up for one here.
|; } print qq| If you have forgotten your password, you may receive another password here.

|; } sub html_admin_display { # -------------------------------------------------------- # The displays the list of current users. my ($message, $user_list, $password, $permissions, $email) = @_; &html_print_headers; print qq| $html_title: User Management.

$html_title: User Management

<$font_title>User Management

<$font>$message

|; &html_footer; print qq|

|; } sub html_signup_form { # -------------------------------------------------------- # This form is displayed for new users who want to create an account. # my $error = shift; &html_print_headers; print qq| $html_title: Create Account.

$html_title: Create Account

<$font_title>Create Account
<$font>To create your own account, simply enter in your desired username and your email address. Your password will be mailed to you at the address you enter.

|; if ($error) { print "$error

"; } print qq|

|; } sub html_signup_success { # -------------------------------------------------------- # The user has successfully created a new account. &html_print_headers; print qq| $html_title: Account Created.

$html_title: Account Created

<$font_title>Account Created
<$font>Your account has been set up! After you receive your password, use your username and password to log in.

|; } ############################################################################### # Add the following subroutines to html.pl # ############################################################################### sub html_lookup_form { # -------------------------------------------------------- # This form is displayed when users want a new password. # my $error = shift; &html_print_headers; print qq| $html_title: Get a New Password.

$html_title: Get a New Password

<$font_title>Get a New Password
<$font>To have a new password sent to you, simply enter the same email address you used when you signed up for your account. Your password will be mailed to you at the address you enter.

|; if ($error) { print "$error

"; } print qq|

|; } sub html_lookup_success { # -------------------------------------------------------- &html_print_headers; print qq| $html_title: New Password Sent.

$html_title: New Password Sent

<$font_title>New Password Sent
<$font>Your new password has been sent! After you receive your password, use your username and password to log in.

|; }