Index: trunk/scripts/presets_lang.pl
===================================================================
--- trunk/scripts/presets_lang.pl	(revision 11669)
+++ trunk/scripts/presets_lang.pl	(revision 11669)
@@ -0,0 +1,79 @@
+#! /usr/bin/perl -w
+# short tool to update language links in presets file
+
+use XML::Parser;
+use Data::Dumper;
+use URI::Escape;
+
+my $skip = 0;
+my $xml = new XML::Parser(Handlers => {Start => \&handle_start});
+undef $/;
+open FILE,"<","data/defaultpresets.xml" or die;
+my $file = <FILE>;
+close FILE;
+$xml->parsefile('data/defaultpresets.xml');
+
+sub handle_start
+{
+  my ($expat, $element, %data) = @_;
+
+  if($element eq "link" && $skip < 50000)
+  {
+    my %datan;
+    foreach my $k (sort {$az=$a;$bz=$b;$az=~s/.?href//;;$bz=~s/.?href//;$az cmp $bz} keys %data)
+    {
+      my $z = $k;
+      $z =~ s/.?href//;
+      #printf("%-5s %s\n", $z,$data{$k});
+    }
+
+    if(!$data{href})
+    {
+      print "Missing href: %s\n", join(" ", %data);
+    }
+    else
+    {
+      my $main = `wget "$data{href}" -O - -q`;
+      my $h = uri_unescape($data{href});
+      my $v = "href=\"$h\"";
+      if($h eq "http://wiki.openstreetmap.org/wiki/Proposed_features/House_numbers/Karlsruhe_Schema")
+      {
+        $datan{"de"} = "/wiki/Proposed_features/De:Hausnummern";
+      }
+      while($main =~ /<a href="(\/wiki\/[^"]+)"[^>]+><b>·<\/b> <bdi lang="([a-z_A-Z-]+)"(?: style="unicode-bidi:embed;unicode-bidi:-webkit-isolate;unicode-bidi:isolate")?>/g)
+      {
+        my $lang = lc($2);
+        my $val = uri_unescape($1);
+        $lang = "$1_".uc($2) if($lang =~ /^(..)[_-](..)$/);
+        $lang = "zh_CN" if $lang eq "zh-hans";
+        $lang = "zh_TW" if $lang eq "zh-hant";
+        if(-f "data/$lang.lang")
+        {
+          $datan{$lang} = $val;
+        }
+        else
+        {
+          print "Skip lang $lang\n";
+        }
+      }
+      while($main =~ /<a href="(\/wiki\/([a-zA-Z-_]):.*?)".*?&#160;&#8226;&#160;/g)
+      {
+        my $lang = lc($1);
+        my $val = uri_unescape($2);
+        $lang = "$1_".uc($2) if($lang =~ /^(..)[_-](..)$/);
+        $datan{$lang} = $val;
+      }
+      foreach my $l (sort keys %datan)
+      {
+        $v .= "\n" . (" " x 18) . "$l.href=\"http://wiki.openstreetmap.org$datan{$l}\"";
+      }
+      print "$v\n";
+      print "Replace failed for $data{href}.\n" if !($file =~ s/(<link )href="\Q$data{href}\E.*?( ?\/>)/$1$v$2/s);
+
+      $skip++;
+    }
+  }
+}
+open FILE,">","data/defaultpresets.xml" or die;
+print FILE $file;
+close FILE;