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

<$font_title>Change Email Address

<$font>To change your email address, simply enter your new email address in the field below. You will then be asked to log in again, using the new password you will receive at your new address.

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

"; } print qq|
Email address:

|; } sub html_change_email_success { # -------------------------------------------------------- &html_print_headers; print qq| $html_title: Email Address Changed
$html_title: Email Address Changed

<$font_title>Email Address Changed

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

User ID:
Password:

|; }