--- loncom/cgi/lonversions.pl 2008/12/25 01:56:03 1.6
+++ loncom/cgi/lonversions.pl 2011/11/07 18:18:21 1.7
@@ -1,7 +1,7 @@
#!/usr/bin/perl
$|=1;
# Prints ut the Id line from most files
-# $Id: lonversions.pl,v 1.6 2008/12/25 01:56:03 raeburn Exp $
+# $Id: lonversions.pl,v 1.7 2011/11/07 18:18:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -34,11 +34,23 @@ use LONCAPA::Configuration;
use LONCAPA::loncgi;
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 {
+ 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();
@@ -54,16 +66,20 @@ sub main {
}
&Apache::lonlocal::get_language_handle();
- &print_versions();
+ &print_versions($londaemons,$lonlib,$londocroot,$lonincludes);
return;
}
sub print_versions {
+ my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_;
print ''.&Apache::lonlocal::mt('Handler Versions').'
'.
"\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=) {
- print "$line";
+ open (DFH, "grep '\$Id: lonversions.pl,v 1.7 2011/11/07 18:18:21 raeburn Exp $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/*|");
+ while (my $line=) {
+ chomp($line);
+ unless ($line =~ /\Q.lpmlsave:# \E\$Id/) {
+ print "$line\n";
+ }
}
close(DFH);
print '
';