49_SSCam: contrib 9.4.0

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

View File

@@ -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,7 +9387,7 @@ sub sendTelegram {
return;
}
no strict "refs";
# no strict "refs";
my ($msg,$subject,$MediaStream,$fname,@as,%seen,@unique);
$cache = cache($name, "c_init"); # Cache initialisieren
@@ -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,"");