version 1.4, 2003/09/01 03:37:27
|
version 1.5, 2004/05/11 21:46:21
|
Line 26 $|=1;
|
Line 26 $|=1;
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
print "Content-type: text/html\n\n". |
print "Content-type: text/html\n\n". |
"<html><body bgcolor=#FFFFFF><h1>Running loncron ...</h1>". |
"<html><body bgcolor='#FFFFFF'><h1>Running loncron ...</h1>". |
"Please be patient<p><pre>\n"; |
"Please be patient<p><pre>\n"; |
open (DFH,"/home/httpd/perl/loncron|"); |
open (DFH,"/home/httpd/perl/loncron --noemail|"); |
while ($line=<DFH>) { |
while ($line=<DFH>) { |
print "$line"; |
print "$line"; |
} |
} |
close(DFH); |
close(DFH); |
print "</pre><p><a href=/lon-status/>Status Report</a>"; |
print "</pre></p><p><a href='/lon-status/'>Status Report</a></p>"; |
print "<p><a href=/lon-status/loncstatus.txt>LONC report</a>"; |
print "<p><a href='/lon-status/loncstatus.txt'>LONC report</a></p>"; |
print "<p><a href=/lon-status/londstatus.txt>LOND report</a></body></html>"; |
print "<p><a href='/lon-status/londstatus.txt'>LOND report</a></p></body></html>"; |