[BACK]Return to lonversions.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi
File:  [LON-CAPA] / loncom / cgi / lonversions.pl
Revision 1.2: download - view: text, annotated - select for diffs
Mon Feb 18 23:23:23 2002 UTC (22 years, 2 months ago) by www
Branches: MAIN
CVS tags: version_1_0_3, version_1_0_2, version_1_0_1, version_1_0_0, version_0_99_5, version_0_99_4, version_0_99_3, version_0_99_2, version_0_99_1, version_0_99_0, version_0_6_2, version_0_6, version_0_5_1, version_0_5, version_0_4, stable_2002_july, stable_2002_april, conference_2003, STABLE, HEAD
No need to be patient

    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:       "<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>