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