Added support for translated descriptions

CVS version numbers

english/Bugs/pseudo-packages.inc: 1.2 -> 1.3

1 files changed, 19 insertions, 1 deletions

diff --git a/english/Bugs/pseudo-packages.inc b/english/Bugs/pseudo-packages.inc
index af68404b313..d5e23975401 100644
--- a/english/Bugs/pseudo-packages.inc
+++ b/english/Bugs/pseudo-packages.inc
@@ -1,7 +1,24 @@
 <:
+# English pseudopackages descriptions
 my $file = "$(ENGLISHDIR)/Bugs/pseudo-packages.description";
+# Translated pseudopkgs descriptions
+my $tfile= "pseudo-packages.translated-description";
+
 my %pseudos = ();
+my %tpseudos= ();
 open I, "$file" or die "Can't open $file file: $!\n";
+
+# Read translated descriptions if possible
+if (open TI, $tfile) {
+  while (<TI>) {
+    if (/^(\S+)\s+(.+)$/) {
+      my $foo = $2;
+      ($tpseudos{$1} = $foo) =~ s/&/&amp;/g;
+    }
+  }
+  close TI or die "Can't close translated descriptions file $tfile: $!\n";
+}
+
 while (<I>) {
   if (/^(\S+)\s+(.+)$/) {
     my $foo = $2;
@@ -12,7 +29,8 @@ close I;
 %pseudos || die "%pseudos is not set -- empty $file file?\n";
 foreach $a (sort keys %pseudos) {
   if ($a ne "spam" && $a ne "slink-cd") {
-    print "<p><code><a href=\"http://bugs.debian.org/$a\">$a</a></code> &mdash; $pseudos{$a}\n";
+    my $b = $tpseudos{$a} || $pseudos{$a};
+    print "<p><code><a href=\"http://bugs.debian.org/$a\">$a</a></code> &mdash; $b\n";
   }
 }
 :>