--- /dev/null
+#! /usr/bin/perl -w
+use strict;
+use MLDBM qw(DB_File Storable);
+use Fcntl;
+
+$MLDBM::DumpMeth=q(portable);
+
+my %db;
+tie %db, "MLDBM", "versions.idx.new", O_CREAT|O_RDWR, 0664
+ or die "tie versions.idx.new: $!";
+tie %db2, "MLDBM", "versions_time.idx.new",O_CREAT|O_RDWR, 0664
+ or die "tie versions_time.idx.new failed: $!";
+
+my $archive = shift;
+my $dist = shift;
+my $arch = shift;
+print "$archive/$dist/$arch\n";
+
+my $time = time;
+my ($p, $v);
+while (<>) {
+ if (/^Package: (.*)/) { $p = $1; }
+ elsif (/^Version: (.*)/) { $v = $1; }
+ elsif (/^$/) {
+ # see MLDBM(3pm)/BUGS
+ my $tmp = $db{$p};
+ $tmp->{$dist}{$arch} = $v;
+ $db{$p} = $tmp;
+ $tmp = $db2{$p};
+ $tmp->{$dist}{$arch}{$v} = $time if not exists
+ $tmp->{$dist}{$arch}{$v};
+ $db2{$p} = $tmp;
+ }
+}
--- /dev/null
+#! /bin/sh -e
+
+cd /org/bugs.debian.org/versions/indices
+
+ARCHIVES='ftp' # security -- should be included too, but too difficult to deal with
+
+# Nuke old versions of versions.idx.new in case there's one hanging about
+rm -f versions.idx.new
+# This index is much larger and keeps track of historic versions of
+# packages, and is used for expiring bugs
+rm -f versions_time.idx.new
+if [ -e versions_time.idx ]; then
+ cp versions_time.idx versions_time.idx.new;
+fi;
+
+set -e
+for archive in $ARCHIVES; do
+ case $archive in
+ ftp)
+ SUITES='oldstable stable proposed-updates testing testing-proposed-updates unstable experimental'
+ di_main='main main/debian-installer'
+ ;;
+ nonus)
+ SUITES='oldstable'
+ di_main='main'
+ ;;
+ security)
+ SUITES='oldstable stable testing'
+ di_main='main'
+ ;;
+ esac
+ for suite in $SUITES; do
+ if [ "$suite" != "oldstable" ] || [ -d /org/bugs.debian.org/etc/indices/$archive/$suite ]; then
+ case $suite in
+ oldstable|stable|proposed-updates)
+ ARCHES='alpha arm hppa i386 ia64 m68k mips mipsel powerpc s390 sparc'
+ ;;
+ testing|testing-proposed-updates)
+ ARCHES='alpha amd64 arm hppa i386 ia64 mips mipsel powerpc s390 sparc'
+ ;;
+ unstable|experimental)
+ ARCHES='alpha amd64 arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 sparc'
+ ;;
+ esac
+ case $suite in
+ oldstable|experimental)
+ COMPONENTS='main contrib non-free'
+ ;;
+ stable|proposed-updates|testing|testing-proposed-updates|unstable)
+ COMPONENTS="$di_main contrib non-free"
+ ;;
+ esac
+ for component in $COMPONENTS; do
+ for arch in $ARCHES; do
+ zcat "/org/bugs.debian.org/etc/indices/$archive/$suite/$component/binary-$arch/Packages.gz" | ../bin/build-mldbm.pl "$archive" "$suite" "$arch"
+ done
+ if [ "$component" != main/debian-installer ]; then
+ zcat "/org/bugs.debian.org/etc/indices/$archive/$suite/$component/source/Sources.gz" | ../bin/build-mldbm.pl "$archive" "$suite" source
+ fi
+ done
+ fi
+ done
+done
+
+# This removes old versions
+../bin/versions_time_cleanup
+
+chmod 664 versions.idx.new
+mv versions.idx.new versions.idx
+
+chmod 664 versions_time.idx.new
+mv versions_time.idx versions_time.idx
\ No newline at end of file
/home/debbugs/get-packages ftp;
/home/debbugs/get-packages nonus;
/home/debbugs/get-packages security;
-/org/bugs.debian.org/versions/indices/update-mldbm >/dev/null
+/org/bugs.debian.org/versions/bin/update-mldbm >/dev/null
--- /dev/null
+#! /usr/bin/perl
+
+# This script's job is to clean up the version file and remove old
+# versions when there are multiple versions older than the archive
+# date.
+
+use warnings;
+use strict;
+
+use Debbugs::Config qw(:config);
+use MLDBM qw(DB_File Storable);
+use Fcntl;
+
+$MLDBM::DumpMeth=q(portable);
+
+my %db;
+tie %db, "MLDBM", "versions_time.idx.new",O_CREAT|O_RDWR, 0664
+ or die "tie versions_time.idx.new failed: $!";
+
+my $time = time;
+for my $package (keys %db) {
+ my $temp = $db{$package};
+ for my $dist (keys %{$temp}) {
+ for my $arch (keys %{$temp->{$dist}}) {
+ my @versions = (sort {$temp->{$dist}{$arch}{$a} <=>
+ $temp->{$dist}{$arch}{$a}
+ }
+ keys %{$temp->{$dist}{$arch}});
+ next unless @versions > 1;
+ for my $i (0 .. ($#versions-1)) {
+ last if $temp->{$dist}{$arch}{$versions[$i+1]} > ($time - $config{remove_age}*60*60*24);
+ last if keys %{$temp->{$dist}{$arch}} <= 1;
+ delete $temp->{$dist}{$arch}{$versions[$i+1]};
+ }
+ }
+ }
+ $db{$package} = $temp;
+}