]>
Commit | Line | Data |
---|---|---|
ae4c2043 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use XML::Twig; | |
5 | ||
6 | my ($Language, $XMLFile) = (shift, shift); | |
7 | die "Invalid arguments" if (!$Language || !$XMLFile); | |
8 | ||
9 | #- Define localized help package name | |
10 | my $HelpPackage = "OpenOffice.org-help-$Language"; | |
11 | ||
12 | my $t = XML::Twig->new(twig_roots => { "li" => \&handle_li }, | |
13 | twig_print_outside_roots => 1, | |
14 | keep_encoding => 1, | |
15 | pretty_print => "indented" | |
16 | ); | |
17 | ||
18 | $t->parsefile($XMLFile); | |
19 | { | |
20 | my $num_li = 0; | |
21 | sub handle_li { | |
22 | my ($t, $li) = @_; | |
23 | ++$num_li; | |
24 | # Only print the first item, aka "Help module is not installed" | |
25 | if ($num_li == 1) { | |
26 | # Implant OpenOffice.org help package name | |
27 | my @p = $t->descendants("p"); | |
28 | (my $text = $p[1]->text()) =~ s/^([^.]+)/\1 (e.g. <b>${HelpPackage}<\/b>)/; | |
29 | $p[1]->set_text($text); | |
30 | # Don't print the help link | |
31 | foreach (@p) { $_->delete if ($_->descendants("help:link")) } | |
32 | $li->print; | |
33 | } | |
34 | } | |
35 | } | |
36 | ||
37 | # Local variables: | |
38 | # tab-width: 4 | |
39 | # indent-tabs-mode: nil | |
40 | # End: |