loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.1 and 1.2

version 1.1, 1999/10/13 17:48:52	version 1.2, 2000/01/14 21:12:40
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Login Screen	# Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer	# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
	# 1/14 Gerd Kortemeyer
#	#
package Apache::lonlogin;	package Apache::lonlogin;

Line 41 sub handler {	Line 42 sub handler {
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
<title>The LearningOnline Network Login</title>	<title>The LearningOnline Network with CAPA Login</title>
</head>	</head>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
<table width=600>	<table width=600>
<tr><td><img src="$iconpath/lonlogo.gif"></td>	<tr><td><img src="$iconpath/lonlogo.gif"></td>
<td bgcolor="#DDDDDD">	<td bgcolor="#DDDDDD">
	<font size=+1><b>User Authentication</b></font><p>

<form action="$otherserver/adm/authenticate" method="post" target="_top">	<form action="$otherserver/adm/authenticate" method="post" target="_top">
<table border=2 bgcolor="#BBBBBB">	<table border=2 bgcolor="#BBBBBB">
<tr><td>Username:</td><td><input type=text size=10 name=uname></td></tr>	<tr><td>Username:</td><td><input type=text size=10 name=uname></td></tr>
Line 55 sub handler {	Line 58 sub handler {
</tr>	</tr>
<tr><td colspan=2><input type=submit value=Login></td></tr>	<tr><td colspan=2><input type=submit value=Login></td></tr>
</table>	</table>
</form><p>

<form action="$otherserver/adm/newkey" method="post" target="_top">
<table border=2 bgcolor="#BBBBBB">
<tr><td>Key:</td><td><input type=text size=22 name=ukey></td></tr>
<tr><td>Class:</td><td><input type=password size=10 name=uclass></td></tr>
<tr><td>Domain:</td><td><input type=text size=10 value=$domain name=udom></td>
</tr><tr><td colspan=2><input type=submit value="Register New Key"></td></tr>
</table>
</form>	</form>
</td>	</td>
</tr><tr><td bgcolor="#DDDDDD">	</tr><tr><td bgcolor="#DDDDDD">
<table border=1 bgcolor="#BBBBBB">	<table border=1 bgcolor="#BBBBBB">
<tr><td><font size="-2"><b>Domain:</b></font></td>	<tr><td><font size="-1"><b>Domain:</b></font></td>
<td><font size="-2"><tt>$domain</tt></font></td>	<td><font size="-1"><tt>$domain</tt></font></td>
<td rowspan=3><font size="-2"><b>LON System Administration:</b><br>	<td rowspan=3><font size="-1"><b>LON System Administration:</b><br>
<tt>$sysadm</tt><br>	<tt>$sysadm</tt><br>
<b>Server Administration:</b><br>	<b>Server Administration:</b><br>
<tt>$servadm</tt></font></td></tr>	<tt>$servadm</tt></font></td></tr>
<tr><td><font size="-2"><b>Server:</b></font></td>	<tr><td><font size="-1"><b>Server:</b></font></td>
<td><font size="-2"><tt>$lonhost ($role)</tt></font></td></tr>	<td><font size="-1"><tt>$lonhost ($role)</tt></font></td></tr>
<tr><td><font size="-2"><b>Load:</b></font></td>	<tr><td><font size="-1"><b>Load:</b></font></td>
<td><font size="-2"><tt>$loadpercent</tt> percent</font></td></tr>	<td><font size="-1"><tt>$loadpercent</tt> percent</font></td></tr>
</table><p><font size="-1">	</table>
The Learning<i>Online</i> Network is a MSU College of Natural Science
collaboration involving Competency Based
Instruction (<b>CBI</b>),
Lecture<i>Online</i> (<b>LOL</b>) and Computer-Assisted Personalized
Approach (<b>CAPA</b>).<br>
Copyright 1999, Michigan State University Board of Trustees</font>
</td><td>	</td><td>
<table align=right><tr><td><font size="+1">	<table align=right><tr><td><font size="+1">
<b>L</b>aboratory for <br><b>I</b>nstructional<br><b>T</b>echnology in<br>	<b>L</b>aboratory for <br><b>I</b>nstructional<br><b>T</b>echnology in<br>

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

Removed from v.1.1
changed lines
	Added in v.1.2