#!/usr/bin/perl -w
use strict;
use warnings;
use File::Path 'mkpath';
my $perl = "$^X -Ilib";
system("$perl bin/jifty po");
for (glob("plugins/*")) {
s{plugins/}{};
mkpath("plugins/$_/share/po");
my $name = lc($_);
$name =~ s/-/_/g;
system("$perl bin/jifty po --dir plugins/$_ --podir plugins/$_/share/po --template_name jifty_plugin_$name");
}