2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00

SMUtils.pm: update to version 1.20.1

git-svn-id: https://svn.fhem.de/fhem/trunk@23029 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-10-26 17:49:51 +00:00
parent a7bbf981b0
commit 7e1698a1d7

View File

@ -41,7 +41,7 @@ use FHEM::SynoModules::ErrCodes qw(:all); # Erro
use GPUtils qw( GP_Import GP_Export );
use Carp qw(croak carp);
use version; our $VERSION = version->declare('1.20.0');
use version; our $VERSION = version->declare('1.20.1');
use Exporter ('import');
our @EXPORT_OK = qw(
@ -1608,26 +1608,29 @@ sub purgeSendqueue {
my $prop = $paref->{prop} // carp "got no purgeSendqueue argument" && return;
my $type = $hash->{TYPE};
my $ret = q{};
if($prop eq "-all-") {
delete $hash->{OPIDX};
delete $data{$type}{$name}{sendqueue}{entries};
$data{$type}{$name}{sendqueue}{index} = 0;
return "All entries of SendQueue are deleted";
$ret = "All entries of SendQueue are deleted";
}
elsif($prop eq "-permError-") {
for my $idx (keys %{$data{$type}{$name}{sendqueue}{entries}}) {
delete $data{$type}{$name}{sendqueue}{entries}{$idx}
if($data{$type}{$name}{sendqueue}{entries}{$idx}{forbidSend});
}
return qq{All entries with state "permanent send error" are deleted};
$ret = qq{All entries with state "permanent send error" are deleted};
}
else {
delete $data{$type}{$name}{sendqueue}{entries}{$prop};
return qq{SendQueue entry with index "$prop" deleted};
$ret = qq{SendQueue entry with index "$prop" deleted};
}
updQueueLength ($hash);
return;
return $ret;
}
#############################################################################################