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.51 and 1.61

version 1.51, 2003/09/17 02:24:14	version 1.61, 2004/12/18 23:58:34
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9,
# 1/17/01 Gerd Kortemeyer
#
# 2/7/02,2/8,2/12,2/14,2/15,2/19 Josh Brunskole
#
# 7/10/02 Jeremy Bowers

package Apache::lonlogin;	package Apache::lonlogin;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
	use CGI::Cookie();
use Apache::File ();	use Apache::File ();
use Apache::lonnet();	use Apache::lonnet();
use Apache::loncommon();	use Apache::loncommon();
Line 45 use Apache::lonlocal;	Line 39 use Apache::lonlocal;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
	&Apache::lonlocal::get_language_handle($r);
	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

Line 57 sub handler {	Line 52 sub handler {
return OK;	return OK;
}	}

	# -------------------------------- Prevent users from attempting to login twice
	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
	my $lonid=$cookies{'lonID'};
	my $cookie;
	if ($lonid) {
	my $handle=$lonid->value;
	$handle=~s/\W//g;
	my $lonidsdir=$r->dir_config('lonIDsDir');
	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
	# Indeed, a valid token is found
	my $bodytag=&Apache::loncommon::bodytag('Already logged in');
	$r->print(<<ENDFAILED);
	<html>
	<head>
	<title>Already logged in</title>
	</head>
	$bodytag
	<h1>You are already logged in</h1>
	<p>Please either <a href="/adm/roles">continue the current session</a> or
	<a href="/adm/logout">logout</a>.</p>
	<p>
	<a href="/adm/loginproblems.html">Problems?</a></p>
	</body>
	</html>
	ENDFAILED
	return OK;
	}
	}

	# ---------------------------------------------------- No valid token, continue

&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','localpath','localres']);	['interface','username','domain','firsturl','localpath','localres']);

# -------------------------------------------------------------------- Language

&Apache::lonlocal::get_language_handle();

# ----------------------------------------------------------- Process Interface	# ----------------------------------------------------------- Process Interface
$ENV{'form.interface'}=~s/\W//g;	$ENV{'form.interface'}=~s/\W//g;
Line 111 sub handler {	Line 134 sub handler {
$loadavg=<$loadfile>;	$loadavg=<$loadfile>;
}	}
$loadavg =~ s/\s.*//g;	$loadavg =~ s/\s.*//g;
my $loadpercent=100*$loadavg/$loadlim;	my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
my $userloadpercent=&Apache::lonnet::userload();	my $userloadpercent=&Apache::lonnet::userload();

