Changeset 5547

Timestamp:

06/24/09 22:30:16 (3 years ago)

Author:

ryan52

Message:

add a msgfmt_dir function to convert all of the .po files in a directory

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• lib/Locale/Msgfmt.pm (modified) (4 diffs)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 Revision history for Locale-Msgfmt
+
+0.02    UNRELEASED
+        - add a msgfmt_dir function to convert all of the .po files in a directory
 
 0.01    Jun 24, 2009

trunk/Locale-Msgfmt/lib/Locale/Msgfmt.pm

@@ -3 +3 @@
 use Locale::Msgfmt::mo;
 use Locale::Msgfmt::po;
+use File::Path;
+use File::Spec;
 
 use strict;
@@ -9 +11 @@
 use base 'Exporter';
 
-our @EXPORT = qw/msgfmt/;
+our @EXPORT = qw/msgfmt msgfmt_dir/;
 
 our $VERSION = '0.01';
@@ -27 +29 @@
 }
 
+sub msgfmt_dir {
+  my $hash = shift;
+  if(! -d $hash->{in}) {
+    print "error: input directory does not exist\n";
+    exit(1);
+  }
+  if(! defined($hash->{out})) {
+    $hash->{out} = $hash->{in};
+  }
+  if(! -d $hash->{out}) {
+    File::Path::mkpath($hash->{out});
+  }
+  opendir D, $hash->{in};
+  my @list = readdir D;
+  closedir D;
+  @list = grep /\.po$/, @list;
+  my %files;
+  foreach(@list) {
+    my $in = File::Spec->catfile($hash->{in}, $_);
+    my $out = File::Spec->catfile($hash->{out}, substr($_, 0, -3) . ".mo");
+    $files{$in} = $out;
+  }
+  delete $hash->{in};
+  delete $hash->{out};
+  foreach(keys %files) {
+    my %newhash = (%{$hash});
+    $newhash{in} = $_;
+    $newhash{out} = $files{$_};
+    msgfmt(\%newhash);
+  }
+}
+
 1;
 
@@ -40 +74 @@
     use Locale::Msgfmt;
 
-    msgfmt({in => "po/fr.po", out => "po/fr.mo"})
+    msgfmt({in => "po/fr.po", out => "po/fr.mo"});
+    msgfmt_dir({in => "po/"});
 
 =head1 COPYRIGHT & LICENSE