loncom/cgi/lonmodulecheck.pl - diff

Return to lonmodulecheck.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.2, 2013/02/08 14:51:47	version 1.4, 2013/09/10 17:44:01
Line 58 if ($londaemons ne '' && $lonlib ne '' &	Line 58 if ($londaemons ne '' && $lonlib ne '' &

sub main {	sub main {
my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;	my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
if (!&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {	if (&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {
	&LONCAPA::loncgi::check_cookie_and_load_env();
	} else {
if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {	if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
print(&LONCAPA::loncgi::missing_cookie_msg());	print(&LONCAPA::loncgi::missing_cookie_msg());
Line 89 sub print_differences {	Line 91 sub print_differences {
'</h3>');	'</h3>');
} else {	} else {
print('<h3>'.	print('<h3>'.
&Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',	&Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]',
$version).	$version).
'</h3>');	'</h3>');
my $distro = &LONCAPA::distro();	my $distro = &LONCAPA::distro();