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.43 and 1.44.2.2

version 1.43, 2003/07/16 20:42:31	version 1.44.2.2, 2003/08/26 19:48:41
Line 73 sub handler {	Line 73 sub handler {
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.	my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
$r->dir_config('lonIconsURL');	$r->dir_config('lonIconsURL');
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
	if (($ENV{'form.domain'}) &&
	($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
	$domain=$ENV{'form.domain'};
	}
my $role = $r->dir_config('lonRole');	my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');	my $loadlim = $r->dir_config('lonLoadLim');
my $servadm = $r->dir_config('lonAdmEMail');	my $servadm = $r->dir_config('lonAdmEMail');
Line 81 sub handler {	Line 85 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 104 sub handler {	Line 109 sub handler {
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
if (($role eq 'access') &&	if (($role eq 'access') &&
(($userloadpercent>100.0)\|\|($loadpercent>100.0))) {	(($userloadpercent>100.0)\|\|($loadpercent>100.0))) {
$otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);	my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
	if ($unloaded) { $otherserver=$unloaded; }
}	}

# -------------------------------------------------------- Set login parameters	# -------------------------------------------------------- Set login parameters
Line 182 ENDHEADER	Line 188 ENDHEADER

# ----------------------------------------------------------- Front page design	# ----------------------------------------------------------- Front page design
my $pgbg=	my $pgbg=
($fullgraph?&Apache::loncommon::designparm('login.pgbg'):'#FFFFFF');	($fullgraph?&Apache::loncommon::designparm('login.pgbg',$domain):'#FFFFFF');
my $font=	my $font=
($fullgraph?&Apache::loncommon::designparm('login.font'):'#000000');	($fullgraph?&Apache::loncommon::designparm('login.font',$domain):'#000000');
my $link=	my $link=
($fullgraph?&Apache::loncommon::designparm('login.link'):'#0000FF');	($fullgraph?&Apache::loncommon::designparm('login.link',$domain):'#0000FF');
my $vlink=	my $vlink=
($fullgraph?&Apache::loncommon::designparm('login.vlink'):'#0000FF');	($fullgraph?&Apache::loncommon::designparm('login.vlink',$domain):'#0000FF');
my $alink=&Apache::loncommon::designparm('login.alink');	my $alink=&Apache::loncommon::designparm('login.alink',$domain);
my $mainbg=	my $mainbg=
($fullgraph?&Apache::loncommon::designparm('login.mainbg'):'#FFFFFF');	($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');
my $sidebg=	my $sidebg=
($fullgraph?&Apache::loncommon::designparm('login.sidebg'):'#FFFFFF');	($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF');
my $logo=&Apache::loncommon::designparm('login.logo');	my $logo=&Apache::loncommon::designparm('login.logo',$domain);
my $img=&Apache::loncommon::designparm('login.img');	my $img=&Apache::loncommon::designparm('login.img',$domain);


# ---------------------------------------------------------- Serve rest of page	# ---------------------------------------------------------- Serve rest of page
Line 432 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.43
changed lines
	Added in v.1.44.2.2