aboutsummaryrefslogtreecommitdiffstats
path: root/sitecontact-summary
diff options
context:
space:
mode:
Diffstat (limited to 'sitecontact-summary')
-rwxr-xr-xsitecontact-summary28
1 files changed, 0 insertions, 28 deletions
diff --git a/sitecontact-summary b/sitecontact-summary
deleted file mode 100755
index 2639b00..0000000
--- a/sitecontact-summary
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use SiteSummary;
-
-my %sitecontacts;
-
-for_all_hosts(\&handle_host);
-
-print_summary();
-
-sub handle_host {
- my $hostid = shift;
- #print "$hostid\n";
- for my $sitecontact (get_sitecontact($hostid)) {
- $sitecontact = "" unless defined $sitecontact;
- $sitecontacts{$sitecontact}++;
- }
-}
-
-sub print_summary {
- printf(" %-20s %5s\n", "contact", "count");
- for my $sitecontact (sort keys %sitecontacts) {
- printf(" %-20s %5d\n", $sitecontact, $sitecontacts{$sitecontact});
- }
-}