File Coverage

lib/Rex/Pkg/FreeBSD.pm

Criterion	Covered	Total	%
statement	20	65	30.7
branch	0	16	0.0
condition	0	3	0.0
subroutine	7	12	58.3
pod	0	5	0.0
total	27	101	26.7

#
# (c) Jan Gehring
#

package Rex::Pkg::FreeBSD;

use v5.12.5;
use warnings;

our $VERSION = '1.14.2.2'; # TRIAL VERSION

use Rex::Helper::Run;
use Rex::Commands::File;
use Rex::Pkg::Base;
use base qw(Rex::Pkg::Base);
use Net::OpenSSH::ShellQuoter;

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = $proto->SUPER::new(@_);

  bless( $self, $proto );

  # Check if pkg is actually bootstraped (installed and activated)
  i_run "pkg -N", fail_ok => 1;
  if ( $? != 0 ) {
    i_run "pkg bootstrap", env => { 'ASSUME_ALWAYS_YES' => 'true' };
  }

  $self->{commands} = {
    install           => 'pkg install -q -y %s',
    install_glob      => 'pkg install -q -y -g %s',
    install_version   => 'pkg install -q -y %s',
    remove            => 'pkg remove -q -y %s',
    remove_glob       => 'pkg remove -q -y -g %s',
    query             => 'pkg info',
    update_package_db => 'pkg update -q -f',

    # pkg can't update system yet, only packages
    update_system => 'pkg upgrade -q -y',
  };

  return $self;
}

sub bulk_install {
  my ( $self, $packages_aref, $option ) = @_;

  # makes no sense to specify the same version for several packages
  delete $option->{version};
  $self->update( "@{$packages_aref}", $option );

  return 1;
}

sub remove {
  my ( $self, $pkg ) = @_;

  my $pkg_version = '';

  if ( $pkg !~ /\*/ ) {
    my ($pkg_found) = grep { $_->{"name"} eq "$pkg" } $self->get_installed();
    $pkg_version = '-' . $pkg_found->{"version"};
  }

  return $self->SUPER::remove("$pkg$pkg_version");
}

sub is_installed {
  my ( $self, $pkg, $option ) = @_;
  my $version = $option->{version};

  Rex::Logger::debug(
    "Checking if $pkg" . ( $version ? "-$version" : "" ) . " is installed" );

  # only need -g if pkg is a glob
  my $extra_args = '';
  if ( $pkg =~ /\*/ ) {

    # quote the pkg glob so it will work
    my $exec   = Rex::Interface::Exec->create;
    my $quoter = Net::OpenSSH::ShellQuoter->quoter( $exec->shell->name );
    $pkg        = $quoter->quote($pkg);
    $extra_args = $extra_args . ' -g ';
  }

  # pkg info -e allow get quick answer about is pkg installed or not.
  my $command =
      $self->{commands}->{query}
    . $extra_args
    . " -e $pkg"
    . ( $version ? "-$version" : "" );
  i_run $command, fail_ok => 1;

  if ( $? != 0 ) {
    Rex::Logger::debug(
      "$pkg" . ( $version ? "-$version" : "" ) . " is NOT installed." );
    return 0;
  }

  Rex::Logger::debug(
    "$pkg" . ( $version ? "-$version" : "" ) . " is installed." );
  return 1;

}

sub get_installed {
  my ($self) = @_;

  my @lines = i_run $self->{commands}->{query};

  my @pkg;

  for my $line (@lines) {
    my ( $pkg_name_v, $descr ) = split( /\s/, $line, 2 );

    my ( $pkg_name, $pkg_version ) = ( $pkg_name_v =~ m/^(.*)-(.*?)$/ );

    push(
      @pkg,
      {
        name    => $pkg_name,
        version => $pkg_version,
      }
    );
  }

  return @pkg;
}

1;