Fix hostgroup membership list

Author: ferki

ChangeLog

@@ -12,6 +12,7 @@ Revision history for Rex
  - Fix parsing FreeBSD memory details
  - Recognize laundry memory on FreeBSD
  - Fix command existence checks without which
+ - Fix hostgroup membership list
 
  [DOCUMENTATION]
 

lib/Rex/Group.pm

@@ -15,7 +15,7 @@ use attributes;
 use Rex::Group::Entry::Server;
 
 use vars qw(%groups);
-use List::Util 1.45 qw(uniq);
+use List::Util 1.45 qw(any uniq);
 use Data::Dumper;
 
 sub new {
@@ -24,8 +24,16 @@ sub new {
   my $self  = {@_};
 
   bless( $self, $proto );
+
   for my $srv ( @{ $self->{servers} } ) {
     $srv->append_to_group( $self->{name} );
+
+    for my $group ( keys %groups ) {
+
+      if ( any { $_ eq $srv } $groups{$group}->get_servers ) {
+        $srv->append_to_group($group);
+      }
+    }
   }
 
   return $self;