[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc/translator/po update.pl,NONE,1.1.2.1
From: |
Ambrose C. LI |
Subject: |
[Koha-cvs] CVS: koha/misc/translator/po update.pl,NONE,1.1.2.1 |
Date: |
Tue, 11 Jan 2005 01:33:22 -0800 |
Update of /cvsroot/koha/koha/misc/translator/po
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11467
Added Files:
Tag: rel_2_2
update.pl
Log Message:
update.pl emulation script
--- NEW FILE ---
#!/usr/bin/perl
# Convenience script to update a po file
# This emulates the GNOME "update.pl" script
use strict;
use integer;
my $lang = $ARGV[0];
die "Usage: $0 LANG\n" unless defined $lang && $lang =~ /\S/;
my $chdir_needed_p = 1 unless -d('po'); # guess if pwd is translator/ or po/
for my $spec (['css', 'opac'], ['default', 'intranet']) {
my($theme, $module) = @$spec;
my $pid = fork;
die "fork: $!\n" unless defined $pid;
if (!$pid) {
if ($chdir_needed_p) {
chdir('..') || die "..: cd: $!\n";
}
exec('./tmpl_process3.pl', 'update', '-i',
"../../koha-tmpl/$module-tmpl/$theme/en/", '-s',
"po/${theme}_${module}_$lang.po", '-r');
die "tmpl_process3.pl: exec: $!\n";
}
wait;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc/translator/po update.pl,NONE,1.1.2.1,
Ambrose C. LI <=