version 1.13, 2002/09/11 18:26:41
|
version 1.14, 2002/09/13 19:32:09
|
Line 106 sub screennamechanger {
|
Line 106 sub screennamechanger {
|
my $r = shift; |
my $r = shift; |
my $user = $ENV{'user.name'}; |
my $user = $ENV{'user.name'}; |
my $domain = $ENV{'user.domain'}; |
my $domain = $ENV{'user.domain'}; |
my %userenv = &Apache::lonnet::get('environment',['screenname']); |
my %userenv = &Apache::lonnet::get |
|
('environment',['screenname','nickname']); |
my $screenname=$userenv{'screenname'}; |
my $screenname=$userenv{'screenname'}; |
|
my $nickname=$userenv{'nickname'}; |
my $bodytag=&Apache::loncommon::bodytag( |
my $bodytag=&Apache::loncommon::bodytag( |
'Change Your Anonymous Screen Name'); |
'Change Your Nickname and Anonymous Screen Name'); |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<html> |
<html> |
$bodytag |
$bodytag |
|
|
<form name="server" action="/adm/preferences" method="post"> |
<form name="server" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
New screenname: |
<br />New screenname (shown if you post anonymously): |
<input type="text" size="20" value="$screenname" name="screenname" /> |
<input type="text" size="20" value="$screenname" name="screenname" /> |
|
<br />New nickname (shown if you post non-anonymously): |
|
<input type="text" size="20" value="$nickname" name="nickname" /> |
<input type="submit" value="Change" /> |
<input type="submit" value="Change" /> |
</form> |
</form> |
</body> |
</body> |
Line 129 sub verify_and_change_screenname {
|
Line 133 sub verify_and_change_screenname {
|
my $r = shift; |
my $r = shift; |
my $user = $ENV{'user.name'}; |
my $user = $ENV{'user.name'}; |
my $domain = $ENV{'user.domain'}; |
my $domain = $ENV{'user.domain'}; |
|
# Screenname |
my $newscreen = $ENV{'form.screenname'}; |
my $newscreen = $ENV{'form.screenname'}; |
$newscreen=~s/\W//g; |
$newscreen=~s/[^ \w]//g; |
my $message=''; |
my $message=''; |
if ($newscreen) { |
if ($newscreen) { |
&Apache::lonnet::put('environment',{'screenname' => $newscreen}); |
&Apache::lonnet::put('environment',{'screenname' => $newscreen}); |
Line 141 sub verify_and_change_screenname {
|
Line 146 sub verify_and_change_screenname {
|
&Apache::lonnet::delenv('environment\.screenname'); |
&Apache::lonnet::delenv('environment\.screenname'); |
$message='Reset screenname'; |
$message='Reset screenname'; |
} |
} |
|
# Nickname |
|
$message.='<br />'; |
|
my $newscreen = $ENV{'form.nickname'}; |
|
$newscreen=~s/[^ \w]//g; |
|
if ($newscreen) { |
|
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
|
&Apache::lonnet::appenv('environment.nickname' => $newscreen); |
|
$message.='Set new nickname to '.$newscreen; |
|
} else { |
|
&Apache::lonnet::del('environment',['nickname']); |
|
&Apache::lonnet::delenv('environment\.nickname'); |
|
$message.='Reset nickname'; |
|
} |
|
|
my $bodytag=&Apache::loncommon::bodytag( |
my $bodytag=&Apache::loncommon::bodytag( |
'Change Your Anonymous Screen Name'); |
'Change Your Nickname and Anonymous Screen Name'); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
<html> |
<html> |
$bodytag |
$bodytag |
Line 472 ENDHEADER
|
Line 491 ENDHEADER
|
if ($currentauth =~ /^(unix|internal):/) { |
if ($currentauth =~ /^(unix|internal):/) { |
$r->print(<<ENDPASSWORDFORM); |
$r->print(<<ENDPASSWORDFORM); |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changepass"> |
<input type="hidden" name="action" value="changepass" /> |
<input type="submit" value="Change password"> |
<input type="submit" value="Change password" /> |
</form> |
</form> |
ENDPASSWORDFORM |
ENDPASSWORDFORM |
} |
} |
# Change screen name |
# Change screen name |
$r->print(<<ENDSCREENNAMEFORM); |
$r->print(<<ENDSCREENNAMEFORM); |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changescreenname"> |
<input type="hidden" name="action" value="changescreenname" /> |
<input type="submit" value="Change anonymous discussion screen name"> |
<input type="submit" |
|
value="Change nickname and anonymous discussion screen name" /> |
</form> |
</form> |
ENDSCREENNAMEFORM |
ENDSCREENNAMEFORM |
$r->print(<<ENDMSGFORWARDFORM); |
$r->print(<<ENDMSGFORWARDFORM); |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changemsgforward"> |
<input type="hidden" name="action" value="changemsgforward" /> |
<input type="submit" value="Change message forwarding address"> |
<input type="submit" value="Change message forwarding address" /> |
</form> |
</form> |
ENDMSGFORWARDFORM |
ENDMSGFORWARDFORM |
# The "about me" page |
# The "about me" page |
Line 495 ENDMSGFORWARDFORM
|
Line 515 ENDMSGFORWARDFORM
|
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
$r->print(<<ENDABOUTME); |
$r->print(<<ENDABOUTME); |
<form name="client" action="$aboutmeaction" method="post"> |
<form name="client" action="$aboutmeaction" method="post"> |
<input type="hidden" name="action" value="changescreenname"> |
<input type="hidden" name="action" value="changescreenname" /> |
<input type="submit" value="Edit the 'About Me' Personal Information Screen"> |
<input type="submit" value="Edit the 'About Me' Personal Information Screen" /> |
</form> |
</form> |
ENDABOUTME |
ENDABOUTME |
# Other preference setting code should be added here |
# Other preference setting code should be added here |