Contents of /data/checklist

#!/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";
        }
}
1	joeyh	2	#!/usr/bin/perl
2			# Must run on a machine with madison.
3
4			my $list=shift;
5			if (! $list) {
6			die "usage: $0 list\n";
7			}
8
9			open (IN, $list) \|\| die "open $list: $!";
10			while (<IN>) {
11			chomp;
12			if (/^\[/) {
13			($id)=m/(DSA-.*?) /;
14			}
15			elsif (/^CAN-/) {
16			$id=$_;
17			}
18			elsif (/^\s+[!-]\s+(.?)\s+(.)$/) {
19			my $package=$1;
20			my $version=$2;
21			if ($version=~/unfixed/) {
22			print "$package $version for $id\n";
23			next;
24			}
25			my $maddy=`madison -s testing '$package'`;
26			if (length $maddy) {
27			my @fields = split(/\s\\|\s/, $maddy);
28			my $cmp=system("dpkg --compare-versions '$fields[1]' '>=' '$version'");
29			if ($cmp != 0) {
30			print "$package $version needed, have $fields[1] for $id\n";
31			}
32			}
33			}
34			elsif (/HELP/) {
35			print $_." ($id)\n";
36			}
37			}