FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

49_SSCam: contrib 9.4.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22322 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-07-01 20:18:13 +00:00
parent b1b1c5f0e9
commit e249ae3ca3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7673,7 +7673,7 @@ sub ptzPanel {
my $iPath = FW_iconPath($img);
if($ftui) {
my $zbs = $pbsf*2;
my $zbs = $pbsf+100;
$img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$zbs%\" width=\"$zbs%\">";
} else {
$img = "<img src=\"$FW_ME/$FW_icondir/$iPath\" height=\"$pbs%\" width=\"$pbs%\">";
@ -9135,7 +9135,7 @@ sub sendChat {
return;
}
no strict "refs";
#no strict "refs";
my ($subject,$fileUrl,$uid,$fname,@as,%seen,@unique);
$cache = cache($name, "c_init"); # Cache initialisieren
@ -9188,7 +9188,7 @@ sub sendChat {
# 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;
@ -9199,7 +9199,7 @@ sub sendChat {
} elsif($data{SSCam}{$name}{PARAMS}{$tac}{vdat}) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
# Muster: {SENDRECS}{305}{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 $_ !~ /\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/;
$_ =~ s/\{SENDRECS\}\{(\d+)\}\{(\d+)\}\{.*\}/$2/;
next if $1 != $tac;
@ -9235,7 +9235,7 @@ sub sendChat {
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 2, "$name - ERROR: $ret");
} else {
$ret = $ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue";
$ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue";
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 3, "$name - $ret");
}
@ -9248,7 +9248,7 @@ sub sendChat {
SSChatBot_getapisites($chatbot); # Übertragung Sendqueue starten
use strict "refs";
# use strict "refs";
undef %chatparams;
undef %{$extparamref};