FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 08:03:40 +00:00
Code Issues Releases Wiki Activity

50_SSChatBot: contrib 1.0.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20693 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-12-08 21:51:47 +00:00
parent 0d6e6e69de
commit 55a65eb667
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -269,7 +269,7 @@ sub SSChatBot_Set($@) {
my $prop1 = $a[3]; my $prop1 = $a[3];
my $prop2 = $a[4]; my $prop2 = $a[4];
my $prop3 = $a[5]; my $prop3 = $a[5];
my ($success,$ret,$setlist); my ($success,$setlist);
return if(IsDisabled($name)); return if(IsDisabled($name));
@ -304,6 +304,7 @@ sub SSChatBot_Set($@) {
} elsif ($opt eq "listSendqueue") { } elsif ($opt eq "listSendqueue") {
my $sub = sub ($) { my $sub = sub ($) {
my ($idx) = @_; my ($idx) = @_;
my $ret;
foreach my $key (reverse sort keys %{$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}}) { foreach my $key (reverse sort keys %{$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}}) {
$ret .= ", " if($ret); $ret .= ", " if($ret);
$ret .= $key."=>".$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}{$key}; $ret .= $key."=>".$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}{$key};
@ -382,7 +383,7 @@ sub SSChatBot_Set($@) {
SSChatBot_getapisites($name); SSChatBot_getapisites($name);
} elsif ($opt eq "restartSendqueue") { } elsif ($opt eq "restartSendqueue") {
$ret = SSChatBot_getapisites($name); my $ret = SSChatBot_getapisites($name);
if($ret) { if($ret) {
return $ret; return $ret;
} else { } else {
@ -640,11 +641,11 @@ sub SSChatBot_addQueue ($$$$$$$$) {
return; return;
} }
Log3($name, 5, "$name - Add sendItem to queue - Opmode: $opmode, Text: $text");
$data{SSChatBot}{$name}{sendqueue}{index}++; $data{SSChatBot}{$name}{sendqueue}{index}++;
my $index = $data{SSChatBot}{$name}{sendqueue}{index}; my $index = $data{SSChatBot}{$name}{sendqueue}{index};
Log3($name, 5, "$name - Add sendItem to queue - Idx: $index, Opmode: $opmode, Text: $text, fileUrl: $fileUrl, userid: $userid");
my $pars = {'opmode' => $opmode, my $pars = {'opmode' => $opmode,
'method' => $method, 'method' => $method,
'userid' => $userid, 'userid' => $userid,
@ -652,7 +653,7 @@ sub SSChatBot_addQueue ($$$$$$$$) {
'text' => $text, 'text' => $text,
'attachment' => $attachment, 'attachment' => $attachment,
'fileUrl' => $fileUrl, 'fileUrl' => $fileUrl,
'retryCount' => 0, 'retryCount' => 0
}; };
$data{SSChatBot}{$name}{sendqueue}{entries}{$index} = $pars; $data{SSChatBot}{$name}{sendqueue}{entries}{$index} = $pars;