FHEM/mod-AMAD
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Patch gegen Absturz von Automagic bei Verwendung von Pozentzeichen im ttsMsg

Browse Source
This commit is contained in:
Marko Oldenburg
2015-08-19 10:57:09 +02:00
parent 1f7a23adc9
commit 3b5b4024f8
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
74_AMAD.pm
View File

@@ -22,7 +22,7 @@
# #
################################################################ ################################################################
###### Version 0.4.1 ############ ###### Version 0.4.2 ############
@@ -319,8 +319,10 @@ sub AMAD_SelectSetCmd($$@)
if (lc $cmd eq 'screenmsg') { if (lc $cmd eq 'screenmsg') {
my $msg = join(" ", @data); 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"; my $url = "http://" . $host . ":" . $port . "/fhem-amad/setCommands/screenMsg?message=$msg";
Log3 $name, 4, "AMAD ($name) - Sub AMAD_SetScreenMsg"; Log3 $name, 4, "AMAD ($name) - Sub AMAD_SetScreenMsg";
@@ -329,8 +331,11 @@ sub AMAD_SelectSetCmd($$@)
elsif (lc $cmd eq 'ttsmsg') { elsif (lc $cmd eq 'ttsmsg') {
my $msg = join(" ", @data); 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"; my $url = "http://" . $host . ":" . $port . "/fhem-amad/setCommands/ttsMsg?message=$msg";
return AMAD_HTTP_POST ($hash,$url); return AMAD_HTTP_POST ($hash,$url);