#!/usr/bin/perl -w
use warnings;
use strict;
my (@members,@GroupIDs);
### Start Global Configuration
my $src_file = "Servers.csv";
my $icinga_root = "/usr/local/etc/icinga";
my $objects_root = "objects";
### End Global Configuration
my %counter = ();
my %groups = ();
my $i = 0;
open( SRC, "<", $src_file  );
while (<SRC>){
    next if /^(\s)*$/;
    s/\"//g;
    my ($GroupID,$member,$Group_descr,$contact,$ip) = split /;/, $_;
    s/\;//g;
    push @GroupIDs, $GroupID;
    foreach (@GroupIDs) {
        my $prev_GroupID = $GroupID;
        $#members = -1;
       push @members, join(',', $member);
    }
    $groups{$GroupID} = @members;
    $counter{$GroupID}++;
if ($counter{$GroupID} <= 1) {
open (HOSTGROUPS,">>", "$icinga_root/test/hostgroups.cfg");
print HOSTGROUPS <<HOSTGROUPSTMPL;
define hostgroup{
        hostgroup_name  $GroupID
        alias           $Group_descr
        members         @members;
        }
HOSTGROUPSTMPL
close (HOSTGROUPS);
} else {
push @members,join(',', $member);
open (HOSTGROUPS,">>", "$icinga_root/test/hostgroups.cfg");
print HOSTGROUPS <<HOSTGROUPSTMPL;
define hostgroup{
        hostgroup_name  $GroupID
        alias           $Group_descr
        members         @members;
        }
HOSTGROUPSTMPL
close (HOSTGROUPS);
}
}
close (SRC);