package root_t::Daemon;
use strict;
use warnings;
use Ubic::Service::SimpleDaemon;
sub new {
my ($class, $params) = @_;
return Ubic::Service::SimpleDaemon->new({
bin => "echo 'abc' >>tfiles/$params->{name}.result; sleep 10",
(
map {
defined($params->{$_}) ? ($_ => $params->{$_}) : ()
} qw/ user group daemon_user daemon_group /
),
stdout => "tfiles/$params->{name}.log",
stderr => "tfiles/$params->{name}.err.log",
ubic_log => "tfiles/$params->{name}.ubic.log",
});
}
1;