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

Diff of /bin/checklist

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

revision 233 by joeyh, Wed Jan 5 03:43:45 2005 UTC revision 239 by joeyh, Wed Jan 5 10:34:41 2005 UTC
# Line 25  sub formatout { Line 25  sub formatout {
25          return $out;          return $out;
26  }  }
27    
28    my $unprop = my $unfixed = 0;
29    
30  foreach my $list (@ARGV) {  foreach my $list (@ARGV) {
31          if (-d $list) {          if (-d $list) {
32                  $list="$list/list";                  $list="$list/list";
# Line 45  foreach my $list (@ARGV) { Line 47  foreach my $list (@ARGV) {
47                          if ($version=~/unfixed/) {                          if ($version=~/unfixed/) {
48                                  print "<li>" if $html;                                  print "<li>" if $html;
49                                  print formatout("$package $version for $id\n");                                  print formatout("$package $version for $id\n");
50                                    $unprop++;
51                                  next;                                  next;
52                          }                          }
53                          my $maddy=`madison -s testing '$package'`;                          my $maddy=`madison -s testing '$package'`;
# Line 58  foreach my $list (@ARGV) { Line 61  foreach my $list (@ARGV) {
61                                                  $havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.$package.'">'.$havver.'</a>';                                                  $havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.$package.'">'.$havver.'</a>';
62                                          }                                          }
63                                          print formatout("$package $version needed, have $havver for $id\n");                                          print formatout("$package $version needed, have $havver for $id\n");
64                                            $unfixed++;
65                                  }                                  }
66                          }                          }
67                  }                  }
# Line 67  foreach my $list (@ARGV) { Line 71  foreach my $list (@ARGV) {
71  if ($html) {  if ($html) {
72          print "</ul>\n";          print "</ul>\n";
73          print "<hr>\n";          print "<hr>\n";
74            print "Total unfixed: $unfixed\n";
75            print "Total fixed in unstable but not testing: $unprop\n";
76          print "Last update: ".`date`;          print "Last update: ".`date`;
77  }  }
Legend:
Removed from v.233  
changed lines
  Added in v.239
  ViewVC Help
Powered by ViewVC 1.1.5