version 1.10, 2008/10/04 00:09:18
|
version 1.11, 2008/11/28 18:28:52
|
Line 58 sub handler {
|
Line 58 sub handler {
|
{ |
{ |
'no_inline_link' => 1,}); |
'no_inline_link' => 1,}); |
$r->print($start_page); |
$r->print($start_page); |
$r->print(&mt('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>')); |
$r->print('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>'); |
my $output; |
my $output; |
if ($token) { |
if ($token) { |
$output = &reset_passwd($r,$token,$contact_name,$contact_email); |
$output = &reset_passwd($r,$token,$contact_name,$contact_email); |
Line 150 sub get_uname {
|
Line 150 sub get_uname {
|
sub send_token { |
sub send_token { |
my ($uname,$udom,$email,$server,$domdesc,$contact_name, |
my ($uname,$udom,$email,$server,$domdesc,$contact_name, |
$contact_email) = @_; |
$contact_email) = @_; |
my $msg = &mt('Thank you for your request to reset the password for your |
my $msg = &mt('Thank you for your request to reset the password for your LON-CAPA account.').'<br /><br />'; |
LON-CAPA account.').'<br /><br />'; |
|
|
|
my $now = time; |
my $now = time; |
my $temppasswd = &create_passwd(); |
my $temppasswd = &create_passwd(); |