loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

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