-rename("packages_small.db.new", "packages_small.db");
-rename("sources_packages.db.new", "sources_packages.db");
-for my $suite (@suites) {
- rename("packages_all_$suite.db.new", "packages_all_$suite.db");
+# package names stuff:
+for my $pkg (keys %package_names) {
+ for (my $i=0;$i<length($pkg)-1;$i++) {
+ my $before = substr($pkg, 0, $i);
+ my $after = substr($pkg, $i);
+ $before = "^" if $before eq ""; # otherwise split doesn't work properly
+ $package_postfixes{$after} .= "$before\0";
+ }
+}
+my %package_postfixes_db;
+tie %package_postfixes_db, "DB_File", "$DBDIR/package_postfixes.db.new",
+ O_RDWR|O_CREAT, 0666, $DB_BTREE
+ or die "Error creating DB: $!";
+while (my ($k, $v) = each(%package_postfixes)) {
+ $v =~ s/.$//s;
+ my $nr = $v;
+ $nr =~ s/[^\000]//g;
+ $nr = length($nr) + 1; # < number of hits
+ if ($nr > $MAX_PACKAGE_POSTFIXES) {
+ $v = "\001" . $nr;
+ }
+ $package_postfixes_db{$k} = $v;
+}
+untie %package_postfixes_db;
+
+store \%sections, "$DBDIR/sections.info";
+store \%subsections, "$DBDIR/subsections.info";
+store \%priorities, "$DBDIR/priorities.info";
+
+rename("$DBDIR/packages_small.db.new", "$DBDIR/packages_small.db");
+rename("$DBDIR/sources_packages.db.new", "$DBDIR/sources_packages.db");
+for my $suite (@SUITES) {
+ rename("$DBDIR/packages_all_$suite.db.new",
+ "$DBDIR/packages_all_$suite.db");