Changeset 25613 in osm for applications/editors/josm/i18n/convwms.pl

Timestamp:

2011-03-18T10:27:48+01:00 (15 years ago)

Author:

stoecker

Message:

fix wms and validator

File:

• applications/editors/josm/i18n/convwms.pl (modified) (2 diffs)

applications/editors/josm/i18n/convwms.pl

@@ -5 +5 @@
 
 use strict;
+use LWP::Simple;
 
 my $item;
@@ -16 +17 @@
 print "class trans_wms { void tr(String s){} void f() {";
 
-while(my $line = <>)
+my @lines;
+if($ARGV[0] && $ARGV[0] =~ /^http:\/\//)
 {
+  @lines = split("\r?\n", get($ARGV[0]));
+}
+else
+{
+  @lines = <>;
+}
+
+for my $line (@lines)
+{
+  $line =~ s/\r//g;
   chomp($line);
   if($line =~ /^#(.*)$/)