gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Two utilities to help manage translations 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joshua Ferraro 2008-03-22 20:51:25 -04:00
parent 5abed24d10
commit f818b620a6
2 changed files with 72 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
misc/translator/install.pl Executable file
View File

@ -0,0 +1,50 @@
#!/usr/bin/perl
# script to update all translations
use strict;
use warnings;
use lib '/home/jmf/kohaclone';
use C4::Languages;
# Go through the theme/module combinations we need to update.
my $dir = "po";
my $po;
opendir (DIR,$dir);
while (defined($po = readdir(DIR))) {
next if $po =~ /^\.\.?$/;
$po =~ /^(.*)-i-(staff|opac).*/;
print "lang: $1 interface:$2\n";
my ($lang,$interface) = ($1,$2);
$interface =~ s/staff/intranet/;
system("mkdir ../../koha-tmpl/$interface-tmpl/prog/$lang");
system("./tmpl_process3.pl install -i ../../koha-tmpl/$interface-tmpl/prog/en/ -o ../../koha-tmpl/$interface-tmpl/prog/$lang/ -s po/$po -r");
}
closedir DIR;
=head
my($theme, $module) = @$spec;
my $pid = fork;
die "fork: $!\n" unless defined $pid;
if (!$pid) {
# If current directory is translator/po instead of translator,
# then go back to the parent
if ($chdir_needed_p) {
chdir('..') || die "..: cd: $!\n";
}
# Now call tmpl_process3.pl to do the real work
#
# Traditionally, the pot file should be named PACKAGE.pot
# (for Koha probably something like koha_intranet_css.pot),
# but this is not Koha's convention.
#
my $target = "po/${theme}_${module}" . ($pot_p? ".pot": "_$lang.po");
rename($target, "$target~") if $pot_p;
exec('./tmpl_process3.pl', ($pot_p? 'create': 'update'),
'-i', "../../koha-tmpl/$module-tmpl/$theme/en/",
'-s', $target, '-r');
die "tmpl_process3.pl: exec: $!\n";
}
wait;
}
=cut

52
misc/translator/update.pl
View File

@ -1,35 +1,27 @@
#!/usr/bin/perl
# Convenience script to update two po files at once
# This emulates the GNOME "update.pl" script
# script to update all translations
use strict;
use integer;
use Getopt::Long;
use warnings;
use lib '/home/jmf/kohaclone';
use C4::Languages;
# Go through the theme/module combinations we need to update.
my $dir = "po";
my $po;
opendir (DIR,$dir);
while (defined($po = readdir(DIR))) {
next if $po =~ /^\.\.?$/;
print "processing $po...\n";
my $interface = 'intranet';
if ($po =~ /opac/) {
$interface = 'opac';
}
system("./tmpl_process3.pl update -i ../../koha-tmpl/$interface-tmpl/prog/en/ -s po/$po -r");
print "Finished\n";
}
closedir DIR;
use vars qw( $pot_p );
GetOptions(
'--pot' => \$pot_p,
) || exit(1);
my $lang = $ARGV[0];
die <<EOF unless $pot_p || $lang =~ /^[a-z]{2}(?:_[A-Z]{2})?$/;
Usage: $0 LANG
$0 --pot
EOF
# Remember whether we see the "po" directory; this is used later to guess
# whether the current directory is translator/po or translator.
my $chdir_needed_p = 1 unless -d('po');
# Go through the theme/module combinations we need to update. There can be
# more than two; e.g., if we want ['default', 'opac'] too we can put it in
for my $spec (
['css', 'opac' ],
['default', 'intranet']
) {
my($theme, $module) = @$spec;
=head
my($theme, $module) = @$spec;
my $pid = fork;
die "fork: $!\n" unless defined $pid;
if (!$pid) {
@ -56,4 +48,4 @@ for my $spec (
}
wait;
}
=cut