FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

49_SSCam: contrib 8.6.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18346 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-01-20 08:46:09 +00:00
parent a84b4b345f
commit 7cdcafc61b
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -505,6 +505,10 @@ sub SSCam_Attr($$$$) {
return " The attribute \"$aName\" is only valid for devices of type \"SVS\"! Please set this attribute in a device of this type.";
}
if ($aName =~ /snapReadingRotate/ && !SSCam_IsModelCam($hash)) {
return " The attribute \"$aName\" is not valid for devices of type \"SVS\"!.";
}
# dynamisch PTZ-Attribute setzen (wichtig beim Start wenn Reading "DeviceType" nicht gesetzt ist)
if ($cmd eq "set" && ($aName =~ m/ptzPanel_.*/)) {
foreach my $n (0..9) {
@ -615,6 +619,21 @@ sub SSCam_Attr($$$$) {
InternalTimer(gettimeofday()+0.7, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0);
}
if ($aName eq "snapReadingRotate") {
if($cmd eq "set") {
$do = ($aVal) ? 1 : 0;
}
$do = 0 if($cmd eq "del");
if(!$do) {$aVal = 0}
for my $i (1..10) {
if($i>$aVal) {
readingsDelete($hash, "LastSnapFilename$i");
readingsDelete($hash, "LastSnapId$i");
readingsDelete($hash, "LastSnapTime$i");
}
}
}
if ($aName eq "simu_SVSversion") {
delete $hash->{HELPER}{APIPARSET};
delete $hash->{HELPER}{SID};
@ -4952,8 +4971,8 @@ sub SSCam_camop_parse ($) {
$snapid = $data->{data}{'id'};
#readingsSingleUpdate($hash,"LastSnapId",$snapid, 0) if($snapid);
my $rotnum = AttrVal($name,"snapReadingRotate",0);
SSCam_rotateReading($hash,"LastSnapId",$snapid,$rotnum,0);
#my $rotnum = AttrVal($name,"snapReadingRotate",0);
#SSCam_rotateReading($hash,"LastSnapId",$snapid,$rotnum,0);
readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"Errorcode","none");
@ -7242,7 +7261,7 @@ return ($error);
sub SSCam_rotateReading ($$$$$) {
my ($hash,$readingName,$val,$rotnum,$do_trigger) = @_;
my $name = $hash->{NAME};
#Log3 ($name, 1, "$name -> Rotate \"$readingName\" VAL: $val");
readingsBeginUpdate($hash);
my $o = ReadingsVal($name,$readingName,"n.a.");