80 |
# child |
# child |
81 |
my $invoke = 'start'; |
my $invoke = 'start'; |
82 |
$invoke = $1 if $daemon =~ s{/(.+)}{}; |
$invoke = $1 if $daemon =~ s{/(.+)}{}; |
83 |
if ( $daemon =~ m{dhcpd|tftpd|dnsd} ) { |
if ( $daemon =~ m{dhcpd|tftpd|dnsd|syslogd} ) { |
84 |
my $exec = "perl -I$server::base_dir/lib -I$server::base_dir/lib/PXElator -M$daemon -e ${daemon}::${invoke}"; |
my $exec = "perl -I$server::base_dir/lib -I$server::base_dir/lib/PXElator -M$daemon -e ${daemon}::${invoke}"; |
85 |
audit 'exec', $daemon, 'exec' => $exec; |
audit 'exec', $daemon, 'exec' => $exec; |
86 |
x11::xterm( $daemon => $exec ); |
x11::xterm( $daemon => $exec ); |