source: git/lib/touch-po.pl @ 5d4e21e

debian/1.4.1-1
Last change on this file since 5d4e21e was 6331a42, checked in by Olly Betts <olly@…>, 10 years ago

lib/touch-po.pl: New script to "touch" a .po file by updating
"PO-Revision-Date:".

  • Property mode set to 100755
File size: 231 bytes
Line 
1#!/usr/bin/perl -i
2require 5.008;
3use strict;
4use warnings;
5use POSIX;
6
7my $pot_creation_date = strftime "%Y-%m-%d %H:%M:%S +0000", gmtime();
8
9while (<>) {
10    s/^("PO-Revision-Date:).*(\\n")/$1 $pot_creation_date$2/;
11    print;
12}
Note: See TracBrowser for help on using the repository browser.