* Reduce code duplication in SiteSummary.pm. Add new function

    get_sitegroup().
  * Extend site-summary script to also entries per sitegroup within a
    site.

1 files changed, 5 insertions, 0 deletions

diff --git a/site-summary b/site-summary
index 4d0f5e0..8461ef0 100755
--- a/site-summary
+++ b/site-summary
@@ -6,6 +6,7 @@ use warnings;
 use SiteSummary;
 
 my %sites;
+my %sitegroups;
 
 for_all_hosts(\&handle_host);
 
@@ -17,6 +18,7 @@ sub handle_host {
     for my $site (get_site($hostid)) {
 	$site = "" unless defined $site;
 	$sites{$site}++;
+	$sitegroups{$site}{get_sitegroup($hostid)}++ if get_sitegroup($hostid);
     }
 }
 
@@ -24,5 +26,8 @@ sub print_summary {
     printf("  %-20s %5s\n", "site", "count");
     for my $site (sort keys %sites) {
 	printf("  %-20s %5d\n", $site, $sites{$site});
+	for my $sitegroup (sort keys %{$sitegroups{$site}}) {
+	    printf("    %-18s %5d\n", $sitegroup, $sitegroups{$site}{$sitegroup});
+	}
     }
 }