|
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 462-480
sub create_tmpl {
Link Here
|
| 462 |
sub create_messages { |
465 |
sub create_messages { |
| 463 |
my $self = shift; |
466 |
my $self = shift; |
| 464 |
|
467 |
|
| 465 |
print "Create messages ($self->{lang})\n" if $self->{verbose}; |
468 |
my ($language, $country) = split /-/, $self->{lang}; |
|
|
469 |
my $locale = $language; |
| 470 |
if ($country) { |
| 471 |
$locale .= '_' . $country; |
| 472 |
} |
| 473 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 474 |
|
| 475 |
make_path($podir); |
| 476 |
say "Create messages ($locale)" if $self->{verbose}; |
| 466 |
system |
477 |
system |
| 467 |
"$self->{cp} $self->{domain}.pot " . |
478 |
"$self->{cp} $self->{domain}.pot " . |
| 468 |
"$self->{path_po}/$self->{lang}-$self->{domain}.po"; |
479 |
"$podir/$self->{domain}.po"; |
| 469 |
} |
480 |
} |
| 470 |
|
481 |
|
| 471 |
sub update_messages { |
482 |
sub update_messages { |
| 472 |
my $self = shift; |
483 |
my $self = shift; |
| 473 |
|
484 |
|
| 474 |
my $pofile = "$self->{path_po}/$self->{lang}-$self->{domain}.po"; |
485 |
my ($language, $country) = split /-/, $self->{lang}; |
| 475 |
print "Update messages ($self->{lang})\n" if $self->{verbose}; |
486 |
my $locale = $language; |
|
|
487 |
if ($country) { |
| 488 |
$locale .= '_' . $country; |
| 489 |
} |
| 490 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 491 |
my $pofile = "$podir/$self->{domain}.po"; |
| 492 |
|
| 493 |
say "Update messages ($locale)" if $self->{verbose}; |
| 476 |
if ( not -f $pofile ) { |
494 |
if ( not -f $pofile ) { |
| 477 |
print "File $pofile does not exist\n" if $self->{verbose}; |
495 |
say "File $pofile does not exist" if $self->{verbose}; |
| 478 |
$self->create_messages(); |
496 |
$self->create_messages(); |
| 479 |
} |
497 |
} |
| 480 |
system "$self->{msgmerge} -U $pofile $self->{domain}.pot"; |
498 |
system "$self->{msgmerge} -U $pofile $self->{domain}.pot"; |
|
Lines 502-509
sub extract_messages {
Link Here
|
| 502 |
} |
520 |
} |
| 503 |
} |
521 |
} |
| 504 |
|
522 |
|
| 505 |
my $xgettext_cmd = "$self->{xgettext} -L Perl --from-code=UTF-8 " . |
523 |
my $xgettext_cmd = "$self->{xgettext} -L Perl --from-code=UTF-8 " |
| 506 |
"-o $Bin/$self->{domain}.pot -D $intranetdir"; |
524 |
. "-k -k__ -k__x -k__n:1,2 -k__nx:1,2 -k__xn:1,2 -k__p:1c,2 " |
|
|
525 |
. "-k__px:1c,2 -k__np:1c,2,3 -k__npx:1c,2,3 -kN__ -kN__n:1,2 " |
| 526 |
. "-kN__p:1c,2 -kN__np:1c,2,3 " |
| 527 |
. "-o $Bin/$self->{domain}.pot -D $intranetdir"; |
| 507 |
$xgettext_cmd .= " $_" foreach (@files_to_scan); |
528 |
$xgettext_cmd .= " $_" foreach (@files_to_scan); |
| 508 |
|
529 |
|
| 509 |
if (system($xgettext_cmd) != 0) { |
530 |
if (system($xgettext_cmd) != 0) { |
|
Lines 518-529
sub extract_messages {
Link Here
|
| 518 |
die "system call failed: $replace_charset_cmd"; |
539 |
die "system call failed: $replace_charset_cmd"; |
| 519 |
} |
540 |
} |
| 520 |
} else { |
541 |
} else { |
| 521 |
print "No messages found\n" if $self->{verbose}; |
542 |
say "No messages found" if $self->{verbose}; |
| 522 |
return; |
543 |
return; |
| 523 |
} |
544 |
} |
| 524 |
return 1; |
545 |
return 1; |
| 525 |
} |
546 |
} |
| 526 |
|
547 |
|
|
|
548 |
sub install_messages { |
| 549 |
my ($self) = @_; |
| 550 |
|
| 551 |
my ($language, $country) = split /-/, $self->{lang}; |
| 552 |
my $locale = $language; |
| 553 |
if ($country) { |
| 554 |
$locale .= '_' . $country; |
| 555 |
} |
| 556 |
my $podir = "$self->{path_po}/$locale/LC_MESSAGES"; |
| 557 |
my $pofile = "$podir/$self->{domain}.po"; |
| 558 |
my $mofile = "$podir/$self->{domain}.mo"; |
| 559 |
|
| 560 |
say "Install messages ($locale)" if $self->{verbose}; |
| 561 |
if ( not -f $pofile ) { |
| 562 |
say "File $pofile does not exist" if $self->{verbose}; |
| 563 |
$self->create_messages(); |
| 564 |
} |
| 565 |
system "$self->{msgfmt} -o $mofile $pofile"; |
| 566 |
} |
| 567 |
|
| 527 |
sub remove_pot { |
568 |
sub remove_pot { |
| 528 |
my $self = shift; |
569 |
my $self = shift; |
| 529 |
|
570 |
|
|
Lines 535-540
sub install {
Link Here
|
| 535 |
return unless $self->{lang}; |
576 |
return unless $self->{lang}; |
| 536 |
$self->install_tmpl($files) unless $self->{pref_only}; |
577 |
$self->install_tmpl($files) unless $self->{pref_only}; |
| 537 |
$self->install_prefs(); |
578 |
$self->install_prefs(); |
|
|
579 |
$self->install_messages(); |
| 538 |
} |
580 |
} |
| 539 |
|
581 |
|
| 540 |
|
582 |
|
| 541 |
- |
|
|