SVN devscripts commit: r573 - in trunk: debian scripts

[Adam D. Barratt]

Author: adam-guest
Date: 2007-03-19 19:05:35 +0000 (Mon, 19 Mar 2007)
New Revision: 573

Modified:
   trunk/debian/changelog
   trunk/scripts/bts.pl
Log:
Update prunecache() for maintainer / status mboxes and version graphs


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2007-03-18 08:36:21 UTC (rev 572)
+++ trunk/debian/changelog	2007-03-19 19:05:35 UTC (rev 573)
@@ -4,12 +4,14 @@
   * scripts/Makefile: Override make's default .sh rule so that the package
     version string actually gets written to the scripts
   * Fix encoding of French manpages (Closes: #415240)
+  * bts
+    - Update prunecache() for maintainer / status mboxes and version graphs
 
   [ Martin Zobel-Helas ]
   * Adding myself to Uploaders
   * tagpending should not use pend-excl=done (Closes: #415309)
 
- -- Martin Zobel-Helas <zobel at debian.org>  Sun, 18 Mar 2007 09:31:51 +0100
+ -- Adam D. Barratt <debian-bts at adam-barratt.org.uk>  Mon, 19 Mar 2007 19:04:28 +0000
 
 devscripts (2.10.1) unstable; urgency=low
 

Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl	2007-03-18 08:36:21 UTC (rev 572)
+++ trunk/scripts/bts.pl	2007-03-19 19:05:35 UTC (rev 573)
@@ -2507,7 +2507,7 @@
     my @known_files = map { basename($_) } ($timestampdb, $timestampdb.".lock",
 					    $prunestamp);
 
-    my %weirdfiles = map { $_ => 1 } grep { ! /\.(html|css)$/ } @cachefiles;
+    my %weirdfiles = map { $_ => 1 } grep { ! /\.(html|css|png)$/ } @cachefiles;
     foreach (@known_files) {
 	delete $weirdfiles{$_} if exists $weirdfiles{$_};
     }
@@ -2517,6 +2517,10 @@
 	    delete $weirdfiles{$1} if exists $weirdfiles{$1} and -d $1;
 	    delete $weirdfiles{"$1.mbox"}
 	        if exists $weirdfiles{"$1.mbox"} and -f "$1.mbox";
+	    delete $weirdfiles{"$1.raw.mbox"}
+	        if exists $weirdfiles{"$1.raw.mbox"} and -f "$1.raw.mbox";
+	    delete $weirdfiles{"$1.status.mbox"}
+	        if exists $weirdfiles{"$1.status.mbox"} and -f "$1.status.mbox";
 	}
     }