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 |
- |
|
|