english/Bugs/pseudo-packages.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

<:
my %pseudos = ();
my $file = "pseudo-packages.translated-description";

# Read translated descriptions if possible
if (open I, $file) {
  while (<I>) {
    if (/^(\S+)\s+(.+)$/) {
      my $foo = $2;
      ($pseudos{$1} = $foo) =~ s/&/&amp;/g;
    }
  }
  close I or die "Can't close translated descriptions file $file: $!\n";
}

# now try English to fill in the blanks
$file = "$(ENGLISHDIR)/Bugs/pseudo-packages.description";
open I, "$file" or die "Can't open $file file: $!\n";
while (<I>) {
  if (/^(\S+)\s+(.+)$/) {
    my $foo = $2;
    if (not exists $pseudos{$1}) {
      ($pseudos{$1} = $foo) =~ s/&/&amp;/g;
    }
  }
}
close I or die "Can't close descriptions file $file: $!\n";

%pseudos || die "%pseudos is not set -- empty $file file?\n";
foreach $a (sort keys %pseudos) {
  if ($a ne "spam" && $a ne "slink-cd" && $a ne "wnpp") {
    print "<p><code><a href=\"https://bugs.debian.org/$a\">$a</a></code> &mdash; $pseudos{$a}\n";
  }
  elsif ($a eq "wnpp") {
    print "<p><code><a href=\"https://bugs.debian.org/$a\">$a</a></code> &mdash; <a href=\"../devel/wnpp/\">$pseudos{$a}</a>\n";
  }
}
:>