Last change
on this file since 31634 was 31111, checked in by stoecker, 9 years ago |
major speedup of i18n process, add some new features, split core translations into two parts
|
File size:
302 bytes
|
Rev | Line | |
---|
[31111] | 1 | #! /usr/bin/perl -w
|
---|
| 2 |
|
---|
| 3 | # Written by Dirk Stöcker <openstreetmap@dstoecker.de>
|
---|
| 4 | # Public domain, no rights reserved.
|
---|
| 5 |
|
---|
| 6 | use strict;
|
---|
| 7 |
|
---|
| 8 | my $skipmore = 0;
|
---|
| 9 | while(my $line = <>)
|
---|
| 10 | {
|
---|
| 11 | $skipmore = 1 if $line =~ /meta\[lang/;
|
---|
| 12 | $line =~ s/((?:title|description): +)(.*)(;)/$1tr($2)$3/ if !$skipmore;
|
---|
| 13 | print $line;
|
---|
| 14 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.