version 1.17, 2001/05/10 21:13:04
|
version 1.18, 2001/08/24 21:09:53
|
Line 127 function setkrb(vf) {
|
Line 127 function setkrb(vf) {
|
vf.login[0].checked=true; |
vf.login[0].checked=true; |
vf.krbdom.value=vf.krbdom.value.toUpperCase(); |
vf.krbdom.value=vf.krbdom.value.toUpperCase(); |
vf.intpwd.value=''; |
vf.intpwd.value=''; |
|
vf.locarg.value=''; |
} |
} |
} |
} |
|
|
Line 134 function setint(vf) {
|
Line 135 function setint(vf) {
|
if (vf.intpwd.value!='') { |
if (vf.intpwd.value!='') { |
vf.login[1].checked=true; |
vf.login[1].checked=true; |
vf.krbdom.value=''; |
vf.krbdom.value=''; |
|
vf.locarg.value=''; |
|
} |
|
} |
|
|
|
function setloc(vf) { |
|
if (vf.locarg.value!='') { |
|
vf.login[2].checked=true; |
|
vf.krbdom.value=''; |
|
vf.intpwd.value=''; |
} |
} |
} |
} |
|
|
function clickkrb(vf) { |
function clickkrb(vf) { |
vf.krbdom.value='$krbdefdom'; |
vf.krbdom.value='$krbdefdom'; |
vf.intpwd.value=''; |
vf.intpwd.value=''; |
|
vf.locarg.value=''; |
} |
} |
|
|
function clickint(vf) { |
function clickint(vf) { |
vf.krbdom.value=''; |
vf.krbdom.value=''; |
|
vf.locarg.value=''; |
|
} |
|
|
|
function clickloc(vf) { |
|
vf.krbdom.value=''; |
|
vf.intpwd.value=''; |
} |
} |
</script> |
</script> |
<input type=hidden name=makeuser value=1> |
<input type=hidden name=makeuser value=1> |
Line 162 Kerberos authenticated with domain
|
Line 179 Kerberos authenticated with domain
|
<input type=radio name=login value=int onClick="clickint(this.form);"> |
<input type=radio name=login value=int onClick="clickint(this.form);"> |
Internally authenticated (with initial password |
Internally authenticated (with initial password |
<input type=text size=10 name=intpwd onChange="setint(this.form);">) |
<input type=text size=10 name=intpwd onChange="setint(this.form);">) |
|
<p> |
|
<input type=radio name=login value=loc onClick="clickloc(this.form);" /> |
|
Local Authentication with argument |
|
<input type=text size=10 name=locarg onChange="setloc(this.form);" /> |
|
</p> |
ENDNUSER |
ENDNUSER |
} else { |
} else { |
$r->print('<h2>Existing user '.$ccuname.' at '.$ccdomain.'</h2>'); |
$r->print('<h2>Existing user '.$ccuname.' at '.$ccdomain.'</h2>'); |
Line 355 ENDTHREEHEAD
|
Line 377 ENDTHREEHEAD
|
} elsif ($ENV{'form.login'} eq 'int') { |
} elsif ($ENV{'form.login'} eq 'int') { |
$amode='internal'; |
$amode='internal'; |
$genpwd=$ENV{'form.intpwd'}; |
$genpwd=$ENV{'form.intpwd'}; |
} |
} elsif ($ENV{'form.login'} eq 'loc') { |
|
$amode='localauth'; |
|
$genpwd=$ENV{'form.locarg'}; |
|
if (!$genpwd) { $genpwd=" "; } |
|
} |
if (($amode) && ($genpwd)) { |
if (($amode) && ($genpwd)) { |
$r->print('Generating user: '.&Apache::lonnet::modifyuser( |
$r->print('Generating user: '.&Apache::lonnet::modifyuser( |
$ENV{'form.cdomain'},$ENV{'form.cuname'}, |
$ENV{'form.cdomain'},$ENV{'form.cuname'}, |