tweaks to run on the new machine

1 files changed, 20 insertions, 9 deletions

diff --git a/homepanel-control b/homepanel-control
index 0f31339..cb44727 100755
--- a/homepanel-control
+++ b/homepanel-control
@@ -3,29 +3,40 @@ use strict;
 use warnings;
 use Daemon::Control;
 use Path::Tiny;
+use Config::Any;
 
 my $basedir = path(__FILE__)->parent->realpath;
 
+my $config_file = $basedir->child('homepanel.conf');
+my $cfg_set = Config::Any->load_files({
+    files => [$config_file],
+    use_ext => 1,
+});
+my %config = map { %{(values %$_)[0]} } @$cfg_set;
+my $dest_dir = path($config{output_file})->parent->realpath;
+my $icons = $basedir->child('icons');
+
 exit Daemon::Control->new(
-    init_code => <<'INIT',
-export SHELL=/bin/bash
-export PERLBREW_ROOT=/data/perl5
-export PERLBREW_HOME=/home/dakkar/.perlbrew
-. /data/perl5/etc/bashrc
+    init_code => <<"INIT",
+if [ ! -d $dest_dir/icons ]; then
+  mkdir -p $dest_dir
+  mount -t tmpfs none $dest_dir
+  cp -a $icons $dest_dir/
+fi
+
+PERL5LIB="/home/dakkar/perl5/libs/HomePanel/lib/perl5\${PERL5LIB+:}\${PERL5LIB}"; export PERL5LIB;
 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') ],
+    program_args => [ $config_file ],
 
     user => 'dakkar',
-    group => 'www-data',
+    group => 'users',
     directory => $basedir,
 
     pid_file    => $basedir->child('homepanel.pid'),