FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 07:19:24 +00:00
Code Issues Releases Wiki Activity

50_SSChatBot: contrib 1.0.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20641 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-12-02 11:58:47 +00:00
parent 99e0b6a0a0
commit 142eaae9c8
1 changed files with 38 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,7 +61,7 @@ my %SSChatBot_errlist = (
101 => "Payload is empty",
102 => "API does not exist - may be the Synology Chat Server package is stopped",
120 => "payload has wrong format",
404 => "bot is not legal",
404 => "bot is not legal - may be the bot is not active or the botToken is wrong",
407 => "record is not valid",
800 => "malformed or unsupported URL",
805 => "empty API data received - may be the Synology Chat Server package is stopped",
@ -344,7 +344,7 @@ sub SSChatBot_Set($@) {
return "Your sendstring is incorrect. It must contain at least text with the \"text=\" tag like text=\"...\"\nor only some text like \"this is a test\" without the \"text=\" tag." if(!$text);
$text = SSChatBot_substText($text);
$text = SSChatBot_formText($text);
$users = AttrVal($name,"defaultPeer", "") if(!$users);
return "You haven't defined any receptor for send the message to. ".
@ -1350,9 +1350,10 @@ return ($str);
}
#############################################################################################
# Text formatieren und nicht erlaubte Zeichen entfernen
# Text für den Versand an Synology Chat formatieren
# und nicht erlaubte Zeichen entfernen
#############################################################################################
sub SSChatBot_substText ($) {
sub SSChatBot_formText ($) {
my $txt = shift;
my (%replacements,$pat);
@ -1362,9 +1363,19 @@ sub SSChatBot_substText ($) {
"#" => "", # Hashtags sind im Text nicht erlaubt
);
$txt =~ s/\n/ESC_newline_ESC/g;
my @acr = split (/\s+/, $txt);
$txt = "";
foreach (@acr) { # Einzeiligkeit für Versand herstellen
$txt .= " " if($txt);
$_ =~ s/ESC_newline_ESC/\\n/g;
$txt .= $_;
}
$pat = join '|', map quotemeta, keys(%replacements);
$txt =~ s/($pat)/$replacements{$1}/g;
$txt =~ s/($pat)/$replacements{$1}/g;
return ($txt);
}
@ -1497,6 +1508,8 @@ sub SSChatBot_CGI() {
Log3($name, 4, "$name - ### start Chat operation Receive ");
Log3($name, 4, "$name - ####################################################");
Log3($name, 5, "$name - data received:\n".Dumper($h));
$hash->{OPMODE} = "receiveData";
# ausgehende Datenfelder (Chat -> FHEM), die das Chat senden kann
# ===============================================================
@ -1545,29 +1558,38 @@ sub SSChatBot_CGI() {
$text = urlDecode($h->{text});
Log3($name, 4, "$name - text received: ".$text);
if($text =~ /^\/([Ss]et|[Gg]et|[Cc]ode)\s+(.*)$/) { # Befehle in FHEM ausführen
if($text =~ /^\/([Ss]et.*?|[Gg]et.*?|[Cc]ode.*?)\s+(.*)$/) { # Befehle in FHEM ausführen
$command = "$1 ".$2;
my $p1 = $1;
my $p2 = $2;
Log3($name, 4, "$name - received FHEM command: ".$command);
if($p1 =~ /set/i) {
if($p1 =~ /set.*/i) {
Log3($name, 4, "$name - execute FHEM command: set ".$p2);
$cr = CommandSet(undef, $p2); # set-Befehl in FHEM ausführen
} elsif ($p1 =~ /get/i) {
$cr = CommandGet(undef, $p2); # get-Befehl in FHEM ausführen
} elsif ($p1 =~ /code/i) {
} elsif ($p1 =~ /get.*/i) {
Log3($name, 4, "$name - execute FHEM command: get ".$p2);
$cr = CommandGet(undef, $p2); # get-Befehl in FHEM ausführen
} elsif ($p1 =~ /code.*/i) {
my $code = $p2;
if( $p2 =~ m/^\s*(\{.*\})\s*$/s ) {
$p2 = $1;
} else {
$p2 = '';
}
Log3($name, 4, "$name - execute FHEM command: ".$p2);
$cr = AnalyzeCommandChain(undef, $p2) if($p2);
}
$cr = $cr?$cr:"command '$command' executed";
$cr = $cr ne ""?$cr:"command '$command' executed";
Log3($name, 4, "$name - FHEM command return: ".$cr);
$cr = SSChatBot_substText($cr);
$cr = SSChatBot_formText($cr);
SSChatBot_addQueue($name, "sendItem", "chatbot", $userid, $cr, "", "", "");
RemoveInternalTimer($hash, "SSChatBot_getapisites");
InternalTimer(gettimeofday()+2, "SSChatBot_getapisites", "$name", 0);
InternalTimer(gettimeofday()+1, "SSChatBot_getapisites", "$name", 0);
}
}