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.82 and 1.89

version 1.82, 2006/11/01 21:27:50	version 1.89, 2007/03/08 01:58:48
Line 40 use Apache::migrateuser();	Line 40 use Apache::migrateuser();
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;


sub additional_machine_domains {
my @domains;
open(my $fh,"<".$Apache::lonnet::perlvar{'lonTabDir'}.'/expected_domains.tab');
while( my $line = <$fh>) {
$line =~ s/\s//g;
push(@domains,$line);
}
return @domains;
}

sub handler {	sub handler {
my $r = shift;	my $r = shift;

Line 84 sub handler {	Line 73 sub handler {
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $cookie;
if ($lonid) {	if ($lonid) {
my $handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if (-e "$lonidsdir/$handle.id") {	if (-e "$lonidsdir/$handle.id") {
# Is there an existing token file?	# Is there an existing token file?
Line 138 ENDFAILED	Line 126 ENDFAILED
}	}
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 = &Apache::lonnet::default_login_domain();
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
foreach my $posdom (&Apache::lonnet::current_machine_domains(),
&additional_machine_domains()) {
if (lc($posdom) eq lc($testdomain)) { $domain=$posdom; }
}
if (($env{'form.domain'}) &&	if (($env{'form.domain'}) &&
($Apache::lonnet::domaindescription{$env{'form.domain'}})) {	(&Apache::lonnet::domain($env{'form.domain'},'description'))) {
$domain=$env{'form.domain'};	$domain=$env{'form.domain'};
}	}
my $role = $r->dir_config('lonRole');	my $role = $r->dir_config('lonRole');
Line 155 ENDFAILED	Line 138 ENDFAILED
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');	my $version = $r->dir_config('lonVersion');
my $host_name = $Apache::lonnet::hostname{$lonhost};	my $host_name = &Apache::lonnet::hostname($lonhost);

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

Line 217 ENDFAILED	Line 200 ENDFAILED
my $last;	my $last;
foreach my $hostid (sort	foreach my $hostid (sort
{	{
$Apache::lonnet::hostname{$a} cmp	&Apache::lonnet::hostname($a) cmp
$Apache::lonnet::hostname{$b};	&Apache::lonnet::hostname($b);
}	}
keys(%Apache::lonnet::spareid)) {	keys(%Apache::lonnet::spareid)) {
next if ($hostid eq $lonhost);	next if ($hostid eq $lonhost);
next if ($last eq $Apache::lonnet::hostname{$hostid});	my $hostname = &Apache::lonnet::hostname($hostid);
	next if ($last eq $hostname);
$spares.='<br /><font size="+1"><a href="http://'.	$spares.='<br /><font size="+1"><a href="http://'.
$Apache::lonnet::hostname{$hostid}.	$hostname.
'/adm/login?domain='.$authdomain.'">'.	'/adm/login?domain='.$authdomain.'">'.
$Apache::lonnet::hostname{$hostid}.'</a>'.	$hostname.'</a>'.
' (preferred)</font>'.$/;	' (preferred)</font>'.$/;
$last=$Apache::lonnet::hostname{$hostid};	$last=$hostname;
}	}
$spares.= '<br />';	$spares.= '<br />';
	my %all_hostnames = &Apache::lonnet::all_hostnames();
foreach my $hostid (sort	foreach my $hostid (sort
{	{
$Apache::lonnet::hostname{$a} cmp	&Apache::lonnet::hostname($a) cmp
$Apache::lonnet::hostname{$b};	&Apache::lonnet::hostname($b);
}	}
keys(%Apache::lonnet::hostname)) {	keys(%all_hostnames)) {
next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});	next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});
next if ($last eq $Apache::lonnet::hostname{$hostid});	my $hostname = &Apache::lonnet::hostname($hostid);
	next if ($last eq $hostname);
$spares.='<br /><a href="http://'.	$spares.='<br /><a href="http://'.
$Apache::lonnet::hostname{$hostid}.	$hostname.
'/adm/login?domain='.$authdomain.'">'.	'/adm/login?domain='.$authdomain.'">'.
$Apache::lonnet::hostname{$hostid}.'</a>';	$hostname.'</a>';
$last=$Apache::lonnet::hostname{$hostid};	$last=$hostname;
}	}
$r->print(<<ENDTROUBLE);	$r->print(<<ENDTROUBLE);
<html>	<html>
Line 302 my %lt=&Apache::lonlocal::texthash(	Line 288 my %lt=&Apache::lonlocal::texthash(
'perc' => 'percent',	'perc' => 'percent',
'load' => 'Load',	'load' => 'Load',
'userload' => 'User Load',	'userload' => 'User Load',
'about' => 'aboutlon.gif',	'about' => 'About LON-CAPA',
'access' => 'accessbutton.gif',	'access' => 'Accessibility Options',
	'catalog' => 'Course Catalog',
'auth' => 'userauthentication.gif',	'auth' => 'userauthentication.gif',
'log' => 'Log in',	'log' => 'Log in',
'help' => 'Help',	'help' => 'Log-in Help',
'serv' => 'Server',	'serv' => 'Server',
'helpdesk' => 'Contact Helpdesk');	'helpdesk' => 'Contact Helpdesk',
	'forgotpw' => 'Forgot password?');
# -------------------------------------------------- Change password field name	# -------------------------------------------------- Change password field name
my $now=time;	my $now=time;
	my $forgotpw = &forgotpwdisplay(%lt);
	my $loginhelp = &loginhelpdisplay(%lt);
# ---------------------------------------------------------- Serve rest of page	# ---------------------------------------------------------- Serve rest of page
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);

Line 414 ENDSERVERFORM	Line 404 ENDSERVERFORM
</tr>	</tr>
<tr>	<tr>

<!-- A cell that will hold the 'access' and 'about' buttons -->	<!-- A cell that will hold the 'access', 'about', and 'catalog' links -->
<!-- Row 3 Column 1 -->	<!-- Row 3 Column 1 -->
<td valign="top" height=60 align="center" bgcolor="$sidebg">	<td valign="top" height="60" align="left" bgcolor="$sidebg">
<a href="/adm/login?interface=textual"><img src="$iconpath/$lt{'access'}" border=0 alt="Accessibility Options" /></a>	<table cellpadding="0" cellspacing="2" border="0">
<br />	<tr>
<a href="/adm/about.html"><img src="$iconpath/$lt{'about'}" border=0 alt="About LON-CAPA" /></a>	<td> </td>
	<td><a href="/adm/login?interface=textual"><b>$lt{'access'}</b></a></td>
	</tr>
	<tr>
	<td> </td>
	<td><a href="/adm/about.html"><b>$lt{'about'}</b></a></td>
	</tr>
	<tr>
	<td> </td>
	<td><a href="/adm/coursecatalog"><b>$lt{'catalog'}</b></a></td>
	</tr>
	<tr>
	<td colspan="2"> </td>
	</tr>
	</table>
</td>	</td>

<!-- The shaded space between the two main columns -->	<!-- The shaded space between the two main columns -->
<!-- Row 3 Column 2 -->	<!-- Row 3 Column 2 -->
<td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>	<td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>
Line 487 ENDNOOPT	Line 490 ENDNOOPT
<td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></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">$lt{'help'}</a></td>	<td bgcolor="$mainbg"> </td>
<td bgcolor="$mainbg" valign="bottom" align="center">	<td bgcolor="$mainbg" valign="bottom" align="center">
<br />	<br />
<input type="submit" value="$lt{'log'}" />	<input type="submit" value="$lt{'log'}" />
</td>	</td>
</tr>	</tr>
	<tr>
	<td bgcolor="$mainbg" valign="bottom" align="left" colspan="2">
	$loginhelp
	$forgotpw
	</td>
	</tr>
</table>	</table>
<!-- End sub-table -->	<!-- End sub-table -->
</form>	</form>
Line 603 sub contactdisplay {	Line 612 sub contactdisplay {
$showhelpdesk = 1;	$showhelpdesk = 1;
}	}
if ($showhelpdesk) {	if ($showhelpdesk) {
$contactblock .= '<b>   <a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />';	$contactblock .= '<b>   <a href="javascript:helpdesk()"><font size="+1">'.$lt->{'helpdesk'}.'</font></a></b><br />';
my $thisurl = &escape('/adm/login');	my $thisurl = &escape('/adm/login');
$$helpdeskscript = <<"ENDSCRIPT";	$$helpdeskscript = <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
Line 624 ENDSCRIPT	Line 633 ENDSCRIPT
ENDBLOCK	ENDBLOCK
return $contactblock;	return $contactblock;
}	}

	sub forgotpwdisplay {
	my (%lt) = @_;
	my $prompt_for_resetpw = 1;
	if ($prompt_for_resetpw) {
	return '<br />   <a href="/adm/resetpw">'.$lt{'forgotpw'}.'</a></b><br /><br />';
	}
	return;
	}

	sub loginhelpdisplay {
	my (%lt) = @_;
	my $login_help = 1;
	if ($login_help) {
	return '   <a href="/adm/loginproblems.html">'.$lt{'help'}.'</a></b>';
	}
	return;
	}

1;	1;
__END__	__END__

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

Removed from v.1.82
changed lines
	Added in v.1.89