From 2d22d14497bd9bbf6011697e5091e1fbe09a9a38 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Tue, 26 May 2020 20:59:42 +0000 Subject: [PATCH] 50_SSChatBot: contrib 1.7.0 git-svn-id: https://svn.fhem.de/fhem/trunk@22039 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/50_SSChatBot.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/fhem/contrib/DS_Starter/50_SSChatBot.pm b/fhem/contrib/DS_Starter/50_SSChatBot.pm index b06cafbe5..2c501a11b 100644 --- a/fhem/contrib/DS_Starter/50_SSChatBot.pm +++ b/fhem/contrib/DS_Starter/50_SSChatBot.pm @@ -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 \"";} + if (!$hash->{TOKEN}) {return qq{Token of $name is not set - make sure you've set it with "set $name botToken "};} # 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") {