FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 19:04:20 +00:00
Code Issues Releases Wiki Activity

49_SSCam: contrib 8.6.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18360 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-01-21 18:40:02 +00:00
parent 6045cbc625
commit 39b7fa75e2
1 changed files with 19 additions and 10 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

@ -5032,7 +5032,7 @@ sub SSCam_camop_parse ($) {
Log3($name, $verbose, "$name - Snapinfos of camera $camname retrieved"); Log3($name, $verbose, "$name - Snapinfos of camera $camname retrieved");
my %snaps = ( 0 => {'createdTm' => 'n.a.', 'fileName' => 'n.a.','snapid' => 'n.a.'} ); # Hilfshash my %snaps = ( 0 => {'createdTm' => 'n.a.', 'fileName' => 'n.a.','snapid' => 'n.a.'} ); # Hilfshash
my ($k,$l) = (0,0); my ($k,$l) = (0,0);
if(exists($data->{data}{data}[0]{createdTm})) { if(exists($data->{data}{data}[0]{createdTm})) {
while ($data->{'data'}{'data'}[$k]) { while ($data->{'data'}{'data'}[$k]) {
@ -5040,8 +5040,8 @@ sub SSCam_camop_parse ($) {
$k += 1; $k += 1;
next; next;
} }
my @t = split(" ", FmtDateTime($data->{data}{data}[$k]{createdTm})); my @t = split(" ", FmtDateTime($data->{data}{data}[$k]{createdTm}));
my @d = split("-", $t[0]); my @d = split("-", $t[0]);
my $createdTm; my $createdTm;
if($lang eq "DE") { if($lang eq "DE") {
$createdTm = "$d[2].$d[1].$d[0] / $t[1]"; $createdTm = "$d[2].$d[1].$d[0] / $t[1]";
@ -5057,12 +5057,21 @@ sub SSCam_camop_parse ($) {
} }
} }
my @as = sort{$b<=>$a}keys%snaps; my @as;
my $rotnum = AttrVal($name,"snapReadingRotate",0); my $rotnum = AttrVal($name,"snapReadingRotate",0);
foreach my $key (@as) { my $o = ReadingsVal($name,"LastSnapId","n.a.");
SSCam_rotateReading($hash,"LastSnapId",$snaps{$key}{snapid},$rotnum,1); if($rotnum && "$o" ne "$snaps{0}{snapid}") {
SSCam_rotateReading($hash,"LastSnapFilename",$snaps{$key}{fileName},$rotnum,1); @as = sort{$b<=>$a}keys%snaps;
SSCam_rotateReading($hash,"LastSnapTime",$snaps{$key}{createdTm},$rotnum,1); foreach my $key (@as) {
SSCam_rotateReading($hash,"LastSnapId",$snaps{$key}{snapid},$rotnum,1);
SSCam_rotateReading($hash,"LastSnapFilename",$snaps{$key}{fileName},$rotnum,1);
SSCam_rotateReading($hash,"LastSnapTime",$snaps{$key}{createdTm},$rotnum,1);
}
} else {
@as = sort{$a<=>$b}keys%snaps;
SSCam_rotateReading($hash,"LastSnapId",$snaps{$as[0]}{snapid},$rotnum,1);
SSCam_rotateReading($hash,"LastSnapFilename",$snaps{$as[0]}{fileName},$rotnum,1);
SSCam_rotateReading($hash,"LastSnapTime",$snaps{$as[0]}{createdTm},$rotnum,1);
} }
##### ein Schnapschuss soll als liveView angezeigt werden ##### ##### ein Schnapschuss soll als liveView angezeigt werden #####