@@ -, +, @@ xx-YY-installer.po xx-YY-installer-MARC21.po xx-YY-installer-UNIMARC.po $ ./translate create xx-YY check new file 'xx-YY-installer.po' into ../../installer/data/mysql/en/marcflavour/marc21/mandatory/ and ../../installer/data/mysql/en/marcflavour/unimarc/mandatory/ remove po/xx-YY*, then repeat creation check new files 'xx-YY-installer.po', 'xx-YY-installer-MARC21.po' and 'xx-YY-installer-UNIMARC.po' remove all new files $ ./translate create xx-YY edit ../../installer/data/mysql/en/optional/auth_val.yml and change one char in one of the translatable values, also edit 'xx-YY-installer.po', translate the same string (in msgstr). Do an update $ ./translate update xx-YY check in 'xx-YY-installer.po' a fuzzy value for the translated value and the preservation of the translation Fix the translation, or add a new one. ./translate install xx-YY Check new dir '../../installer/data/mysql/xx-YY/' Check files on it $ tree ../../installer/data/mysql/xx-YY/ and compare with ../../installer/data/mysql/en/ All installation files must be present usual way. Check in authorised_values for the translated string. (eg. es-ES, de-DE or fr-FR ) Install dir is ignored and not changed. --- misc/translator/LangInstaller.pm | 233 +++++++++++++++++++++++++++++-- 1 file changed, 225 insertions(+), 8 deletions(-) --- a/misc/translator/LangInstaller.pm +++ a/misc/translator/LangInstaller.pm @@ -22,18 +22,20 @@ use Modern::Perl; use C4::Context; # WARNING: Any other tested YAML library fails to work properly in this # script content -use YAML::Syck qw( Dump LoadFile ); +use YAML::Syck qw( Dump LoadFile DumpFile ); use Locale::PO; use FindBin qw( $Bin ); use File::Basename; use File::Find; use File::Path qw( make_path ); +use File::Copy; use File::Slurp; use File::Spec; -use File::Temp qw( tempdir ); +use File::Temp qw( tempdir tempfile ); use Template::Parser; use PPI; + $YAML::Syck::ImplicitTyping = 1; @@ -79,12 +81,14 @@ sub new { $self->{msgmerge} = `which msgmerge`; $self->{msgfmt} = `which msgfmt`; $self->{msginit} = `which msginit`; + $self->{msgattrib} = `which msgattrib`; $self->{xgettext} = `which xgettext`; $self->{sed} = `which sed`; chomp $self->{cp}; chomp $self->{msgmerge}; chomp $self->{msgfmt}; chomp $self->{msginit}; + chomp $self->{msgattrib}; chomp $self->{xgettext}; chomp $self->{sed}; @@ -140,16 +144,40 @@ sub new { }; } + # EN YAML installer files + push @{$self->{installer}}, { + name => "YAML installer files", + dirs => [ 'installer/data/mysql/en/mandatory', + 'installer/data/mysql/en/optional'], + suffix => "-installer.po", + }; + + # EN MARC21 YAML installer files + push @{$self->{installer}}, { + name => "MARC21 YAML installer files", + dirs => [ 'installer/data/mysql/en/marcflavour/marc21/mandatory', + 'installer/data/mysql/en/marcflavour/marc21/optional'], + suffix => "-installer-MARC21.po", + }; + + # EN UNIMARC YAML installer files + push @{$self->{installer}}, { + name => "UNIMARC YAML installer files", + dirs => [ 'installer/data/mysql/en/marcflavour/unimarc/mandatory', ], + suffix => "-installer-UNIMARC.po", + }; + bless $self, $class; } sub po_filename { - my $self = shift; + my $self = shift; + my $suffix = shift; my $context = C4::Context->new; my $trans_path = $Bin . '/po'; - my $trans_file = "$trans_path/" . $self->{lang} . "-pref.po"; + my $trans_file = "$trans_path/" . $self->{lang} . $suffix; return $trans_file; } @@ -276,8 +304,8 @@ sub save_po { $po->{''} ||= $default_pref_po_header; # Write .po entries into a file put in Koha standard po directory - Locale::PO->save_file_fromhash( $self->po_filename, $po ); - say "Saved in file: ", $self->po_filename if $self->{verbose}; + Locale::PO->save_file_fromhash( $self->po_filename("-pref.po"), $po ); + say "Saved in file: ", $self->po_filename("-pref.po") if $self->{verbose}; } @@ -289,7 +317,7 @@ sub get_po_merged_with_en { my $po_current = $self->{po}; # Get po from previous generation - my $po_previous = Locale::PO->load_file_ashash( $self->po_filename ); + my $po_previous = Locale::PO->load_file_ashash( $self->po_filename("-pref.po") ); for my $id ( keys %$po_current ) { my $po = $po_previous->{Locale::PO->quote($id)}; @@ -430,7 +458,7 @@ sub update_tmpl { sub create_prefs { my $self = shift; - if ( -e $self->po_filename ) { + if ( -e $self->po_filename("-pref.po") ) { say "Preferences .po file already exists. Delete it if you want to recreate it."; return; } @@ -438,6 +466,192 @@ sub create_prefs { $self->save_po(); } +sub get_po_from_target { + my $self = shift; + my $target = shift; + + my $po; + my $po_head = new Locale::PO; + $po_head->{msgid} = "\"\""; + $po_head->{msgstr} = "". + "Project-Id-Version: Koha Project - Installation files\\n" . + "PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n" . + "Last-Translator: FULL NAME \\n" . + "Language-Team: Koha Translation Team\\n" . + "Language: ".$self->{lang}."\\n" . + "MIME-Version: 1.0\\n" . + "Content-Type: text/plain; charset=UTF-8\\n" . + "Content-Transfer-Encoding: 8bit\\n"; + + my @dirs = @{ $target->{dirs} }; + my $intradir = $self->{context}->config('intranetdir'); + for my $dir ( @dirs ) { # each dir + opendir( my $dh, "$intradir/$dir" ) or die ("Can't open $intradir/$dir"); + my @filelist = grep { $_ =~ m/\.yml/ } readdir($dh); # Just yaml files + close($dh); + for my $file ( @filelist ) { # each file + my $yaml = LoadFile( "$intradir/$dir/$file" ); + my @tables = @{ $yaml->{'tables'} }; + my $tablec; + for my $table ( @tables ) { # each table + $tablec++; + my $table_name = ( keys %$table )[0]; + my @translatable = @{ $table->{$table_name}->{translatable} }; + my @rows = @{ $table->{$table_name}->{rows} }; + my $rowc; + for my $row ( @rows ) { # each row + $rowc++; + for my $field ( @translatable ) { # each field + if ( not $po->{ $row->{$field} } ) { + my $msg = new Locale::PO( + -msgid => $row->{$field}, -msgstr => '', + -reference => "$dir/$file:$table_name:$tablec:row:$rowc" ); + $po->{ $row->{$field} } = $msg; + } + } + } + } + my $desccount; + for my $description ( @{ $yaml->{'description'} } ) { + $desccount++; + if ( not $po->{ $description } ) { + my $msg = new Locale::PO( + -msgid => $description, -msgstr => '', + -reference => "$dir/$file:description:$desccount" ); + $po->{ $description } = $msg; + } + } + } + } + $po->{''} = $po_head if ( $po ); + + return $po; +} + +sub create_installer { + my $self = shift; + return unless ( $self->{installer} ); + + say "Create installer translation files\n" if $self->{verbose}; + + my @targets = @{ $self->{installer} }; # each installer target (common,marc21,unimarc) + + for my $target ( @targets ) { + if ( -e $self->po_filename( $target->{suffix} ) ) { + say "$self->{lang}$target->{suffix} file already exists. Delete it if you want to recreate it."; + return; + } + } + + for my $target ( @targets ) { + my $po = get_po_from_target( $self, $target ); + # create output file only if there is something to write + if ( $po ) { + my $po_file = $self->po_filename( $target->{suffix} ); + Locale::PO->save_file_fromhash( $po_file, $po ); + say "Saved in file: ", $po_file if $self->{verbose}; + } + } +} + +sub update_installer { + my $self = shift; + return unless ( $self->{installer} ); + + say "Update installer translation files\n" if $self->{verbose}; + + my @targets = @{ $self->{installer} }; # each installer target (common,marc21,unimarc) + + for my $target ( @targets ) { + my $po = get_po_from_target( $self, $target ); + # update file only if there is something to update + if ( $po ) { + my ( $fh, $po_temp ) = tempfile(); + binmode( $fh, ":encoding(UTF-8)" ); + Locale::PO->save_file_fromhash( $po_temp, $po ); + my $po_file = $self->po_filename( $target->{suffix} ); + eval { + my $st = system($self->{msgmerge}." ".($self->{verbose}?'':'-q'). + " -s $po_file $po_temp -o - | ".$self->{msgattrib}." --no-obsolete -o $po_file"); + }; + say "Updated file: ", $po_file if $self->{verbose}; + } + } +} + +sub translate_yaml { + my $self = shift; + my $target = shift; + my $srcyml = shift; + + my $po_file = $self->po_filename( $target->{suffix} ); + return $srcyml unless ( -e $po_file ); + + my $po_ref = Locale::PO->load_file_ashash( $po_file ); + + my $dstyml = LoadFile( $srcyml ); + my @tables = @{ $dstyml->{'tables'} }; + for my $table ( @tables ) { # each table + my $table_name = ( keys %$table )[0]; + my @translatable = @{ $table->{$table_name}->{translatable} }; + my @rows = @{ $table->{$table_name}->{rows} }; + for my $row ( @rows ) { # each row + for my $field ( @translatable ) { # each translatable field + my $po = $po_ref->{"\"$row->{$field}\""}; # quoted key + if ( $po and not defined( $po->fuzzy() ) # not fuzzy + and length( $po->msgstr() ) > 2 ) { # not empty + $row->{$field} = $po->dequote( $po->msgstr() ); + } + } + } + } + for my $description ( @{ $dstyml->{'description'} } ) { + my $po = $po_ref->{"\"$description\""}; + if ( $po and not defined( $po->fuzzy() ) + and length( $po->msgstr() ) > 2 ) { + $description = $po->dequote( $po->msgstr() ); + } + } + + return $dstyml; +} + +sub install_installer { + my $self = shift; + return unless ( $self->{installer} ); + + my $intradir = $self->{context}->config('intranetdir'); + my $db_scheme = $self->{context}->config('db_scheme'); + my $langdir = "$intradir/installer/data/$db_scheme/$self->{lang}"; + if ( -d $langdir ) { + say "Installer language dir $langdir already exists.\nDelete it if you want to recreate it."; + return; + } + + say "Install installer files\n" if $self->{verbose}; + + for my $target ( @{ $self->{installer} } ) { + for my $dir ( @{ $target->{dirs} } ) { + ( my $tdir = "$dir" ) =~ s|/en/|/$self->{lang}/|; + make_path("$intradir/$tdir"); + + opendir( my $dh, "$intradir/$dir" ) or die ("Can't open $intradir/$dir"); + my @files = grep { ! /^\.+$/ } readdir($dh); + close($dh); + + for my $file ( @files ) { + if ( $file =~ /yml$/ ) { + my $translated_yaml = translate_yaml( $self, $target, "$intradir/$dir/$file" ); + open(my $fh, ">:encoding(UTF-8)", "$intradir/$tdir/$file"); + DumpFile( $fh, $translated_yaml ); + close($fh); + } else { + File::Copy::copy( "$intradir/$dir/$file", "$intradir/$tdir/$file" ); + } + } + } + } +} sub create_tmpl { my ($self, $files) = @_; @@ -723,6 +937,7 @@ sub install { $self->install_prefs(); $self->install_messages(); $self->remove_pot(); + $self->install_installer(); } @@ -743,6 +958,7 @@ sub update { $self->update_tmpl($files) unless $self->{pref_only}; $self->update_prefs(); $self->update_messages(); + $self->update_installer(); } $self->remove_pot(); } @@ -755,6 +971,7 @@ sub create { $self->create_prefs(); $self->create_messages(); $self->remove_pot(); + $self->create_installer(); } --