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; |
} |
} |
} |
} |