debian_edu-summary


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/perl -w

use strict;

use SiteSummary;
my %profiles;
my %versions;

for_all_hosts(\&handle_host);

print_summary();

exit 0;

sub handle_host {
    my $hostid = shift;
    my $profile = get_debian_edu_profile($hostid);
    my $version = get_debian_edu_ver($hostid);
    $profiles{$profile}++ if (defined $profile);
    $versions{$version}++ if (defined $version);
}

sub print_summary {
    printf("  %-30s %5s\n", "debian-edu-profile", "count");
    foreach ( keys %profiles ) {
    	printf(" %30s %5s\n", $_ || "n/a", $profiles{$_});
    }
    printf("  %-30s %5s\n", "debian-edu-version", "count");
    foreach ( keys %versions ) {
    	printf(" %30s %5s\n", $_ || "n/a", $versions{$_});
    }
}