X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;ds=sidebyside;f=bin%2Fcreate_index_pages;h=eb797d34bb0c906bed604857e3dc92a7482143bf;hb=a1687e009279c235d322b8929f9d31dd947b8c14;hp=7847d8830f902a566ba9b55755871bccb8219790;hpb=573a8b55f76dda1151b69aca879bda6d4f3a9d8e;p=deb%2Fpackages.git

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 7847d88..eb797d3 100755
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -43,6 +43,9 @@ tie my %src_packages, 'DB_File', "$DBDIR/sources_small.db",
 tie my %src2bin, 'DB_File', "$DBDIR/sources_packages.db",
     O_RDONLY, 0666, $DB_BTREE
     or die "couldn't open $DBDIR/sources_packages.db: $!";
+tie my %desctrans, 'DB_File', "$DBDIR/descriptions_translated.db",
+    O_RDONLY, 0666, $DB_BTREE
+    or die "couldn't tie DB $DBDIR/descriptions_translated.db: $!";
 
 my $sections = retrieve "$DBDIR/sections.info";
 my $subsections = retrieve "$DBDIR/subsections.info";
@@ -116,6 +119,7 @@ while (my ($pkg, $data) = each %packages) {
 					 subsection => $data[4],
 					 priority => $data[5],
 					 version => $data[6],
+					 'description-md5' => $data[7],
 					 description => $data[8] } );
     }
     foreach (keys %virt) {
@@ -138,6 +142,18 @@ while (my ($pkg, $data) = each %packages) {
 	    $p{section} = $entry->get_newest( 'section' );
 	    $p{archive} = $entry->get_newest( 'archive' );
 	    $p{desc} = $entry->get_newest( 'description' );
+	    my $desc_md5 = $entry->get_newest( 'description-md5' );
+	    my $trans_desc = $desctrans{$desc_md5};
+	    if ($trans_desc) {
+		my %sdescs;
+		my %trans_desc = split /\000|\001/, $trans_desc;
+		while (my ($l, $d) = each %trans_desc) {
+		    $d =~ s/\n.*//os;
+
+		    $sdescs{$l} = $d;
+		}
+		$p{trans_desc} = \%sdescs;
+	    }
 	    $p{priority} = $entry->get_newest( 'priority' );
 	}
 	push @{$allpkgs{$key}}, \%p;