cve-pie-chart.pl

#!/usr/bin/perl

# number of vulns per severity
#
my $webroot = $ARGV[0] || "../curl-www";
require "$webroot/docs/vuln.pm";

for my $l (@vuln) {
    my @d = split('\|', $l);
    $v{$d[12]}++;
}

print "severity,amount\n";
for my $e (sort {$v{$b} <=> $v{$a}} keys %v) {
    printf "%s;%d\n", ucfirst($e), $v{$e};
}