version 1.16, 2002/10/16 19:36:25
|
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 394 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, |