MSV FM

Path : /hermes/bosweb/b1705/prendex.com/tools/

File Upload :

Current < : /hermes/bosweb/b1705/prendex.com/tools/update_all.pl

#!/usr/bin/perl
#
# Update each translation file using update_translation.pl.
#
#######################################################################

$transdir = "../translations";

opendir ( DIR, $transdir ) || die "Error opening $transdir: $!";
@files = readdir ( DIR );
closedir ( DIR );

# ignore everything except .txt files
@files = grep ( /.txt$/, @files );

foreach $f ( @files ) {
  printf "%-25s", $f;
  print `perl update_translation.pl -b -m $f`;
}
print "\nDone.\n";
exit 0;