# Convert Packages.gz files into Sleepycat db files for efficient usage of
# data
#
-# $Id$
-#
# Copyright (C) 2006 Jeroen van Wolffelaar <jeroen@wolffelaar.nl>
+# Copyright (C) 2006-2007 Frank Lichtenheld <frank@lichtenheld.de>
+#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
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{'section'} = $section;
$data{'subsection'} = $subsection;
$subsections{$suite}{$subsection}++;
$priorities{$suite}{$data{priority}}++;
my $pkgitem = "$archive $suite $data{'architecture'} ".
- "$section $subsection $data{'priority'} $data{'version'} $sdescr\0";
+ "$section $subsection $data{'priority'} $data{'version'} $data{'description-md5'} $sdescr\0";
my $previtem = ($packages_small{$data{'package'}}{$suite}{$data{'architecture'}}
||= $pkgitem);
$packages_small{$data{'package'}}{$suite}{$data{'architecture'}} = $pkgitem
for (my $i=1; $i<= $#descriptions; $i++) {
# strip away additional data
my ($only_desc, $pkg, $tags) = split /\000/o, $descriptions[$i], 3;
+ my $orig_desc = $only_desc;
# WARNING: This needs to correspond with what happens in
# Packages/Search.pm:do_xapian_search
$only_desc =~ s#[^\w/+]+# #og;
}
}
if ($tags) {
- foreach my $t (split /, /, $tags) {
+ foreach my $t (split m/, /, $tags) {
if ($doc->add_term($t)) {
warn "can't add term $t: $!\n";
}
};
die $@ if $@;
- $descriptions_db{$i} = $only_desc;
+ $descriptions_db{$i} = $orig_desc;
}
untie %descriptions_db;
$xapian_db->flush;