version 1.93, 2004/12/28 16:10:24
|
version 1.94, 2004/12/28 22:30:28
|
Line 73 my $authformint;
|
Line 73 my $authformint;
|
my $authformfsys; |
my $authformfsys; |
my $authformloc; |
my $authformloc; |
|
|
BEGIN { |
sub initialize_authen_forms { |
$ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; |
my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/); |
my $krbdefdom=$1; |
$krbdefdom= uc($krbdefdom); |
$krbdefdom=~tr/a-z/A-Z/; |
|
my %param = ( formname => 'document.cu', |
my %param = ( formname => 'document.cu', |
kerb_def_dom => $krbdefdom |
kerb_def_dom => $krbdefdom |
); |
); |
Line 397 ENDFORMINFO
|
Line 396 ENDFORMINFO
|
'lg' => "Login Data" |
'lg' => "Login Data" |
); |
); |
my $genhelp=&Apache::loncommon::help_open_topic('Generation'); |
my $genhelp=&Apache::loncommon::help_open_topic('Generation'); |
|
&initialize_authen_forms(); |
$r->print(<<ENDNEWUSER); |
$r->print(<<ENDNEWUSER); |
$dochead |
$dochead |
<h1>$lt{'cnu'}</h1> |
<h1>$lt{'cnu'}</h1> |
Line 674 END
|
Line 674 END
|
$currentauth=~/^localauth:/ |
$currentauth=~/^localauth:/ |
) { # bad authentication scheme |
) { # bad authentication scheme |
if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) { |
|
&initialize_authen_forms(); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'err' => "ERROR", |
'err' => "ERROR", |
'uuas' => "This user has an unrecognized authentication scheme", |
'uuas' => "This user has an unrecognized authentication scheme", |
Line 715 ENDBADAUTH
|
Line 716 ENDBADAUTH
|
} else { # Authentication type is valid |
} else { # Authentication type is valid |
my $authformcurrent=''; |
my $authformcurrent=''; |
my $authform_other=''; |
my $authform_other=''; |
|
&initialize_authen_forms(); |
if ($currentauth=~/^krb(4|5):/) { |
if ($currentauth=~/^krb(4|5):/) { |
$authformcurrent=$authformkrb; |
$authformcurrent=$authformkrb; |
$authform_other="<p>$authformint</p>\n". |
$authform_other="<p>$authformint</p>\n". |