Last change
on this file since 33664 was 31111, checked in by stoecker, 10 years ago |
major speedup of i18n process, add some new features, split core translations into two parts
|
File size:
302 bytes
|
Line | |
---|
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.