diff options
author | Petter Reinholdtsen <pere@hungry.com> | 2006-10-04 08:32:35 +0000 |
---|---|---|
committer | Petter Reinholdtsen <pere@hungry.com> | 2006-10-04 08:32:35 +0000 |
commit | c0263cb7af9810de7e0cf26b4326a70311861bff (patch) | |
tree | 91067b704a384f88d53e19aeb67f4565afb7e98c /debian_edu-summary | |
parent | af5ecd8d9cb7231756fba13418766e45816a0b9c (diff) | |
download | sitesummary-c0263cb7af9810de7e0cf26b4326a70311861bff.tar.gz sitesummary-c0263cb7af9810de7e0cf26b4326a70311861bff.tar.bz2 sitesummary-c0263cb7af9810de7e0cf26b4326a70311861bff.tar.xz |
* Add collector for debian-edu configuration. Correct server
summary part to use the collected file.
Diffstat (limited to 'debian_edu-summary')
-rwxr-xr-x | debian_edu-summary | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/debian_edu-summary b/debian_edu-summary index ad29a72..a873f76 100755 --- a/debian_edu-summary +++ b/debian_edu-summary @@ -3,18 +3,30 @@ use strict; use SiteSummary; +my %profiles; +my %versions; -#for_all_hosts(\&handle_host); +for_all_hosts(\&handle_host); + +print_summary(); + +exit 0; -handle_host(); sub handle_host { my $hostid = shift; - printf(" %-20s %5s\n", "debian-edu-profile", "count"); - foreach ( get_debian_edu_profile ) { - printf(" %20s\n", $_ || "", "\n"); + my $profile = get_debian_edu_profile($hostid); + my $version = get_debian_edu_ver($hostid); + $profiles{$profile}++ if (defined $profile); + $profiles{$version}++ if (defined $version); +} + +sub print_summary { + printf(" %-30s %5s\n", "debian-edu-profile", "count"); + foreach ( keys %profiles ) { + printf(" %30s %5s\n", $_ || "", $profiles{$_}); } - printf(" %-20s %5s\n", "debian-edu-version", "count"); - foreach ( get_debian_edu_ver ) { - printf(" %20s\n", $_ || "", "\n"); + printf(" %-30s %5s\n", "debian-edu-version", "count"); + foreach ( keys %versions ) { + printf(" %30s %5s\n", $_ || "", $versions{$_}); } } |