Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support signalling the daemon on demand.

Browse Source
This commit is contained in:
Chris 2014-02-04 20:32:15 +00:00
parent c317f9575a
commit 3a69c17e4d
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Webperl/Daemon.pm
View File

@ -36,6 +36,7 @@ use constant STATE_OK => 0;
use constant STATE_DEAD_PID_EXISTS => 1; use constant STATE_DEAD_PID_EXISTS => 1;
use constant STATE_NOT_RUNNING => 3; use constant STATE_NOT_RUNNING => 3;
use constant STATE_ALREADY_RUNNING => 100; use constant STATE_ALREADY_RUNNING => 100;
use constant STATE_SIGNAL_ERROR => 101;
# ============================================================================ # ============================================================================
# Constructor # Constructor
@ -208,4 +209,24 @@ sub kill {
return STATE_DEAD_PID_EXISTS; return STATE_DEAD_PID_EXISTS;
} }
## @method $ signal($signal)
# Signal the running daemon with the specified signal.
#
# @param signal The signal to send to the daemon
# @return STATE_OK on success, STATE_NOT_RUNNING if the daemon is
# not running, otherwise STATE_SIGNAL_ERROR.
sub signal {
my $self = shift;
my $signal = shift;
my $pid = $self -> running();
return STATE_NOT_RUNNING if(!$pid);
my $sent = kill($signal, $pid);
return STATE_OK if($sent);
return STATE_SIGNAL_ERROR;
}
1; 1;