#!/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/londstatus.txt>LOND report</a></body></html>";
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>