1: # The LearningOnline Network
2: # Login Screen
3: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
4: # 1/14/00,5/29,5/30,6/1,6/29 Gerd Kortemeyer
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');
27: my $include = $r->dir_config('lonIncludes');
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='';
38: my $firsturl=$ENV{'request.firsturl'};
39: # ---------------------------------------- Are we access server and overloaded?
40: if (($role eq 'access') && ($loadpercent>100.0)) {
41: $otherserver=Apache::lonnet::spareserver();
42: }
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);
66: <html>
67: <head>
68: <title>The LearningOnline Network with CAPA Login</title>
69: </head>
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:
102: <table width=600>
103: <tr><td><img src="$iconpath/lonlogo.gif"></td>
104: <td bgcolor="#DDDDDD">
105: <font size=+1><b>User Authentication</b></font><p>
106:
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">
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>
122: <tr><td colspan=2><input type=button value=Login onClick="send();"></td></tr>
123: </table>
124: <input type=hidden name=lextkey value="$lextkey">
125: <input type=hidden name=uextkey value="$uextkey">
126: </form>
127:
128: </td>
129: </tr><tr><td bgcolor="#DDDDDD">
130: <table border=1 bgcolor="#BBBBBB">
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>
134: <tt>$sysadm</tt><br>
135: <b>Server Administration:</b><br>
136: <tt>$servadm</tt></font></td></tr>
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>
142: </td><td>
143: <table align=right><tr><td><font size="+1">
144: <b>L</b>aboratory for<br>
145: <b>I</b>nstructional<br>
146: <b>T</b>echnology in<br>
147: <b>E</b>ducation</td><td>
148: <img src="$iconpath/liteani.gif"></font></td></tr></table></td></tr></table>
149: </body>
150: </html>
151: ENDDOCUMENT
152: return OK;
153: }
154:
155: 1;
156: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>