version 1.3, 2003/09/01 03:37:27
|
version 1.4, 2003/09/06 17:23:29
|
Line 30 print "Content-type: text/html\n\n".
|
Line 30 print "Content-type: text/html\n\n".
|
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
"<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>". |
"<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 '\' /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>) { |
print "$line"; |
print "$line"; |
} |
} |