Merge branch 'new-api'

1 files changed, 0 insertions, 49 deletions

diff --git a/homepanel-control b/homepanel-control
deleted file mode 100755
index f8a20ad..0000000
--- a/homepanel-control
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/env perl
-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",
-if [ ! -d $dest_dir/icons ]; then
-  mkdir -p $dest_dir
-  mount -t tmpfs none $dest_dir
-  cp -a $icons $dest_dir/
-fi
-
-export PERL5LIB="/home/dakkar/.perlbrew/libs/perl-5.30.2\@HomePanel/lib/perl5"
-export PATH="/home/dakkar/.perlbrew/libs/perl-5.30.2\@HomePanel/bin:/home/dakkar/perl5/perlbrew/bin:/home/dakkar/perl5/perlbrew/perls/perl-5.30.2/bin:\$PATH"
-INIT
-
-    name        => "HomePanel",
-    lsb_sdesc   => 'Home info panel',
-    lsb_desc    => 'Show forecast, tube, bus status.',
-    path        => path(__FILE__)->realpath,
-
-    program     => $basedir->child('driver-async.pl'),
-    program_args => [ $config_file ],
-
-    user => 'dakkar',
-    group => 'users',
-    directory => $basedir,
-
-    pid_file    => $basedir->child('homepanel.pid'),
-    stderr_file => $basedir->child('homepanel.err'),
-    stdout_file => $basedir->child('homepanel.out'),
-
-    fork        => 2,
-
-)->run;