From 489dbe0edab63fee3d7fe4707c877f72afea1a5a Mon Sep 17 00:00:00 2001
From: tpoitzsch <>
Date: Tue, 12 May 2015 19:14:55 +0000
Subject: [PATCH] PROPLANTA: bugfix umlaute, feature 24h-rain

git-svn-id: https://svn.fhem.de/fhem/trunk@8569 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/59_PROPLANTA.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/59_PROPLANTA.pm b/fhem/FHEM/59_PROPLANTA.pm
index 307ba19fe..31a7a7d0d 100644
--- a/fhem/FHEM/59_PROPLANTA.pm
+++ b/fhem/FHEM/59_PROPLANTA.pm
@@ -110,6 +110,7 @@ my $curReadingType = 0;
       ,["NS_15", "rain15", 2]
       ,["NS_18", "rain18", 2]
       ,["NS_21", "rain21", 2]
+      ,["NS_24H", "rain", 2]
       ,["BD_0", "cloud00", 2]
       ,["BD_3", "cloud03", 2]
       ,["BD_6", "cloud06", 2]
@@ -460,10 +461,20 @@ sub PROPLANTA_Define($$)
    { # {my $test="http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html";; $test =~ s/LOKALERORT/München/g;; return $test;;}
       return "Wrong country code '$lang': use " . join(" | ",  keys( %url_template_1 ) ) unless defined( $url_template_1{$lang} );
       my $URL = $url_template_1{$lang};
-      $URL =~ s/LOKALERORT/$a[2]/g;
+      my $ort= $a[2];
+# change Umlaute from UTF8 in Percent-encode 
+      $ort =~ s/Ä|Ä/%C4/g;
+      $ort =~ s/Ö|Ö/%D6/g;
+      $ort =~ s/Ü|Ãœ/%DC/g;
+      $ort =~ s/ß|ß/%DF/g;
+      $ort =~ s/ä|ä/%E4/g;
+      $ort =~ s/ö|ö/%F6/g;
+      $ort =~ s/ü|ü/%FC/g;
+      
+      $URL =~ s/LOKALERORT/$ort/g;
       $hash->{URL} = $URL;
       $URL = $url_template_2{$lang};
-      $URL =~ s/LOKALERORT/$a[2]/g;
+      $URL =~ s/LOKALERORT/$ort/g;
       $hash->{URL2} = $URL;
    }