loncom/cgi/ping.pl - diff

Return to ping.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.7, 2008/11/28 20:50:25	version 1.8, 2008/12/25 01:56:03
Line 31 $\|=1;	Line 31 $\|=1;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA::loncgi;	use LONCAPA::loncgi;
	use LONCAPA::lonauthcgi;

print("Content-type: text/plain\n\n");	print("Content-type: text/plain\n\n");

&main();	&main();

sub main {	sub main {
if (!&LONCAPA::loncgi::check_ipbased_access('ping')) {	if (!&LONCAPA::lonauthcgi::check_ipbased_access('ping')) {
if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {	if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
return;	return;
}	}

if (!&LONCAPA::loncgi::can_view('ping')) {	if (!&LONCAPA::lonauthcgi::can_view('ping')) {
return;	return;
}	}
}	}