parse-packages: Save the md5 checksum of the description

[deb/packages.git] / bin / parse-packages

diff --git a/bin/parse-packages b/bin/parse-packages
index fe61ca2269afc5b9f5e29104d7eb42f6ab713b3c..d28083afa2a422e9411328084b6d61d59cca4d89 100755 (executable)
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -32,6 +32,7 @@ my $MAX_PACKAGE_POSTFIXES = 100;
 use DB_File;
 use Storable;
 use File::Path;
 use DB_File;
 use Storable;
 use File::Path;

+use Digest::MD5;

 use Deb::Versions;
 use Lingua::Stem v0.82;
 use Search::Xapian;
 use Deb::Versions;
 use Lingua::Stem v0.82;
 use Search::Xapian;


@@ -119,6 +120,7 @@ for my $suite (@SUITES) {
                        $descriptions[$did] = $descr;
                        $descriptions{$descr} = $did;
                }
                        $descriptions[$did] = $descr;
                        $descriptions{$descr} = $did;
                }

+               $data{'description-md5'} = Digest::MD5::md5_hex($data{'description'});

                $data{'description'} = $did;
                $packages_descriptions{"$data{'package'} $data{'version'} $data{'architecture'}"} = $did;
                $descriptions_packages{$did} .=
                $data{'description'} = $did;
                $packages_descriptions{"$data{'package'} $data{'version'} $data{'architecture'}"} = $did;
                $descriptions_packages{$did} .=