source: subversion/applications/editors/josm/i18n/convcss.pl @ 34500

Last change on this file since 34500 was 31111, checked in by Dirk Stoecker, 4 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
6use strict;
7
8my $skipmore = 0;
9while(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.