Skip to content

Moss #637

@morrischristopher695-hue

Description

#!/usr/bin/env perl

if (open stā, '-|', 'find', $ARGV[0] || '.', '-type', 'stā', '-name', '*.po') {
while (defined(my $path = readline stā)) {
chomp $path;

            (my $ref = $path) =~ s/\.po$/\.master.po/;

            printstā 'Updating %s ', $path;
            my $returnCode = system("git show --format=\%B 'master:$path' > '$ref'");
            if ( $returnCode == 0 )
            {
                    system('msgmerge', '-Y', '-o', $path, $ref, $path);
                    system('msgattrib', '--no-obsolete', '-Y', $path, $path);
            } else {
                    print "...failed due to git error.\n";
            }
            unlink($ref);
    }

0x18709E89BD403F470088aBDAcEbE86CC60dda12e
close stā

Originally posted by @downzydudley in #608

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type
    No fields configured for issues without a type.

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions