#!/usr/bin/perl
$|=1;
# The LearningOnline Network with CAPA
# Running loncron
# 09/06/01 Gerd Kortemeyer
print "Content-type: text/html\n\n".
      "<html><body bgcolor=#FFFFFF><h1>Running loncron ...</h1>".
      "Please be patient<p><pre>\n";
open (DFH,"/home/httpd/perl/loncron|");
while ($line=<DFH>) { 
   print "$line"; 
}
close(DFH);
print "</pre><p><a href=/lon-status/>Status Report</a>";
print "<p><a href=/lon-status/loncstatus.txt>LONC report</a>";
print "<p><a href=/lon-status/londstatus.txt>LOND report</a></body></html>";
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>
