version 1.20, 2001/11/16 06:23:11
|
version 1.21, 2001/11/16 07:00:53
|
Line 346 ENDNUSER
|
Line 346 ENDNUSER
|
$loginscript=~s/vf\.krbdom\.value='.*?';/vf.krbdom.value='$krbdefdom2';/; |
$loginscript=~s/vf\.krbdom\.value='.*?';/vf.krbdom.value='$krbdefdom2';/; |
} |
} |
# minor script hack here |
# minor script hack here |
$loginscript=~s/login\[3\]/login\[4\]/; |
# $loginscript=~s/login\[3\]/login\[4\]/; # loc |
$loginscript=~s/login\[2\]/login\[3\]/; |
# $loginscript=~s/login\[2\]/login\[3\]/; # fsys |
$loginscript=~s/login\[1\]/login\[2\]/; |
# $loginscript=~s/login\[1\]/login\[2\]/; # int |
$loginscript=~s/login\[0\]/login\[1\]/; |
# $loginscript=~s/login\[0\]/login\[1\]/; # krb4 |
|
|
$r->print(<<END); |
|
<hr /> |
|
$loginscript |
|
END |
|
unless ($currentauth=~/^krb4:/ or |
unless ($currentauth=~/^krb4:/ or |
$currentauth=~/^unix:/ or |
$currentauth=~/^unix:/ or |
$currentauth=~/^internal:/ or |
$currentauth=~/^internal:/ or |
$currentauth=~/^localauth:/ |
$currentauth=~/^localauth:/ |
) { |
) { |
$r->print(<<END); |
$r->print(<<END); |
|
<hr /> |
|
$loginscript |
<font color='#ff0000'>ERROR:</font> |
<font color='#ff0000'>ERROR:</font> |
This user has an unrecognized authentication scheme ($currentauth). |
This user has an unrecognized authentication scheme ($currentauth). |
Please specify login data below. |
Please specify login data below. |
Line 378 END
|
Line 376 END
|
if ($currentauth=~/^krb4:/) { |
if ($currentauth=~/^krb4:/) { |
$authformcurrent=$authformkrb; |
$authformcurrent=$authformkrb; |
$authformother=$authformint.$authformfsys.$authformloc; |
$authformother=$authformint.$authformfsys.$authformloc; |
|
# embarrassing script hack here |
|
$loginscript=~s/login\[3\]/login\[4\]/; # loc |
|
$loginscript=~s/login\[2\]/login\[3\]/; # fsys |
|
$loginscript=~s/login\[1\]/login\[2\]/; # int |
|
$loginscript=~s/login\[0\]/login\[1\]/; # krb4 |
} |
} |
elsif ($currentauth=~/^internal:/) { |
elsif ($currentauth=~/^internal:/) { |
$authformcurrent=$authformint; |
$authformcurrent=$authformint; |
$authformother=$authformkrb.$authformfsys.$authformloc; |
$authformother=$authformkrb.$authformfsys.$authformloc; |
|
# embarrassing script hack here |
|
$loginscript=~s/login\[3\]/login\[4\]/; # loc |
|
$loginscript=~s/login\[2\]/login\[3\]/; # fsys |
|
$loginscript=~s/login\[1\]/login\[1\]/; # int |
|
$loginscript=~s/login\[0\]/login\[2\]/; # krb4 |
} |
} |
elsif ($currentauth=~/^unix:/) { |
elsif ($currentauth=~/^unix:/) { |
$authformcurrent=$authformfsys; |
$authformcurrent=$authformfsys; |
$authformother=$authformkrb.$authformint.$authformloc; |
$authformother=$authformkrb.$authformint.$authformloc; |
|
# embarrassing script hack here |
|
$loginscript=~s/login\[3\]/login\[4\]/; # loc |
|
$loginscript=~s/login\[1\]/login\[3\]/; # int |
|
$loginscript=~s/login\[2\]/login\[1\]/; # fsys |
|
$loginscript=~s/login\[0\]/login\[2\]/; # krb4 |
} |
} |
elsif ($currentauth=~/^localauth:/) { |
elsif ($currentauth=~/^localauth:/) { |
$authformcurrent=$authformloc; |
$authformcurrent=$authformloc; |
$authformother=$authformkrb.$authformint.$authformfsys; |
$authformother=$authformkrb.$authformint.$authformfsys; |
|
# embarrassing script hack here |
|
$loginscript=~s/login\[3\]/login\[loc\]/; # loc |
|
$loginscript=~s/login\[2\]/login\[4\]/; # fsys |
|
$loginscript=~s/login\[1\]/login\[3\]/; # int |
|
$loginscript=~s/login\[0\]/login\[2\]/; # krb4 |
|
$loginscript=~s/login\[loc\]/login\[1\]/; # loc |
} |
} |
$authformcurrent=<<END; |
$authformcurrent=<<END; |
<table border='1'> |
<table border='1'> |
Line 402 END
|
Line 421 END
|
</table> |
</table> |
END |
END |
$r->print(<<END); |
$r->print(<<END); |
|
<hr /> |
|
$loginscript |
<h3>Change Current Login Data</h3> |
<h3>Change Current Login Data</h3> |
$generalrule |
$generalrule |
$authformnop |
$authformnop |
Line 583 ENDTHREEHEAD
|
Line 604 ENDTHREEHEAD
|
$r->print('Modifying authentication: '. |
$r->print('Modifying authentication: '. |
&Apache::lonnet::modifyuserauth( |
&Apache::lonnet::modifyuserauth( |
$ENV{'form.cdomain'},$ENV{'form.cuname'}, |
$ENV{'form.cdomain'},$ENV{'form.cuname'}, |
$amode,$genpwd); |
$amode,$genpwd)); |
$r->print('<br>Home server: '.&Apache::lonnet::homeserver |
$r->print('<br>Home server: '.&Apache::lonnet::homeserver |
($ENV{'form.cuname'},$ENV{'form.cdomain'})); |
($ENV{'form.cuname'},$ENV{'form.cdomain'})); |
|
|