[Sommaire] [Imprimer]

   1  #!/usr/bin/perl
   2  #
   3  # Update each translation file using update_translation.pl.
   4  #
   5  #######################################################################
   6  
   7  $transdir = "../translations";
   8  
   9  opendir ( DIR, $transdir ) || die "Error opening $transdir: $!";
  10  @files = readdir ( DIR );
  11  closedir ( DIR );
  12  
  13  # ignore everything except .txt files
  14  @files = grep ( /.txt$/, @files );
  15  
  16  foreach $f ( @files ) {
  17    print "update_translation.pl $f\n";
  18    print `perl update_translation.pl $f`;
  19  }
  20  print "Done.\n";
  21  exit 0;
  22