diff options
Diffstat (limited to 'homepanel-control')
| -rwxr-xr-x | homepanel-control | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/homepanel-control b/homepanel-control index 0017c13..5bc877a 100755 --- a/homepanel-control +++ b/homepanel-control @@ -4,17 +4,20 @@ use warnings; use Daemon::Control; use Path::Tiny; -my $basedir = path(__FILE__)->parent; +my $basedir = path(__FILE__)->parent->realpath; exit Daemon::Control->new( - init_config => '/data/perl5/etc/bashrc', + 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 => __FILE__, + path => path(__FILE__)->realpath, program => $basedir->child('driver-async.pl'), program_args => [ $basedir->child('homepanel.conf') ], |