aboutsummaryrefslogtreecommitdiffstats
path: root/sitecontact-summary
diff options
context:
space:
mode:
authorPetter Reinholdtsen <pere@hungry.com>2006-08-28 16:24:08 +0000
committerPetter Reinholdtsen <pere@hungry.com>2006-08-28 16:24:08 +0000
commit1df001a306f5bc3101076c403f8c8155c92a9693 (patch)
tree24fc1081ce6b8aacfc5863cea7552aa734a59c49 /sitecontact-summary
parent235a3e1ac485c6a5f75254c86ee7220a02e80742 (diff)
downloadsitesummary-1df001a306f5bc3101076c403f8c8155c92a9693.tar.gz
sitesummary-1df001a306f5bc3101076c403f8c8155c92a9693.tar.bz2
sitesummary-1df001a306f5bc3101076c403f8c8155c92a9693.tar.xz
* Remove sitecontact references. I'm not sure it is the right place
for it, and we can reintroduce it if it proves to be a good idea.
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});
- }
-}