0byt3m1n1

Path: /data/applications/aps.bak/webcalendar/1.2.3-0/standard/htdocs/tools/ [ Home ]

File: 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;