added spong.groups 'compress' attribute to display_html(). only display

columns that have data in the host group.

diff --git a/src/lib/Spong/HostList.pm b/src/lib/Spong/HostList.pm
index fb2ee4ee8ac3cfd59974639143aa0c294a44b241..3d24aaf505f11a3a7d25c105a9503627b5e45688 100755 (executable)
--- a/src/lib/Spong/HostList.pm
+++ b/src/lib/Spong/HostList.pm
@@ -213,8 +213,20 @@ sub display_html {
       # Compute the total list of services running on the various hosts, and
       # sort them alphabetically (except always put ping first).
       
-      if( grep( /^ping$/, keys %main::SERVICES ) ) { push( @names, "ping" ); }
-      foreach $service ( sort keys %main::SERVICES ) {
+      # If group has a compress attribute, only print services in use
+#&main::debug("self->name = " . $self->{'name'} . 
+#       "compress = " . $main::GROUPS{$self->{'name'}}->{'compress'} );
+      if ( $main::GROUPS{$self->{'name'}}->{'compress'} ) {
+         foreach $host ( $self->hosts() ) {
+            foreach $service ( $host->service_names() ) {
+               $services{$service}++; }}
+         @s = (keys %services);
+      } else {
+         @s = (keys %main::SERVICES);
+      }
+
+      if( grep( /^ping$/, (@s) ) ) { push( @names, "ping" ); }
+      foreach $service ( sort (@s) ) {
         push( @names, $service ) unless $service eq "ping"; }
       
       # Print the horizontal axis of the table (names of the services)