my $what = $ARGV[0] ? "non-free" : "*";
# max. distinct results for a given package postfix
my $MAX_SOURCE_POSTFIXES = 100;
use DB_File;
my $what = $ARGV[0] ? "non-free" : "*";
# max. distinct results for a given package postfix
my $MAX_SOURCE_POSTFIXES = 100;
use DB_File;
for my $archive (@ARCHIVES) {
for my $suite (@SUITES) {
print "Reading $archive/$suite...\n";
for my $archive (@ARCHIVES) {
for my $suite (@SUITES) {
print "Reading $archive/$suite...\n";
my %sources_all_db;
tie %sources_all_db, "DB_File", "$DBDIR/sources_all_$suite.db.new",
O_RDWR|O_CREAT, 0666, $DB_BTREE
or die "Error creating DB: $!";
my %sources_all_db;
tie %sources_all_db, "DB_File", "$DBDIR/sources_all_$suite.db.new",
O_RDWR|O_CREAT, 0666, $DB_BTREE
or die "Error creating DB: $!";
while (/^(\S+):\s*(.*)\s*$/mg) {
my ($key, $value) = ($1, $2);
$value =~ s/\377/\n /g;
while (/^(\S+):\s*(.*)\s*$/mg) {
my ($key, $value) = ($1, $2);
$value =~ s/\377/\n /g;
$sources_small{$data{'package'}} .=
"$archive $suite $section $subsection $data{'priority'} $data{'version'}\000";
$sources_small{$data{'package'}} .=
"$archive $suite $section $subsection $data{'priority'} $data{'version'}\000";
for my $suite (@SUITES) {
rename("$DBDIR/sources_all_$suite.db.new", "$DBDIR/sources_all_$suite.db");
for my $suite (@SUITES) {
rename("$DBDIR/sources_all_$suite.db.new", "$DBDIR/sources_all_$suite.db");
}
rename("$DBDIR/sources_small.db.new", "$DBDIR/sources_small.db");
rename("$DBDIR/source_postfixes.db.new", "$DBDIR/source_postfixes.db");
}
rename("$DBDIR/sources_small.db.new", "$DBDIR/sources_small.db");
rename("$DBDIR/source_postfixes.db.new", "$DBDIR/source_postfixes.db");