version 1.1, 2002/02/18 20:44:58
|
version 1.2, 2002/02/18 23:23:23
|
Line 8 $|=1;
|
Line 8 $|=1;
|
# |
# |
print "Content-type: text/html\n\n". |
print "Content-type: text/html\n\n". |
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
"Please be patient<p><pre>\n"; |
"<pre>\n"; |
open (DFH, |
open (DFH, |
"grep '\$Id' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|"); |
"grep '\$Id' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|"); |
while ($line=<DFH>) { |
while ($line=<DFH>) { |