50_SSChatBot: quotation marks can be used in text tag of received messages
git-svn-id: https://svn.fhem.de/fhem/trunk@23070 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -1,5 +1,7 @@
|
|||||||
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
||||||
# Do not insert empty lines here, update check depends on it.
|
# Do not insert empty lines here, update check depends on it.
|
||||||
|
- change: 50_SSChatBot: quotation marks can be used in text tag of received
|
||||||
|
messages
|
||||||
- feature: 10_FRM: Device::Firmata, receiveTimeout, ... (forum #114552)
|
- feature: 10_FRM: Device::Firmata, receiveTimeout, ... (forum #114552)
|
||||||
- feature: 20_FRM_*: Device::Firmata, ... (forum #114552)
|
- feature: 20_FRM_*: Device::Firmata, ... (forum #114552)
|
||||||
- change: 20_FRM_LCD: removed, use I2C_LCD (forum #114552)
|
- change: 20_FRM_LCD: removed, use I2C_LCD (forum #114552)
|
||||||
|
|||||||
@@ -134,6 +134,7 @@ BEGIN {
|
|||||||
|
|
||||||
# Versions History intern
|
# Versions History intern
|
||||||
my %vNotesIntern = (
|
my %vNotesIntern = (
|
||||||
|
"1.11.7" => "01.11.2020 quotation marks can be used in text tag of received messages (__botCGIcheckData) ",
|
||||||
"1.11.6" => "08.10.2020 add urlEncode of character codes like \x{c3}\x{85} to formString ",
|
"1.11.6" => "08.10.2020 add urlEncode of character codes like \x{c3}\x{85} to formString ",
|
||||||
"1.11.5" => "06.10.2020 use addSendqueue from SMUtils, delete local addSendqueue ",
|
"1.11.5" => "06.10.2020 use addSendqueue from SMUtils, delete local addSendqueue ",
|
||||||
"1.11.4" => "05.10.2020 use setCredentials from SMUtils ",
|
"1.11.4" => "05.10.2020 use setCredentials from SMUtils ",
|
||||||
@@ -1553,7 +1554,20 @@ sub __botCGIcheckData {
|
|||||||
$args .= "\"";
|
$args .= "\"";
|
||||||
|
|
||||||
$args = urlDecode($args);
|
$args = urlDecode($args);
|
||||||
my($a,$h) = parseParams($args);
|
|
||||||
|
my $ca = $args;
|
||||||
|
my ($teco) = $ca =~ /text="(.*)"/x; # " im Text-Tag escapen (V: 1.11.7)
|
||||||
|
if ($teco) {
|
||||||
|
$teco =~ s/"/_ESC_/gx;
|
||||||
|
$ca =~ s/text="(.*)"/text="$teco"/x;
|
||||||
|
}
|
||||||
|
|
||||||
|
my($a,$h) = parseParams($ca);
|
||||||
|
|
||||||
|
for my $k (%$h) { # Text escaped " wiederherstellen
|
||||||
|
next if($k ne "text");
|
||||||
|
$h->{$k} =~ s/_ESC_/"/gx;
|
||||||
|
}
|
||||||
|
|
||||||
if (!defined($h->{botname})) {
|
if (!defined($h->{botname})) {
|
||||||
Log 1, "TYPE SSChatBot - ERROR - no Botname received";
|
Log 1, "TYPE SSChatBot - ERROR - no Botname received";
|
||||||
|
|||||||
Reference in New Issue
Block a user