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.111 and 1.147

version 1.111, 2008/12/10 10:14:55	version 1.147, 2011/03/03 06:37:30
Line 46 sub handler {	Line 46 sub handler {
(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},	(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},
$ENV{'REDIRECT_QUERY_STRING'}),	$ENV{'REDIRECT_QUERY_STRING'}),
['interface','username','domain','firsturl','localpath','localres',	['interface','username','domain','firsturl','localpath','localres',
'token']);	'token','role','symb']);
if (!defined($env{'form.firsturl'})) {	if (!defined($env{'form.firsturl'})) {
&Apache::lonacc::get_posted_cgi($r,['firsturl']);	&Apache::lonacc::get_posted_cgi($r,['firsturl']);
}	}
Line 69 sub handler {	Line 69 sub handler {
return OK;	return OK;
}	}

	$env{'form.firsturl'} =~ s/(`)/'/g;

# -------------------------------- Prevent users from attempting to login twice	# -------------------------------- Prevent users from attempting to login twice
my $handle = &Apache::lonnet::check_for_valid_session($r);	my $handle = &Apache::lonnet::check_for_valid_session($r);
if ($handle=~/^publicuser\_/) {	if ($handle ne '') {
	my $lonidsdir=$r->dir_config('lonIDsDir');
	if ($handle=~/^publicuser\_/) {
# For "public user" - remove it, we apparently really want to login	# For "public user" - remove it, we apparently really want to login
unlink($r->dir_config('lonIDsDir')."/$handle.id");	unlink($r->dir_config('lonIDsDir')."/$handle.id");
} elsif ($handle ne '') {	} else {
# Indeed, a valid token is found	# Indeed, a valid token is found
my $start_page =	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
&Apache::loncommon::start_page('Already logged in');	my $start_page =
my $end_page =	&Apache::loncommon::start_page('Already logged in');
&Apache::loncommon::end_page();	my $end_page =
$r->print(	&Apache::loncommon::end_page();
	my $dest = '/adm/roles';
	if ($env{'form.firsturl'} ne '') {
	$dest = $env{'form.firsturl'};
	}
	$r->print(
$start_page	$start_page
.'<h1>'.&mt('You are already logged in!').'</h1>'	.'<h1>'.&mt('You are already logged in!').'</h1>'
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].',	.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>'	'<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>'
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
.$end_page	.$end_page
);	);
return OK;	return OK;
	}
}	}

# ---------------------------------------------------- No valid token, continue	# ---------------------------------------------------- No valid token, continue
Line 102 sub handler {	Line 110 sub handler {
# ----------------------------------------------------------- Process Interface	# ----------------------------------------------------------- Process Interface
$env{'form.interface'}=~s/\W//g;	$env{'form.interface'}=~s/\W//g;

# my $textbrowsers=$r->dir_config('lonTextBrowsers');
my $httpbrowser=$ENV{"HTTP_USER_AGENT"};	my $httpbrowser=$ENV{"HTTP_USER_AGENT"};

# foreach (split(/\:/,$textbrowsers)) {
# if ($httpbrowser=~/$_/i) {
# $env{'form.interface'}='textual';
# }
# }

my $fullgraph=($env{'form.interface'} ne 'textual');

my $iconpath=	my $iconpath=
&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));	&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));

	my $lonhost = $r->dir_config('lonHostID');
my $domain = &Apache::lonnet::default_login_domain();	my $domain = &Apache::lonnet::default_login_domain();
	if ($lonhost ne '') {
	my $redirect = &check_loginvia($domain,$lonhost);
	if ($redirect) {
	$r->print($redirect);
	return OK;
	}
	}

if (($env{'form.domain'}) &&	if (($env{'form.domain'}) &&
(&Apache::lonnet::domain($env{'form.domain'},'description'))) {	(&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');
my $loadlim = $r->dir_config('lonLoadLim');	my $loadlim = $r->dir_config('lonLoadLim');
	my $uloadlim= $r->dir_config('lonUserLoadLim');
my $servadm = $r->dir_config('lonAdmEMail');	my $servadm = $r->dir_config('lonAdmEMail');
my $lonhost = $r->dir_config('lonHostID');
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');
Line 143 sub handler {	Line 151 sub handler {
$loadavg=<$loadfile>;	$loadavg=<$loadfile>;
}	}
$loadavg =~ s/\s.*//g;	$loadavg =~ s/\s.*//g;
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
my $userloadpercent=&Apache::lonnet::userload();

# ------------------------------------------------------- Do the load balancing	my ($loadpercent,$userloadpercent);
my $otherserver= &Apache::lonnet::absolute_url($host_name);	if ($loadlim) {
	$loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
	}
	if ($uloadlim) {
	$userloadpercent=&Apache::lonnet::userload();
	}

my $firsturl=	my $firsturl=
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});	($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});
# ---------------------------------------------------------- Are we overloaded?
if ((($userloadpercent>100.0)\|\|($loadpercent>100.0))) {
my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
if ($unloaded) { $otherserver=$unloaded; }
}

# ----------------------------------------------------------- Get announcements	# ----------------------------------------------------------- Get announcements
my $announcements=&Apache::lonnet::getannounce();	my $announcements=&Apache::lonnet::getannounce();
Line 179 sub handler {	Line 186 sub handler {
if ($uextkey>2147483647) { $uextkey-=4294967296; }	if ($uextkey>2147483647) { $uextkey-=4294967296; }

# -------------------------------------------------------- Store away log token	# -------------------------------------------------------- Store away log token
	my $tokenextras;
	if ($env{'form.role'}) {
	$tokenextras = '&role='.&escape($env{'form.role'});
	}
	if ($env{'form.symb'}) {
	if (!$tokenextras) {
	$tokenextras = '&';
	}
	$tokenextras .= '&symb='.&escape($env{'form.symb'});
	}
my $logtoken=Apache::lonnet::reply(	my $logtoken=Apache::lonnet::reply(
'tmpput:'.$ukey.$lkey.'&'.$firsturl,	'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras,
$lonhost);	$lonhost);

# ------------------- If we cannot talk to ourselves, we are in serious trouble	# ------------------- If we cannot talk to ourselves, we are in serious trouble
Line 242 return OK;	Line 259 return OK;
$servadm=~s/\,/\<br \/\>/g;	$servadm=~s/\,/\<br \/\>/g;

# ----------------------------------------------------------- Front page design	# ----------------------------------------------------------- Front page design
my $pgbg=	my $pgbg=&Apache::loncommon::designparm('login.pgbg',$domain);
($fullgraph?&Apache::loncommon::designparm('login.pgbg',$domain):'#FFFFFF');	my $font=&Apache::loncommon::designparm('login.font',$domain);
my $font=	my $link=&Apache::loncommon::designparm('login.link',$domain);
($fullgraph?&Apache::loncommon::designparm('login.font',$domain):'#000000');	my $vlink=&Apache::loncommon::designparm('login.vlink',$domain);
my $link=
($fullgraph?&Apache::loncommon::designparm('login.link',$domain):'#0000FF');
my $vlink=
($fullgraph?&Apache::loncommon::designparm('login.vlink',$domain):'#0000FF');
my $alink=&Apache::loncommon::designparm('login.alink',$domain);	my $alink=&Apache::loncommon::designparm('login.alink',$domain);
my $mainbg=	my $mainbg=&Apache::loncommon::designparm('login.mainbg',$domain);
($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');	my $loginbox_bg=&Apache::loncommon::designparm('login.sidebg',$domain);
my $textcol =	my $loginbox_header_bgcol=&Apache::loncommon::designparm('login.bgcol',$domain);
($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000');	my $loginbox_header_textcol=&Apache::loncommon::designparm('login.textcol',$domain);
my $bgcol =
($fullgraph?&Apache::loncommon::designparm('login.bgcol',$domain):'#FFFFFF');
my $logo=&Apache::loncommon::designparm('login.logo',$domain);	my $logo=&Apache::loncommon::designparm('login.logo',$domain);
my $img=&Apache::loncommon::designparm('login.img',$domain);	my $img=&Apache::loncommon::designparm('login.img',$domain);
my $domainlogo=&Apache::loncommon::domainlogo($domain);	my $domainlogo=&Apache::loncommon::domainlogo($domain);
my $login=&Apache::loncommon::designparm('login.login',$domain);
if ($login eq '') {
$login = $iconpath.'/'.&mt('userauthentication.gif');
}
my $showbanner = 1;	my $showbanner = 1;
my $showmainlogo = 1;	my $showmainlogo = 1;
if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) {	if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) {
Line 275 if (defined(&Apache::loncommon::designpa	Line 282 if (defined(&Apache::loncommon::designpa
my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);	my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);
my $showcoursecat =	my $showcoursecat =
&Apache::loncommon::designparm('login.coursecatalog',$domain);	&Apache::loncommon::designparm('login.coursecatalog',$domain);
my $loginheader =&Apache::loncommon::designparm('login.loginheader',$domain);
my $shownewuserlink =	my $shownewuserlink =
&Apache::loncommon::designparm('login.newuser',$domain);	&Apache::loncommon::designparm('login.newuser',$domain);
my $now=time;	my $now=time;
my $js = (<<ENDSCRIPT);	my $js = (<<ENDSCRIPT);

<script language="JavaScript">	<script type="text/javascript" language="JavaScript">
	// <![CDATA[
function send()	function send()
{	{
this.document.server.elements.uname.value	this.document.server.elements.uname.value
Line 307 this.document.client.elements.upass$now.	Line 314 this.document.client.elements.upass$now.
this.document.server.submit();	this.document.server.submit();
return false;	return false;
}	}

	function enableInput() {
	this.document.client.elements.upass$now.removeAttribute("readOnly");
	this.document.client.elements.uname.removeAttribute("readOnly");
	this.document.client.elements.udom.removeAttribute("readOnly");
	return;
	}

	// ]]>
</script>	</script>

ENDSCRIPT	ENDSCRIPT

# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header

my %add_entries = (topmargin => "0",	my %add_entries = (
leftmargin => "0",
marginheight => "0",
marginwidth => "0",
bgcolor => "$mainbg",	bgcolor => "$mainbg",
text => "$font",	text => "$font",
link => "$link",	link => "$link",
vlink => "$vlink",	vlink => "$vlink",
alink => "$alink",);	alink => "$alink",
	onload => 'javascript:enableInput();',);

$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,	$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,
{ 'redirect' => [$expire,'/adm/roles'],	{ 'redirect' => [$expire,'/adm/roles'],
Line 331 $r->print(&Apache::loncommon::start_page	Line 345 $r->print(&Apache::loncommon::start_page
# ----------------------------------------------------------------------- Texts	# ----------------------------------------------------------------------- Texts

my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'un' => 'Username',	'un' => 'Username',
'pw' => 'Password',	'pw' => 'Password',
'dom' => 'Domain',	'dom' => 'Domain',
'perc' => 'percent',	'perc' => 'percent',
'load' => 'Server Load',	'load' => 'Server Load',
'userload' => 'User Load',	'userload' => 'User Load',
'about' => 'About LON-CAPA',	'catalog' => 'Course/Community Catalog',
'catalog' => 'Course Catalog',	'log' => 'Log in',
'log' => 'Log in',	'help' => 'Log-in Help',
'help' => 'Log-in Help',	'serv' => 'Server',
'serv' => 'Server',	'servadm' => 'Server Administration',
'servadm' => 'Server Administration',	'helpdesk' => 'Contact Helpdesk',
'helpdesk' => 'Contact Helpdesk',	'forgotpw' => 'Forgot password?',
'forgotpw' => 'Forgot password?',	'newuser' => 'New User?',
'newuser' => 'New User?',	);
);
# -------------------------------------------------- Change password field name	# -------------------------------------------------- Change password field name

my $forgotpw = &forgotpwdisplay(%lt);	my $forgotpw = &forgotpwdisplay(%lt);
my $loginhelp = &loginhelpdisplay(%lt);	$forgotpw .= '<br />' if $forgotpw;
	my $loginhelp = &loginhelpdisplay($authdomain,%lt);
	$loginhelp .= '<br />' if $loginhelp;

# ---------------------------------------------------- Serve out DES JavaScript	# ---------------------------------------------------- Serve out DES JavaScript
{	{
Line 358 $r->print(<$jsh>);	Line 374 $r->print(<$jsh>);
}	}
# ---------------------------------------------------------- Serve rest of page	# ---------------------------------------------------------- Serve rest of page

if ($fullgraph) {
$r->print(	$r->print(
'<div class="LC_loginpage_container">');	'<div class="LC_Box"'
}	.' style="margin:0 auto; padding:10px; width:90%; height: auto; background-color:#FFFFFF;">'
	);

	#
	# If the loadbalancing yielded just http:// because perhaps there's no loadbalancing?
	# then just us a relative link to authenticate:
	#

$r->print(<<ENDSERVERFORM);	$r->print(<<ENDSERVERFORM);
<form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">	<form name="server" action="/adm/authenticate" method="post" target="_top">
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
Line 378 $r->print(<<ENDSERVERFORM);	Line 399 $r->print(<<ENDSERVERFORM);
ENDSERVERFORM	ENDSERVERFORM
my $coursecatalog;	my $coursecatalog;
if (($showcoursecat eq '') \|\| ($showcoursecat)) {	if (($showcoursecat eq '') \|\| ($showcoursecat)) {
$coursecatalog = &coursecatalog_link($lt{'catalog'});	$coursecatalog = &coursecatalog_link($lt{'catalog'}).'<br />';
}	}
my $newuserlink;	my $newuserlink;
if ($shownewuserlink) {	if ($shownewuserlink) {
$newuserlink = &newuser_link($lt{'newuser'});	$newuserlink = &newuser_link($lt{'newuser'}).'<br />';
}
my $logintitle;
if ($loginheader eq 'text') {
$logintitle = $lt{'log'};
} else {
$logintitle = '<img src="'.$login.'" alt="'.
&mt('User Authentication').'" />';
}	}
	my $logintitle =
	'<h2 class="LC_hcell"'
	.' style="background:'.$loginbox_header_bgcol.';'
	.' color:'.$loginbox_header_textcol.'">'
	.$lt{'log'}
	.'</h2>';

my $noscript_warning='<noscript><span class="LC_warning"><b>'	my $noscript_warning='<noscript><span class="LC_warning"><b>'
.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')	.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')
.'</b></span></noscript>';	.'</b></span></noscript>';
my $helpdeskscript;	my $helpdeskscript;
my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail,	my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail,
$version,$authdomain,\$helpdeskscript);	$authdomain,\$helpdeskscript);

my $loginform=(<<LFORM);	my $loginform=(<<LFORM);
<form name="client" onsubmit="return(send())">	<form name="client" action="" onsubmit="return(send())">
<input type="hidden" name="lextkey" value="$lextkey">	<input type="hidden" name="lextkey" value="$lextkey" />
<input type="hidden" name="uextkey" value="$uextkey">	<input type="hidden" name="uextkey" value="$uextkey" />
<b><label for="uname">$lt{'un'}</label>:</b><br />	<b><label for="uname">$lt{'un'}</label>:</b><br />
<input type="text" name="uname" size="10" value="$authusername" /><br />	<input type="text" name="uname" id="uname" size="15" value="$authusername" readonly="readonly" /><br />
<b><label for="upass$now">$lt{'pw'}</label>:</b><br />	<b><label for="upass$now">$lt{'pw'}</label>:</b><br />
<input type="password" name="upass$now" size="10" /><br />	<input type="password" name="upass$now" id="upass$now" size="15" readonly="readonly" /><br />
<b><label for="udom">$lt{'dom'}</label>:</b><br />	<b><label for="udom">$lt{'dom'}</label>:</b><br />
<input type="text" name="udom" size="10" value="$authdomain" /><br />	<input type="text" name="udom" id="udom" size="15" value="$authdomain" readonly="readonly" /><br />
<input type="submit" value="$lt{'log'}" />	<input type="submit" value="$lt{'log'}" />
</form>	</form>
LFORM	LFORM

if ($fullgraph) {
if ($showbanner) {	if ($showbanner) {
$r->print(<<HEADER);	$r->print(<<HEADER);
<!-- The LON-CAPA Header -->	<!-- The LON-CAPA Header -->
<table border="0" align="left" width="100%" cellspacing="0" cellpadding="1">	<div style="background:$pgbg;margin:0;width:100%;">
<tr>	<img src="$img" border="0" alt="The Learning Online Network with CAPA" />
<td align="left" valign="top" bgcolor="$pgbg">	</div>
<img src="$img" border=0 alt="The Learning Online Network with CAPA" />
</td>
</tr>
</table>
HEADER	HEADER
}	}
if ($showmainlogo) {
$r->print('<div class="LC_loginpage_space"> </div>'."\n".
' <img src="'.$logo.'" alt="" />'."\n");
}
$r->print(<<ENDTOP);	$r->print(<<ENDTOP);
<div class="LC_loginpage_loginContainer">	<div style="float:left;margin-top:0;">
<fieldset class="LC_loginpage_fieldset">	<div class="LC_Box" style="background:$loginbox_bg;">
<legend class="LC_loginpage_legend">$logintitle</legend>	$logintitle
<table border="0" align="left" cellspacing="1" cellpadding="1" width="100%">	$loginform
<tr>	$noscript_warning
<td width="50%" align="center" valign="top">
$domainlogo
</td>
<td>
$loginform
</td>
</tr>
</table>
$noscript_warning
</fieldset>
</div>	</div>

<div class="LC_loginpage_loginInfo">	<div class="LC_Box" style="padding-top: 10px;">
$loginhelp<br />	$loginhelp
$forgotpw<br /><br />	$forgotpw
$newuserlink<br />	$contactblock
$coursecatalog<br /><br />	$newuserlink
<a href="/adm/about.html"><b>$lt{'about'}</b></a><br/>	$coursecatalog
$contactblock	</div>
</div>	</div>

<div class="LC_loginpage_space"> </div>	<div>
	ENDTOP
	if ($showmainlogo) {
	$r->print(' <img src="'.$logo.'" alt="" />'."\n");
	}
	$r->print(<<ENDTOP);
$announcements	$announcements
	</div>
	<hr style="clear:both;" />
ENDTOP	ENDTOP
}	my ($domainrow,$serverrow,$loadrow,$userloadrow,$versionrow);
	$domainrow = <<"END";
if($announcements){$r->print('<div class="LC_loginpage_space"> </div>');}

if ($fullgraph) {
$r->print(<<ENDDOCUMENT);
<table border=0 cellspacing=0 cellpadding=0>
<tr>	<tr>
<td align="left" valign="top">	<td align="left" valign="top">
<small><b>   $lt{'dom'}: </b></small>	<small><b>$lt{'dom'}: </b></small>
</td>	</td>
<td align="left" valign="top">	<td align="left" valign="top">
<small><tt> $domain</tt></small>	<small><tt> $domain</tt></small>
</td>	</td>
</tr>	</tr>
	END
	$serverrow = <<"END";
<tr>	<tr>
<td align="left" valign="top">	<td align="left" valign="top">
<small><b>   $lt{'serv'}: </b></small>	<small><b>$lt{'serv'}: </b></small>
</td>	</td>
<td align="left" valign="top">	<td align="left" valign="top">
<small><tt> $lonhost ($role)</tt></small>	<small><tt> $lonhost ($role)</tt></small>
</td>	</td>
</tr>	</tr>
	END
	if ($loadlim) {
	$loadrow = <<"END";
<tr>	<tr>
<td align="left" valign="top">	<td align="left" valign="top">
<small><b>   $lt{'load'}: </b></small>	<small><b>$lt{'load'}: </b></small>
</td>	</td>
<td align="left" valign="top">	<td align="left" valign="top">
<small><tt> $loadpercent $lt{'perc'}</tt></small>	<small><tt> $loadpercent $lt{'perc'}</tt></small>
</td>	</td>
</tr>	</tr>
	END
	}
	if ($uloadlim) {
	$userloadrow = <<"END";
<tr>	<tr>
<td align="left" valign="top">	<td align="left" valign="top">
<small><b>   $lt{'userload'}: </b></small>	<small><b>$lt{'userload'}: </b></small>
</td>	</td>
<td align="left" valign="top">	<td align="left" valign="top">
<small><tt> $userloadpercent $lt{'perc'}</tt></small>	<small><tt> $userloadpercent $lt{'perc'}</tt></small>
</td>	</td>
</tr>	</tr>
	END
	}
	if (($version ne '') && ($version ne '<!-- VERSION -->')) {
	$versionrow = <<"END";
	<tr>
	<td colspan="2" align="left">
	<small>$version</small>
	</td>
	</tr>
	END
	}

	$r->print(<<ENDDOCUMENT);
	<div style="float: left;">
	<table border="0" cellspacing="0" cellpadding="0">
	$domainrow
	$serverrow
	$loadrow
	$userloadrow
	$versionrow
</table>	</table>
	</div>
	<div style="float: right;">
	$domainlogo
	</div>
	<br style="clear:both;" />
</div>	</div>

<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
// the if prevents the script error if the browser can not 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>
$helpdeskscript	$helpdeskscript

ENDDOCUMENT	ENDDOCUMENT
}
my %endargs = ( 'noredirectlink' => 1, );	my %endargs = ( 'noredirectlink' => 1, );
$r->print(&Apache::loncommon::end_page(\%endargs));	$r->print(&Apache::loncommon::end_page(\%endargs));
return OK;	return OK;
}	}

	sub check_loginvia {
	my ($domain,$lonhost) = @_;
	if ($domain eq '' \|\| $lonhost eq '') {
	return;
	}
	my %domconfhash = &Apache::loncommon::get_domainconf($domain);
	my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
	my $loginvia_exempt = $domconfhash{$domain.'.login.loginvia_exempt_'.$lonhost};
	my $output;
	if ($loginvia ne '') {
	my $noredirect;
	my $ip = $ENV{'REMOTE_ADDR'};
	if ($ip eq '127.0.0.1') {
	$noredirect = 1;
	} else {
	if ($loginvia_exempt ne '') {
	my @exempt = split(',',$loginvia_exempt);
	if (grep(/^\Q$ip\E$/,@exempt)) {
	$noredirect = 1;
	}
	}
	}
	unless ($noredirect) {
	my ($newhost,$path);
	if ($loginvia =~ /:/) {
	($newhost,$path) = split(':',$loginvia);
	} else {
	$newhost = $loginvia;
	}
	if ($newhost ne $lonhost) {
	if (&Apache::lonnet::hostname($newhost) ne '') {
	$output = &redirect_page($newhost,$path);
	}
	}
	}
	}
	return $output;
	}

	sub redirect_page {
	my ($desthost,$path) = @_;
	my $protocol = $Apache::lonnet::protocol{$desthost};
	$protocol = 'http' if ($protocol ne 'https');
	unless ($path =~ m{^/}) {
	$path = '/'.$path;
	}
	my $url = $protocol.'://'.&Apache::lonnet::hostname($desthost).$path;
	if ($env{'form.firsturl'} ne '') {
	$url .='?firsturl='.$env{'form.firsturl'};
	}
	my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,
	{'redirect' => [0,$url],});
	my $end_page = &Apache::loncommon::end_page();
	return $start_page.$end_page;
	}

sub contactdisplay {	sub contactdisplay {
my ($lt,$servadm,$showadminmail,$version,$authdomain,$helpdeskscript) = @_;	my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript) = @_;
my $contactblock;	my $contactblock;
my $showhelpdesk = 0;	my $showhelpdesk = 0;
my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'};	my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
Line 524 sub contactdisplay {	Line 618 sub contactdisplay {
$showhelpdesk = 1;	$showhelpdesk = 1;
}	}
if ($servadm && $showadminmail) {	if ($servadm && $showadminmail) {
$contactblock .= '<b>   '.$$lt{'servadm'}.':</b><br />'.	$contactblock .= $$lt{'servadm'}.':<br />'.
'<tt>      '.$servadm.'</tt><br /> <br />';	'<tt>'.$servadm.'</tt><br />';
}	}
if ($showhelpdesk) {	if ($showhelpdesk) {
$contactblock .= '<b><a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a></b><br />';	$contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />';
my $thisurl = &escape('/adm/login');	my $thisurl = &escape('/adm/login');
$$helpdeskscript = <<"ENDSCRIPT";	$$helpdeskscript = <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function helpdesk() {	function helpdesk() {
var codedom = document.client.udom.value;	var codedom = document.client.udom.value;
if (codedom == '') {	if (codedom == '') {
Line 541 function helpdesk() {	Line 636 function helpdesk() {
document.location.href = "/adm/helpdesk?"+querystr;	document.location.href = "/adm/helpdesk?"+querystr;
return;	return;
}	}
	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
$contactblock .= <<"ENDBLOCK";
$version
ENDBLOCK
return $contactblock;	return $contactblock;
}	}

Line 560 sub forgotpwdisplay {	Line 653 sub forgotpwdisplay {
}	}

sub loginhelpdisplay {	sub loginhelpdisplay {
my (%lt) = @_;	my ($authdomain,%lt) = @_;
my $login_help = 1;	my $login_help = 1;
if ($login_help) {	if ($login_help) {
return '<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a>';	my $dom = $authdomain;
	if ($dom eq '') {
	$dom = &Apache::lonnet::default_login_domain();
	}
	my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom);
	my $loginhelp_url = $helpconfig{'helpsettings'}{'loginhelpurl'};
	if ($loginhelp_url ne '') {
	return '<a href="'.$loginhelp_url.'">'.$lt{'help'}.'</a>';
	} else {
	return '<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a>';
	}
}	}
return;	return;
}	}
Line 577 END	Line 680 END

sub newuser_link {	sub newuser_link {
my ($linkname) = @_;	my ($linkname) = @_;
return '   <a href="/adm/createaccount"><b>'.$linkname.'</b></a><br />';	return '<a href="/adm/createaccount">'.$linkname.'</a>';
}	}

1;	1;

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

Removed from v.1.111
changed lines
	Added in v.1.147