* Add invalid_version template

[debbugs.git] / scripts / summary.in

diff --git a/scripts/summary.in b/scripts/summary.in
index 185f75199e365090c687963ea8ea5f983c3dfba5..a1be697804afc7034b7f3a0aec3db027845a81a7 100755 (executable)
--- a/scripts/summary.in
+++ b/scripts/summary.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: summary.in,v 1.9 2003/08/22 01:41:54 cjwatson Exp $
+# $Id: summary.in,v 1.11 2004/04/17 17:31:04 cjwatson Exp $
 
 $config_path = '/etc/debbugs';
 $lib_path = '/usr/lib/debbugs';
@@ -35,13 +35,14 @@ close(M);
 defined($startdate= time) || &quit("failed to get time: $!");
 
 opendir(DIR,"db-h") || &quit("opendir db-h: $!\n");
-@dirs = sort { $a <=> $b } grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
+@dirs = grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
 closedir(DIR);
 foreach my $dir (@dirs) {
         opendir(DIR,$dir);
-        push @list, sort { $a <=> $b } grep(s/\.db$//,grep(m/^\d+\.db$/,readdir(DIR)));
+        push @list, grep(s/\.status$//,grep(m/^\d+\.status$/,readdir(DIR)));
         closedir(DIR);
 }
+@list = sort { $a <=> $b } @list;
 
 $head= $mode eq 'bymaint'
     ? ' Package     Ref    Subject'