if($::FORCE_SERVER) {

   $::FORCE_SERVER = join(" ", Rex::Group->get_group(substr($::FORCE_SERVER, 1))) if($::FORCE_SERVER =~ m/^\0/);

   my @servers = split(/\s+/, $::FORCE_SERVER);
   push @server, Rex::Commands::evaluate_hostname($_) for @servers;

   Rex::Logger::debug("\tserver: $_") for @server;

}

else {

   if(scalar(@_) >= 1) {
      if($_[0] eq "group") {
         my $groups;
         if(ref($_[1]) eq "ARRAY") {
            $groups = $_[1];
         }
         else {
            $groups = [ $_[1] ];
         }
         
         for my $group (@{$groups}) {
            if(Rex::Group->is_group($group)) {
               Rex::Logger::debug("\tusing group: $group -> " . join(", ", Rex::Group->get_group($group)));

               for my $server_name (Rex::Group->get_group($group)) {
                  if(ref($server_name) eq "CODE") {
                     push(@server, $server_name);
                  }
                  else {
                     push(@server, Rex::Commands::evaluate_hostname($server_name));
                  }
               }

               Rex::Logger::debug("\tserver: $_") for @server;
            } else {
               Rex::Logger::info("Group $group not found!");
               exit 1;
            }
         }
      } else {
         push @server, Rex::Commands::evaluate_hostname($_) for @_;
         Rex::Logger::debug("\tserver: $_") for @server;
      }
   }

}