Annotation of loncom/cgi/loncron.pl, revision 1.3

1.1       www         1: #!/usr/bin/perl
                      2: $|=1;
                      3: # The LearningOnline Network with CAPA
                      4: # Running loncron
                      5: # 09/06/01 Gerd Kortemeyer
                      6: print "Content-type: text/html\n\n".
                      7:       "<html><body bgcolor=#FFFFFF><h1>Running loncron ...</h1>".
                      8:       "Please be patient<p><pre>\n";
                      9: open (DFH,"/home/httpd/perl/loncron|");
                     10: while ($line=<DFH>) { 
                     11:    print "$line"; 
                     12: }
                     13: close(DFH);
1.2       www        14: print "</pre><p><a href=/lon-status/>Status Report</a>";
1.3     ! www        15: print "<p><a href=/lon-status/loncstatus.txt>LONC report</a>";
1.2       www        16: print "<p><a href=/lon-status/londstatus.txt>LOND report</a></body></html>";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>