use strict;
use warnings;
use Daemon::Control;
use Path::Tiny;
my $basedir = path(__FILE__)->parent->realpath;
exit Daemon::Control->new(
init_code => <<'INIT',
export PERLBREW_ROOT=/data/perl5
. /data/perl5/etc/bashrc
INIT
name => "HomePanel",
lsb_start => '$local_fs $network $named $time',
lsb_stop => '$local_fs $network $named $time',
lsb_sdesc => 'Home info panel',
lsb_desc => 'Show forecast, tube, bus status.',
path => path(__FILE__)->realpath,
program => $basedir->child('driver-async.pl'),
program_args => [ $basedir->child('homepanel.conf') ],
user => 'dakkar',
group => 'dakkar',
directory => $basedir,
pid_file => $basedir->child('homepanel.pid'),
stderr_file => $basedir->child('homepanel.out'),
stdout_file => $basedir->child('homepanel.err'),
fork => 2,
)->run;