view release on metacpan or  search on metacpan

lib/Rex/Pkg/Redhat.pm  view on Meta::CPAN

  my %new_installed;
  foreach my $new_pkg (@new_installed) {
    my $name    = $new_pkg->{name};
    my $version = "$new_pkg->{version} $new_pkg->{release}";
    if ( $old_installed{$name} and $old_installed{$name}{$version} ) {
      delete $old_installed{$name}{$version};
      if ( !keys %{ $old_installed{$name} } ) {
        delete $old_installed{$name};
      }
      next;
    }
    $new_installed{$name}{$version} = $new_pkg;
  }

  foreach my $new_name ( keys %new_installed ) {
    if ( $old_installed{$new_name} ) {
      foreach my $pkg ( values %{ $new_installed{$new_name} } ) {
        push @modifications, { %{$pkg}, action => 'updated' };
      }
    }
    else {
      foreach my $pkg ( values %{ $new_installed{$new_name} } ) {
        push @modifications, { %{$pkg}, action => 'installed' };
      }
    }
  }

  foreach my $old_name ( keys %old_installed ) {
    if ( !$new_installed{$old_name} ) {
      foreach my $pkg ( values %{ $old_installed{$old_name} } ) {
        push @modifications, { %{$pkg}, action => 'removed' };
      }
    }
  }

  return @modifications;
}

sub add_repository {
  my ( $self, %data ) = @_;

  my $name = $data{"name"};
  my $desc = $data{"description"} || $data{"name"};

  if ( exists $data{"key_url"} ) {
    i_run "rpm --import $data{key_url}";
  }

  if ( exists $data{"key_file"} ) {
    i_run "rpm --import $data{key_file}";
  }

  my $fh = file_write "/etc/yum.repos.d/$name.repo";

  $fh->write("# This file is managed by Rex\n");
  $fh->write("[$name]\n");
  $fh->write("name=$desc\n");
  $fh->write( "baseurl=" . $data{"url"} . "\n" );
  $fh->write("enabled=1\n");
  $fh->write( "gpgkey=" . $data{"gpgkey"} . "\n" )
    if defined $data{"gpgkey"};
  $fh->write( "gpgcheck=" . $data{"gpgcheck"} . "\n" )
    if defined $data{"gpgcheck"};

  $fh->close;
}

sub rm_repository {
  my ( $self, $name ) = @_;
  unlink "/etc/yum.repos.d/$name.repo";
}

sub _yum {
  my ( $self, @cmd ) = @_;

  my $str;

  if ($Rex::Logger::debug) {
    $str = join( ' ', "yum ", @cmd );
  }
  else {
    $str = join( ' ', "yum -q ", @cmd );
  }

  return $str;
}

1;