X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;ds=sidebyside;f=bin%2Fparse-contents;fp=bin%2Fparse-contents;h=550b6eeafeb5c01883a4dc7258c6ce3c0cab7ca9;hb=5eaeeea2aae68dd37e728d66e7d1e2458e6e7a33;hp=341ecd5783394cfcef859fae632d5896432cdc6a;hpb=888a7de02572eb30f2b35aa6ea469ad7eb9f05b4;p=deb%2Fpackages.git

diff --git a/bin/parse-contents b/bin/parse-contents
index 341ecd5..550b6ee 100755
--- a/bin/parse-contents
+++ b/bin/parse-contents
@@ -117,6 +117,15 @@ for my $archive (@archives) { for my $suite (@suites) {
 		or die "Oops";
   }
 
+
+  my $go = 0;
+  my $suite_mtime = (stat "$DBDIR/reverse_$suite.db")[9];
+  for my $file (glob "$DBDIR/reverse_${suite}_*.txt") {
+	  $go = 1 if not defined $suite_mtime
+		  or $suite_mtime < (stat $file)[9];
+  }
+  next unless $go;
+
   print "Merging reverse path lists for ${suite}...\n";
 
   open MERGED, "sort -m $DBDIR/reverse_${suite}_*.txt |"
@@ -162,16 +171,4 @@ for my $archive (@archives) { for my $suite (@suites) {
   rename "$DBDIR/reverse_$suite.db.new", "$DBDIR/reverse_$suite.db";
 }}
 
-#print "Writing databases...\n";
-
-# FIXME: missing filenames due to optimising above. Need to store filenames
-# per-suite/arch, but merge them in the end for better cached searching
-#open FILENAMES, "> $DBDIR/filenames.txt.new";
-#for (keys %filenames) {
-#	print FILENAMES "$_\n";
-#}
-#close FILENAMES;
-
-#rename("$DBDIR/filenames.txt.new", "$DBDIR/filenames.txt");
-
 # vim: set ts=4