loncom/interface/loncreateuser.pm - view

File: [LON-CAPA] / loncom / interface / loncreateuser.pm
Revision 1.23: download - view: text, annotated - select for diffs
Sun Jan 6 01:29:52 2002 UTC (22 years, 5 months ago) by harris41
Branches: MAIN
CVS tags: stable_2002_spring, HEAD

sub BEGIN should be BEGIN

1: # The LearningOnline Network with CAPA 2: # Create a user 3: # 4: # $Id: loncreateuser.pm,v 1.23 2002/01/06 01:29:52 harris41 Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # (Create a course 29: # (My Desk 30: # 31: # (Internal Server Error Handler 32: # 33: # (Login Screen 34: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, 35: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) 36: # 37: # YEAR=2001 38: # 3/1/1 Gerd Kortemeyer) 39: # 40: # 3/1 Gerd Kortemeyer) 41: # 42: # 2/14 Gerd Kortemeyer) 43: # 44: # 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer 45: # April Guy Albertelli 46: # 05/10,10/16 Gerd Kortemeyer 47: # 11/12,11/13,11/15 Scott Harrison 48: # 49: # $Id: loncreateuser.pm,v 1.23 2002/01/06 01:29:52 harris41 Exp $ 50: ### 51: 52: package Apache::loncreateuser; 53: 54: use strict; 55: use Apache::Constants qw(:common :http); 56: use Apache::lonnet; 57: 58: my $loginscript; # piece of javascript used in two separate instances 59: my $generalrule; 60: my $authformnop; 61: my $authformkrb; 62: my $authformint; 63: my $authformfsys; 64: my $authformloc; 65: 66: BEGIN { 67: $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; 68: my $krbdefdom=$1; 69: $krbdefdom=~tr/a-z/A-Z/; 70: $authformnop=(<<END); 71: <p> 72: <input type=radio name=login value=nop checked='checked' 73: onClick="clicknop(this.form);"> 74: Do not change login data 75: </p> 76: END 77: $authformkrb=(<<END); 78: <p> 79: <input type=radio name=login value=krb onClick="clickkrb(this.form);"> 80: Kerberos authenticated with domain 81: <input type=text size=10 name=krbdom onChange="setkrb(this.form);"> 82: </p> 83: END 84: $authformint=(<<END); 85: <p> 86: <input type=radio name=login value=int onClick="clickint(this.form);"> 87: Internally authenticated (with initial password 88: <input type=text size=10 name=intpwd onChange="setint(this.form);">) 89: </p> 90: END 91: $authformfsys=(<<END); 92: <p> 93: <input type=radio name=login value=fsys onClick="clickfsys(this.form);"> 94: Filesystem authenticated (with initial password 95: <input type=text size=10 name=fsyspwd onChange="setfsys(this.form);">) 96: </p> 97: END 98: $authformloc=(<<END); 99: <p> 100: <input type=radio name=login value=loc onClick="clickloc(this.form);" /> 101: Local Authentication with argument 102: <input type=text size=10 name=locarg onChange="setloc(this.form);" /> 103: </p> 104: END 105: $loginscript=(<<ENDLOGINSCRIPT); 106: <script> 107: function setkrb(vf) { 108: if (vf.krbdom.value!='') { 109: vf.login[0].checked=true; 110: vf.krbdom.value=vf.krbdom.value.toUpperCase(); 111: vf.intpwd.value=''; 112: vf.fsyspwd.value=''; 113: vf.locarg.value=''; 114: } 115: } 116: 117: function setint(vf) { 118: if (vf.intpwd.value!='') { 119: vf.login[1].checked=true; 120: vf.krbdom.value=''; 121: vf.fsyspwd.value=''; 122: vf.locarg.value=''; 123: } 124: } 125: 126: function setfsys(vf) { 127: if (vf.fsyspwd.value!='') { 128: vf.login[2].checked=true; 129: vf.krbdom.value=''; 130: vf.intpwd.value=''; 131: vf.locarg.value=''; 132: } 133: } 134: 135: function setloc(vf) { 136: if (vf.locarg.value!='') { 137: vf.login[3].checked=true; 138: vf.krbdom.value=''; 139: vf.intpwd.value=''; 140: vf.fsyspwd.value=''; 141: } 142: } 143: 144: function clicknop(vf) { 145: vf.krbdom.value=''; 146: vf.intpwd.value=''; 147: vf.fsyspwd.value=''; 148: vf.locarg.value=''; 149: } 150: 151: function clickkrb(vf) { 152: vf.krbdom.value='$krbdefdom'; 153: vf.intpwd.value=''; 154: vf.fsyspwd.value=''; 155: vf.locarg.value=''; 156: } 157: 158: function clickint(vf) { 159: vf.krbdom.value=''; 160: vf.fsyspwd.value=''; 161: vf.locarg.value=''; 162: } 163: 164: function clickfsys(vf) { 165: vf.krbdom.value=''; 166: vf.intpwd.value=''; 167: vf.locarg.value=''; 168: } 169: 170: function clickloc(vf) { 171: vf.krbdom.value=''; 172: vf.intpwd.value=''; 173: vf.fsyspwd.value=''; 174: } 175: </script> 176: ENDLOGINSCRIPT 177: $generalrule=<<END; 178: <p> 179: <i>As a general rule, only authors or co-authors should be filesystem 180: authenticated (which allows access to the server filesystem).</i> 181: </p> 182: END 183: } 184: 185: # =================================================================== Phase one 186: 187: sub phase_one { 188: my $r=shift; 189: my $defdom=$ENV{'user.domain'}; 190: $r->print(<<ENDDOCUMENT); 191: <html> 192: <head> 193: <title>The LearningOnline Network with CAPA</title> 194: </head> 195: <body bgcolor="#FFFFFF"> 196: <h1>Create User, Change User Privileges</h1> 197: <form action=/adm/createuser method=post> 198: <input type=hidden name=phase value=two> 199: Username: <input type=text size=15 name=ccuname><br> 200: Domain: <input type=text size=15 name=ccdomain value=$defdom><p> 201: <input type=submit value="Continue"> 202: </form> 203: </body> 204: </html> 205: ENDDOCUMENT 206: } 207: 208: # =================================================================== Phase two 209: 210: sub phase_two { 211: my $r=shift; 212: my $ccuname=$ENV{'form.ccuname'}; 213: my $ccdomain=$ENV{'form.ccdomain'}; 214: 215: $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/; 216: my $krbdefdom=$1; 217: $krbdefdom=~tr/a-z/A-Z/; 218: 219: my $defdom=$ENV{'user.domain'}; 220: 221: $ccuname=~s/\W//g; 222: $ccdomain=~s/\W//g; 223: $r->print(<<ENDENHEAD); 224: <html> 225: <head> 226: <title>The LearningOnline Network with CAPA</title> 227: <script> 228: 229: function pclose() { 230: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", 231: "height=350,width=350,scrollbars=no,menubar=no"); 232: parmwin.close(); 233: } 234: 235: function pjump(type,dis,value,marker,ret,call) { 236: parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) 237: +"&value="+escape(value)+"&marker="+escape(marker) 238: +"&return="+escape(ret) 239: +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", 240: "height=350,width=350,scrollbars=no,menubar=no"); 241: 242: } 243: 244: function dateset() { 245: eval("document.cu."+document.cu.pres_marker.value+ 246: ".value=document.cu.pres_value.value"); 247: pclose(); 248: } 249: 250: </script> 251: </head> 252: <body bgcolor="#FFFFFF"> 253: <img align=right src=/adm/lonIcons/lonlogos.gif> 254: <h1>Create User, Change User Privileges</h1> 255: <form action=/adm/createuser method=post name=cu> 256: <input type=hidden name=phase value=three> 257: <input type=hidden name=ccuname value=$ccuname> 258: <input type=hidden name=ccdomain value=$ccdomain> 259: <input type="hidden" value='' name="pres_value"> 260: <input type="hidden" value='' name="pres_type"> 261: <input type="hidden" value='' name="pres_marker"> 262: <input type=hidden name=cuname value="$ccuname"> 263: <input type=hidden name=cdomain value="$ccdomain"> 264: 265: ENDENHEAD 266: my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); 267: my %incdomains; 268: my %inccourses; 269: map { 270: $incdomains{$_}=1; 271: } values %Apache::lonnet::hostdom; 272: map { 273: if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { 274: $inccourses{$1.'_'.$2}=1; 275: } 276: } %ENV; 277: if ($uhome eq 'no_host') { 278: $r->print(<<ENDNUSER); 279: <h2>New user $ccuname at $ccdomain</h2> 280: ENDNUSER 281: $r->print(<<ENDNUSER); 282: $loginscript 283: <input type='hidden' name='makeuser' value='1' /> 284: <h3>Personal Data</h3> 285: First Name: <input type='text' name='cfirst' size='15' /><br /> 286: Middle Name: <input type='text' name='cmiddle' size='15' /><br /> 287: Last Name: <input type='text' name='clast' size='15' /><br /> 288: Generation: <input type='text' name='cgen' size='5' /><p> 289: 290: ID/Student Number: <input type='text' name='cstid' size='10' /></p> 291: 292: <h3>Login Data</h3> 293: $generalrule 294: $authformkrb 295: $authformint 296: $authformfsys 297: $authformloc 298: ENDNUSER 299: } else { 300: $r->print('<h2>Existing user '.$ccuname.' at '.$ccdomain.'</h2>'); 301: 302: my $rolesdump=&Apache::lonnet::reply( 303: "dump:$ccdomain:$ccuname:roles",$uhome); 304: unless ($rolesdump eq 'con_lost') { 305: my $now=time; 306: $r->print('<h4>Revoke Existing Roles</h4>'. 307: '<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'. 308: '<th>Start</th><th>End</th>'); 309: map { 310: if ($_!~/^rolesdef\&/) { 311: 312: my ($area,$role)=split(/=/,$_); 313: my $thisrole=$area; 314: $area=~s/\_\w\w$//; 315: my ($trole,$tend,$tstart)=split(/_/,$role); 316: my $bgcol='ffffff'; 317: my $allows=0; 318: if ($area=~/^\/(\w+)\/(\d\w+)/) { 319: my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2); 320: my $carea='Course: '.$coursedata{'description'}; 321: $inccourses{$1.'_'.$2}=1; 322: if (&Apache::lonnet::allowed('c'.$trole,$1.'/'.$2)) { 323: $allows=1; 324: } 325: $bgcol=$1.'_'.$2; 326: $bgcol=~s/[^8-9b-e]//g; 327: $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); 328: if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) { 329: $carea.='<br>Section/Group: '.$3; 330: } 331: $area=$carea; 332: } else { 333: if ($area=~/^\/(\w+)\//) { 334: if (&Apache::lonnet::allowed('c'.$trole,$1)) { 335: $allows=1; 336: } 337: } else { 338: if (&Apache::lonnet::allowed('c'.$trole,'/')) { 339: $allows=1; 340: } 341: } 342: } 343: 344: my $active=1; 345: if (($tend) && ($now>$tend)) { $active=0; } 346: 347: $r->print('<tr bgcolor=#'.$bgcol.'><td>'); 348: if ($active) { 349: if ($allows) { 350: $r->print( 351: '<input type=checkbox name="rev:'.$thisrole.'">'); 352: } else { 353: $r->print(' '); 354: } 355: } else { 356: $r->print(' '); 357: } 358: $r->print('</td><td>'.&Apache::lonnet::plaintext($trole). 359: '</td><td>'.$area.'</td><td>'. 360: ($tstart?localtime($tstart):' ').'</td><td>'. 361: ($tend?localtime($tend):' ')."</td></tr>\n"); 362: } 363: } split(/&/,$rolesdump); 364: $r->print('</table>'); 365: } 366: my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain); 367: if ($currentauth=~/^krb4:/) { 368: $currentauth=~/^krb4:(.*)/; 369: my $krbdefdom2=$1; 370: $loginscript=~s/vf\.krbdom\.value='.*?';/vf.krbdom.value='$krbdefdom2';/; 371: } 372: # minor script hack here 373: # $loginscript=~s/login\[3\]/login\[4\]/; # loc 374: # $loginscript=~s/login\[2\]/login\[3\]/; # fsys 375: # $loginscript=~s/login\[1\]/login\[2\]/; # int 376: # $loginscript=~s/login\[0\]/login\[1\]/; # krb4 377: 378: unless ($currentauth=~/^krb4:/ or 379: $currentauth=~/^unix:/ or 380: $currentauth=~/^internal:/ or 381: $currentauth=~/^localauth:/ 382: ) { 383: $r->print(<<END); 384: <hr /> 385: $loginscript 386: <font color='#ff0000'>ERROR:</font> 387: This user has an unrecognized authentication scheme ($currentauth). 388: Please specify login data below. 389: <h3>Login Data</h3> 390: $generalrule 391: $authformkrb 392: $authformint 393: $authformfsys 394: $authformloc 395: END 396: } 397: else { 398: my $authformcurrent=''; 399: my $authformother=''; 400: if ($currentauth=~/^krb4:/) { 401: $authformcurrent=$authformkrb; 402: $authformother=$authformint.$authformfsys.$authformloc; 403: # embarrassing script hack here 404: $loginscript=~s/login\[3\]/login\[4\]/; # loc 405: $loginscript=~s/login\[2\]/login\[3\]/; # fsys 406: $loginscript=~s/login\[1\]/login\[2\]/; # int 407: $loginscript=~s/login\[0\]/login\[1\]/; # krb4 408: } 409: elsif ($currentauth=~/^internal:/) { 410: $authformcurrent=$authformint; 411: $authformother=$authformkrb.$authformfsys.$authformloc; 412: # embarrassing script hack here 413: $loginscript=~s/login\[3\]/login\[4\]/; # loc 414: $loginscript=~s/login\[2\]/login\[3\]/; # fsys 415: $loginscript=~s/login\[1\]/login\[1\]/; # int 416: $loginscript=~s/login\[0\]/login\[2\]/; # krb4 417: } 418: elsif ($currentauth=~/^unix:/) { 419: $authformcurrent=$authformfsys; 420: $authformother=$authformkrb.$authformint.$authformloc; 421: # embarrassing script hack here 422: $loginscript=~s/login\[3\]/login\[4\]/; # loc 423: $loginscript=~s/login\[1\]/login\[3\]/; # int 424: $loginscript=~s/login\[2\]/login\[1\]/; # fsys 425: $loginscript=~s/login\[0\]/login\[2\]/; # krb4 426: } 427: elsif ($currentauth=~/^localauth:/) { 428: $authformcurrent=$authformloc; 429: $authformother=$authformkrb.$authformint.$authformfsys; 430: # embarrassing script hack here 431: $loginscript=~s/login\[3\]/login\[loc\]/; # loc 432: $loginscript=~s/login\[2\]/login\[4\]/; # fsys 433: $loginscript=~s/login\[1\]/login\[3\]/; # int 434: $loginscript=~s/login\[0\]/login\[2\]/; # krb4 435: $loginscript=~s/login\[loc\]/login\[1\]/; # loc 436: } 437: $authformcurrent=<<END; 438: <table border='1'> 439: <tr> 440: <td><font color='#ff0000'>* * * WARNING * * *</font></td> 441: <td><font color='#ff0000'>* * * WARNING * * *</font></td> 442: </tr> 443: <tr><td bgcolor='#cbbcbb'>$authformcurrent</td> 444: <td bgcolor='#cbbcbb'>Changing this value will overwrite existing authentication for the user; you should notify the user of this change.</td></tr> 445: </table> 446: END 447: $r->print(<<END); 448: <hr /> 449: $loginscript 450: <h3>Change Current Login Data</h3> 451: $generalrule 452: $authformnop 453: $authformcurrent 454: <h3>Enter New Login Data</h3> 455: $authformother 456: END 457: } 458: } 459: $r->print('<hr /><h3>Add Roles</h3>'); 460: # 461: # Co-Author 462: # 463: 464: if (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) { 465: my $cuname=$ENV{'user.name'}; 466: my $cudom=$ENV{'user.domain'}; 467: $r->print(<<ENDCOAUTH); 468: <h4>Construction Space</h4> 469: <table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th> 470: <th>Start</th><th>End</th></tr> 471: <tr> 472: <td><input type=checkbox name="act_$cudom\_$cuname\_ca"></td> 473: <td>Co-Author</td> 474: <td>$cudom\_$cuname</td> 475: <td><input type=hidden name="start_$cudom\_$cuname\_ca" value=''> 476: <a href= 477: "javascript:pjump('date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset')">Set Start Date</a></td> 478: <td><input type=hidden name="end_$cudom\_$cuname\_ca" value=''> 479: <a href= 480: "javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">Set End Date</a></td> 481: </tr> 482: </table> 483: ENDCOAUTH 484: } 485: # 486: # Domain level 487: # 488: $r->print('<h4>Domain Level</h4>'. 489: '<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. 490: '<th>Start</th><th>End</th></tr>'); 491: map { 492: my $thisdomain=$_; 493: map { 494: if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) { 495: my $plrole=&Apache::lonnet::plaintext($_); 496: $r->print(<<ENDDROW); 497: <tr> 498: <td><input type=checkbox name="act_$thisdomain\_$_"></td> 499: <td>$plrole</td> 500: <td>$thisdomain</td> 501: <td><input type=hidden name="start_$thisdomain\_$_" value=''> 502: <a href= 503: "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thisdomain\_$_.value,'start_$thisdomain\_$_','cu.pres','dateset')">Set Start Date</a></td> 504: <td><input type=hidden name="end_$thisdomain\_$_" value=''> 505: <a href= 506: "javascript:pjump('date_end','End Date $plrole',document.cu.end_$thisdomain\_$_.value,'end_$thisdomain\_$_','cu.pres','dateset')">Set End Date</a></td> 507: </tr> 508: ENDDROW 509: } 510: } ('dc','li','dg','au'); 511: } sort keys %incdomains; 512: $r->print('</table>'); 513: # 514: # Course level 515: # 516: $r->print('<h4>Course Level</h4>'. 517: '<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. 518: '<th>Group/Section</th><th>Start</th><th>End</th></tr>'); 519: map { 520: my $thiscourse=$_; 521: my $protectedcourse=$_; 522: $thiscourse=~s:_:/:g; 523: my %coursedata=&Apache::lonnet::coursedescription($thiscourse); 524: my $area=$coursedata{'description'}; 525: my $bgcol=$thiscourse; 526: $bgcol=~s/[^8-9b-e]//g; 527: $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); 528: map { 529: if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { 530: my $plrole=&Apache::lonnet::plaintext($_); 531: $r->print(" 532: <tr bgcolor=#$bgcol> 533: <td><input type=checkbox name=\"act_$protectedcourse\_$_\"></td> 534: <td>$plrole</td> 535: <td>$area</td> 536: <td>"); 537: if ($_ ne 'cc') { 538: $r->print("<input type=text size=5 name=\"sec_$protectedcourse\_$_\">"); 539: } else { $r->print("&nbsp"); } 540: $r->print(<<ENDROW); 541: <td><input type=hidden name="start_$protectedcourse\_$_" value=''> 542: <a href= 543: "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$_.value,'start_$protectedcourse\_$_','cu.pres','dateset')">Set Start Date</a></td> 544: <td><input type=hidden name="end_$protectedcourse\_$_" value=''> 545: <a href= 546: "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$_.value,'end_$protectedcourse\_$_','cu.pres','dateset')">Set End Date</a></td> 547: </tr> 548: ENDROW 549: } 550: } ('st','ta','ep','ad','in','cc'); 551: } sort keys %inccourses; 552: $r->print('</table>'); 553: $r->print('<input type=submit value="Modify User">'); 554: $r->print('</form></body></html>'); 555: } 556: 557: # ================================================================= Phase Three 558: 559: sub phase_three { 560: my $r=shift; 561: $r->print(<<ENDTHREEHEAD); 562: <html> 563: <head> 564: <title>The LearningOnline Network with CAPA</title> 565: </head> 566: <body bgcolor="#FFFFFF"> 567: <img align=right src=/adm/lonIcons/lonlogos.gif> 568: <h1>Create User, Change User Privileges</h1> 569: ENDTHREEHEAD 570: $r->print('<h2>'.$ENV{'form.cuname'}.' at '.$ENV{'form.cdomain'}.'</h2>'); 571: if ($ENV{'form.makeuser'}) { 572: $r->print('<h3>Creating User</h3>'); 573: if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& 574: ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) { 575: my $amode=''; 576: my $genpwd=''; 577: if ($ENV{'form.login'} eq 'krb') { 578: $amode='krb4'; 579: $genpwd=$ENV{'form.krbdom'}; 580: } elsif ($ENV{'form.login'} eq 'int') { 581: $amode='internal'; 582: $genpwd=$ENV{'form.intpwd'}; 583: } elsif ($ENV{'form.login'} eq 'fsys') { 584: $amode='unix'; 585: $genpwd=$ENV{'form.fsyspwd'}; 586: } elsif ($ENV{'form.login'} eq 'loc') { 587: $amode='localauth'; 588: $genpwd=$ENV{'form.locarg'}; 589: if (!$genpwd) { $genpwd=" "; } 590: } 591: if (($amode) && ($genpwd)) { 592: $r->print('Generating user: '.&Apache::lonnet::modifyuser( 593: $ENV{'form.cdomain'},$ENV{'form.cuname'}, 594: $ENV{'form.cstid'},$amode,$genpwd, 595: $ENV{'form.cfirst'},$ENV{'form.cmiddle'}, 596: $ENV{'form.clast'},$ENV{'form.cgen'})); 597: $r->print('<br>Home server: '.&Apache::lonnet::homeserver 598: ($ENV{'form.cuname'},$ENV{'form.cdomain'})); 599: 600: } else { 601: $r->print('Invalid login mode or password'); 602: } 603: } else { 604: $r->print('Invalid username or domain'); 605: } 606: } 607: if (!$ENV{'form.makeuser'} and $ENV{'form.login'} ne 'nop') { 608: $r->print('<h3>Changing User Login Data</h3>'); 609: if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&& 610: ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) { 611: my $amode=''; 612: my $genpwd=''; 613: if ($ENV{'form.login'} eq 'krb') { 614: $amode='krb4'; 615: $genpwd=$ENV{'form.krbdom'}; 616: } elsif ($ENV{'form.login'} eq 'int') { 617: $amode='internal'; 618: $genpwd=$ENV{'form.intpwd'}; 619: } elsif ($ENV{'form.login'} eq 'fsys') { 620: $amode='unix'; 621: $genpwd=$ENV{'form.fsyspwd'}; 622: } elsif ($ENV{'form.login'} eq 'loc') { 623: $amode='localauth'; 624: $genpwd=$ENV{'form.locarg'}; 625: if (!$genpwd) { $genpwd=" "; } 626: } 627: if (($amode) && ($genpwd)) { 628: $r->print('Modifying authentication: '. 629: &Apache::lonnet::modifyuserauth( 630: $ENV{'form.cdomain'},$ENV{'form.cuname'}, 631: $amode,$genpwd)); 632: $r->print('<br>Home server: '.&Apache::lonnet::homeserver 633: ($ENV{'form.cuname'},$ENV{'form.cdomain'})); 634: 635: } else { 636: $r->print('Invalid login mode or password'); 637: } 638: } else { 639: $r->print('Invalid username or domain'); 640: } 641: } 642: my $now=time; 643: $r->print('<h3>Modifying Roles</h3>'); 644: map { 645: if (($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { 646: $r->print('Revoking '.$2.' in '.$1.': '. 647: &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, 648: $1,$2,$now).'<br>'); 649: if ($2 eq 'st') { 650: $1=~/^\/(\w+)\/(\w+)/; 651: my $cid=$1.'_'.$2; 652: $r->print('Drop from classlist: '. 653: &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'. 654: $ENV{'course.'.$cid.'.num'}.':classlist:'. 655: &Apache::lonnet::escape($ENV{'form.cuname'}.':'. 656: $ENV{'form.cdomain'}).'='. 657: &Apache::lonnet::escape($now.':'), 658: $ENV{'course.'.$cid.'.home'}).'<br>'); 659: } 660: } 661: } keys %ENV; 662: map { 663: if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { 664: my $url='/'.$1.'/'.$2; 665: if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) { 666: $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3}; 667: } 668: my $start=$now; 669: if ($ENV{'form.start_'.$1.'_'.$2.'_'.$3}) { 670: $start=$ENV{'form.start_'.$1.'_'.$2.'_'.$3}; 671: } 672: my $end=0; 673: if ($ENV{'form.end_'.$1.'_'.$2.'_'.$3}) { 674: $end=$ENV{'form.end_'.$1.'_'.$2.'_'.$3}; 675: } 676: $r->print('Assigning: '.$3.' in '.$url.': '. 677: &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, 678: $url,$3,$end,$start).'<br>'); 679: if ($3 eq 'st') { 680: $url=~/^\/(\w+)\/(\w+)/; 681: my $cid=$1.'_'.$2; 682: $r->print('Add to classlist: '. 683: &Apache::lonnet::critical('put:'.$ENV{'course.'.$cid.'.domain'}.':'. 684: $ENV{'course.'.$cid.'.num'}.':classlist:'. 685: &Apache::lonnet::escape($ENV{'form.cuname'}.':'. 686: $ENV{'form.cdomain'}).'='. 687: &Apache::lonnet::escape($end.':'.$start), 688: $ENV{'course.'.$cid.'.home'}).'<br>'); 689: } 690: } elsif (($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { 691: my $url='/'.$1.'/'; 692: my $start=$now; 693: if ($ENV{'form.start_'.$1.'_'.$2}) { 694: $start=$ENV{'form.start_'.$1.'_'.$2}; 695: } 696: my $end=0; 697: if ($ENV{'form.end_'.$1.'_'.$2}) { 698: $end=$ENV{'form.end_'.$1.'_'.$2}; 699: } 700: $r->print('Assigning: '.$2.' in '.$url.': '. 701: &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, 702: $url,$2,$end,$start).'<br>'); 703: } 704: } keys %ENV; 705: $r->print('</body></html>'); 706: } 707: 708: # ================================================================ Main Handler 709: sub handler { 710: my $r = shift; 711: 712: if ($r->header_only) { 713: $r->content_type('text/html'); 714: $r->send_http_header; 715: return OK; 716: } 717: 718: if ((&Apache::lonnet::allowed('cta',$ENV{'request.course.id'})) || 719: (&Apache::lonnet::allowed('cin',$ENV{'request.course.id'})) || 720: (&Apache::lonnet::allowed('ccr',$ENV{'request.course.id'})) || 721: (&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) || 722: (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) || 723: (&Apache::lonnet::allowed('mau',$ENV{'user.domain'}))) { 724: $r->content_type('text/html'); 725: $r->send_http_header; 726: unless ($ENV{'form.phase'}) { 727: &phase_one($r); 728: } 729: if ($ENV{'form.phase'} eq 'two') { 730: &phase_two($r); 731: } elsif ($ENV{'form.phase'} eq 'three') { 732: &phase_three($r); 733: } 734: } else { 735: $ENV{'user.error.msg'}= 736: "/adm/createuser:mau:0:0:Cannot modify user data"; 737: return HTTP_NOT_ACCEPTABLE; 738: } 739: return OK; 740: } 741: 742: 1; 743: __END__ 744: 745: