diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-02-06 11:12:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-02-06 11:12:13 +0000 |
| commit | 0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e (patch) | |
| tree | d46717ff72140e4ad3cd893e27fa48a8db03d2b9 | |
| parent | e66b9088c73f728c35d20bf267933fefffc2e7b8 (diff) | |
| download | drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.gz drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.bz2 drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.tar.xz drakx-0ff6c3c9a4ae3d0af9f549d6598e3f926e76ad4e.zip | |
- handle zh_CN.po
- handle tags <phrase> and <hardware>
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 8976fb396..e4e2eba76 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -33,9 +33,10 @@ my $base = delete $helps{en} || die; save_help($base); foreach my $lang (keys %helps) { + (my $rlang = $lang) =~ s/_(.*)/_\U$1/; print "Now transforming: $lang\n"; - my ($charset) = cat_("$lang.po") =~ /charset=([^\\]+)/ or die "missing charset in $lang.po\n"; - open(my $F, ">:encoding($charset)", "help-$lang.pot"); + my ($charset) = cat_("$rlang.po") =~ /charset=([^\\]+)/ or die "missing charset in $rlang.po\n"; + open(my $F, ">:encoding($charset)", "help-$rlang.pot"); print $F <<EOF; msgid "" msgstr "" @@ -233,6 +234,7 @@ sub rewrite2_ { 'keycombo', 'note', 'sect1', 'sect2', 'superscript', 'systemitem', 'tip', 'ulink', 'xref', 'varlistentry', 'variablelist', 'term', + 'phrase', 'hardware', )) { # ignored tags $text; |