--- loncom/cgi/loncron.pl 2008/11/28 20:50:25 1.6 +++ loncom/cgi/loncron.pl 2008/12/25 01:56:03 1.7 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; # Runs loncron -# $Id: loncron.pl,v 1.6 2008/11/28 20:50:25 raeburn Exp $ +# $Id: loncron.pl,v 1.7 2008/12/25 01:56:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,22 +32,23 @@ use lib '/home/httpd/lib/perl/'; use Apache::lonlocal; use LONCAPA::Configuration; use LONCAPA::loncgi; +use LONCAPA::lonauthcgi; print("Content-type: text/html\n\n"); &main(); sub main { - if (!&LONCAPA::loncgi::check_ipbased_access('loncron')) { + if (!&LONCAPA::lonauthcgi::check_ipbased_access('loncron')) { if (!&LONCAPA::loncgi::check_cookie_and_load_env()) { &Apache::lonlocal::get_language_handle(); print(&LONCAPA::loncgi::missing_cookie_msg()); return; } - if (!&LONCAPA::loncgi::can_view('loncron')) { + if (!&LONCAPA::lonauthcgi::can_view('loncron')) { &Apache::lonlocal::get_language_handle(); - print(&LONCAPA::loncgi::unauthorized_msg('loncron')); + print(&LONCAPA::lonauthcgi::unauthorized_msg('loncron')); return; } }