#!/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". "
\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 "