openoffice-transmute-help-errfile.pl

   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: