version 1.35, 2004/02/21 01:31:04
|
version 1.39, 2004/03/26 17:11:37
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Internal Server Error Handler |
|
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1 Gerd Kortemeyer |
|
# |
|
# 2/13/02 2/14 2/15 Matthew Hall |
# 2/13/02 2/14 2/15 Matthew Hall |
# |
# |
# This package uses the "londes.js" javascript code. |
# This package uses the "londes.js" javascript code. |
Line 63 use Apache::lonlocal;
|
Line 53 use Apache::lonlocal;
|
################################################## |
################################################## |
sub des_keys { |
sub des_keys { |
# Make a new key for DES encryption. |
# Make a new key for DES encryption. |
# Each key has two parts which are returned seperately. |
# Each key has two parts which are returned separately. |
# Please note: Each key must be passed through the &hex function |
# Please note: Each key must be passed through the &hex function |
# before it is output to the web browser. The hex versions cannot |
# before it is output to the web browser. The hex versions cannot |
# be used to decrypt. |
# be used to decrypt. |
Line 503 sub passwordchanger {
|
Line 493 sub passwordchanger {
|
$errormessage |
$errormessage |
|
|
<p> |
<p> |
<!-- We seperate the forms into 'server' and 'client' in order to |
<!-- We separate the forms into 'server' and 'client' in order to |
ensure that unencrypted passwords will not be sent out by a |
ensure that unencrypted passwords will not be sent out by a |
crappy browser --> |
crappy browser --> |
|
|
Line 740 sub handler {
|
Line 730 sub handler {
|
subroutine => \&verify_and_change_colors, |
subroutine => \&verify_and_change_colors, |
})); |
})); |
push (@Options,({ action => 'changelanguages', |
push (@Options,({ action => 'changelanguages', |
linktext => 'Change Language Prefences', |
linktext => 'Change Language Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
breadcrumb=> |
breadcrumb=> |
{ href => '/adm/preferences?action=changelanguages', |
{ href => '/adm/preferences?action=changelanguages', |
Line 770 ENDHEADER
|
Line 760 ENDHEADER
|
my $printmenu = 'yes'; |
my $printmenu = 'yes'; |
foreach my $option (@Options) { |
foreach my $option (@Options) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
&Apache::lonnet::logthis('got action '.$option->{'action'}); |
|
$call = $option->{'subroutine'}; |
$call = $option->{'subroutine'}; |
$printmenu = $option->{'printmenu'}; |
$printmenu = $option->{'printmenu'}; |
if (exists($option->{'breadcrumb'})) { |
if (exists($option->{'breadcrumb'})) { |
Line 788 ENDHEADER
|
Line 777 ENDHEADER
|
if ($printmenu eq 'yes') { |
if ($printmenu eq 'yes') { |
my $optionlist = '<table cellpadding="5">'; |
my $optionlist = '<table cellpadding="5">'; |
if ($ENV{'user.name'} =~ |
if ($ENV{'user.name'} =~ |
/^(albertel|koretemey|korte|hallmat3|turtle)$/ |
/^(albertel|kortemey|korte|hallmat3|turtle)$/ |
) { |
) { |
push (@Options,({ action => 'debugtoggle', |
push (@Options,({ action => 'debugtoggle', |
linktext => 'Toggle Debug Messages', |
linktext => 'Toggle Debug Messages', |