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.42 and 1.45

version 1.42, 2003/05/08 22:23:19	version 1.45, 2003/08/12 19:46:04
Line 51 sub handler {	Line 51 sub handler {

&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},	($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
['interface','username','domain','firsturl']);	['interface','username','domain','firsturl','localpath','localres']);

# ----------------------------------------------------------- Process Interface	# ----------------------------------------------------------- Process Interface
$ENV{'form.interface'}=~s/\W//g;	$ENV{'form.interface'}=~s/\W//g;
Line 81 sub handler {	Line 81 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');
my $expire = $r->dir_config('lonExpire');	my $expire = $r->dir_config('lonExpire');
	my $version = $r->dir_config('lonVersion');

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

Line 107 sub handler {	Line 108 sub handler {
$otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);	$otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
}	}

	# ----------------------------------------------------------- Get announcements
	my $announcements=&Apache::lonnet::getannounce();
# -------------------------------------------------------- Set login parameters	# -------------------------------------------------------- Set login parameters

my @hexstr=('0','1','2','3','4','5','6','7',	my @hexstr=('0','1','2','3','4','5','6','7',
Line 263 ENDSCRIPT	Line 266 ENDSCRIPT
<input type="hidden" name="fontenhance" value="" />	<input type="hidden" name="fontenhance" value="" />
<input type="hidden" name="blackwhite" value="" />	<input type="hidden" name="blackwhite" value="" />
<input type="hidden" name="remember" value="" />	<input type="hidden" name="remember" value="" />
	<input type="hidden" name="localpath" value="$ENV{'form.localpath'}" />
	<input type="hidden" name="localres" value="$ENV{'form.localres'}" />
</form>	</form>
ENDSERVERFORM	ENDSERVERFORM
if ($fullgraph) { $r->print(<<ENDTOP);	if ($fullgraph) { $r->print(<<ENDTOP);
Line 304 ENDSERVERFORM	Line 309 ENDSERVERFORM

<!-- The right main column holding the large LON-CAPA logo-->	<!-- The right main column holding the large LON-CAPA logo-->
<!-- Rows 3-4 Column 3 -->	<!-- Rows 3-4 Column 3 -->
<td align="center" valign="top" width="100%" height="100%" rowspan=2 bgcolor="$mainbg">	<td align="center" valign="top" width="100%" height="100%" bgcolor="$mainbg">
<center>	<center>
<img src="$logo" alt="" />	<img src="$logo" alt="" />
</center>	</center>
Line 320 ENDSERVERFORM	Line 325 ENDSERVERFORM
<td align="center" valign="middle" bgcolor="$sidebg">	<td align="center" valign="middle" bgcolor="$sidebg">
ENDTOP	ENDTOP
} else {	} else {
$r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1><h2>Text-based Interface Login</h2>');	$r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1><h2>Text-based Interface Login</h2>'.$announcements);
}	}
$r->print('<form name="client" onsubmit="return(send())">');	$r->print('<form name="client" onsubmit="return(send())">');
unless ($fullgraph) {	unless ($fullgraph) {
Line 383 ENDLOGIN	Line 388 ENDLOGIN
<!-- Row 4 Column 2 -->	<!-- Row 4 Column 2 -->
<td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>	<td width=27 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>

	<!-- Row 4 Column 3 -->
	<td bgcolor="$mainbg">$announcements</td>

<!-- Row 4 Column 4 -->	<!-- Row 4 Column 4 -->
<td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>	<td width=27 background="$iconpath/fillright.gif"><img src="$iconpath/fillright.gif" alt="" /></td>
</tr>	</tr>
Line 430 ENDLOGIN	Line 438 ENDLOGIN
<b>   System Administration:</b><br />	<b>   System Administration:</b><br />
<tt>      $sysadm</tt><br />	<tt>      $sysadm</tt><br />
<b>   Server Administration:</b><br />	<b>   Server Administration:</b><br />
<tt>      $servadm<br /> </tt>	<tt>      $servadm</tt><br /> <br />
	$version
</small>	</small>
</td>	</td>

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

Removed from v.1.42
changed lines
	Added in v.1.45