lib/unlaunchpad-po

   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;