File Coverage

blib/lib/Metabrik/Remote/Windows.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition	0	6	0.0
subroutine	3	5	60.0
pod	1	2	50.0
total	13	28	46.4

#
# $Id$
#
# remote::windows Brik
#
package Metabrik::Remote::Windows;
use strict;
use warnings;

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

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) ],
         user => [ qw(username) ],
         password => [ qw(password) ],
         registry => [ qw(key) ],
      },
      attributes_default => {
         registry => 'HKLM',
      },
      commands => {
         install => [ ],  # Inherited
         dump_registry => [ qw(key|OPTIONAL output|OPTIONAL) ],
      },
   };
}

sub dump_registry {
   my $self = shift;
   my ($registry, $output) = @_;

   $registry ||= $self->registry;
   $output ||= 'C:\\windows\\temp\\'.$registry.'.reg';

   return $self->execute("\"reg export $registry $output\"");
}

1;

__END__