Last change
on this file was
51a051b,
checked in by Olly Betts <olly@…>, 3 years ago
|
unlaunchpad-po: Update to handle hex build id
|
-
Property mode set to
100755
|
File size:
353 bytes
|
Line | |
---|
1 | #!/usr/bin/perl -w |
---|
2 | use strict; |
---|
3 | |
---|
4 | $/ = "\n\n"; |
---|
5 | $_ = <>; |
---|
6 | s/^"X-Launchpad-Export-Date: .*\\n"\n//m; |
---|
7 | s/^"X-Generator: Launchpad \(build \w+\)\\n"\n//m; |
---|
8 | s/^("PO(?:-Revision|T-Creation)-Date: \d+-\d+-\d+ \d+:\d+)(.*)$/$1:00 $2/mg; |
---|
9 | print; |
---|
10 | |
---|
11 | $/ = undef; |
---|
12 | $_ = <>; |
---|
13 | s/"\n"//g; |
---|
14 | s/^(#\.)\s+$/$1/mg; |
---|
15 | # Fix transifex source refs |
---|
16 | while (s/(^#: .*) /$1\n#: /m) { } |
---|
17 | print; |
---|
Note: See
TracBrowser
for help on using the repository browser.