debian_edu-summary


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl -w

use strict;

use SiteSummary;

#for_all_hosts(\&handle_host);

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");
    }
    printf("  %-20s %5s\n", "debian-edu-version", "count");
    foreach ( get_debian_edu_ver ) {
    	printf(" %20s\n", $_ || "", "\n");
    }
}