RELEASE/1.2
debug-ci
debug-ci-sanitisers
faster-cavernlog
log-select
main
stereo
stereo-2025
walls-data
walls-data-hanging-as-warning
warn-only-for-hanging-survey
|
Last change
on this file since 8377f15 was ad0bf7b, checked in by Olly Betts <olly@…>, 13 years ago |
|
lib/unlaunchpad-po: Normalise dates in PO headers.
|
-
Property mode
set to
100755
|
|
File size:
353 bytes
|
| Rev | Line | |
|---|
| [6176b37] | 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 \d+\)\\n"\n//m;
|
|---|
| [ad0bf7b] | 8 | s/^("PO(?:-Revision|T-Creation)-Date: \d+-\d+-\d+ \d+:\d+)(.*)$/$1:00 $2/mg;
|
|---|
| [6176b37] | 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.
