loncom/auth/lonlogin.pm - view

File: [LON-CAPA] / loncom / auth / lonlogin.pm
Revision 1.101: download - view: text, annotated - select for diffs
Sun Feb 24 23:18:37 2008 UTC (16 years, 3 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- can add a "New User?" link to the log-in page to allow users with out LON-CAPA accounts to create them
- Default authentication type, argument and language configurable via "Domain Configuration" interface (supercede domain.tab).
- when these domain defaults are changed an e-mail is sent to LON-CAPA cluster administrator so dns_domain.tab can be updated to support LON-CAPA versions: 2.4, 2.5 and 2.6.
- Ability to enable/disable format rules for users self-enrolling wth e-mail addresses.
- Ability to determine types of usernames which may be created when self-enrolling (e-mail address, institutional logon, SSO, any, or none.

1: # The LearningOnline Network 2: # Login Screen 3: # 4: # $Id: lonlogin.pm,v 1.101 2008/02/24 23:18:37 raeburn 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: 29: package Apache::lonlogin; 30: 31: use strict; 32: use Apache::Constants qw(:common); 33: use Apache::File (); 34: use Apache::lonnet; 35: use Apache::loncommon(); 36: use Apache::lonauth(); 37: use Apache::lonlocal; 38: use Apache::migrateuser(); 39: use lib '/home/httpd/lib/perl/'; 40: use LONCAPA; 41: 42: sub handler { 43: my $r = shift; 44: 45: &Apache::loncommon::get_unprocessed_cgi 46: (join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'}, 47: $ENV{'REDIRECT_QUERY_STRING'}), 48: ['interface','username','domain','firsturl','localpath','localres', 49: 'token']); 50: 51: # -- check if they are a migrating user 52: if (defined($env{'form.token'})) { 53: return &Apache::migrateuser::handler($r); 54: } 55: 56: &Apache::loncommon::no_cache($r); 57: &Apache::lonlocal::get_language_handle($r); 58: &Apache::loncommon::content_type($r,'text/html'); 59: $r->send_http_header; 60: return OK if $r->header_only; 61: 62: 63: # Are we re-routing? 64: if (-e '/home/httpd/html/lon-status/reroute.txt') { 65: &Apache::lonauth::reroute($r); 66: return OK; 67: } 68: 69: 70: # -------------------------------- Prevent users from attempting to login twice 71: my $handle = &Apache::lonnet::check_for_valid_session($r); 72: if ($handle=~/^publicuser\_/) { 73: # For "public user" - remove it, we apparently really want to login 74: unlink($r->dir_config('lonIDsDir')."/$handle.id"); 75: } elsif ($handle ne '') { 76: # Indeed, a valid token is found 77: my $start_page = 78: &Apache::loncommon::start_page('Already logged in'); 79: my $end_page = 80: &Apache::loncommon::end_page(); 81: $r->print( 82: $start_page 83: .'<h1>'.&mt('You are already logged in').'</h1>' 84: .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].', 85: '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>' 86: .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>' 87: .$end_page 88: ); 89: return OK; 90: } 91: 92: # ---------------------------------------------------- No valid token, continue 93: 94: # ---------------------------- Not possible to really login to domain "public" 95: if ($env{'form.domain'} eq 'public') { 96: $env{'form.domain'}=''; 97: $env{'form.username'}=''; 98: } 99: # ----------------------------------------------------------- Process Interface 100: $env{'form.interface'}=~s/\W//g; 101: 102: my $textbrowsers=$r->dir_config('lonTextBrowsers'); 103: my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; 104: 105: foreach (split(/\:/,$textbrowsers)) { 106: if ($httpbrowser=~/$_/i) { 107: $env{'form.interface'}='textual'; 108: } 109: } 110: 111: my $fullgraph=($env{'form.interface'} ne 'textual'); 112: 113: my $iconpath= 114: &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); 115: 116: my $domain = &Apache::lonnet::default_login_domain(); 117: if (($env{'form.domain'}) && 118: (&Apache::lonnet::domain($env{'form.domain'},'description'))) { 119: $domain=$env{'form.domain'}; 120: } 121: my $role = $r->dir_config('lonRole'); 122: my $loadlim = $r->dir_config('lonLoadLim'); 123: my $servadm = $r->dir_config('lonAdmEMail'); 124: my $lonhost = $r->dir_config('lonHostID'); 125: my $tabdir = $r->dir_config('lonTabDir'); 126: my $include = $r->dir_config('lonIncludes'); 127: my $expire = $r->dir_config('lonExpire'); 128: my $version = $r->dir_config('lonVersion'); 129: my $host_name = &Apache::lonnet::hostname($lonhost); 130: 131: # --------------------------------------------- Default values for login fields 132: 133: my $authusername=($env{'form.username'}?$env{'form.username'}:''); 134: my $authdomain=($env{'form.domain'}?$env{'form.domain'}:$domain); 135: 136: # ---------------------------------------------------------- Determine own load 137: my $loadavg; 138: { 139: my $loadfile=Apache::File->new('/proc/loadavg'); 140: $loadavg=<$loadfile>; 141: } 142: $loadavg =~ s/\s.*//g; 143: my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); 144: my $userloadpercent=&Apache::lonnet::userload(); 145: 146: # ------------------------------------------------------- Do the load balancing 147: my $otherserver= &Apache::lonnet::absolute_url($host_name); 148: my $firsturl= 149: ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); 150: # ---------------------------------------------------------- Are we overloaded? 151: if ((($userloadpercent>100.0)||($loadpercent>100.0))) { 152: my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent); 153: if ($unloaded) { $otherserver=$unloaded; } 154: } 155: 156: # ----------------------------------------------------------- Get announcements 157: my $announcements=&Apache::lonnet::getannounce(); 158: # -------------------------------------------------------- Set login parameters 159: 160: my @hexstr=('0','1','2','3','4','5','6','7', 161: '8','9','a','b','c','d','e','f'); 162: my $lkey=''; 163: for (0..7) { 164: $lkey.=$hexstr[rand(15)]; 165: } 166: 167: my $ukey=''; 168: for (0..7) { 169: $ukey.=$hexstr[rand(15)]; 170: } 171: 172: my $lextkey=hex($lkey); 173: if ($lextkey>2147483647) { $lextkey-=4294967296; } 174: 175: my $uextkey=hex($ukey); 176: if ($uextkey>2147483647) { $uextkey-=4294967296; } 177: 178: # -------------------------------------------------------- Store away log token 179: my $logtoken=Apache::lonnet::reply( 180: 'tmpput:'.$ukey.$lkey.'&'.$firsturl, 181: $lonhost); 182: 183: # ------------------- If we cannot talk to ourselves, we are in serious trouble 184: 185: if ($logtoken eq 'con_lost') { 186: my $spares=''; 187: my $last; 188: foreach my $hostid (sort 189: { 190: &Apache::lonnet::hostname($a) cmp 191: &Apache::lonnet::hostname($b); 192: } 193: keys(%Apache::lonnet::spareid)) { 194: next if ($hostid eq $lonhost); 195: my $hostname = &Apache::lonnet::hostname($hostid); 196: next if ($last eq $hostname); 197: $spares.='<br /><font size="+1"><a href="http://'. 198: $hostname. 199: '/adm/login?domain='.$authdomain.'">'. 200: $hostname.'</a>'. 201: ' (preferred)</font>'.$/; 202: $last=$hostname; 203: } 204: $spares.= '<br />'; 205: my %all_hostnames = &Apache::lonnet::all_hostnames(); 206: foreach my $hostid (sort 207: { 208: &Apache::lonnet::hostname($a) cmp 209: &Apache::lonnet::hostname($b); 210: } 211: keys(%all_hostnames)) { 212: next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); 213: my $hostname = &Apache::lonnet::hostname($hostid); 214: next if ($last eq $hostname); 215: $spares.='<br /><a href="http://'. 216: $hostname. 217: '/adm/login?domain='.$authdomain.'">'. 218: $hostname.'</a>'; 219: $last=$hostname; 220: } 221: $r->print(<<ENDTROUBLE); 222: <html> 223: <head><title>The LearningOnline Network with CAPA</title></head> 224: <body bgcolor="#FFFFFF"> 225: <img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" /> 226: <h3>This LON-CAPA server is temporarily not available for login</h3> 227: <p>Please attempt to login to one of the following servers:</p>$spares 228: </body> 229: </html> 230: ENDTROUBLE 231: return OK; 232: } 233: 234: # ----------------------------------------------- Apparently we are in business 235: $servadm=~s/\,/\<br \/\>/g; 236: 237: # ----------------------------------------------------------- Front page design 238: my $pgbg= 239: ($fullgraph?&Apache::loncommon::designparm('login.pgbg',$domain):'#FFFFFF'); 240: my $font= 241: ($fullgraph?&Apache::loncommon::designparm('login.font',$domain):'#000000'); 242: my $link= 243: ($fullgraph?&Apache::loncommon::designparm('login.link',$domain):'#0000FF'); 244: my $vlink= 245: ($fullgraph?&Apache::loncommon::designparm('login.vlink',$domain):'#0000FF'); 246: my $alink=&Apache::loncommon::designparm('login.alink',$domain); 247: my $mainbg= 248: ($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF'); 249: my $sidebg= 250: ($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF'); 251: my $textcol = 252: ($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000'); 253: my $bgcol = 254: ($fullgraph?&Apache::loncommon::designparm('login.bgcol',$domain):'#FFFFFF'); 255: my $logo=&Apache::loncommon::designparm('login.logo',$domain); 256: my $img=&Apache::loncommon::designparm('login.img',$domain); 257: my $domainlogo=&Apache::loncommon::domainlogo($domain); 258: my $login=&Apache::loncommon::designparm('login.login',$domain); 259: if ($login eq '') { 260: $login = $iconpath.'/'.&mt('userauthentication.gif'); 261: } 262: my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); 263: my $showcoursecat = 264: &Apache::loncommon::designparm('login.coursecatalog',$domain); 265: my $loginheader =&Apache::loncommon::designparm('login.loginheader',$domain); 266: my $shownewuserlink = 267: &Apache::loncommon::designparm('login.newuser',$domain); 268: my $now=time; 269: my $js = (<<ENDSCRIPT); 270: 271: <script language="JavaScript"> 272: function send() 273: { 274: this.document.server.elements.uname.value 275: =this.document.client.elements.uname.value; 276: 277: this.document.server.elements.udom.value 278: =this.document.client.elements.udom.value; 279: 280: this.document.server.elements.imagesuppress.value 281: =this.document.client.elements.imagesuppress.checked; 282: 283: this.document.server.elements.embedsuppress.value 284: =this.document.client.elements.embedsuppress.checked; 285: 286: this.document.server.elements.appletsuppress.value 287: =this.document.client.elements.appletsuppress.checked; 288: 289: this.document.server.elements.fontenhance.value 290: =this.document.client.elements.fontenhance.checked; 291: 292: this.document.server.elements.blackwhite.value 293: =this.document.client.elements.blackwhite.checked; 294: 295: this.document.server.elements.remember.value 296: =this.document.client.elements.remember.checked; 297: 298: uextkey=this.document.client.elements.uextkey.value; 299: lextkey=this.document.client.elements.lextkey.value; 300: initkeys(); 301: 302: this.document.server.elements.upass0.value 303: =crypted(this.document.client.elements.upass$now.value.substr(0,15)); 304: this.document.server.elements.upass1.value 305: =crypted(this.document.client.elements.upass$now.value.substr(15,15)); 306: this.document.server.elements.upass2.value 307: =crypted(this.document.client.elements.upass$now.value.substr(30,15)); 308: 309: this.document.client.elements.uname.value=''; 310: this.document.client.elements.upass$now.value=''; 311: 312: this.document.server.submit(); 313: return false; 314: } 315: </script> 316: 317: ENDSCRIPT 318: 319: # --------------------------------------------------- Print login screen header 320: 321: my %add_entries = (topmargin => "0", 322: leftmargin => "0", 323: marginheight => "0", 324: marginwidth => "0", 325: bgcolor => "$pgbg", 326: text => "$font", 327: link => "$link", 328: vlink => "$vlink", 329: alink => "$alink",); 330: 331: $r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js, 332: { 'redirect' => [$expire,'/adm/roles'], 333: 'add_entries' => \%add_entries, 334: 'only_body' => 1,})); 335: 336: # ----------------------------------------------------------------------- Texts 337: 338: my %lt=&Apache::lonlocal::texthash( 339: 'un' => 'Username', 340: 'pw' => 'Password', 341: 'dom' => 'Domain', 342: 'perc' => 'percent', 343: 'load' => 'Load', 344: 'userload' => 'User Load', 345: 'about' => 'About LON-CAPA', 346: 'access' => 'Accessibility Options', 347: 'catalog' => 'Course Catalog', 348: 'log' => 'Log in', 349: 'help' => 'Log-in Help', 350: 'serv' => 'Server', 351: 'servadm' => 'Server Administration', 352: 'helpdesk' => 'Contact Helpdesk', 353: 'forgotpw' => 'Forgot password?', 354: 'newuser' => 'New User?', 355: 'options_headline' => 'Select Accessibility Options', 356: 'sprs_img' => 'Suppress rendering of images', 357: 'sprs_applet' => 'Suppress Java applets', 358: 'sprs_embed' => 'Suppress rendering of embedded multimedia', 359: 'sprs_font' => 'Increase font size', 360: 'sprs_blackwhite' => 'Switch to black and white mode', 361: 'remember' => 'Remember these settings for next login'); 362: # -------------------------------------------------- Change password field name 363: my $forgotpw = &forgotpwdisplay(%lt); 364: my $loginhelp = &loginhelpdisplay(%lt); 365: 366: # ---------------------------------------------------- Serve out DES JavaScript 367: { 368: my $jsh=Apache::File->new($include."/londes.js"); 369: $r->print(<$jsh>); 370: } 371: # ---------------------------------------------------------- Serve rest of page 372: 373: if ($fullgraph) { 374: $r->print( 375: '<table width="100%" cellpadding=0 cellspacing=0 border=0>'); 376: } 377: 378: $r->print(<<ENDSERVERFORM); 379: <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top"> 380: <input type="hidden" name="logtoken" value="$logtoken" /> 381: <input type="hidden" name="serverid" value="$lonhost" /> 382: <input type="hidden" name="interface" value="$env{'form.interface'}" /> 383: <input type="hidden" name="uname" value="" /> 384: <input type="hidden" name="upass0" value="" /> 385: <input type="hidden" name="upass1" value="" /> 386: <input type="hidden" name="upass2" value="" /> 387: <input type="hidden" name="udom" value="" /> 388: <input type="hidden" name="imagesuppress" value="" /> 389: <input type="hidden" name="appletsuppress" value="" /> 390: <input type="hidden" name="embedsuppress" value="" /> 391: <input type="hidden" name="fontenhance" value="" /> 392: <input type="hidden" name="blackwhite" value="" /> 393: <input type="hidden" name="remember" value="" /> 394: <input type="hidden" name="localpath" value="$env{'form.localpath'}" /> 395: <input type="hidden" name="localres" value="$env{'form.localres'}" /> 396: </form> 397: ENDSERVERFORM 398: my $coursecatalog; 399: if (($showcoursecat eq '') || ($showcoursecat)) { 400: $coursecatalog = &coursecatalog_link($lt{'catalog'}); 401: } 402: my $newuserlink; 403: if ($shownewuserlink) { 404: $newuserlink = &newuser_link($lt{'newuser'}); 405: } 406: if ($fullgraph) { $r->print(<<ENDTOP); 407:  408: <tr> 409: 410:  411: <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg"><img src="$img" border=0 alt="The Learning Online Network with CAPA" /></td> 412: </tr> 413: 414:  415: <tr> 416: 417:  418: <td width=182 height=27 bgcolor="$sidebg"> </td> 419: 420:  421: <td width=27 height=27 align="left" background="$iconpath/filltop.gif"><img src="$iconpath/upperleft.gif" border=0 alt="" /></td> 422: 423:  424: <td height=27 background="$iconpath/filltop.gif"><img src="$iconpath/filltop.gif" alt="" /></td> 425: 426:  427: <td width=27 height=27 align="right" background="$iconpath/filltop.gif"><img src="$iconpath/upperright.gif" border=0 alt="" /></td> 428: </tr> 429: <tr> 430: 431:  432:  433: <td valign="top" height="60" align="left" bgcolor="$sidebg"> 434: <table cellpadding="0" cellspacing="2" border="0"> 435: <tr> 436: <td> </td> 437: <td><a href="/adm/login?interface=textual"><b>$lt{'access'}</b></a></td> 438: </tr> 439: <tr> 440: <td> </td> 441: <td><a href="/adm/about.html"><b>$lt{'about'}</b></a></td> 442: </tr>$coursecatalog 443: <tr> 444: <td colspan="2"> </td> 445: </tr> 446: </table> 447: </td> 448:  449:  450: <td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td> 451: 452:  453:  454: <td align="center" valign="top" width="100%" height="100%" bgcolor="$mainbg"> 455: <center> 456: <img src="$logo" alt="" /> 457: </center> 458: </td> 459: 460:  461: <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td> 462: </tr> 463: <tr> 464: 465:  466:  467: <td align="center" valign="middle" bgcolor="$sidebg"> 468: ENDTOP 469: } else { 470: $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1>' 471: .'<h2>'.&mt('Text-based Interface Login').'</h2>' 472: .$announcements); 473: } 474: $r->print('<form name="client" onsubmit="return(send())">'); 475: unless ($fullgraph) { 476: $r->print(<<ENDACCESSOPTIONS); 477: <h3>$lt{'options_headline'}</h3> 478: <label><input type="checkbox" name="imagesuppress" /> $lt{'sprs_img'}</label><br /> 479: <label><input type="checkbox" name="appletsuppress" /> $lt{'sprs_applet'}</label><br /> 480: <label><input type="checkbox" name="embedsuppress" /> $lt{'sprs_embed'}</label><br /> 481: <label><input type="checkbox" name="fontenhance" /> $lt{'sprs_font'}</label><br /> 482: <label><input type="checkbox" name="blackwhite" /> $lt{'sprs_blackwhite'}</label><br /> 483: <br /> 484: <input type="checkbox" name="remember" /> $lt{'remember'}<hr /> 485: ENDACCESSOPTIONS 486: } else { 487: $r->print(<<ENDNOOPT); 488: <input type="hidden" name="imagesuppress" value="" /> 489: <input type="hidden" name="embedsuppress" value="" /> 490: <input type="hidden" name="appletsuppress" value="" /> 491: <input type="hidden" name="fontenhance" value="" /> 492: <input type="hidden" name="blackwhite" value="" /> 493: <input type="hidden" name="remember" value="" /> 494: ENDNOOPT 495: } 496: my $logintitle; 497: if ($loginheader eq 'text') { 498: $logintitle = '<td bgcolor="'.$bgcol.'" colspan="2">   <b><font size="+1" color="'.$textcol.'">'.$lt{'log'}.'</font></b></td>'; 499: } else { 500: $logintitle = '<td bgcolor="'.$sidebg.'" colspan="2"><img src="'.$login.'" alt="'. 501: &mt('User Authentication').'" /></td>'; 502: } 503: $r->print(<<ENDLOGIN); 504: <input type="hidden" name="lextkey" value="$lextkey"> 505: <input type="hidden" name="uextkey" value="$uextkey"> 506: 507:  508: <table border=0 cellspacing=0 cellpadding=0> 509: <tr>$logintitle</tr> 510: <tr> 511: <td bgcolor="$mainbg"><br /><font size=-1><b>   <label for="uname">$lt{'un'}</label>:</b></font></td> 512: <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td> 513: </tr> 514: <tr> 515: <td bgcolor="$mainbg"><font size=-1><b>   <label for="upass$now">$lt{'pw'}</label>:</b></font></td> 516: <td bgcolor="$mainbg"><input type="password" name="upass$now" size="10" /></td> 517: </tr> 518: <tr> 519: <td bgcolor="$mainbg"><font size=-1><b>   <label for="udom">$lt{'dom'}</label>:</b></font></td> 520: <td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td> 521: </tr> 522: <tr> 523: <td bgcolor="$mainbg"> </td> 524: <td bgcolor="$mainbg" valign="bottom" align="center"> 525: <br /> 526: <input type="submit" value="$lt{'log'}" /> 527: </td> 528: </tr> 529: <tr> 530: <td bgcolor="$mainbg" valign="bottom" align="left" colspan="2"> 531: $loginhelp 532: $forgotpw 533: $newuserlink 534: <br /> 535: </td> 536: </tr> 537: </table> 538:  539: </form> 540: ENDLOGIN 541: if ($fullgraph) { 542: my $helpdeskscript; 543: my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, 544: $version,$authdomain,\$helpdeskscript); 545: $r->print(<<ENDDOCUMENT); 546: </td> 547: 548:  549: <td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td> 550: 551:  552: <td bgcolor="$mainbg">$announcements</td> 553: 554:  555: <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td> 556: </tr> 557: <tr> 558: 559:  560: <td bgcolor="$sidebg" valign="middle" align="left"> 561: <br /> 562: <table border=0 cellspacing=0 cellpadding=0> 563: <tr> 564: <td bgcolor="$sidebg" align="left" valign="top"> 565: <small><b>   $lt{'dom'}: </b></small> 566: </td> 567: <td bgcolor="$sidebg" align="left" valign="top"> 568: <small><tt> $domain</tt></small> 569: </td> 570: </tr> 571: <tr> 572: <td bgcolor="$sidebg" align="left" valign="top"> 573: <small><b>   $lt{'serv'}: </b></small> 574: </td> 575: <td bgcolor="$sidebg" align="left" valign="top"> 576: <small><tt> $lonhost ($role)</tt></small> 577: </td> 578: </tr> 579: <tr> 580: <td bgcolor="$sidebg" align="left" valign="top"> 581: <small><b>   $lt{'load'}: </b></small> 582: </td> 583: <td bgcolor="$sidebg" align="left" valign="top"> 584: <small><tt> $loadpercent $lt{'perc'}</tt></small> 585: </td> 586: </tr> 587: <tr> 588: <td bgcolor="$sidebg" align="left" valign="top"> 589: <small><b>   $lt{'userload'}: </b></small> 590: </td> 591: <td bgcolor="$sidebg" align="left" valign="top"> 592: <small><tt> $userloadpercent $lt{'perc'}</tt></small> 593: </td> 594: </tr> 595: </table> 596: <br /> 597: $contactblock 598: </td> 599: 600:  601: <td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td> 602: 603:  604: <td width="100%" valign="bottom" bgcolor="$mainbg"> 605: $domainlogo 606: </td> 607: 608:  609: <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td> 610: </tr> 611: <tr> 612: 613:  614: <td bgcolor="$sidebg"> </td> 615: 616:  617: <td align="left" background="$iconpath/fillbottom.gif"><img src="$iconpath/lowerleft.gif" alt="" /></td> 618: 619:  620: <td background="$iconpath/fillbottom.gif"><img src="$iconpath/fillbottom.gif" alt="" /></td> 621: 622:  623: <td align="right" background="$iconpath/fillbottom.gif"><img src="$iconpath/lowerright.gif" alt="" /></td> 624: </tr> 625: </table> 626: 627: <script type="text/javascript"> 628: // the if prevents the script error if the browser can not handle this 629: if ( document.client.uname ) { document.client.uname.focus(); } 630: </script> 631: $helpdeskscript 632: 633: ENDDOCUMENT 634: } 635: my %endargs = ( 'noredirectlink' => 1, ); 636: $r->print(&Apache::loncommon::end_page(\%endargs)); 637: return OK; 638: } 639: 640: sub contactdisplay { 641: my ($lt,$servadm,$showadminmail,$version,$authdomain,$helpdeskscript) = @_; 642: my $contactblock; 643: my $showhelpdesk = 0; 644: my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; 645: if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { 646: $showhelpdesk = 1; 647: } 648: if ($servadm && $showadminmail) { 649: $contactblock .= '<b>   '.$$lt{'servadm'}.':</b><br />'. 650: '<tt>      '.$servadm.'</tt><br /> <br />'; 651: } 652: if ($showhelpdesk) { 653: $contactblock .= '<b>   <a href="javascript:helpdesk()"><font size="+1">'.$lt->{'helpdesk'}.'</font></a></b><br />'; 654: my $thisurl = &escape('/adm/login'); 655: $$helpdeskscript = <<"ENDSCRIPT"; 656: <script type="text/javascript"> 657: function helpdesk() { 658: var codedom = document.client.udom.value; 659: if (codedom == '') { 660: codedom = "$authdomain"; 661: } 662: var querystr = "origurl=$thisurl&codedom="+codedom; 663: document.location.href = "/adm/helpdesk?"+querystr; 664: return; 665: } 666: </script> 667: ENDSCRIPT 668: } 669: $contactblock .= <<"ENDBLOCK"; 670:    $version 671: ENDBLOCK 672: return $contactblock; 673: } 674: 675: sub forgotpwdisplay { 676: my (%lt) = @_; 677: my $prompt_for_resetpw = 1; 678: if ($prompt_for_resetpw) { 679: return '<br />   <a href="/adm/resetpw">'.$lt{'forgotpw'}.'</a></b><br />'; 680: } 681: return; 682: } 683: 684: sub loginhelpdisplay { 685: my (%lt) = @_; 686: my $login_help = 1; 687: if ($login_help) { 688: return '   <a href="/adm/loginproblems.html">'.$lt{'help'}.'</a></b>'; 689: } 690: return; 691: } 692: 693: sub coursecatalog_link { 694: my ($linkname) = @_; 695: return <<"END"; 696: <tr> 697: <td> </td> 698: <td><a href="/adm/coursecatalog"><b>$linkname</b></a></td> 699: </tr> 700: END 701: } 702: 703: sub newuser_link { 704: my ($linkname) = @_; 705: return '   <a href="/adm/createaccount"><b>'.$linkname.'</b></a><br />'; 706: } 707: 708: 1; 709: __END__