Annotation of loncom/auth/lonlogin.pm, revision 1.6
1.1 albertel 1: # The LearningOnline Network
2: # Login Screen
1.2 www 3: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
1.6 ! www 4: # 1/14/00,5/29,5/30,6/1,6/29 Gerd Kortemeyer
1.1 albertel 5: #
6: package Apache::lonlogin;
7:
8: use strict;
9: use Apache::Constants qw(:common);
10: use Apache::File ();
11: use Apache::lonnet();
12:
13: sub handler {
14: my $r = shift;
15: $r->content_type('text/html');
16: $r->send_http_header;
17: return OK if $r->header_only;
18:
19: my $iconpath= $r->dir_config('lonIconsURL');
20: my $domain = $r->dir_config('lonDefDomain');
21: my $role = $r->dir_config('lonRole');
22: my $loadlim = $r->dir_config('lonLoadLim');
23: my $servadm = $r->dir_config('lonAdmEMail');
24: my $sysadm = $r->dir_config('lonSysEMail');
25: my $lonhost = $r->dir_config('lonHostID');
26: my $tabdir = $r->dir_config('lonTabDir');
1.6 ! www 27: my $include = $r->dir_config('lonIncludes');
1.1 albertel 28:
29: my $loadavg;
30: {
31: my $loadfile=Apache::File->new('/proc/loadavg');
32: $loadavg=<$loadfile>;
33: }
34: $loadavg =~ s/\s.*//g;
35: my $loadpercent=100*$loadavg/$loadlim;
36:
37: my $otherserver='';
1.5 www 38: my $firsturl=$ENV{'request.firsturl'};
1.1 albertel 39: # ---------------------------------------- Are we access server and overloaded?
40: if (($role eq 'access') && ($loadpercent>100.0)) {
41: $otherserver=Apache::lonnet::spareserver();
42: }
1.6 ! www 43:
! 44: # -------------------------------------------------------- Set login parameters
! 45:
! 46: my @hexstr=('0','1','2','3','4','5','6','7',
! 47: '8','9','a','b','c','d','e','f');
! 48: my $lkey='';
! 49: for (0..7) {
! 50: $lkey.=$hexstr[rand(15)];
! 51: }
! 52:
! 53: my $ukey='';
! 54: for (0..7) {
! 55: $ukey.=$hexstr[rand(15)];
! 56: }
! 57:
! 58: my $lextkey=hex($lkey);
! 59: my $uextkey=hex($ukey);
! 60: my $logtoken=Apache::lonnet::reply(
! 61: 'tmpput:'.$ukey.$lkey.':'.$firsturl,
! 62: $lonhost);
! 63:
! 64: # --------------------------------------------------- Print login screen header
! 65: $r->print(<<ENDHEADER);
1.1 albertel 66: <html>
67: <head>
1.2 www 68: <title>The LearningOnline Network with CAPA Login</title>
1.1 albertel 69: </head>
1.6 ! www 70: ENDHEADER
! 71: # ---------------------------------------------------- Serve out DES JavaScript
! 72: {
! 73: my $jsh=Apache::File->new($include."/londes.js");
! 74: $r->print(<$jsh>);
! 75: }
! 76: # ---------------------------------------------------------- Serve rest of page
! 77: $r->print(<<ENDDOCUMENT);
! 78:
! 79: <body bgcolor="#FFFFFF" onLoad="init();">
! 80:
! 81: <script language="JavaScript">
! 82:
! 83: function send() {
! 84: this.document.server.elements.uname.value
! 85: =this.document.client.elements.uname.value;
! 86:
! 87: this.document.server.elements.udom.value
! 88: =this.document.client.elements.udom.value;
! 89:
! 90: uextkey=this.document.client.elements.uextkey.value;
! 91: lextkey=this.document.client.elements.lextkey.value;
! 92: initkeys();
! 93:
! 94: this.document.server.elements.upass.value
! 95: =crypted(this.document.client.elements.upass.value);
! 96:
! 97: this.document.server.submit();
! 98: }
! 99:
! 100: </script>
! 101:
1.1 albertel 102: <table width=600>
103: <tr><td><img src="$iconpath/lonlogo.gif"></td>
104: <td bgcolor="#DDDDDD">
1.2 www 105: <font size=+1><b>User Authentication</b></font><p>
106:
1.6 ! www 107: <form name="server" action="$otherserver/adm/authenticate"
! 108: method="post" target="_top">
! 109: <input type=hidden name=logtoken value="$logtoken">
! 110: <input type=hidden name=serverid value="$lonhost">
! 111: <input type=hidden name=uname value="">
! 112: <input type=hidden name=upass value="">
! 113: <input type=hidden name=udom value="">
! 114: </form>
! 115:
! 116: <form name="client">
1.1 albertel 117: <table border=2 bgcolor="#BBBBBB">
118: <tr><td>Username:</td><td><input type=text size=10 name=uname></td></tr>
119: <tr><td>Password:</td><td><input type=password size=10 name=upass></td></tr>
120: <tr><td>Domain:</td><td><input type=text size=10 value=$domain name=udom></td>
121: </tr>
1.6 ! www 122: <tr><td colspan=2><input type=button value=Login onClick="send();"></td></tr>
1.1 albertel 123: </table>
1.6 ! www 124: <input type=hidden name=lextkey value="$lextkey">
! 125: <input type=hidden name=uextkey value="$uextkey">
1.1 albertel 126: </form>
1.6 ! www 127:
1.1 albertel 128: </td>
129: </tr><tr><td bgcolor="#DDDDDD">
130: <table border=1 bgcolor="#BBBBBB">
1.2 www 131: <tr><td><font size="-1"><b>Domain:</b></font></td>
132: <td><font size="-1"><tt>$domain</tt></font></td>
133: <td rowspan=3><font size="-1"><b>LON System Administration:</b><br>
1.1 albertel 134: <tt>$sysadm</tt><br>
135: <b>Server Administration:</b><br>
136: <tt>$servadm</tt></font></td></tr>
1.2 www 137: <tr><td><font size="-1"><b>Server:</b></font></td>
138: <td><font size="-1"><tt>$lonhost ($role)</tt></font></td></tr>
139: <tr><td><font size="-1"><b>Load:</b></font></td>
140: <td><font size="-1"><tt>$loadpercent</tt> percent</font></td></tr>
141: </table>
1.1 albertel 142: </td><td>
143: <table align=right><tr><td><font size="+1">
1.3 www 144: <b>L</b>aboratory for<br>
145: <b>I</b>nstructional<br>
146: <b>T</b>echnology in<br>
1.1 albertel 147: <b>E</b>ducation</td><td>
1.4 www 148: <img src="$iconpath/liteani.gif"></font></td></tr></table></td></tr></table>
1.1 albertel 149: </body>
150: </html>
151: ENDDOCUMENT
152: return OK;
153: }
154:
155: 1;
156: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth