mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

49_SSCam: contrib 9.4.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22324 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2020-07-01 21:59:06 +00:00
parent 0a0655cb94
commit a463cabe6b
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/contrib/DS_Starter/49_SSCam.pm
View File

@@ -7369,7 +7369,7 @@ return $cap;
sub IsCapZoom { # PTZ Zoom Eigenschaft sub IsCapZoom { # PTZ Zoom Eigenschaft
my $hash = shift; my $hash = shift;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return 1;
my $cap = ReadingsVal($name, "CapPTZZoom", "false") ne "false" ? 1 : 0; my $cap = ReadingsVal($name, "CapPTZZoom", "false") ne "false" ? 1 : 0;
return $cap; return $cap;
@@ -9387,10 +9387,10 @@ sub sendTelegram {
return; return;
} }
no strict "refs"; # no strict "refs";
my ($msg,$subject,$MediaStream,$fname,@as,%seen,@unique); 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); Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache);
if(!$cache || $cache eq "internal" ) { if(!$cache || $cache eq "internal" ) {
@@ -9418,7 +9418,7 @@ sub sendTelegram {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln # 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 if($data{SSCam}{$name}{PARAMS}{$tac}{sdat}) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
# Muster: {SENDSNAPS}{2222}{0}{imageData} # 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+)\}\{.*\}/; next if $_ !~ /\{SENDSNAPS\}\{.*\}\{(\d+)\}\{.*\}/;
$_ =~ s/\{SENDSNAPS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/; $_ =~ s/\{SENDSNAPS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/;
next if $1 != $tac; 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)); 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 %teleparams;
undef %{$extparamref}; undef %{$extparamref};
undef $msg; undef $msg;
@@ -10005,7 +10005,7 @@ sub sendEmailblocking {
); );
} }
no strict "refs"; # no strict "refs";
if($sdat) { if($sdat) {
### Images liegen in einem Hash (Ref in $sdat) base64-codiert vor ### Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
my ($ct,$img,$decoded); my ($ct,$img,$decoded);
@@ -10220,7 +10220,7 @@ sub sendEmailblocking {
my $ret = "Email transaction \"$tac\" successfully sent ".( $sslver?"encoded by $sslver":"" ); my $ret = "Email transaction \"$tac\" successfully sent ".( $sslver?"encoded by $sslver":"" );
Log3($name, 3, "$name - $ret To: $to".(($cc)?", CC: $cc":"") ); Log3($name, 3, "$name - $ret To: $to".(($cc)?", CC: $cc":"") );
use strict "refs"; # use strict "refs";
# Daten müssen als Einzeiler zurückgegeben werden # Daten müssen als Einzeiler zurückgegeben werden
$ret = encode_base64($ret,""); $ret = encode_base64($ret,"");