mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 06:39:11 +00:00
49_SSCam: refresh snapgallery device if snap was done by itself
git-svn-id: https://svn.fhem.de/fhem/trunk@18460 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1
parent
72007ac19b
commit
405f8d2778
@ -1,5 +1,6 @@
|
|||||||
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
||||||
# Do not insert empty lines here, update check depends on it.
|
# Do not insert empty lines here, update check depends on it.
|
||||||
|
- bugfix: 49_SSCam: refresh snapgallery device if snap was done by itself
|
||||||
- feature: 49_SSCam: V8.7.0, send recordings by email is possible now
|
- feature: 49_SSCam: V8.7.0, send recordings by email is possible now
|
||||||
- bugfix: 10_MYSENSORS_DEVICE: fix enqueing method, Forum:#96518
|
- bugfix: 10_MYSENSORS_DEVICE: fix enqueing method, Forum:#96518
|
||||||
- new: 98_inotify: initial release
|
- new: 98_inotify: initial release
|
||||||
|
|||||||
@ -47,6 +47,7 @@ use Encode;
|
|||||||
|
|
||||||
# Versions History intern
|
# Versions History intern
|
||||||
our %SSCam_vNotesIntern = (
|
our %SSCam_vNotesIntern = (
|
||||||
|
"8.7.1" => "30.01.2019 fix refresh snapgallery device if snap was done by itself",
|
||||||
"8.7.0" => "27.01.2019 send recording by email ",
|
"8.7.0" => "27.01.2019 send recording by email ",
|
||||||
"8.6.2" => "25.01.2019 fix version numbering ",
|
"8.6.2" => "25.01.2019 fix version numbering ",
|
||||||
"8.6.1" => "21.01.2019 time format in readings and galleries depends from global language attribute, minor bug fixes ",
|
"8.6.1" => "21.01.2019 time format in readings and galleries depends from global language attribute, minor bug fixes ",
|
||||||
@ -1626,7 +1627,7 @@ sub SSCam_FWsummaryFn ($$$$) {
|
|||||||
my $imgrecendless = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTART.png\">";
|
my $imgrecendless = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTART.png\">";
|
||||||
my $cmdrecstop = "cmd=set $d off"; # Aufnahme Stop
|
my $cmdrecstop = "cmd=set $d off"; # Aufnahme Stop
|
||||||
my $imgrecstop = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTOP.png\">";
|
my $imgrecstop = "<img src=\"$FW_ME/www/images/sscam/black_btn_RECSTOP.png\">";
|
||||||
my $cmddosnap = "cmd=set $d snap STRM"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
|
my $cmddosnap = "cmd=set $d snap 1 2 STRM"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
|
||||||
my $imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">";
|
my $imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">";
|
||||||
|
|
||||||
my $attr = AttrVal($d, "htmlattr", " ");
|
my $attr = AttrVal($d, "htmlattr", " ");
|
||||||
@ -5208,33 +5209,42 @@ sub SSCam_camop_parse ($) {
|
|||||||
$sendsnaps{$sn}{fileName} = $fileName;
|
$sendsnaps{$sn}{fileName} = $fileName;
|
||||||
$sendsnaps{$sn}{".imageData"} = $imageData;
|
$sendsnaps{$sn}{".imageData"} = $imageData;
|
||||||
Log3($name,4, "$name - Snap '$sn' added to send gallery hash: ID => $sendsnaps{$sn}{snapid}, File => $sendsnaps{$sn}{fileName}, Created => $sendsnaps{$sn}{createdTm}");
|
Log3($name,4, "$name - Snap '$sn' added to send gallery hash: ID => $sendsnaps{$sn}{snapid}, File => $sendsnaps{$sn}{fileName}, Created => $sendsnaps{$sn}{createdTm}");
|
||||||
$sn += 1;
|
|
||||||
|
# Snaphash um die neuen Snaps ergänzen wenn existent
|
||||||
|
if($hash->{HELPER}{".SNAPHASH"}{$sn}) {
|
||||||
|
$hash->{HELPER}{".SNAPHASH"}{$sn}{snapid} = $snapid;
|
||||||
|
$hash->{HELPER}{".SNAPHASH"}{$sn}{createdTm} = $createdTm;
|
||||||
|
$hash->{HELPER}{".SNAPHASH"}{$sn}{fileName} = $fileName;
|
||||||
|
$hash->{HELPER}{".SNAPHASH"}{$sn}{imageData} = $imageData;
|
||||||
|
Log3($name,4, "$name - Snap '$sn' added to gallery hash: ID => $snapid, File => $fileName, Created => $createdTm");
|
||||||
|
}
|
||||||
|
|
||||||
|
$sn += 1;
|
||||||
$i += 1;
|
$i += 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
# prüfen ob Schnappschuß als Email versendet werden soll
|
# prüfen ob Schnappschuß als Email versendet werden soll
|
||||||
SSCam_prepareSendEmail ($hash, $OpMode, \%sendsnaps);
|
SSCam_prepareSendEmail ($hash, $OpMode, \%sendsnaps);
|
||||||
|
|
||||||
} else {
|
} else {
|
||||||
# es soll eine Schnappschußgalerie bereitgestellt (Attr snapGalleryBoost=1) bzw. gleich angezeigt
|
# es soll eine Schnappschußgalerie bereitgestellt (Attr snapGalleryBoost=1) bzw. gleich angezeigt
|
||||||
# werden (Attr snapGalleryBoost=0)
|
# werden (Attr snapGalleryBoost=0)
|
||||||
my $i = 0;
|
my $i = 0;
|
||||||
my $sn = 0;
|
my $sn = 0;
|
||||||
my %allsnaps = (); # Schnappschuss Hash wird leer erstellt
|
my %allsnaps = (); # Schnappschuss Hash wird leer erstellt
|
||||||
|
|
||||||
$hash->{HELPER}{TOTALCNT} = $data->{data}{total}; # total Anzahl Schnappschüsse
|
$hash->{HELPER}{TOTALCNT} = $data->{data}{total}; # total Anzahl Schnappschüsse
|
||||||
|
|
||||||
while ($data->{'data'}{'data'}[$i]) {
|
while ($data->{'data'}{'data'}[$i]) {
|
||||||
if($data->{'data'}{'data'}[$i]{'camName'} ne $camname) {
|
if($data->{'data'}{'data'}[$i]{'camName'} ne $camname) {
|
||||||
$i += 1;
|
$i += 1;
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
$snapid = $data->{data}{data}[$i]{id};
|
$snapid = $data->{data}{data}[$i]{id};
|
||||||
my $createdTm = $data->{data}{data}[$i]{createdTm};
|
my $createdTm = $data->{data}{data}[$i]{createdTm};
|
||||||
my $fileName = $data->{data}{data}[$i]{fileName};
|
my $fileName = $data->{data}{data}[$i]{fileName};
|
||||||
my $imageData = $data->{data}{data}[$i]{imageData}; # Image data of snapshot in base64 format
|
my $imageData = $data->{data}{data}[$i]{imageData}; # Image data of snapshot in base64 format
|
||||||
|
|
||||||
$allsnaps{$sn}{snapid} = $snapid;
|
|
||||||
my @t = split(" ", FmtDateTime($data->{data}{data}[$i]{createdTm}));
|
my @t = split(" ", FmtDateTime($data->{data}{data}[$i]{createdTm}));
|
||||||
my @d = split("-", $t[0]);
|
my @d = split("-", $t[0]);
|
||||||
if($lang eq "DE") {
|
if($lang eq "DE") {
|
||||||
@ -5242,28 +5252,29 @@ sub SSCam_camop_parse ($) {
|
|||||||
} else {
|
} else {
|
||||||
$createdTm = "$d[0]-$d[1]-$d[2] / $t[1]";
|
$createdTm = "$d[0]-$d[1]-$d[2] / $t[1]";
|
||||||
}
|
}
|
||||||
$allsnaps{$sn}{createdTm} = $createdTm;
|
$allsnaps{$sn}{snapid} = $snapid;
|
||||||
$allsnaps{$sn}{fileName} = $fileName;
|
$allsnaps{$sn}{createdTm} = $createdTm;
|
||||||
$allsnaps{$sn}{imageData} = $imageData;
|
$allsnaps{$sn}{fileName} = $fileName;
|
||||||
Log3($name,4, "$name - Snap '$sn' added to gallery hash: ID => $allsnaps{$sn}{snapid}, File => $allsnaps{$sn}{fileName}, Created => $allsnaps{$sn}{createdTm}");
|
$allsnaps{$sn}{imageData} = $imageData;
|
||||||
$sn += 1;
|
Log3($name,4, "$name - Snap '$sn' added to gallery hash: ID => $allsnaps{$sn}{snapid}, File => $allsnaps{$sn}{fileName}, Created => $allsnaps{$sn}{createdTm}");
|
||||||
$i += 1;
|
$sn += 1;
|
||||||
}
|
$i += 1;
|
||||||
|
}
|
||||||
# Hash der Schnapschüsse erstellen
|
|
||||||
$hash->{HELPER}{".SNAPHASH"} = \%allsnaps;
|
# Hash der Schnapschüsse erstellen
|
||||||
|
$hash->{HELPER}{".SNAPHASH"} = \%allsnaps;
|
||||||
# Direktausgabe Snaphash wenn nicht gepollt wird
|
|
||||||
if(!AttrVal($name, "snapGalleryBoost",0)) {
|
# Direktausgabe Snaphash wenn nicht gepollt wird
|
||||||
my $htmlCode = SSCam_composegallery($name);
|
if(!AttrVal($name, "snapGalleryBoost",0)) {
|
||||||
|
my $htmlCode = SSCam_composegallery($name);
|
||||||
for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
|
|
||||||
asyncOutput($hash->{HELPER}{CL}{$k},"$htmlCode");
|
for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
|
||||||
}
|
asyncOutput($hash->{HELPER}{CL}{$k},"$htmlCode");
|
||||||
delete($hash->{HELPER}{".SNAPHASH"}); # Snaphash löschen wenn nicht gepollt wird
|
}
|
||||||
delete($hash->{HELPER}{CL});
|
delete($hash->{HELPER}{".SNAPHASH"}); # Snaphash löschen wenn nicht gepollt wird
|
||||||
}
|
delete($hash->{HELPER}{CL});
|
||||||
}
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
readingsBeginUpdate($hash);
|
readingsBeginUpdate($hash);
|
||||||
@ -7282,7 +7293,7 @@ sub SSCam_composegallery ($;$$) {
|
|||||||
my $streamHash = $defs{$strmdev} if($strmdev); # Hash des SSCamSTRM-Devices
|
my $streamHash = $defs{$strmdev} if($strmdev); # Hash des SSCamSTRM-Devices
|
||||||
delete $streamHash->{HELPER}{STREAM};
|
delete $streamHash->{HELPER}{STREAM};
|
||||||
|
|
||||||
my $cmddosnap = "cmd=set $name snap STRM"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
|
my $cmddosnap = "cmd=set $name snap 1 2 STRM"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
|
||||||
my $imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">";
|
my $imgdosnap = "<img src=\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\">";
|
||||||
|
|
||||||
my $ha = AttrVal($name, "snapGalleryHtmlAttr", AttrVal($name, "htmlattr", 'width="500" height="325"'));
|
my $ha = AttrVal($name, "snapGalleryHtmlAttr", AttrVal($name, "htmlattr", 'width="500" height="325"'));
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user