#!/usr/bin/perl $|=1; # The LearningOnline Network with CAPA # Versions # (Running loncron # 09/06/01 Gerd Kortemeyer) # 02/18/02 Gerd Kortemeyer # print "Content-type: text/html\n\n". "

Handler Versions

". "
\n";
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/*|");
while ($line=) { 
   print "$line"; 
}
close(DFH);
print "
";