From 8988c354531811f64d17ae7f76362a7a9f7b4df3 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Tue, 5 Mar 2019 17:13:05 +0000 Subject: [PATCH] 49_SSCam: no snapinfos when snap was done by SVS itself (Forum: #45671.msg914685.html#msg914685), minor fixes git-svn-id: https://svn.fhem.de/fhem/trunk@18797 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 2 ++ fhem/FHEM/49_SSCam.pm | 56 +++++++++++++++++++++++++++++++------------ 2 files changed, 43 insertions(+), 15 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 34b5f2045..919e2cbec 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # 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. + - bugfix: 49_SSCam: no snapinfos when snap was done by SVS itself + (Forum: #45671.msg914685.html#msg914685), minor fixes - feature: 59_Weather: use demo data up to start then apikey equevalent demo - feature: 70_ZoneMinder: added attribute 'apiTimeout' - changed: 93_DbLog: minor change of Log entry diff --git a/fhem/FHEM/49_SSCam.pm b/fhem/FHEM/49_SSCam.pm index 8488db189..e61bacde6 100644 --- a/fhem/FHEM/49_SSCam.pm +++ b/fhem/FHEM/49_SSCam.pm @@ -42,11 +42,14 @@ use MIME::Base64; use Time::HiRes; use HttpUtils; use Blocking; # für EMail-Versand -use Encode; +use Encode; +use JSON; # für Telegram Versand # no if $] >= 5.017011, warnings => 'experimental'; # Versions History intern our %SSCam_vNotesIntern = ( + "8.11.2" => "28.02.2019 bugfix no snapinfos when snap was done by SVS itself, Forum: https://forum.fhem.de/index.php/topic,45671.msg914685.html#msg914685", + "8.11.1" => "28.02.2019 commandref revised, minor fixes ", "8.11.0" => "25.02.2019 changed compatibility check, compatibility to SVS version 8.2.3, Popup possible for \"generic\"-Streamdevices, ". "support for \"genericStrmHtmlTag\" in streaming devices ", "8.10.1" => "19.02.2019 fix warning when starting fhem, and Forum:#97706", @@ -597,7 +600,7 @@ sub SSCam_Attr($$$$) { $hash->{HELPER}{GETSNAPGALLERY} = 1; $slim = AttrVal($name,"snapGalleryNumber",$SSCam_slim); # Anzahl der abzurufenden Snaps $ssize = $do; - RemoveInternalTimer("SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+0.7, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); } } @@ -622,7 +625,7 @@ sub SSCam_Attr($$$$) { $slim = AttrVal($name,"snapGalleryNumber",$SSCam_slim); # Anzahl der abzurufenden Snaps my $sg = AttrVal($name,"snapGallerySize","Icon"); # Auflösung Image $ssize = ($sg eq "Icon")?1:2; - RemoveInternalTimer("SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+0.7, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); } } @@ -643,7 +646,7 @@ sub SSCam_Attr($$$$) { $hash->{HELPER}{GETSNAPGALLERY} = 1; my $sg = AttrVal($name,"snapGallerySize","Icon"); # Auflösung Image $ssize = ($sg eq "Icon")?1:2; - RemoveInternalTimer("SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+0.7, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); } @@ -1539,9 +1542,9 @@ sub SSCam_Get($@) { } } elsif ($opt eq "snapinfo" && SSCam_IsModelCam($hash)) { - # Schnappschußgalerie abrufen (snapGalleryBoost) oder nur Info des letzten Snaps + # Schnappschußgalerie abrufen oder nur Info des letzten Snaps if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";} - my ($slim,$ssize) = SSCam_snaplimsize($hash); + my ($slim,$ssize) = SSCam_snaplimsize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} gesetzt ! SSCam_getsnapinfo("$name:$slim:$ssize"); } elsif ($opt eq "snapfileinfo" && SSCam_IsModelCam($hash)) { @@ -1875,9 +1878,9 @@ sub SSCam_initonboot ($) { SSCam_getptzlistpreset($hash); SSCam_getptzlistpatrol($hash); - # Schnappschußgalerie abrufen (snapGalleryBoost) oder nur Info des letzten Snaps - my ($slim,$ssize) = SSCam_snaplimsize($hash); - RemoveInternalTimer("SSCam_getsnapinfo"); + # Schnappschußgalerie abrufen oder nur Info des letzten Snaps + my ($slim,$ssize) = SSCam_snaplimsize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen ! + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+0.9, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); } SSCam_versionCheck($hash); # Einstieg in regelmäßigen Check Kompatibilität @@ -3244,8 +3247,8 @@ sub SSCam_getcaminfoall ($$) { InternalTimer(gettimeofday()+1.4, "SSCam_getstreamformat", $hash, 0); # Schnappschußgalerie abrufen (snapGalleryBoost) oder nur Info des letzten Snaps - my ($slim,$ssize) = SSCam_snaplimsize($hash); - RemoveInternalTimer("SSCam_getsnapinfo"); + my ($slim,$ssize) = SSCam_snaplimsize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen ! + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+1.5, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); RemoveInternalTimer($hash, "SSCam_getptzlistpreset"); @@ -3292,6 +3295,10 @@ return; ########################################################################### # Infos zu Snaps abfragen (z.B. weil nicht über SSCam ausgelöst) +# +# $slim = Anzahl der abzurufenden Snapinfos (snaps) +# $ssize = Snapgröße +# $tac = Transaktionscode (für gemeinsamen Versand) ########################################################################### sub SSCam_getsnapinfo ($) { my ($str) = @_; @@ -3302,7 +3309,7 @@ sub SSCam_getsnapinfo ($) { $tac = (defined $tac)?$tac:5000; my $ta = $hash->{HELPER}{TRANSACTION}; - RemoveInternalTimer("SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off" || ((defined $ta) && $ta == $tac)) { @@ -4455,9 +4462,11 @@ sub SSCam_camop ($) { my $keyword = $hash->{HELPER}{KEYWORD}; my $snapid = ReadingsVal("$name", "LastSnapId", " "); if($OpMode eq "getsnapinfo" && $snapid =~/\d+/) { + # getsnapinfo UND Reading LastSnapId gesetzt Log3($name,4, "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Id => $snapid"); $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&idList=\"$snapid\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\""; } else { + # snapgallery oder kein Reading LastSnapId gesetzt Log3($name,4, "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Keyword => $keyword"); $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&keyword=\"$keyword\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\""; } @@ -5213,7 +5222,7 @@ sub SSCam_camop_parse ($) { SSCam_delActiveToken($hash); } - RemoveInternalTimer("SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "SSCam_getsnapinfo"); InternalTimer(gettimeofday()+0.6, "SSCam_getsnapinfo", "$name:$slim:$ssize:$tac", 0); return; @@ -6612,9 +6621,12 @@ return $bool; ############################################################################### # Ermittlung Anzahl und Größe der abzurufenden Schnappschußdaten +# +# $force = wenn auf jeden Fall der/die letzten Snaps von der SVS +# abgerufen werden sollen unabhängig ob LastSnapId vorhanden ist ############################################################################### -sub SSCam_snaplimsize ($) { - my ($hash)= @_; +sub SSCam_snaplimsize ($;$) { + my ($hash,$force) = @_; my $name = $hash->{NAME}; my ($slim,$ssize); @@ -6647,6 +6659,8 @@ sub SSCam_snaplimsize ($) { Log3($name, 4, "$name - Streaming devs of type \"lastsnap\": @strmdevs"); } + $hash->{HELPER}{GETSNAPGALLERY} = 1 if($force); # Bugfix 04.03.2019 Forum:https://forum.fhem.de/index.php/topic,45671.msg914685.html#msg914685 + return ($slim,$ssize); } @@ -8814,6 +8828,8 @@ return ($str); # Hint Hash EN ############################################################################################# %SSCam_vHintsExt_en = ( + "8" => "Link to official Surveillance Forum in Synology communiy". + "

", "7" => "Setup Email Shipping
". "====================

". "Snapshots can be sent by Email alltogether after creation. For this purpose the module contains
". @@ -8872,6 +8888,8 @@ return ($str); # Hint Hash DE ############################################################################################# %SSCam_vHintsExt_de = ( + "8" => "Link zur offiziellen Surveillance Forum Seite innerhalb der Synology Communiy". + "

", "7" => "Einstellung Email-Versand
". "=========================

". "Schnappschüsse können nach der Erstellung per Email gemeinsam versendet werden. Dazu enthält das Modul einen
". @@ -9722,6 +9740,10 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR The video format of the camera has to be set to H.264 in the Synology Surveillance Station and not every camera type is a proper device for HLS-Streaming. At the time only the Mac Safari Browser and modern mobile iOS/Android-Devices are able to playback HLS-Streams. +

+ + Note for MJPEG:
+ The MJPEG stream is SVS internal transcoded from other codec and is usally only about 1 fps.

@@ -11479,6 +11501,10 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR Die Kamera muss in der SVS auf das Videoformat H.264 eingestellt sein und nicht jeder Kameratyp ist gleichermassen für HLS-Streaming geeignet. Momentan kann HLS nur durch den Mac Safari Browser sowie auf mobilen iOS/Android-Geräten wiedergegeben werden. +

+ + Hinweis zu MJPEG:
+ Der MJPEG Stream wird innerhalb der SVS aus anderen Codecs (H.264) transkodiert und beträgt normalerweise ca. 1 Fps.