#===============================================
# Script for starting/stopping daemon
#===============================================
#!/usr/bin/perl

use strict;
use warnings FATAL => 'all',NONFATAL => 'redefine';

my $config = # Load YAML file;

use My::Daemon;

my $command = shift @ARGV||'';

my $daemon = My::Daemon->new($config);

if ($command eq 'start') {
    exit $daemon->start;
} elsif ($command eq 'restart') {
    $daemon->stop;
    sleep 5;
    exit $daemon->start;
} elsif ($command eq 'stop') {
    $daemon->stop;
} elsif ($command eq 'status') {
    $daemon->status;
} else {
    die <<USAGE;
Usage : $0 stop|start|restart|status
USAGE
}