/[secure-testing]/bin/checklist
ViewVC logotype

Diff of /bin/checklist

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1749 by joeyh, Sat Aug 27 17:07:18 2005 UTC revision 1750 by neilm, Wed Aug 31 16:53:15 2005 UTC
# Line 17  if (! GetOptions( Line 17  if (! GetOptions(
17                  "suite=s" => \$suite,                  "suite=s" => \$suite,
18                  "output=s", \$output)                  "output=s", \$output)
19      || ! @ARGV) {      || ! @ARGV) {
20          die "usage: $0 [--suite suite] [--html] [--output=file] [--debug] list ...\n";          die "usage: $0 [--suite suite] [--html] [--output=file] [--debug] advisorylist dtsalist...\n";
21  }  }
22    
23  if (defined $output) {  if (defined $output) {
# Line 72  sub record { Line 72  sub record {
72          push @{$data{$package}{$condition}}, {item => $item, urgency => $urgency};          push @{$data{$package}{$condition}}, {item => $item, urgency => $urgency};
73  }  }
74    
75  foreach my $list (@ARGV) {  die ("No DTSA list specified") if (! length @ARGV[1]);
76    my $dtsalist = @ARGV[1];
77    foreach my $list (@ARGV[0]) {
78          if (-d $list) {          if (-d $list) {
79                  $list="$list/list";                  $list="$list/list";
80          }          }
# Line 153  foreach my $list (@ARGV) { Line 155  foreach my $list (@ARGV) {
155                                          my @fields = split(/\s*\|\s*/, $maddy);                                          my @fields = split(/\s*\|\s*/, $maddy);
156                                          my $havver=$fields[1];                                          my $havver=$fields[1];
157                                          my $arches=$fields[3];                                          my $arches=$fields[3];
158                                            my $dtsacmp=1;
159                                          $version=~s/\s+//; # strip whitespace                                          $version=~s/\s+//; # strip whitespace
160                                          $arches=~s/\s+$//;                                          $arches=~s/\s+$//;
161                                          my $cmp=system("dpkg --compare-versions '$havver' '>=' '$version'");                                          my $cmp=system("dpkg --compare-versions '$havver' '>=' '$version'");
162                                          if ($cmp != 0) {  
163                                            my $dtsaver = `grep "\\- $package" $dtsalist|awk '{print \$3}'`;
164                                            chomp $dtsaver;
165                                            if (length($dtsaver)) {
166                                                    my $hdcmp=system("dpkg --compare-versions '$havver' '>=' '$dtsaver'");
167                                                    if ($hdcmp != 0 && $vdcmp == 0) {
168                                                            record($package, "have $dtsaver in secure-testing archive, but $havver is in main archive",$id, $urgency);
169                                                    }
170                                                    $dtsacmp = 0;
171                                            }
172    
173                                            if ($cmp != 0 && $dtsacmp !=0) {
174                                                  if ($html && $suite eq 'testing') {                                                  if ($html && $suite eq 'testing') {
175                                                          $havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.uri_escape($package).'">'.$havver.'</a>';                                                          $havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.uri_escape($package).'">'.$havver.'</a>';
176                                                  }                                                  }
Legend:
Removed from v.1749  
changed lines
  Added in v.1750
  ViewVC Help
Powered by ViewVC 1.1.5