From a463cabe6bb24f621c8f0f310699eb1a02385ac7 Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 1 Jul 2020 21:59:06 +0000
Subject: [PATCH] 49_SSCam: contrib 9.4.0

git-svn-id: https://svn.fhem.de/fhem/trunk@22324 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/49_SSCam.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/fhem/contrib/DS_Starter/49_SSCam.pm b/fhem/contrib/DS_Starter/49_SSCam.pm
index c21fa9307..10d6712d9 100644
--- a/fhem/contrib/DS_Starter/49_SSCam.pm
+++ b/fhem/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;
@@ -9387,10 +9387,10 @@ sub sendTelegram {
        return;   
    } 
                                     
-  no strict "refs";
+  # no strict "refs";
   my ($msg,$subject,$MediaStream,$fname,@as,%seen,@unique);
   
-  $cache = cache($name, "c_init");                                                     # Cache initialisieren        
+  $cache = cache($name, "c_init");                                                           # Cache initialisieren        
   Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache);
   
   if(!$cache || $cache eq "internal" ) {
@@ -9418,7 +9418,7 @@ sub sendTelegram {
       # alle Serial Numbers "{$sn}" der Transaktion ermitteln 
       if($data{SSCam}{$name}{PARAMS}{$tac}{sdat}) {                                          # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
           # Muster: {SENDSNAPS}{2222}{0}{imageData}
-          for(cache($name, "c_getkeys")) {                                             # relevant keys aus allen vorkommenden selektieren
+          for(cache($name, "c_getkeys")) {                                                   # relevant keys aus allen vorkommenden selektieren
               next if $_ !~ /\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/;
               $_ =~ s/\{SENDSNAPS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/;
               next if $1 != $tac;
@@ -9453,7 +9453,7 @@ sub sendTelegram {
       Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
   }
   
-  use strict "refs";
+  #use strict "refs";
   undef %teleparams;
   undef %{$extparamref};
   undef $msg;
@@ -10005,7 +10005,7 @@ sub sendEmailblocking {
       );
   }
   
-  no strict "refs";
+  # no strict "refs";
   if($sdat) {
       ### Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
       my ($ct,$img,$decoded);
@@ -10220,7 +10220,7 @@ sub sendEmailblocking {
   my $ret = "Email transaction \"$tac\" successfully sent ".( $sslver?"encoded by $sslver":""  ); 
   Log3($name, 3, "$name - $ret To: $to".(($cc)?", CC: $cc":"") );
   
-  use strict "refs";
+  # use strict "refs";
   
   # Daten müssen als Einzeiler zurückgegeben werden
   $ret = encode_base64($ret,"");