diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-06-25 15:02:20 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-06-25 15:02:20 +0000 |
| commit | 1471dbec96a4334c360ca2b678144d3cbf91b646 (patch) | |
| tree | bb4012d40d59ee61f5955ac92935c2ad979b8b52 /find-lang.pl | |
| parent | 4bd9215c98f9e057c288aaabb4b2b1fab18e2a2c (diff) | |
| download | rpm-setup-1471dbec96a4334c360ca2b678144d3cbf91b646.tar rpm-setup-1471dbec96a4334c360ca2b678144d3cbf91b646.tar.gz rpm-setup-1471dbec96a4334c360ca2b678144d3cbf91b646.tar.bz2 rpm-setup-1471dbec96a4334c360ca2b678144d3cbf91b646.tar.xz rpm-setup-1471dbec96a4334c360ca2b678144d3cbf91b646.zip | |
- manage man page too
Diffstat (limited to 'find-lang.pl')
| -rw-r--r-- | find-lang.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/find-lang.pl b/find-lang.pl index e0fffe7..b40ea46 100644 --- a/find-lang.pl +++ b/find-lang.pl @@ -14,6 +14,7 @@ GetOptions( 'with-kde' => \my $withkde, 'with-html' => \my $withhtml, 'without-mo' => \my $withoutmo, + 'with-man' => \my $withman, ) or pod2usage(); my ($buildroot, $pkgname) = @ARGV; @@ -44,6 +45,12 @@ find( return; } ($pkg, $lang, $parent) = ($3, $2, $1); + } elsif ($file =~ m:^(/usr/share/man)/([^/_@\.]+)[^/]*/man[^/]+/([^/.]+)\.\d\.[^/]+$:) { + if (!$withman) { + return; + } + + ($pkg, $lang, $parent) = ($3, $2, $1); } else { return; } @@ -62,9 +69,11 @@ find( open(my $hlang, ">", "$pkgname.lang") or die "canno't open $pkgname.lang\n"; foreach (sort keys %finallist) { - print "$finallist{$_}$_\n"; + print $hlang "$finallist{$_}$_\n"; } +close($hlang); + exit(0); sub parent_to_own { |