lib/PXElator/daemons.pm

package daemons;

use warnings;
use strict;

use File::Slurp;
use Data::Dump qw/dump/;

use x11;

our $pids;
$pids = { httpd => $$, kvm => 'not started' } unless defined $pids; # keep pids on refresh

sub DESTROY {
        warn "pids ",dump( $pids );
        foreach ( values %$pids ) {
                warn "kill $_";
                kill 1,$_ || kill 9, $_;
        }
}

$SIG{CHLD} = 'IGNORE';

sub start_stop {
        my $daemon = shift;

        my $pid = $pids->{$daemon};
        my $pid_path = "$server::conf/$daemon.pid";

        if ( ! $pid && -e $pid_path ) {
                my $p = read_file $pid_path;
                if ( kill 0, $p ) {
                        warn "adopted $daemon $p\n";
                        return $pids->{$daemon} = $p;
                } else {
                        warn "old $daemon $p not running";
                        unlink $pid_path;
                }
        }

        $pid ||= 'not started';
        warn "start_stop $daemon $pid\n";

        if ( $pid =~ m{^\d+$} ) {
                my $pstree = `pstree -p $pid`;
                my @pids = $pstree =~ m{\((\d+)\)}g;
                warn "pstree $pstree pids ",dump( @pids );
                kill 1, $_ foreach reverse @pids;
                $pids->{$daemon} = 'stopped';
                return qq|$daemon pid $pid stopped|;
        } else {
                if ( $pid = fork ) {
                        # parent
                        $pids->{$daemon} = $pid;
                        write_file $pid_path, $pid;
                        warn "forked $daemon $pid\n";
                        return qq|$daemon pid $pid started|;
                } elsif ( defined $pid ) {
                        # child
                        my $invoke = 'start';
                        $invoke = $1 if $daemon =~ s{/(.+)}{};
                        if ( $daemon =~ m{dhcpd|tftpd|dnsd} ) {
                                my $exec = "perl -I$server::base_dir/lib -I$server::base_dir/lib/PXElator -M$daemon -e ${daemon}::${invoke}";
                                warn "exec $exec";
                                x11::xterm( $daemon => $exec );
                        } else {
                                my $eval = $daemon . '::' . $invoke . '(' . ( @_ ? dump(@_) : '' ) . ')';
                                warn "eval $eval";
                                eval $eval;
                                warn "can't start $daemon: $@" if $@;
                        }
                        exit;
                } else {
                        die "fork error $!";
                }
        }
}

1	dpavlin	185	package daemons;
2
3			use warnings;
4			use strict;
5
6			use File::Slurp;
7			use Data::Dump qw/dump/;
8
9			use x11;
10
11			our $pids;
12	dpavlin	207	$pids = { httpd => $$, kvm => 'not started' } unless defined $pids; # keep pids on refresh
13	dpavlin	185
14			sub DESTROY {
15			warn "pids ",dump( $pids );
16			foreach ( values %$pids ) {
17			warn "kill $_";
18			kill 1,$_ \|\| kill 9, $_;
19			}
20			}
21
22			$SIG{CHLD} = 'IGNORE';
23
24			sub start_stop {
25			my $daemon = shift;
26
27			my $pid = $pids->{$daemon};
28			my $pid_path = "$server::conf/$daemon.pid";
29
30			if ( ! $pid && -e $pid_path ) {
31			my $p = read_file $pid_path;
32			if ( kill 0, $p ) {
33			warn "adopted $daemon $p\n";
34			return $pids->{$daemon} = $p;
35			} else {
36			warn "old $daemon $p not running";
37			unlink $pid_path;
38			}
39			}
40
41			$pid \|\|= 'not started';
42			warn "start_stop $daemon $pid\n";
43
44			if ( $pid =~ m{^\d+$} ) {
45			my $pstree = `pstree -p $pid`;
46			my @pids = $pstree =~ m{\((\d+)\)}g;
47			warn "pstree $pstree pids ",dump( @pids );
48			kill 1, $_ foreach reverse @pids;
49			$pids->{$daemon} = 'stopped';
50			return qq\|$daemon pid $pid stopped\|;
51			} else {
52			if ( $pid = fork ) {
53			# parent
54			$pids->{$daemon} = $pid;
55			write_file $pid_path, $pid;
56			warn "forked $daemon $pid\n";
57			return qq\|$daemon pid $pid started\|;
58			} elsif ( defined $pid ) {
59			# child
60			my $invoke = 'start';
61			$invoke = $1 if $daemon =~ s{/(.+)}{};
62			if ( $daemon =~ m{dhcpd\|tftpd\|dnsd} ) {
63			my $exec = "perl -I$server::base_dir/lib -I$server::base_dir/lib/PXElator -M$daemon -e ${daemon}::${invoke}";
64			warn "exec $exec";
65			x11::xterm( $daemon => $exec );
66			} else {
67			my $eval = $daemon . '::' . $invoke . '(' . ( @_ ? dump(@_) : '' ) . ')';
68			warn "eval $eval";
69			eval $eval;
70			warn "can't start $daemon: $@" if $@;
71			}
72			exit;
73			} else {
74			die "fork error $!";
75			}
76			}
77			}
78