loncom/auth/lonlogin.pm - view

File: [LON-CAPA] / loncom / auth / lonlogin.pm
Revision 1.106.4.7: download - view: text, annotated - select for diffs
Wed Mar 10 02:49:49 2010 UTC (14 years, 2 months ago) by raeburn
Branches: version_2_9_X
Diff to branchpoint 1.106: preferred, unified

- Backport 1.126, 1.127, 1.128, 1.133.

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