Lines 1-52
Link Here
|
1 |
#!/usr/bin/perl |
|
|
2 |
# script to update all translations |
3 |
use strict; |
4 |
use warnings; |
5 |
use lib '/home/chris/git/koha.git'; |
6 |
use C4::Languages; |
7 |
# Go through the theme/module combinations we need to update. |
8 |
my $dir = "po"; |
9 |
my $po; |
10 |
opendir (DIR,$dir); |
11 |
while (defined($po = readdir(DIR))) { |
12 |
next if $po =~ /^\.\.?$/; |
13 |
print "processing $po...\n"; |
14 |
my $interface = 'intranet'; |
15 |
if ($po =~ /opac/) { |
16 |
$interface = 'opac'; |
17 |
} |
18 |
system("./tmpl_process3.pl update -i ../../koha-tmpl/$interface-tmpl/prog/en/ -s po/$po -r"); |
19 |
print "Finished\n"; |
20 |
} |
21 |
closedir DIR; |
22 |
|
23 |
=head1 EXAMPLE |
24 |
|
25 |
my($theme, $module) = @$spec; |
26 |
my $pid = fork; |
27 |
die "fork: $!\n" unless defined $pid; |
28 |
if (!$pid) { |
29 |
|
30 |
# If current directory is translator/po instead of translator, |
31 |
# then go back to the parent |
32 |
if ($chdir_needed_p) { |
33 |
chdir('..') || die "..: cd: $!\n"; |
34 |
} |
35 |
|
36 |
# Now call tmpl_process3.pl to do the real work |
37 |
# |
38 |
# Traditionally, the pot file should be named PACKAGE.pot |
39 |
# (for Koha probably something like koha_intranet_css.pot), |
40 |
# but this is not Koha's convention. |
41 |
# |
42 |
my $target = "po/${theme}_${module}" . ($pot_p? ".pot": "_$lang.po"); |
43 |
rename($target, "$target~") if $pot_p; |
44 |
exec('./tmpl_process3.pl', ($pot_p? 'create': 'update'), |
45 |
'-i', "../../koha-tmpl/$module-tmpl/$theme/en/", |
46 |
'-s', $target, '-r'); |
47 |
|
48 |
die "tmpl_process3.pl: exec: $!\n"; |
49 |
} |
50 |
wait; |
51 |
} |
52 |
=cut |
53 |
- |