loncom/cgi/lonversions.pl - diff

Return to lonversions.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.8, 2011/11/07 20:41:06	version 1.9, 2011/11/07 20:50:02
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/) {