# ------------------------------------------------------- Do the load balancing	# ------------------------------------------------------- Do the load balancing
Line 156 sub handler {	Line 179 sub handler {

if ($logtoken eq 'con_lost') {	if ($logtoken eq 'con_lost') {
my $spares='';	my $spares='';
foreach (keys %Apache::lonnet::hostname) {
if ($_ ne $lonhost) {	foreach my $hostid (keys(%Apache::lonnet::spareid)) {
$spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}.	next if ($hostid eq $lonhost);
'/adm/login?domain='.$authdomain.'">'.	$spares.='<br /><font size="+1"><a href="http://'.
$Apache::lonnet::hostname{$_}.'</a>';	$Apache::lonnet::hostname{$hostid}.
if ($Apache::lonnet::spareid{$_}) {	'/adm/login?domain='.$authdomain.'">'.
$spares.=' (preferred)';	$Apache::lonnet::hostname{$hostid}.'</a>'.
}	' (preferred)</font>'.$/;
}	}
	$spares.= '<br />';
	foreach my $hostid (keys(%Apache::lonnet::hostname)) {
	next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});
	$spares.='<br /><a href="http://'.
	$Apache::lonnet::hostname{$hostid}.
	'/adm/login?domain='.$authdomain.'">'.
	$Apache::lonnet::hostname{$hostid}.'</a>';
}	}
$r->print(<<ENDTROUBLE);	$r->print(<<ENDTROUBLE);
<html>	<html>
Line 224 my %lt=&Apache::lonlocal::texthash(	Line 254 my %lt=&Apache::lonlocal::texthash(
'pw' => 'Password',	'pw' => 'Password',
'dom' => 'Domain',	'dom' => 'Domain',
'perc' => 'percent',	'perc' => 'percent',
'user' => 'User',	'load' => 'Load',
'load' => 'load',	'userload' => 'User Load',
	'about' => 'aboutlon.gif',
	'access' => 'accessbutton.gif',
	'auth' => 'userauthentication.gif',
'log' => 'Log in',	'log' => 'Log in',
'help' => 'Help',	'help' => 'Help',
'serv' => 'Server',	'serv' => 'Server',
'servadm' => 'Server Administration',	'servadm' => 'Server Administration',
'sysadm' => 'System Administration');	'sysadm' => 'System Administration',
	'helpdesk' => 'Contact Helpdesk');

# ---------------------------------------------------------- Serve rest of page	# ---------------------------------------------------------- Serve rest of page
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
Line 330 ENDSERVERFORM	Line 363 ENDSERVERFORM
<!-- A cell that will hold the 'access' and 'about' buttons -->	<!-- A cell that will hold the 'access' and 'about' buttons -->
<!-- Row 3 Column 1 -->	<!-- Row 3 Column 1 -->
<td valign="top" height=60 align="center" bgcolor="$sidebg">	<td valign="top" height=60 align="center" bgcolor="$sidebg">
<a href="/adm/login?interface=textual"><img src="$iconpath/accessbutton.gif" border=0 alt="Accessibility Options" /></a>	<a href="/adm/login?interface=textual"><img src="$iconpath/$lt{'access'}" border=0 alt="Accessibility Options" /></a>
<br />	<br />
<a href="/adm/about.html"><img src="$iconpath/aboutlon.gif" border=0 alt="About LON-CAPA" /></a>	<a href="/adm/about.html"><img src="$iconpath/$lt{'about'}" border=0 alt="About LON-CAPA" /></a>
</td>	</td>

<!-- The shaded space between the two main columns -->	<!-- The shaded space between the two main columns -->
Line 389 ENDNOOPT	Line 422 ENDNOOPT

<!-- Start the sub-table for text and input alignment -->	<!-- Start the sub-table for text and input alignment -->
<table border=0 cellspacing=0 cellpadding=0>	<table border=0 cellspacing=0 cellpadding=0>
<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/$lt{'auth'}" alt="User Authentication" /></td></tr>
<tr>	<tr>
<td bgcolor="$mainbg"><br /><font size=-1><b>   $lt{'un'}:</b></font></td>	<td bgcolor="$mainbg"><br /><font size=-1><b>   $lt{'un'}:</b></font></td>
<td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>	<td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
Line 414 ENDNOOPT	Line 447 ENDNOOPT
</form>	</form>
ENDLOGIN	ENDLOGIN
if ($fullgraph) {	if ($fullgraph) {
	my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version);
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
</td>	</td>

Line 450 ENDLOGIN	Line 484 ENDLOGIN
</tr>	</tr>
<tr>	<tr>
<td bgcolor="$sidebg" align="left" valign="top">	<td bgcolor="$sidebg" align="left" valign="top">
<small><b>   Load: </b></small>	<small><b>   $lt{'load'}: </b></small>
</td>	</td>
<td bgcolor="$sidebg" align="left" valign="top">	<td bgcolor="$sidebg" align="left" valign="top">
<small><tt> $loadpercent $lt{'perc'}</tt></small>	<small><tt> $loadpercent $lt{'perc'}</tt></small>
Line 458 ENDLOGIN	Line 492 ENDLOGIN
</tr>	</tr>
<tr>	<tr>
<td bgcolor="$sidebg" align="left" valign="top">	<td bgcolor="$sidebg" align="left" valign="top">
<small><b>   $lt{'user'} $lt{'load'}: </b></small>	<small><b>   $lt{'userload'}: </b></small>
</td>	</td>
<td bgcolor="$sidebg" align="left" valign="top">	<td bgcolor="$sidebg" align="left" valign="top">
<small><tt> $userloadpercent $lt{'perc'}</tt></small>	<small><tt> $userloadpercent $lt{'perc'}</tt></small>
Line 466 ENDLOGIN	Line 500 ENDLOGIN
</tr>	</tr>
</table>	</table>
<br />	<br />
<small>	$contactblock
<b>   $lt{'sysadm'}:</b><br />
<tt>      $sysadm</tt><br />
<b>   $lt{'servadm'}:</b><br />
<tt>      $servadm</tt><br /> <br />
$version
</small>
</td>	</td>

<!-- Row 5 Column 2 -->	<!-- Row 5 Column 2 -->
Line 502 $domainlogo	Line 530 $domainlogo
</tr>	</tr>
</table>	</table>

<script>	<script type="text/javascript">
// the if prevents the script error if the browser can't handle this	// the if prevents the script error if the browser can not handle this
if ( document.client.uname ) { document.client.uname.focus(); }	if ( document.client.uname ) { document.client.uname.focus(); }
</script>	</script>

Line 511 ENDDOCUMENT	Line 539 ENDDOCUMENT
}	}
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;
}	}

	sub contactdisplay {
	my ($lt,$sysadm,$servadm,$version) = @_;
	my $contactblock;
	my $showsysadm = 1;
	my $showservadm = 1;
	my $showhelpdesk = 1;
	if ($showsysadm) {
	$contactblock .= '<b>   '.$$lt{'sysadm'}.':</b><br />'.
	'<tt>      '.$sysadm.'</tt><br />';
	}
	if ($showservadm) {
	$contactblock .= '<b>   '.$$lt{'servadm'}.':</b><br />'.
	'<tt>      '.$servadm.'</tt><br /> <br />';
	}
	if ($showhelpdesk) {
	$contactblock .= '<b>   <a href="/adm/helpdesk?origurl='.&Apache::lonnet::escape('/adm/login').'">'.$$lt{'helpdesk'}.'</a></b><br />';
	}
	$contactblock .= <<"ENDBLOCK";
	$version
	ENDBLOCK
	return $contactblock;
	}


1;	1;
__END__	__END__

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

Removed from v.1.51
changed lines
	Added in v.1.61