loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.86, 2010/08/17 22:22:00	version 1.89, 2011/05/14 16:12:53
Line 32 use strict;	Line 32 use strict;

use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;

Line 821 sub main () {	Line 822 sub main () {
print $fh "$key\n";	print $fh "$key\n";
}	}
close($fh);	close($fh);
my $execpath = $perlvar{'lonDaemons'}.'/lciptables';	if (&LONCAPA::try_to_lock('/tmp/lock_lciptables')) {
system("$execpath $tmpfile");	my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
unlink($fh);	system("$execpath $tmpfile");
	unlink('/tmp/lock_lciptables'); # Remove the lock file.
	}
	unlink($tmpfile);
}	}
}	}

Line 866 sub main () {	Line 870 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(); }
}	}
}	}