--- loncom/cgi/ping.pl	2008/11/28 20:50:25	1.7
+++ loncom/cgi/ping.pl	2008/12/25 01:56:03	1.8
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # ping cgi-script
-# $Id: ping.pl,v 1.7 2008/11/28 20:50:25 raeburn Exp $
+# $Id: ping.pl,v 1.8 2008/12/25 01:56:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,18 +31,19 @@ $|=1;
 use lib '/home/httpd/lib/perl/';
 use Apache::lonnet;
 use LONCAPA::loncgi;
+use LONCAPA::lonauthcgi;
 
 print("Content-type: text/plain\n\n");
 
 &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()) {
             return;
         }
 
-        if (!&LONCAPA::loncgi::can_view('ping')) {
+        if (!&LONCAPA::lonauthcgi::can_view('ping')) {
             return;
         }
     }