loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.87, 2010/08/21 22:23:05	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);
}	}
}	}