##################################################################### # script: html.pl # # sub html_footer # # # # add line # # # # Where to put it-- # # after # # print qq!| Admin ! if ($per_admin); ############################################################################### print qq!| Change Password ! unless ($db_userid eq "default"); ############################################################################### # script: html.pl # # sub html_change_password_form # # # # new subroutine # ############################################################################### sub html_change_password_form { # -------------------------------------------------------- # This form is displayed when users want to change their password. # my $error = shift; &html_print_headers; print qq| $html_title: Change Password.
$html_title: Change Password

<$font_title>Change Password

<$font>To change your password, simply enter old password and your new password twice in the fields below. You will then be asked to log in again, using your new password.

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

"; } print qq|
Old Password:
New Password:
Enter it again:

|; } sub html_change_password_success { # -------------------------------------------------------- &html_print_headers; print qq| $html_title: Password Changed
$html_title: Password Changed

<$font_title>Password Changed

<$font>Your password has been changed! Please use your username and new password to log in.

User ID:
Password:

|; }