FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

SMUtils.pm: update to version 1.20.1

Browse Source 
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
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/lib/FHEM/SynoModules/SMUtils.pm
View File

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