File Coverage

blib/lib/Metabrik/Remote/Sysmon.pm

Criterion	Covered	Total	%
statement	9	91	9.8
branch	0	40	0.0
condition	0	24	0.0
subroutine	3	11	27.2
pod	1	8	12.5
total	13	174	7.4

#
# $Id$
#
# remote::sysmon Brik
#
package Metabrik::Remote::Sysmon;
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 => {
         datadir => [ qw(datadir) ],
         host => [ qw(host) ],   # Inherited
         user => [ qw(username) ],   # Inherited
         password => [ qw(password) ],   # Inherited
         remote_path => [ qw(path) ],   # Inherited
         domain => [ qw(domain) ],   # Inherited
         sysmon_exe => [ qw(version) ],
         conf_file => [ qw(file) ],
      },
      attributes_default => {
         sysmon_exe => 'Sysmon64.exe',
         conf_file => 'sysmon.xml',
      },
      commands => {
         update => [ ],
         get_sysmon_exe => [ ],
         deploy => [ qw(host|OPTIONAL user|OPTIONAL password|OPTIONAL) ],
         undeploy => [ ],
         redeploy => [ ],
         generate_conf => [ ],
         update_conf => [ ],
      },
      require_modules => {
         'Metabrik::Client::Www' => [ ],
         'Metabrik::File::Compress' => [ ],
         'Metabrik::File::Text' => [ ],
      },
      require_binaries => {
      },
      optional_binaries => {
      },
      need_packages => {
      },
   };
}

sub update {
   my $self = shift;

   my $datadir = $self->datadir;

   my $cw = Metabrik::Client::Www->new_from_brik_init($self) or return;
   $cw->user_agent("Metabrik-Remote-Sysmon-mirror/1.00");
   $cw->datadir($datadir);

   my $fc = Metabrik::File::Compress->new_from_brik_init($self) or return;
   $fc->datadir($datadir);

   my $input = 'Sysmon.zip';
   my $files = $cw->mirror('https://download.sysinternals.com/files/'.$input);
   if (! defined($files)) {
      return $self->log->errpr("update: mirror fail");
   }

   my @updated = ();
   for my $this (@$files) {
      my $this_files = $fc->unzip($this, $datadir) or return;
      push @updated, @$this_files;
   }

   return \@updated;
}

sub get_sysmon_exe {
   my $self = shift;

   my $datadir = $self->datadir;
   my $sysmon_exe = $self->sysmon_exe;
   my $full_path = "$datadir/$sysmon_exe";

   if (-f $full_path) {
      return $full_path;
   }

   return $self->log->error("get_sysmon_exe: file not found, call update Command");
}

sub generate_conf {
   my $self = shift;
   my ($conf_file) = @_;

   $conf_file ||= $self->conf_file;
   $self->brik_help_set_undef_arg('generate_conf', $conf_file) or return;

   my $datadir = $self->datadir;
   $conf_file = "$datadir/$conf_file";

   my $conf =<

   SHA1




















EOF
;

   my $ft = Metabrik::File::Text->new_from_brik_init($self) or return;
   $ft->append(0);
   $ft->overwrite(1);

   $ft->write($conf, $conf_file) or return;

   return $conf_file;
}

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

   $host ||= $self->host;
   $user ||= $self->user;
   $password ||= $self->password;
   $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 $sysmon_exe = $self->sysmon_exe;
   my $remote_path = $self->remote_path;

   my $full_path = $self->get_sysmon_exe or return;

   $self->log->verbose("deploy: uploaded file [$full_path] to remote_path[$remote_path]");

   $self->upload($full_path) or return;

   my $cmd = "\"cmd.exe /c $remote_path\\$sysmon_exe -i -accepteula -n\"";

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

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

   $host ||= $self->host;
   $user ||= $self->user;
   $password ||= $self->password;
   $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 $sysmon_exe = $self->sysmon_exe;
   my $remote_path = $self->remote_path;

   $self->log->verbose("undeploy: from remote_path[$remote_path] ".
      "sysmon_exe[$sysmon_exe]");

   my $cmd = "\"cmd.exe /c $remote_path\\$sysmon_exe -u\"";

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

sub update_conf {
   my $self = shift;
   my ($conf_file) = @_;

   $conf_file ||= $self->conf_file;
   $self->brik_help_run_undef_arg('update_conf', $conf_file) or return;

   my $datadir = $self->datadir;
   my $base_conf_file = $conf_file;
   $conf_file = "$datadir/$conf_file";
   $self->brik_help_run_file_not_found('update_conf', $conf_file) or return;

   my $sysmon_exe = $self->sysmon_exe;
   my $remote_path = $self->remote_path;

   my $full_path = $self->get_sysmon_exe or return;

   $self->log->verbose("update_conf: uploaded file [$conf_file] ".
      "to remote_path[$remote_path]");

   $self->upload($conf_file) or return;

   my $cmd = "\"cmd.exe /c $remote_path\\$sysmon_exe -c $remote_path\\$base_conf_file\"";

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

sub redeploy {
   my $self = shift;

   $self->undeploy;
   return $self->deploy;
}

1;

__END__