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>