loncom/auth/lonlogin.pm - view

File: [LON-CAPA] / loncom / auth / lonlogin.pm
Revision 1.152: download - view: text, annotated - select for diffs
Mon Aug 27 00:52:45 2012 UTC (11 years, 9 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- Move &loginhelpdisplay() from lonlogin.pm to lonauth.pm to facilitate reuse.
- Log-in help page configuration moved from helpsettings to login section in
  Domain configuration interface.
- Add ability to upload different help files for the different supported languages.
- Link to log-in help page depends on user's browser language preferences.

1: # The LearningOnline Network 2: # Login Screen 3: # 4: # $Id: lonlogin.pm,v 1.152 2012/08/27 00:52:45 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: my $londocroot = $r->dir_config('lonDocRoot'); 68: if (-e "$londocroot/lon-status/reroute.txt") { 69: &Apache::lonauth::reroute($r); 70: return OK; 71: } 72: 73: $env{'form.firsturl'} =~ s/(`)/'/g; 74: 75: # -------------------------------- Prevent users from attempting to login twice 76: my $handle = &Apache::lonnet::check_for_valid_session($r); 77: if ($handle ne '') { 78: my $lonidsdir=$r->dir_config('lonIDsDir'); 79: if ($handle=~/^publicuser\_/) { 80: # For "public user" - remove it, we apparently really want to login 81: unlink($r->dir_config('lonIDsDir')."/$handle.id"); 82: } else { 83: # Indeed, a valid token is found 84: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); 85: my $start_page = 86: &Apache::loncommon::start_page('Already logged in'); 87: my $end_page = 88: &Apache::loncommon::end_page(); 89: my $dest = '/adm/roles'; 90: if ($env{'form.firsturl'} ne '') { 91: $dest = $env{'form.firsturl'}; 92: } 93: $r->print( 94: $start_page 95: .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>' 96: .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].', 97: '<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>' 98: .$end_page 99: ); 100: return OK; 101: } 102: } 103: 104: # ---------------------------------------------------- No valid token, continue 105: 106: # ---------------------------- Not possible to really login to domain "public" 107: if ($env{'form.domain'} eq 'public') { 108: $env{'form.domain'}=''; 109: $env{'form.username'}=''; 110: } 111: # ----------------------------------------------------------- Process Interface 112: $env{'form.interface'}=~s/\W//g; 113: 114: my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; 115: 116: my $iconpath= 117: &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); 118: 119: my $lonhost = $r->dir_config('lonHostID'); 120: my $domain = &Apache::lonnet::default_login_domain(); 121: if ($lonhost ne '') { 122: my $redirect = &check_loginvia($domain,$lonhost); 123: if ($redirect) { 124: $r->print($redirect); 125: return OK; 126: } 127: } 128: 129: if (($env{'form.domain'}) && 130: (&Apache::lonnet::domain($env{'form.domain'},'description'))) { 131: $domain=$env{'form.domain'}; 132: } 133: my $role = $r->dir_config('lonRole'); 134: my $loadlim = $r->dir_config('lonLoadLim'); 135: my $uloadlim= $r->dir_config('lonUserLoadLim'); 136: my $servadm = $r->dir_config('lonAdmEMail'); 137: my $tabdir = $r->dir_config('lonTabDir'); 138: my $include = $r->dir_config('lonIncludes'); 139: my $expire = $r->dir_config('lonExpire'); 140: my $version = $r->dir_config('lonVersion'); 141: my $host_name = &Apache::lonnet::hostname($lonhost); 142: 143: # --------------------------------------------- Default values for login fields 144: 145: my $authusername=($env{'form.username'}?$env{'form.username'}:''); 146: my $authdomain=($env{'form.domain'}?$env{'form.domain'}:$domain); 147: 148: # ---------------------------------------------------------- Determine own load 149: my $loadavg; 150: { 151: my $loadfile=Apache::File->new('/proc/loadavg'); 152: $loadavg=<$loadfile>; 153: } 154: $loadavg =~ s/\s.*//g; 155: 156: my ($loadpercent,$userloadpercent); 157: if ($loadlim) { 158: $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); 159: } 160: if ($uloadlim) { 161: $userloadpercent=&Apache::lonnet::userload(); 162: } 163: 164: my $firsturl= 165: ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); 166: 167: # ----------------------------------------------------------- Get announcements 168: my $announcements=&Apache::lonnet::getannounce(); 169: # -------------------------------------------------------- Set login parameters 170: 171: my @hexstr=('0','1','2','3','4','5','6','7', 172: '8','9','a','b','c','d','e','f'); 173: my $lkey=''; 174: for (0..7) { 175: $lkey.=$hexstr[rand(15)]; 176: } 177: 178: my $ukey=''; 179: for (0..7) { 180: $ukey.=$hexstr[rand(15)]; 181: } 182: 183: my $lextkey=hex($lkey); 184: if ($lextkey>2147483647) { $lextkey-=4294967296; } 185: 186: my $uextkey=hex($ukey); 187: if ($uextkey>2147483647) { $uextkey-=4294967296; } 188: 189: # -------------------------------------------------------- Store away log token 190: my $tokenextras; 191: if ($env{'form.role'}) { 192: $tokenextras = '&role='.&escape($env{'form.role'}); 193: } 194: if ($env{'form.symb'}) { 195: if (!$tokenextras) { 196: $tokenextras = '&'; 197: } 198: $tokenextras .= '&symb='.&escape($env{'form.symb'}); 199: } 200: my $logtoken=Apache::lonnet::reply( 201: 'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras, 202: $lonhost); 203: 204: # -- If we cannot talk to ourselves, or hostID does not map to a hostname 205: # we are in serious trouble 206: 207: if (($logtoken eq 'con_lost') || ($logtoken eq 'no_such_host')) { 208: if ($logtoken eq 'no_such_host') { 209: &Apache::lonnet::logthis('No valid logtoken for log-in page -- unable to determine hostname for hostID: '.$lonhost.'. Check entry in hosts.tab'); 210: } 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) || ($hostname eq '')); 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: if ($spares) { 230: $spares.= '<br />'; 231: } 232: my %all_hostnames = &Apache::lonnet::all_hostnames(); 233: foreach my $hostid (sort 234: { 235: &Apache::lonnet::hostname($a) cmp 236: &Apache::lonnet::hostname($b); 237: } 238: keys(%all_hostnames)) { 239: next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); 240: my $hostname = &Apache::lonnet::hostname($hostid); 241: next if (($last eq $hostname) || ($hostname eq '')); 242: $spares.='<br /><a href="http://'. 243: $hostname. 244: '/adm/login?domain='.$authdomain.'">'. 245: $hostname.'</a>'; 246: $last=$hostname; 247: } 248: $r->print( 249: '<html>' 250: .'<head><title>' 251: .&mt('The LearningOnline Network with CAPA') 252: .'</title></head>' 253: .'<body bgcolor="#FFFFFF">' 254: .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>' 255: .'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />' 256: .'<h3>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h3>'); 257: if ($spares) { 258: $r->print('<p>'.&mt('Please attempt to login to one of the following servers:') 259: .'</p>' 260: .$spares); 261: } 262: $r->print('</body>' 263: .'</html>' 264: ); 265: return OK; 266: } 267: 268: # ----------------------------------------------- Apparently we are in business 269: $servadm=~s/\,/\<br \/\>/g; 270: 271: # ----------------------------------------------------------- Front page design 272: my $pgbg=&Apache::loncommon::designparm('login.pgbg',$domain); 273: my $font=&Apache::loncommon::designparm('login.font',$domain); 274: my $link=&Apache::loncommon::designparm('login.link',$domain); 275: my $vlink=&Apache::loncommon::designparm('login.vlink',$domain); 276: my $alink=&Apache::loncommon::designparm('login.alink',$domain); 277: my $mainbg=&Apache::loncommon::designparm('login.mainbg',$domain); 278: my $loginbox_bg=&Apache::loncommon::designparm('login.sidebg',$domain); 279: my $loginbox_header_bgcol=&Apache::loncommon::designparm('login.bgcol',$domain); 280: my $loginbox_header_textcol=&Apache::loncommon::designparm('login.textcol',$domain); 281: my $logo=&Apache::loncommon::designparm('login.logo',$domain); 282: my $img=&Apache::loncommon::designparm('login.img',$domain); 283: my $domainlogo=&Apache::loncommon::domainlogo($domain); 284: my $showbanner = 1; 285: my $showmainlogo = 1; 286: if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) { 287: $showbanner = &Apache::loncommon::designparm('login.showlogo_img',$domain); 288: } 289: if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) { 290: $showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain); 291: } 292: my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); 293: my $showcoursecat = 294: &Apache::loncommon::designparm('login.coursecatalog',$domain); 295: my $shownewuserlink = 296: &Apache::loncommon::designparm('login.newuser',$domain); 297: my $now=time; 298: my $js = (<<ENDSCRIPT); 299: 300: <script type="text/javascript" language="JavaScript"> 301: // <![CDATA[ 302: function send() 303: { 304: this.document.server.elements.uname.value 305: =this.document.client.elements.uname.value; 306: 307: this.document.server.elements.udom.value 308: =this.document.client.elements.udom.value; 309: 310: uextkey=this.document.client.elements.uextkey.value; 311: lextkey=this.document.client.elements.lextkey.value; 312: initkeys(); 313: 314: this.document.server.elements.upass0.value 315: =crypted(this.document.client.elements.upass$now.value.substr(0,15)); 316: this.document.server.elements.upass1.value 317: =crypted(this.document.client.elements.upass$now.value.substr(15,15)); 318: this.document.server.elements.upass2.value 319: =crypted(this.document.client.elements.upass$now.value.substr(30,15)); 320: 321: this.document.client.elements.uname.value=''; 322: this.document.client.elements.upass$now.value=''; 323: 324: this.document.server.submit(); 325: return false; 326: } 327: 328: function enableInput() { 329: this.document.client.elements.upass$now.removeAttribute("readOnly"); 330: this.document.client.elements.uname.removeAttribute("readOnly"); 331: this.document.client.elements.udom.removeAttribute("readOnly"); 332: return; 333: } 334: 335: // ]]> 336: </script> 337: 338: ENDSCRIPT 339: 340: # --------------------------------------------------- Print login screen header 341: 342: my %add_entries = ( 343: bgcolor => "$mainbg", 344: text => "$font", 345: link => "$link", 346: vlink => "$vlink", 347: alink => "$alink", 348: onload => 'javascript:enableInput();',); 349: 350: $r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js, 351: { 'redirect' => [$expire,'/adm/roles'], 352: 'add_entries' => \%add_entries, 353: 'only_body' => 1,})); 354: 355: # ----------------------------------------------------------------------- Texts 356: 357: my %lt=&Apache::lonlocal::texthash( 358: 'un' => 'Username', 359: 'pw' => 'Password', 360: 'dom' => 'Domain', 361: 'perc' => 'percent', 362: 'load' => 'Server Load', 363: 'userload' => 'User Load', 364: 'catalog' => 'Course/Community Catalog', 365: 'log' => 'Log in', 366: 'help' => 'Log-in Help', 367: 'serv' => 'Server', 368: 'servadm' => 'Server Administration', 369: 'helpdesk' => 'Contact Helpdesk', 370: 'forgotpw' => 'Forgot password?', 371: 'newuser' => 'New User?', 372: ); 373: # -------------------------------------------------- Change password field name 374: 375: my $forgotpw = &forgotpwdisplay(%lt); 376: $forgotpw .= '<br />' if $forgotpw; 377: my $loginhelp = &Apache::lonauth::loginhelpdisplay($authdomain); 378: if ($loginhelp) { 379: $loginhelp = '<a href="'.$loginhelp.'">'.$lt{'help'}.'</a><br />'; 380: } 381: 382: # ---------------------------------------------------- Serve out DES JavaScript 383: { 384: my $jsh=Apache::File->new($include."/londes.js"); 385: $r->print(<$jsh>); 386: } 387: # ---------------------------------------------------------- Serve rest of page 388: 389: $r->print( 390: '<div class="LC_Box"' 391: .' style="margin:0 auto; padding:10px; width:90%; height: auto; background-color:#FFFFFF;">' 392: ); 393: 394: $r->print(<<ENDSERVERFORM); 395: <form name="server" action="/adm/authenticate" method="post" target="_top"> 396: <input type="hidden" name="logtoken" value="$logtoken" /> 397: <input type="hidden" name="serverid" value="$lonhost" /> 398: <input type="hidden" name="uname" value="" /> 399: <input type="hidden" name="upass0" value="" /> 400: <input type="hidden" name="upass1" value="" /> 401: <input type="hidden" name="upass2" value="" /> 402: <input type="hidden" name="udom" value="" /> 403: <input type="hidden" name="localpath" value="$env{'form.localpath'}" /> 404: <input type="hidden" name="localres" value="$env{'form.localres'}" /> 405: </form> 406: ENDSERVERFORM 407: my $coursecatalog; 408: if (($showcoursecat eq '') || ($showcoursecat)) { 409: $coursecatalog = &coursecatalog_link($lt{'catalog'}).'<br />'; 410: } 411: my $newuserlink; 412: if ($shownewuserlink) { 413: $newuserlink = &newuser_link($lt{'newuser'}).'<br />'; 414: } 415: my $logintitle = 416: '<h2 class="LC_hcell"' 417: .' style="background:'.$loginbox_header_bgcol.';' 418: .' color:'.$loginbox_header_textcol.'">' 419: .$lt{'log'} 420: .'</h2>'; 421: 422: my $noscript_warning='<noscript><span class="LC_warning"><b>' 423: .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.') 424: .'</b></span></noscript>'; 425: my $helpdeskscript; 426: my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, 427: $authdomain,\$helpdeskscript); 428: 429: my $loginform=(<<LFORM); 430: <form name="client" action="" onsubmit="return(send())"> 431: <input type="hidden" name="lextkey" value="$lextkey" /> 432: <input type="hidden" name="uextkey" value="$uextkey" /> 433: <b><label for="uname">$lt{'un'}</label>:</b><br /> 434: <input type="text" name="uname" id="uname" size="15" value="$authusername" readonly="readonly" /><br /> 435: <b><label for="upass$now">$lt{'pw'}</label>:</b><br /> 436: <input type="password" name="upass$now" id="upass$now" size="15" readonly="readonly" /><br /> 437: <b><label for="udom">$lt{'dom'}</label>:</b><br /> 438: <input type="text" name="udom" id="udom" size="15" value="$authdomain" readonly="readonly" /><br /> 439: <input type="submit" value="$lt{'log'}" /> 440: </form> 441: LFORM 442: 443: if ($showbanner) { 444: $r->print(<<HEADER); 445:  446: <div style="background:$pgbg;margin:0;width:100%;"> 447: <img src="$img" border="0" alt="The Learning Online Network with CAPA" /> 448: </div> 449: HEADER 450: } 451: $r->print(<<ENDTOP); 452: <div style="float:left;margin-top:0;"> 453: <div class="LC_Box" style="background:$loginbox_bg;"> 454: $logintitle 455: $loginform 456: $noscript_warning 457: </div> 458: 459: <div class="LC_Box" style="padding-top: 10px;"> 460: $loginhelp 461: $forgotpw 462: $contactblock 463: $newuserlink 464: $coursecatalog 465: </div> 466: </div> 467: 468: <div> 469: ENDTOP 470: if ($showmainlogo) { 471: $r->print(' <img src="'.$logo.'" alt="" />'."\n"); 472: } 473: $r->print(<<ENDTOP); 474: $announcements 475: </div> 476: <hr style="clear:both;" /> 477: ENDTOP 478: my ($domainrow,$serverrow,$loadrow,$userloadrow,$versionrow); 479: $domainrow = <<"END"; 480: <tr> 481: <td align="left" valign="top"> 482: <small><b>$lt{'dom'}: </b></small> 483: </td> 484: <td align="left" valign="top"> 485: <small><tt> $domain</tt></small> 486: </td> 487: </tr> 488: END 489: $serverrow = <<"END"; 490: <tr> 491: <td align="left" valign="top"> 492: <small><b>$lt{'serv'}: </b></small> 493: </td> 494: <td align="left" valign="top"> 495: <small><tt> $lonhost ($role)</tt></small> 496: </td> 497: </tr> 498: END 499: if ($loadlim) { 500: $loadrow = <<"END"; 501: <tr> 502: <td align="left" valign="top"> 503: <small><b>$lt{'load'}: </b></small> 504: </td> 505: <td align="left" valign="top"> 506: <small><tt> $loadpercent $lt{'perc'}</tt></small> 507: </td> 508: </tr> 509: END 510: } 511: if ($uloadlim) { 512: $userloadrow = <<"END"; 513: <tr> 514: <td align="left" valign="top"> 515: <small><b>$lt{'userload'}: </b></small> 516: </td> 517: <td align="left" valign="top"> 518: <small><tt> $userloadpercent $lt{'perc'}</tt></small> 519: </td> 520: </tr> 521: END 522: } 523: if (($version ne '') && ($version ne '')) { 524: $versionrow = <<"END"; 525: <tr> 526: <td colspan="2" align="left"> 527: <small>$version</small> 528: </td> 529: </tr> 530: END 531: } 532: 533: $r->print(<<ENDDOCUMENT); 534: <div style="float: left;"> 535: <table border="0" cellspacing="0" cellpadding="0"> 536: $domainrow 537: $serverrow 538: $loadrow 539: $userloadrow 540: $versionrow 541: </table> 542: </div> 543: <div style="float: right;"> 544: $domainlogo 545: </div> 546: <br style="clear:both;" /> 547: </div> 548: 549: <script type="text/javascript"> 550: // <![CDATA[ 551: // the if prevents the script error if the browser can not handle this 552: if ( document.client.uname ) { document.client.uname.focus(); } 553: // ]]> 554: </script> 555: $helpdeskscript 556: 557: ENDDOCUMENT 558: my %endargs = ( 'noredirectlink' => 1, ); 559: $r->print(&Apache::loncommon::end_page(\%endargs)); 560: return OK; 561: } 562: 563: sub check_loginvia { 564: my ($domain,$lonhost) = @_; 565: if ($domain eq '' || $lonhost eq '') { 566: return; 567: } 568: my %domconfhash = &Apache::loncommon::get_domainconf($domain); 569: my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost}; 570: my $loginvia_exempt = $domconfhash{$domain.'.login.loginvia_exempt_'.$lonhost}; 571: my $output; 572: if ($loginvia ne '') { 573: my $noredirect; 574: my $ip = $ENV{'REMOTE_ADDR'}; 575: if ($ip eq '127.0.0.1') { 576: $noredirect = 1; 577: } else { 578: if ($loginvia_exempt ne '') { 579: my @exempt = split(',',$loginvia_exempt); 580: if (grep(/^\Q$ip\E$/,@exempt)) { 581: $noredirect = 1; 582: } 583: } 584: } 585: unless ($noredirect) { 586: my ($newhost,$path); 587: if ($loginvia =~ /:/) { 588: ($newhost,$path) = split(':',$loginvia); 589: } else { 590: $newhost = $loginvia; 591: } 592: if ($newhost ne $lonhost) { 593: if (&Apache::lonnet::hostname($newhost) ne '') { 594: $output = &redirect_page($newhost,$path); 595: } 596: } 597: } 598: } 599: return $output; 600: } 601: 602: sub redirect_page { 603: my ($desthost,$path) = @_; 604: my $protocol = $Apache::lonnet::protocol{$desthost}; 605: $protocol = 'http' if ($protocol ne 'https'); 606: unless ($path =~ m{^/}) { 607: $path = '/'.$path; 608: } 609: my $url = $protocol.'://'.&Apache::lonnet::hostname($desthost).$path; 610: if ($env{'form.firsturl'} ne '') { 611: $url .='?firsturl='.$env{'form.firsturl'}; 612: } 613: my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef, 614: {'redirect' => [0,$url],}); 615: my $end_page = &Apache::loncommon::end_page(); 616: return $start_page.$end_page; 617: } 618: 619: sub contactdisplay { 620: my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript) = @_; 621: my $contactblock; 622: my $showhelpdesk = 0; 623: my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; 624: if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { 625: $showhelpdesk = 1; 626: } 627: if ($servadm && $showadminmail) { 628: $contactblock .= $$lt{'servadm'}.':<br />'. 629: '<tt>'.$servadm.'</tt><br />'; 630: } 631: if ($showhelpdesk) { 632: $contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />'; 633: my $thisurl = &escape('/adm/login'); 634: $$helpdeskscript = <<"ENDSCRIPT"; 635: <script type="text/javascript"> 636: // <![CDATA[ 637: function helpdesk() { 638: var codedom = document.client.udom.value; 639: if (codedom == '') { 640: codedom = "$authdomain"; 641: } 642: var querystr = "origurl=$thisurl&codedom="+codedom; 643: document.location.href = "/adm/helpdesk?"+querystr; 644: return; 645: } 646: // ]]> 647: </script> 648: ENDSCRIPT 649: } 650: return $contactblock; 651: } 652: 653: sub forgotpwdisplay { 654: my (%lt) = @_; 655: my $prompt_for_resetpw = 1; 656: if ($prompt_for_resetpw) { 657: return '<a href="/adm/resetpw">'.$lt{'forgotpw'}.'</a>'; 658: } 659: return; 660: } 661: 662: sub coursecatalog_link { 663: my ($linkname) = @_; 664: return <<"END"; 665: <a href="/adm/coursecatalog">$linkname</a> 666: END 667: } 668: 669: sub newuser_link { 670: my ($linkname) = @_; 671: return '<a href="/adm/createaccount">'.$linkname.'</a>'; 672: } 673: 674: 1; 675: __END__