version 1.5, 2002/03/30 17:59:34
|
version 1.6, 2002/03/30 23:27:00
|
Line 105 sub screennamechanger {
|
Line 105 sub screennamechanger {
|
my $user = $ENV{'user.name'}; |
my $user = $ENV{'user.name'}; |
my $domain = $ENV{'user.domain'}; |
my $domain = $ENV{'user.domain'}; |
my $homeserver = $ENV{'user.home'}; |
my $homeserver = $ENV{'user.home'}; |
|
my %userenv = &Apache::lonnet::get('environment',['screenname']); |
|
my $screenname=$userenv{'screenname'}; |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<html> |
<html> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
Line 114 $errormessage
|
Line 116 $errormessage
|
<p> |
<p> |
Change anonymous discussion screen name for $user |
Change anonymous discussion screen name for $user |
</p> |
</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> |
</body> |
</html> |
</html> |
ENDSCREEN |
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) { |
|
my %tmp; |
|
$tmp{'screenname'}=$newscreen; |
|
&Apache::lonnet::put('environment',\%tmp); |
|
$message='Set new screenname to '.$newscreen; |
|
} else { |
|
&Apache::lonnet::del('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 356 sub handler {
|
Line 396 sub handler {
|
&verify_and_change_password($r); |
&verify_and_change_password($r); |
} elsif ($ENV{'form.action'} eq 'changescreenname') { |
} elsif ($ENV{'form.action'} eq 'changescreenname') { |
&screennamechanger($r); |
&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> |