loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.79, 2009/02/11 15:24:28	version 1.80, 2009/04/22 09:41:21
Line 408 sub clean_sockets {	Line 408 sub clean_sockets {
opendir(SOCKETS,$perlvar{'lonSockDir'});	opendir(SOCKETS,$perlvar{'lonSockDir'});
while (my $fname=readdir(SOCKETS)) {	while (my $fname=readdir(SOCKETS)) {
next if (-d $fname	next if (-d $fname
\|\| $fname=~/(mysqlsock\|maximasock\|\Q$perlvar{'lonSockDir'}\E)/);	\|\| $fname=~/(mysqlsock\|maximasock\|rsock\|\Q$perlvar{'lonSockDir'}\E)/);
$cleaned++;	$cleaned++;
&log($fh,"Unlinking $fname<br />");	&log($fh,"Unlinking $fname<br />");
unlink("/home/httpd/sockets/$fname");	unlink("/home/httpd/sockets/$fname");
Line 700 sub main () {	Line 700 sub main () {
}	}
&checkon_daemon($fh,'lonc',40000,'USR1');	&checkon_daemon($fh,'lonc',40000,'USR1');
&checkon_daemon($fh,'lonmaxima',40000);	&checkon_daemon($fh,'lonmaxima',40000);
	&checkon_daemon($fh,'lonr',40000);
}	}
if ($justreload) {	if ($justreload) {
&checkon_daemon($fh,'lond',40000,'USR2');	&checkon_daemon($fh,'lond',40000,'USR2');