FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-30 12:07:09 +00:00
Code Issues Releases Wiki Activity

50_SSChatBot: contrib 1.7.0

Browse Source 
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
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

@ -49,7 +49,7 @@ eval "use Net::Domain qw(hostname hostfqdn hostdomain domainname);1" or my $SSC
# Versions History intern # Versions History intern
my %SSChatBot_vNotesIntern = ( 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.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.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 ", "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)); return if(IsDisabled($name));
if ($opt eq "storedToken") { 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 # Token abrufen
my ($success, $token) = SSChatBot_getToken($hash,0,"botToken"); 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". return qq{Stored Token to act as Synology Chat Bot:\n}.
"=========================================\n". qq{=========================================\n}.
"$token \n" qq{$token \n}
; ;
} elsif ($opt eq "chatUserlist") { } elsif ($opt eq "chatUserlist") {