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.29 and 1.30

version 1.29, 2003/01/31 21:51:36	version 1.30, 2003/02/04 15:11:44
Line 50 sub handler {	Line 50 sub handler {


&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['interface']);	($ENV{'QUERY_STRING'},['interface','username','domain']);

$ENV{'form.interface'}=~s/\W//g;	$ENV{'form.interface'}=~s/\W//g;

Line 67 sub handler {	Line 67 sub handler {
my $tabdir = $r->dir_config('lonTabDir');	my $tabdir = $r->dir_config('lonTabDir');
my $include = $r->dir_config('lonIncludes');	my $include = $r->dir_config('lonIncludes');

	# --------------------------------------------- Default values for login fields

	my $authusername=($ENV{'form.username'}?$ENV{'form.username'}:'');
	my $authdomain=($ENV{'form.domain'}?$ENV{'form.domain'}:$domain);

	# ---------------------------------------------------------- Determine own load
my $loadavg;	my $loadavg;
{	{
my $loadfile=Apache::File->new('/proc/loadavg');	my $loadfile=Apache::File->new('/proc/loadavg');
Line 75 sub handler {	Line 81 sub handler {
$loadavg =~ s/\s.*//g;	$loadavg =~ s/\s.*//g;
my $loadpercent=100*$loadavg/$loadlim;	my $loadpercent=100*$loadavg/$loadlim;

	# ------------------------------------------------------- Do the load balancing
my $otherserver='http://'.$ENV{'SERVER_NAME'};	my $otherserver='http://'.$ENV{'SERVER_NAME'};
my $firsturl=$ENV{'request.firsturl'};	my $firsturl=$ENV{'request.firsturl'};
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
Line 239 ENDTOP	Line 246 ENDTOP
<tr><td bgcolor="$sidebg" colspan=2><img src="$iconpath/userauthentication.gif" alt="User Authentication" /></td></tr>	<tr><td bgcolor="$sidebg" colspan=2><img src="$iconpath/userauthentication.gif" alt="User Authentication" /></td></tr>
<tr>	<tr>
<td bgcolor="$mainbg"><br /><font size=-1><b>   User Name:</b></font></td>	<td bgcolor="$mainbg"><br /><font size=-1><b>   User Name:</b></font></td>
<td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" /></td>	<td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
</tr>	</tr>
<tr>	<tr>
<td bgcolor="$mainbg"><font size=-1><b>   Password:</b></font></td>	<td bgcolor="$mainbg"><font size=-1><b>   Password:</b></font></td>
Line 247 ENDTOP	Line 254 ENDTOP
</tr>	</tr>
<tr>	<tr>
<td bgcolor="$mainbg"><font size=-1><b>   Domain:</b></font></td>	<td bgcolor="$mainbg"><font size=-1><b>   Domain:</b></font></td>
<td bgcolor="$mainbg"><input type="text" name="udom" size="10" value=$domain /></td>	<td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td>
</tr>	</tr>
<tr>	<tr>
<td bgcolor="$mainbg">   <a href="/adm/loginproblems.html">Help</a></td>	<td bgcolor="$mainbg">   <a href="/adm/loginproblems.html">Help</a></td>

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

Removed from v.1.29
changed lines
	Added in v.1.30