--- loncom/cgi/lonversions.pl 2008/11/28 20:50:25 1.5 +++ loncom/cgi/lonversions.pl 2011/11/07 20:50:02 1.9 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; -# Prints ut the Id line from most files -# $Id: lonversions.pl,v 1.5 2008/11/28 20:50:25 raeburn Exp $ +# Prints out the Id line from most files +# $Id: lonversions.pl,v 1.9 2011/11/07 20:50:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,37 +32,55 @@ use lib '/home/httpd/lib/perl/'; use Apache::lonlocal; 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 { - if (!&LONCAPA::loncgi::check_ipbased_access('codeversions')) { + 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::loncgi::can_view('codeversions')) { + if (!&LONCAPA::lonauthcgi::can_view('codeversions')) { &Apache::lonlocal::get_language_handle(); - print(&LONCAPA::loncgi::unauthorized_msg('codeversions')); + print(&LONCAPA::lonauthcgi::unauthorized_msg('codeversions')); return; } } &Apache::lonlocal::get_language_handle(); - &print_versions(); + &print_versions($londaemons,$lonlib,$londocroot,$lonincludes); return; } sub print_versions { + my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; print '
\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"; + my $revtag = ''; + open (DFH, "grep '$revtag' $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 '