"; + } elsif ($opt =~ /versionNotes/) { + my $header = "Module release information
"; my $header1 = "Helpful hints
"; my %hs; - - # Ausgabetabelle erstellen - my ($ret,$val0,$val1); + + # Ausgabetabelle erstellen + my ($ret,$val0,$val1); my $i = 0; - + $ret = ""; # Hints @@ -1808,20 +1912,20 @@ sub SSCam_Get { my @hints = split(",",$arg); foreach (@hints) { if(AttrVal("global","language","EN") eq "DE") { - $hs{$_} = $SSCam_vHintsExt_de{$_}; + $hs{$_} = $vHintsExt_de{$_}; } else { - $hs{$_} = $SSCam_vHintsExt_en{$_}; + $hs{$_} = $vHintsExt_en{$_}; } } } else { if(AttrVal("global","language","EN") eq "DE") { - %hs = %SSCam_vHintsExt_de; + %hs = %vHintsExt_de; } else { - %hs = %SSCam_vHintsExt_en; + %hs = %vHintsExt_en; } } $i = 0; - foreach my $key (SSCam_sortVersion("desc",keys %hs)) { + foreach my $key (sortVersion("desc",keys %hs)) { $val0 = $hs{$key}; $ret .= sprintf("
$header
"); @@ -1846,8 +1950,8 @@ sub SSCam_Get { $ret .= ""; $ret .= "";
$i = 0;
- foreach my $key (SSCam_sortVersion("desc",keys %SSCam_vNotesExtern)) {
- ($val0,$val1) = split(/\s/,$SSCam_vNotesExtern{$key},2);
+ foreach my $key (sortVersion("desc",keys %vNotesExtern)) {
+ ($val0,$val1) = split(/\s/,$vNotesExtern{$key},2);
$ret .= sprintf("$key $val0 $val1 " );
$ret .= " ";
$i++;
@@ -1862,15 +1966,15 @@ sub SSCam_Get {
$ret .= "";
$ret .= "";
$ret .= "
";
- }
+ }
$ret .= "";
-
- return $ret;
+
+ return $ret;
} else {
return "$getlist";
- }
+ }
return $ret; # not generate trigger out of command
}
@@ -1880,7 +1984,7 @@ return $ret; # not generate trigger out of command
######################################################################################
# wird von FW aufgerufen. $FW_wname = aufrufende Webinstanz, $d = aufrufendes
# Device (z.B. CamCP1)
-sub SSCam_FWsummaryFn {
+sub FWsummaryFn {
my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn in FHEMWEB
my $hash = $defs{$d};
my $name = $hash->{NAME};
@@ -1917,24 +2021,24 @@ sub SSCam_FWsummaryFn {
my $imgdosnap = ""); @@ -1846,8 +1950,8 @@ sub SSCam_Get { $ret .= ""; $ret .= "
![](\"$FW_ME/www/images/sscam/black_btn_DOSNAP.png\")
";
my $attr = AttrVal($d, "htmlattr", " ");
- Log3($name, 4, "$name - SSCam_FWsummaryFn called - FW_wname: $FW_wname, device: $d, room: $room, attributes: $attr");
+ Log3($name, 4, "$name - FWsummaryFn called - FW_wname: $FW_wname, device: $d, room: $room, attributes: $attr");
# Javascript Bibliothek für Tooltips (http://www.walterzorn.de/tooltip/tooltip.htm#download) und Texte
my $calias = $hash->{CAMNAME}; # Alias der Kamera
my $ttjs = "/fhem/pgm2/sscam_tooltip.js";
my ($ttrefresh, $ttrecstart, $ttrecstop, $ttsnap, $ttcmdstop, $tthlsreact, $ttmjpegrun, $tthlsrun, $ttlrrun, $tth264run, $ttlmjpegrun, $ttlsnaprun);
if(AttrVal("global","language","EN") =~ /EN/) {
- $ttrecstart = $SSCam_ttips_en{"ttrecstart"}; $ttrecstart =~ s/§NAME§/$calias/g;
- $ttrecstop = $SSCam_ttips_en{"ttrecstop"}; $ttrecstop =~ s/§NAME§/$calias/g;
- $ttsnap = $SSCam_ttips_en{"ttsnap"}; $ttsnap =~ s/§NAME§/$calias/g;
- $ttcmdstop = $SSCam_ttips_en{"ttcmdstop"}; $ttcmdstop =~ s/§NAME§/$calias/g;
- $tthlsreact = $SSCam_ttips_en{"tthlsreact"}; $tthlsreact =~ s/§NAME§/$calias/g;
+ $ttrecstart = $ttips_en{"ttrecstart"}; $ttrecstart =~ s/§NAME§/$calias/g;
+ $ttrecstop = $ttips_en{"ttrecstop"}; $ttrecstop =~ s/§NAME§/$calias/g;
+ $ttsnap = $ttips_en{"ttsnap"}; $ttsnap =~ s/§NAME§/$calias/g;
+ $ttcmdstop = $ttips_en{"ttcmdstop"}; $ttcmdstop =~ s/§NAME§/$calias/g;
+ $tthlsreact = $ttips_en{"tthlsreact"}; $tthlsreact =~ s/§NAME§/$calias/g;
} else {
- $ttrecstart = $SSCam_ttips_de{"ttrecstart"}; $ttrecstart =~ s/§NAME§/$calias/g;
- $ttrecstop = $SSCam_ttips_de{"ttrecstop"}; $ttrecstop =~ s/§NAME§/$calias/g;
- $ttsnap = $SSCam_ttips_de{"ttsnap"}; $ttsnap =~ s/§NAME§/$calias/g;
- $ttcmdstop = $SSCam_ttips_de{"ttcmdstop"}; $ttcmdstop =~ s/§NAME§/$calias/g;
- $tthlsreact = $SSCam_ttips_de{"tthlsreact"}; $tthlsreact =~ s/§NAME§/$calias/g;
+ $ttrecstart = $ttips_de{"ttrecstart"}; $ttrecstart =~ s/§NAME§/$calias/g;
+ $ttrecstop = $ttips_de{"ttrecstop"}; $ttrecstop =~ s/§NAME§/$calias/g;
+ $ttsnap = $ttips_de{"ttsnap"}; $ttsnap =~ s/§NAME§/$calias/g;
+ $ttcmdstop = $ttips_de{"ttcmdstop"}; $ttcmdstop =~ s/§NAME§/$calias/g;
+ $tthlsreact = $ttips_de{"tthlsreact"}; $tthlsreact =~ s/§NAME§/$calias/g;
}
$ret .= "";
@@ -1954,7 +2058,7 @@ sub SSCam_FWsummaryFn {
} else {
# Aufnahmebutton Stop
$ret .= "$imgrecstop ";
- }
+ }
$ret .= "$imgdosnap ";
}
$ret .= ""; @@ -2012,7 +2116,7 @@ sub SSCam_FWsummaryFn { } else { # Aufnahmebutton Stop $ret .= "$imgrecstop "; - } + } $ret .= "$imgdosnap "; } elsif($wltype eq "video") { @@ -2038,19 +2142,19 @@ return $ret; ###################################################################################### # Detailanzeige ###################################################################################### -sub SSCam_FWdetailFn { +sub FWdetailFn { my ($FW_wname, $name, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$name}; my $ret = ""; - SSCam_checkIconpath ($name, $FW_wname); + checkIconpath ($name, $FW_wname); - $hash->{".setup"} = SSCam_FWconfCam($name,$room); + $hash->{".setup"} = FWconfCam($name,$room); if($hash->{".setup"} ne "") { $ret .= $hash->{".setup"}; } - $hash->{".ptzhtml"} = SSCam_ptzpanel($name,$name) if($hash->{".ptzhtml"} eq ""); + $hash->{".ptzhtml"} = ptzPanel($name,$name) if($hash->{".ptzhtml"} eq ""); if($hash->{".ptzhtml"} ne "" && AttrVal($name,"ptzPanel_use",1)) { $ret .= $hash->{".ptzhtml"}; @@ -2062,7 +2166,7 @@ return $ret; ############################################################################### # Aufruf Konfigseite Kamera ############################################################################### -sub SSCam_FWconfCam { +sub FWconfCam { my ($name,$room) = @_; my $hash = $defs{$name}; my $cip = ReadingsVal("$name","CamIP",""); @@ -2079,30 +2183,30 @@ sub SSCam_FWconfCam { my ($ret,$cexpl,$hexpl) = ("","",""); my ($cs,$bs,$ch,$bh,); - if(SSCam_IsModelCam($hash)) { # Camera Device + if(IsModelCam($hash)) { # Camera Device return $ret if(!$cip); if(AttrVal("global","language","EN") =~ /DE/) { - $cexpl = $SSCam_ttips_de{confcam}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; + $cexpl = $ttips_de{confcam}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; } else { - $cexpl = $SSCam_ttips_en{confcam}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; + $cexpl = $ttips_en{confcam}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; } $cs = "window.open('http://$cip')"; } else { # SVS-Device return $ret if(!$svsip); if(AttrVal("global","language","EN") =~ /DE/) { - $cexpl = $SSCam_ttips_de{confsvs}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; + $cexpl = $ttips_de{confsvs}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; } else { - $cexpl = $SSCam_ttips_en{confsvs}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; + $cexpl = $ttips_en{confsvs}; $cexpl =~ s/§NAME§/$alias/g; $cexpl =~ s/\s+/ /g; } $cs = "window.open('$svsprot://$svsip:$svsport/cam')"; } if(AttrVal("global","language","EN") =~ /DE/) { - $hexpl = $SSCam_ttips_de{"helpsvs"}; $hexpl =~ s/\s/ /g; + $hexpl = $ttips_de{"helpsvs"}; $hexpl =~ s/\s/ /g; $ch = "window.open('https://www.synology.com/de-de/knowledgebase/Surveillance/help')"; } else { - $hexpl = $SSCam_ttips_en{"helpsvs"}; $hexpl =~ s/\s/ /g; + $hexpl = $ttips_en{"helpsvs"}; $hexpl =~ s/\s/ /g; $ch = "window.open('https://www.synology.com/en-global/knowledgebase/Surveillance/help')"; } @@ -2134,11 +2238,11 @@ return $ret; ###################################################################################### # initiale Startroutinen nach Restart FHEM ###################################################################################### -sub SSCam_initonboot { +sub initOnBoot { my ($hash) = @_; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_initonboot"); + RemoveInternalTimer($hash, "FHEM::SSCam::initOnBoot"); if ($init_done == 1) { RemoveInternalTimer($hash); # alle Timer löschen @@ -2148,7 +2252,7 @@ sub SSCam_initonboot { # check ob alle Recordings = "Stop" nach Reboot -> sonst stoppen if (ReadingsVal($hash->{NAME}, "Record", "Stop") eq "Start") { Log3($name, 2, "$name - Recording of $hash->{CAMNAME} seems to be still active after FHEM restart - try to stop it now"); - SSCam_camstoprec($hash); + camStopRec($hash); } # Konfiguration der Synology Surveillance Station abrufen @@ -2157,32 +2261,32 @@ sub SSCam_initonboot { } else { readingsSingleUpdate($hash, "compstate", "true", 0); # Anfangswert f. versionCheck setzen # allg. SVS-Eigenschaften abrufen - SSCam_getsvsinfo($hash); + getSvsInfo($hash); - if(SSCam_IsModelCam($hash)) { - # Kameraspezifische Infos holen - SSCam_getcaminfo($hash); - SSCam_getcapabilities($hash); - SSCam_getStmUrlPath($hash); + if(IsModelCam($hash)) { + # Kameraspezifische Infos holen + getCamInfo($hash); + getCapabilities($hash); + getStmUrlPath($hash); - # Preset/Patrollisten in Hash einlesen zur PTZ-Steuerung - SSCam_getptzlistpreset($hash); - SSCam_getptzlistpatrol($hash); + # Preset/Patrollisten in Hash einlesen zur PTZ-Steuerung + getPtzPresetList($hash); + getPtzPatrolList($hash); # 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 + my ($slim,$ssize) = snapLimSize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen ! + RemoveInternalTimer ($hash, "FHEM::SSCam::getSnapInfo"); + InternalTimer (gettimeofday()+0.9, "FHEM::SSCam::getSnapInfo", "$name:$slim:$ssize", 0); + } + versionCheck($hash); # Einstieg in regelmäßigen Check Kompatibilität } # Subroutine Watchdog-Timer starten (sollen Cam-Infos regelmäßig abgerufen werden ?), verzögerter zufälliger Start 0-30s - RemoveInternalTimer($hash, "SSCam_wdpollcaminfo"); - InternalTimer(gettimeofday()+int(rand(30)), "SSCam_wdpollcaminfo", $hash, 0); + RemoveInternalTimer($hash, "FHEM::SSCam::wdpollcaminfo"); + InternalTimer(gettimeofday()+int(rand(30)), "FHEM::SSCam::wdpollcaminfo", $hash, 0); } else { - InternalTimer(gettimeofday()+3, "SSCam_initonboot", $hash, 0); + InternalTimer(gettimeofday()+3, "FHEM::SSCam::initOnBoot", $hash, 0); } return; } @@ -2190,12 +2294,12 @@ return; ############################################################################### # Dauerschleife Kompatibilitätscheck SSCam <-> SVS ############################################################################### -sub SSCam_versionCheck { - my ($hash) = @_; - my $name = $hash->{NAME}; - my $rc = 21600; +sub versionCheck { + my $hash = shift; + my $name = $hash->{NAME}; + my $rc = 21600; - RemoveInternalTimer($hash, "SSCam_versionCheck"); + RemoveInternalTimer($hash, "FHEM::SSCam::versionCheck"); return if(IsDisabled($name)); my $cs = ReadingsVal($name, "compstate", "true"); @@ -2205,7 +2309,7 @@ sub SSCam_versionCheck { "For further information execute \"get $name versionNotes 4\"."); } -InternalTimer(gettimeofday()+$rc, "SSCam_versionCheck", $hash, 0); +InternalTimer(gettimeofday()+$rc, "FHEM::SSCam::versionCheck", $hash, 0); return; } @@ -2213,10 +2317,10 @@ return; ############################################################################### # Liefert die bereinigte SVS-Version dreistellig xxx ############################################################################### -sub SSCam_myVersion { - my ($hash) = @_; - my $name = $hash->{NAME}; - my $actvs = 0; +sub myVersion { + my $hash = shift; + my $name = $hash->{NAME}; + my $actvs = 0; my @vl = split (/-/,ReadingsVal($name, "SVSversion", ""),2); if(@vl) { @@ -2232,7 +2336,7 @@ return $actvs; # $cre = "svs" -> Credentials für SVS und Cams # $cre = "smtp" -> Credentials für Mailversand ###################################################################################### -sub SSCam_setcredentials { +sub setCredentials { my ($hash, $cre, @credentials) = @_; my $name = $hash->{NAME}; my ($success, $credstr, $index, $retcode); @@ -2258,7 +2362,7 @@ sub SSCam_setcredentials { Log3($name, 2, "$name - Error while saving the Credentials - $retcode"); $success = 0; } else { - SSCam_getcredentials($hash,1,$cre); # Credentials nach Speicherung lesen und in RAM laden ($boot=1), $ao = credentials oder SMTPcredentials + getCredentials($hash,1,$cre); # Credentials nach Speicherung lesen und in RAM laden ($boot=1), $ao = credentials oder SMTPcredentials $success = 1; } @@ -2270,7 +2374,7 @@ return ($success); # $cre = "svs" -> Credentials für SVS und Cams # $cre = "smtp" -> Credentials für Mailversand ###################################################################################### -sub SSCam_getcredentials { +sub getCredentials { my ($hash,$boot, $cre) = @_; my $name = $hash->{NAME}; my ($success, $username, $passwd, $index, $retcode, $credstr); @@ -2345,7 +2449,7 @@ return ($success, $username, $passwd); ###################################################################################### # Polling Überwachung ###################################################################################### -sub SSCam_wdpollcaminfo { +sub wdpollcaminfo { # Überwacht die Wert von Attribut "pollcaminfoall" und Reading "PollState" # wenn Attribut "pollcaminfoall" > 10 und "PollState"=Inactive -> start Polling my ($hash) = @_; @@ -2356,7 +2460,7 @@ sub SSCam_wdpollcaminfo { my $watchdogtimer = 60+rand(30); my $lang = AttrVal("global","language","EN"); - RemoveInternalTimer($hash, "SSCam_wdpollcaminfo"); + RemoveInternalTimer($hash, "FHEM::SSCam::wdpollcaminfo"); # Poll-Logging prüfen if ($hash->{HELPER}{OLDVALPOLLNOLOGGING} != $pnl) { @@ -2372,10 +2476,10 @@ sub SSCam_wdpollcaminfo { if ($pcia && !IsDisabled($name)) { if(ReadingsVal($name, "PollState", "Active") eq "Inactive") { readingsSingleUpdate($hash,"PollState","Active",1); # Polling ist jetzt aktiv - readingsSingleUpdate($hash,"state","polling",1) if(!SSCam_IsModelCam($hash)); # Polling-state bei einem SVS-Device setzten - Log3($name, 3, "$name - Polling of $camname is activated - Pollinginterval: $pcia s"); + readingsSingleUpdate($hash,"state","polling",1) if(!IsModelCam($hash)); # Polling-state bei einem SVS-Device setzten + Log3($name, 3, "$name - Polling of $camname is activated - Pollinginterval: $pcia s"); $hash->{HELPER}{OLDVALPOLL} = $pcia; # in $hash eintragen für späteren Vergleich (Changes von pollcaminfoall) - SSCam_getcaminfoall($hash,0); + getCaminfoAll($hash,0); } my $lupd = ReadingsVal($name, "LastUpdateTime", "1970-01-01 / 01:00:00"); @@ -2387,7 +2491,7 @@ sub SSCam_wdpollcaminfo { } $lupd = fhemTimeLocal($sec, $min, $hour, $mday, $month-=1, $year-=1900); if( gettimeofday() > ($lupd + $pcia + 20) ) { - SSCam_getcaminfoall($hash,0); + getCaminfoAll($hash,0); } } @@ -2399,7 +2503,7 @@ sub SSCam_wdpollcaminfo { } } -InternalTimer(gettimeofday()+$watchdogtimer, "SSCam_wdpollcaminfo", $hash, 0); +InternalTimer(gettimeofday()+$watchdogtimer, "FHEM::SSCam::wdpollcaminfo", $hash, 0); return undef; } @@ -2413,14 +2517,14 @@ return undef; ############################################################################### # Kamera Aufnahme starten ############################################################################### -sub SSCam_camstartrec { +sub camStartRec { my ($str) = @_; - my ($name,$emtxt,$teletxt,$chattxt) = split("!_!",$str); - my $hash = $defs{$name}; + my ($name,$emtxt,$teletxt,$chattxt) = split("!_!",$str); + my $hash = $defs{$name}; my $camname = $hash->{CAMNAME}; my ($errorcode,$error); - RemoveInternalTimer($hash, "SSCam_camstartrec"); + RemoveInternalTimer($hash, "camStartRec"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2431,7 +2535,7 @@ sub SSCam_camstartrec { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate ($hash); @@ -2452,9 +2556,9 @@ sub SSCam_camstartrec { if ($hash->{HELPER}{ACTIVE} eq "off") { # Aufnahme starten $hash->{OPMODE} = "Start"; - $hash->{HELPER}{LOGINRETRIES} = 0; - - if($emtxt || $teletxt || $chattxt) { + $hash->{HELPER}{LOGINRETRIES} = 0; + + if($emtxt || $teletxt || $chattxt) { $hash->{HELPER}{CANSENDREC} = 1 if($emtxt); # Versand Aufnahme soll per Email erfolgen $hash->{HELPER}{CANTELEREC} = 1 if($teletxt); # Versand Aufnahme soll per TelegramBot erfolgen $hash->{HELPER}{CANCHATREC} = 1 if($chattxt); # Versand Aufnahme soll per SSChatBot erfolgen @@ -2462,26 +2566,26 @@ sub SSCam_camstartrec { $hash->{HELPER}{TELERECMSG} = $teletxt if($teletxt); # Text für Telegram-Versand $hash->{HELPER}{CHATRECMSG} = $chattxt if($chattxt); # Text für Synology Chat-Versand } - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.3, "SSCam_camstartrec", "$name!_!$emtxt!_!$teletxt!_!$chattxt", 0); + } else { + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camStartRec", "$name!_!$emtxt!_!$teletxt!_!$chattxt", 0); } } ############################################################################### # Kamera Aufnahme stoppen ############################################################################### -sub SSCam_camstoprec { +sub camStopRec { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_camstoprec"); + RemoveInternalTimer($hash, "FHEM::SSCam::camStopRec"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2492,7 +2596,7 @@ sub SSCam_camstoprec { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -2513,25 +2617,25 @@ sub SSCam_camstoprec { $hash->{OPMODE} = "Stop"; $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.3, "SSCam_camstoprec", $hash, 0); + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camStopRec", $hash, 0); } } ############################################################################### # Kamera Auto / Day / Nightmode setzen ############################################################################### -sub SSCam_camexpmode { +sub camExpmode { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_camexpmode"); + RemoveInternalTimer($hash, "FHEM::SSCam::camExpmode"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2542,7 +2646,7 @@ sub SSCam_camexpmode { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -2557,26 +2661,26 @@ sub SSCam_camexpmode { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "ExpMode"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.5, "SSCam_camexpmode", $hash, 0); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camExpmode", $hash, 0); } } ############################################################################### # Art der Bewegungserkennung setzen ############################################################################### -sub SSCam_cammotdetsc { +sub amMotDetSc { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_cammotdetsc"); + RemoveInternalTimer($hash, "FHEM::SSCam::amMotDetSc"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2587,7 +2691,7 @@ sub SSCam_cammotdetsc { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -2602,12 +2706,12 @@ sub SSCam_cammotdetsc { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "MotDetSc"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.5, "SSCam_cammotdetsc", $hash, 0); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::amMotDetSc", $hash, 0); } } @@ -2617,10 +2721,10 @@ sub SSCam_cammotdetsc { # $lag = Zeit zwischen zwei Schnappschüssen # $ncount = Anzahl der Schnappschüsse zum rnterzählen ############################################################################### -sub SSCam_camsnap { +sub camSnap { my $str = shift; - my ($name,$num,$lag,$ncount,$emtxt,$teletxt,$chattxt,$tac) = split("!_!",$str); - my $hash = $defs{$name}; + my ($name,$num,$lag,$ncount,$emtxt,$teletxt,$chattxt,$tac) = split("!_!",$str); + my $hash = $defs{$name}; my $camname = $hash->{CAMNAME}; my $errorcode; my $error; @@ -2628,7 +2732,7 @@ sub SSCam_camsnap { $tac = (defined $tac)?$tac:5000; my $ta = $hash->{HELPER}{TRANSACTION}; - RemoveInternalTimer($hash, "SSCam_camsnap"); + RemoveInternalTimer($hash, "FHEM::SSCam::camSnap"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2639,7 +2743,7 @@ sub SSCam_camsnap { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate ($hash); @@ -2657,33 +2761,33 @@ sub SSCam_camsnap { $hash->{OPMODE} = "Snap"; $hash->{HELPER}{LOGINRETRIES} = 0; $hash->{HELPER}{CANSENDSNAP} = 1 if($emtxt); # Versand Schnappschüsse soll per Email erfolgen - $hash->{HELPER}{CANTELESNAP} = 1 if($teletxt); # Versand Schnappschüsse soll per TelegramBot erfolgen + $hash->{HELPER}{CANTELESNAP} = 1 if($teletxt); # Versand Schnappschüsse soll per TelegramBot erfolgen $hash->{HELPER}{CANCHATSNAP} = 1 if($chattxt); # Versand Schnappschüsse soll per SSChatBot erfolgen $hash->{HELPER}{SNAPNUM} = $num if($num); # Gesamtzahl der auszulösenden Schnappschüsse $hash->{HELPER}{SNAPLAG} = $lag if($lag); # Zeitverzögerung zwischen zwei Schnappschüssen $hash->{HELPER}{SNAPNUMCOUNT} = $ncount if($ncount); # Restzahl der auszulösenden Schnappschüsse (wird runtergezählt) $hash->{HELPER}{SMTPMSG} = $emtxt if($emtxt); # Text für Email-Versand - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + getApiSites($hash); + } else { $tac = (defined $tac)?$tac:""; - InternalTimer(gettimeofday()+0.3, "SSCam_camsnap", "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac", 0); + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camSnap", "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac", 0); } } ############################################################################### # Kamera gemachte Aufnahme abrufen ############################################################################### -sub SSCam_getrec { +sub getRec { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_getrec"); + RemoveInternalTimer($hash, "FHEM::SSCam::getRec"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2694,7 +2798,7 @@ sub SSCam_getrec { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -2711,25 +2815,25 @@ sub SSCam_getrec { $hash->{OPMODE} = "GetRec"; $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.3, "SSCam_getrec", $hash, 0); + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::getRec", $hash, 0); } } ############################################################################### # Kamera gemachte Aufnahme lokal speichern ############################################################################### -sub SSCam_getsaverec { +sub getRecAndSave { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_getsaverec"); + RemoveInternalTimer($hash, "FHEM::SSCam::getRecAndSave"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2740,7 +2844,7 @@ sub SSCam_getsaverec { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -2757,25 +2861,25 @@ sub SSCam_getsaverec { $hash->{OPMODE} = "SaveRec"; $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.3, "SSCam_getsaverec", $hash, 0); + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::getRecAndSave", $hash, 0); } } ############################################################################### # Start Object Tracking ############################################################################### -sub SSCam_starttrack { +sub startTrack { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_starttrack"); + RemoveInternalTimer($hash, "FHEM::SSCam::startTrack"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2786,7 +2890,7 @@ sub SSCam_starttrack { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -2801,26 +2905,26 @@ sub SSCam_starttrack { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "startTrack"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.9, "SSCam_starttrack", $hash, 0); + InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::startTrack", $hash, 0); } } ############################################################################### # Stopp Object Tracking ############################################################################### -sub SSCam_stoptrack { +sub stopTrack { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_stoptrack"); + RemoveInternalTimer($hash, "FHEM::SSCam::stopTrack"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2831,7 +2935,7 @@ sub SSCam_stoptrack { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate ($hash,"Errorcode",$errorcode); @@ -2846,12 +2950,12 @@ sub SSCam_stoptrack { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "stopTrack"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.9, "SSCam_stoptrack", $hash, 0); + InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::stopTrack", $hash, 0); } } @@ -2859,15 +2963,15 @@ sub SSCam_stoptrack { # Zoom starten / stoppen # $op = + / stop / - ############################################################################### -sub SSCam_setZoom { +sub setZoom { my $str = shift; my ($name,$op) = split("!_!",$str); - my $hash = $defs{$name}; + my $hash = $defs{$name}; my $camname = $hash->{CAMNAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_setZoom"); + RemoveInternalTimer($hash, "FHEM::SSCam::setZoom"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2878,7 +2982,7 @@ sub SSCam_setZoom { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate ($hash,"Errorcode",$errorcode); @@ -2891,35 +2995,35 @@ sub SSCam_setZoom { } if ($hash->{HELPER}{ACTIVE} eq "off") { - $hash->{HELPER}{ZOOM}{DIR} = $zd{$op}{dir} // $hash->{HELPER}{ZOOM}{DIR}; # Richtung (in / out) - $hash->{HELPER}{ZOOM}{MOVETYPE} = $zd{$op}{moveType}; # Start / Stop - $hash->{HELPER}{ZOOM}{STOPTIME} = $zd{$op}{sttime}; # Stopzeit -> Verzögerungszeit für Stop nach Start + $hash->{HELPER}{ZOOM}{DIR} = $zd{$op}{dir} // $hash->{HELPER}{ZOOM}{DIR}; # Richtung (in / out) + $hash->{HELPER}{ZOOM}{MOVETYPE} = $zd{$op}{moveType}; # Start / Stop + $hash->{HELPER}{ZOOM}{STOPTIME} = $zd{$op}{sttime}; # Stopzeit -> Verzögerungszeit für Stop nach Start $hash->{OPMODE} = "setZoom"; $hash->{HELPER}{LOGINRETRIES} = 0; - return if(!$hash->{HELPER}{ZOOM}{DIR}); # es muss ! eine Richtung gesetzt sein - - InternalTimer(gettimeofday()+$zd{$op}{sttime}, "SSCam_setZoom", "$name!_!stop", 0) if($hash->{HELPER}{ZOOM}{MOVETYPE} ne "Stop"); + return if(!$hash->{HELPER}{ZOOM}{DIR}); # es muss ! eine Richtung gesetzt sein + + InternalTimer(gettimeofday()+$zd{$op}{sttime}, "FHEM::SSCam::setZoom", "$name!_!stop", 0) if($hash->{HELPER}{ZOOM}{MOVETYPE} ne "Stop"); + + setActiveToken($hash); + getApiSites ($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites ($hash); - } else { - InternalTimer(gettimeofday()+0.8, "SSCam_setZoom", $str, 0); + InternalTimer(gettimeofday()+0.8, "FHEM::SSCam::setZoom", $str, 0); } } ############################################################################### # Preset-Array abrufen ############################################################################### -sub SSCam_getpresets { +sub getPresets { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_getpresets"); + RemoveInternalTimer($hash, "FHEM::SSCam::getPresets"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2930,7 +3034,7 @@ sub SSCam_getpresets { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -2945,27 +3049,27 @@ sub SSCam_getpresets { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getPresets"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1.2, "SSCam_getpresets", $hash, 0); + InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::getPresets", $hash, 0); } } ############################################################################### # einen Preset setzen ############################################################################### -sub SSCam_setPreset { +sub setPreset { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_setPreset"); + RemoveInternalTimer($hash, "FHEM::SSCam::setPreset"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -2976,7 +3080,7 @@ sub SSCam_setPreset { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate ($hash,"Errorcode",$errorcode); @@ -2991,26 +3095,26 @@ sub SSCam_setPreset { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "setPreset"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites ($hash); - + + setActiveToken($hash); + getApiSites ($hash); + } else { - InternalTimer(gettimeofday()+1.2, "SSCam_setPreset", $hash, 0); + InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::setPreset", $hash, 0); } } ############################################################################### # einen Preset löschen ############################################################################### -sub SSCam_delPreset { +sub delPreset { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_delPreset"); + RemoveInternalTimer($hash, "FHEM::SSCam::delPreset"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3021,7 +3125,7 @@ sub SSCam_delPreset { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3036,27 +3140,27 @@ sub SSCam_delPreset { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "delPreset"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1.4, "SSCam_delPreset", $hash, 0); + InternalTimer(gettimeofday()+1.4, "FHEM::SSCam::delPreset", $hash, 0); } } ############################################################################### # Preset Home setzen ############################################################################### -sub SSCam_setHome { +sub setHome { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_setHome"); + RemoveInternalTimer($hash, "FHEM::SSCam::setHome"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3067,7 +3171,7 @@ sub SSCam_setHome { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3082,27 +3186,27 @@ sub SSCam_setHome { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "setHome"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1.2, "SSCam_setHome", $hash, 0); + InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::setHome", $hash, 0); } } ############################################################################### # PIR Sensor aktivieren/deaktivieren ############################################################################### -sub SSCam_piract { +sub managePir { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_piract"); + RemoveInternalTimer($hash, "FHEM::SSCam::managePir"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3113,7 +3217,7 @@ sub SSCam_piract { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3128,27 +3232,27 @@ sub SSCam_piract { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "piract"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + setActiveToken($hash); + + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1.2, "SSCam_piract", $hash, 0); + InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::managePir", $hash, 0); } } ############################################################################### # Kamera Liveview starten ############################################################################### -sub SSCam_runliveview { +sub runLiveview { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_runliveview"); + RemoveInternalTimer($hash, "FHEM::SSCam::runLiveview"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3159,7 +3263,7 @@ sub SSCam_runliveview { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3173,30 +3277,30 @@ sub SSCam_runliveview { if ($hash->{HELPER}{ACTIVE} eq "off") { # Liveview starten $hash->{OPMODE} = "runliveview"; - $hash->{HELPER}{LOGINRETRIES} = 0; - # erzwingen die Camid zu ermitteln und bei login-Fehler neue SID zu holen - delete $hash->{CAMID}; + $hash->{HELPER}{LOGINRETRIES} = 0; + # erzwingen die Camid zu ermitteln und bei login-Fehler neue SID zu holen + delete $hash->{CAMID}; - SSCam_setActiveToken($hash); + setActiveToken($hash); readingsSingleUpdate($hash,"state","runView ".$hash->{HELPER}{RUNVIEW},1); - SSCam_getapisites($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_runliveview", $hash, 0); + } else { + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::runLiveview", $hash, 0); } } ############################################################################### # Kamera HLS-Stream aktivieren ############################################################################### -sub SSCam_hlsactivate { +sub activateHls { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_hlsactivate"); + RemoveInternalTimer($hash, "FHEM::SSCam::activateHls"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3207,7 +3311,7 @@ sub SSCam_hlsactivate { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3221,27 +3325,27 @@ sub SSCam_hlsactivate { if ($hash->{HELPER}{ACTIVE} eq "off") { # Aktivierung starten $hash->{OPMODE} = "activate_hls"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.3, "SSCam_hlsactivate", $hash, 0); + } else { + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::activateHls", $hash, 0); } } ############################################################################### # Kameras mit Autocreate erstellen ############################################################################### -sub SSCam_setAutocreate { +sub camAutocreate { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_setAutocreate"); + RemoveInternalTimer($hash, "FHEM::SSCam::camAutocreate"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3252,7 +3356,7 @@ sub SSCam_setAutocreate { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3265,27 +3369,27 @@ sub SSCam_setAutocreate { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "Autocreate"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+2.1, "SSCam_setAutocreate", $hash, 0); + } else { + InternalTimer(gettimeofday()+2.1, "FHEM::SSCam::camAutocreate", $hash, 0); } } ############################################################################### # HLS-Stream reaktivieren (stoppen & starten) ############################################################################### -sub SSCam_hlsreactivate { +sub reactivateHls { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_hlsreactivate"); + RemoveInternalTimer($hash, "FHEM::SSCam::reactivateHls"); return if(IsDisabled($name)); if (ReadingsVal("$name", "state", "") =~ /^dis.*/) { @@ -3296,7 +3400,7 @@ sub SSCam_hlsreactivate { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); @@ -3309,41 +3413,41 @@ sub SSCam_hlsreactivate { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "reactivate_hls"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.4, "SSCam_hlsreactivate", $hash, 0); + } else { + InternalTimer(gettimeofday()+0.4, "FHEM::SSCam::reactivateHls", $hash, 0); } } ############################################################################### # Kamera Liveview stoppen ############################################################################### -sub SSCam_stopliveview { +sub stopLiveview { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_stopliveview"); + RemoveInternalTimer($hash, "FHEM::SSCam::stopLiveview"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { # Liveview stoppen $hash->{OPMODE} = "stopliveview"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); + setActiveToken($hash); # Link aus Helper-hash löschen delete $hash->{HELPER}{LINK}; delete $hash->{HELPER}{AUDIOLINK}; - delete $hash->{HELPER}{ACTSTRM}; # sprechender Name des laufenden Streamtyps für SSCamSTRM + delete $hash->{HELPER}{ACTSTRM}; # sprechender Name des laufenden Streamtyps für SSCamSTRM # Reading LiveStreamUrl löschen delete($defs{$name}{READINGS}{LiveStreamUrl}) if ($defs{$name}{READINGS}{LiveStreamUrl}); @@ -3353,51 +3457,51 @@ sub SSCam_stopliveview { if($hash->{HELPER}{WLTYPE} eq "hls") { # HLS Stream war aktiv, Streaming beenden $hash->{OPMODE} = "stopliveview_hls"; - SSCam_getapisites($hash); + getApiSites($hash); } else { # kein HLS Stream - SSCam_refresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event - SSCam_delActiveToken($hash); + roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + delActiveToken($hash); } - - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_stopliveview", $hash, 0); + + } else { + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::stopLiveview", $hash, 0); } } ############################################################################### # external Event 1-10 auslösen ############################################################################### -sub SSCam_extevent { +sub extEvent { my ($hash) = @_; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_extevent"); + RemoveInternalTimer($hash, "FHEM::SSCam::extEvent"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "extevent"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_extevent", $hash, 0); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::extEvent", $hash, 0); } } ############################################################################### # PTZ-Kamera auf Position fahren ############################################################################### -sub SSCam_doptzaction { +sub doPtzAaction { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my $errorcode; my $error; - RemoveInternalTimer($hash, "SSCam_doptzaction"); + RemoveInternalTimer($hash, "FHEM::SSCam::doPtzAaction"); return if(IsDisabled($name)); if (ReadingsVal("$name", "DeviceType", "Camera") ne "PTZ") { @@ -3417,7 +3521,7 @@ sub SSCam_doptzaction { if (!defined($hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}})) { $errorcode = "600"; # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -3434,7 +3538,7 @@ sub SSCam_doptzaction { if (!defined($hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}})) { $errorcode = "600"; # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -3455,7 +3559,7 @@ sub SSCam_doptzaction { } # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); # Setreading readingsBeginUpdate($hash); @@ -3480,49 +3584,49 @@ sub SSCam_doptzaction { } $hash->{OPMODE} = $hash->{HELPER}{PTZACTION}; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); + setActiveToken($hash); - SSCam_getapisites($hash); + getApiSites($hash); } else { - InternalTimer(gettimeofday()+0.5, "SSCam_doptzaction", $hash, 0); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::doPtzAaction", $hash, 0); } } ############################################################################### # stoppen continued move ############################################################################### -sub SSCam_movestop { +sub moveStop { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_movestop"); + RemoveInternalTimer($hash, "FHEM::SSCam::moveStop"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "movestop"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + + setActiveToken($hash); + getApiSites($hash); } else { - InternalTimer(gettimeofday()+0.3, "SSCam_movestop", $hash, 0); + InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::moveStop", $hash, 0); } } ############################################################################### # Kamera aktivieren ############################################################################### -sub SSCam_camenable { +sub camEnable { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_camenable"); + RemoveInternalTimer($hash, "FHEM::SSCam::camEnable"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { @@ -3530,25 +3634,25 @@ sub SSCam_camenable { Log3($name, 4, "$name - Enable Camera $camname"); $hash->{OPMODE} = "Enable"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_camenable", $hash, 0); + } else { + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camEnable", $hash, 0); } } ############################################################################### # Kamera deaktivieren ############################################################################### -sub SSCam_camdisable { +sub camDisable { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_camdisable"); + RemoveInternalTimer($hash, "FHEM::SSCam::camDisable"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off" and ReadingsVal("$name", "Record", "Start") ne "Start") { @@ -3556,86 +3660,86 @@ sub SSCam_camdisable { Log3($name, 4, "$name - Disable Camera $camname"); $hash->{OPMODE} = "Disable"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_camdisable", $hash, 0); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camDisable", $hash, 0); } } ############################################################################### # Kamera alle Informationen abrufen (Get) bzw. Einstieg Polling ############################################################################### -sub SSCam_getcaminfoall { +sub getCaminfoAll { my ($hash,$mode) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; my ($now,$new); - RemoveInternalTimer($hash, "SSCam_getcaminfoall"); + RemoveInternalTimer($hash, "FHEM::SSCam::getCaminfoAll"); return if(IsDisabled($name)); - RemoveInternalTimer($hash, "SSCam_getsvsinfo"); - InternalTimer(gettimeofday()+1, "SSCam_getsvsinfo", $hash, 0); - - if(SSCam_IsModelCam($hash)) { - # Model ist CAM - RemoveInternalTimer($hash, "SSCam_geteventlist"); - InternalTimer(gettimeofday()+0.5, "SSCam_geteventlist", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getmotionenum"); - InternalTimer(gettimeofday()+0.6, "SSCam_getmotionenum", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getcaminfo"); - InternalTimer(gettimeofday()+0.9, "SSCam_getcaminfo", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getcapabilities"); - InternalTimer(gettimeofday()+1.3, "SSCam_getcapabilities", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getstreamformat"); - InternalTimer(gettimeofday()+1.4, "SSCam_getstreamformat", $hash, 0); + RemoveInternalTimer($hash, "FHEM::SSCam::getSvsInfo"); + InternalTimer(gettimeofday()+1, "FHEM::SSCam::getSvsInfo", $hash, 0); + + if(IsModelCam($hash)) { + # Model ist CAM + RemoveInternalTimer ($hash, "FHEM::SSCam::getEventList"); + InternalTimer (gettimeofday()+0.5, "FHEM::SSCam::getEventList", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getMotionEnum"); + InternalTimer (gettimeofday()+0.6, "FHEM::SSCam::getMotionEnum", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getCamInfo"); + InternalTimer (gettimeofday()+0.9, "FHEM::SSCam::getCamInfo", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getCapabilities"); + InternalTimer (gettimeofday()+1.3, "FHEM::SSCam::getCapabilities", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getStreamFormat"); + InternalTimer (gettimeofday()+1.4, "FHEM::SSCam::getStreamFormat", $hash, 0); # Schnappschußgalerie abrufen (snapGalleryBoost) 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()+1.5, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); - - RemoveInternalTimer($hash, "SSCam_getptzlistpreset"); - InternalTimer(gettimeofday()+1.6, "SSCam_getptzlistpreset", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getptzlistpatrol"); - InternalTimer(gettimeofday()+1.9, "SSCam_getptzlistpatrol", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getStmUrlPath"); - InternalTimer(gettimeofday()+2.1, "SSCam_getStmUrlPath", $hash, 0); + my ($slim,$ssize) = snapLimSize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen ! + RemoveInternalTimer ($hash, "FHEM::SSCam::getSnapInfo"); + InternalTimer (gettimeofday()+1.5, "FHEM::SSCam::getSnapInfo", "$name:$slim:$ssize", 0); + + RemoveInternalTimer ($hash, "FHEM::SSCam::getPtzPresetList"); + InternalTimer (gettimeofday()+1.6, "FHEM::SSCam::getPtzPresetList", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getPtzPatrolList"); + InternalTimer (gettimeofday()+1.9, "FHEM::SSCam::getPtzPatrolList", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getStmUrlPath"); + InternalTimer (gettimeofday()+2.1, "FHEM::SSCam::getStmUrlPath", $hash, 0); - } else { - # Model ist SVS - RemoveInternalTimer($hash, "SSCam_gethomemodestate"); - InternalTimer(gettimeofday()+0.7, "SSCam_gethomemodestate", $hash, 0); - RemoveInternalTimer($hash, "SSCam_getsvslog"); - InternalTimer(gettimeofday()+0.8, "SSCam_getsvslog", $hash, 0); + } else { + # Model ist SVS + RemoveInternalTimer ($hash, "FHEM::SSCam::getHomeModeState"); + InternalTimer (gettimeofday()+0.7, "FHEM::SSCam::getHomeModeState", $hash, 0); + RemoveInternalTimer ($hash, "FHEM::SSCam::getSvsLog"); + InternalTimer (gettimeofday()+0.8, "FHEM::SSCam::getSvsLog", $hash, 0); } - # wenn gesetzt = manuelle Abfrage + # wenn gesetzt = manuelle Abfrage # return if ($mode); # 24.03.2018 geänd. my $pcia = AttrVal($name,"pollcaminfoall",0); my $pnl = AttrVal($name,"pollnologging",0); if ($pcia) { $new = gettimeofday()+$pcia; - InternalTimer($new, "SSCam_getcaminfoall", $hash, 0); - - $now = FmtTime(gettimeofday()); + InternalTimer($new, "FHEM::SSCam::getCaminfoAll", $hash, 0); + + $now = FmtTime(gettimeofday()); $new = FmtTime(gettimeofday()+$pcia); - readingsSingleUpdate($hash,"state","polling",1) if(!SSCam_IsModelCam($hash)); # state für SVS-Device setzen - readingsSingleUpdate($hash,"PollState","Active - next time: $new",1); + readingsSingleUpdate($hash, "state", "polling", 1) if(!IsModelCam($hash)); # state für SVS-Device setzen + readingsSingleUpdate($hash, "PollState", "Active - next time: $new", 1); if (!$pnl) { Log3($name, 3, "$name - Polling now: $now , next Polling: $new"); } - } else { + } else { # Beenden Polling aller Caminfos - readingsSingleUpdate($hash,"PollState","Inactive",1); - readingsSingleUpdate($hash,"state","initialized",1) if(!SSCam_IsModelCam($hash)); # state für SVS-Device setzen + readingsSingleUpdate($hash, "PollState", "Inactive", 1); + readingsSingleUpdate($hash, "state", "initialized",1) if(!IsModelCam($hash)); # state für SVS-Device setzen Log3($name, 3, "$name - Polling of $camname is deactivated"); } return; @@ -3648,226 +3752,226 @@ return; # $ssize = Snapgröße # $tac = Transaktionscode (für gemeinsamen Versand) ########################################################################### -sub SSCam_getsnapinfo { - my ($str) = @_; - my ($name,$slim,$ssize,$tac) = split(":",$str); - my $hash = $defs{$name}; - my $camname = $hash->{CAMNAME}; +sub getSnapInfo { + my ($str) = @_; + my ($name,$slim,$ssize,$tac) = split(":",$str); + my $hash = $defs{$name}; + my $camname = $hash->{CAMNAME}; $tac = (defined $tac)?$tac:5000; my $ta = $hash->{HELPER}{TRANSACTION}; - RemoveInternalTimer($hash, "SSCam_getsnapinfo"); + RemoveInternalTimer($hash, "FHEM::SSCam::getSnapInfo"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off" || ((defined $ta) && $ta == $tac)) { $hash->{OPMODE} = "getsnapinfo"; - $hash->{OPMODE} = "getsnapgallery" if(exists($hash->{HELPER}{GETSNAPGALLERY})); + $hash->{OPMODE} = "getsnapgallery" if(exists($hash->{HELPER}{GETSNAPGALLERY})); $hash->{HELPER}{LOGINRETRIES} = 0; - $hash->{HELPER}{SNAPLIMIT} = $slim; # 0-alle Snapshots werden abgerufen und ausgewertet, sonst $slim - $hash->{HELPER}{SNAPIMGSIZE} = $ssize; # 0-Do not append image, 1-Icon size, 2-Full size - $hash->{HELPER}{KEYWORD} = $camname; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + $hash->{HELPER}{SNAPLIMIT} = $slim; # 0-alle Snapshots werden abgerufen und ausgewertet, sonst $slim + $hash->{HELPER}{SNAPIMGSIZE} = $ssize; # 0-Do not append image, 1-Icon size, 2-Full size + $hash->{HELPER}{KEYWORD} = $camname; + + setActiveToken($hash); + getApiSites($hash); + } else { $tac = (defined $tac)?$tac:""; - InternalTimer(gettimeofday()+1.7, "SSCam_getsnapinfo", "$name:$slim:$ssize", 0); + InternalTimer(gettimeofday()+1.7, "FHEM::SSCam::getSnapInfo", "$name:$slim:$ssize", 0); } } ############################################################################### # Filename zu Schappschuß ermitteln ############################################################################### -sub SSCam_getsnapfilename { +sub getSnapFilename { my ($hash) = @_; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getsnapfilename"); + RemoveInternalTimer($hash, "FHEM::SSCam::getSnapFilename"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getsnapfilename"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); + setActiveToken($hash); + getApiSites($hash); - } else { - InternalTimer(gettimeofday()+0.5, "SSCam_getsnapfilename", $hash, 0); + } else { + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::getSnapFilename", $hash, 0); } } ########################################################################### # allgemeine Infos über Synology Surveillance Station ########################################################################### -sub SSCam_getsvsinfo { +sub getSvsInfo { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getsvsinfo"); + RemoveInternalTimer($hash, "FHEM::SSCam::getSvsInfo"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getsvsinfo"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1, "SSCam_getsvsinfo", $hash, 0); + InternalTimer(gettimeofday()+1, "FHEM::SSCam::getSvsInfo", $hash, 0); } } ########################################################################### # HomeMode setzen ########################################################################### -sub SSCam_sethomemode { +sub setHomeMode { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_sethomemode"); + RemoveInternalTimer($hash, "FHEM::SSCam::setHomeMode"); return if(IsDisabled($name) || !defined($hash->{HELPER}{APIHMMAXVER})); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "sethomemode"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.6, "SSCam_sethomemode", $hash, 0); + InternalTimer(gettimeofday()+0.6, "FHEM::SSCam::setHomeMode", $hash, 0); } } ########################################################################### # Optimierparameter setzen ########################################################################### -sub SSCam_setoptpar { +sub setOptParams { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_setoptpar"); + RemoveInternalTimer($hash, "FHEM::SSCam::setOptParams"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "setoptpar"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.6, "SSCam_setoptpar", $hash, 0); + InternalTimer(gettimeofday()+0.6, "FHEM::SSCam::setOptParams", $hash, 0); } } ########################################################################### # HomeMode Status abfragen ########################################################################### -sub SSCam_gethomemodestate { +sub getHomeModeState { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_gethomemodestate"); + RemoveInternalTimer($hash, "FHEM::SSCam::getHomeModeState"); return if(IsDisabled($name) || !defined($hash->{HELPER}{APIHMMAXVER})); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "gethomemodestate"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.7, "SSCam_gethomemodestate", $hash, 0); + InternalTimer(gettimeofday()+0.7, "FHEM::SSCam::getHomeModeState", $hash, 0); } } ########################################################################### # SVS Log abrufen ########################################################################### -sub SSCam_getsvslog { +sub getSvsLog { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getsvslog"); + RemoveInternalTimer($hash, "FHEM::SSCam::getSvsLog"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getsvslog"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+0.9, "SSCam_getsvslog", $hash, 0); + InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::getSvsLog", $hash, 0); } } ########################################################################### -# Session SSCam_logout +# Session logout ########################################################################### -sub SSCam_sessionoff { +sub sessionOff { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_sessionoff"); + RemoveInternalTimer($hash, "FHEM::SSCam::sessionOff"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "logout"; - SSCam_setActiveToken($hash); - SSCam_logout($hash); - + setActiveToken($hash); + logout($hash); + } else { - InternalTimer(gettimeofday()+1.1, "SSCam_sessionoff", $hash, 0); + InternalTimer(gettimeofday()+1.1, "FHEM::SSCam::sessionOff", $hash, 0); } } ########################################################################### # Kamera allgemeine Informationen abrufen (Get) ########################################################################### -sub SSCam_getcaminfo { +sub getCamInfo { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getcaminfo"); + RemoveInternalTimer($hash, "FHEM::SSCam::getCamInfo"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "Getcaminfo"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+2, "SSCam_getcaminfo", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getCamInfo", $hash, 0); } } ########################################################################### # SYNO.SurveillanceStation.VideoStream query aktuelles Streamformat ########################################################################### -sub SSCam_getstreamformat { +sub getStreamFormat { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getstreamformat"); + RemoveInternalTimer($hash, "FHEM::SSCam::getStreamFormat"); my $apivideostmsmaxver = $hash->{HELPER}{APIVIDEOSTMSMAXVER}; return if(IsDisabled($name)); @@ -3880,82 +3984,82 @@ sub SSCam_getstreamformat { if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getstreamformat"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+1.4, "SSCam_getstreamformat", $hash, 0); + InternalTimer(gettimeofday()+1.4, "FHEM::SSCam::getStreamFormat", $hash, 0); } } ################################################################################ # Kamera Stream Urls abrufen (Get) ################################################################################ -sub SSCam_getStmUrlPath { +sub getStmUrlPath { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getStmUrlPath"); + RemoveInternalTimer($hash, "FHEM::SSCam::getStmUrlPath"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { # Stream-Urls abrufen $hash->{OPMODE} = "getStmUrlPath"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+2, "SSCam_getStmUrlPath", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getStmUrlPath", $hash, 0); } } ########################################################################### # query SVS-Event information ########################################################################### -sub SSCam_geteventlist { +sub getEventList { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_geteventlist"); + RemoveInternalTimer($hash, "FHEM::SSCam::getEventList"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "geteventlist"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+2, "SSCam_geteventlist", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getEventList", $hash, 0); } } ########################################################################### # Enumerate motion detection parameters ########################################################################### -sub SSCam_getmotionenum { +sub getMotionEnum { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getmotionenum"); + RemoveInternalTimer($hash, "FHEM::SSCam::getMotionEnum"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "getmotionenum"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites ($hash); - + + setActiveToken($hash); + getApiSites ($hash); + } else { - InternalTimer(gettimeofday()+2, "SSCam_getmotionenum", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getMotionEnum", $hash, 0); } } @@ -3963,94 +4067,94 @@ sub SSCam_getmotionenum { ########################################################################## # Capabilities von Kamera abrufen (Get) ########################################################################## -sub SSCam_getcapabilities { +sub getCapabilities { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getcapabilities"); + RemoveInternalTimer($hash, "FHEM::SSCam::getCapabilities"); return if(IsDisabled($name)); if ($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "Getcapabilities"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+2, "SSCam_getcapabilities", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getCapabilities", $hash, 0); } } ########################################################################## # PTZ Presets abrufen (Get) ########################################################################## -sub SSCam_getptzlistpreset { +sub getPtzPresetList { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getptzlistpreset"); + RemoveInternalTimer($hash, "FHEM::SSCam::getPtzPresetList"); return if(IsDisabled($name)); if(ReadingsVal("$name", "DeviceType", "") ne "PTZ") { Log3($name, 4, "$name - Retrieval of Presets for $camname can't be executed - $camname is not a PTZ-Camera"); return; } - if(!SSCam_IsCapPTZTilt($hash) | !SSCam_IsCapPTZPan($hash)) { + if(!IsCapPTZTilt($hash) | !IsCapPTZPan($hash)) { Log3($name, 4, "$name - Retrieval of Presets for $camname can't be executed - $camname has no capability to tilt/pan"); return; } - if($hash->{HELPER}{ACTIVE} eq "off") { + if($hash->{HELPER}{ACTIVE} eq "off") { $hash->{OPMODE} = "Getptzlistpreset"; $hash->{HELPER}{LOGINRETRIES} = 0; - - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - + + setActiveToken($hash); + getApiSites($hash); + } else { - InternalTimer(gettimeofday()+2, "SSCam_getptzlistpreset", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getPtzPresetList", $hash, 0); } } ########################################################################## # PTZ Patrols abrufen (Get) ########################################################################## -sub SSCam_getptzlistpatrol { +sub getPtzPatrolList { my ($hash) = @_; my $camname = $hash->{CAMNAME}; my $name = $hash->{NAME}; - RemoveInternalTimer($hash, "SSCam_getptzlistpatrol"); + RemoveInternalTimer($hash, "FHEM::SSCam::getPtzPatrolList"); return if(IsDisabled($name)); if(ReadingsVal("$name", "DeviceType", "") ne "PTZ") { Log3($name, 4, "$name - Retrieval of Patrols for $camname can't be executed - $camname is not a PTZ-Camera"); return; } - if(!SSCam_IsCapPTZTilt($hash) | !SSCam_IsCapPTZPan($hash)) { + if(!IsCapPTZTilt($hash) | !IsCapPTZPan($hash)) { Log3($name, 4, "$name - Retrieval of Patrols for $camname can't be executed - $camname has no capability to tilt/pan"); return; } if($hash->{HELPER}{ACTIVE} ne "on") { $hash->{OPMODE} = "Getptzlistpatrol"; - $hash->{HELPER}{LOGINRETRIES} = 0; + $hash->{HELPER}{LOGINRETRIES} = 0; + + setActiveToken($hash); + getApiSites($hash); - SSCam_setActiveToken($hash); - SSCam_getapisites($hash); - } else { - InternalTimer(gettimeofday()+2, "SSCam_getptzlistpatrol", $hash, 0); + InternalTimer(gettimeofday()+2, "FHEM::SSCam::getPtzPatrolList", $hash, 0); } } ############################################################################################################################# ####### Begin Kameraoperationen mit NonblockingGet (nicht blockierender HTTP-Call) ####### ############################################################################################################################# -sub SSCam_getapisites { +sub getApiSites { my ($hash) = @_; my $serveraddr = $hash->{SERVERADDR}; my $serverport = $hash->{SERVERPORT}; @@ -4081,12 +4185,12 @@ sub SSCam_getapisites { Log3($name, 4, "$name - ####################################################"); Log3($name, 4, "$name - ### start cam operation $hash->{OPMODE} "); Log3($name, 4, "$name - ####################################################"); - Log3($name, 4, "$name - --- Begin Function SSCam_getapisites nonblocking ---"); + Log3($name, 4, "$name - --- Begin Function getApiSites nonblocking ---"); if ($hash->{HELPER}{APIPARSET}) { # API-Hashwerte sind bereits gesetzt -> Abruf überspringen - Log3($name, 4, "$name - API hashvalues already set - ignore get apisites"); - return SSCam_checksid($hash); + Log3($name, 4, "$name - API hashvalues already set - ignore get apisites"); + return checkSid($hash); } my $httptimeout = AttrVal($name,"httptimeout",4); @@ -4103,7 +4207,7 @@ sub SSCam_getapisites { hash => $hash, method => "GET", header => "Accept: application/json", - callback => \&SSCam_getapisites_parse + callback => \&getApiSites_Parse }; HttpUtils_NonblockingGet ($param); } @@ -4111,7 +4215,7 @@ sub SSCam_getapisites { #################################################################################### # Auswertung Abruf apisites #################################################################################### -sub SSCam_getapisites_parse { +sub getApiSites_Parse { my $param = shift; my $err = shift; my $myjson = shift; @@ -4141,21 +4245,21 @@ sub SSCam_getapisites_parse { my ($apicammaxver,$apicampath); if ($err ne "") { - # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist + # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist Log3($name, 2, "$name - error while requesting ".$param->{url}." - $err"); readingsSingleUpdate($hash, "Error", $err, 1); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken - SSCam_delActiveToken($hash); + delActiveToken($hash); return; - + } elsif ($myjson ne "") { # Evaluiere ob Daten im JSON-Format empfangen wurden - ($hash, my $success) = SSCam_evaljson($hash,$myjson); + ($hash, my $success) = evaljson($hash,$myjson); unless ($success) { - SSCam_delActiveToken($hash); + delActiveToken($hash); return; } @@ -4184,7 +4288,7 @@ sub SSCam_getapisites_parse { $apiextrecpath =~ tr/_//d if (defined($apiextrecpath)); my $apiextrecmaxver = $data->{'data'}->{$apiextrec}->{'maxVersion'}; - $logstr = defined($apiextrecpath) ? "Path of $apiextrec selected: $apiextrecpath" : "Path of $apiextrec undefined - Surveillance Station may be stopped"; + $logstr = defined($apiextrecpath) ? "Path of $apiextrec selected: $apiextrecpath" : "Path of $apiextrec undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); $logstr = defined($apiextrecmaxver) ? "MaxVersion of $apiextrec selected: $apiextrecmaxver" : "MaxVersion of $apiextrec undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); @@ -4217,7 +4321,7 @@ sub SSCam_getapisites_parse { $logstr = defined($apiptzpath) ? "Path of $apiptz selected: $apiptzpath" : "Path of $apiptz undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); $logstr = defined($apiptzmaxver) ? "MaxVersion of $apiptz: $apiptzmaxver" : "MaxVersion of $apiptz undefined - Surveillance Station may be stopped"; - Log3($name, 4, "$name - $logstr"); + Log3($name, 4, "$name - $logstr"); # Pfad und Maxversion von "SYNO.SurveillanceStation.PTZ.Preset" ermitteln my $apipresetpath = $data->{'data'}->{$apipreset}->{'path'}; @@ -4227,8 +4331,8 @@ sub SSCam_getapisites_parse { $logstr = defined($apipresetpath) ? "Path of $apipreset selected: $apipresetpath" : "Path of $apipreset undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); $logstr = defined($apipresetmaxver) ? "MaxVersion of $apipreset: $apipresetmaxver" : "MaxVersion of $apipreset undefined - Surveillance Station may be stopped"; - Log3($name, 4, "$name - $logstr"); - + Log3($name, 4, "$name - $logstr"); + # Pfad und Maxversion von "SYNO.SurveillanceStation.Info" ermitteln my $apisvsinfopath = $data->{'data'}->{$apisvsinfo}->{'path'}; $apisvsinfopath =~ tr/_//d if (defined($apisvsinfopath)); @@ -4308,7 +4412,7 @@ sub SSCam_getapisites_parse { Log3($name, 4, "$name - $logstr"); $logstr = defined($apilogmaxver) ? "MaxVersion of $apilog selected: $apilogmaxver" : "MaxVersion of $apilog undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); - + # Pfad und Maxversion von "SYNO.SurveillanceStation.AudioStream" ermitteln my $apiaudiostmpath = $data->{'data'}->{$apiaudiostm}->{'path'}; $apiaudiostmpath =~ tr/_//d if (defined($apiaudiostmpath)); @@ -4334,16 +4438,16 @@ sub SSCam_getapisites_parse { $apirecpath =~ tr/_//d if (defined($apirecpath)); my $apirecmaxver = $data->{'data'}->{$apirec}->{'maxVersion'}; - $logstr = defined($apirecpath) ? "Path of $apirec selected: $apirecpath" : "Path of $apirec undefined - Surveillance Station may be stopped"; + $logstr = defined($apirecpath) ? "Path of $apirec selected: $apirecpath" : "Path of $apirec undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); $logstr = defined($apirecmaxver) ? "MaxVersion of $apirec selected: $apirecmaxver" : "MaxVersion of $apirec undefined - Surveillance Station may be stopped"; Log3($name, 4, "$name - $logstr"); - + # aktuelle oder simulierte SVS-Version für Fallentscheidung setzen no warnings 'uninitialized'; my $major = $hash->{HELPER}{SVSVERSION}{MAJOR}; my $minor = $hash->{HELPER}{SVSVERSION}{MINOR}; - my $small = $hash->{HELPER}{SVSVERSION}{SMALL}; + my $small = $hash->{HELPER}{SVSVERSION}{SMALL}; my $build = $hash->{HELPER}{SVSVERSION}{BUILD}; my $actvs = $major.$minor.$small.$build; my $avsc = $major.$minor.$small; # Variable zum Version Kompatibilitätscheck @@ -4355,27 +4459,27 @@ sub SSCam_getapisites_parse { $actvs = $vl[0]; $actvs .= $vl[1]; $actvs .= ($vl[2] =~ /\d/)?$vl[2]."xxxx":$vl[2]; - $actvs .= "-simu"; + $actvs .= "-simu"; } - + # Downgrades für nicht kompatible API-Versionen - # hier nur nutzen wenn API zentral downgraded werden soll + # hier nur nutzen wenn API zentral downgraded werden soll # In den neueren API-Upgrades werden nur einzelne Funktionen auf eine höhere API-Version gezogen - # -> diese Steuerung erfolgt in den einzelnen Funktionsaufrufen in SSCam_camop + # -> diese Steuerung erfolgt in den einzelnen Funktionsaufrufen in camOp Log3($name, 4, "$name - ------- Begin of adaption section -------"); - #$apiptzmaxver = 4; + #$apiptzmaxver = 4; #Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver"); #$apicammaxver = 8; #Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver"); - Log3($name, 4, "$name - ------- End of adaption section -------"); - - + Log3($name, 4, "$name - ------- End of adaption section -------"); + + # Simulation anderer SVS-Versionen Log3($name, 4, "$name - ------- Begin of simulation section -------"); - if (AttrVal($name, "simu_SVSversion", undef)) { + if (AttrVal($name, "simu_SVSversion", undef)) { Log3($name, 4, "$name - SVS version $actvs will be simulated"); if ($actvs =~ /^71/) { $apicammaxver = 8; @@ -4422,11 +4526,11 @@ sub SSCam_getapisites_parse { Log3($name, 4, "$name - MaxVersion of $apiaudiostm adapted to: $apiaudiostmmaxver"); } - } else { + } else { Log3($name, 4, "$name - no simulations done !"); } Log3($name, 4, "$name - ------- End of simulation section -------"); - + # ermittelte Werte in $hash einfügen $hash->{HELPER}{APIAUTHPATH} = $apiauthpath; $hash->{HELPER}{APIAUTHMAXVER} = $apiauthmaxver; @@ -4468,9 +4572,9 @@ sub SSCam_getapisites_parse { readingsBulkUpdate ($hash,"Errorcode","none"); readingsBulkUpdate ($hash,"Error", "none"); readingsEndUpdate ($hash,1); - - # API Hash values sind gesetzt - $hash->{HELPER}{APIPARSET} = 1; + + # API Hash values sind gesetzt + $hash->{HELPER}{APIPARSET} = 1; } else { my $error = "couldn't call API-Infosite"; @@ -4483,43 +4587,43 @@ sub SSCam_getapisites_parse { Log3($name, 2, "$name - ERROR - the API-Query couldn't be executed successfully"); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken - SSCam_delActiveToken($hash); + delActiveToken($hash); return; } - } -return SSCam_checksid($hash); + } +return checkSid($hash); } ############################################################################################# # Check ob Session ID gesetzt ist - ggf. login ############################################################################################# -sub SSCam_checksid { +sub checkSid { my ($hash) = @_; my $name = $hash->{NAME}; my $subref; - if(SSCam_IsModelCam($hash)) { + if(IsModelCam($hash)) { # Folgefunktion wenn Cam-Device - $subref = "SSCam_getcamid"; + $subref = "getCamId"; } else { # Folgefunktion wenn SVS-Device - $subref = "SSCam_camop"; + $subref = "camOp"; } # SID holen bzw. login my $sid = $hash->{HELPER}{SID}; if(!$sid) { Log3($name, 3, "$name - no session ID found - get new one"); - SSCam_login($hash,$subref); - return; + login($hash,$subref); + return; } - if(SSCam_IsModelCam($hash) || $hash->{OPMODE} eq "Autocreate") { + if(IsModelCam($hash) || $hash->{OPMODE} eq "Autocreate") { # Normalverarbeitung für Cams oder Autocreate Cams - return SSCam_getcamid($hash); + return getCamId($hash); } else { - # Sprung zu SSCam_camop wenn SVS Device - return SSCam_camop($hash); + # Sprung zu camOp wenn SVS Device + return camOp($hash); } } @@ -4527,7 +4631,7 @@ sub SSCam_checksid { ############################################################################################# # Abruf der installierten Cams ############################################################################################# -sub SSCam_getcamid { +sub getCamId { my ($hash) = @_; my $name = $hash->{NAME}; my $serveraddr = $hash->{SERVERADDR}; @@ -4541,12 +4645,12 @@ sub SSCam_getcamid { my $url; # die Kamera-Id wird aus dem Kameranamen (Surveillance Station) ermittelt - Log3($name, 4, "$name - --- Begin Function SSCam_getcamid nonblocking ---"); - + Log3($name, 4, "$name - --- Begin Function getCamId nonblocking ---"); + if ($hash->{CAMID}) { # Camid ist bereits ermittelt -> Abruf überspringen - Log3($name, 4, "$name - CAMID already set - ignore get camid"); - return SSCam_camop($hash); + Log3($name, 4, "$name - CAMID already set - ignore get camid"); + return camOp($hash); } my $httptimeout = AttrVal($name,"httptimeout", 4); @@ -4565,7 +4669,7 @@ sub SSCam_getcamid { hash => $hash, method => "GET", header => "Accept: application/json", - callback => \&SSCam_getcamid_parse + callback => \&getCamId_Parse }; HttpUtils_NonblockingGet($param); @@ -4574,7 +4678,7 @@ sub SSCam_getcamid { ############################################################################################# # Auswertung installierte Cams, Selektion Cam , Ausführung Operation ############################################################################################# -sub SSCam_getcamid_parse { +sub getCamId_Parse { my ($param, $err, $myjson) = @_; my $hash = $param->{hash}; my $name = $hash->{NAME}; @@ -4590,17 +4694,17 @@ sub SSCam_getcamid_parse { # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist Log3($name, 2, "$name - error while requesting ".$param->{url}." - $err"); - readingsSingleUpdate($hash, "Error", $err, 1); - return SSCam_login($hash,'SSCam_getapisites'); + readingsSingleUpdate($hash, "Error", $err, 1); + return login($hash,'getApiSites'); } elsif ($myjson ne "") { # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes) # evaluiere ob Daten im JSON-Format empfangen wurden, Achtung: sehr viele Daten mit verbose=5 - ($hash, $success) = SSCam_evaljson($hash,$myjson); + ($hash, $success) = evaljson($hash,$myjson); unless ($success) { - Log3($name, 4, "$name - Data returned: ".$myjson); - SSCam_delActiveToken($hash); + Log3($name, 4, "$name - Data returned: ".$myjson); + delActiveToken($hash); return; } @@ -4612,24 +4716,24 @@ sub SSCam_getcamid_parse { $success = $data->{'success'}; if ($success) { - # die Liste aller Kameras konnte ausgelesen werden + # die Liste aller Kameras konnte ausgelesen werden ($i,$nrcreated) = (0,0); # Namen aller installierten Kameras mit Id's in Assoziatives Array einlesen %allcams = (); while ($data->{'data'}->{'cameras'}->[$i]) { if ($apicammaxver <= 8) { - $n = $data->{'data'}->{'cameras'}->[$i]->{'name'}; - } else { - $n = $data->{'data'}->{'cameras'}->[$i]->{'newName'}; # Änderung ab SVS 8.0.0 - } + $n = $data->{'data'}->{'cameras'}->[$i]->{'name'}; + } else { + $n = $data->{'data'}->{'cameras'}->[$i]->{'newName'}; # Änderung ab SVS 8.0.0 + } $id = $data->{'data'}->{'cameras'}->[$i]->{'id'}; $allcams{"$n"} = "$id"; $i += 1; if ($OpMode eq "Autocreate") { # Cam autocreate - ($err,$camdef) = SSCam_Autocreate($hash,$n); + ($err,$camdef) = setAutocreate($hash,$n); if($camdef) { $cdall = $cdall.($cdall?", ":"").$camdef; $nrcreated++; @@ -4653,8 +4757,8 @@ sub SSCam_getcamid_parse { CommandSave(undef, undef) if($errstate eq "none" && $nrcreated && AttrVal("global","autosave", 1)); - # Freigabe Funktionstoken - SSCam_delActiveToken($hash); + # Freigabe Funktionstoken + delActiveToken($hash); return; } @@ -4665,50 +4769,50 @@ sub SSCam_getcamid_parse { Log3($name, 4, "$name - Detection Camid successful - $camname ID: $camid"); - } else { + } else { # Kameraname nicht gefunden, id = "" readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","Camera(ID) not found in Surveillance Station"); readingsEndUpdate($hash, 1); - Log3($name, 2, "$name - ERROR - Cameraname $camname wasn't found in Surveillance Station. Check Userrights, Cameraname and Spelling"); - SSCam_delActiveToken($hash); + Log3($name, 2, "$name - ERROR - Cameraname $camname wasn't found in Surveillance Station. Check Userrights, Cameraname and Spelling"); + delActiveToken($hash); return; } - } else { + } else { # Errorcode aus JSON ermitteln $errorcode = $data->{'error'}->{'code'}; # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); + $error = expErrors($hash,$errorcode); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Error",$error); readingsEndUpdate($hash, 1); - if ($errorcode =~ /(105|401)/) { - # neue Login-Versuche - Log3($name, 2, "$name - ERROR - $errorcode - $error -> try new login"); - return SSCam_login($hash,'SSCam_getapisites'); - - } else { - # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken - SSCam_delActiveToken($hash); - Log3($name, 2, "$name - ERROR - ID of Camera $camname couldn't be selected. Errorcode: $errorcode - $error"); + if ($errorcode =~ /(105|401)/) { + # neue Login-Versuche + Log3($name, 2, "$name - ERROR - $errorcode - $error -> try new login"); + return login($hash,'getApiSites'); + + } else { + # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken + delActiveToken($hash); + Log3($name, 2, "$name - ERROR - ID of Camera $camname couldn't be selected. Errorcode: $errorcode - $error"); return; - } + } } } -return SSCam_camop($hash); +return camOp($hash); } ############################################################################################# # Ausführung Operation ############################################################################################# -sub SSCam_camop { +sub camOp { my $hash = shift; my $name = $hash->{NAME}; @@ -4799,23 +4903,23 @@ sub SSCam_camop { $url = "$proto://$serveraddr:$serverport/webapi/$apirecpath?api=\"$apirec\"&id=$recid&mountId=0&version=\"$apirecmaxver\"&method=\"Download\"&_sid=\"$sid\""; } else { Log3($name, 2, "$name - WARNING - Can't fetch recording due to no recording available."); - SSCam_delActiveToken($hash); + delActiveToken($hash); return; } } elsif ($OpMode eq "getsnapinfo" || $OpMode eq "getsnapgallery") { # Informationen über den letzten oder mehrere Schnappschüsse ermitteln - my $limit = $hash->{HELPER}{SNAPLIMIT}; - my $imgsize = $hash->{HELPER}{SNAPIMGSIZE}; - my $keyword = $hash->{HELPER}{KEYWORD}; + my $limit = $hash->{HELPER}{SNAPLIMIT}; + my $imgsize = $hash->{HELPER}{SNAPIMGSIZE}; + 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"); + 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"); + 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\""; } @@ -4828,11 +4932,11 @@ sub SSCam_camop { } elsif ($OpMode eq "gopreset") { # Preset wird angefahren $apiptzmaxver = ($apiptzmaxver >= 5)?4:$apiptzmaxver; - $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"GoPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"GoPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "getPresets") { # Liste der Presets abrufen - $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"Enum\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"Enum\"&cameraId=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "piract") { # PIR Sensor aktivieren/deaktivieren @@ -4845,14 +4949,14 @@ sub SSCam_camop { my $pname = $hash->{HELPER}{PNAME}; my $pspeed = $hash->{HELPER}{PSPEED}; if ($pspeed) { - $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&speed=\"$pspeed\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&speed=\"$pspeed\"&cameraId=\"$camid\"&_sid=\"$sid\""; } else { - $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetPreset\"&position=$pnumber&name=\"$pname\"&cameraId=\"$camid\"&_sid=\"$sid\""; } } elsif ($OpMode eq "delPreset") { # einen Preset löschen - $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"DelPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{DELPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"DelPreset\"&position=\"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{DELPRESETNAME}}\"&cameraId=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "setHome") { # aktuelle Position als Home setzen @@ -4860,16 +4964,16 @@ sub SSCam_camop { $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetHome\"&cameraId=\"$camid\"&_sid=\"$sid\""; } else { my $bindpos = $hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{SETHOME}}; - $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetHome\"&bindPosition=\"$bindpos\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"SetHome\"&bindPosition=\"$bindpos\"&cameraId=\"$camid\"&_sid=\"$sid\""; } } elsif ($OpMode eq "startTrack") { # Object Tracking einschalten - $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&cameraId=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "stopTrack") { # Object Tracking stoppen - $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&moveType=\"Stop\"&cameraId=\"$camid\"&_sid=\"$sid\""; + $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"ObjTracking\"&moveType=\"Stop\"&cameraId=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "setZoom") { # Zoom in / stop / out @@ -4878,7 +4982,7 @@ sub SSCam_camop { my $sttime = $hash->{HELPER}{ZOOM}{STOPTIME} // ""; Log3($name, 4, qq{$name - execute operation Zoom "$dir:$moveType:$sttime"}); - $url = qq{$proto://$serveraddr:$serverport/webapi/$apiptzpath?api="$apiptz"&version="$apiptzmaxver"&method="Zoom"&cameraId="$camid"&control="$dir"&moveType="$moveType"&_sid="$sid"}; + $url = qq{$proto://$serveraddr:$serverport/webapi/$apiptzpath?api="$apiptz"&version="$apiptzmaxver"&method="Zoom"&cameraId="$camid"&control="$dir"&moveType="$moveType"&_sid="$sid"}; } elsif ($OpMode eq "runpatrol") { # eine Überwachungstour starten @@ -4897,18 +5001,18 @@ sub SSCam_camop { } elsif ($OpMode eq "Enable") { $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=Enable&cameraIds=$camid&_sid=\"$sid\""; if($apicammaxver >= 9) { - $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Enable\"&idList=\"$camid\"&_sid=\"$sid\""; - } + $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Enable\"&idList=\"$camid\"&_sid=\"$sid\""; + } } elsif ($OpMode eq "Disable") { $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=Disable&cameraIds=$camid&_sid=\"$sid\""; if($apicammaxver >= 9) { - $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Disable\"&idList=\"$camid\"&_sid=\"$sid\""; - } - + $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=$apicammaxver&method=\"Disable\"&idList=\"$camid\"&_sid=\"$sid\""; + } + } elsif ($OpMode eq "sethomemode") { my $sw = $hash->{HELPER}{HOMEMODE}; # HomeMode on,off - $sw = ($sw eq "on")?"true":"false"; + $sw = ($sw eq "on")?"true":"false"; $url = "$proto://$serveraddr:$serverport/webapi/$apihmpath?on=$sw&api=$apihm&method=Switch&version=$apihmmaxver&_sid=\"$sid\""; } elsif ($OpMode eq "gethomemodestate") { @@ -4916,32 +5020,32 @@ sub SSCam_camop { } elsif ($OpMode eq "getsvslog") { my $sev = $hash->{HELPER}{LISTLOGSEVERITY}?$hash->{HELPER}{LISTLOGSEVERITY}:""; - my $lim = $hash->{HELPER}{LISTLOGLIMIT}?$hash->{HELPER}{LISTLOGLIMIT}:0; - my $mco = $hash->{HELPER}{LISTLOGMATCH}?$hash->{HELPER}{LISTLOGMATCH}:""; - $mco = SSCam_IsModelCam($hash)?$hash->{CAMNAME}:$mco; - $lim = 1 if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund - $sev = (lc($sev) =~ /error/)?3:(lc($sev) =~ /warning/)?2:(lc($sev) =~ /info/)?1:""; - - no warnings 'uninitialized'; + my $lim = $hash->{HELPER}{LISTLOGLIMIT}?$hash->{HELPER}{LISTLOGLIMIT}:0; + my $mco = $hash->{HELPER}{LISTLOGMATCH}?$hash->{HELPER}{LISTLOGMATCH}:""; + $mco = IsModelCam($hash)?$hash->{CAMNAME}:$mco; + $lim = 1 if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund + $sev = (lc($sev) =~ /error/)?3:(lc($sev) =~ /warning/)?2:(lc($sev) =~ /info/)?1:""; + + no warnings 'uninitialized'; Log3($name,4, "$name - get logList with params: severity => $hash->{HELPER}{LISTLOGSEVERITY}, limit => $lim, matchcode => $hash->{HELPER}{LISTLOGMATCH}"); use warnings; - - $url = "$proto://$serveraddr:$serverport/webapi/$apilogpath?api=$apilog&version=\"2\"&method=\"List\"&time2String=\"no\"&level=\"$sev\"&limit=\"$lim\"&keyword=\"$mco\"&_sid=\"$sid\""; + + $url = "$proto://$serveraddr:$serverport/webapi/$apilogpath?api=$apilog&version=\"2\"&method=\"List\"&time2String=\"no\"&level=\"$sev\"&limit=\"$lim\"&keyword=\"$mco\"&_sid=\"$sid\""; - delete($hash->{HELPER}{LISTLOGSEVERITY}); - delete($hash->{HELPER}{LISTLOGLIMIT}); - delete($hash->{HELPER}{LISTLOGMATCH}); - + delete($hash->{HELPER}{LISTLOGSEVERITY}); + delete($hash->{HELPER}{LISTLOGLIMIT}); + delete($hash->{HELPER}{LISTLOGMATCH}); + } elsif ($OpMode eq "getsvsinfo") { $url = "$proto://$serveraddr:$serverport/webapi/$apisvsinfopath?api=\"$apisvsinfo\"&version=\"$apisvsinfomaxver\"&method=\"GetInfo\"&_sid=\"$sid\""; } elsif ($OpMode eq "setoptpar") { my $mirr = $hash->{HELPER}{MIRROR}?$hash->{HELPER}{MIRROR}:ReadingsVal("$name","CamVideoMirror",""); - my $flip = $hash->{HELPER}{FLIP}?$hash->{HELPER}{FLIP}:ReadingsVal("$name","CamVideoFlip",""); - my $rot = $hash->{HELPER}{ROTATE}?$hash->{HELPER}{ROTATE}:ReadingsVal("$name","CamVideoRotate",""); - my $ntp = $hash->{HELPER}{NTPSERV}?$hash->{HELPER}{NTPSERV}:ReadingsVal("$name","CamNTPServer",""); - my $clst = $hash->{HELPER}{CHKLIST}?$hash->{HELPER}{CHKLIST}:""; - $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; + my $flip = $hash->{HELPER}{FLIP}?$hash->{HELPER}{FLIP}:ReadingsVal("$name","CamVideoFlip",""); + my $rot = $hash->{HELPER}{ROTATE}?$hash->{HELPER}{ROTATE}:ReadingsVal("$name","CamVideoRotate",""); + my $ntp = $hash->{HELPER}{NTPSERV}?$hash->{HELPER}{NTPSERV}:ReadingsVal("$name","CamNTPServer",""); + my $clst = $hash->{HELPER}{CHKLIST}?$hash->{HELPER}{CHKLIST}:""; + $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"SaveOptimizeParam\"&vdoMirror=$mirr&vdoRotation=$rot&vdoFlip=$flip&timeServer=\"$ntp\"&camParamChkList=$clst&cameraIds=\"$camid\"&_sid=\"$sid\""; } elsif ($OpMode eq "Getcaminfo") { @@ -4951,8 +5055,8 @@ sub SSCam_camop { } elsif ($OpMode eq "getStmUrlPath") { $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"GetStmUrlPath\"&cameraIds=\"$camid\"&_sid=\"$sid\""; if($apicammaxver >= 9) { - $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&method=\"GetLiveViewPath\"&version=$apicammaxver&idList=\"$camid\"&_sid=\"$sid\""; - } + $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&method=\"GetLiveViewPath\"&version=$apicammaxver&idList=\"$camid\"&_sid=\"$sid\""; + } } elsif ($OpMode eq "geteventlist") { # Abruf der Events einer Kamera @@ -4963,7 +5067,7 @@ sub SSCam_camop { } elsif ($OpMode eq "Getcapabilities") { # Capabilities einer Cam werden abgerufen - $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; + $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=\"GetCapabilityByCamId\"&cameraId=$camid&_sid=\"$sid\""; } elsif ($OpMode eq "Getptzlistpatrol") { @@ -4980,7 +5084,7 @@ sub SSCam_camop { elsif ($hash->{HELPER}{EXPMODE} eq "night") { $expmode = "2"; } - $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; + $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver; $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"SaveOptimizeParam\"&cameraIds=\"$camid\"&expMode=\"$expmode\"&camParamChkList=32&_sid=\"$sid\""; } elsif ($OpMode eq "MotDetSc") { @@ -5025,7 +5129,7 @@ sub SSCam_camop { $url .= "&percentage=\"$percentage\""; } - } elsif ($hash->{HELPER}{MOTDETSC} eq "SVS") { + } elsif ($hash->{HELPER}{MOTDETSC} eq "SVS") { $motdetsc = "1"; $motdetoptions{SENSITIVITY} = $hash->{HELPER}{MOTDETSC_PROP1} if ($hash->{HELPER}{MOTDETSC_PROP1}); @@ -5060,12 +5164,12 @@ sub SSCam_camop { $exturl = AttrVal($name, "livestreamprefix", "$proto://$serveraddr:$serverport"); $exturl = ($exturl eq "DEF")?"$proto://$serveraddr:$serverport":$exturl; if ($hash->{HELPER}{RUNVIEW} =~ m/live/) { - if($apiaudiostmmaxver) { # API "SYNO.SurveillanceStation.AudioStream" vorhanden ? (removed ab API v2.8) + if($apiaudiostmmaxver) { # API "SYNO.SurveillanceStation.AudioStream" vorhanden ? (removed ab API v2.8) $hash->{HELPER}{AUDIOLINK} = "$proto://$serveraddr:$serverport/webapi/$apiaudiostmpath?api=$apiaudiostm&version=$apiaudiostmmaxver&method=Stream&cameraId=$camid&_sid=$sid"; } else { delete $hash->{HELPER}{AUDIOLINK} if($hash->{HELPER}{AUDIOLINK}); } - + if($apivideostmsmaxver) { # API "SYNO.SurveillanceStation.VideoStream" vorhanden ? (removed ab API v2.8) # externe URL in Reading setzen $exturl .= "/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=mjpeg&_sid=$sid"; @@ -5108,16 +5212,16 @@ sub SSCam_camop { } } - SSCam_refresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event - SSCam_delActiveToken($hash); + delActiveToken($hash); return; - + } elsif ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ /snap/) { # den letzten Schnappschuß live anzeigen - my $limit = 1; # nur 1 Snap laden, für lastsnap_fw - my $imgsize = 2; # full size image, für lastsnap_fw - my $keyword = $hash->{CAMNAME}; # nur Snaps von $camname selektieren, für lastsnap_fw + my $limit = 1; # nur 1 Snap laden, für lastsnap_fw + my $imgsize = 2; # full size image, für lastsnap_fw + my $keyword = $hash->{CAMNAME}; # nur Snaps von $camname selektieren, für lastsnap_fw $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&keyword=\"$keyword\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\""; } elsif (($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ m/^live_.*hls$/) || $OpMode eq "activate_hls") { @@ -5142,7 +5246,7 @@ sub SSCam_camop { hash => $hash, method => "GET", header => "Accept: application/json", - callback => \&SSCam_camop_parse + callback => \&camOp_Parse }; HttpUtils_NonblockingGet ($param); @@ -5151,7 +5255,7 @@ sub SSCam_camop { ################################################################################### # Check ob Kameraoperation erfolgreich wie in "OpMOde" definiert ################################################################################### -sub SSCam_camop_parse { +sub camOp_Parse { my $param = shift; my $err = shift; my $myjson = shift; @@ -5197,20 +5301,20 @@ sub SSCam_camop_parse { # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist Log3($name, 2, "$name - error while requesting ".$param->{url}." - $err"); - readingsSingleUpdate($hash, "Error", $err, 1); + readingsSingleUpdate($hash, "Error", $err, 1); - # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken - SSCam_delActiveToken($hash); + # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken + delActiveToken($hash); return; } elsif ($myjson ne "") { # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes) # Evaluiere ob Daten im JSON-Format empfangen wurden if($OpMode !~ /SaveRec|GetRec/) { # "SaveRec/GetRec" liefern MP4-Daten und kein JSON - ($hash,$success,$myjson) = SSCam_evaljson($hash,$myjson); + ($hash,$success,$myjson) = evaljson($hash,$myjson); unless ($success) { Log3($name, 4, "$name - Data returned: ".$myjson); - SSCam_delActiveToken($hash); + delActiveToken($hash); return; } @@ -5238,7 +5342,7 @@ sub SSCam_camop_parse { } if ($rectime == "0") { - Log3($name, 3, "$name - Camera $camname endless Recording started - stop it by stop-command !"); + Log3($name, 3, "$name - Camera $camname endless Recording started - stop it by stop-command !"); } else { if (ReadingsVal("$name", "Record", "Stop") eq "Start") { # Aufnahme läuft schon und wird verlängert @@ -5259,13 +5363,13 @@ sub SSCam_camop_parse { # Stop der Aufnahme nach Ablauf $rectime, wenn rectime = 0 -> endlose Aufnahme my $emtxt = $hash->{HELPER}{SMTPRECMSG}?$hash->{HELPER}{SMTPRECMSG}:""; my $teletxt = $hash->{HELPER}{TELERECMSG}?$hash->{HELPER}{TELERECMSG}:""; - RemoveInternalTimer($hash, "SSCam_camstoprec"); - InternalTimer(gettimeofday()+$rectime, "SSCam_camstoprec", $hash); + RemoveInternalTimer($hash, "FHEM::SSCam::camStopRec"); + InternalTimer(gettimeofday()+$rectime, "FHEM::SSCam::camStopRec", $hash); } - SSCam_refresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event - } elsif ($OpMode eq "Stop") { + } elsif ($OpMode eq "Stop") { readingsBeginUpdate($hash); readingsBulkUpdate ($hash, "Record", "Stop"); readingsBulkUpdate ($hash, "state", "off" ); @@ -5275,12 +5379,12 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname Recording stopped"); - SSCam_refresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event # Aktualisierung Eventlist der letzten Aufnahme - SSCam_geteventlist($hash); + getEventList($hash); - } elsif ($OpMode eq "ExpMode") { + } elsif ($OpMode eq "ExpMode") { readingsBeginUpdate($hash); readingsBulkUpdate ($hash, "Errorcode", "none"); readingsBulkUpdate ($hash, "Error" , "none"); @@ -5288,7 +5392,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname exposure mode was set to \"$hash->{HELPER}{EXPMODE}\""); - } elsif ($OpMode eq "setZoom") { + } elsif ($OpMode eq "setZoom") { readingsBeginUpdate($hash); readingsBulkUpdate ($hash, "Errorcode", "none"); readingsBulkUpdate ($hash, "Error" , "none"); @@ -5296,18 +5400,18 @@ sub SSCam_camop_parse { Log3($name, 3, qq{$name - Zoom operation "$hash->{HELPER}{ZOOM}{DIR}:$hash->{HELPER}{ZOOM}{MOVETYPE}" of Camera $camname successfully done} ); - } elsif ($OpMode eq "GetRec") { + } elsif ($OpMode eq "GetRec") { my $recid = ReadingsVal("$name", "CamLastRecId", ""); my $createdTm = ReadingsVal("$name", "CamLastRecTime", ""); my $lrec = ReadingsVal("$name", "CamLastRec", ""); my ($tdir,$fileName) = split("/",$lrec); my $sn = 0; - my $tac = SSCam_openOrgetTrans($hash); # Transaktion starten + my $tac = openOrgetTrans($hash); # Transaktion starten my $cache; - if($hash->{HELPER}{CANSENDREC} || $hash->{HELPER}{CANTELEREC} || $hash->{HELPER}{CANCHATREC}) { - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren für Versandhash + if($hash->{HELPER}{CANSENDREC} || $hash->{HELPER}{CANTELEREC} || $hash->{HELPER}{CANCHATREC}) { + $cache = cache($name, "c_init"); # Cache initialisieren für Versandhash Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{recid} = $recid; @@ -5316,30 +5420,30 @@ sub SSCam_camop_parse { $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{tdir} = $tdir; $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{imageData} = $myjson; } else { - SSCam_cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{recid}" ,$recid); - SSCam_cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{createdTm}" ,$createdTm); - SSCam_cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{fileName}" ,$fileName); - SSCam_cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{tdir}" ,$tdir); - SSCam_cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{imageData}" ,$myjson); + cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{recid}" ,$recid); + cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{createdTm}" ,$createdTm); + cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{fileName}" ,$fileName); + cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{tdir}" ,$tdir); + cache($name, "c_write", "{SENDRECS}{$tac}{$sn}{imageData}" ,$myjson); } - Log3($name, 4, "$name - Recording '$sn' added to send recording hash: ID => $recid, File => $fileName, Created => $createdTm"); - } + Log3($name, 4, "$name - Recording '$sn' added to send recording hash: ID => $recid, File => $fileName, Created => $createdTm"); + } # Recording als Email / Telegram / Chat versenden if(!$cache || $cache eq "internal" ) { - SSCam_prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDRECS}{$tac}); + prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDRECS}{$tac}); } else { - SSCam_prepareSendData ($hash, $OpMode, "{SENDRECS}{$tac}"); + prepareSendData ($hash, $OpMode, "{SENDRECS}{$tac}"); } - SSCam_closeTrans ($hash); # Transaktion beenden + closeTrans ($hash); # Transaktion beenden readingsBeginUpdate ($hash); readingsBulkUpdate ($hash,"Errorcode","none"); readingsBulkUpdate ($hash,"Error",$err); readingsEndUpdate ($hash, 1); - } elsif ($OpMode eq "SaveRec") { + } elsif ($OpMode eq "SaveRec") { my $lrec = ReadingsVal("$name", "CamLastRec", ""); $lrec = (split("/",$lrec))[1]; @@ -5364,7 +5468,7 @@ sub SSCam_camop_parse { readingsEndUpdate($hash, 1); - } elsif ($OpMode eq "sethomemode") { + } elsif ($OpMode eq "sethomemode") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); @@ -5372,14 +5476,14 @@ sub SSCam_camop_parse { readingsEndUpdate($hash, 1); Log3($name, 3, "$name - HomeMode was set to \"$hash->{HELPER}{HOMEMODE}\" "); - - # Token freigeben vor nächstem Kommando - SSCam_delActiveToken($hash); + + # Token freigeben vor nächstem Kommando + delActiveToken($hash); - # neuen HomeModeState abrufen - SSCam_gethomemodestate($hash); + # neuen HomeModeState abrufen + getHomeModeState($hash); - } elsif ($OpMode eq "gethomemodestate") { + } elsif ($OpMode eq "gethomemodestate") { my $hmst = $data->{'data'}{'on'}; my $hmststr = ($hmst == 1)?"on":"off"; @@ -5388,85 +5492,85 @@ sub SSCam_camop_parse { $update_time = sprintf "%02d.%02d.%04d / %02d:%02d:%02d" , $mday , $mon+=1 ,$year+=1900 , $hour , $min , $sec ; } else { $update_time = sprintf "%04d-%02d-%02d / %02d:%02d:%02d" , $year+=1900 , $mon+=1 , $mday , $hour , $min , $sec ; - } + } readingsBeginUpdate($hash); - readingsBulkUpdate($hash,"HomeModeState",$hmststr); + readingsBulkUpdate($hash,"HomeModeState",$hmststr); readingsBulkUpdate($hash,"LastUpdateTime",$update_time); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); - } elsif ($OpMode eq "getsvslog") { + } elsif ($OpMode eq "getsvslog") { my $lec = $data->{'data'}{'total'}; # abgerufene Anzahl von Log-Einträgen my $log = ''; - my $log0 = ""; - my $i = 0; + my $log0 = ""; + my $i = 0; while ($data->{'data'}->{'log'}->[$i]) { my $id = $data->{'data'}->{'log'}->[$i]{'id'}; - my $un = $data->{'data'}->{'log'}->[$i]{'user_name'}; - my $desc = $data->{'data'}->{'log'}->[$i]{'desc'}; - my $level = $data->{'data'}->{'log'}->[$i]{'type'}; - $level = ($level == 3)?"Error":($level == 2)?"Warning":"Information"; - my $time = $data->{'data'}->{'log'}->[$i]{'time'}; - $time = FmtDateTime($time); - $log0 = $time." - ".$level." - ".$desc if($i == 0); - $log .= "$time - $level - $desc
"; - $i++; - } - $log = "Surveillance Station Server \"$hash->{SERVERADDR}\" Log ( $i/$lec entries are displayed )
$log"; - - # asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details) - # bzw. https://forum.fhem.de/index.php/topic,77310.0.html - # $log = "Too much log data were selected. Please reduce amount of data by specifying all or one of 'severity', 'limit', 'match'" if (length($log) >= 102400); - + my $un = $data->{'data'}->{'log'}->[$i]{'user_name'}; + my $desc = $data->{'data'}->{'log'}->[$i]{'desc'}; + my $level = $data->{'data'}->{'log'}->[$i]{'type'}; + $level = ($level == 3)?"Error":($level == 2)?"Warning":"Information"; + my $time = $data->{'data'}->{'log'}->[$i]{'time'}; + $time = FmtDateTime($time); + $log0 = $time." - ".$level." - ".$desc if($i == 0); + $log .= "$time - $level - $desc
"; + $i++; + } + $log = "Surveillance Station Server \"$hash->{SERVERADDR}\" Log ( $i/$lec entries are displayed )
$log"; + + # asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details) + # bzw. https://forum.fhem.de/index.php/topic,77310.0.html + # $log = "Too much log data were selected. Please reduce amount of data by specifying all or one of 'severity', 'limit', 'match'" if (length($log) >= 102400); + readingsBeginUpdate($hash); - readingsBulkUpdate($hash,"LastLogEntry",$log0) if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund; + readingsBulkUpdate($hash,"LastLogEntry",$log0) if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund; readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); - - # Ausgabe Popup der Log-Daten (nach readingsEndUpdate positionieren sonst "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen) - asyncOutput($hash->{HELPER}{CL}{1},"$log"); - delete($hash->{HELPER}{CL}); + + # Ausgabe Popup der Log-Daten (nach readingsEndUpdate positionieren sonst "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen) + asyncOutput($hash->{HELPER}{CL}{1},"$log"); + delete($hash->{HELPER}{CL}); - } elsif ($OpMode eq "getPresets") { + } elsif ($OpMode eq "getPresets") { my %ap = (); - my $i = 0; + my $i = 0; while ($data->{'data'}->{'preset'}->[$i]) { my $pname = $data->{'data'}->{'preset'}->[$i]{'name'}; - my $ptype = $data->{'data'}->{'preset'}->[$i]{'type'}; - my $ppos = $data->{'data'}->{'preset'}->[$i]{'position'}; - my $pspeed = $data->{'data'}->{'preset'}->[$i]{'speed'}; + my $ptype = $data->{'data'}->{'preset'}->[$i]{'type'}; + my $ppos = $data->{'data'}->{'preset'}->[$i]{'position'}; + my $pspeed = $data->{'data'}->{'preset'}->[$i]{'speed'}; my $pextra = $data->{'data'}->{'preset'}->[$i]{'extra'}; $ptype = ($ptype == 1)?"Home":"Normal"; $ap{$ppos} = "Name: $pname, Speed: $pspeed, Type: $ptype"; - $i++; - } + $i++; + } my $enum; foreach my $key (sort{$a <=>$b}keys%ap) { $enum .= $key." => ".$ap{$key}."
"; - } + } - $enum = "Preset positions saved of camera \"$hash->{CAMNAME}\" ". + $enum = "Preset positions saved of camera \"$hash->{CAMNAME}\" ". "(PresetNumber => Name: ..., Speed: ..., Type: ...)
$enum"; - - # asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details) - # bzw. https://forum.fhem.de/index.php/topic,77310.0.html - + + # asyncOutput kann normalerweise etwa 100k uebertragen (siehe fhem.pl/addToWritebuffer() fuer Details) + # bzw. https://forum.fhem.de/index.php/topic,77310.0.html + readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); - - # Ausgabe Popup der Daten (nach readingsEndUpdate positionieren sonst - # "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen) - asyncOutput($hash->{HELPER}{CL}{1},"$enum"); - delete($hash->{HELPER}{CL}); + + # Ausgabe Popup der Daten (nach readingsEndUpdate positionieren sonst + # "Connection lost, trying reconnect every 5 seconds" wenn > 102400 Zeichen) + asyncOutput($hash->{HELPER}{CL}{1},"$enum"); + delete($hash->{HELPER}{CL}); - } elsif ($OpMode eq "setPreset") { + } elsif ($OpMode eq "setPreset") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); @@ -5478,9 +5582,9 @@ sub SSCam_camop_parse { $pspeed = $pspeed?$pspeed:"not set"; Log3($name, 3, "$name - Camera \"$camname\" preset \"$pname\" was saved to number $pnumber with speed $pspeed"); - SSCam_getptzlistpreset($hash); + getPtzPresetList($hash); - } elsif ($OpMode eq "delPreset") { + } elsif ($OpMode eq "delPreset") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); @@ -5489,9 +5593,9 @@ sub SSCam_camop_parse { my $dp = $hash->{HELPER}{DELPRESETNAME}; delete $hash->{HELPER}{ALLPRESETS}{$dp}; Log3($name, 3, "$name - Preset \"$dp\" of camera \"$camname\" has been deleted"); - SSCam_getptzlistpreset($hash); + getPtzPresetList($hash); - } elsif ($OpMode eq "piract") { + } elsif ($OpMode eq "piract") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); @@ -5501,7 +5605,7 @@ sub SSCam_camop_parse { my $piract = ($hash->{HELPER}{PIRACT} == 0)?"activated":"deactivated"; Log3($name, 3, "$name - PIR sensor $piract"); - } elsif ($OpMode eq "setHome") { + } elsif ($OpMode eq "setHome") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); @@ -5509,29 +5613,29 @@ sub SSCam_camop_parse { my $sh = $hash->{HELPER}{SETHOME}; Log3($name, 3, "$name - Preset \"$sh\" of camera \"$camname\" was set as Home position"); - SSCam_getptzlistpreset($hash); + getPtzPresetList($hash); - } elsif ($OpMode eq "setoptpar") { + } elsif ($OpMode eq "setoptpar") { my $rid = $data->{'data'}{'id'}; # Cam ID return wenn i.O. - my $ropt = $rid == $hash->{CAMID}?"none":"error in operation"; - - delete($hash->{HELPER}{NTPSERV}); - delete($hash->{HELPER}{MIRROR}); + my $ropt = $rid == $hash->{CAMID}?"none":"error in operation"; + + delete($hash->{HELPER}{NTPSERV}); + delete($hash->{HELPER}{MIRROR}); delete($hash->{HELPER}{FLIP}); - delete($hash->{HELPER}{ROTATE}); - delete($hash->{HELPER}{CHKLIST}); - + delete($hash->{HELPER}{ROTATE}); + delete($hash->{HELPER}{CHKLIST}); + readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error",$ropt); readingsEndUpdate($hash, 1); - # Token freigeben vor Abruf caminfo - SSCam_delActiveToken($hash); - RemoveInternalTimer($hash, "SSCam_getcaminfo"); - InternalTimer(gettimeofday()+0.5, "SSCam_getcaminfo", $hash, 0); - - } elsif ($OpMode eq "MotDetSc") { + # Token freigeben vor Abruf caminfo + delActiveToken($hash); + RemoveInternalTimer($hash, "FHEM::SSCam::getCamInfo"); + InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::getCamInfo", $hash, 0); + + } elsif ($OpMode eq "MotDetSc") { readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); @@ -5559,14 +5663,14 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" "); } - } elsif ($OpMode eq "Snap") { + } elsif ($OpMode eq "Snap") { # ein Schnapschuß wurde aufgenommen # falls Aufnahme noch läuft -> state = on setzen - SSCam_refresh($hash,0,1,0); # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event + roomRefresh($hash,0,1,0); # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event my $tac = ""; if($hash->{HELPER}{CANSENDSNAP} || $hash->{HELPER}{CANTELESNAP} || $hash->{HELPER}{CANCHATSNAP}) { - $tac = SSCam_openOrgetTrans($hash); # Transaktion starten oder vorhandenen Code holen + $tac = openOrgetTrans($hash); # Transaktion starten oder vorhandenen Code holen } $snapid = $data->{data}{'id'}; @@ -5591,49 +5695,49 @@ sub SSCam_camop_parse { $ncount--; # wird vermindert je Snap my $lag = $hash->{HELPER}{SNAPLAG}; # Zeitverzögerung zwischen zwei Schnappschüssen my $emtxt = $hash->{HELPER}{SMTPMSG}?$hash->{HELPER}{SMTPMSG}:""; # Text für Email-Versand - my $teletxt = $hash->{HELPER}{TELEMSG}?$hash->{HELPER}{TELEMSG}:""; # Text für TelegramBot-Versand + my $teletxt = $hash->{HELPER}{TELEMSG}?$hash->{HELPER}{TELEMSG}:""; # Text für TelegramBot-Versand my $chattxt = $hash->{HELPER}{CHATMSG}?$hash->{HELPER}{CHATMSG}:""; # Text für SSChatBot-Versand if($ncount > 0) { - InternalTimer(gettimeofday()+$lag, "SSCam_camsnap", "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac", 0); + InternalTimer(gettimeofday()+$lag, "FHEM::SSCam::camSnap", "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac", 0); if(!$tac) { - SSCam_delActiveToken($hash); # Token freigeben wenn keine Transaktion läuft - } + delActiveToken($hash); # Token freigeben wenn keine Transaktion läuft + } return; } # Anzahl und Size für Schnappschußabruf bestimmen - my ($slim,$ssize) = SSCam_snaplimsize($hash); + my ($slim,$ssize) = snapLimSize($hash); if (AttrVal($name,"debugactivetoken",0)) { Log3($name, 1, "$name - start get snapinfo of last $slim snapshots with TA-code: $tac"); } if(!$hash->{HELPER}{TRANSACTION}) { # Token freigeben vor nächstem Kommando wenn keine Transaktion läuft - SSCam_delActiveToken($hash); + delActiveToken($hash); } - RemoveInternalTimer($hash, "SSCam_getsnapinfo"); - InternalTimer(gettimeofday()+0.6, "SSCam_getsnapinfo", "$name:$slim:$ssize:$tac", 0); + RemoveInternalTimer($hash, "FHEM::SSCam::getSnapInfo"); + InternalTimer(gettimeofday()+0.6, "FHEM::SSCam::getSnapInfo", "$name:$slim:$ssize:$tac", 0); return; - } elsif ($OpMode eq "getsnapinfo" || $OpMode eq "getsnapgallery" || ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ /snap/)) { + } elsif ($OpMode eq "getsnapinfo" || $OpMode eq "getsnapgallery" || ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ /snap/)) { my ($cache,@as,$g); - - Log3($name, $verbose, "$name - Snapinfos of camera $camname retrieved"); - # aktuellsten Snap zur Anzeige im StreamDev "lastsnap" speichern + Log3($name, $verbose, "$name - Snapinfos of camera $camname retrieved"); + + # aktuellsten Snap zur Anzeige im streamDev "lastsnap" speichern # $hash->{HELPER}{".LASTSNAP"} = $data->{data}{data}[0]{imageData}; - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $data{SSCam}{$name}{LASTSNAP} = $data->{data}{data}[0]{imageData}; } else { - SSCam_cache($name, "c_write", "{LASTSNAP}", $data->{data}{data}[0]{imageData}); + cache($name, "c_write", "{LASTSNAP}", $data->{data}{data}[0]{imageData}); } my %snaps = ( 0 => {'createdTm' => 'n.a.', 'fileName' => 'n.a.','snapid' => 'n.a.'} ); # Hilfshash my ($k,$l) = (0,0); - if($data->{'data'}{'data'}[0]{'createdTm'}) { + if($data->{'data'}{'data'}[0]{'createdTm'}) { while ($data->{'data'}{'data'}[$k]) { if(!$data->{'data'}{'data'}[$k]{'camName'} || $data->{'data'}{'data'}[$k]{'camName'} ne $camname) { # Forum:#97706 $k += 1; @@ -5661,40 +5765,40 @@ sub SSCam_camop_parse { if($rotnum && "$o" ne "$snaps{0}{snapid}") { @as = sort{$b<=>$a}keys%snaps; 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); + rotateReading($hash,"LastSnapId",$snaps{$key}{snapid},$rotnum,1); + rotateReading($hash,"LastSnapFilename",$snaps{$key}{fileName},$rotnum,1); + 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); + rotateReading($hash,"LastSnapId",$snaps{$as[0]}{snapid},$rotnum,1); + rotateReading($hash,"LastSnapFilename",$snaps{$as[0]}{fileName},$rotnum,1); + rotateReading($hash,"LastSnapTime",$snaps{$as[0]}{createdTm},$rotnum,1); } - - ##### ein Schnapschuss soll als liveView angezeigt werden ##### + + ##### ein Schnapschuss soll als liveView angezeigt werden ##### ################################################################# - Log3($name, 3, "$name - There is no snapshot of camera $camname to display ! Take one snapshot before.") - if(exists($hash->{HELPER}{RUNVIEW}) && $hash->{HELPER}{RUNVIEW} =~ /snap/ && !exists($data->{'data'}{'data'}[0]{imageData})); - - if (exists($hash->{HELPER}{RUNVIEW}) && $hash->{HELPER}{RUNVIEW} =~ /snap/ && exists($data->{'data'}{'data'}[0]{imageData})) { - delete $hash->{HELPER}{RUNVIEW}; - $hash->{HELPER}{LINK} = $data->{data}{data}[0]{imageData}; - } + Log3($name, 3, "$name - There is no snapshot of camera $camname to display ! Take one snapshot before.") + if(exists($hash->{HELPER}{RUNVIEW}) && $hash->{HELPER}{RUNVIEW} =~ /snap/ && !exists($data->{'data'}{'data'}[0]{imageData})); + + if (exists($hash->{HELPER}{RUNVIEW}) && $hash->{HELPER}{RUNVIEW} =~ /snap/ && exists($data->{'data'}{'data'}[0]{imageData})) { + delete $hash->{HELPER}{RUNVIEW}; + $hash->{HELPER}{LINK} = $data->{data}{data}[0]{imageData}; + } - ##### eine Schnapschussgalerie soll angezeigt oder als Bulk versendet werden ##### + ##### eine Schnapschussgalerie soll angezeigt oder als Bulk versendet werden ##### #################################################################################### - my $tac = SSCam_openOrgetTrans($hash); # Transaktion vorhandenen Code holen + my $tac = openOrgetTrans($hash); # Transaktion vorhandenen Code holen if($OpMode eq "getsnapgallery") { - if($hash->{HELPER}{CANSENDSNAP} || $hash->{HELPER}{CANTELESNAP} || $hash->{HELPER}{CANCHATSNAP}) { - # es sollen die Anzahl "$hash->{HELPER}{SNAPNUM}" Schnappschüsse versendet werden - my $i = 0; - my $sn = 0; + if($hash->{HELPER}{CANSENDSNAP} || $hash->{HELPER}{CANTELESNAP} || $hash->{HELPER}{CANCHATSNAP}) { + # es sollen die Anzahl "$hash->{HELPER}{SNAPNUM}" Schnappschüsse versendet werden + my $i = 0; + my $sn = 0; # bestehende Schnappschußdaten im Cache auf OLD schreiben und löschen # ####################################################################### - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { if($data{SSCam}{$name}{SNAPHASH}) { @@ -5703,7 +5807,7 @@ sub SSCam_camop_parse { } } } else { - for(SSCam_cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren + for(cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren next if $_ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/; $_ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/; push @as,$_ if($_=~/^(\d+)$/); @@ -5711,27 +5815,27 @@ sub SSCam_camop_parse { my %seen; my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; foreach my $key (@unique) { - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{snapid}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{snapid}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{snapid}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{createdTm}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{createdTm}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{fileName}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{fileName}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{fileName}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{imageData}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{imageData}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{snapid}"); + cache($name, "c_write", "{SNAPOLDHASH}{$key}{snapid}" , $g) if(defined $g); + cache($name, "c_remove", "{SNAPHASH}{$key}{snapid}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); + cache($name, "c_write", "{SNAPOLDHASH}{$key}{createdTm}" , $g) if(defined $g); + cache($name, "c_remove", "{SNAPHASH}{$key}{createdTm}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{fileName}"); + cache($name, "c_write", "{SNAPOLDHASH}{$key}{fileName}" , $g) if(defined $g); + cache($name, "c_remove", "{SNAPHASH}{$key}{fileName}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); + cache($name, "c_write", "{SNAPOLDHASH}{$key}{imageData}" , $g) if(defined $g); + cache($name, "c_remove", "{SNAPHASH}{$key}{imageData}"); } } - while ($data->{'data'}{'data'}[$i]) { - if(!$data->{'data'}{'data'}[$i]{'camName'} || $data->{'data'}{'data'}[$i]{'camName'} ne $camname) { # Forum:#97706 - $i += 1; - next; - } - $snapid = $data->{data}{data}[$i]{id}; + while ($data->{'data'}{'data'}[$i]) { + if(!$data->{'data'}{'data'}[$i]{'camName'} || $data->{'data'}{'data'}[$i]{'camName'} ne $camname) { # Forum:#97706 + $i += 1; + next; + } + $snapid = $data->{data}{data}[$i]{id}; my @t = split(" ", FmtDateTime($data->{data}{data}[$i]{createdTm})); my @d = split("-", $t[0]); my $createdTm; @@ -5740,13 +5844,13 @@ sub SSCam_camop_parse { } else { $createdTm = "$d[0]-$d[1]-$d[2] / $t[1]"; } - my $fileName = $data->{data}{data}[$i]{fileName}; - my $imageData = $data->{data}{data}[$i]{imageData}; # Image data of snapshot in base64 format - + my $fileName = $data->{data}{data}[$i]{fileName}; + my $imageData = $data->{data}{data}[$i]{imageData}; # Image data of snapshot in base64 format + # Schnappschuss Hash zum Versand wird erstellt ############################################## if($hash->{HELPER}{CANSENDSNAP} || $hash->{HELPER}{CANTELESNAP} || $hash->{HELPER}{CANCHATSNAP}) { - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $data{SSCam}{$name}{SENDSNAPS}{$tac}{$sn}{snapid} = $snapid; @@ -5754,17 +5858,17 @@ sub SSCam_camop_parse { $data{SSCam}{$name}{SENDSNAPS}{$tac}{$sn}{fileName} = $fileName; $data{SSCam}{$name}{SENDSNAPS}{$tac}{$sn}{imageData} = $imageData; } else { - SSCam_cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{snapid}" ,$snapid); - SSCam_cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{createdTm}" ,$createdTm); - SSCam_cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{fileName}" ,$fileName); - SSCam_cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{imageData}" ,$imageData); + cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{snapid}" ,$snapid); + cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{createdTm}" ,$createdTm); + cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{fileName}" ,$fileName); + cache($name, "c_write", "{SENDSNAPS}{$tac}{$sn}{imageData}" ,$imageData); } Log3($name,4, "$name - Snap '$sn' added to send gallery hash: ID => $snapid, File => $fileName, Created => $createdTm"); } # Snaphash erstellen für Galerie ################################ - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $data{SSCam}{$name}{SNAPHASH}{$sn}{snapid} = $snapid; @@ -5772,26 +5876,26 @@ sub SSCam_camop_parse { $data{SSCam}{$name}{SNAPHASH}{$sn}{fileName} = $fileName; $data{SSCam}{$name}{SNAPHASH}{$sn}{imageData} = $imageData; } else { - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{snapid}" ,$snapid); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{createdTm}" ,$createdTm); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{fileName}" ,$fileName); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{imageData}" ,$imageData); + cache($name, "c_write", "{SNAPHASH}{$sn}{snapid}" ,$snapid); + cache($name, "c_write", "{SNAPHASH}{$sn}{createdTm}" ,$createdTm); + cache($name, "c_write", "{SNAPHASH}{$sn}{fileName}" ,$fileName); + cache($name, "c_write", "{SNAPHASH}{$sn}{imageData}" ,$imageData); } - Log3($name,4, "$name - Snap '$sn' added to gallery hash: ID => $snapid, File => $fileName, Created => $createdTm"); + Log3($name,4, "$name - Snap '$sn' added to gallery hash: ID => $snapid, File => $fileName, Created => $createdTm"); $sn += 1; - $i += 1; + $i += 1; undef $imageData; undef $fileName; undef $createdTm; - } + } my $sgn = AttrVal($name,"snapGalleryNumber",3); my $ss = $sn; $sn = 0; - - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { if($data{SSCam}{$name}{SNAPOLDHASH} && $sgn > $ss) { @@ -5806,31 +5910,31 @@ sub SSCam_camop_parse { } else { for my $kn ($ss..($sgn-1)) { # next if $kn >= $hash->{HELPER}{SNAPLIMIT}; - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{snapid}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{snapid}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{snapid}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{createdTm}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{createdTm}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{createdTm}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{fileName}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{fileName}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{fileName}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{imageData}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{imageData}",$g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{imageData}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{snapid}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{snapid}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{snapid}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{createdTm}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{createdTm}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{createdTm}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{fileName}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{fileName}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{fileName}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{imageData}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{imageData}",$g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{imageData}"); $sn += 1; } } - # Schnappschüsse als Email / Telegram / SSChatBot versenden + # Schnappschüsse als Email / Telegram / SSChatBot versenden ########################################################### if(!$cache || $cache eq "internal" ) { - SSCam_prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDSNAPS}{$tac}); + prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDSNAPS}{$tac}); } else { - SSCam_prepareSendData ($hash, $OpMode, "{SENDSNAPS}{$tac}"); + prepareSendData ($hash, $OpMode, "{SENDSNAPS}{$tac}"); } - - } else { + + } else { # es soll eine Schnappschußgalerie bereitgestellt (Attr snapGalleryBoost=1) bzw. gleich angezeigt # werden (Attr snapGalleryBoost=0) => kein Versand !! ################################################################################################# @@ -5841,7 +5945,7 @@ sub SSCam_camop_parse { # bestehende Schnappschußdaten in OLD schieben und löschen # ############################################################ - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { if($data{SSCam}{$name}{SNAPHASH}) { @@ -5850,7 +5954,7 @@ sub SSCam_camop_parse { } } } else { - for(SSCam_cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren + for(cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren next if $_ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/; $_ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/; push @as,$_ if($_=~/^(\d+)$/); @@ -5858,26 +5962,26 @@ sub SSCam_camop_parse { my %seen; my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; foreach my $key (@unique) { - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{snapid}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{snapid}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{snapid}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{createdTm}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{createdTm}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{fileName}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{fileName}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{fileName}"); - $g = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); - SSCam_cache($name, "c_write", "{SNAPOLDHASH}{$key}{imageData}" , $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPHASH}{$key}{imageData}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{snapid}" ); + cache ($name, "c_write", "{SNAPOLDHASH}{$key}{snapid}", $g) if(defined $g); + cache ($name, "c_remove", "{SNAPHASH}{$key}{snapid}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); + cache ($name, "c_write", "{SNAPOLDHASH}{$key}{createdTm}", $g) if(defined $g); + cache ($name, "c_remove", "{SNAPHASH}{$key}{createdTm}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{fileName}"); + cache ($name, "c_write", "{SNAPOLDHASH}{$key}{fileName}", $g) if(defined $g); + cache ($name, "c_remove", "{SNAPHASH}{$key}{fileName}"); + $g = cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); + cache ($name, "c_write", "{SNAPOLDHASH}{$key}{imageData}", $g) if(defined $g); + cache ($name, "c_remove", "{SNAPHASH}{$key}{imageData}"); } } while ($data->{'data'}{'data'}[$i]) { - if(!$data->{'data'}{'data'}[$i]{'camName'} || $data->{'data'}{'data'}[$i]{'camName'} ne $camname) { # Forum:#97706 - $i += 1; - next; - } + if(!$data->{'data'}{'data'}[$i]{'camName'} || $data->{'data'}{'data'}[$i]{'camName'} ne $camname) { # Forum:#97706 + $i += 1; + next; + } $snapid = $data->{data}{data}[$i]{id}; my $createdTm = $data->{data}{data}[$i]{createdTm}; my $fileName = $data->{data}{data}[$i]{fileName}; @@ -5893,7 +5997,7 @@ sub SSCam_camop_parse { # Snaphash erstellen für Galerie # ################################## - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $data{SSCam}{$name}{SNAPHASH}{$sn}{snapid} = $snapid; @@ -5901,10 +6005,10 @@ sub SSCam_camop_parse { $data{SSCam}{$name}{SNAPHASH}{$sn}{fileName} = $fileName; $data{SSCam}{$name}{SNAPHASH}{$sn}{imageData} = $imageData; } else { - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{snapid}" ,$snapid); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{createdTm}" ,$createdTm); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{fileName}" ,$fileName); - SSCam_cache($name, "c_write", "{SNAPHASH}{$sn}{imageData}" ,$imageData); + cache($name, "c_write", "{SNAPHASH}{$sn}{snapid}", $snapid ); + cache($name, "c_write", "{SNAPHASH}{$sn}{createdTm}", $createdTm); + cache($name, "c_write", "{SNAPHASH}{$sn}{fileName}", $fileName ); + cache($name, "c_write", "{SNAPHASH}{$sn}{imageData}", $imageData); } Log3($name, 4, "$name - Snap '$sn' added to gallery hash: SN => $sn, ID => $snapid, File => $fileName, Created => $createdTm"); @@ -5920,7 +6024,7 @@ sub SSCam_camop_parse { my $ss = $sn; $sn = 0; - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { if($data{SSCam}{$name}{SNAPOLDHASH} && $sgn > $ss) { @@ -5934,28 +6038,28 @@ sub SSCam_camop_parse { } } else { for my $kn ($ss..($sgn-1)) { - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{snapid}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{snapid}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{snapid}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{createdTm}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{createdTm}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{createdTm}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{fileName}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{fileName}", $g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{fileName}"); - $g = SSCam_cache($name, "c_read", "{SNAPOLDHASH}{$sn}{imageData}"); - SSCam_cache($name, "c_write", "{SNAPHASH}{$kn}{imageData}",$g) if(defined $g); - SSCam_cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{imageData}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{snapid}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{snapid}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{snapid}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{createdTm}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{createdTm}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{createdTm}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{fileName}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{fileName}", $g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{fileName}"); + $g = cache($name, "c_read", "{SNAPOLDHASH}{$sn}{imageData}"); + cache($name, "c_write", "{SNAPHASH}{$kn}{imageData}",$g) if(defined $g); + cache($name, "c_remove", "{SNAPOLDHASH}{$sn}{imageData}"); $sn += 1; } } # Direktausgabe Snaphash wenn nicht gepollt wird - if(!AttrVal($name, "snapGalleryBoost",0)) { - my $htmlCode = SSCam_composegallery($name); + if(!AttrVal($name, "snapGalleryBoost",0)) { + my $htmlCode = composeGallery($name); for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) { - asyncOutput($hash->{HELPER}{CL}{$k},"$htmlCode"); + asyncOutput($hash->{HELPER}{CL}{$k},"$htmlCode"); } delete($data{SSCam}{$name}{SNAPHASH}); # Snaphash Referenz löschen %allsnaps = (); delete($hash->{HELPER}{CL}); @@ -5968,25 +6072,25 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); - undef %snaps; + undef %snaps; undef $g; - delete $hash->{HELPER}{GETSNAPGALLERY}; # Steuerbit getsnapgallery + delete $hash->{HELPER}{GETSNAPGALLERY}; # Steuerbit getsnapgallery delete $data{SSCam}{$name}{SNAPOLDHASH}; - SSCam_closeTrans($hash); # Transaktion beenden + closeTrans($hash); # Transaktion beenden - ######## fallabhängige Eventgenerierung ######## + ######## fallabhängige Eventgenerierung ######## if ($hash->{HELPER}{INFORM} || $hash->{HELPER}{LSNAPBYSTRMDEV}) { # Snap durch SSCamSTRM-Device ausgelöst - SSCam_refresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event delete $hash->{HELPER}{LSNAPBYSTRMDEV}; } elsif ($hash->{HELPER}{LSNAPBYDEV}) { - SSCam_refresh($hash,0,1,0); # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event + roomRefresh($hash,0,1,0); # kein Room-Refresh, SSCam-state-Event, kein SSCamSTRM-Event delete $hash->{HELPER}{LSNAPBYDEV}; } else { - SSCam_refresh($hash,0,0,0); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,0,0); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event } - } elsif ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ m/^live_.*hls$/) { + } elsif ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ m/^live_.*hls$/) { # HLS Streaming wurde aktiviert $hash->{HELPER}{HLSSTREAM} = "active"; # externe LivestreamURL setzen @@ -6000,23 +6104,23 @@ sub SSCam_camop_parse { Log3($name, 4, "$name - HLS Streaming of camera \"$name\" activated, Streaming-URL: $url") if(AttrVal($name,"verbose",3) == 4); Log3($name, 3, "$name - HLS Streaming of camera \"$name\" activated") if(AttrVal($name,"verbose",3) == 3); - SSCam_refresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event } elsif ($OpMode eq "stopliveview_hls") { # HLS Streaming wurde deaktiviert, Aktivitätsstatus speichern $hash->{HELPER}{HLSSTREAM} = "inactive"; Log3($name, 3, "$name - HLS Streaming of camera \"$name\" deactivated"); - SSCam_refresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event } elsif ($OpMode eq "reactivate_hls") { # HLS Streaming wurde deaktiviert, Aktivitätsstatus speichern $hash->{HELPER}{HLSSTREAM} = "inactive"; Log3($name, 4, "$name - HLS Streaming of camera \"$name\" deactivated for streaming device"); - # Token freigeben vor hlsactivate - SSCam_delActiveToken($hash); - SSCam_hlsactivate($hash); + # Token freigeben vor hlsactivate + delActiveToken($hash); + activateHls($hash); return; } elsif ($OpMode eq "activate_hls") { @@ -6024,7 +6128,7 @@ sub SSCam_camop_parse { $hash->{HELPER}{HLSSTREAM} = "active"; Log3($name, 4, "$name - HLS Streaming of camera \"$name\" activated for streaming device"); - SSCam_refresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event + roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event } elsif ($OpMode eq "getsnapfilename") { # den Filenamen eines Schnapschusses ermitteln @@ -6043,9 +6147,9 @@ sub SSCam_camop_parse { Log3($name, 4, "$name - Filename of Snap-ID $snapid is \"$data->{'data'}{'data'}[0]{'fileName'}\"") if($data->{'data'}{'data'}[0]{'fileName'}); - } elsif ($OpMode eq "getstreamformat") { + } elsif ($OpMode eq "getstreamformat") { # aktuelles Streamformat abgefragt - my $sformat = SSCam_jboolmap($data->{'data'}->{'format'}); + my $sformat = jboolmap($data->{'data'}->{'format'}); readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode","none"); @@ -6053,7 +6157,7 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"CamStreamFormat", uc($sformat)) if($sformat); readingsEndUpdate($hash, 1); - } elsif ($OpMode eq "gopreset") { + } elsif ($OpMode eq "gopreset") { # eine Presetposition wurde angefahren # falls Aufnahme noch läuft -> state = on setzen my $st = (ReadingsVal("$name", "Record", "Stop") eq "Start")?"on":"off"; @@ -6068,7 +6172,7 @@ sub SSCam_camop_parse { # Logausgabe Log3($name, 3, "$name - Camera $camname has been moved to position \"$hash->{HELPER}{GOPRESETNAME}\""); - } elsif ($OpMode eq "runpatrol") { + } elsif ($OpMode eq "runpatrol") { # eine Tour wurde gestartet # falls Aufnahme noch läuft -> state = on setzen my $st = (ReadingsVal("$name", "Record", "Stop") eq "Start")?"on":"off"; @@ -6082,7 +6186,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Patrol \"$hash->{HELPER}{GOPATROLNAME}\" of camera $camname has been started successfully"); - } elsif ($OpMode eq "goabsptz") { + } elsif ($OpMode eq "goabsptz") { # eine absolute PTZ-Position wurde angefahren # falls Aufnahme noch läuft -> state = on setzen my $st = (ReadingsVal("$name", "Record", "Stop") eq "Start")?"on":"off"; @@ -6096,7 +6200,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname has been moved to absolute position \"posX=$hash->{HELPER}{GOPTZPOSX}\" and \"posY=$hash->{HELPER}{GOPTZPOSY}\""); - } elsif ($OpMode eq "startTrack") { + } elsif ($OpMode eq "startTrack") { # Object Tracking wurde eingeschaltet readingsBeginUpdate($hash); @@ -6106,7 +6210,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Object tracking of Camera $camname has been switched on"); - } elsif ($OpMode eq "stopTrack") { + } elsif ($OpMode eq "stopTrack") { # Object Tracking wurde eingeschaltet readingsBeginUpdate($hash); @@ -6116,7 +6220,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Object tracking of Camera $camname has been stopped"); - } elsif ($OpMode eq "movestart") { + } elsif ($OpMode eq "movestart") { # ein "Move" in eine bestimmte Richtung wird durchgeführt readingsBeginUpdate($hash); @@ -6126,10 +6230,10 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname started move to direction \"$hash->{HELPER}{GOMOVEDIR}\" with duration of $hash->{HELPER}{GOMOVETIME} s"); - RemoveInternalTimer($hash, "SSCam_movestop"); - InternalTimer(gettimeofday()+($hash->{HELPER}{GOMOVETIME}), "SSCam_movestop", $hash); + RemoveInternalTimer($hash, "FHEM::SSCam::moveStop"); + InternalTimer(gettimeofday()+($hash->{HELPER}{GOMOVETIME}), "FHEM::SSCam::moveStop", $hash); - } elsif ($OpMode eq "movestop") { + } elsif ($OpMode eq "movestop") { # ein "Move" in eine bestimmte Richtung wurde durchgeführt # falls Aufnahme noch läuft -> state = on setzen my $st = (ReadingsVal("$name", "Record", "Stop") eq "Start")?"on":"off"; @@ -6156,7 +6260,7 @@ sub SSCam_camop_parse { # Logausgabe Log3($name, 3, "$name - Camera $camname has been enabled successfully"); - } elsif ($OpMode eq "Disable") { + } elsif ($OpMode eq "Disable") { # Kamera wurde deaktiviert readingsBeginUpdate($hash); @@ -6168,7 +6272,7 @@ sub SSCam_camop_parse { Log3($name, 3, "$name - Camera $camname has been disabled successfully"); - } elsif ($OpMode eq "getsvsinfo") { + } elsif ($OpMode eq "getsvsinfo") { # Parse SVS-Infos $userPriv = $data->{'data'}{'userPriv'}; if (defined($userPriv)) { @@ -6186,22 +6290,22 @@ sub SSCam_camop_parse { # Werte in $hash zur späteren Auswertung einfügen $hash->{HELPER}{SVSVERSION}{MAJOR} = $data->{'data'}{'version'}{'major'}; $hash->{HELPER}{SVSVERSION}{MINOR} = $data->{'data'}{'version'}{'minor'}; - $hash->{HELPER}{SVSVERSION}{SMALL} = $data->{'data'}{'version'}{'small'}; + $hash->{HELPER}{SVSVERSION}{SMALL} = $data->{'data'}{'version'}{'small'}; $hash->{HELPER}{SVSVERSION}{BUILD} = $data->{'data'}{'version'}{'build'}; - my $major = $hash->{HELPER}{SVSVERSION}{MAJOR}; - my $minor = $hash->{HELPER}{SVSVERSION}{MINOR}; - my $small = $hash->{HELPER}{SVSVERSION}{SMALL}; - my $build = $hash->{HELPER}{SVSVERSION}{BUILD}; + my $major = $hash->{HELPER}{SVSVERSION}{MAJOR}; + my $minor = $hash->{HELPER}{SVSVERSION}{MINOR}; + my $small = $hash->{HELPER}{SVSVERSION}{SMALL}; + my $build = $hash->{HELPER}{SVSVERSION}{BUILD}; # simulieren einer anderen SVS-Version if (AttrVal($name, "simu_SVSversion", undef)) { Log3($name, 4, "$name - another SVS-version ".AttrVal($name, "simu_SVSversion", undef)." will be simulated"); - #delete $version{"SMALL"} if ($version{"SMALL"}); + #delete $version{"SMALL"} if ($version{"SMALL"}); my @vl = split (/\.|-/,AttrVal($name, "simu_SVSversion", "")); $major = $vl[0]; $minor = $vl[1]; - $small = ($vl[2] =~ /\d/)?$vl[2]:''; + $small = ($vl[2] =~ /\d/)?$vl[2]:''; $build = "xxxx-simu"; } @@ -6231,35 +6335,35 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"SVScustomPortHttps",$data->{'data'}{'customizedPortHttps'}); readingsBulkUpdate($hash,"SVSlicenseNumber",$data->{'data'}{'liscenseNumber'}); readingsBulkUpdate($hash,"SVSuserPriv",$userPriv); - if(defined($small)) { - readingsBulkUpdate($hash,"SVSversion",$major.".".$minor.".".$small."-".$build); - } else { - readingsBulkUpdate($hash,"SVSversion",$major.".".$minor."-".$build); - } + if(defined($small)) { + readingsBulkUpdate($hash,"SVSversion",$major.".".$minor.".".$small."-".$build); + } else { + readingsBulkUpdate($hash,"SVSversion",$major.".".$minor."-".$build); + } readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); Log3($name, $verbose, "$name - Informations related to Surveillance Station retrieved"); - } elsif ($OpMode eq "getStmUrlPath") { + } elsif ($OpMode eq "getStmUrlPath") { # Parse SVS-Infos - my($camforcemcast,$mjpegHttp,$multicst,$mxpegHttp,$unicastOverHttp,$unicastPath); - if($apicammaxver < 9) { - $camforcemcast = SSCam_jboolmap($data->{'data'}{'pathInfos'}[0]{'forceEnableMulticast'}); + my($camforcemcast,$mjpegHttp,$multicst,$mxpegHttp,$unicastOverHttp,$unicastPath); + if($apicammaxver < 9) { + $camforcemcast = jboolmap($data->{'data'}{'pathInfos'}[0]{'forceEnableMulticast'}); $mjpegHttp = $data->{'data'}{'pathInfos'}[0]{'mjpegHttpPath'}; $multicst = $data->{'data'}{'pathInfos'}[0]{'multicstPath'}; $mxpegHttp = $data->{'data'}{'pathInfos'}[0]{'mxpegHttpPath'}; $unicastOverHttp = $data->{'data'}{'pathInfos'}[0]{'unicastOverHttpPath'}; $unicastPath = $data->{'data'}{'pathInfos'}[0]{'unicastPath'}; - } - if($apicammaxver >= 9) { + } + if($apicammaxver >= 9) { $mjpegHttp = $data->{'data'}[0]{'mjpegHttpPath'}; $multicst = $data->{'data'}[0]{'multicstPath'}; $mxpegHttp = $data->{'data'}[0]{'mxpegHttpPath'}; $unicastOverHttp = $data->{'data'}[0]{'rtspOverHttpPath'}; $unicastPath = $data->{'data'}[0]{'rtspPath'}; - } + } # Rewrite Url's falls livestreamprefix ist gesetzt if (AttrVal($name, "livestreamprefix", undef)) { @@ -6269,20 +6373,20 @@ sub SSCam_camop_parse { $mjpegHttp = $exturl."/".$mjh[3]; my @mxh = split(/\//, $mxpegHttp, 4); $mxpegHttp = $exturl."/".$mxh[3]; - if($unicastPath) { + if($unicastPath) { my @ucp = split(/[@\|:]/, $unicastPath); my @lspf = split(/[\/\/\|:]/, $exturl); $unicastPath = $ucp[0].":".$ucp[1].":".$ucp[2]."@".$lspf[3].":".$ucp[4]; - } + } } # StmKey extrahieren my @sk = split(/&StmKey=/, $mjpegHttp); my $stmkey = $sk[1]; - # Quotes in StmKey entfernen falls noQuotesForSID gesetzt + # Quotes in StmKey entfernen falls noQuotesForSID gesetzt if(AttrVal($name, "noQuotesForSID",0)) { # Forum: https://forum.fhem.de/index.php/topic,45671.msg938236.html#msg938236 - $mjpegHttp =~ tr/"//d; + $mjpegHttp =~ tr/"//d; $mxpegHttp =~ tr/"//d; $stmkey =~ tr/"//d; } @@ -6298,15 +6402,15 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"StmKey",$stmkey); readingsBulkUpdate($hash,"StmKeymjpegHttp",$mjpegHttp) if(AttrVal($name,"showStmInfoFull",0)); readingsBulkUpdate($hash,"StmKeymxpegHttp",$mxpegHttp) if(AttrVal($name,"showStmInfoFull",0)); - readingsBulkUpdate($hash,"StmKeyUnicstOverHttp",$unicastOverHttp) if(AttrVal($name,"showStmInfoFull",0) && $unicastOverHttp); + readingsBulkUpdate($hash,"StmKeyUnicstOverHttp",$unicastOverHttp) if(AttrVal($name,"showStmInfoFull",0) && $unicastOverHttp); readingsBulkUpdate($hash,"StmKeyUnicst",$unicastPath) if(AttrVal($name,"showStmInfoFull",0) && $unicastPath); - readingsBulkUpdate($hash,"Errorcode","none"); + readingsBulkUpdate($hash,"Errorcode","none"); readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); Log3($name, $verbose, "$name - Stream-URLs of camera $camname retrieved"); - } elsif ($OpMode eq "Getcaminfo") { + } elsif ($OpMode eq "Getcaminfo") { # Parse Caminfos $camLiveMode = $data->{'data'}->{'cameras'}->[0]->{'camLiveMode'}; if ($camLiveMode eq "0") {$camLiveMode = "Liveview from DS";}elsif ($camLiveMode eq "1") {$camLiveMode = "Liveview from Camera";} @@ -6329,7 +6433,7 @@ sub SSCam_camop_parse { $deviceType = "Fisheye"; } - $camStatus = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'camStatus'}); + $camStatus = jboolmap($data->{'data'}->{'cameras'}->[0]->{'camStatus'}); if ($camStatus eq "1") { $camStatus = "enabled"; @@ -6340,7 +6444,7 @@ sub SSCam_camop_parse { readingsSingleUpdate($hash,"state", "off", 0); } - } elsif ($camStatus eq "3") { + } elsif ($camStatus eq "3") { $camStatus = "disconnected"; readingsSingleUpdate($hash,"state", "disconnected", 0); } elsif ($camStatus eq "7") { @@ -6356,11 +6460,11 @@ sub SSCam_camop_parse { } else { $recStatus = "Stop"; } - - my $rotate = $data->{'data'}->{'cameras'}->[0]->{'video_rotation'}; - $rotate = $rotate == 1?"true":"false"; - $exposuremode = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'exposure_mode'}); + my $rotate = $data->{'data'}->{'cameras'}->[0]->{'video_rotation'}; + $rotate = $rotate == 1?"true":"false"; + + $exposuremode = jboolmap($data->{'data'}->{'cameras'}->[0]->{'exposure_mode'}); if ($exposuremode == 0) { $exposuremode = "Auto"; } elsif ($exposuremode == 1) { @@ -6373,7 +6477,7 @@ sub SSCam_camop_parse { $exposuremode = "Unknown"; } - $exposurecontrol = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'exposure_control'}); + $exposurecontrol = jboolmap($data->{'data'}->{'cameras'}->[0]->{'exposure_control'}); if ($exposurecontrol == 0) { $exposurecontrol = "Auto"; } elsif ($exposurecontrol == 1) { @@ -6390,7 +6494,7 @@ sub SSCam_camop_parse { $exposurecontrol = "Unknown"; } - my $camaudiotype = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'detailInfo'}{'camAudioType'}); + my $camaudiotype = jboolmap($data->{'data'}->{'cameras'}->[0]->{'detailInfo'}{'camAudioType'}); if ($camaudiotype == 0) { $camaudiotype = "Unknown"; } elsif ($camaudiotype == 1) { @@ -6405,16 +6509,16 @@ sub SSCam_camop_parse { $camaudiotype = "AMR"; } - my $pdcap = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'PDCap'}); + my $pdcap = jboolmap($data->{'data'}->{'cameras'}->[0]->{'PDCap'}); if (!$pdcap || $pdcap == 0) { $pdcap = "false"; } else { $pdcap = "true"; } - $data->{'data'}->{'cameras'}->[0]->{'video_flip'} = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'video_flip'}); - $data->{'data'}->{'cameras'}->[0]->{'video_mirror'} = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'video_mirror'}); - $data->{'data'}->{'cameras'}->[0]->{'blPresetSpeed'} = SSCam_jboolmap($data->{'data'}->{'cameras'}->[0]->{'blPresetSpeed'}); + $data->{'data'}->{'cameras'}->[0]->{'video_flip'} = jboolmap($data->{'data'}->{'cameras'}->[0]->{'video_flip'}); + $data->{'data'}->{'cameras'}->[0]->{'video_mirror'} = jboolmap($data->{'data'}->{'cameras'}->[0]->{'video_mirror'}); + $data->{'data'}->{'cameras'}->[0]->{'blPresetSpeed'} = jboolmap($data->{'data'}->{'cameras'}->[0]->{'blPresetSpeed'}); my $clstrmno = $data->{'data'}->{'cameras'}->[0]->{'detailInfo'}{'camLiveStreamNo'}; $clstrmno++ if($clstrmno == 0); @@ -6435,7 +6539,7 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"CamRecShare",$data->{'data'}->{'cameras'}->[0]->{'camRecShare'}); readingsBulkUpdate($hash,"CamRecVolume",$data->{'data'}->{'cameras'}->[0]->{'camRecVolume'}); readingsBulkUpdate($hash,"CamIP",$data->{'data'}->{'cameras'}->[0]->{'host'}); - readingsBulkUpdate($hash,"CamNTPServer",$data->{'data'}->{'cameras'}->[0]->{'time_server'}) if($data->{'data'}->{'cameras'}->[0]->{'time_server'}); + readingsBulkUpdate($hash,"CamNTPServer",$data->{'data'}->{'cameras'}->[0]->{'time_server'}) if($data->{'data'}->{'cameras'}->[0]->{'time_server'}); readingsBulkUpdate($hash,"CamVendor",$data->{'data'}->{'cameras'}->[0]->{'detailInfo'}{'camVendor'}); readingsBulkUpdate($hash,"CamVideoType",$data->{'data'}->{'cameras'}->[0]->{'camVideoType'}); readingsBulkUpdate($hash,"CamPreRecTime",$data->{'data'}->{'cameras'}->[0]->{'detailInfo'}{'camPreRecTime'}); @@ -6444,7 +6548,7 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"CamblPresetSpeed",$data->{'data'}->{'cameras'}->[0]->{'blPresetSpeed'}); readingsBulkUpdate($hash,"CamVideoMirror",$data->{'data'}->{'cameras'}->[0]->{'video_mirror'}); readingsBulkUpdate($hash,"CamVideoFlip",$data->{'data'}->{'cameras'}->[0]->{'video_flip'}); - readingsBulkUpdate($hash,"CamVideoRotate",$rotate); + readingsBulkUpdate($hash,"CamVideoRotate",$rotate); readingsBulkUpdate($hash,"CapPIR",$pdcap); readingsBulkUpdate($hash,"Availability",$camStatus); readingsBulkUpdate($hash,"DeviceType",$deviceType); @@ -6456,10 +6560,10 @@ sub SSCam_camop_parse { readingsBulkUpdate($hash,"Error","none"); readingsEndUpdate($hash, 1); - $hash->{MODEL} = ReadingsVal($name,"CamVendor","")." - ".ReadingsVal($name,"CamModel","CAM") if(SSCam_IsModelCam($hash)); + $hash->{MODEL} = ReadingsVal($name,"CamVendor","")." - ".ReadingsVal($name,"CamModel","CAM") if(IsModelCam($hash)); Log3($name, $verbose, "$name - Informations of camera $camname retrieved"); - } elsif ($OpMode eq "geteventlist") { + } elsif ($OpMode eq "geteventlist") { my $eventnum = $data->{'data'}{'total'}; my $lrec = $data->{'data'}{'events'}[0]{name}; my $lrecid = $data->{'data'}{'events'}[0]{'eventId'}; @@ -6492,12 +6596,12 @@ sub SSCam_camop_parse { # Versand Aufnahme initiieren if($hash->{HELPER}{CANSENDREC} || $hash->{HELPER}{CANTELEREC} || $hash->{HELPER}{CANCHATREC}) { - SSCam_getrec($hash); + getRec($hash); } - } elsif ($OpMode eq "getmotionenum") { + } elsif ($OpMode eq "getmotionenum") { - $motdetsc = $data->{'data'}{'MDParam'}{'source'}; + $motdetsc = $data->{'data'}{'MDParam'}{'source'}; $sensitivity_camCap = $data->{'data'}{'MDParam'}{'sensitivity'}{'camCap'}; $sensitivity_value = $data->{'data'}{'MDParam'}{'sensitivity'}{'value'}; @@ -6561,7 +6665,7 @@ sub SSCam_camop_parse { Log3($name, $verbose, "$name - Enumerate motion detection parameters of camera $camname retrieved"); - } elsif ($OpMode eq "Getcapabilities") { + } elsif ($OpMode eq "Getcapabilities") { # Parse Infos my $ptzfocus = $data->{'data'}{'ptzFocus'}; if ($ptzfocus eq "0") { @@ -6618,12 +6722,12 @@ sub SSCam_camop_parse { $ptziris = "support continuous operation"; } - $data->{'data'}{'ptzHasObjTracking'} = SSCam_jboolmap($data->{'data'}{'ptzHasObjTracking'}); - $data->{'data'}{'audioOut'} = SSCam_jboolmap($data->{'data'}{'audioOut'}); - $data->{'data'}{'ptzSpeed'} = SSCam_jboolmap($data->{'data'}{'ptzSpeed'}); - $data->{'data'}{'ptzAbs'} = SSCam_jboolmap($data->{'data'}{'ptzAbs'}); - $data->{'data'}{'ptzAutoFocus'} = SSCam_jboolmap($data->{'data'}{'ptzAutoFocus'}); - $data->{'data'}{'ptzHome'} = SSCam_jboolmap($data->{'data'}{'ptzHome'}); + $data->{'data'}{'ptzHasObjTracking'} = jboolmap($data->{'data'}{'ptzHasObjTracking'}); + $data->{'data'}{'audioOut'} = jboolmap($data->{'data'}{'audioOut'}); + $data->{'data'}{'ptzSpeed'} = jboolmap($data->{'data'}{'ptzSpeed'}); + $data->{'data'}{'ptzAbs'} = jboolmap($data->{'data'}{'ptzAbs'}); + $data->{'data'}{'ptzAutoFocus'} = jboolmap($data->{'data'}{'ptzAutoFocus'}); + $data->{'data'}{'ptzHome'} = jboolmap($data->{'data'}{'ptzHome'}); # Setreading readingsBeginUpdate($hash); @@ -6646,7 +6750,7 @@ sub SSCam_camop_parse { Log3($name, $verbose, "$name - Capabilities of camera $camname retrieved"); - } elsif ($OpMode eq "Getptzlistpreset") { + } elsif ($OpMode eq "Getptzlistpreset") { # Parse PTZ-ListPresets my $presetcnt = $data->{'data'}->{'total'}; my $cnt = 0; @@ -6678,11 +6782,11 @@ sub SSCam_camop_parse { readingsEndUpdate($hash, 1); # spezifische Attribute für PTZ-Cams verfügbar machen - SSCam_addptzattr($name); + addptzattr($name); Log3($name, $verbose, "$name - PTZ Presets of camera $camname retrieved"); - } elsif ($OpMode eq "Getptzlistpatrol") { + } elsif ($OpMode eq "Getptzlistpatrol") { # Parse PTZ-ListPatrols $patrolcnt = $data->{'data'}->{'total'}; my $cnt = 0; @@ -6716,19 +6820,19 @@ sub SSCam_camop_parse { $errorcode = $data->{'error'}->{'code'}; # Fehlertext zum Errorcode ermitteln - $error = SSCam_experror($hash,$errorcode); - + $error = expErrors($hash,$errorcode); + readingsBeginUpdate($hash); readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Error",$error); readingsEndUpdate($hash, 1); - - if ($errorcode =~ /105/) { - Log3($name, 2, "$name - ERROR - $errorcode - $error in operation $OpMode -> try new login"); + + if ($errorcode =~ /105/) { + Log3($name, 2, "$name - ERROR - $errorcode - $error in operation $OpMode -> try new login"); undef $data; undef $myjson; - return SSCam_login($hash,'SSCam_getapisites'); - } + return login($hash,'getApiSites'); + } Log3($name, 2, "$name - ERROR - Operation $OpMode of Camera $camname was not successful. Errorcode: $errorcode - $error"); } @@ -6738,7 +6842,7 @@ sub SSCam_camop_parse { } # Token freigeben - SSCam_delActiveToken($hash); + delActiveToken($hash); return; } @@ -6750,7 +6854,7 @@ return; #################################################################################### # Login in SVS wenn kein oder ungültige Session-ID vorhanden ist -sub SSCam_login { +sub login { my ($hash,$fret) = @_; my $name = $hash->{NAME}; my $serveraddr = $hash->{SERVERADDR}; @@ -6765,21 +6869,21 @@ sub SSCam_login { delete $hash->{HELPER}{SID}; # Login und SID ermitteln - Log3($name, 4, "$name - --- Begin Function SSCam_login ---"); + Log3($name, 4, "$name - --- Begin Function login ---"); # Credentials abrufen - my ($success, $username, $password) = SSCam_getcredentials($hash,0,"svs"); + my ($success, $username, $password) = getCredentials($hash,0,"svs"); unless ($success) { Log3($name, 2, "$name - Credentials couldn't be retrieved successfully - make sure you've set it with \"set $name credentials
| $ptz_ret | "; } @@ -7839,12 +7943,12 @@ sub SSCam_StreamDev { } elsif ($fmt =~ /lastsnap/) { # $link = $hash->{HELPER}{".LASTSNAP"}; - my $cache = SSCam_cache($camname, "c_init"); # Cache initialisieren + my $cache = cache($camname, "c_init"); # Cache initialisieren Log3($camname, 1, "$camname - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { $link = $data{SSCam}{$camname}{LASTSNAP}; } else { - $link = SSCam_cache($camname, "c_read", "{LASTSNAP}"); + $link = cache($camname, "c_read", "{LASTSNAP}"); } my $gattr = (AttrVal($camname,"snapGallerySize","Icon") eq "Full")?$ha:""; @@ -7904,15 +8008,15 @@ sub SSCam_StreamDev { if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start $ret .= "$imgrecendless "; - } else { + } else { # Aufnahmebutton Stop $ret .= "$imgrecstop "; - } + } $ret .= "$imgdosnap "; } $ret .= ""; if(AttrVal($camname,"ptzPanel_use",1)) { - my $ptz_ret = SSCam_ptzpanel($camname,$strmdev,'',$ftui); + my $ptz_ret = ptzPanel($camname,$strmdev,'',$ftui); if($ptz_ret) { $ret .= "$ptz_ret | "; } @@ -7941,7 +8045,7 @@ sub SSCam_StreamDev { } $ret .= ""; - $ret .= SSCam_bindhlsjs ($camname, $strmdev, $m3u8, $d); + $ret .= bindhlsjs ($camname, $strmdev, $m3u8, $d); $streamHash->{HELPER}{STREAM} = ""; # Stream für "set | ";
if(AttrVal($camname,"ptzPanel_use",1)) {
- my $ptz_ret = SSCam_ptzpanel($camname,$strmdev,'',$ftui);
+ my $ptz_ret = ptzPanel($camname,$strmdev,'',$ftui);
if($ptz_ret) {
$ret .= "$ptz_ret | "; } @@ -7988,15 +8092,15 @@ sub SSCam_StreamDev { if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start $ret .= "$imgrecendless "; - } else { + } else { # Aufnahmebutton Stop $ret .= "$imgrecstop "; - } + } $ret .= "$imgdosnap "; } $ret .= ""; if(AttrVal($camname,"ptzPanel_use",1) && $hash->{HELPER}{RUNVIEW} =~ /live_fw/) { - my $ptz_ret = SSCam_ptzpanel($camname,$strmdev,'',$ftui); + my $ptz_ret = ptzPanel($camname,$strmdev,'',$ftui); if($ptz_ret) { $ret .= "$ptz_ret | "; } @@ -8075,7 +8179,7 @@ sub SSCam_StreamDev { $ret .= $imgblank; $ret .= "$imgdosnap "; $ret .= ""; - + } elsif($wltype =~ /embed/) { if(!$ftui) { $ret .= "" if($link); @@ -8104,14 +8208,14 @@ sub SSCam_StreamDev { if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start $ret .= "$imgrecendless "; - } else { + } else { # Aufnahmebutton Stop $ret .= "$imgrecstop "; - } + } $ret .= "$imgdosnap "; $ret .= ""; if(AttrVal($camname,"ptzPanel_use",1)) { - my $ptz_ret = SSCam_ptzpanel($camname,$strmdev,'',$ftui); + my $ptz_ret = ptzPanel($camname,$strmdev,'',$ftui); if($ptz_ret) { $ret .= " | $ptz_ret | "; } @@ -8124,7 +8228,7 @@ sub SSCam_StreamDev { $cause = "Playback cam \"$cam\" switched off"; $ret .= " $cause "; $ret .= "$imgmjpegrun "; - $ret .= "$imghlsrun " if(SSCam_IsCapHLS($hash)); + $ret .= "$imghlsrun " if(IsCapHLS($hash)); $ret .= "$imglrirun "; $ret .= "$imglh264run "; $ret .= "$imglmjpegrun "; @@ -8151,7 +8255,7 @@ return $ret; # $m3u8 - ein .m3u8-File oder ein entsprechender Link # $d - ein Unique-Name zur Codeableitung (darf keinen . enthalten) ############################################################################################# -sub SSCam_bindhlsjs { +sub bindhlsjs { my ($camname, $strmdev, $m3u8, $d) = @_; my $hlsjs = "sscam_hls.js"; # hls.js Release von Projekteite https://github.com/video-dev/hls.js/releases my $ret; @@ -8196,14 +8300,13 @@ return $ret; # Schnappschußgalerie zusammenstellen # Verwendung durch SSCamSTRM-Devices ############################################################################### -sub SSCam_composegallery { +sub composeGallery { my ($name,$strmdev,$model,$ftui) = @_; my $hash = $defs{$name}; my $camname = $hash->{CAMNAME}; my $sgc = AttrVal($name,"snapGalleryColumns",3); # Anzahl der Images in einer Tabellenzeile my $lss = ReadingsVal($name, "LastSnapTime", ""); # Zeitpunkt neueste Aufnahme my $lang = AttrVal("global","language","EN"); # Systemsprache - # my $limit = $hash->{HELPER}{SNAPLIMIT}; # abgerufene Anzahl Snaps my $limit = AttrVal($name,"snapGalleryNumber",3); # abgerufene Anzahl Snaps my $totalcnt = $hash->{HELPER}{TOTALCNT}; # totale Anzahl Snaps $limit = $totalcnt if ($limit > $totalcnt); # wenn weniger Snaps vorhanden sind als $limit -> Text in Anzeige korrigieren @@ -8212,20 +8315,20 @@ sub SSCam_composegallery { my $hdrAlign = "center"; my $lupt = ((ReadingsTimestamp($name,"LastSnapTime"," ") gt ReadingsTimestamp($name,"LastUpdateTime"," ")) ? ReadingsTimestamp($name,"LastSnapTime"," ") - : ReadingsTimestamp($name,"LastUpdateTime"," ")); # letzte Aktualisierung + : ReadingsTimestamp($name,"LastUpdateTime"," ")); # letzte Aktualisierung $lupt =~ s/ / \/ /; my ($alias,$dlink,$hb) = ("","",""); my ($cache,$imgdat,$imgTm); - # Kontext des SSCamSTRM-Devices speichern für SSCam_refresh + # Kontext des SSCamSTRM-Devices speichern für roomRefresh $hash->{HELPER}{STRMDEV} = $strmdev; # Name des aufrufenden SSCamSTRM-Devices $hash->{HELPER}{STRMROOM} = $FW_room?$FW_room:""; # Raum aus dem das SSCamSTRM-Device die Funktion aufrief $hash->{HELPER}{STRMDETAIL} = $FW_detail?$FW_detail:""; # Name des SSCamSTRM-Devices (wenn Detailansicht) if($strmdev) { - my $streamHash = $defs{$strmdev}; # Hash des SSCamSTRM-Devices - $uuid = $streamHash->{FUUID}; # eindeutige UUID des Streamingdevices - delete $streamHash->{HELPER}{STREAM}; + my $streamHash = $defs{$strmdev}; # Hash des SSCamSTRM-Devices + $uuid = $streamHash->{FUUID}; # eindeutige UUID des Streamingdevices + delete $streamHash->{HELPER}{STREAM}; $alias = AttrVal($strmdev, "alias", $strmdev); # Linktext als Aliasname oder Devicename setzen if(AttrVal($strmdev, "noLink", 0)) { $dlink = $alias; # keine Links im Stream-Dev generieren @@ -8244,7 +8347,7 @@ sub SSCam_composegallery { my $ha = AttrVal($name, "snapGalleryHtmlAttr", AttrVal($name, "htmlattr", 'width="500" height="325"')); - # falls "SSCam_composegallery" durch ein SSCamSTRM-Device aufgerufen wird + # falls "composeGallery" durch ein SSCamSTRM-Device aufgerufen wird my $pws = ""; if ($strmdev) { $pws = AttrVal($strmdev, "popupWindowSize", ""); # Größe eines Popups (umgelegt: Forum:https://forum.fhem.de/index.php/topic,45671.msg927912.html#msg927912) @@ -8260,15 +8363,15 @@ sub SSCam_composegallery { my $sgbnote = " "; if($strmdev && !AttrVal($name,"snapGalleryBoost",0)) { $sgbnote = "CAUTION - No snapshots can be retrieved. Please set the attribute \"snapGalleryBoost=1\" in device $name" if ($lang eq "EN"); - $sgbnote = "ACHTUNG - Es können keine Schnappschüsse abgerufen werden. Bitte setzen sie das Attribut \"snapGalleryBoost=1\" im Device $name" if ($lang eq "DE"); + $sgbnote = "ACHTUNG - Es können keine Schnappschüsse abgerufen werden. Bitte setzen sie das Attribut \"snapGalleryBoost=1\" im Device $name" if ($lang eq "DE"); } # Javascript Bibliothek für Tooltips (http://www.walterzorn.de/tooltip/tooltip.htm#download) und Texte my $ttjs = "/fhem/pgm2/sscam_tooltip.js"; - my $ttsnap = $SSCam_ttips_en{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/g; + my $ttsnap = $ttips_en{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/g; if(AttrVal("global","language","EN") =~ /DE/) { - $ttsnap = $SSCam_ttips_de{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/g; + $ttsnap = $ttips_de{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/g; } # Header Generierung @@ -8283,12 +8386,12 @@ sub SSCam_composegallery { if ($lang eq "EN") { $header .= "Snapshots ($limit/$totalcnt) of camera $camname - newest Snapshot: $lss "; - $header .= " (Possibly another snapshots are available. Last recall: $lupt) " if(AttrVal($name,"snapGalleryBoost",0)); + $header .= " (Possibly another snapshots are available. Last recall: $lupt) " if(AttrVal($name,"snapGalleryBoost",0)); } else { $header .= "Schnappschüsse ($limit/$totalcnt) von Kamera $camname - neueste Aufnahme: $lss "; $lupt =~ /(\d+)-(\d\d)-(\d\d)\s+(.*)/; - $lupt = "$3.$2.$1 $4"; - $header .= " (Eventuell sind neuere Aufnahmen verfügbar. Letzter Abruf: $lupt) " if(AttrVal($name,"snapGalleryBoost",0)); + $lupt = "$3.$2.$1 $4"; + $header .= " (Eventuell sind neuere Aufnahmen verfügbar. Letzter Abruf: $lupt) " if(AttrVal($name,"snapGalleryBoost",0)); } $header .= $sgbnote; @@ -8306,7 +8409,7 @@ sub SSCam_composegallery { my $cell = 1; my $idata = ""; - $cache = SSCam_cache($name, "c_init"); # Cache initialisieren + $cache = cache($name, "c_init"); # Cache initialisieren Log3($name, 1, "$name - Fall back to internal Cache due to preceding failure.") if(!$cache); if(!$cache || $cache eq "internal" ) { foreach my $key (sort{$a<=>$b}keys %{$data{SSCam}{$name}{SNAPHASH}}) { @@ -8328,7 +8431,7 @@ sub SSCam_composegallery { } } else { my @as; - for(SSCam_cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren + for(cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren next if $_ !~ /\{SNAPHASH\}\{(\d+)\}\{.*\}/; $_ =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/; push @as,$_ if($_=~/^(\d+)$/); @@ -8336,8 +8439,8 @@ sub SSCam_composegallery { my %seen; my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys foreach my $key (@unique) { - $imgdat = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); - $imgTm = SSCam_cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); + $imgdat = cache($name, "c_read", "{SNAPHASH}{$key}{imageData}"); + $imgTm = cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}"); if(!$ftui) { $idata = "onClick=\"FW_okDialog('  ')\"" if(AttrVal($name,"snapGalleryBoost",0));
}
@@ -8380,15 +8483,15 @@ return $htmlCode;
# Auflösung Errorcodes bei Login / Logout
# Übernahmewerte sind $hash, $errorcode
##############################################################################
-sub SSCam_experrorauth {
+sub expErrorsAuth {
my ($hash,$errorcode) = @_;
my $device = $hash->{NAME};
my $error;
- unless (exists($SSCam_errauthlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
+ unless (exists($errauthlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
# Fehlertext aus Hash-Tabelle %errorauthlist ermitteln
- $error = $SSCam_errauthlist{"$errorcode"};
+ $error = $errauthlist{"$errorcode"};
return ($error);
}
@@ -8397,15 +8500,15 @@ return ($error);
# Auflösung Errorcodes SVS API
# Übernahmewerte sind $hash, $errorcode
##############################################################################
-sub SSCam_experror {
+sub expErrors {
my ($hash,$errorcode) = @_;
my $device = $hash->{NAME};
my $error;
- unless (exists($SSCam_errlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
+ unless (exists($errlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
# Fehlertext aus Hash-Tabelle %errorlist ermitteln
- $error = $SSCam_errlist{"$errorcode"};
+ $error = $errlist{"$errorcode"};
return ($error);
}
@@ -8415,13 +8518,13 @@ return ($error);
# Schwartzian Transform and the GRT transform
# Übergabe: "asc | desc",", @@ -10574,25 +10677,25 @@ return; "If attribute \"smtpSSLPort\" is defined, the established connection to the Email server will be encrypted immediately. ". "Attributes which are optional are marked: ". "
", "6" => "There are some Icons in directory www/images/sscam available for SSCam. Thereby the system can use the icons please do: ". "
", "5" => "Find more Informations about manage users and the appropriate privilege profiles in ". "Surveillance Station online help ". @@ -10615,7 +10718,7 @@ return; ############################################################################################# # Hint Hash DE ############################################################################################# -%SSCam_vHintsExt_de = ( +%vHintsExt_de = ( "9" => "Weitere Informationen zum Versand von Schnappschüssen und Aufnahmen mit dem Synology Chat Server findet man im ". "Wiki. ". "Ergänzend dazu Hinweise zur Einrichtung und Administration des Synology Chat Servers im ". @@ -10639,26 +10742,26 @@ return; "Ist das Attribut \"smtpSSLPort\" definiert, erfolgt der Verbindungsaufbau zum Email-Server sofort verschlüsselt. ". "Optionale Attribute sind gekennzeichnet: ". "
", "6" => "Für SSCam wird ein Satz Icons im Verzeichnis www/images/sscam zur Verfügung gestellt. Damit das System sie findet bitte setzen: ". "
", "5" => "Informationen zum Management von Usern und entsprechenden Rechte-Profilen sind in der ". "Surveillance Station Online-Hilfe zu finden.". @@ -10712,15 +10815,15 @@ return; There is a widget provided for integration of SSCam-Streaming devices (Type SSCamSTRM) into FTUI. For further information please be informed by the (german) FHEM Wiki article: - FTUI Widget für SSCam Streaming Devices (SSCamSTRM). + FTUI Widget für SSCam Streaming Devices (SSCamSTRM). Prerequisites
- On Debian-Linux based systems these modules can be installed by: + On Debian-Linux based systems these modules can be installed by: sudo apt-get install libjson-perl - sudo apt-get install libmime-lite-perl - + sudo apt-get install libmime-lite-perl + SSCam is completely using the nonblocking functions of HttpUtils respectively HttpUtils_NonblockingGet. In DSM respectively in Synology Surveillance Station an User has to be created. The login credentials are needed later when using a set-command to assign the login-data to a device. - Further informations could be find among Credentials. + Further informations could be find among Credentials. Overview which Perl-modules SSCam is using: @@ -10774,7 +10877,7 @@ return; Cache::Cache | (if Cache is used) | |
+
The PTZ panel (only PTZ cameras) in SSCam use its own icons. Thereby the system find the icons, in FHEMWEB device the attribute "iconPath" has to be completed by "sscam" @@ -10790,27 +10893,27 @@ return; device, that means the application on the discstation itself. Dependend on the type of defined device the internal MODEL will be set to "<vendor> - <camera type>" or "SVS" and a proper subset of the described set/get-commands are assigned to the device.
- The scope of application of set/get-commands is denoted to every particular command (valid for CAM, SVS, CAM/SVS).
- The cameras can be defined manually discrete, but alternatively with an automatical procedure by set "autocreateCams" - command in a previously defined SVS device. -
- + The scope of application of set/get-commands is denoted to every particular command (valid for CAM, SVS, CAM/SVS).
+ The cameras can be defined manually discrete, but alternatively with an automatical procedure by set "autocreateCams" + command in a previously defined SVS device. +
+ A camera device is defined by:
-
-
+
define <Name> SSCAM <camera name in SVS> <ServerAddr> [Port] [Protocol] - - A SVS-device to control functions of the Surveillance Station (SVS) is defined by:
-
-
-
define <Name> SSCAM SVS <ServerAddr> [Port] [Protocol] + + A SVS-device to control functions of the Surveillance Station (SVS) is defined by:
+
-
+
define <Name> SSCAM SVS <ServerAddr> [Port] [Protocol] - Is the SVS defined and after setting the appropriate creadentials ready for use, all cameras available in SVS can be created - automatically in FHEM with the set command "autocreateCams". -
+ Is the SVS defined and after setting the appropriate creadentials ready for use, all cameras available in SVS can be created + automatically in FHEM with the set command "autocreateCams". +
The Modul SSCam ist based on functions of Synology Surveillance Station API.
@@ -10837,7 +10940,7 @@ return;
define DS1 SSCAM SVS 192.168.2.20 [5000] [http]
define DS1 SSCAM SVS 192.168.2.20 [5001] [https]
- # creares a new SVS device DS1
+ # creares a new SVS device DS1
When a new Camera is defined, as a start the recordingtime of 15 seconds will be assigned to the device.@@ -10859,10 +10962,10 @@ return; panel can be affected by attributes "ptzPanel_.*".
Please see also command "set <name> createPTZcontrol" in this context.
- -
-
@@ -10873,12 +10976,12 @@ return;
The password length has a maximum of 20 characters.
- set ... extevent
- set ... goPreset
- set ... homeMode
- set ... motdetsc
- set ... runPatrol
- set ... motdetsc
- set ... runPatrol
- set ... goAbsPTZ
- set ... move
- set ... runView
- set ... setHome
- set ... setHome
- set ... setPreset
- set ... snap
- set ... snapGallery
- set ... credentials
- get ... caminfo[all]
- get ... eventlist
- get ... listLog
- get ... listLog
- get ... listPresets
- get ... scanVirgin
- get ... svsinfo
- get ... snapfileinfo
- get ... snapinfo
- get ... snapinfo
- get ... stmUrlPath
- The operator can, dependend on what functions are planned to execute, create an user in DSM respectively in Synology + The operator can, dependend on what functions are planned to execute, create an user in DSM respectively in Synology Surveillance Station as well.
If the user is member of admin-group, he has access to all module functions. Without this membership the user can only execute functions with lower need of rights.
- Is 2-step verification - activated in DSM, the setup to a session with Surveillance Station is necessary (attribute "session = SurveillanceStation").
+ Is 2-step verification + activated in DSM, the setup to a session with Surveillance Station is necessary (attribute "session = SurveillanceStation").
The required minimum rights to execute functions are listed in a table further down.
Alternatively to DSM-user a user created in SVS can be used. Also in that case a user of type "manager" has the right to @@ -10916,12 +11019,12 @@ return;
- + HTTP-Timeout Settings
-
@@ -11018,7 +11121,7 @@ return;
These tags specify the content to playback.
-
- Example:
+ Example:
attr <name> genericStrmHtmlTag <video $HTMLATTR controls autoplay>
<source src='http://192.168.2.10:32000/$NAME.m3u8' type='application/x-mpegURL'>
@@ -11083,7 +11186,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
set username / password combination for access the Synology Surveillance Station. - See Credentials
for further informations. + See Credentials
for further informations.
@@ -11391,10 +11494,10 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR <value> can be for:
- mirror, flip, rotate: true | false -
- ntp: the name or the IP-address of time server -
- +
+ Examples:
set <name> optimizeParams mirror:true flip:true ntp:time.windows.com # The video will be mirrored, turned upside down and the time server is set to "time.windows.com".
@@ -11662,7 +11765,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
- caminfoall (valid for CAM/SVS) caminfo (valid for CAM)
- snapGalleryBoost -
- snapGalleryColumns -
- snapGalleryHtmlAttr -
- snapGalleryNumber -
- snapGallerySize +
- snapGalleryColumns +
- snapGalleryHtmlAttr +
- snapGalleryNumber +
- snapGallerySize
- + Dependend of the type of camera (e.g. Fix- or PTZ-Camera) the available properties are retrieved and provided as Readings.
For example the Reading "Availability" will be set to "disconnected" if the camera would be disconnected from Synology Surveillance Station and can't be used for further processing like creating events.
@@ -11764,21 +11867,21 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
available.
-
- Note:
+ Note:
Depended from quantity and resolution (quality) of the snapshot images adequate CPU and/or main memory - ressources are needed. The camera names in Synology SVS should not be very similar, otherwise the retrieval of + ressources are needed. The camera names in Synology SVS should not be very similar, otherwise the retrieval of snapshots could come to inaccuracies.
+
- snapfileinfo (valid for CAM)
@@ -11869,32 +11972,32 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
-
subject => <subject text>, body => <message text>
- subject => <subject text>, body => <message text>
+
The placeholder $CAM, $DATE and $TIME can be used. - Optionally you can specify the "snapEmailTxt:"-tag when trigger a snapshot with the "snap"-command. + Optionally you can specify the "snapEmailTxt:"-tag when trigger a snapshot with the "snap"-command. In this case the Email shipping is activated one-time for the snapshot or the tag-text is used instead of the text defined in the "snapEmailTxt"-attribute.
+
-
-
subject => <subject text>, body => <message text>
- subject => <subject text>, body => <message text>
+
The placeholder $CAM, $DATE and $TIME can be used. Optionally you can specify the "recEmailTxt:"-tag when start recording with the "on"-command. In this case the Email shipping is activated one-time for the started recording or the tag-text is used instead of the text defined in the "recEmailTxt"-attribute.
@@ -11902,13 +12005,13 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR For further information please see description of the attributes.
Description of the placeholders:
- +
| $CAM | - Device alias respectively the name of the camera in SVS if the device alias isn't set |
| $DATE | - current date |
| $TIME | - current time |
| $DATE | - current date |
| $TIME | - current time |
| $FILE | - name of the snapshot file |
| $CTIME | - creation time of the snapshot |
-
- Examples:
+ Examples:
attr <name> genericStrmHtmlTag <video $HTMLATTR controls autoplay>
<source src='http://192.168.2.10:32000/$NAME.m3u8' type='application/x-mpegURL'>
@@ -12072,7 +12175,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
- Examples:
+ Examples:
attr <name> hlsStrmObject https://bitdash-a.akamaihd.net/content/MI201109210084_1/m3u8s/f08e80da-bf1d-4e3d-8899-f0f6155f6efa.m3u8
attr <name> hlsStrmObject https://bitdash-a.akamaihd.net/content/sintel/hls/playlist.m3u8
# Sample video streams used for testing the streaming device function (internet connection is needed)
@@ -12083,23 +12186,23 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR attr <name> hlsStrmObject http://192.168.2.10:32000/$NAME.m3u8
# Same as example above, but use the replacement with variable $NAME for "CamHE1"
+
Timeout-Value of HTTP-Calls to Synology Surveillance Station, Default: 4 seconds (if httptimeout = "0" - or not set)
+ or not set)
- additional specifications to inline oictures to manipulate the behavior of stream, e.g. size of the image.
- -
-
- Example:
- livestreamprefix
@@ -12177,11 +12280,11 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
- Example:
+ Example:
attr <name> ptzPanel_row00 move upleft:CAMUPLEFTFAST.png,:CAMBLANK.png,move up:CAMUPFAST.png,:CAMBLANK.png,move upright:CAMUPRIGHTFAST.png
# The command "move upleft" is transmitted to the camera by pressing the button(icon) "CAMUPLEFTFAST.png".
+
- recEmailTxt subject => <subject text>, body => <message text>
Activates the Email shipping of recordings after whose creation.
The attribute has to be definied in the form as described.
You can use the following placeholders in "subject" and "body".
- --
-
-
-$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - aktuelle time
+ +-
+
+
+$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - aktuelle time
-
- Example:
+ Example:
recEmailTxt subject => New recording $CAM, body => A new recording of $CAM is created and atteched.
@@ -12253,34 +12356,34 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - recTelegramTxt tbot => <TelegramBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]
Activates the permanent shipping of recordings by TelegramBot after their creation.
The attribute has to be definied in the form as described. With key "tbot" the TelegramBot device is specified, - which is used for shipping the data. Of course, the TelegramBot device + which is used for shipping the data. Of course, the TelegramBot device must be available and has to be running well.
- The setting of "peers" and "subject" is optional, but the keys must (empty) specified. - If "peer" is empty, the default peer of the TelegramBot device is used.
+ The setting of "peers" and "subject" is optional, but the keys must (empty) specified. + If "peer" is empty, the default peer of the TelegramBot device is used.
- You can use the following placeholders within "subject".
- --
-
-
-$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of recording file $CTIME - recording creation time
+ You can use the following placeholders within "subject".
- Examples:
+-
+
+
+$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of recording file $CTIME - recording creation time
+ + Examples:
attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Motion alarm ($FILE)
- attr <device> recTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
+ attr <device> recTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
attr <device> recTelegramTxt tbot => teleBot, peers => #nabugroup, subject =>
attr <device> recTelegramTxt tbot => teleBot, peers => -123456, subject =>
- attr <device> recTelegramTxt tbot => teleBot, peers => , subject =>
- attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the recording $FILE was created. Now it is $TIME.
+ attr <device> recTelegramTxt tbot => teleBot, peers => , subject =>
+ attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the recording $FILE was created. Now it is $TIME.
- - rectime
@@ -12290,12 +12393,12 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - recextend
"rectime" of a started recording will be set new. Thereby the recording time of the running recording will be - extended - session
selection of login-Session. Not set or set to "DSM" -> session will be established to DSM (Sdefault). - "SurveillanceStation" -> session will be established to SVS.
+ "SurveillanceStation" -> session will be established to SVS.
For establish a sesion with Surveillance Station you have to create a user with suitable privilege profile in SVS. If you need more infomations please execute "get <name> versionNotes 5". - snapChatTxt chatbot => <SSChatBot-Device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]
Activates the permanent shipping of snapshots by Synology Chat after their creation. If several snapshots were triggert, - they will be sequentially delivered.
+ they will be sequentially delivered.
Before activating the attribute videofolderMap has to be set. It must contain an URL to the root directory of your SVS recordings and snapshots ( e.g. http://server.me:8081/surveillance ).
The attribute snapChatTxt has to be defined in the form as described. With key "chatbot" the SSChatBot device is specified, - which is used for sending the data. Of course, the SSChatBot device + which is used for sending the data. Of course, the SSChatBot device must be available and work well.
The key "peers" contains valid names of Synology Chat Users who should receive the message.
- The setting of "peers" is optional, but the keys must (empty) specified. - If "peer" is empty, the defaultPeer of the SSChatBot device is used.
+ The setting of "peers" is optional, but the keys must (empty) specified. + If "peer" is empty, the defaultPeer of the SSChatBot device is used.
- You can use the following placeholders within "subject".
- --
-
-
-$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of snapshot file $CTIME - creation time of the snapshot
+ You can use the following placeholders within "subject".
+ +-
+
+
+$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of snapshot file $CTIME - creation time of the snapshot
- Examples:
+ Examples:
attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Motion alarm ($FILE)
- attr <device> snapChatTxt chatbot => SynChatBot, peers => Aragorn Frodo Sam, subject => A snapshot has been done
- attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Caution !
- attr <device> snapChatTxt chatbot => SynChatBot, peers => Frodo, subject => Motion alarm from $CAM. At $CTIME the snapshot $FILE was created
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => Aragorn Frodo Sam, subject => A snapshot has been done
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Caution !
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => Frodo, subject => Motion alarm from $CAM. At $CTIME the snapshot $FILE was created
- - snapEmailTxt subject => <subject text>, body => <message text>
Activates the Email shipping of snapshots after whose creation.
The attribute has to be defined in the form as described.
You can use the following placeholders in "subject" and "body".
- --
-
-
-$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time
+ +-
+
+
+$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time
-
- Example:
+ Example:
snapEmailTxt subject => Motion alarm $CAM, body => A motion was recognized at $CAM.
@@ -12413,72 +12516,72 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - snapTelegramTxt tbot => <TelegramBot device>, peers => [<peer1 peer2 ...>], subject => [<subject text>]
Activates the permanent shipping of snapshots by TelegramBot after their creation. If several snapshots were triggert, - they will be sequentially delivered.
+ they will be sequentially delivered.
The attribute has to be defined in the form as described. With key "tbot" the TelegramBot device is specified, - which is used for shipping the data. Of course, the TelegramBot device + which is used for shipping the data. Of course, the TelegramBot device must be available and has to be running well.
- The setting of "peers" and "subject" is optional, but the keys must (empty) specified. - If "peer" is empty, the default peer of the TelegramBot device is used.
+ The setting of "peers" and "subject" is optional, but the keys must (empty) specified. + If "peer" is empty, the default peer of the TelegramBot device is used.
- You can use the following placeholders within "subject".
- --
-
-
-$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of snapshot file $CTIME - creation time of the snapshot
+ You can use the following placeholders within "subject".
+ +-
+
+
+$CAM - Device alias respectively the name of the camera in SVS if the device alias isn't set $DATE - current date $TIME - current time $FILE - Name of snapshot file $CTIME - creation time of the snapshot
- Examples:
+ Examples:
attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Motion alarm ($FILE)
- attr <device> snapTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
+ attr <device> snapTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
attr <device> snapTelegramTxt tbot => teleBot, peers => #nabugroup, subject =>
attr <device> snapTelegramTxt tbot => teleBot, peers => -123456, subject =>
- attr <device> snapTelegramTxt tbot => teleBot, peers => , subject =>
- attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the snapshot $FILE was created
+ attr <device> snapTelegramTxt tbot => teleBot, peers => , subject =>
+ attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the snapshot $FILE was created
- - snapGalleryBoost
If set, the last snapshots (default 3) will be retrieved by Polling, will be stored in the FHEM-servers main memory and can be displayed by the "set/get ... snapGallery" command.
- This mode is helpful if many or full size images shall be displayed. - If the attribute is set, you can't specify arguments in addition to the "set/get ... snapGallery" command. + This mode is helpful if many or full size images shall be displayed. + If the attribute is set, you can't specify arguments in addition to the "set/get ... snapGallery" command. (see also attribut "snapGalleryNumber") - snapGalleryColumns
The number of snapshots which shall appear in one row of the gallery popup (default 3). - snapGalleryHtmlAttr
the image parameter can be controlled by this attribute.
- If the attribute isn't set, the value of attribute "htmlattr" will be used.
- If "htmlattr" is also not set, default parameters are used instead (width="500" height="325").
- + If the attribute isn't set, the value of attribute "htmlattr" will be used.
+ If "htmlattr" is also not set, default parameters are used instead (width="500" height="325").
+-
- Example:
+ Example:
attr <name> snapGalleryHtmlAttr width="325" height="225"
+
-
-
+
+
- snapGalleryNumber
The number of snapshots to retrieve (default 3). - snapGallerySize
By this attribute the quality of the snapshot images can be controlled (default "Icon").
- If mode "Full" is set, the images are retrieved with their original available resolution. That requires more ressources - and may slow down the display. By setting attribute "snapGalleryBoost=1" the display may accelerated, because in that case - the images will be retrieved by continuous polling and need only bring to display. - snapReadingRotate 0...10
@@ -12497,7 +12600,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - videofolderMap
Replaces the content of reading "VideoFolder". Use it if e.g. folders are mountet with different names than original - in SVS or providing an URL for acces the snapshots / recordings by a web server. - verbose
- CamVendor
- CamVideoFlip
- CamVideoMirror
- CamVideoRotate
- CamVideoRotate
- CapAudioOut
- CapChangeSpeed
- CapPIR
- DeviceType
- Error
- Errorcode
- HomeModeState
- LastLogEntry
- HomeModeState
- LastLogEntry
- LastSnapFilename[x]
- LastSnapId[x]
- LastSnapTime[x]
- starten und beenden von Kamera-Livestreams incl. Audiowiedergabe, anzeigen der letzten Aufnahme oder des letzten Schnappschusses
- Abruf und Ausgabe der Kamera Streamkeys sowie Stream-Urls (Nutzung von Kamera-Livestreams ohne Session Id)
- abspielen der letzten Aufnahme bzw. Anzeige des letzten Schnappschusses -
- anzeigen der gespeicherten Anmeldeinformationen (Credentials) -
- Ein- bzw. Ausschalten des Surveillance Station HomeMode und abfragen des HomeMode-Status -
- abrufen des Surveillance Station Logs, auswerten des neuesten Eintrags als Reading -
- erzeugen einer Gallerie der letzten 1-10 Schnappschüsse (als Popup oder permanentes Device) +
- anzeigen der gespeicherten Anmeldeinformationen (Credentials) +
- Ein- bzw. Ausschalten des Surveillance Station HomeMode und abfragen des HomeMode-Status +
- abrufen des Surveillance Station Logs, auswerten des neuesten Eintrags als Reading +
- erzeugen einer Gallerie der letzten 1-10 Schnappschüsse (als Popup oder permanentes Device)
- Start bzw. Stop Objekt Tracking (nur unterstützte PTZ-Kameras mit dieser Fähigkeit)
- Setzen/Löschen eines Presets (bei PTZ-Kameras)
- Setzen der Home-Position (bei PTZ-Kameras)
- erstellen eines Paneels zur Kamera-Steuerung. (bei PTZ-Kameras) -
- erzeugen unterschiedlicher Typen von separaten Streaming-Devices (createStreamDev) +
- erzeugen unterschiedlicher Typen von separaten Streaming-Devices (createStreamDev)
- Aktivierung / Deaktivierung eines kamerainternen PIR-Sensors
- Erzeugung einer readingsGroup zur Anzeige aller definierten SSCam-Devices (createReadingsGroup) -
- Automatisiertes Anlegen aller in der SVS vorhandenen Kameras in FHEM (autocreateCams) +
- Automatisiertes Anlegen aller in der SVS vorhandenen Kameras in FHEM (autocreateCams)
- lokales Abspeichern der letzten Kamera-Aufnahme
- Auswahl unterschiedlicher Cache-Typen zur Bilddatenspeicherung (Attribut cacheType)
- set ... enable
- set ... expmode
- set ... extevent
- set ... goPreset
- set ... goPreset
- set ... homeMode
- set ... goAbsPTZ
- set ... move
- set ... goAbsPTZ
- set ... move
- set ... motdetsc
- set ... on
- set ... on
- set ... off
- set ... runView
- set ... runView
- set ... runPatrol
- set ... setHome
- set ... setHome
- set ... setPreset
- set ... snap
- set ... snapGallery
- set ... stopView
- set ... snapGallery
- set ... stopView
- get ... caminfo[all]
- get ... eventlist
- get ... listLog
- get ... listPresets
- get ... scanVirgin
- get ... scanVirgin
- get ... svsinfo
- get ... snapfileinfo
- get ... snapGallery
- get ... snapinfo
- get ... snapGallery
- get ... snapinfo
- get ... stmUrlPath
+ additional specifications to inline oictures to manipulate the behavior of stream, e.g. size of the image.
+ +
-
+ Example:
attr <name> htmlattr width="500" height="325" top="200" left="300"
+
@@ -12199,51 +12302,51 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR Before activating the attribute videofolderMap has to be set. It must contain an URL to the root directory of your SVS recordings and snapshots ( e.g. http://server.me:8081/surveillance ).
The attribute recChatTxt has to be defined in the form as described. With key "chatbot" the SSChatBot device is specified, - which is used for sending the data. Of course, the SSChatBot device + which is used for sending the data. Of course, the SSChatBot device must be available and work well.
- The setting of "peers" is optional, but the keys must be (empty) specified. - If "peer" is empty, the defaultPeer of the SSChatBot device is used.
+ The setting of "peers" is optional, but the keys must be (empty) specified. + If "peer" is empty, the defaultPeer of the SSChatBot device is used.
- You can use the following placeholders within "subject".
- -
-
-
| $CAM | - Device alias respectively the name of the camera in SVS if the device alias isn't set |
| $DATE | - current date |
| $TIME | - current time |
| $FILE | - Name of recording file |
| $CTIME | - recording creation time |
+ You can use the following placeholders within "subject".
- Examples:
+
-
+
| $CAM | - Device alias respectively the name of the camera in SVS if the device alias isn't set |
| $DATE | - current date |
| $TIME | - current time |
| $FILE | - Name of recording file |
| $CTIME | - recording creation time |
+ + Examples:
attr <device> recChatTxt chatbot => teleBot, peers => , subject => Motion alarm ($FILE)
- attr <device> recChatTxt chatbot => teleBot, peers => Frodo Sam Gollum, subject => Motion alarm
- attr <device> recChatTxt chatbot => teleBot, peers => , subject => Motion alarm
- attr <device> recChatTxt chatbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the recording $FILE was created. Now it is $TIME.
+ attr <device> recChatTxt chatbot => teleBot, peers => Frodo Sam Gollum, subject => Motion alarm
+ attr <device> recChatTxt chatbot => teleBot, peers => , subject => Motion alarm
+ attr <device> recChatTxt chatbot => teleBot, peers => , subject => Motion alarm from $CAM. At $CTIME the recording $FILE was created. Now it is $TIME.
-
+
+
+ extended
@@ -12355,56 +12458,56 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
+
+
- +
- +
+ If mode "Full" is set, the images are retrieved with their original available resolution. That requires more ressources + and may slow down the display. By setting attribute "snapGalleryBoost=1" the display may accelerated, because in that case + the images will be retrieved by continuous polling and need only bring to display.
+ in SVS or providing an URL for acces the snapshots / recordings by a web server.
@@ -12560,7 +12663,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
SSCam
-
Mit diesem Modul können Operationen von in der Synology Surveillance Station (SVS) definierten Kameras und Funktionen
- der SVS ausgeführt werden. Es basiert auf der SVS API und unterstützt die SVS ab Version 7.
+ der SVS ausgeführt werden. Es basiert auf der SVS API und unterstützt die SVS ab Version 7.
Zur Zeit werden folgende Funktionen unterstützt:
-
@@ -12638,18 +12741,18 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
SSCAM - Steuerung von Kameras in Synology Surveillance Station. -
- +
+ Integration in FHEM TabletUI:
Zur Integration von SSCam Streaming Devices (Typ SSCamSTRM) wird ein Widget bereitgestellt. - Für weitere Information dazu bitte den Artikel im Wiki durchlesen:
- FTUI Widget für SSCam Streaming Devices (SSCamSTRM). + Für weitere Information dazu bitte den Artikel im Wiki durchlesen:
+ FTUI Widget für SSCam Streaming Devices (SSCamSTRM).
@@ -12677,15 +12780,15 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
Dieses Modul nutzt die Perl-Module JSON und MIME::Lite die üblicherweise nachinstalliert werden müssen.
- Auf Debian-Linux basierenden Systemen können sie installiert werden mit:
+ Auf Debian-Linux basierenden Systemen können sie installiert werden mit:
sudo apt-get install libjson-perl -
sudo apt-get install libmime-lite-perl - +
sudo apt-get install libmime-lite-perl + Das Modul verwendet für HTTP-Calls die nichtblockierenden Funktionen von HttpUtils bzw. HttpUtils_NonblockingGet.
Im DSM bzw. der Synology Surveillance Station muß ein Nutzer angelegt sein. Die Zugangsdaten werden später über ein Set-Kommando dem - angelegten Gerät zugewiesen.
- Nähere Informationen dazu unter Credentials
+ angelegten Gerät zugewiesen.
+ Nähere Informationen dazu unter Credentials
Überblick über die Perl-Module welche von SSCam genutzt werden:
@@ -12708,7 +12811,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
- + Das PTZ-Paneel (nur PTZ Kameras) in SSCam benutzt einen eigenen Satz Icons. Damit das System sie findet, ist im FHEMWEB Device das Attribut "iconPath" um "sscam" zu ergänzen (z.B. "attr WEB iconPath default:fhemSVG:openautomation:sscam"). @@ -12723,28 +12826,28 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR der Applikation selbst auf der Diskstation, unterschieden. Abhängig von der Art des definierten Devices wird das Internal MODEL auf "<Hersteller> - <Kameramodell>" oder SVS gesetzt und eine passende Teilmenge der beschriebenen set/get-Befehle dem Device zugewiesen.
- Der Gültigkeitsbereich von set/get-Befehlen ist nach dem jeweiligen Befehl angegeben "gilt für CAM, SVS, CAM/SVS".
- Die Kameras können einzeln manuell, alternativ auch automatisiert mittels einem vorher definierten SVS-Device angelegt werden. -
- + Der Gültigkeitsbereich von set/get-Befehlen ist nach dem jeweiligen Befehl angegeben "gilt für CAM, SVS, CAM/SVS".
+ Die Kameras können einzeln manuell, alternativ auch automatisiert mittels einem vorher definierten SVS-Device angelegt werden. +
+ Eine Kamera wird definiert mit:
-
-
+
define <Name> SSCAM <Kameraname in SVS> <ServerAddr> [Port] [Protocol] - - Ein SVS-Device zur Steuerung von Funktionen der Surveillance Station wird definiert mit:
-
-
-
define <Name> SSCAM SVS <ServerAddr> [Port] [Protocol] -
+ + Ein SVS-Device zur Steuerung von Funktionen der Surveillance Station wird definiert mit:
+
-
+
define <Name> SSCAM SVS <ServerAddr> [Port] [Protocol] +
- - Das Modul SSCam basiert auf Funktionen der Synology Surveillance Station API.
+ Ist das SVS-Device definiert und nach dem Setzen der Credentials einsatzbereit, können alle in der SVS vorhandenen Kameras mit dem Set-Befehl + "autocreateCams" in FHEM automatisiert angelegt werden.
+ + Das Modul SSCam basiert auf Funktionen der Synology Surveillance Station API.
Die Parameter beschreiben im Einzelnen:
@@ -12791,7 +12894,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
@@ -12801,10 +12904,10 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
set <name> credentials <Username> <Passwort>
- Die Passwortlänge beträgt maximal 20 Zeichen.
+ Die Passwortlänge beträgt maximal 20 Zeichen.
Der Anwender kann in Abhängigkeit der beabsichtigten einzusetzenden Funktionen einen Nutzer im DSM bzw. in der Surveillance Station einrichten. Sollte im DSM die 2-Stufen Verifizierung - aktiviert sein, ist die Session mit der Surveillance Station aufzubauen (Attribut "session = SurveillanceStation").
+ aktiviert sein, ist die Session mit der Surveillance Station aufzubauen (Attribut "session = SurveillanceStation").
Ist der DSM-Nutzer der Gruppe Administratoren zugeordnet, hat er auf alle Funktionen Zugriff. Ohne diese Gruppenzugehörigkeit können nur Funktionen mit niedrigeren Rechtebedarf ausgeführt werden. Die benötigten Mindestrechte der Funktionen sind in der Tabelle weiter unten aufgeführt.
@@ -12840,36 +12943,36 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
-
@@ -12947,7 +13050,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
spezifizieren den wiederzugebenden Content.
-
- Beispiele:
+ Beispiele:
attr <name> genericStrmHtmlTag <video $HTMLATTR controls autoplay>
<source src='http://192.168.2.10:32000/$NAME.m3u8' type='application/x-mpegURL'>
@@ -13013,7 +13116,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
Setzt Username / Passwort für den Zugriff auf die Synology Surveillance Station. - Siehe Credentials
+ Siehe Credentials
@@ -13324,10 +13427,10 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR <value> kann sein für:
- mirror, flip, rotate: true | false -
- ntp: der Name oder die IP-Adresse des Zeitservers -
- +
+ Beispiele:
set <name> optimizeParams mirror:true flip:true ntp:time.windows.com # Das Bild wird gespiegelt, auf den Kopf gestellt und der Zeitserver auf "time.windows.com" eingestellt.
@@ -13716,21 +13819,21 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
- snapGalleryBoost -
- snapGalleryColumns -
- snapGalleryHtmlAttr -
- snapGalleryNumber -
- snapGallerySize +
- snapGalleryColumns +
- snapGalleryHtmlAttr +
- snapGalleryNumber +
- snapGallerySize
zur Verfügung.
-
- Hinweis:
+ Hinweis:
Abhängig von der Anzahl und Auflösung (Qualität) der Schnappschuß-Images werden entsprechend ausreichende CPU und/oder - RAM-Ressourcen benötigt. Die Namen der Kameras in der SVS sollten sich nicht stark ähneln, da es ansonsten zu + RAM-Ressourcen benötigt. Die Namen der Kameras in der SVS sollten sich nicht stark ähneln, da es ansonsten zu Ungnauigkeiten beim Abruf der Schnappschußgallerie kommen kann.
+
- snapfileinfo (gilt für CAM)
@@ -13838,11 +13941,11 @@ http(s)://<hostname><port>/webapi/entry.cgi?api=SYNO.SurveillanceSta
subject => <Betreff-Text>, body => <Mitteilung-Text>- Der Email-Versand des letzten Schnappschusses wird einmalig aktiviert falls der "snapEmailTxt:"-Tag - beim "snap"-Kommando verwendet wird bzw. der in diesem Tag definierte Text statt des Textes im - Attribut "snapEmailTxt" verwendet. + Der Email-Versand des letzten Schnappschusses wird einmalig aktiviert falls der "snapEmailTxt:"-Tag + beim "snap"-Kommando verwendet wird bzw. der in diesem Tag definierte Text statt des Textes im + Attribut "snapEmailTxt" verwendet. +
-
@@ -13851,17 +13954,17 @@ http(s)://<hostname><port>/webapi/entry.cgi?api=SYNO.SurveillanceSta
Es können die Platzhalter $CAM, $DATE und $TIME verwendet werden.
Der Email-Versand der letzten Aufnahme wird einamlig aktiviert falls der "recEmailTxt:"-Tag beim "on"-Kommando verwendet wird bzw. der in diesem Tag definierte Text statt des Textes im - Attribut "recEmailTxt" verwendet.
@@ -13869,7 +13972,7 @@ http(s)://<hostname><port>/webapi/entry.cgi?api=SYNO.SurveillanceSta Zur näheren Erläuterung siehe Beschreibung der Attribute.
Erläuterung der Platzhalter:
- +
- recTelegramTxt tbot => <TelegramBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]
Aktiviert den permanenten Versand von Aufnahmen nach deren Erstellung per TelegramBot.
Das Attribut muß in der angegebenen Form definiert werden. Im Schlüssel "tbot" ist das TelegramBot-Device - anzugeben, welches für den Versand der Daten verwendet werden soll. - Das TelegramBot-Device muss natürlich vorhanden und funktionstüchtig sein.
- Die Angabe von "peers" und "subject" ist optional, jedoch muß der Schlüssel (leer) angegeben werden. - Wurde "peers" leer gelassen, wird der Default-Peer des TelegramBot-Device verwendet.
+ anzugeben, welches für den Versand der Daten verwendet werden soll. + Das TelegramBot-Device muss natürlich vorhanden und funktionstüchtig sein.
+ Die Angabe von "peers" und "subject" ist optional, jedoch muß der Schlüssel (leer) angegeben werden. + Wurde "peers" leer gelassen, wird der Default-Peer des TelegramBot-Device verwendet.
- Es können die folgenden Platzhalter im subject verwendet werden.
- --
-
-
-$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename $CTIME - Erstellungszeit der Aufnahme
+ Es können die folgenden Platzhalter im subject verwendet werden.
- Beispiele:
+-
+
+
+$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename $CTIME - Erstellungszeit der Aufnahme
+ + Beispiele:
attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm ($FILE)
- attr <device> recTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
+ attr <device> recTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
attr <device> recTelegramTxt tbot => teleBot, peers => #nabugroup, subject =>
attr <device> recTelegramTxt tbot => teleBot, peers => -123456, subject =>
- attr <device> recTelegramTxt tbot => teleBot, peers => , subject =>
- attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt. Jetzt ist es $TIME.
+ attr <device> recTelegramTxt tbot => teleBot, peers => , subject =>
+ attr <device> recTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt. Jetzt ist es $TIME.
- rectime
festgelegte Aufnahmezeit wenn eine Aufnahme gestartet wird. Mit rectime = 0 wird eine Endlosaufnahme gestartet. Ist "rectime" nicht gesetzt, wird der Defaultwert von 15s - verwendet. - recextend
@@ -14332,57 +14435,57 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - snapChatTxt chatbot => <SSChatBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]
Aktiviert den permanenten Versand von Schnappschüssen nach deren Erstellung per Synology Chat. Wurden mehrere Schnappschüsse ausgelöst, - werden sie sequentiell versendet.
+ werden sie sequentiell versendet.
Vor der Aktivierung ist das Attribut videofolderMap zu setzen. Es muß eine URL zum root-Verzeichnis der Aufnahmen und Schnappschüsse enthalten ( z.B. http://server.mein:8081/surveillance ).
Das Attribut snapChatTxt muß in der angegebenen Form definiert werden. Im Schlüssel "chatbot" ist das SSChatBot-Device - anzugeben, welches für den Versand der Daten verwendet werden soll. - Das SSChatBot-Device muss natürlich vorhanden und funktionstüchtig sein.
- Der Schlüssel "peers" enthält gültige Namen von Synology Chat Nutzern an die die Nachricht gesendet werden soll.
+ anzugeben, welches für den Versand der Daten verwendet werden soll. + Das SSChatBot-Device muss natürlich vorhanden und funktionstüchtig sein.
+ Der Schlüssel "peers" enthält gültige Namen von Synology Chat Nutzern an die die Nachricht gesendet werden soll.
Die Angabe von "peers" ist optional, jedoch muß der Schlüssel (leer) angegeben werden. - Wurde "peers" leer gelassen, wird der defaultPeer des SSChatBot-Devices verwendet.
- - Es können folgende Platzhalter im subject verwendet werden.
- --
-
-
-$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename des Schnappschusses $CTIME - Erstellungszeit des Schnappschusses
+ Wurde "peers" leer gelassen, wird der defaultPeer des SSChatBot-Devices verwendet.
- Beispiele:
+ Es können folgende Platzhalter im subject verwendet werden.
+ +-
+
+
+$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename des Schnappschusses $CTIME - Erstellungszeit des Schnappschusses
+ + Beispiele:
attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Bewegungsalarm ($FILE)
- attr <device> snapChatTxt chatbot => SynChatBot, peers => Aragorn Frodo Sam, subject => Ein Schnappschuss wurde ausgelöst
- attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Achtung !
- attr <device> snapChatTxt chatbot => SynChatBot, peers => Frodo, subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => Aragorn Frodo Sam, subject => Ein Schnappschuss wurde ausgelöst
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => , subject => Achtung !
+ attr <device> snapChatTxt chatbot => SynChatBot, peers => Frodo, subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt
- snapEmailTxt subject => <Betreff-Text>, body => <Mitteilung-Text>
Aktiviert den Emailversand von Schnappschüssen nach deren Erstellung. Wurden mehrere Schnappschüsse ausgelöst, - werden sie gemeinsam in einer Mail versendet.
+ werden sie gemeinsam in einer Mail versendet.
Das Attribut muß in der angegebenen Form definiert werden.
Es können die folgenden Platzhalter im subject und body verwendet werden.
- --
-
-
-$CAM - Device-Alias bzw. der Name der Kamera in der SVS falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit
+ +-
+
+
+$CAM - Device-Alias bzw. der Name der Kamera in der SVS falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit
-
- Beispiel:
+ Beispiel:
snapEmailTxt subject => Bewegungsalarm $CAM, body => Eine Bewegung wurde an der $CAM registriert.
@@ -14391,71 +14494,71 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR - snapTelegramTxt tbot => <TelegramBot-Device>, peers => [<peer1 peer2 ...>], subject => [<Betreff-Text>]
Aktiviert den permanenten Versand von Schnappschüssen nach deren Erstellung per TelegramBot. Wurden mehrere Schnappschüsse ausgelöst, - werden sie sequentiell versendet.
+ werden sie sequentiell versendet.
Das Attribut muß in der angegebenen Form definiert werden. Im Schlüssel "tbot" ist das TelegramBot-Device - anzugeben, welches für den Versand der Daten verwendet werden soll. - Das TelegramBot-Device muss natürlich vorhanden und funktionstüchtig sein.
- Die Angabe von "peers" und "subject" ist optional, jedoch muß der Schlüssel (leer) angegeben werden. - Wurde "peer" leer gelassen, wird der Default-Peer des TelegramBot-Devices verwendet.
- - Es können folgende Platzhalter im subject verwendet werden.
- --
-
-
-$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename des Schnappschusses $CTIME - Erstellungszeit des Schnappschusses
+ anzugeben, welches für den Versand der Daten verwendet werden soll. + Das TelegramBot-Device muss natürlich vorhanden und funktionstüchtig sein.
+ Die Angabe von "peers" und "subject" ist optional, jedoch muß der Schlüssel (leer) angegeben werden. + Wurde "peer" leer gelassen, wird der Default-Peer des TelegramBot-Devices verwendet.
- Beispiele:
+ Es können folgende Platzhalter im subject verwendet werden.
+ +-
+
+
+$CAM - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist $DATE - aktuelles Datum $TIME - aktuelle Zeit $FILE - Filename des Schnappschusses $CTIME - Erstellungszeit des Schnappschusses
+ + Beispiele:
attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm ($FILE)
- attr <device> snapTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
+ attr <device> snapTelegramTxt tbot => teleBot, peers => @nabuko @foo @bar, subject =>
attr <device> snapTelegramTxt tbot => teleBot, peers => #nabugroup, subject =>
attr <device> snapTelegramTxt tbot => teleBot, peers => -123456, subject =>
- attr <device> snapTelegramTxt tbot => teleBot, peers => , subject =>
- attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt
+ attr <device> snapTelegramTxt tbot => teleBot, peers => , subject =>
+ attr <device> snapTelegramTxt tbot => teleBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME der Schnappschuss $FILE erstellt
- snapGalleryBoost
Wenn gesetzt, werden die letzten Schnappschüsse (default 3) über Polling im Speicher gehalten und mit "set/get snapGallery" - aufbereitet angezeigt. Dieser Modus bietet sich an wenn viele bzw. Fullsize Images angezeigt werden sollen. - Ist das Attribut eingeschaltet, können bei "set/get snapGallery" keine Argumente mehr mitgegeben werden. + aufbereitet angezeigt. Dieser Modus bietet sich an wenn viele bzw. Fullsize Images angezeigt werden sollen. + Ist das Attribut eingeschaltet, können bei "set/get snapGallery" keine Argumente mehr mitgegeben werden. (siehe Attribut "snapGalleryNumber") - snapGalleryColumns
Die Anzahl der Snaps die in einer Reihe im Popup erscheinen sollen (default 3). - snapGalleryHtmlAttr
hiermit kann die Bilddarstellung beeinflusst werden.
- Ist das Attribut nicht gesetzt, wird das Attribut "htmlattr" verwendet.
- Ist auch dieses nicht gesetzt, wird eine Standardvorgabe verwendet (width="500" height="325").
- + Ist das Attribut nicht gesetzt, wird das Attribut "htmlattr" verwendet.
+ Ist auch dieses nicht gesetzt, wird eine Standardvorgabe verwendet (width="500" height="325").
+-
- Beispiel:
+ Beispiel:
attr <name> snapGalleryHtmlAttr width="325" height="225"
+
-
+
- snapGalleryNumber
Die Anzahl der abzurufenden Schnappschüsse (default 3). - snapGallerySize
Mit diesem Attribut kann die Qualität der Images eingestellt werden (default "Icon").
- Im Modus "Full" wird die original vorhandene Auflösung der Images abgerufen. Dies erfordert mehr Ressourcen und kann die - Anzeige verlangsamen. Mit "snapGalleryBoost=1" kann die Ausgabe beschleunigt werden, da in diesem Fall die Aufnahmen über - Polling abgerufen und nur noch zur Anzeige gebracht werden. - snapReadingRotate 0...10
@@ -14537,7 +14640,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR- CamVendor
- Kamerahersteller Bezeichnung - CamVideoFlip
- Ist das Video gedreht - CamVideoMirror
- Ist das Video gespiegelt - CamVideoRotate
- Ist das Video gedreht - CamVideoRotate
- Ist das Video gedreht - CapAudioOut
- Fähigkeit der Kamera zur Audioausgabe über Surveillance Station (false/true) - CapChangeSpeed
- Fähigkeit der Kamera verschiedene Bewegungsgeschwindigkeiten auszuführen - CapPIR
- besitzt die Kamera einen PIR-Sensor - DeviceType
- Kameratyp (Camera, Video_Server, PTZ, Fisheye) - Error
- Meldungstext des letzten Fehlers - Errorcode
- Fehlercode des letzten Fehlers - HomeModeState
- HomeMode-Status (ab SVS-Version 8.1.0) - LastLogEntry
- der neueste Eintrag des Surveillance Station Logs (nur SVS-Device und wenn Attribut pollcaminfoall gesetzt) - HomeModeState
- HomeMode-Status (ab SVS-Version 8.1.0) - LastLogEntry
- der neueste Eintrag des Surveillance Station Logs (nur SVS-Device und wenn Attribut pollcaminfoall gesetzt) - LastSnapFilename[x]
- der Filename des/der letzten Schnapschüsse - LastSnapId[x]
- die ID des/der letzten Schnapschüsse - LastSnapTime[x]
- Zeitstempel des/der letzten Schnapschüsse (Format abhängig vom global Attribut "language") - LastSnapTime[x]
- Zeitstempel des/der letzten Schnapschüsse (Format abhängig vom global Attribut "language") - LastUpdateTime
- Datum / Zeit der letzten Aktualisierung durch "caminfoall" (Format abhängig vom global Attribut "language") - LiveStreamUrl
- die LiveStream-Url wenn der Stream gestartet ist. (Attribut "showStmInfoFull" muss gesetzt sein) - Patrols
- in Surveillance Station voreingestellte Überwachungstouren (bei PTZ-Kameras) SSCamSTRM "; } - my $arg = (split("[()]",$link))[1]; - $arg =~ s/'//g; - ($hash->{PARENT},$hash->{MODEL}) = ((split(",",$arg))[0],(split(",",$arg))[2]); + $link = upgradeFunc($hash,$link); + + explodeDEF ($hash,$link); + $hash->{HELPER}{MODMETAABSENT} = 1 if($modMetaAbsent); # Modul Meta.pm nicht vorhanden $hash->{LINK} = $link; @@ -182,30 +197,46 @@ sub Define { readingsSingleUpdate($hash,"state", "initialized", 1); # Init für "state" readingsSingleUpdate($hash,"parentState", "initialized", 1); # Init für "parentState" Forum: https://forum.fhem.de/index.php/topic,45671.msg985136.html#msg985136 -return undef; +return; } ################################################################ +# im DEF hinterlegte Funktionen vor SSCam V9.4.0 upgraden +################################################################ +sub upgradeFunc { + my $hash = shift; + my $link = shift; + + for my $k (keys %fupgrade) { + $hash->{DEF} =~ s/$fupgrade{$k}{of}/$fupgrade{$k}{nf}/gx; + $link =~ s/$fupgrade{$k}{of}/$fupgrade{$k}{nf}/gx; + } + +return $link; +} + +############################################################### +# SSCamSTRM Copy & Rename +# passt die Deviceparameter bei kopierten / umbenennen an +############################################################### sub Rename { - my ($new_name,$old_name) = @_; - my $hash = $defs{$new_name}; + my $new_name = shift; + my $old_name = shift; + my $hash = $defs{$new_name} // return; - $hash->{DEF} =~ s/$old_name/$new_name/g; - $hash->{LINK} =~ s/$old_name/$new_name/g; + $hash->{DEF} =~ s/\'$old_name\'/\'$new_name\'/xg; + $hash->{LINK} =~ s/\'$old_name\'/\'$new_name\'/xg; return; } -############################################################### -# SSCamSTRM Copy -# passt die Deviceparameter bei kopierten Device an -############################################################### sub Copy { - my ($old_name,$new_name) = @_; - my $hash = $defs{$new_name}; + my $old_name = shift; + my $new_name = shift; + my $hash = $defs{$new_name} // return; - $hash->{DEF} =~ s/$old_name/$new_name/g; - $hash->{LINK} =~ s/$old_name/$new_name/g; + $hash->{DEF} =~ s/\'$old_name\'/\'$new_name\'/xg; + $hash->{LINK} =~ s/\'$old_name\'/\'$new_name\'/xg; return; } @@ -225,7 +256,7 @@ sub Set { ; if ($opt eq "popupStream") { - my $txt = SSCam_getclhash($hash); + my $txt = FHEM::SSCam::getClHash($hash); return $txt if($txt); my $link = AnalyzePerlCommand(undef, $hash->{LINK}); @@ -320,9 +351,11 @@ sub Attr { return undef; } -################################################################ +############################################################################################# +# FHEMWEB Summary +############################################################################################# sub FwFn { - my ($FW_wname, $name, $room, $pageHash) = @_; # pageHash is set for summaryFn. + my ($FW_wname, $name, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$name}; my $link = $hash->{LINK}; @@ -342,8 +375,7 @@ sub FwFn { $ret .= $link; } - # Autorefresh nur des aufrufenden FHEMWEB-Devices - my $al = AttrVal($name, "autoRefresh", 0); + my $al = AttrVal($name, "autoRefresh", 0); # Autorefresh nur des aufrufenden FHEMWEB-Devices if($al) { InternalTimer(gettimeofday()+$al, "FHEM::SSCamSTRM::webRefresh", $hash, 0); Log3($name, 5, "$name - next start of autoRefresh: ".FmtDateTime(gettimeofday()+$al)); @@ -354,12 +386,29 @@ sub FwFn { return $ret; } -################################################################ -sub webRefresh { - my ($hash) = @_; - my $d = $hash->{NAME}; +############################################################################################# +# Bestandteile des DEF auflösen +############################################################################################# +sub explodeDEF { + my $hash = shift; + my $link = shift; + my $d = $hash->{NAME}; + + my $arg = (split("[()]",$link))[1]; + $arg =~ s/'//g; + ($hash->{PARENT},undef,$hash->{MODEL}) = split(",",$arg); + +return; +} + +############################################################################################# +# Seitenrefresh +# festgelegt durch SSCamSTRM-Attribut "autoRefresh" und "autoRefreshFW" +############################################################################################# +sub webRefresh { + my $hash = shift; + my $d = $hash->{NAME}; - # Seitenrefresh festgelegt durch SSCamSTRM-Attribut "autoRefresh" und "autoRefreshFW" my $rd = AttrVal($d, "autoRefreshFW", $hash->{HELPER}{FW}); { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } $rd } @@ -390,12 +439,12 @@ sub setVersionInfo { if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) { # META-Daten sind vorhanden $modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SSCamSTRM}{META}} - if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 20478 2019-11-08 20:53:30Z DS_Starter $ im Kopf komplett! vorhanden ) + if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 22267 2020-06-25 21:07:13Z DS_Starter $ im Kopf komplett! vorhanden ) $modules{$type}{META}{x_version} =~ s/1\.1\.1/$v/gx; } else { $modules{$type}{META}{x_version} = $v; } - return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 20478 2019-11-08 20:53:30Z DS_Starter $ im Kopf komplett! vorhanden ) + return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 49_SSCamSTRM.pm 22267 2020-06-25 21:07:13Z DS_Starter $ im Kopf komplett! vorhanden ) if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) { # es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen # mit { ->VERSION()} im FHEMWEB kann Modulversion abgefragt werden @@ -417,8 +466,7 @@ sub streamAsHtml { my $name = $hash->{NAME}; my $link = $hash->{LINK}; - if ($ftui && $ftui eq "ftui") { - # Aufruf aus TabletUI -> FW_cmd ersetzen gemäß FTUI Syntax + if ($ftui && $ftui eq "ftui") { # Aufruf aus TabletUI -> FW_cmd ersetzen gemäß FTUI Syntax my $s = substr($link,0,length($link)-2); $link = $s.",'$ftui')}"; }
| $CAM | - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist |
| $DATE | - aktuelles Datum |
| $TIME | - aktuelle Zeit |
| $FILE | - Filename |
| $CTIME | - Erstellungszeit der Aufnahme |
+ Es können die folgenden Platzhalter im subject verwendet werden.
- Beispiele:
+
-
+
| $CAM | - Device-Alias bzw. den Namen der Kamera in der SVS ersetzt falls der Device-Alias nicht vorhanden ist |
| $DATE | - aktuelles Datum |
| $TIME | - aktuelle Zeit |
| $FILE | - Filename |
| $CTIME | - Erstellungszeit der Aufnahme |
+ + Beispiele:
attr <device> recChatTxt chatbot => SynChatBot, peers => , subject => Bewegungsalarm ($FILE)
- attr <device> recChatTxt chatbot => SynChatBot, peers => Frodo Sam Gollum, subject => Achtung
- attr <device> recChatTxt chatbot => SynChatBot, peers => , subject => Achtung Aufnahme
- attr <device> recChatTxt chatbot => SynChatBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt. Jetzt ist es $TIME.
+ attr <device> recChatTxt chatbot => SynChatBot, peers => Frodo Sam Gollum, subject => Achtung
+ attr <device> recChatTxt chatbot => SynChatBot, peers => , subject => Achtung Aufnahme
+ attr <device> recChatTxt chatbot => SynChatBot, peers => , subject => Bewegungsalarm bei $CAM. Es wurde $CTIME die Aufnahme $FILE erstellt. Jetzt ist es $TIME.
@@ -14206,19 +14309,19 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR Aktiviert den Emailversand von Aufnahmen nach deren Erstellung.
Das Attribut muß in der angegebenen Form definiert werden.
Es können die folgenden Platzhalter im subject und body verwendet werden.
- -
-
-
| $CAM | - Device-Alias bzw. der Name der Kamera in der SVS falls der Device-Alias nicht vorhanden ist |
| $DATE | - aktuelles Datum |
| $TIME | - aktuelle Zeit |
+ +
-
+
| $CAM | - Device-Alias bzw. der Name der Kamera in der SVS falls der Device-Alias nicht vorhanden ist |
| $DATE | - aktuelles Datum |
| $TIME | - aktuelle Zeit |
-
- Beispiel:
+ Beispiel:
recEmailTxt subject => Neue Aufnahme $CAM, body => Die aktuelle Aufnahme von $CAM ist angehängt.
@@ -14228,32 +14331,32 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
@@ -14261,7 +14364,7 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
+ verwendet.
- +
- +
+ Im Modus "Full" wird die original vorhandene Auflösung der Images abgerufen. Dies erfordert mehr Ressourcen und kann die + Anzeige verlangsamen. Mit "snapGalleryBoost=1" kann die Ausgabe beschleunigt werden, da in diesem Fall die Aufnahmen über + Polling abgerufen und nur noch zur Anzeige gebracht werden.