FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 20:24:36 +00:00
Code Issues Releases Wiki Activity

50_SSChatBot: contrib 1.12.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23249 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-11-28 11:55:57 +00:00
parent 7f2f76f069
commit a78e27f9a0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/contrib/DS_Starter/50_SSChatBot.pm
View File

@ -135,7 +135,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"1.12.1" => "28.11.2020 fix cannot send after received anything ", "1.12.1" => "28.11.2020 fix cannot send after received anything, fix greedy regex in _botCGIcheckData ",
"1.12.0" => "23.11.2020 generate event CHAT_INITIALIZED when users are once loaded, Forum: https://forum.fhem.de/index.php/topic,105714.msg1103700.html#msg1103700 ". "1.12.0" => "23.11.2020 generate event CHAT_INITIALIZED when users are once loaded, Forum: https://forum.fhem.de/index.php/topic,105714.msg1103700.html#msg1103700 ".
"postpone new operation is one ist still running ", "postpone new operation is one ist still running ",
"1.11.7" => "01.11.2020 quotation marks can be used in text tag of received messages (__botCGIcheckData) ", "1.11.7" => "01.11.2020 quotation marks can be used in text tag of received messages (__botCGIcheckData) ",
@ -1574,10 +1574,10 @@ sub __botCGIcheckData {
$args = urlDecode($args); $args = urlDecode($args);
my $ca = $args; my $ca = $args;
my ($teco) = $ca =~ /text="(.*)"/x; # " im Text-Tag escapen (V: 1.11.7) my ($teco) = $ca =~ /text="(.*?)"/x; # " im Text-Tag escapen (V: 1.11.7), fix greedy Regex V1.12.1
if ($teco) { if ($teco) {
$teco =~ s/"/_ESC_/gx; $teco =~ s/"/_ESC_/gx;
$ca =~ s/text="(.*)"/text="$teco"/x; $ca =~ s/text="(.*?)"/text="$teco"/x; # fix greedy Regex V1.12.1
} }
my($a,$h) = parseParams($ca); my($a,$h) = parseParams($ca);
@ -1601,9 +1601,9 @@ sub __botCGIcheckData {
} }
my $dat = { my $dat = {
name => $name, name => $name,
args => $args, args => $args,
h => $h, h => $h,
}; };
return ('','',$dat); return ('','',$dat);