Add -l support to site-summary too.

1 files changed, 52 insertions, 7 deletions

diff --git a/site-summary b/site-summary
index 8461ef0..e914719 100755
--- a/site-summary
+++ b/site-summary
@@ -4,9 +4,23 @@ use strict;
 use warnings;
 
 use SiteSummary;
+use Getopt::Std;
 
 my %sites;
 my %sitegroups;
+my %hostmap;
+my %opts;
+
+sub usage {
+    my $retval = shift;
+    print <<EOF;
+Usage: $0 [-l]
+   -l   list hosts with the given site/sitegroup
+EOF
+    exit $retval;
+}
+
+getopt("l", \%opts) || usage(1);
 
 for_all_hosts(\&handle_host);
 
@@ -16,18 +30,49 @@ sub handle_host {
     my $hostid = shift;
     #print "$hostid\n";
     for my $site (get_site($hostid)) {
-	$site = "" unless defined $site;
-	$sites{$site}++;
-	$sitegroups{$site}{get_sitegroup($hostid)}++ if get_sitegroup($hostid);
+        $site = "" unless defined $site;
+        $sites{$site}++;
+        my $sitegroup = get_sitegroup($hostid);
+        if ($sitegroup) {
+            $sitegroups{$site}{$sitegroup}++;
+
+            if (exists $hostmap{$site}{$sitegroup}) {
+                push @{$hostmap{$site}{$sitegroup}}, $hostid ;
+            } else {
+                $hostmap{$site}{$sitegroup} = [$hostid];
+            }
+        } else {
+            if (exists $hostmap{$site}) {
+                push @{$hostmap{$site}}, $hostid ;
+            } else {
+                $hostmap{$site} = [$hostid];
+            }
+        }
     }
 }
 
 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});
-	}
+        printf("  %-20s %5d\n", $site, $sites{$site});
+        if (exists $opts{l}) {
+            for my $hostid (sort @{$hostmap{$site}}) {
+                my $hostname = get_hostname($hostid);
+                my $site = get_site($hostid) || "";
+                my $sitegroup = get_sitegroup($hostid) || "";
+                printf "    %s %s/%s %s\n", $hostname, $site, $sitegroup, $hostid;
+            }
+        }
+        for my $sitegroup (sort keys %{$sitegroups{$site}}) {
+            printf("    %-18s %5d\n", $sitegroup, $sitegroups{$site}{$sitegroup});
+            if (exists $opts{l}) {
+                for my $hostid (sort @{$hostmap{$site}{$sitegroup}}) {
+                    my $hostname = get_hostname($hostid);
+                    my $site = get_site($hostid) || "";
+                    my $sitegroup = get_sitegroup($hostid) || "";
+                    printf "    %s %s/%s %s\n", $hostname, $site, $sitegroup, $hostid;
+                }
+            }
+        }
     }
 }