version 1.6, 2008/12/25 01:56:03
|
version 1.10, 2014/07/11 00:31:09
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
$|=1; |
$|=1; |
# Prints ut the Id line from most files |
# Prints out the Id line from most files |
# $Id$ |
# $Id$ |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
Line 34 use LONCAPA::Configuration;
|
Line 34 use LONCAPA::Configuration;
|
use LONCAPA::loncgi; |
use LONCAPA::loncgi; |
use LONCAPA::lonauthcgi; |
use LONCAPA::lonauthcgi; |
|
|
print("Content-type: text/html\n\n"); |
my $perlvar=&LONCAPA::Configuration::read_conf(); |
|
my ($londaemons,$lonlib,$londocroot,$lonincludes); |
|
if (ref($perlvar) eq 'HASH') { |
|
$londaemons = $perlvar->{'lonDaemons'}; |
|
$lonlib = $perlvar->{'lonLib'}; |
|
$londocroot = $perlvar->{'lonDocRoot'}; |
|
$lonincludes = $perlvar->{'lonIncludes'}; |
|
} |
|
undef($perlvar); |
|
|
&main(); |
print &LONCAPA::loncgi::cgi_header('text/html',1); |
|
if ($londaemons ne '' && $lonlib ne '' && $londocroot ne '' && $lonincludes ne '') { |
|
&main($londaemons,$lonlib,$londocroot,$lonincludes); |
|
} |
|
|
sub main { |
sub main { |
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
if (!&LONCAPA::lonauthcgi::check_ipbased_access('codeversions')) { |
if (!&LONCAPA::lonauthcgi::check_ipbased_access('codeversions')) { |
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(); |
Line 54 sub main {
|
Line 66 sub main {
|
} |
} |
|
|
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
&print_versions(); |
&print_versions($londaemons,$lonlib,$londocroot,$lonincludes); |
return; |
return; |
} |
} |
|
|
sub print_versions { |
sub print_versions { |
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
"<pre>\n"; |
"<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/*|"); |
my $revtag = ' '; |
while (my $line=<DFH>) { |
open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); |
print "$line"; |
while (my $line=<DFH>) { |
|
chomp($line); |
|
unless ($line =~ /\Q.lpmlsave:# \E\$Id/) { |
|
print "$line\n"; |
|
} |
} |
} |
close(DFH); |
close(DFH); |
print '</pre></body></html>'; |
print '</pre></body></html>'; |