version 1.86, 2010/08/17 22:22:00
|
version 1.88, 2011/04/23 16:18:49
|
Line 823 sub main () {
|
Line 823 sub main () {
|
close($fh); |
close($fh); |
my $execpath = $perlvar{'lonDaemons'}.'/lciptables'; |
my $execpath = $perlvar{'lonDaemons'}.'/lciptables'; |
system("$execpath $tmpfile"); |
system("$execpath $tmpfile"); |
unlink($fh); |
unlink($tmpfile); |
} |
} |
} |
} |
|
|
Line 866 sub main () {
|
Line 866 sub main () {
|
&check_delayed_msg($fh); |
&check_delayed_msg($fh); |
&finish_logging($fh); |
&finish_logging($fh); |
&log_simplestatus(); |
&log_simplestatus(); |
|
|
if ($totalcount>200 && !$noemail) { &send_mail(); } |
|
} |
|
if (!$justcheckconnections && !$justreload) { |
|
&write_loncaparevs(); |
&write_loncaparevs(); |
&write_serverhomeIDs(); |
&write_serverhomeIDs(); |
|
|
|
if ($totalcount>200 && !$noemail) { &send_mail(); } |
} |
} |
} |
} |
|
|