|
Lines 25-30
use C4::Context;
Link Here
|
| 25 |
use YAML::Syck qw( Dump LoadFile ); |
25 |
use YAML::Syck qw( Dump LoadFile ); |
| 26 |
use Locale::PO; |
26 |
use Locale::PO; |
| 27 |
use FindBin qw( $Bin ); |
27 |
use FindBin qw( $Bin ); |
|
|
28 |
use File::Path qw( make_path ); |
| 28 |
|
29 |
|
| 29 |
$YAML::Syck::ImplicitTyping = 1; |
30 |
$YAML::Syck::ImplicitTyping = 1; |
| 30 |
|
31 |
|
|
Lines 66-78
sub new {
Link Here
|
| 66 |
$self->{process} = "$Bin/tmpl_process3.pl " . ($verbose ? '' : '-q'); |
67 |
$self->{process} = "$Bin/tmpl_process3.pl " . ($verbose ? '' : '-q'); |
| 67 |
$self->{path_po} = "$Bin/po"; |
68 |
$self->{path_po} = "$Bin/po"; |
| 68 |
$self->{po} = { '' => $default_pref_po_header }; |
69 |
$self->{po} = { '' => $default_pref_po_header }; |
| 69 |
$self->{domain} = 'messages'; |
70 |
$self->{domain} = 'Koha'; |
| 70 |
$self->{cp} = `which cp`; |
71 |
$self->{cp} = `which cp`; |
| 71 |
$self->{msgmerge} = `which msgmerge`; |
72 |
$self->{msgmerge} = `which msgmerge`; |
|
|
73 |
$self->{msgfmt} = `which msgfmt`; |
| 72 |
$self->{xgettext} = `which xgettext`; |
74 |
$self->{xgettext} = `which xgettext`; |
| 73 |
$self->{sed} = `which sed`; |
75 |
$self->{sed} = `which sed`; |
| 74 |
chomp $self->{cp}; |
76 |
chomp $self->{cp}; |
| 75 |
chomp $self->{msgmerge}; |
77 |
chomp $self->{msgmerge}; |
|
|
78 |
chomp $self->{msgfmt}; |
| 76 |
chomp $self->{xgettext}; |
79 |
chomp $self->{xgettext}; |
| 77 |
chomp $self->{sed}; |
80 |
chomp $self->{sed}; |
| 78 |
|
81 |
|
|
Lines 471-489
sub create_tmpl {
Link Here
|
| 471 |
sub create_messages { |
474 |
sub create_messages { |
| 472 |
my $self = shift; |
475 |
my $self = shift; |
| 473 |
|
476 |
|
| 474 |
print "Create messages ($self->{lang})\n" if $self->{verbose}; |
477 |
my ($language, $country) = split /-/, $self->{lang}; |
|
|
478 |
my $locale = $language; |
| 479 |
if ($country) { |
| 480 |
$locale .= '_' . $country; |
| 481 |
} |
| 482 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 483 |
|
| 484 |
make_path($podir); |
| 485 |
say "Create messages ($locale)" if $self->{verbose}; |
| 475 |
system |
486 |
system |
| 476 |
"$self->{cp} $self->{domain}.pot " . |
487 |
"$self->{cp} $self->{domain}.pot " . |
| 477 |
"$self->{path_po}/$self->{lang}-$self->{domain}.po"; |
488 |
"$podir/$self->{domain}.po"; |
| 478 |
} |
489 |
} |
| 479 |
|
490 |
|
| 480 |
sub update_messages { |
491 |
sub update_messages { |
| 481 |
my $self = shift; |
492 |
my $self = shift; |
| 482 |
|
493 |
|
| 483 |
my $pofile = "$self->{path_po}/$self->{lang}-$self->{domain}.po"; |
494 |
my ($language, $country) = split /-/, $self->{lang}; |
| 484 |
print "Update messages ($self->{lang})\n" if $self->{verbose}; |
495 |
my $locale = $language; |
|
|
496 |
if ($country) { |
| 497 |
$locale .= '_' . $country; |
| 498 |
} |
| 499 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 500 |
my $pofile = "$podir/$self->{domain}.po"; |
| 501 |
|
| 502 |
say "Update messages ($locale)" if $self->{verbose}; |
| 485 |
if ( not -f $pofile ) { |
503 |
if ( not -f $pofile ) { |
| 486 |
print "File $pofile does not exist\n" if $self->{verbose}; |
504 |
say "File $pofile does not exist" if $self->{verbose}; |
| 487 |
$self->create_messages(); |
505 |
$self->create_messages(); |
| 488 |
} |
506 |
} |
| 489 |
system "$self->{msgmerge} -U $pofile $self->{domain}.pot"; |
507 |
system "$self->{msgmerge} -U $pofile $self->{domain}.pot"; |
|
Lines 511-518
sub extract_messages {
Link Here
|
| 511 |
} |
529 |
} |
| 512 |
} |
530 |
} |
| 513 |
|
531 |
|
| 514 |
my $xgettext_cmd = "$self->{xgettext} -L Perl --from-code=UTF-8 " . |
532 |
my $xgettext_cmd = "$self->{xgettext} -L Perl --from-code=UTF-8 " |
| 515 |
"-o $Bin/$self->{domain}.pot -D $intranetdir"; |
533 |
. "-k -k__ -k__x -k__n:1,2 -k__nx:1,2 -k__xn:1,2 -k__p:1c,2 " |
|
|
534 |
. "-k__px:1c,2 -k__np:1c,2,3 -k__npx:1c,2,3 -kN__ -kN__n:1,2 " |
| 535 |
. "-kN__p:1c,2 -kN__np:1c,2,3 " |
| 536 |
. "-o $Bin/$self->{domain}.pot -D $intranetdir"; |
| 516 |
$xgettext_cmd .= " $_" foreach (@files_to_scan); |
537 |
$xgettext_cmd .= " $_" foreach (@files_to_scan); |
| 517 |
|
538 |
|
| 518 |
if (system($xgettext_cmd) != 0) { |
539 |
if (system($xgettext_cmd) != 0) { |
|
Lines 527-538
sub extract_messages {
Link Here
|
| 527 |
die "system call failed: $replace_charset_cmd"; |
548 |
die "system call failed: $replace_charset_cmd"; |
| 528 |
} |
549 |
} |
| 529 |
} else { |
550 |
} else { |
| 530 |
print "No messages found\n" if $self->{verbose}; |
551 |
say "No messages found" if $self->{verbose}; |
| 531 |
return; |
552 |
return; |
| 532 |
} |
553 |
} |
| 533 |
return 1; |
554 |
return 1; |
| 534 |
} |
555 |
} |
| 535 |
|
556 |
|
|
|
557 |
sub install_messages { |
| 558 |
my ($self) = @_; |
| 559 |
|
| 560 |
my ($language, $country) = split /-/, $self->{lang}; |
| 561 |
my $locale = $language; |
| 562 |
if ($country) { |
| 563 |
$locale .= '_' . $country; |
| 564 |
} |
| 565 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 566 |
my $pofile = "$podir/$self->{domain}.po"; |
| 567 |
my $mofile = "$podir/$self->{domain}.mo"; |
| 568 |
|
| 569 |
say "Install messages ($locale)" if $self->{verbose}; |
| 570 |
if ( not -f $pofile ) { |
| 571 |
say "File $pofile does not exist" if $self->{verbose}; |
| 572 |
$self->create_messages(); |
| 573 |
} |
| 574 |
system "$self->{msgfmt} -o $mofile $pofile"; |
| 575 |
} |
| 576 |
|
| 536 |
sub remove_pot { |
577 |
sub remove_pot { |
| 537 |
my $self = shift; |
578 |
my $self = shift; |
| 538 |
|
579 |
|
|
Lines 544-549
sub install {
Link Here
|
| 544 |
return unless $self->{lang}; |
585 |
return unless $self->{lang}; |
| 545 |
$self->install_tmpl($files) unless $self->{pref_only}; |
586 |
$self->install_tmpl($files) unless $self->{pref_only}; |
| 546 |
$self->install_prefs(); |
587 |
$self->install_prefs(); |
|
|
588 |
$self->install_messages(); |
| 547 |
} |
589 |
} |
| 548 |
|
590 |
|
| 549 |
|
591 |
|
| 550 |
- |
|
|