loncom/init.d/loncontrol - diff

Return to loncontrol CVS log

Up to [LON-CAPA] / loncom / init.d

version 1.44, 2015/09/20 18:31:33	version 1.45, 2018/08/07 17:12:17
Line 93 sub stop_daemon {	Line 93 sub stop_daemon {
print(", killed off extraneous processes");	print(", killed off extraneous processes");
}	}
unlink($pidfile);	unlink($pidfile);
	if ($killallname eq 'loncnew') {
	&clean_nossl_loncpids();
	}
print("\n");	print("\n");
}	}

Line 107 sub clean_sockets {	Line 110 sub clean_sockets {
}	}
}	}

	sub clean_nossl_loncpids {
	my $childpiddir = '/home/httpd/perl/logs/loncpids';
	my $nossldir = '/home/httpd/sockets/nosslverify';
	foreach my $dir ($childpiddir,$nossldir) {
	if (-d $dir) {
	if (opendir(my $dh,$dir)) {
	while (my $fname=readdir($dh)) {
	next if ($fname =~ /^\./);
	unlink("$dir/$fname");
	}
	closedir($dh);
	}
	}
	}
	}

if (($command eq "restart") \|\| ($command eq 'stop') \|\|	if (($command eq "restart") \|\| ($command eq 'stop') \|\|
($command eq 'start') \|\| ($command eq "status")) {	($command eq 'start') \|\| ($command eq "status")) {
my $iptables = &LONCAPA::Firewall::get_pathto_iptables();	my $iptables = &LONCAPA::Firewall::get_pathto_iptables();