File Coverage

blib/lib/Metabrik/Remote/Winsvc.pm

Criterion	Covered	Total	%
statement	9	36	25.0
branch	0	20	0.0
condition	0	18	0.0
subroutine	3	7	42.8
pod	1	4	25.0
total	13	85	15.2

#
# $Id$
#
# remote::winsvc Brik
#
package Metabrik::Remote::Winsvc;
use strict;
use warnings;

use base qw(Metabrik::Remote::Winexe Metabrik::Client::Smbclient);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      attributes => {
         host => [ qw(host) ],   # Inherited
         user => [ qw(username) ],   # Inherited
         password => [ qw(password) ],   # Inherited
         domain => [ qw(domain) ],   # Inherited
      },
      commands => {
         start => [ qw(service host|OPTIONAL user|OPTIONAL password|OPTIONAL) ],
         stop => [ qw(service host|OPTIONAL user|OPTIONAL password|OPTIONAL) ],
         restart => [ qw(service host|OPTIONAL user|OPTIONAL password|OPTIONAL) ],
      },
   };
}

sub start {
   my $self = shift;
   my ($service, $host, $user, $password) = @_;

   $host ||= $self->host;
   $user ||= $self->user;
   $password ||= $self->password;
   $self->brik_help_run_undef_arg('start', $service) or return;
   $self->brik_help_set_undef_arg('host', $host) or return;
   $self->brik_help_set_undef_arg('user', $user) or return;
   $self->brik_help_set_undef_arg('password', $password) or return;

   my $cmd = "\"cmd.exe /c sc start $service\"";

   return $self->execute($cmd);
}

sub stop {
   my $self = shift;
   my ($service, $host, $user, $password) = @_;

   $host ||= $self->host;
   $user ||= $self->user;
   $password ||= $self->password;
   $self->brik_help_run_undef_arg('stop', $service) or return;
   $self->brik_help_set_undef_arg('host', $host) or return;
   $self->brik_help_set_undef_arg('user', $user) or return;
   $self->brik_help_set_undef_arg('password', $password) or return;

   my $cmd = "\"cmd.exe /c sc stop $service\"";

   return $self->execute($cmd);
}

sub restart {
   my $self = shift;

   $self->stop(@_) or return;
   $self->start(@_) or return;

   return 1;
}

1;

__END__