|
version 1.15, 2002/10/14 20:41:07
|
version 1.17, 2002/12/03 19:57:26
|
|
Line 148 sub verify_and_change_screenname {
|
Line 148 sub verify_and_change_screenname {
|
| } |
} |
| # Nickname |
# Nickname |
| $message.='<br />'; |
$message.='<br />'; |
| my $newscreen = $ENV{'form.nickname'}; |
$newscreen = $ENV{'form.nickname'}; |
| $newscreen=~s/[^ \w]//g; |
$newscreen=~s/[^ \w]//g; |
| if ($newscreen) { |
if ($newscreen) { |
| &Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
|
Line 378 ENDHEADER
|
Line 378 ENDHEADER
|
| "Password data was blank.\n</p>"); |
"Password data was blank.\n</p>"); |
| return; |
return; |
| } |
} |
| # Get the keysecen my $lonhost = $r->dir_config('lonHostID'); |
# Get the keys |
| |
my $lonhost = $r->dir_config('lonHostID'); |
| my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); |
my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); |
| if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) { |
if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) { |
| # I do not a have a better idea about how to handle this |
# I do not a have a better idea about how to handle this |
|
Line 393 ENDERROR
|
Line 394 ENDERROR
|
| } |
} |
| my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
| # |
# |
| my $currentpass = &des_decrypt($ckey ,$currentpass); |
$currentpass = &des_decrypt($ckey ,$currentpass); |
| my $newpass1 = &des_decrypt($n1key,$newpass1); |
$newpass1 = &des_decrypt($n1key,$newpass1); |
| my $newpass2 = &des_decrypt($n2key,$newpass2); |
$newpass2 = &des_decrypt($n2key,$newpass2); |
| # |
# |
| if ($newpass1 ne $newpass2) { |
if ($newpass1 ne $newpass2) { |
| &passwordchanger($r, |
&passwordchanger($r, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface