3 # Update each translation file using update_translation.pl.
5 #######################################################################
7 $transdir = "../translations";
9 opendir ( DIR, $transdir ) || die "Error opening $transdir: $!";
10 @files = readdir ( DIR );
13 # ignore everything except .txt files
14 @files = grep ( /.txt$/, @files );
16 foreach $f ( @files ) {
17 print "update_translation.pl $f\n";
18 print `perl update_translation.pl $f`;