From 89f36de47ff87913e1c482d05865a8dbc463640b Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Wed, 1 Jul 2020 21:08:22 +0000 Subject: [PATCH] 49_SSCam: contrib 9.4.0 git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@22323 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- contrib/DS_Starter/49_SSCam.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/contrib/DS_Starter/49_SSCam.pm b/contrib/DS_Starter/49_SSCam.pm index d143259db..c21fa9307 100644 --- a/contrib/DS_Starter/49_SSCam.pm +++ b/contrib/DS_Starter/49_SSCam.pm @@ -7369,7 +7369,7 @@ return $cap; sub IsCapZoom { # PTZ Zoom Eigenschaft my $hash = shift; my $name = $hash->{NAME}; - +return 1; my $cap = ReadingsVal($name, "CapPTZZoom", "false") ne "false" ? 1 : 0; return $cap; @@ -7673,7 +7673,7 @@ sub ptzPanel { my $iPath = FW_iconPath($img); if($ftui) { - my $zbs = $pbsf+100; + my $zbs = $pbsf*1.55; $img = ""; } else { $img = ""; @@ -9336,10 +9336,9 @@ sub sendTelegram { $data{SSCam}{$name}{PARAMS}{$tac}{$key} = $teleparams{$key}->{default} if (!$extparamref->{$key} && !$teleparams{$key}->{attr}); $data{SSCam}{$name}{PARAMS}{$tac}{$key} = delete $extparamref->{$key} if(exists $extparamref->{$key}); } - no warnings 'uninitialized'; + Log3($name, 4, "$name - param $key is set to \"".($data{SSCam}{$name}{PARAMS}{$tac}{$key} // "")."\" ") if($key !~ /[sv]dat/); Log3($name, 4, "$name - param $key is set") if($key =~ /[sv]dat/ && $data{SSCam}{$name}{PARAMS}{$tac}{$key} ne ''); - use warnings; } $data{SSCam}{$name}{PARAMS}{$tac}{name} = $name;