From 09bdea5cbd9e8081446b040666e06b33e7e4352a Mon Sep 17 00:00:00 2001
From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 9 Feb 2000 20:13:02 +0000
Subject: [PATCH] added type "full" display routines to display_html() (hosts
 by group)

---
 src/lib/Spong/HostGroups.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/lib/Spong/HostGroups.pm b/src/lib/Spong/HostGroups.pm
index 9886dd3..99c235e 100755
--- a/src/lib/Spong/HostGroups.pm
+++ b/src/lib/Spong/HostGroups.pm
@@ -255,6 +255,24 @@ sub display_html {
 
    } elsif( $format eq "full" ) {
 
+      # 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 ) {
+	 push( @names, $service ) unless $service eq "ping"; }
+
+      # Run though reach group and print the hosts for each group
+      foreach $group ( $self->groups() ) { 
+         my $name = $group->name();
+         my $grname = $main::GROUPS{$name}->{'name'};
+
+         # Display the host group table
+         print "<strong>Group - $grname</strong>\n";
+         $group->display_html("standard");
+       
+         print "\n<HR>\n";
+      }
    }
 }
 
-- 
2.30.2