#!/usr/bin/perl
# Must run on a machine with madison.
use URI::Escape;
my $html=0;
if ($ARGV[0] eq 'html') {
shift;
$html=1;
}
if (! @ARGV) {
die "usage: $0 [html] list\n";
}
if ($html) {
print "testing security issues\n";
print "\n";
}
sub formatout {
my $out=shift;
if ($html) {
$out=~s#((?:CAN|CVE)-\d+-\d+)#$1#g;
$out=~s{bug #(\d+)}{bug #$1}g;
}
return $out;
}
my $unprop = my $unfixed = 0;
foreach my $list (@ARGV) {
if (-d $list) {
$list="$list/list";
}
open (IN, $list) || die "open $list: $!";
while () {
chomp;
if (/^\[/) {
($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /;
}
elsif (/^((?:DSA|CAN|CVE)-[^\s]+)/) {
$id=$1;
}
elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) {
my $package=$1;
my $version=$2;
my $maddy=`madison -s testing '$package'`;
next unless length $maddy; # skip if not in testing
if ($version=~/unfixed/) {
print "- " if $html;
print formatout("$package $version for $id\n");
$unprop++;
}
else {
my @fields = split(/\s*\|\s*/, $maddy);
my $havver=$fields[1];
my $cmp=system("dpkg --compare-versions '$havver' '>=' '$version'");
if ($cmp != 0) {
if ($html) {
print "
- ";
$havver=''.$havver.'';
}
print formatout("$package $version needed, have $havver for $id\n");
$unfixed++;
}
}
}
}
}
if ($html) {
print "
\n";
print "
\n";
print "Total unfixed: $unfixed
\n";
print "Total fixed in unstable but not testing: $unprop
\n";
print "Last update: ".`date`."
\n";
print "\n";
}