view release on metacpan or  search on metacpan

bin/cipp-l10n  view on Meta::CPAN

        my $domain   = $domain_conf->{domain};
        my $messages = get_messages($conf->{$base}->{files}, "");
        my $pot_file = "$ns_root_dir/tmp/l10n/$domain.pot";
        create_dir_for($pot_file);
        save_po_file($messages, $pot_file, $domain_conf);
    }
    
    1;
}

sub update_po_for_all_domains {
    my ($conf, $ns_root_dir) = @_;
    
    my $ns_prod_dir = "$ns_root_dir/prod";
    my $ns_tmp_dir  = "$ns_root_dir/tmp";

    foreach my $base ( keys %{$conf} ) {
        my $dom_conf = $conf->{$base};
        my $domain   = $dom_conf->{domain};
        my $domain_file = $domain;
        $domain_file =~ s/\./-/g;