From 139b4c54cfee7d63bcfc457ecf5978a4d39d5265 Mon Sep 17 00:00:00 2001
From: Petter Reinholdtsen <pere@hungry.com>
Date: Sun, 27 Aug 2006 21:21:46 +0000
Subject:   * Reduce code duplication in SiteSummary.pm.  Add new function    
 get_sitegroup().   * Extend site-summary script to also entries per sitegroup
 within a     site.

---
 site-summary | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'site-summary')

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});
+	}
     }
 }
-- 
cgit v1.2.3