version 1.2, 2002/02/18 23:23:23
|
version 1.10, 2014/07/11 00:31:09
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
$|=1; |
$|=1; |
# The LearningOnline Network with CAPA |
# Prints out the Id line from most files |
# Versions |
# $Id$ |
# (Running loncron |
# |
# 09/06/01 Gerd Kortemeyer) |
# Copyright Michigan State University Board of Trustees |
# 02/18/02 Gerd Kortemeyer |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
print "Content-type: text/html\n\n". |
# |
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
# LON-CAPA is free software; you can redistribute it and/or modify |
"<pre>\n"; |
# it under the terms of the GNU General Public License as published by |
open (DFH, |
# the Free Software Foundation; either version 2 of the License, or |
"grep '\$Id' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|"); |
# (at your option) any later version. |
while ($line=<DFH>) { |
# |
print "$line"; |
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
|
|
|
use strict; |
|
|
|
use lib '/home/httpd/lib/perl/'; |
|
use Apache::lonlocal; |
|
use LONCAPA::Configuration; |
|
use LONCAPA::loncgi; |
|
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>"; |
|