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>