Annotation of loncom/cgi/lonversions.pl, revision 1.2
1.1 www 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>".
1.2 ! www 11: "<pre>\n";
1.1 www 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>