|
Last change
on this file since 33572 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.
