version 1.17, 2008/11/28 20:45:21
|
version 1.18, 2008/12/25 01:56:03
|
Line 32 use lib '/home/httpd/lib/perl/';
|
Line 32 use lib '/home/httpd/lib/perl/';
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use LONCAPA::loncgi; |
use LONCAPA::loncgi; |
|
use LONCAPA::lonauthcgi; |
use HTTP::Headers; |
use HTTP::Headers; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 72 sub main {
|
Line 73 sub main {
|
delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed |
delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed |
delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
|
|
if (!&LONCAPA::loncgi::check_ipbased_access()) { |
if (!&LONCAPA::lonauthcgi::check_ipbased_access()) { |
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(); |
return; |
return; |
} |
} |
|
|
if (!&LONCAPA::loncgi::can_view('userstatus')) { |
if (!&LONCAPA::lonauthcgi::can_view('userstatus')) { |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
print &LONCAPA::loncgi::unauthorized_msg('userstatus'); |
print &LONCAPA::lonauthcgi::unauthorized_msg('userstatus'); |
return; |
return; |
} |
} |
} |
} |