version 1.3, 2003/09/01 03:37:27
|
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 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 '\$Id' /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"; |
use LONCAPA::lonauthcgi; |
|
|
|
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); |
|
|
|
print &LONCAPA::loncgi::cgi_header('text/html',1); |
|
if ($londaemons ne '' && $lonlib ne '' && $londocroot ne '' && $lonincludes ne '') { |
|
&main($londaemons,$lonlib,$londocroot,$lonincludes); |
|
} |
|
|
|
sub main { |
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
|
if (!&LONCAPA::lonauthcgi::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::lonauthcgi::can_view('codeversions')) { |
|
&Apache::lonlocal::get_language_handle(); |
|
print(&LONCAPA::lonauthcgi::unauthorized_msg('codeversions')); |
|
return; |
|
} |
|
} |
|
|
|
&Apache::lonlocal::get_language_handle(); |
|
&print_versions($londaemons,$lonlib,$londocroot,$lonincludes); |
|
return; |
|
} |
|
|
|
sub print_versions { |
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
|
print '<html><body bgcolor="#FFFFFF"><h1>'.&Apache::lonlocal::mt('Handler Versions').'</h1>'. |
|
"<pre>\n"; |
|
my $revtag = ' '; |
|
open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); |
|
while (my $line=<DFH>) { |
|
chomp($line); |
|
unless ($line =~ /\Q.lpmlsave:# \E\$Id/) { |
|
print "$line\n"; |
|
} |
|
} |
|
close(DFH); |
|
print '</pre></body></html>'; |
} |
} |
close(DFH); |
|
print "</pre></body></html>"; |
|