version 1.272, 2008/12/28 22:12:10
|
version 1.273, 2009/01/05 15:37:21
|
Line 769 $lt{'hs'}: $home_server_pick
|
Line 769 $lt{'hs'}: $home_server_pick
|
my $authtype = $rules->{$matchedrule}{'authtype'}; |
my $authtype = $rules->{$matchedrule}{'authtype'}; |
if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) { |
if ($authtype !~ /^(krb4|krb5|int|fsys|loc)$/) { |
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); |
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); |
} else { |
} else { |
my $authparm = $rules->{$matchedrule}{'authparm'}; |
my $authparm = $rules->{$matchedrule}{'authparm'}; |
|
$authmsg = $rules->{$matchedrule}{'authmsg'}; |
if ($authtype =~ /^krb(4|5)$/) { |
if ($authtype =~ /^krb(4|5)$/) { |
my $ver = $1; |
my $ver = $1; |
if ($authparm ne '') { |
if ($authparm ne '') { |
Line 779 $lt{'hs'}: $home_server_pick
|
Line 780 $lt{'hs'}: $home_server_pick
|
<input type="hidden" name="krbver" value="$ver" /> |
<input type="hidden" name="krbver" value="$ver" /> |
<input type="hidden" name="krbarg" value="$authparm" /> |
<input type="hidden" name="krbarg" value="$authparm" /> |
KERB |
KERB |
$authmsg = $rules->{$matchedrule}{'authmsg'}; |
|
} |
} |
} else { |
} else { |
$fixedauth = |
$fixedauth = |
Line 788 KERB
|
Line 788 KERB
|
$fixedauth .= |
$fixedauth .= |
'<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n"; |
'<input type="hidden" name="'.$authtype.'arg" value="'.$authparm.'" />'."\n"; |
} else { |
} else { |
$varauth = |
if ($authtype eq 'int') { |
|
$varauth = '<br />'. |
|
&mt('[_1] Internally authenticated (with initial password [_2])','','<input type="password" size="10" name="intarg" value="" />')."<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>'; |
|
} elsif ($authtype eq 'loc') { |
|
$varauth = '<br />'. |
|
&mt('[_1] Local Authentication with argument [_2]','','<input type="text" name="'.$authtype.'arg" value="" />')."\n"; |
|
} else { |
|
$varauth = |
'<input type="text" name="'.$authtype.'arg" value="" />'."\n"; |
'<input type="text" name="'.$authtype.'arg" value="" />'."\n"; |
|
} |
} |
} |
} |
} |
} |
} |