version 1.7, 2011/11/07 18:18:21
|
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 74 sub print_versions {
|
Line 74 sub print_versions {
|
my ($londaemons,$lonlib,$londocroot,$lonincludes) = @_; |
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 '\$Id$londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/*|"); |
my $revtag = ' '; |
|
open (DFH, "grep '$revtag' $londaemons/* $lonlib/perl/Apache/*.pm $lonlib/perl/LONCAPA/*.pm $lonincludes/* $londocroot/res/adm/pages/* |"); |
while (my $line=<DFH>) { |
while (my $line=<DFH>) { |
chomp($line); |
chomp($line); |
unless ($line =~ /\Q.lpmlsave:# \E\$Id/) { |
unless ($line =~ /\Q.lpmlsave:# \E\$Id/) { |