8aa86cdf2d
Perl 5.26 (or earlier) introduced a security feature, where implicitly
including the program directory as a Perl library directory no longer
happens (perl -I. ).
This causes translate to fail because it cannot find the *.pm -files in
it's own directory.
This patch adds the familiar mantra
use lib $FindBin::Bin;
to the relevant scripts.
To test:
1. Install Ubuntu18.04 or something else with Perl 5.26
2. Install Koha (we use the dev-install)
3. cd $KOHA_PATH/misc/translator/
4. perl translate create fi-FI
5. Observe problems with missing modules.
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Cannot recreate the issue right now but the changes make sense.
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
149 lines
3.7 KiB
Perl
Executable file
149 lines
3.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright (C) 2010 Tamil s.a.r.l.
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
package Main;
|
|
|
|
use FindBin;
|
|
use lib $FindBin::Bin;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use LangInstaller;
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
|
|
|
|
my $verbose = 0;
|
|
my $pref = 0;
|
|
my $all = 0;
|
|
my @files;
|
|
GetOptions(
|
|
'v|verbose' => \$verbose,
|
|
'p' => \$pref,
|
|
'f:s' => \@files,
|
|
'a|all' => \$all,
|
|
);
|
|
|
|
|
|
sub usage {
|
|
pod2usage( -verbose => 2 );
|
|
exit;
|
|
}
|
|
|
|
|
|
usage() if $#ARGV != 1 && $#ARGV != 0;
|
|
|
|
my ($cmd, $lang) = @ARGV;
|
|
$cmd = lc $cmd;
|
|
if ( $cmd =~ /create|install|update/ ) {
|
|
my $installer = LangInstaller->new( $lang, $pref, $verbose );
|
|
if ( $cmd ne 'create' and $lang and not grep( /^$lang$/, @{ $installer->{langs} } ) ) {
|
|
print "Unsupported language: $lang\n";
|
|
exit;
|
|
}
|
|
if ( $all ) {
|
|
usage() if $cmd eq 'create';
|
|
for my $lang ( @{$installer->{langs}} ) {
|
|
$installer->set_lang( $lang );
|
|
$installer->$cmd(\@files);
|
|
}
|
|
}
|
|
else {
|
|
$installer->$cmd(\@files);
|
|
}
|
|
}
|
|
else {
|
|
usage();
|
|
}
|
|
|
|
|
|
|
|
=head1 NAME
|
|
|
|
translate - Handle templates and preferences translation
|
|
|
|
=head1 SYNOPSYS
|
|
|
|
translate create fr-FR
|
|
translate update fr-FR
|
|
translate install fr-FR
|
|
translate install fr-FR -f search -f memberentry
|
|
translate -p install fr-FR
|
|
translate install
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
In Koha, three categories of information are translated based on standard GNU
|
|
.po files: opac templates pages, intranet templates and system preferences. The
|
|
script is a wrapper. It allows to quickly create/update/install .po files for a
|
|
given language or for all available languages.
|
|
|
|
=head1 USAGE
|
|
|
|
Use the -v or --verbose parameter to make translator more verbose.
|
|
|
|
=over
|
|
|
|
=item translate create F<lang>
|
|
|
|
Create 3 .po files in F</misc/translator/po> subdirectory: (1) from opac pages
|
|
templates, (2) intranet templates, and (3) from preferences. English 'en'
|
|
version of templates and preferences are used as references.
|
|
|
|
=over
|
|
|
|
=item F<lang>-opac-{theme}.po
|
|
|
|
Contains extracted text from english (en) OPAC templates found in
|
|
<KOHA_ROOT>/koha-tmpl/opac-tmpl/{theme}/en/ directory.
|
|
|
|
=item F<lang>-intranet.po
|
|
|
|
Contains extracted text from english (en) intranet templates found in
|
|
<KOHA_ROOT>/koha-tmpl/intranet-tmpl/prog/en/ directory.
|
|
|
|
=item F<lang>-pref.po
|
|
|
|
Contains extracted text from english (en) preferences. They are found in files
|
|
located in <KOHA_ROOT>/koha-tmpl/intranet-tmpl/prog/en/admin/preferences
|
|
directory.
|
|
|
|
=back
|
|
|
|
=item translate [-p] update F<lang>
|
|
|
|
Update .po files in F<po> directory, named F<lang>-*.po. Without F<lang>, all
|
|
available languages are updated. With -p option, only preferences .po file is
|
|
updated.
|
|
|
|
=item translate [-p|-f] install F<lang>
|
|
|
|
Use .po files to translate the english version of templates and preferences files
|
|
and copy those files in the appropriate directory. Without F<lang>, all
|
|
available languages are installed. With -p option, only preferences .po file is
|
|
updated.
|
|
|
|
With -f parameter (repeatable) you can specify specific files to translate. For
|
|
example, -f search will translate all templates containing 'search'.
|
|
|
|
=back
|
|
|
|
=cut
|
|
|