From 3b5b4024f846f00ec3b76181918175e57f6480ef Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Wed, 19 Aug 2015 10:57:09 +0200 Subject: [PATCH] Patch gegen Absturz von Automagic bei Verwendung von Pozentzeichen im ttsMsg --- 74_AMAD.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/74_AMAD.pm b/74_AMAD.pm index f2680b3..a5387e8 100644 --- a/74_AMAD.pm +++ b/74_AMAD.pm @@ -22,7 +22,7 @@ # ################################################################ -###### Version 0.4.1 ############ +###### Version 0.4.2 ############ @@ -319,8 +319,10 @@ sub AMAD_SelectSetCmd($$@) if (lc $cmd eq 'screenmsg') { my $msg = join(" ", @data); - $msg =~ s/\s/%20/g; + $msg =~ s/%/prozent/g; + + $msg =~ s/\s/%20/g; my $url = "http://" . $host . ":" . $port . "/fhem-amad/setCommands/screenMsg?message=$msg"; Log3 $name, 4, "AMAD ($name) - Sub AMAD_SetScreenMsg"; @@ -329,8 +331,11 @@ sub AMAD_SelectSetCmd($$@) elsif (lc $cmd eq 'ttsmsg') { my $msg = join(" ", @data); - $msg =~ s/\s/%20/g; - + + $msg =~ s/%/prozent/g; + + + $msg =~ s/\s/%20/g; my $url = "http://" . $host . ":" . $port . "/fhem-amad/setCommands/ttsMsg?message=$msg"; return AMAD_HTTP_POST ($hash,$url);