modules/gci/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / modules / gci

Diff for /modules/gci/lonlogin.pm between versions 1.10 and 1.15

version 1.10, 2010/12/05 18:09:25	version 1.15, 2022/02/27 16:35:24
Line 30 package Apache::lonlogin;	Line 30 package Apache::lonlogin;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File ();	use Apache::File();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonauth();	use Apache::lonauth();
Line 63 sub handler {	Line 63 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;


# Are we re-routing?	# Are we re-routing?
if (-e '/home/httpd/html/lon-status/reroute.txt') {	if (-e '/home/httpd/html/lon-status/reroute.txt') {
&Apache::lonauth::reroute($r);	&Apache::lonauth::reroute($r);
Line 632 END_OF_BLOCK2	Line 631 END_OF_BLOCK2
Javascript must be enabled in your web browser in order to use this web site.	Javascript must be enabled in your web browser in order to use this web site.
</font></noscript>	</font></noscript>
<p> </p>	<p> </p>
<input type="hidden" name="imagesuppress" value="" />	<input type="hidden" name="imagesuppress" value="" />
<input type="hidden" name="embedsuppress" value="" />	<input type="hidden" name="embedsuppress" value="" />
<input type="hidden" name="appletsuppress" value="" />	<input type="hidden" name="appletsuppress" value="" />
<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="" />
END_OF_BLOCK3	END_OF_BLOCK3
} else {	} else {
$r->print(<<ENDACCESSOPTIONS);	$r->print(<<ENDACCESSOPTIONS);
Line 714 ENDTEXTUAL	Line 713 ENDTEXTUAL
<input type="hidden" name="upass1" value="" />	<input type="hidden" name="upass1" value="" />
<input type="hidden" name="upass2" value="" />	<input type="hidden" name="upass2" value="" />
<input type="hidden" name="udom" value="" />	<input type="hidden" name="udom" value="" />
<input type="hidden" name="imagesuppress" value="" />	<input type="hidden" name="imagesuppress" value="" />
<input type="hidden" name="appletsuppress" value="" />	<input type="hidden" name="appletsuppress" value="" />
<input type="hidden" name="embedsuppress" value="" />	<input type="hidden" name="embedsuppress" value="" />
<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="localpath" value="$env{'form.localpath'}" />
<input type="hidden" name="localres" value="$env{'form.localres'}" />	<input type="hidden" name="localres" value="$env{'form.localres'}" />
</form>	</form>
Line 766 function helpdesk() {	Line 765 function helpdesk() {
ENDSCRIPT	ENDSCRIPT
}	}
$contactblock .= <<"ENDBLOCK";	$contactblock .= <<"ENDBLOCK";
$version	$version
ENDBLOCK	ENDBLOCK
return $contactblock;	return $contactblock;
}	}

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

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

Removed from v.1.10
changed lines
	Added in v.1.15