diff options
author | Petter Reinholdtsen <pere@hungry.com> | 2006-08-28 16:24:08 +0000 |
---|---|---|
committer | Petter Reinholdtsen <pere@hungry.com> | 2006-08-28 16:24:08 +0000 |
commit | 1df001a306f5bc3101076c403f8c8155c92a9693 (patch) | |
tree | 24fc1081ce6b8aacfc5863cea7552aa734a59c49 /sitecontact-summary | |
parent | 235a3e1ac485c6a5f75254c86ee7220a02e80742 (diff) | |
download | sitesummary-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-x | sitecontact-summary | 28 |
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}); - } -} |