version 1.410.2.1, 2009/05/13 03:01:49
|
version 1.410.2.2, 2009/10/09 12:36:10
|
Line 1781 sub change_password_handler {
|
Line 1781 sub change_password_handler {
|
# npass - New password. |
# npass - New password. |
# context - Context in which this was called |
# context - Context in which this was called |
# (preferences or reset_by_email). |
# (preferences or reset_by_email). |
|
# lonhost - HostID of server where request originated |
|
|
my ($udom,$uname,$upass,$npass,$context)=split(/:/,$tail); |
my ($udom,$uname,$upass,$npass,$context,$lonhost)=split(/:/,$tail); |
|
|
$upass=&unescape($upass); |
$upass=&unescape($upass); |
$npass=&unescape($npass); |
$npass=&unescape($npass); |
Line 1791 sub change_password_handler {
|
Line 1792 sub change_password_handler {
|
# First require that the user can be authenticated with their |
# First require that the user can be authenticated with their |
# old password unless context was 'reset_by_email': |
# old password unless context was 'reset_by_email': |
|
|
my $validated; |
my ($validated,$failure); |
if ($context eq 'reset_by_email') { |
if ($context eq 'reset_by_email') { |
$validated = 1; |
if ($lonhost eq '') { |
|
$failure = 'invalid_client'; |
|
} else { |
|
$validated = 1; |
|
} |
} else { |
} else { |
$validated = &validate_user($udom, $uname, $upass); |
$validated = &validate_user($udom, $uname, $upass); |
} |
} |
Line 1807 sub change_password_handler {
|
Line 1812 sub change_password_handler {
|
$salt=substr($salt,6,2); |
$salt=substr($salt,6,2); |
my $ncpass=crypt($npass,$salt); |
my $ncpass=crypt($npass,$salt); |
if(&rewrite_password_file($udom, $uname, "internal:$ncpass")) { |
if(&rewrite_password_file($udom, $uname, "internal:$ncpass")) { |
&logthis("Result of password change for " |
my $msg="Result of password change for $uname: pwchange_success"; |
."$uname: pwchange_success"); |
if ($lonhost) { |
|
$msg .= " - request originated from: $lonhost"; |
|
} |
|
&logthis($msg); |
&Reply($client, "ok\n", $userinput); |
&Reply($client, "ok\n", $userinput); |
} else { |
} else { |
&logthis("Unable to open $uname passwd " |
&logthis("Unable to open $uname passwd " |
Line 1829 sub change_password_handler {
|
Line 1837 sub change_password_handler {
|
} |
} |
|
|
} else { |
} else { |
&Failure( $client, "non_authorized\n", $userinput); |
if ($failure eq '') { |
|
$failure = 'non_authorized'; |
|
} |
|
&Failure( $client, "$failure\n", $userinput); |
} |
} |
|
|
return 1; |
return 1; |