From 8ae31cc6e64617ed3f65b107d365af5eac5766d7 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Sat, 18 Oct 2014 11:35:07 +0000
Subject: launcher

---
 .gitignore        |  6 ++++--
 homepanel-control | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 2 deletions(-)
 create mode 100755 homepanel-control

diff --git a/.gitignore b/.gitignore
index f76f1f6..2408dab 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,9 +1,11 @@
 *~
 .#*
-/monitor.db
 /Makefile
 /inc/
 /META.yml
 /blib/
 /pm_to_blib
-/panel.html
+/homepanel.conf
+/homepanel.pid
+/homepanel.out
+/homepanel.err
diff --git a/homepanel-control b/homepanel-control
new file mode 100755
index 0000000..0017c13
--- /dev/null
+++ b/homepanel-control
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Daemon::Control;
+use Path::Tiny;
+
+my $basedir = path(__FILE__)->parent;
+
+exit Daemon::Control->new(
+    init_config => '/data/perl5/etc/bashrc',
+
+    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__,
+
+    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;
-- 
cgit v1.2.3