1: #!/usr/bin/perl
2: $|=1;
3: # The LearningOnline Network with CAPA
4: # Versions
5: # (Running loncron
6: # 09/06/01 Gerd Kortemeyer)
7: # 02/18/02 Gerd Kortemeyer
8: #
9: print "Content-type: text/html\n\n".
10: "<html><body bgcolor=#FFFFFF><h1>Handler Versions</h1>".
11: "Please be patient<p><pre>\n";
12: open (DFH,
13: "grep '\$Id' /home/httpd/perl/* /home/httpd/lib/perl/Apache/*.pm /home/httpd/html/res/adm/includes/* /home/httpd/html/res/adm/pages/*|");
14: while ($line=<DFH>) {
15: print "$line";
16: }
17: close(DFH);
18: print "</pre></body></html>";
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>