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