FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +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

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

@ -269,7 +269,7 @@ sub SSChatBot_Set($@) {
my $prop1 = $a[3];
my $prop2 = $a[4];
my $prop3 = $a[5];
my ($success,$ret,$setlist);
my ($success,$setlist);
return if(IsDisabled($name));
@ -303,7 +303,8 @@ sub SSChatBot_Set($@) {
} elsif ($opt eq "listSendqueue") {
my $sub = sub ($) {
my ($idx) = @_;
my ($idx) = @_;
my $ret;
foreach my $key (reverse sort keys %{$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}}) {
$ret .= ", " if($ret);
$ret .= $key."=>".$data{SSChatBot}{$name}{sendqueue}{entries}{$idx}{$key};
@ -315,7 +316,7 @@ sub SSChatBot_Set($@) {
return "SendQueue is empty.";
}
my $sq;
foreach my $idx (sort{$a<=>$b} keys %{$data{SSChatBot}{$name}{sendqueue}{entries}}) {
foreach my $idx (sort{$a<=>$b} keys %{$data{SSChatBot}{$name}{sendqueue}{entries}}) {
$sq .= $idx." => ".$sub->($idx)."\n";
}
return $sq;
@ -382,7 +383,7 @@ sub SSChatBot_Set($@) {
SSChatBot_getapisites($name);
} elsif ($opt eq "restartSendqueue") {
$ret = SSChatBot_getapisites($name);
my $ret = SSChatBot_getapisites($name);
if($ret) {
return $ret;
} else {
@ -639,12 +640,12 @@ sub SSChatBot_addQueue ($$$$$$$$) {
return;
}
Log3($name, 5, "$name - Add sendItem to queue - Opmode: $opmode, Text: $text");
$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,
'method' => $method,
'userid' => $userid,
@ -652,10 +653,10 @@ sub SSChatBot_addQueue ($$$$$$$$) {
'text' => $text,
'attachment' => $attachment,
'fileUrl' => $fileUrl,
'retryCount' => 0,
'retryCount' => 0
};
$data{SSChatBot}{$name}{sendqueue}{entries}{$index} = $pars;
$data{SSChatBot}{$name}{sendqueue}{entries}{$index} = $pars;
SSChatBot_updQLength ($hash); # updaten Länge der Sendequeue