loncom/cgi/metadata_harvest.pl - diff

Return to metadata_harvest.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.4, 2008/11/28 20:50:25	version 1.5, 2008/12/25 01:56:03
Line 68 use lib '/home/httpd/lib/perl/';	Line 68 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;

# ---------------------------- Print MIME Content-type and other initialization	# ---------------------------- Print MIME Content-type and other initialization
print 'Content-type: text/plain'."\n\n";	print 'Content-type: text/plain'."\n\n";
Line 75 print 'Content-type: text/plain'."\n\n";	Line 76 print 'Content-type: text/plain'."\n\n";
&main();	&main();

sub main {	sub main {
if (!&LONCAPA::loncgi::check_ipbased_access('metadata_harvest')) {	if (!&LONCAPA::lonauthcgi::check_ipbased_access('metadata_harvest')) {
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('metadata_harvest')) {	if (!&LONCAPA::lonauthcgi::can_view('metadata_harvest')) {
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
print(&LONCAPA::loncgi::unauthorized_msg('metadata_harvest'));	print(&LONCAPA::lonauthcgi::unauthorized_msg('metadata_harvest'));
return;	return;
}	}
}	}