diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2014-10-18 11:35:07 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2014-10-18 12:00:43 +0000 |
commit | 8ae31cc6e64617ed3f65b107d365af5eac5766d7 (patch) | |
tree | ea806fef065ab85aaf0116cd2f3bb6c1f7b02517 | |
parent | config file (diff) | |
download | HomePanel-8ae31cc6e64617ed3f65b107d365af5eac5766d7.tar.gz HomePanel-8ae31cc6e64617ed3f65b107d365af5eac5766d7.tar.bz2 HomePanel-8ae31cc6e64617ed3f65b107d365af5eac5766d7.zip |
launcher
-rw-r--r-- | .gitignore | 6 | ||||
-rwxr-xr-x | homepanel-control | 32 |
2 files changed, 36 insertions, 2 deletions
@@ -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; |