misc/translator/install.pl

   1 #!/usr/bin/perl
   2 # script to update all translations
   3 use strict;
   4 use warnings;
   5
   6 # Doesn't' handle anymore 'themes' since there is no theme .po files at all
   7
   8 # Get all available language codes
   9 opendir my $fh, "po";
  10 my @langs =  map { ($_) =~ /(.*)-i-opac/ }
  11     grep { $_ =~ /.*-opac-/ } readdir($fh);
  12 closedir DIR;
  13
  14 # Map interface name to .po file suffix
  15 my %its = (
  16     opac     => '-i-opac-t-prog-v-3002000.po',
  17     intranet => '-i-staff-t-prog-v-3002000.po',
  18 );
  19 for my $lang ( @langs ) {
  20     print "Language: $lang\n";
  21     while ( my ($interface, $suffix) = each %its ) {
  22         my $cmd = "mkdir ../../koha-tmpl/$interface-tmpl/prog/$lang";
  23         system $cmd;
  24         $cmd =
  25             "./tmpl_process3.pl install " .
  26             "-i ../../koha-tmpl/$interface-tmpl/prog/en/ " .
  27             "-o ../../koha-tmpl/$interface-tmpl/prog/$lang ".
  28             "-s po/$lang$suffix -r";
  29         system $cmd;
  30     }
  31     system "./pref-trans install $lang";
  32 }