efa66f1f55
More podchecker cleanups to eliminate warnings / errors Signed-off-by: Andrew Elwell <Andrew.Elwell@gmail.com> Signed-off-by: Galen Charlton <gmcharlt@gmail.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
52 lines
1.4 KiB
Perl
Executable file
52 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# script to update all translations
|
|
use strict;
|
|
use warnings;
|
|
use lib '/home/chris/git/koha.git';
|
|
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;
|
|
|
|
=head1 EXAMPLE
|
|
|
|
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
|