loncom/auth/lonlogin.pm - view

File: [LON-CAPA] / loncom / auth / lonlogin.pm
Revision 1.98: download - view: text, annotated - select for diffs
Wed Jan 16 20:42:44 2008 UTC (16 years, 4 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_6_1, HEAD

Bug 5577.

domainprefs.pm
- On log-in page, log-in box can use either an image or text.  DC can choose which of these to use, and override default image and text color and background.
- javascript functions - colchg_span() and get_id() added to support dhtml-driven change of colors in square boxes used for legend for background colors, when new colors are chosen from the color picker
- &Apache::loncommon::devalidate_domconfig_cache() called in more cases when configuration changes have been made for a domain.

lonlogin.pm
- replace html tags for start end end of page with loncommon::start_page() and loncommon::end_page()
- log-in box can use either an image (e.g., userauthentication.gif) or text (configurable by DC via "Domain Configuration")

loncommon.pm
-  &designparm() will retrieve settings for log-in box header on log-in page: image, text color, and background color.
- &endbodytag() can take an optional argument (a ref to a hash) which if key of noredirectlink is true in the hash will suppress display of a 'Continue' link in the case where the $env{'internal.head.redirect'} exists.

default.tab
- new parameters added for default log-in box header - a default image, and default colors for text and background.

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