15 lines
297 B
Perl
Executable File
15 lines
297 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Daemon::Control;
|
|
|
|
my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";
|
|
|
|
Daemon::Control->new({
|
|
name => 'Netdisco Daemon',
|
|
program => ($ENV{NETDISCO_DAEMON} || $program),
|
|
pid_file => "$ENV{HOME}/netdisco-daemon.pid",
|
|
})->run;
|