—
—

              
#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:
HideShow 18 lines of Pod
=head1 NAME
Rex::Group::Lookup::INI - read hostnames and groups from a INI style file
=head1 DESCRIPTION
With this module you can define hostgroups out of an ini style file.
=head1 SYNOPSIS
 use Rex::Group::Lookup::INI;
 groups_file "file.ini";
  
=head1 EXPORTED FUNCTIONS
=cut
package Rex::Group::Lookup::INI;
use strict;
use warnings;
our $VERSION = '1.7.0'; # VERSION
use Rex -base;
require Exporter;
use base qw(Rex::Exporter);
use vars qw(@EXPORT);
use Rex::Helper::INI;
@EXPORT = qw(groups_file);
HideShow 19 lines of Pod
=head2 groups_file($file)
With this function you can read groups from INI style files.
File example:
 [webserver]
 fe01
 fe02
 f03
     
 [backends]
 be01
 be02
It also supports hostname expressions like [1..3], [1,2,3] and [1..5/2].
=cut
sub groups_file {
  my ($file) = @_;
  my $section;
  my %hash;
  open( my $INI, "<", "$file" ) || die "Can't open $file: $!\n";
  my @lines = <$INI>;
  chomp @lines;
  close($INI);
  my $hash = Rex::Helper::INI::parse(@lines);
  for my $k ( keys %{$hash} ) {
    my @servers;
    for my $servername ( keys %{ $hash->{$k} } ) {
      my $add = {};
      if ( exists $hash->{$k}->{$servername}
        && ref $hash->{$k}->{$servername} eq "HASH" )
      {
        $add = $hash->{$k}->{$servername};
      }
      my $obj = Rex::Group::Entry::Server->new( name => $servername, %{$add} );
      push @servers, $obj;
    }
    group( "$k" => @servers );
  }
}
1;