version 1.4, 2003/09/06 17:23:29
|
version 1.5, 2008/11/28 20:50:25
|
Line 26 $|=1;
|
Line 26 $|=1;
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
print "Content-type: text/html\n\n". |
use strict; |
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
|
"<pre>\n"; |
use lib '/home/httpd/lib/perl/'; |
open (DFH, |
use Apache::lonlocal; |
"grep '\' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|"); |
use LONCAPA::Configuration; |
while ($line=<DFH>) { |
use LONCAPA::loncgi; |
print "$line"; |
|
|
print("Content-type: text/html\n\n"); |
|
|
|
&main(); |
|
|
|
sub main { |
|
if (!&LONCAPA::loncgi::check_ipbased_access('codeversions')) { |
|
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('codeversions')) { |
|
&Apache::lonlocal::get_language_handle(); |
|
print(&LONCAPA::loncgi::unauthorized_msg('codeversions')); |
|
return; |
|
} |
|
} |
|
|
|
&Apache::lonlocal::get_language_handle(); |
|
&print_versions(); |
|
return; |
|
} |
|
|
|
sub print_versions { |
|
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
|
"<pre>\n"; |
|
open (DFH, "grep '\' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|"); |
|
while (my $line=<DFH>) { |
|
print "$line"; |
|
} |
|
close(DFH); |
|
print '</pre></body></html>'; |
} |
} |
close(DFH); |
|
print "</pre></body></html>"; |
|