use strict;
use lib './lib';
+$| = 1;
+
my $what = $ARGV[0] ? "non-free" : "*";
# max. distinct results for a given package postfix
my $MAX_SOURCE_POSTFIXES = 100;
for my $suite (@SUITES) {
print "Reading $archive/$suite...\n";
+ my %source_names_suite = ();
my %sources_all_db;
tie %sources_all_db, "DB_File", "$DBDIR/sources_all_$suite.db.new",
O_RDWR|O_CREAT, 0666, $DB_BTREE
while (/^(\S+):\s*(.*)\s*$/mg) {
my ($key, $value) = ($1, $2);
$value =~ s/\377/\n /g;
- $data .= "$key: $value\n";
$key =~ tr [A-Z] [a-z];
$data{$key} = $value;
}
- $data .= "Archive: $archive\n";
- $sources_all_db{"$data{'package'} $data{'version'}"}
- = $data;
-
$source_names{$data{'package'}} = 1;
+ $source_names_suite{$data{'package'}} = 1;
+ delete $data{'binary'};
+
+ $data{files} =~ s/\s*\n\s*/\01/sog;
+ $data{files} =~ s/^\01//sg;
my $section = 'main';
my $subsection = $data{section} || '-';
if ($data{section} && ($data{section} =~ m=/=o)) {
($section, $subsection) = split m=/=o, $data{section}, 2;
+ ($subsection, $section) = split m=/=o, $data{section}, 2
+ if $section eq 'non-US';
}
- $data{'priority'} = "-" if not exists($data{'priority'});
+ $data{'section'} = $section;
+ $data{'subsection'} = $subsection;
+ $data{'priority'} ||= "-";
$sources_small{$data{'package'}} .=
"$archive $suite $section $subsection $data{'priority'} $data{'version'}\000";
+
+ while (my ($key, $value) = each (%data)) {
+ next if $key eq 'package' or $key eq 'archive' or $key eq 'suite';
+ print STDERR "WARN: $key ($suite/$archive/$data{package}/$data{architecture}\n" unless defined $value;
+ $data .= "$key\00$value\00";
+ }
+ $data =~ s/.$//so;
+ $sources_all_db{"$archive $suite $data{'package'}"}
+ = $data;
+ }
+ open NAMES, '>>', "$DBDIR/source_names_$suite.txt.new"
+ or die "Error creating source names list: $!";
+ foreach (sort keys %source_names_suite) {
+ print NAMES "$_\n";
}
+ close NAMES;
untie %sources_all_db;
}
for my $suite (@SUITES) {
rename("$DBDIR/sources_all_$suite.db.new", "$DBDIR/sources_all_$suite.db");
+ rename("$DBDIR/source_names_$suite.txt.new", "$DBDIR/source_names_$suite.txt");
}
rename("$DBDIR/sources_small.db.new", "$DBDIR/sources_small.db");
rename("$DBDIR/source_postfixes.db.new", "$DBDIR/source_postfixes.db");