Annotation of loncom/cgi/lonversions.pl, revision 1.1
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>".
! 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>