- print "Reading $archive/$suite/i386...\n";
- open CONT, "zcat /org/ftp.debian.org/ftp/dists/stable/Contents-i386.gz|$what";
- while (1) {$_ = <CONT>;last if /^FILE/mo;}
+ my $filename = "$TOPDIR/archive/$archive/$suite/Contents-$arch.gz";
+ my $db = "$DBDIR/packages_contents_${suite}_${arch}.db";
+ next unless -f $filename;
+ my $ftime = (stat $filename)[9];
+ my $dbtime = (stat $db)[9];
+ next unless $ftime > $dbtime;
+ print "Reading $archive/$suite/$arch...\n";
+
+ my %packages_contents = ();
+ my %packages_contents_nr = ();
+ my %packages_contents_lastword = ();
+ my %contents_packages_reverse = ();
+
+ open CONT, "zcat $filename|$what";
+ while (<CONT>) {last if /^FILE/mo;}