2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00

50_SSChatBot: contrib 1.7.0

git-svn-id: https://svn.fhem.de/fhem/trunk@22039 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-05-26 20:59:42 +00:00
parent 8f2170d07a
commit 2d22d14497

View File

@ -49,7 +49,7 @@ eval "use Net::Domain qw(hostname hostfqdn hostdomain domainname);1" or my $SSC
# Versions History intern
my %SSChatBot_vNotesIntern = (
"1.7.0" => "26.05.2020 send SVG Plots ",
"1.7.0" => "26.05.2020 send SVG Plots possible ",
"1.6.1" => "22.05.2020 changes according to PBP ",
"1.6.0" => "22.05.2020 replace \" H\" with \"%20H\" in attachments due to problem in HttpUtils ",
"1.5.0" => "15.03.2020 slash commands set in interactive answer field 'value' will be executed ",
@ -464,14 +464,14 @@ sub SSChatBot_Get { ## no critic 'complexity'
return if(IsDisabled($name));
if ($opt eq "storedToken") {
if (!$hash->{TOKEN}) {return "Token of $name is not set - make sure you've set it with \"set $name botToken <TOKEN>\"";}
if (!$hash->{TOKEN}) {return qq{Token of $name is not set - make sure you've set it with "set $name botToken <TOKEN>"};}
# Token abrufen
my ($success, $token) = SSChatBot_getToken($hash,0,"botToken");
unless ($success) {return "Token couldn't be retrieved successfully - see logfile"};
unless ($success) {return qq{Token couldn't be retrieved successfully - see logfile}};
return "Stored Token to act as Synology Chat Bot:\n".
"=========================================\n".
"$token \n"
return qq{Stored Token to act as Synology Chat Bot:\n}.
qq{=========================================\n}.
qq{$token \n}
;
} elsif ($opt eq "chatUserlist") {