version 1.4, 2002/02/19 21:50:40
|
version 1.7, 2002/04/03 18:47:39
|
Line 98 sub des_decrypt {
|
Line 98 sub des_decrypt {
|
################################################################ |
################################################################ |
# Handler subroutines # |
# Handler subroutines # |
################################################################ |
################################################################ |
|
sub screennamechanger { |
|
my $r = shift; |
|
my $errormessage = shift; |
|
$errormessage = ($errormessage || ''); |
|
my $user = $ENV{'user.name'}; |
|
my $domain = $ENV{'user.domain'}; |
|
my $homeserver = $ENV{'user.home'}; |
|
my %userenv = &Apache::lonnet::get('environment',['screenname']); |
|
my $screenname=$userenv{'screenname'}; |
|
$r->print(<<ENDSCREEN); |
|
<html> |
|
<body bgcolor="#FFFFFF"> |
|
<h1>Preferences for $user</h1> |
|
<h3>$user is a member of domain $domain</h3> |
|
$errormessage |
|
<p> |
|
Change anonymous discussion screen name for $user |
|
</p> |
|
|
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
|
New screenname: |
|
<input type="text" size="20" value="$screenname" name="screenname" /> |
|
<input type="submit" value="Change" /> |
|
</form> |
|
</body> |
|
</html> |
|
ENDSCREEN |
|
} |
|
|
|
sub verify_and_change_screenname { |
|
my $r = shift; |
|
my $user = $ENV{'user.name'}; |
|
my $domain = $ENV{'user.domain'}; |
|
my $homeserver = $ENV{'user.home'}; |
|
my $newscreen = $ENV{'form.screenname'}; |
|
$newscreen=~s/\W//g; |
|
my $message=''; |
|
if ($newscreen) { |
|
&Apache::lonnet::put('environment',{'screenname' => $newscreen}); |
|
&Apache::lonnet::appenv('environment.screenname' => $newscreen); |
|
$message='Set new screenname to '.$newscreen; |
|
} else { |
|
&Apache::lonnet::del('environment',['screenname']); |
|
&Apache::lonnet::delenv('environment\.screenname'); |
|
$message='Reset screenname'; |
|
} |
|
$r->print(<<ENDVCSCREEN); |
|
<html> |
|
<body bgcolor="#FFFFFF"> |
|
<h1>Preferences for $user</h1> |
|
<h3>$user is a member of domain $domain</h3> |
|
<p> |
|
Change anonymous discussion screen name for $user |
|
</p> |
|
$message |
|
</body></html> |
|
ENDVCSCREEN |
|
} |
|
|
###################################################### |
###################################################### |
# password handler subroutines # |
# password handler subroutines # |
Line 335 sub handler {
|
Line 394 sub handler {
|
&passwordchanger($r); |
&passwordchanger($r); |
} elsif ($ENV{'form.action'} eq 'verify_and_change_pass') { |
} elsif ($ENV{'form.action'} eq 'verify_and_change_pass') { |
&verify_and_change_password($r); |
&verify_and_change_password($r); |
|
} elsif ($ENV{'form.action'} eq 'changescreenname') { |
|
&screennamechanger($r); |
|
} elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') { |
|
&verify_and_change_screenname($r); |
} else { |
} else { |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
Line 354 ENDHEADER
|
Line 417 ENDHEADER
|
<input type="submit" value="Change password"> |
<input type="submit" value="Change password"> |
</form> |
</form> |
ENDPASSWORDFORM |
ENDPASSWORDFORM |
|
# Change screen name |
|
$r->print(<<ENDSCREENNAMEFORM); |
|
<form name="client" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="changescreenname"> |
|
<input type="submit" value="Change anonymous discussion screen name"> |
|
</form> |
|
ENDSCREENNAMEFORM |
# Other preference setting code should be added here |
# Other preference setting code should be added here |
} |
} |
} |
} |