Navigation

Changeset 3839

Timestamp:

07/28/10 14:19:46 (2 years ago)

Author:

ligne

Message:

remove the pid file on exit.

Files:

r3819	r3839
6	6	use warnings;
7	7
8		use Net::Server::Daemonize qw( daemonize safe_fork );
	8	use Net::Server::Daemonize qw( daemonize safe_fork unlink_pid_file );
9	9	use IO::Socket;
10	10	use List::MoreUtils qw( any );
…	…
27	27
28	28	$args{spool} = Munin::Node::SpoolWriter->new(spooldir => $args{spooldir});
	29
	30	croak "No pidfile specified" unless $args{pid_file};
29	31
30	32	# don't want to run as root unless absolutely necessary. but only root
…	…
51	53	# Daemonzises, and runs for cover.
52	54	daemonize($self->{user}, $self->{group}, $self->{pid_file});
	55	$self->{have_pid_file}++;
53	56
54	57	open STDERR, '>>', "$Munin::Common::Defaults::MUNIN_LOGDIR/munin-sched.log";
…	…
101	104
102	105
	106	# tidy up on exit
	107	sub DESTROY
	108	{
	109	my ($self) = @_;
	110
	111	if ($self->{have_pid_file}) {
	112	logger('Removing pidfile');
	113	unlink_pid_file($self->{pid_file});
	114	}
	115
	116	return;
	117	}
	118
	119
103	120	### SETUP ######################################################################
104	121