19 lines
352 B
Perl
Executable File
19 lines
352 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
BEGIN {
|
|
eval "use Daemon::Control";
|
|
if ($@) {
|
|
exec("$ENV{HOME}/bin/localenv", $0, @ARGV);
|
|
}
|
|
}
|
|
|
|
Daemon::Control->new({
|
|
name => 'Netdisco Web',
|
|
program => 'plackup',
|
|
program_args => ["$ENV{HOME}/bin/netdisco-web-fg"],
|
|
pid_file => "$ENV{HOME}/netdisco-web.pid",
|
|
})->run;
|