#!/usr/bin/perl
# Must run on a machine with madison.

my $list=shift;
if (! $list) {
	die "usage: $0 list\n";
}

open (IN, $list) || die "open $list: $!";
while (<IN>) {
	chomp;
	if (/^\[/) {
		($id)=m/(DSA-.*?) /;
	}
	elsif (/^CAN-/) {
		$id=$_;
	}
	elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) {
		my $package=$1;
		my $version=$2;
		if ($version=~/unfixed/) {
			print "$package $version for $id\n";
			next;
		}
		my $maddy=`madison -s testing '$package'`;
		if (length $maddy) {
			my @fields = split(/\s*\|\s*/, $maddy);
			my $cmp=system("dpkg --compare-versions '$fields[1]' '>=' '$version'");
			if ($cmp != 0) {
				print "$package $version needed, have $fields[1] for $id\n";
			}
		}
	}
	elsif (/HELP/) {
		print $_." ($id)\n";
	}
}