Annotation of nsdl/nsdlloncapaorg/lonlogin.pm, revision 1.1

1.1     ! www         1: # The LearningOnline Network
        !             2: # Login Screen
        !             3: #
        !             4: # $Id: lonlogin.pm,v 1.43 2003/07/16 20:42:31 www 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: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
        !            29: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9,
        !            30: # 1/17/01 Gerd Kortemeyer
        !            31: #
        !            32: # 2/7/02,2/8,2/12,2/14,2/15,2/19 Josh Brunskole
        !            33: # 
        !            34: # 7/10/02 Jeremy Bowers
        !            35: 
        !            36: package Apache::lonlogin;
        !            37: 
        !            38: use strict;
        !            39: use Apache::Constants qw(:common);
        !            40: use Apache::File ();
        !            41: use Apache::lonnet();
        !            42: use Apache::loncommon();
        !            43: 
        !            44: sub handler {
        !            45:     my $r = shift;
        !            46:     $r->content_type('text/html');
        !            47:     &Apache::loncommon::no_cache($r);
        !            48:     $r->send_http_header;
        !            49:     return OK if $r->header_only;
        !            50: 
        !            51: 
        !            52:     &Apache::loncommon::get_unprocessed_cgi
        !            53:      ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
        !            54:       ['interface','username','domain','firsturl','localpath','localres']);
        !            55:  
        !            56: # ----------------------------------------------------------- Process Interface
        !            57:     $ENV{'form.interface'}=~s/\W//g;
        !            58: 
        !            59:     my $textbrowsers=$r->dir_config('lonTextBrowsers');
        !            60:     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
        !            61:     
        !            62:     foreach (split(/\:/,$textbrowsers)) {
        !            63: 	if ($httpbrowser=~/$_/i) {
        !            64: 	    $ENV{'form.interface'}='textual';
        !            65:         }
        !            66:     }
        !            67: 
        !            68:     my $fullgraph=($ENV{'form.interface'} ne 'textual');
        !            69:     my $port_to_use=$r->dir_config('lonhttpdPort');
        !            70:     if (!defined($port_to_use)) {
        !            71: 	$port_to_use='8080';
        !            72:     }
        !            73:     my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
        !            74:                   $r->dir_config('lonIconsURL');
        !            75:     my $domain  = $r->dir_config('lonDefDomain');
        !            76:     my $role    = $r->dir_config('lonRole');
        !            77:     my $loadlim = $r->dir_config('lonLoadLim');
        !            78:     my $servadm = $r->dir_config('lonAdmEMail');
        !            79:     my $sysadm  = $r->dir_config('lonSysEMail');
        !            80:     my $lonhost = $r->dir_config('lonHostID');
        !            81:     my $tabdir  = $r->dir_config('lonTabDir');
        !            82:     my $include = $r->dir_config('lonIncludes');
        !            83:     my $expire  = $r->dir_config('lonExpire');
        !            84: 
        !            85: # --------------------------------------------- Default values for login fields
        !            86: 
        !            87:     my $authusername=($ENV{'form.username'}?$ENV{'form.username'}:'');
        !            88:     my $authdomain=($ENV{'form.domain'}?$ENV{'form.domain'}:$domain);
        !            89: 
        !            90: # ---------------------------------------------------------- Determine own load
        !            91:     my $loadavg;
        !            92:     {
        !            93: 	my $loadfile=Apache::File->new('/proc/loadavg');
        !            94: 	$loadavg=<$loadfile>;
        !            95:     }
        !            96:     $loadavg =~ s/\s.*//g;
        !            97:     my $loadpercent=100*$loadavg/$loadlim;
        !            98:     my $userloadpercent=&Apache::lonnet::userload();
        !            99: 
        !           100: # ------------------------------------------------------- Do the load balancing
        !           101:     my $otherserver='http://'.$ENV{'SERVER_NAME'};
        !           102:     my $firsturl=
        !           103:     ($ENV{'request.firsturl'}?$ENV{'request.firsturl'}:$ENV{'form.firsturl'});
        !           104: # ---------------------------------------- Are we access server and overloaded?
        !           105:     if (($role eq 'access') &&
        !           106: 	(($userloadpercent>100.0)||($loadpercent>100.0))) {
        !           107:         $otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
        !           108:     }
        !           109: 
        !           110: # -------------------------------------------------------- Set login parameters
        !           111: 
        !           112:     my @hexstr=('0','1','2','3','4','5','6','7',
        !           113:                 '8','9','a','b','c','d','e','f');
        !           114:     my $lkey='';
        !           115:     for (0..7) {
        !           116:         $lkey.=$hexstr[rand(15)];
        !           117:     }
        !           118: 
        !           119:     my $ukey='';
        !           120:     for (0..7) {
        !           121:         $ukey.=$hexstr[rand(15)];
        !           122:     }
        !           123: 
        !           124:     my $lextkey=hex($lkey);
        !           125:     if ($lextkey>2147483647) { $lextkey-=4294967296; }
        !           126: 
        !           127:     my $uextkey=hex($ukey);
        !           128:     if ($uextkey>2147483647) { $uextkey-=4294967296; }
        !           129: 
        !           130: # -------------------------------------------------------- Store away log token
        !           131:     my $logtoken=Apache::lonnet::reply(
        !           132:        'tmpput:'.$ukey.$lkey.'&'.$firsturl,
        !           133:        $lonhost);
        !           134: 
        !           135: # ------------------- If we cannot talk to ourselves, we are in serious trouble
        !           136: 
        !           137:     if ($logtoken eq 'con_lost') {
        !           138:         my $spares='';
        !           139:         foreach (keys %Apache::lonnet::hostname) {
        !           140:             if ($_ ne $lonhost) {
        !           141:                $spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}.
        !           142: 		 '/adm/login?domain='.$authdomain.'">'.
        !           143:                  $Apache::lonnet::hostname{$_}.'</a>';
        !           144:                if ($Apache::lonnet::spareid{$_}) {
        !           145: 		   $spares.=' (preferred)';
        !           146:                }
        !           147: 	   }
        !           148:         }
        !           149: 	$r->print(<<ENDTROUBLE);
        !           150: <html>
        !           151: <head><title>The LearningOnline Network with CAPA</title></head>
        !           152: <body bgcolor="#FFFFFF">
        !           153: <img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />
        !           154: <h3>This LON-CAPA server is temporarily not available for login</h3>
        !           155: <p>Please attempt to login to one of the following servers:</p>$spares
        !           156: <p>If the problem persists, please contact <tt>$servadm</tt>.</p>
        !           157: </body>
        !           158: </html>
        !           159: ENDTROUBLE
        !           160:         return OK;
        !           161:     }
        !           162: 
        !           163: # ----------------------------------------------- Apparently we are in business
        !           164: 
        !           165:     my $domainlogo=&Apache::loncommon::domainlogo();
        !           166:     $servadm=~s/\,/\<br \/\>/g;
        !           167:     $sysadm=~s/\,/\<br \/\>/g;
        !           168: 
        !           169: # --------------------------------------------------- Print login screen header
        !           170:     $r->print(<<ENDHEADER);
        !           171: <html>
        !           172: <head>
        !           173: <meta HTTP-EQUIV="Refresh" CONTENT="$expire; url=/adm/roles" />
        !           174: <title>The LearningOnline Network with CAPA Login</title>
        !           175: </head>
        !           176: ENDHEADER
        !           177: # ---------------------------------------------------- Serve out DES JavaScript
        !           178:     {
        !           179: 	my $jsh=Apache::File->new($include."/londes.js");
        !           180:         $r->print(<$jsh>);
        !           181:     }
        !           182: 
        !           183: # ----------------------------------------------------------- Front page design
        !           184:     my $pgbg=
        !           185:       ($fullgraph?&Apache::loncommon::designparm('login.pgbg'):'#FFFFFF');
        !           186:     my $font=
        !           187:       ($fullgraph?&Apache::loncommon::designparm('login.font'):'#000000');
        !           188:     my $link=
        !           189:       ($fullgraph?&Apache::loncommon::designparm('login.link'):'#0000FF');
        !           190:     my $vlink=
        !           191:       ($fullgraph?&Apache::loncommon::designparm('login.vlink'):'#0000FF');
        !           192:     my $alink=&Apache::loncommon::designparm('login.alink');
        !           193:     my $mainbg=
        !           194:       ($fullgraph?&Apache::loncommon::designparm('login.mainbg'):'#FFFFFF');
        !           195:     my $sidebg=
        !           196:       ($fullgraph?&Apache::loncommon::designparm('login.sidebg'):'#FFFFFF');
        !           197:     my $logo=&Apache::loncommon::designparm('login.logo');
        !           198:     my $img=&Apache::loncommon::designparm('login.img');
        !           199: 
        !           200: 
        !           201: # ---------------------------------------------------------- Serve rest of page
        !           202:     $r->print(<<ENDSCRIPT);
        !           203: 
        !           204: <body bgcolor="$pgbg" text="$font" link="$link" vlink="$vlink" alink="$alink"
        !           205:   topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>
        !           206: 
        !           207:  <script language="JavaScript">
        !           208:     function send()
        !           209:     {
        !           210: 	this.document.server.elements.uname.value
        !           211:        =this.document.client.elements.uname.value;
        !           212: 
        !           213:         this.document.server.elements.udom.value
        !           214:        =this.document.client.elements.udom.value;
        !           215: 
        !           216:         this.document.server.elements.imagesuppress.value
        !           217:        =this.document.client.elements.imagesuppress.checked;
        !           218: 
        !           219:         this.document.server.elements.embedsuppress.value
        !           220:        =this.document.client.elements.embedsuppress.checked;
        !           221: 
        !           222:         this.document.server.elements.appletsuppress.value
        !           223:        =this.document.client.elements.appletsuppress.checked;
        !           224: 
        !           225:         this.document.server.elements.fontenhance.value
        !           226:        =this.document.client.elements.fontenhance.checked;
        !           227: 
        !           228:         this.document.server.elements.blackwhite.value
        !           229:        =this.document.client.elements.blackwhite.checked;
        !           230: 
        !           231:         this.document.server.elements.remember.value
        !           232:        =this.document.client.elements.remember.checked;
        !           233: 
        !           234:         uextkey=this.document.client.elements.uextkey.value;
        !           235:         lextkey=this.document.client.elements.lextkey.value;
        !           236:         initkeys();
        !           237: 
        !           238:         this.document.server.elements.upass.value
        !           239: 	    =crypted(this.document.client.elements.upass.value);
        !           240: 
        !           241:         this.document.server.submit();
        !           242: 	return false;
        !           243:     }
        !           244:  </script>
        !           245: ENDSCRIPT
        !           246: 
        !           247:     if ($fullgraph) {
        !           248: 	$r->print(
        !           249: 		  '<table width="100%" cellpadding=0 cellspacing=0 border=0>');
        !           250:     }
        !           251: 
        !           252:     $r->print(<<ENDSERVERFORM);
        !           253:   <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">
        !           254:    <input type="hidden" name="logtoken" value="$logtoken" />
        !           255:    <input type="hidden" name="serverid" value="$lonhost" />
        !           256:    <input type="hidden" name="interface" value="$ENV{'form.interface'}" />
        !           257:    <input type="hidden" name="uname" value="" />
        !           258:    <input type="hidden" name="upass" value="" />
        !           259:    <input type="hidden" name="udom" value="" />
        !           260:    <input type="hidden" name="imagesuppress"  value="" />
        !           261:    <input type="hidden" name="appletsuppress"  value="" />
        !           262:    <input type="hidden" name="embedsuppress"  value="" />
        !           263:    <input type="hidden" name="fontenhance"  value="" />
        !           264:    <input type="hidden" name="blackwhite"  value="" />
        !           265:    <input type="hidden" name="remember"  value="" />
        !           266:    <input type="hidden" name="localpath" value="$ENV{'form.localpath'}" />
        !           267:    <input type="hidden" name="localres" value="$ENV{'form.localres'}" />
        !           268:   </form>
        !           269: ENDSERVERFORM
        !           270:     if ($fullgraph) { $r->print(<<ENDTOP);
        !           271:   <!-- The LON-CAPA Header -->
        !           272:   <tr>
        !           273: 
        !           274:    <!-- Row 1 Columns 2-4 -->
        !           275:    <td width="100%" colspan=4 bgcolor="$pgbg"><h1><font color="white">Welcome to the LON-CAPA NSDL Gateway</font></h1><a href="/cgi-bin/signon.pl"><h3><font color="white">Sign up for a Guest Login</font></h3></a></td>
        !           276:   </tr>
        !           277: 
        !           278:   <!-- The gray bar that starts the two table frames -->
        !           279:   <tr>
        !           280: 
        !           281:    <!-- Row 2 Column 1 -->
        !           282:    <td width=182 height=27 bgcolor="$sidebg">&nbsp;</td>
        !           283: 
        !           284:    <!-- Row 2 Column 2 -->
        !           285:    <td width=27 height=27 align="left" background="$iconpath/filltop.gif"><img src="$iconpath/upperleft.gif" border=0 alt="" /></td>
        !           286: 
        !           287:    <!-- Row 2 Column 3 -->
        !           288:    <td height=27 background="$iconpath/filltop.gif"><img src="$iconpath/filltop.gif" alt="" /></td>
        !           289: 
        !           290:    <!-- Row 2 Column 4 -->
        !           291:    <td width=27 height=27 align="right" background="$iconpath/filltop.gif"><img src="$iconpath/upperright.gif" border=0 alt="" /></td>
        !           292:   </tr>
        !           293:   <tr>
        !           294:    
        !           295:    <!-- A cell that will hold the 'access' and 'about' buttons -->
        !           296:    <!-- Row 3 Column 1 -->
        !           297:    <td valign="top" height=60 align="center" bgcolor="$sidebg">
        !           298:     <a href="/adm/login?interface=textual"><img src="$iconpath/accessbutton.gif" border=0 alt="Accessibility Options" /></a>
        !           299:     <br />
        !           300:     <a href="/adm/about.html"><img src="$iconpath/aboutlon.gif" border=0 alt="About LON-CAPA" /></a>
        !           301:    </td>
        !           302: 
        !           303:    <!-- The shaded space between the two main columns -->
        !           304:    <!-- Row 3 Column 2 -->
        !           305:    <td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>
        !           306: 
        !           307:    <!-- The right main column holding the large LON-CAPA logo-->
        !           308:    <!-- Rows 3-4 Column 3 -->
        !           309:    <td align="center" valign="top" width="100%" height="100%" rowspan=2 bgcolor="$mainbg">
        !           310:     <center>
        !           311:      <img src="$logo" alt="" />
        !           312:     </center>
        !           313:    </td>
        !           314: 
        !           315:    <!-- Row 3 Column 4 -->
        !           316:    <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>
        !           317:   </tr>
        !           318:   <tr>
        !           319: 
        !           320:    <!-- The entry form -->
        !           321:    <!-- Row 4 Column 1 -->
        !           322:    <td align="center" valign="middle" bgcolor="$sidebg">
        !           323: ENDTOP
        !           324: } else {
        !           325:     $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1><h2>Text-based Interface Login</h2>');
        !           326: }
        !           327:     $r->print('<form name="client" onsubmit="return(send())">');
        !           328:     unless ($fullgraph) {
        !           329:         $r->print(<<ENDACCESSOPTIONS);
        !           330: <h3>Select Accessibility Options</h3>
        !           331: <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />
        !           332: <input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />
        !           333: <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />
        !           334: <input type="checkbox" name="fontenhance" /> Increase font size<br />
        !           335: <input type="checkbox" name="blackwhite" /> Switch to black and white mode<br />
        !           336: <p>If you have accessibility needs that are not addressed by this interface, 
        !           337: please
        !           338: contact the system administrator at <tt>$sysadm</tt>.</p><br />
        !           339: <input type="checkbox" name="remember" /> Remember these settings for next login<hr />
        !           340: ENDACCESSOPTIONS
        !           341: } else {
        !           342:     $r->print(<<ENDNOOPT);
        !           343: <input type="hidden" name="imagesuppress"  value="" />
        !           344: <input type="hidden" name="embedsuppress"  value="" />
        !           345: <input type="hidden" name="appletsuppress"  value="" />
        !           346: <input type="hidden" name="fontenhance"  value="" />
        !           347: <input type="hidden" name="blackwhite"  value="" />
        !           348: <input type="hidden" name="remember"  value="" />
        !           349: ENDNOOPT
        !           350: }
        !           351:     $r->print(<<ENDLOGIN);
        !           352:      <input type="hidden" name="lextkey" value="$lextkey">
        !           353:      <input type="hidden" name="uextkey" value="$uextkey">
        !           354: 
        !           355:      <!-- Start the sub-table for text and input alignment -->
        !           356:      <table border=0 cellspacing=0 cellpadding=0>
        !           357:       <tr><td bgcolor="$sidebg" colspan=2><img src="$iconpath/userauthentication.gif" alt="User Authentication" /></td></tr>
        !           358:       <tr>
        !           359:        <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;User Name:</b></font></td>
        !           360:        <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
        !           361:       </tr>
        !           362:       <tr>
        !           363:        <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;Password:</b></font></td>
        !           364:        <td bgcolor="$mainbg"><input type="password" name="upass" size="10" /></td>
        !           365:       </tr>
        !           366:       <tr>
        !           367:        <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;Domain:</b></font></td>
        !           368:        <td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td>
        !           369:       </tr>
        !           370:       <tr>
        !           371:        <td bgcolor="$mainbg">&nbsp;&nbsp;&nbsp;<a href="/adm/loginproblems.html">Help</a></td>
        !           372:        <td bgcolor="$mainbg" valign="bottom" align="center">
        !           373:         <br />
        !           374:         <input type="submit" value="Log In" />
        !           375:        </td>
        !           376:       </tr>
        !           377:      </table>
        !           378:      <!-- End sub-table -->
        !           379:     </form>
        !           380: ENDLOGIN
        !           381:     if ($fullgraph) {
        !           382: 	$r->print(<<ENDDOCUMENT);
        !           383:    </td>
        !           384: 
        !           385:    <!-- Row 4 Column 2 -->
        !           386:    <td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>
        !           387: 
        !           388:    <!-- Row 4 Column 4 -->
        !           389:    <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>
        !           390:   </tr>
        !           391:   <tr>
        !           392: 
        !           393:    <!-- Row 5 Column 1 -->
        !           394:    <td bgcolor="$sidebg" valign="middle" align="left">
        !           395:      <br />
        !           396:      <table border=0 cellspacing=0 cellpadding=0>
        !           397:       <tr>
        !           398:        <td bgcolor="$sidebg" align="left" valign="top">
        !           399:         <small><b>&nbsp;&nbsp;&nbsp;Domain:&nbsp;</b></small>
        !           400:        </td>
        !           401:        <td bgcolor="$sidebg" align="left" valign="top">
        !           402:         <small><tt>&nbsp;$domain</tt></small>
        !           403:        </td>
        !           404:       </tr>
        !           405:       <tr>
        !           406:        <td bgcolor="$sidebg" align="left" valign="top">
        !           407:         <small><b>&nbsp;&nbsp;&nbsp;Server:&nbsp;</b></small>
        !           408:        </td>
        !           409:        <td bgcolor="$sidebg" align="left" valign="top">
        !           410:         <small><tt>&nbsp;$lonhost ($role)</tt></small>
        !           411:        </td>
        !           412:       </tr>
        !           413:       <tr>
        !           414:        <td bgcolor="$sidebg" align="left" valign="top">
        !           415:         <small><b>&nbsp;&nbsp;&nbsp;Load:&nbsp;</b></small>
        !           416:        </td>
        !           417:        <td bgcolor="$sidebg" align="left" valign="top">
        !           418:         <small><tt>&nbsp;$loadpercent percent</tt></small>
        !           419:        </td>
        !           420:       </tr>
        !           421:       <tr>
        !           422:        <td bgcolor="$sidebg" align="left" valign="top">
        !           423:         <small><b>&nbsp;&nbsp;&nbsp;User&nbsp;Load:&nbsp;</b></small>
        !           424:        </td>
        !           425:        <td bgcolor="$sidebg" align="left" valign="top">
        !           426:         <small><tt>&nbsp;$userloadpercent percent</tt></small>
        !           427:        </td>
        !           428:       </tr>
        !           429:      </table>
        !           430:      <br />
        !           431:     <small>
        !           432:      <b>&nbsp;&nbsp;&nbsp;System Administration:</b><br />
        !           433:      <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$sysadm</tt><br />
        !           434:      <b>&nbsp;&nbsp;&nbsp;Server Administration:</b><br />
        !           435:      <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$servadm<br />&nbsp;</tt>
        !           436:     </small>
        !           437:    </td>
        !           438: 
        !           439:    <!-- Row 5 Column 2 -->
        !           440:    <td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>
        !           441: 
        !           442:    <!-- Row 5 Column 3 -->
        !           443:    <td width="100%" valign="bottom" bgcolor="$mainbg">
        !           444: $domainlogo
        !           445: </td>
        !           446: 
        !           447:    <!-- Row 5 Column 4 -->
        !           448:    <td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>
        !           449:   </tr>
        !           450:   <tr>
        !           451: 
        !           452:    <!-- Row 6 Column 1 -->
        !           453:    <td bgcolor="$sidebg">&nbsp;</td>
        !           454: 
        !           455:    <!-- Row 6 Column 2 -->
        !           456:    <td align="left" background="$iconpath/fillbottom.gif"><img src="$iconpath/lowerleft.gif" alt="" /></td>
        !           457: 
        !           458:    <!-- Row 6 Column 3 -->
        !           459:    <td background="$iconpath/fillbottom.gif"><img src="$iconpath/fillbottom.gif" alt="" /></td>
        !           460: 
        !           461:    <!-- Row 6 Column 4 -->
        !           462:    <td align="right" background="$iconpath/fillbottom.gif"><img src="$iconpath/lowerright.gif" alt="" /></td>
        !           463:   </tr>
        !           464:  </table>
        !           465: 
        !           466: <script>
        !           467: // the if prevents the script error if the browser can't handle this
        !           468: if ( document.client.uname ) { document.client.uname.focus(); }
        !           469: </script>
        !           470: 
        !           471: ENDDOCUMENT
        !           472: }
        !           473:     $r->print('</body></html>');
        !           474:     return OK;
        !           475: } 
        !           476: 
        !           477: 1;
        !           478: __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>