FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-28 02:44:53 +00:00
Code Issues Releases Wiki Activity

SMUtils.pm: update to version 1.19.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22999 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-10-21 11:43:22 +00:00
parent 28dcc3e0b5
commit 0818cc05a2
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
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.19.0'); use version; our $VERSION = version->declare('1.19.1');
use Exporter ('import'); use Exporter ('import');
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
@ -1315,39 +1315,44 @@ return;
} }
###################################################################################### ######################################################################################
# Eintrag zur SendQueue hinzufügen (Standard Parametersatz) # Eintrag zur SendQueue hinzufügen (Standard Parametersatz ohne Prüfung)
#
# $name = Name (Kalender)device # $name = Name (Kalender)device
# $opmode = operation mode # $opmode = operation mode
# $api = API-Referenz (z.B. $data{SSCal}{$name}{calapi}) # $api = API-Referenz (z.B. $data{SSCal}{$name}{calapi})
# $method = auszuführende API-Methode # $method = auszuführende API-Methode
# $params = spezifische API-Parameter # $params = spezifische API-Parameter für GET
# #
# Weitere Parameter hinzufügen falls vorhanden.
###################################################################################### ######################################################################################
sub _addSendqueueSimple { sub _addSendqueueSimple {
my $paref = shift; my $paref = shift;
my $name = $paref->{name}; my $name = $paref->{name};
my $opmode = $paref->{opmode}; my $opmode = $paref->{opmode};
my $api = $paref->{api}; my $api = $paref->{api};
my $method = $paref->{method}; my $method = $paref->{method};
my $params = $paref->{params}; my $params = $paref->{params};
my $dest = $paref->{dest}; my $dest = $paref->{dest};
my $reqtype = $paref->{reqtype}; my $reqtype = $paref->{reqtype};
my $header = $paref->{header};
my $postdata = $paref->{postdata};
my $hash = $defs{$name}; my $hash = $defs{$name};
my $entry = { my $entry = {
'opmode' => $opmode, 'opmode' => $opmode,
'api' => $api, 'api' => $api,
'method' => $method, 'method' => $method,
'params' => $params,
'retryCount' => 0 'retryCount' => 0
}; };
# optionale Zusatzfelder # optionale Zusatzfelder
$entry->{dest} = $dest if($dest); $entry->{params} = $params if($params);
$entry->{reqtype} = $reqtype if($reqtype); $entry->{dest} = $dest if($dest);
$entry->{reqtype} = $reqtype if($reqtype);
$entry->{header} = $header if($header);
$entry->{postdata} = $postdata if($postdata);
__addSendqueueEntry ($hash, $entry); # den Datensatz zur Sendqueue hinzufügen # updaten Länge der Sendequeue __addSendqueueEntry ($hash, $entry); # den Datensatz zur Sendqueue hinzufügen # updaten Länge der Sendequeue
return; return;
@ -1495,7 +1500,7 @@ sub checkSendRetry {
my $forbidSend = q{}; my $forbidSend = q{};
my $startfnref = \&{$startfn}; my $startfnref = \&{$startfn};
my @forbidlist = qw(100 101 103 117 120 400 401 407 408 409 410 418 419 420 800 900 my @forbidlist = qw(100 101 103 117 120 400 401 407 408 409 410 414 418 419 420 800 900
1000 1001 1002 1003 1004 1006 1007 1100 1101 1200 1300 1301 1400 1000 1001 1002 1003 1004 1006 1007 1100 1101 1200 1300 1301 1400
1401 1402 1403 1404 1405 1800 1801 1802 1803 1804 1805 2000 2001 1401 1402 1403 1404 1405 1800 1801 1802 1803 1804 1805 2000 2001
2002); # bei diesen Errorcodes den Queueeintrag nicht wiederholen, da dauerhafter Fehler ! 2002); # bei diesen Errorcodes den Queueeintrag nicht wiederholen, da dauerhafter Fehler !