]"};}
- $hash->{HELPER}{PNUMBER} = $prop;
- $hash->{HELPER}{PNAME} = $prop1?$prop1:$prop; # wenn keine Presetname angegeben -> Presetnummer als Name verwenden
- $hash->{HELPER}{PSPEED} = $prop2 if($prop2);
- setPreset($hash);
-
- } elsif ($opt eq "setHome" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return qq{Credentials of $name are not set - make sure you've set it with "set $name credentials username password"};}
- if (!$prop) {return "Function \"$opt\" needs a \"Presetname\" as argument";}
- $hash->{HELPER}{SETHOME} = $prop;
- setHome($hash);
-
- } elsif ($opt eq "delPreset" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return qq{Credentials of $name are not set - make sure you've set it with "set $name credentials username password"};}
- if (!$prop) {return qq{Function "$opt" needs a "Presetname" as argument};}
- $hash->{HELPER}{DELPRESETNAME} = $prop;
- delPreset($hash);
-
- } else {
- return "$setlist";
- }
-
-return;
-}
-
-################################################################
-sub Get {
- my ($hash, @a) = @_;
- return "\"get X\" needs at least an argument" if ( @a < 2 );
- my $name = shift @a;
- my $opt = shift @a;
- my $arg = shift @a;
- my $arg1 = shift @a;
- my $arg2 = shift @a;
- my $ret = "";
- my $getlist;
-
- if(!$hash->{CREDENTIALS}) {
- return;
-
- } elsif(IsModelCam($hash)) {
- # getlist für Cams
- $getlist = "Unknown argument $opt, choose one of ".
- "caminfoall:noArg ".
- "caminfo:noArg ".
- ((AttrVal($name,"snapGalleryNumber",undef) || AttrVal($name,"snapGalleryBoost",0))
- ? "snapGallery:noArg " : "snapGallery:$defSnum ").
- (IsCapPTZPan($hash) ? "listPresets:noArg " : "").
- "snapinfo:noArg ".
- "svsinfo:noArg ".
- "saveRecording ".
- "snapfileinfo:noArg ".
- "eventlist:noArg ".
- "stmUrlPath:noArg ".
- "storedCredentials:noArg ".
- "scanVirgin:noArg ".
- "versionNotes "
- ;
- } else {
- # getlist für SVS Devices
- $getlist = "Unknown argument $opt, choose one of ".
- "caminfoall:noArg ".
- ($hash->{HELPER}{APIHMMAXVER}?"homeModeState:noArg ": "").
- "svsinfo:noArg ".
- "listLog ".
- "storedCredentials:noArg ".
- "scanVirgin:noArg ".
- "versionNotes "
- ;
- }
-
- return if(IsDisabled($name));
-
- if ($opt eq "caminfo") {
- # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getCamInfo($hash);
-
- } elsif ($opt eq "caminfoall") {
- # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getCaminfoAll($hash,1);
-
- } elsif ($opt eq "homeModeState" && !IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getHomeModeState($hash);
-
- } elsif ($opt eq "listLog" && !IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- # übergebenen CL-Hash (FHEMWEB) in Helper eintragen
- getClHash($hash,1);
-
- extlogargs($hash, $arg) if($arg);
- extlogargs($hash, $arg1) if($arg1);
- extlogargs($hash, $arg2) if($arg2);
- getSvsLog ($hash);
-
- } elsif ($opt eq "listPresets" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- # übergebenen CL-Hash (FHEMWEB) in Helper eintragen
- getClHash($hash,1);
- getPresets($hash);
-
- } elsif ($opt eq "saveRecording") {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- $hash->{HELPER}{RECSAVEPATH} = $arg if($arg);
- getRecAndSave($hash);
-
- } elsif ($opt eq "svsinfo") {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getSvsInfo($hash);
-
- } elsif ($opt eq "storedCredentials") {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- # Credentials abrufen
- my ($success, $username, $password) = getCredentials($hash,0,"svs");
- unless ($success) {return "Credentials couldn't be retrieved successfully - see logfile"};
-
- my ($smtpsuccess, $smtpuname, $smtpword) = getCredentials($hash,0,"smtp");
- my $so;
- if($smtpsuccess) {
- $so = "SMTP-Username: $smtpuname, SMTP-Password: $smtpword";
- } else {
- $so = "SMTP credentials are not set";
- }
- return "Stored Credentials to access surveillance station or DSM:\n".
- "=========================================================\n".
- "Username: $username, Password: $password\n".
- "\n".
- "Stored Credentials to access SMTP server:\n".
- "=========================================\n".
- "$so\n";
-
- } elsif ($opt eq "snapGallery" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return qq{Credentials of $name are not set - make sure you've set it with "set $name credentials username password"};}
- my $txt = getClHash($hash);
- return $txt if($txt);
-
- if(!AttrVal($name, "snapGalleryBoost",0)) {
- # Snaphash ist nicht vorhanden und wird abgerufen
- $hash->{HELPER}{GETSNAPGALLERY} = 1;
-
- # snap-Infos für Gallerie abrufen
- my ($sg,$slim,$ssize);
- $slim = $arg // AttrVal($name,"snapGalleryNumber",$defSlim); # Anzahl der abzurufenden Snapshots
- $ssize = (AttrVal($name,"snapGallerySize","Icon") eq "Icon") ? 1 : 2; # Image Size 1-Icon, 2-Full
-
- getSnapInfo("$name:$slim:$ssize");
-
- } else {
- # Snaphash ist vorhanden und wird zur Ausgabe aufbereitet
- $hash->{HELPER}{SNAPLIMIT} = AttrVal($name,"snapGalleryNumber",$defSlim);
- my %pars = ( linkparent => $name,
- linkname => '',
- ftui => 0
- );
- my $htmlCode = composeGallery(\%pars);
- for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
- if ($hash->{HELPER}{CL}{$k}->{COMP}) {
- # CL zusammengestellt (Auslösung durch Notify)
- asyncOutput($hash->{HELPER}{CL}{$k}, "$htmlCode");
- } else {
- # Output wurde über FHEMWEB ausgelöst
- return $htmlCode;
- }
- }
- delete($hash->{HELPER}{CL});
- }
-
- } elsif ($opt eq "snapinfo" && IsModelCam($hash)) {
- # Schnappschußgalerie abrufen oder nur Info des letzten Snaps
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- my ($slim,$ssize) = snapLimSize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} gesetzt !
- getSnapInfo("$name:$slim:$ssize");
-
- } elsif ($opt eq "snapfileinfo" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- if (!ReadingsVal("$name", "LastSnapId", undef)) {return "Reading LastSnapId is empty - please take a snapshot before !"}
- getSnapFilename($hash);
-
- } elsif ($opt eq "eventlist" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getEventList ($hash);
-
- } elsif ($opt eq "stmUrlPath" && IsModelCam($hash)) {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- getStmUrlPath ($hash);
-
- } elsif ($opt eq "scanVirgin") {
- if (!$hash->{CREDENTIALS}) {return "Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"";}
- sessionOff($hash);
- delete $hash->{HELPER}{APIPARSET};
- delete $hash->{CAMID};
- # alte Readings außer state löschen
- my @allrds = keys%{$defs{$name}{READINGS}};
- for my $key(@allrds) {
- # Log3 ($name, 1, "DbRep $name - Reading Schlüssel: $key");
- delete($defs{$name}{READINGS}{$key}) if($key ne "state");
- }
- # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
- getCaminfoAll($hash,1);
-
- } elsif ($opt =~ /versionNotes/x) {
- my $header = "Module release information Helpful hints $header1
");
- $ret .= "
";
- $ret .= "";
- $ret .= "";
- if($arg && $arg =~ /[\d]+/x) {
- my @hints = split(",",$arg);
- for (@hints) {
- if(AttrVal("global","language","EN") eq "DE") {
- $hs{$_} = $vHintsExt_de{$_};
- } else {
- $hs{$_} = $vHintsExt_en{$_};
- }
- }
- } else {
- if(AttrVal("global","language","EN") eq "DE") {
- %hs = %vHintsExt_de;
- } else {
- %hs = %vHintsExt_en;
- }
- }
- $i = 0;
- for my $key (sortVersion("desc",keys %hs)) {
- $val0 = $hs{$key};
- $ret .= sprintf("$key $val0 " );
- $ret .= " ";
- $i++;
- if ($i & 1) {
- # $i ist ungerade
- $ret .= "";
- } else {
- $ret .= " ";
- }
- }
- $ret .= " ";
- $ret .= " ";
- $ret .= "
";
- $ret .= "
$header
");
- $ret .= "
";
- $ret .= "";
- $ret .= "";
- $i = 0;
- for my $key (sortVersion("desc",keys %vNotesExtern)) {
- ($val0,$val1) = split(/\s/x,$vNotesExtern{$key},2);
- $ret .= sprintf("$key $val0 $val1 " );
- $ret .= " ";
- $i++;
- if ($i & 1) {
- # $i ist ungerade
- $ret .= "";
- } else {
- $ret .= " ";
- }
- }
- $ret .= " ";
- $ret .= " ";
- $ret .= "
";
- $ret .= "
Because SVS version 8.2.3-5828 is running you cannot see the MJPEG-Stream. Please upgrade to a higher SVS version ! $imgstop ";
- $ret .= $imgblank;
+
+ $ret .= "$imgstop ";
+ $ret .= $imgblank;
+
if($hash->{HELPER}{RUNVIEW} =~ /live_fw/x) {
if(ReadingsVal($d, "Record", "Stop") eq "Stop") {
# Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else {
+ $ret .= "$imgrecendless ";
+ }
+ else {
# Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
- }
+ $ret .= "$imgdosnap ";
+ }
+
$ret .= "{HELPER}{AUDIOLINK} preload='none' volume='0.5' controls>".
"Your browser does not support the audio element.".
" ";
- }
-
- } elsif($wltype eq "iframe") {
+ }
+ }
+ elsif($wltype eq "iframe") {
$ret .= "";
$ret .= "$imgstop ";
+ $ret .= "$imgstop ";
if($hash->{HELPER}{AUDIOLINK} && ReadingsVal($d, "CamAudioType", "Unknown") !~ /Unknown/x) {
$ret .= "{HELPER}{AUDIOLINK} preload='none' volume='0.5' controls>".
"Your browser does not support the audio element.".
" ";
- }
-
- } elsif($wltype eq "embed") {
+ }
+ }
+ elsif($wltype eq "embed") {
$ret .= "";
if($hash->{HELPER}{AUDIOLINK} && ReadingsVal($d, "CamAudioType", "Unknown") !~ /Unknown/x) {
$ret .= "{HELPER}{AUDIOLINK} preload='none' volume='0.5' controls>".
"Your browser does not support the audio element.".
" ";
- }
-
- } elsif($wltype eq "link") {
+ }
+ }
+ elsif($wltype eq "link") {
$alias = $hash->{HELPER}{ALIAS};
$ret .= "$alias $imgstop ";
+ $ret .= "$imgstop ";
$ret .= $imgblank;
- $ret .= "$imgdosnap ";
-
- } elsif($wltype eq "hls") {
+ $ret .= "$imgdosnap ";
+ }
+ elsif($wltype eq "hls") {
$alias = $hash->{HELPER}{ALIAS};
$ret .= "".
"".
@@ -2227,19 +1121,19 @@ sub FWsummaryFn {
"Your browser does not support the video tag".
" ";
$ret .= "$imgstop ";
- $ret .= "$imghlsreact ";
+ $ret .= "$imgstop ";
+ $ret .= "$imghlsreact ";
$ret .= $imgblank;
- if(ReadingsVal($d, "Record", "Stop") eq "Stop") {
- # Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else {
- # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ if(ReadingsVal($d, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
- } elsif($wltype eq "video") {
+ }
+ elsif($wltype eq "video") {
$ret .= "".
"".
"".
@@ -2247,7 +1141,7 @@ sub FWsummaryFn {
"Your browser does not support the video tag.".
" ";
$ret .= "$imgstop ";
+ $ret .= "$imgstop ";
$ret .= "{HELPER}{AUDIOLINK} preload='none' volume='0.5' controls>".
@@ -2265,6 +1159,7 @@ return $ret;
sub FWdetailFn {
my ($FW_wname, $name, $room, $pageHash) = @_; # pageHash is set for summaryFn.
my $hash = $defs{$name};
+
my $ret = "";
checkIconpath ($name, $FW_wname);
@@ -2274,10 +1169,11 @@ sub FWdetailFn {
$ret .= $hash->{".setup"};
}
- my %pars = ( linkparent => $name,
- linkname => $name,
- ftui => 0
- );
+ my %pars = (
+ linkparent => $name,
+ linkname => $name,
+ ftui => 0
+ );
$hash->{".ptzhtml"} = ptzPanel(\%pars) if($hash->{".ptzhtml"} eq "");
@@ -2298,7 +1194,6 @@ sub FWconfCam {
my $svsip = $hash->{SERVERADDR};
my $svsport = $hash->{SERVERPORT};
my $svsprot = $hash->{PROTOCOL};
- my $ttjs = "/fhem/pgm2/sscam_tooltip.js";
my $attr = AttrVal($name, "htmlattr", "");
my $alias = AttrVal($name, "alias", $name);
my $winname = $name."_view";
@@ -2311,18 +1206,21 @@ sub FWconfCam {
if(IsModelCam($hash)) { # Camera Device
return $ret if(!$cip);
if(AttrVal("global","language","EN") =~ /DE/x) {
- $cexpl = $ttips_de{confcam}; $cexpl =~ s/§NAME§/$alias/gx; $cexpl =~ s/\s+/ /gx;
- } else {
- $cexpl = $ttips_en{confcam}; $cexpl =~ s/§NAME§/$alias/gx; $cexpl =~ s/\s+/ /gx;
+ $cexpl = $ttips_de{confcam}; $cexpl =~ s/§NAME§/$alias/gx;
+ }
+ else {
+ $cexpl = $ttips_en{confcam}; $cexpl =~ s/§NAME§/$alias/gx;
}
$cs = "window.open('http://$cip')";
- } else { # SVS-Device
+ }
+ else { # SVS-Device
return $ret if(!$svsip);
if(AttrVal("global","language","EN") =~ /DE/x) {
- $cexpl = $ttips_de{confsvs}; $cexpl =~ s/§NAME§/$alias/gx; $cexpl =~ s/\s+/ /gx;
- } else {
- $cexpl = $ttips_en{confsvs}; $cexpl =~ s/§NAME§/$alias/gx; $cexpl =~ s/\s+/ /gx;
+ $cexpl = $ttips_de{confsvs}; $cexpl =~ s/§NAME§/$alias/gx;
+ }
+ else {
+ $cexpl = $ttips_en{confsvs}; $cexpl =~ s/§NAME§/$alias/gx;
}
$cs = "window.open('$svsprot://$svsip:$svsport/cam')";
}
@@ -2330,26 +1228,24 @@ sub FWconfCam {
if(AttrVal("global","language","EN") =~ /DE/x) {
$hexpl = $ttips_de{"helpsvs"}; $hexpl =~ s/\s/ /gx;
$ch = "window.open('https://www.synology.com/de-de/knowledgebase/Surveillance/help')";
- } else {
+ }
+ else {
$hexpl = $ttips_en{"helpsvs"}; $hexpl =~ s/\s/ /gx;
$ch = "window.open('https://www.synology.com/en-global/knowledgebase/Surveillance/help')";
}
$cicon = FW_makeImage($cicon); $hicon = FW_makeImage($hicon);
- $bs = "Tip(`$cexpl`)";
- $bh = "Tip(`$hexpl`)";
- $ret .= "";
$ret .= "";
$ret .= "";
$ret .= '';
$ret .= "";
- $ret .= " $cicon ";
+ $ret .= " $cicon ";
$ret .= " ";
- $ret .= " $hicon ";
+ $ret .= " $hicon ";
$ret .= " ";
$ret .= "";
@@ -2360,341 +1256,1582 @@ sub FWconfCam {
return $ret;
}
-######################################################################################
-# initiale Startroutinen nach Restart FHEM
-######################################################################################
-sub initOnBoot {
- my ($hash) = @_;
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::initOnBoot");
-
- if ($init_done == 1) {
- RemoveInternalTimer($hash); # alle Timer löschen
-
- delete($defs{$name}{READINGS}{LiveStreamUrl}) if($defs{$name}{READINGS}{LiveStreamUrl}); # LiveStream URL zurücksetzen
-
- # 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");
- camStopRec($hash);
- }
-
- # Konfiguration der Synology Surveillance Station abrufen
- if (!$hash->{CREDENTIALS}) {
- Log3($name, 2, "$name - Credentials of $name are not set - make sure you've set it with \"set $name credentials username password\"");
- } else {
- readingsSingleUpdate($hash, "compstate", "true", 0); # Anfangswert f. versionCheck setzen
- # allg. SVS-Eigenschaften abrufen
- getSvsInfo($hash);
-
- if(IsModelCam($hash)) {
- # Kameraspezifische Infos holen
- getCamInfo($hash);
- getCapabilities($hash);
- getStmUrlPath($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) = 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, "FHEM::SSCam::wdpollcaminfo");
- InternalTimer(gettimeofday()+int(rand(30)), "FHEM::SSCam::wdpollcaminfo", $hash, 0);
-
- } else {
- InternalTimer(gettimeofday()+3, "FHEM::SSCam::initOnBoot", $hash, 0);
- }
-return;
-}
-
-###############################################################################
-# Dauerschleife Kompatibilitätscheck SSCam <-> SVS
-###############################################################################
-sub versionCheck {
- my $hash = shift;
- my $name = $hash->{NAME};
- my $rc = 21600;
-
- RemoveInternalTimer($hash, "FHEM::SSCam::versionCheck");
- return if(IsDisabled($name));
-
- my $cs = ReadingsVal($name, "compstate", "true");
- if($cs eq "false") {
- Log3($name, 2, "$name - WARNING - The current/simulated SVS-version ".ReadingsVal($name, "SVSversion", "").
- " may be incompatible with SSCam version $hash->{HELPER}{VERSION}. ".
- "For further information execute \"get $name versionNotes 4\".");
- }
-
-InternalTimer(gettimeofday()+$rc, "FHEM::SSCam::versionCheck", $hash, 0);
-
-return;
-}
-
-###############################################################################
-# Liefert die bereinigte SVS-Version dreistellig xxx
-###############################################################################
-sub myVersion {
- my $hash = shift;
- my $name = $hash->{NAME};
- my $actvs = 0;
-
- my @vl = split (/-/x,ReadingsVal($name, "SVSversion", ""),2);
- if(@vl) {
- $actvs = $vl[0];
- $actvs =~ s/\.//gx;
- }
-
-return $actvs;
-}
-
-######################################################################################
-# Username / Paßwort speichern
-# $cre = "svs" -> Credentials für SVS und Cams
-# $cre = "smtp" -> Credentials für Mailversand
-######################################################################################
-sub setCredentials {
- my ($hash, $cre, @credentials) = @_;
- my $name = $hash->{NAME};
- my ($success, $credstr, $index, $retcode);
- my (@key,$len,$i);
- my $ao = ($cre eq "svs")?"credentials":"SMTPcredentials";
+################################################################
+# Attr
+################################################################
+sub Attr {
+ my ($cmd,$name,$aName,$aVal) = @_;
+ my $hash = $defs{$name};
+ my ($do,$val,$cache);
+
+ # $cmd can be "del" or "set"
+ # $name is device name
+ # aName and aVal are Attribute name and value
- $credstr = encode_base64(join(':', @credentials));
+ if ($aName eq "session") {
+ delete $hash->{HELPER}{SID};
+ }
- # Beginn Scramble-Routine
- @key = qw(1 3 4 5 6 3 2 1 9);
- $len = scalar @key;
- $i = 0;
- $credstr = join "",
- map { $i = ($i + 1) % $len; chr((ord($_) + $key[$i]) % 256) } split //, $credstr; ## no critic 'Map blocks';
- # End Scramble-Routine
+ if ($aName =~ /hlsNetScript/x && IsModelCam($hash)) {
+ return " The attribute \"$aName\" is only valid for devices of type \"SVS\"! Please set this attribute in a device of this type.";
+ }
+
+ if ($aName =~ /snapReadingRotate/x && !IsModelCam($hash)) {
+ return " The attribute \"$aName\" is not valid for devices of type \"SVS\"!.";
+ }
+
+ # dynamisch PTZ-Attribute setzen (wichtig beim Start wenn Reading "DeviceType" nicht gesetzt ist)
+ if ($cmd eq "set" && ($aName =~ m/ptzPanel_/x)) {
+ for my $n (0..9) {
+ $n = sprintf("%2.2d",$n);
+ addToDevAttrList($name, "ptzPanel_row$n");
+ }
+ addToDevAttrList($name, "ptzPanel_iconPrefix");
+ addToDevAttrList($name, "ptzPanel_iconPath");
+ }
+
+ if($aName =~ m/ptzPanel_row|ptzPanel_Home|ptzPanel_use/x) {
+ InternalTimer(gettimeofday()+0.7, "FHEM::SSCam::addptzattr", "$name", 0);
+ }
- $index = $hash->{TYPE}."_".$hash->{NAME}."_".$ao;
- $retcode = setKeyValue($index, $credstr);
+ if ($aName eq "disable") {
+ my $iscam = IsModelCam($hash);
+ if($cmd eq "set") {
+ $do = $aVal ? 1 : 0;
+ }
+ $do = 0 if($cmd eq "del");
+
+ if ($do == 1) {
+ RemoveInternalTimer($hash);
+ }
+ else {
+ InternalTimer(gettimeofday()+int(rand(30)), "FHEM::SSCam::initOnBoot", $hash, 0);
+ }
- if ($retcode) {
- Log3($name, 2, "$name - Error while saving the Credentials - $retcode");
- $success = 0;
- } else {
- getCredentials($hash,1,$cre); # Credentials nach Speicherung lesen und in RAM laden ($boot=1), $ao = credentials oder SMTPcredentials
- $success = 1;
+ readingsSingleUpdate($hash, "state", $imc{$iscam}{$do}, 1);
+ readingsSingleUpdate($hash, "PollState", "Inactive", 1) if($do == 1);
+ readingsSingleUpdate($hash, "Availability", "???", 1) if($do == 1 && IsModelCam($hash));
+ }
+
+ if($aName =~ m/cacheType/) {
+ my $type = AttrVal($name,"cacheType","internal");
+ if($cmd eq "set") {
+ if($aVal ne "internal") {
+ if($SScamMMCHI) {
+ return "Perl cache module ".$SScamMMCHI." is missing. You need to install it with the FHEM Installer for example.";
+ }
+ if($aVal eq "redis") {
+ if($SScamMMCHIRedis) {
+ return "Perl cache module ".$SScamMMCHIRedis." is missing. You need to install it with the FHEM Installer for example.";
+ }
+ if(!AttrVal($name,"cacheServerParam","")) {
+ return "For cacheType \"$aVal\" you must set first attribute \"cacheServerParam\" for Redis server connection: :";
+ }
+ }
+ if($aVal eq "file") {
+ if($SScamMMCacheCache) {
+ return "Perl cache module ".$SScamMMCacheCache." is missing. You need to install it with the FHEM Installer for example.";
+ }
+ }
+ }
+ if ($aVal ne $type) {
+ if($hash->{HELPER}{CACHEKEY}) {
+ cache($name, "c_destroy"); # CHI-Cache löschen/entfernen
+ }
+ else {
+ delete $data{SSCam}{$name}; # internen Cache löschen
+ }
+ }
+ }
+ else {
+ if($hash->{HELPER}{CACHEKEY}) {
+ cache($name, "c_destroy"); # CHI-Cache löschen/entfernen
+ }
+ }
+ }
+
+ if ($aName eq "showStmInfoFull") {
+ if($cmd eq "set") {
+ $do = ($aVal) ? 1 : 0;
+ }
+ $do = 0 if($cmd eq "del");
+
+ if ($do == 0) {
+ delete($defs{$name}{READINGS}{StmKeymjpegHttp});
+ delete($defs{$name}{READINGS}{LiveStreamUrl});
+ delete($defs{$name}{READINGS}{StmKeyUnicst});
+ delete($defs{$name}{READINGS}{StmKeyUnicstOverHttp});
+ delete($defs{$name}{READINGS}{StmKeymxpegHttp});
+ }
}
-return ($success);
-}
+ if ($aName eq "snapGallerySize") {
+ if($cmd eq "set") {
+ $do = ($aVal eq "Icon")?1:2;
+ }
+ $do = 0 if($cmd eq "del");
-######################################################################################
-# Username / Paßwort abrufen
-# $cre = "svs" -> Credentials für SVS und Cams
-# $cre = "smtp" -> Credentials für Mailversand
-######################################################################################
-sub getCredentials {
- my ($hash,$boot, $cre) = @_;
- my $name = $hash->{NAME};
- my ($success, $username, $passwd, $index, $retcode, $credstr);
- my (@key,$len,$i);
- my $ao = ($cre eq "svs")?"credentials":"SMTPcredentials";
- my $pp = "";
-
- if ($boot) {
- # mit $boot=1 Credentials von Platte lesen und als scrambled-String in RAM legen
- $index = $hash->{TYPE}."_".$hash->{NAME}."_".$ao;
- ($retcode, $credstr) = getKeyValue($index);
-
- if ($retcode) {
- Log3($name, 2, "$name - Unable to read password from file: $retcode");
- $success = 0;
- }
-
- if ($credstr) {
- if($cre eq "svs") {
- # beim Boot scrambled Credentials in den RAM laden
- $hash->{HELPER}{CREDENTIALS} = $credstr;
+ if ($do == 0) {
+ delete($hash->{HELPER}{".SNAPHASH"}) if(AttrVal($name,"snapGalleryBoost",0)); # Snaphash nur löschen wenn Snaps gepollt werden
+ Log3($name, 4, "$name - Snapshot hash deleted");
- # "Credentials" wird als Statusbit ausgewertet. Wenn nicht gesetzt -> Warnmeldung und keine weitere Verarbeitung
- $hash->{CREDENTIALS} = "Set";
- $success = 1;
+ }
+ elsif (AttrVal($name,"snapGalleryBoost",0) && $init_done == 1) { # snap-Infos abhängig ermitteln wenn gepollt werden soll
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+ my $slim = AttrVal($name,"snapGalleryNumber",$defSlim); # Anzahl der abzurufenden Snaps
+ my $ssize = $do;
- } elsif ($cre eq "smtp") {
- # beim Boot scrambled Credentials in den RAM laden
- $hash->{HELPER}{SMTPCREDENTIALS} = $credstr;
+ RemoveInternalTimer($hash, "FHEM::SSCam::__getSnapInfo" );
+ InternalTimer (gettimeofday()+0.7, "FHEM::SSCam::__getSnapInfo", "$name:$slim:$ssize", 0);
+ }
+ }
+
+ if ($aName eq "snapGalleryBoost") {
+ if($cmd eq "set") {
+ $do = ($aVal == 1) ? 1 : 0;
+ }
+ $do = 0 if($cmd eq "del");
+
+ if($do == 0) {
+ delete($hash->{HELPER}{".SNAPHASH"}); # Snaphash löschen
+ Log3($name, 4, "$name - Snapshot hash deleted");
- # "Credentials" wird als Statusbit ausgewertet. Wenn nicht gesetzt -> Warnmeldung und keine weitere Verarbeitung
- $hash->{SMTPCREDENTIALS} = "Set";
- $success = 1;
+ }
+ elsif ($init_done == 1) { # snapgallery regelmäßig neu einlesen wenn Polling ein
+ return qq{When you want activate "snapGalleryBoost", you have to set the attribute "pollcaminfoall" first because of the functionality depends on retrieving snapshots periodical.}
+ if(!AttrVal($name,"pollcaminfoall",0));
+
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+ my $slim = AttrVal($name, "snapGalleryNumber", $defSlim); # Anzahl der abzurufenden Snaps
+ my $sg = AttrVal($name, "snapGallerySize", "Icon" ); # Auflösung Image
+ my $ssize = ($sg eq "Icon") ? 1 : 2;
+
+ RemoveInternalTimer ($hash, "FHEM::SSCam::__getSnapInfo" );
+ InternalTimer (gettimeofday()+0.7, "FHEM::SSCam::__getSnapInfo", "$name:$slim:$ssize", 0);
+ }
+ }
+
+ if ($aName eq "snapGalleryNumber" && AttrVal($name,"snapGalleryBoost",0)) {
+ my ($slim,$ssize);
+ if($cmd eq "set") {
+ $do = ($aVal != 0) ? 1 : 0;
+ }
+ $do = 0 if($cmd eq "del");
+
+ if ($do == 0) {
+ $slim = 3;
+ }
+ else {
+ $slim = $aVal;
+ }
+
+ if($init_done == 1) {
+ delete($hash->{HELPER}{".SNAPHASH"}); # bestehenden Snaphash löschen
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+ my $sg = AttrVal($name,"snapGallerySize","Icon"); # Auflösung Image
+ $ssize = $sg eq "Icon" ? 1 : 2;
+
+ RemoveInternalTimer ($hash, "FHEM::SSCam::__getSnapInfo" );
+ InternalTimer (gettimeofday()+0.7, "FHEM::SSCam::__getSnapInfo", "$name:$slim:$ssize", 0);
+ }
+ }
+
+ if ($aName eq "snapReadingRotate") {
+ if($cmd eq "set") {
+ $do = ($aVal) ? 1 : 0;
+ }
+ $do = 0 if($cmd eq "del");
+ if(!$do) {$aVal = 0}
+ for my $i (1..10) {
+ if($i>$aVal) {
+ readingsDelete($hash, "LastSnapFilename$i" );
+ readingsDelete($hash, "LastSnapId$i" );
+ readingsDelete($hash, "LastSnapTime$i" );
}
}
- } else {
- # boot = 0 -> Credentials aus RAM lesen, decoden und zurückgeben
- if ($cre eq "svs") {
- $credstr = $hash->{HELPER}{CREDENTIALS};
- } elsif ($cre eq "smtp") {
- $pp = "SMTP";
- $credstr = $hash->{HELPER}{SMTPCREDENTIALS};
- }
-
- if($credstr) {
- # Beginn Descramble-Routine
- @key = qw(1 3 4 5 6 3 2 1 9);
- $len = scalar @key;
- $i = 0;
- $credstr = join "",
- map { $i = ($i + 1) % $len; chr((ord($_) - $key[$i] + 256) % 256) } split //, $credstr; ## no critic 'Map blocks';
- # Ende Descramble-Routine
-
- ($username, $passwd) = split(":",decode_base64($credstr));
-
- my $logpw = AttrVal($name, "showPassInLog", "0") == 1 ? $passwd : "********";
-
- Log3($name, 4, "$name - ".$pp."Credentials read from RAM: $username $logpw");
-
- } else {
- Log3($name, 2, "$name - ".$pp."Credentials not set in RAM !");
- }
-
- $success = (defined($passwd)) ? 1 : 0;
- }
-
-return ($success, $username, $passwd);
-}
-
-######################################################################################
-# Polling Überwachung
-######################################################################################
-sub wdpollcaminfo {
- # Überwacht die Wert von Attribut "pollcaminfoall" und Reading "PollState"
- # wenn Attribut "pollcaminfoall" > 10 und "PollState"=Inactive -> start Polling
- my ($hash) = @_;
- my $name = $hash->{NAME};
- my $camname = $hash->{CAMNAME};
- my $pcia = AttrVal($name,"pollcaminfoall",0);
- my $pnl = AttrVal($name,"pollnologging",0);
- my $watchdogtimer = 60+rand(30);
- my $lang = AttrVal("global","language","EN");
-
- RemoveInternalTimer($hash, "FHEM::SSCam::wdpollcaminfo");
-
- # Poll-Logging prüfen
- if ($hash->{HELPER}{OLDVALPOLLNOLOGGING} != $pnl) {
- $hash->{HELPER}{OLDVALPOLLNOLOGGING} = $pnl; # aktuellen pollnologging-Wert in $hash eintragen für späteren Vergleich
- if ($pnl) {
- Log3($name, 3, "$name - Polling-Log of $camname is deactivated");
- } else {
- Log3($name, 3, "$name - Polling-Log of $camname is activated");
- }
- }
-
- # Polling prüfen
- 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(!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)
- getCaminfoAll($hash,0);
- }
-
- my $lupd = ReadingsVal($name, "LastUpdateTime", "1970-01-01 / 01:00:00");
- my ($year,$month,$mday,$hour,$min,$sec);
- if ($lupd =~ /(\d+)\.(\d+)\.(\d+)/x) {
- ($mday, $month, $year, $hour, $min, $sec) = ($lupd =~ /(\d+)\.(\d+)\.(\d+)\s\/\s(\d+):(\d+):(\d+)/x);
- } else {
- ($year, $month, $mday, $hour, $min, $sec) = ($lupd =~ /(\d+)-(\d+)-(\d+)\s\/\s(\d+):(\d+):(\d+)/x);
- }
- $lupd = fhemTimeLocal($sec, $min, $hour, $mday, $month-=1, $year-=1900);
- if( gettimeofday() > ($lupd + $pcia + 20) ) {
- getCaminfoAll($hash,0);
- }
-
}
- if (defined($hash->{HELPER}{OLDVALPOLL}) && $pcia) {
- if ($hash->{HELPER}{OLDVALPOLL} != $pcia) {
- Log3($name, 3, "$name - Pollinginterval of $camname has been changed to: $pcia s");
- $hash->{HELPER}{OLDVALPOLL} = $pcia;
+ if ($aName eq "simu_SVSversion") {
+ delete $hash->{HELPER}{API}{PARSET};
+ delete $hash->{HELPER}{SID};
+ delete $hash->{CAMID};
+ RemoveInternalTimer ($hash, "FHEM::SSCam::__getCaminfoAll" );
+ InternalTimer (gettimeofday()+0.5, "FHEM::SSCam::__getCaminfoAll", $hash, 0);
+ }
+
+ if($aName =~ m/pollcaminfoall/ && $init_done == 1) {
+ RemoveInternalTimer ($hash, "FHEM::SSCam::__getCaminfoAll" );
+ InternalTimer (gettimeofday()+1.0, "FHEM::SSCam::__getCaminfoAll", $hash, 0);
+ RemoveInternalTimer ($hash, "FHEM::SSCam::wdpollcaminfo" );
+ InternalTimer (gettimeofday()+1.5, "FHEM::SSCam::wdpollcaminfo", $hash, 0);
+ }
+
+ if($aName =~ m/pollnologging/ && $init_done == 1) {
+ RemoveInternalTimer ($hash, "FHEM::SSCam::wdpollcaminfo" );
+ InternalTimer (gettimeofday()+1.0, "FHEM::SSCam::wdpollcaminfo", $hash, 0);
+ }
+
+ if ($cmd eq "set") {
+ if ($aName =~ m/httptimeout|snapGalleryColumns|rectime|pollcaminfoall/x) {
+ unless ($aVal =~ /^\d+$/x) { return " The Value for $aName is not valid. Use only figures 1-9 !";}
}
+ if($aName =~ m/pollcaminfoall/x) {
+ return "The value of \"$aName\" has to be greater than 10 seconds." if($aVal <= 10);
+ }
+ if($aName =~ m/cacheServerParam/x) {
+ return "Please provide the Redis server parameters in form: : or unix:" if($aVal !~ /:\d+$|unix:.+$/x);
+ my $type = AttrVal($name, "cacheType", "internal");
+ if($hash->{HELPER}{CACHEKEY} && $type eq "redis") {
+ cache($name, "c_destroy");
+ }
+ }
+ if($aName =~ m/snapChatTxt|recChatTxt/x) {
+ return "When you want activate \"$aName\", you have to set first the attribute \"videofolderMap\" to the root folder ".
+ "of recordings and snapshots provided by an URL.\n".
+ "Example: http://server.domain:8081/surveillance "
+ if(!AttrVal($name, "videofolderMap", "") && $init_done == 1);
+
+ }
+ }
+
+ if ($cmd eq "del") {
+ if ($aName =~ m/pollcaminfoall/x) {
+ # Polling nicht ausschalten wenn snapGalleryBoost ein (regelmäßig neu einlesen)
+ return "Please switch off \"snapGalleryBoost\" first if you want to deactivate \"pollcaminfoall\" because the functionality of \"snapGalleryBoost\" depends on retrieving snapshots periodical."
+ if(AttrVal($name,"snapGalleryBoost",0));
+ }
}
- InternalTimer(gettimeofday()+$watchdogtimer, "FHEM::SSCam::wdpollcaminfo", $hash, 0);
-
return;
}
-############################################################################################################
-# OpMode-Startroutinen #
-# $hash->{HELPER}{ACTIVE} = Funktionstoken #
-# $hash->{HELPER}{ACTIVE} = "on" -> eine Routine läuft, Start anderer Routine erst wenn "off". #
-# $hash->{HELPER}{ACTIVE} = "off" -> keine andere Routine läuft, sofortiger Start möglich #
-############################################################################################################
+################################################################
+# Set
+################################################################
+sub Set {
+ my ($hash, @a) = @_;
+ return "\"set X\" needs at least an argument" if ( @a < 2 );
+ my $name = $a[0];
+ my $opt = $a[1];
+ my $prop = $a[2];
+ my $prop1 = $a[3];
+ my $prop2 = $a[4];
+ my $prop3 = $a[5];
+ my $success;
+ my $setlist;
+
+ return if(IsDisabled($name));
+
+ if(!$hash->{CREDENTIALS}) {
+ # initiale setlist für neue Devices
+ $setlist = "Unknown argument $opt, choose one of ".
+ "credentials "
+ ;
+ } elsif(IsModelCam($hash)) {
+ # selist für Cams
+ my $hlslfw = IsCapHLS($hash) ? ",live_fw_hls," : ",";
+ $setlist = "Unknown argument $opt, choose one of ".
+ "credentials ".
+ "smtpcredentials ".
+ "expmode:auto,day,night ".
+ "on ".
+ "off:noArg ".
+ "motdetsc:disable,camera,SVS ".
+ "snap ".
+ (AttrVal($name, "snapGalleryBoost",0) ? (AttrVal($name,"snapGalleryNumber",undef) || AttrVal($name,"snapGalleryBoost",0)) ? "snapGallery:noArg " : "snapGallery:$defSnum " : " ").
+ "createReadingsGroup ".
+ "createSnapGallery:noArg ".
+ "createStreamDev:generic,hls,lastsnap,mjpeg,switched ".
+ "enable:noArg ".
+ "disable:noArg ".
+ "optimizeParams ".
+ "runView:live_fw".$hlslfw."live_link,live_open,lastrec_fw,lastrec_fw_MJPEG,lastrec_fw_MPEG4/H.264,lastrec_open,lastsnap_fw ".
+ "stopView:noArg ".
+ (IsCapPTZObjTrack($hash) ? "startTracking:noArg " : "").
+ (IsCapPTZObjTrack($hash) ? "stopTracking:noArg " : "").
+ (IsCapPTZPan($hash) ? "setPreset ": "").
+ (IsCapPTZPan($hash) ? "setHome:---currentPosition---,".ReadingsVal("$name","Presets","")." " : "").
+ (IsCapPTZPan($hash) ? "delPreset:".ReadingsVal("$name","Presets","")." " : "").
+ (IsCapPTZPan($hash) ? "runPatrol:".ReadingsVal("$name", "Patrols", "")." " : "").
+ (IsCapPTZPan($hash) ? "goPreset:".ReadingsVal("$name", "Presets", "")." " : "").
+ (IsCapPTZ($hash) ? "createPTZcontrol:noArg " : "").
+ (IsCapPTZAbs($hash) ? "goAbsPTZ"." " : "").
+ (IsCapPTZDir($hash) ? "move"." " : "").
+ (IsCapPIR($hash) ? "pirSensor:activate,deactivate " : "").
+ (IsCapZoom($hash) ? "setZoom:$valZoom " : "").
+ "";
+ }
+ else {
+ # setlist für SVS Devices
+ $setlist = "Unknown argument $opt, choose one of ".
+ "autocreateCams:noArg ".
+ "credentials ".
+ "createStreamDev:master ".
+ "smtpcredentials ".
+ "createReadingsGroup ".
+ "extevent:1,2,3,4,5,6,7,8,9,10 ".
+ ($hash->{HELPER}{API}{HMODE}{VER} ? "homeMode:on,off " : "").
+ "snapCams ";
+ }
+
+ my $params = {
+ hash => $hash,
+ name => $name,
+ opt => $opt,
+ prop => $prop,
+ prop1 => $prop1,
+ prop2 => $prop2,
+ prop3 => $prop3,
+ aref => \@a,
+ };
+
+ no strict "refs"; ## no critic 'NoStrict'
+ if($hset{$opt} && defined &{$hset{$opt}{fn}}) {
+ my $ret = q{};
+
+ if (!$hash->{CREDENTIALS} && $hset{$opt}{needcred}) {
+ return qq{Credentials of $name are not set. Make sure they are set with "set $name credentials "};
+ }
+
+ $ret = &{$hset{$opt}{fn}} ($params);
+
+ return $ret;
+ }
+ use strict "refs";
+
+return $setlist;
+}
+
+################################################################
+# Setter credentials
+################################################################
+sub _setcredentials { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+
+ return "Credentials are incomplete, use username password" if(!$prop || !$prop1);
+ return "Password is too long. It is limited up to and including 20 characters." if(length $prop1 > 20);
+
+ delete $hash->{HELPER}{SID};
+
+ my ($success) = setCredentials($hash,"credentials",$prop,$prop1);
+
+ $hash->{HELPER}{ACTIVE} = "off";
+
+ if($success) {
+ __getCaminfoAll($hash,0);
+ versionCheck ($hash);
+ return "Username and Password saved successfully";
+ }
+ else {
+ return "Error while saving Username / Password - see logfile for details";
+ }
+
+return;
+}
+
+################################################################
+# Setter smtpcredentials
+################################################################
+sub _setsmtpcredentials { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+
+ return "Credentials are incomplete, use username password" if (!$prop || !$prop1);
+ my ($success) = setCredentials($hash,"SMTPcredentials",$prop,$prop1);
+
+ if($success) {
+ return "SMTP-Username and SMTP-Password saved successfully";
+ }
+ else {
+ return "Error while saving SMTP-Username / SMTP-Password - see logfile for details";
+ }
+
+return;
+}
+
+################################################################
+# Setter on
+################################################################
+sub _seton { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ if (defined($prop) && $prop =~ /^\d+$/x) {
+ $hash->{HELPER}{RECTIME_TEMP} = $prop;
+ }
+
+ my $spec = join(" ",@$aref);
+
+ my ($inf) = $spec =~ m/STRM:(.*)/ix; # Aufnahme durch SSCamSTRM-Device
+ $hash->{HELPER}{INFORM} = $inf if($inf);
+
+ my $emtxt = AttrVal($name, "recEmailTxt", "");
+ if($spec =~ /recEmailTxt:/x) {
+ ($emtxt) = $spec =~ m/recEmailTxt:"(.*)"/xi;
+ }
+
+ if($emtxt) { # Recording soll per Email versendet werden, recEmailTxt muss sein: subject => , body =>
+ if (!$hash->{SMTPCREDENTIALS}) {return "Due to \"recEmailTxt\" is set, you want to send recordings by email but SMTP credentials are not set - make sure you've set credentials with \"set $name smtpcredentials username password\"";}
+ $hash->{HELPER}{SMTPRECMSG} = $emtxt;
+ }
+
+ my $teletxt = AttrVal($name, "recTelegramTxt", "");
+ if($spec =~ /recTelegramTxt:/x) {
+ ($teletxt) = $spec =~ m/recTelegramTxt:"(.*)"/xi;
+ }
+
+ if ($teletxt) { # Recording soll per Telegram versendet werden, Format teletxt muss sein: recTelegramTxt:"tbot => , peers => , subject => "
+ $hash->{HELPER}{TELERECMSG} = $teletxt;
+ }
+
+ my $chattxt = AttrVal($name, "recChatTxt", "");
+ if($spec =~ /recChatTxt:/x) {
+ ($chattxt) = $spec =~ m/recChatTxt:"(.*)"/xi;
+ }
+
+ if ($chattxt) { # Recording soll per SSChatBot versendet werden, Format $chattxt muss sein: recChatTxt:"chatbot => , peers => , subject => "
+ $hash->{HELPER}{CHATRECMSG} = $chattxt;
+ }
+
+ __camStartRec("$name!_!$emtxt!_!$teletxt!_!$chattxt");
+
+return;
+}
+
+################################################################
+# Setter off
+################################################################
+sub _setoff { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my $spec = join(" ",@$aref);
+
+ my ($inf) = $spec =~ m/STRM:(.*)/ix; # Aufnahmestop durch SSCamSTRM-Device
+ $hash->{HELPER}{INFORM} = $inf if($inf);
+
+ __camStopRec($hash);
+
+return;
+}
+
+################################################################
+# Setter snap
+################################################################
+sub _setsnap { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop} // q{};
+ my $prop1 = $paref->{prop1} // q{};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my ($num,$lag,$ncount) = (1,2,1);
+
+ if($prop =~ /^\d+$/x) { # Anzahl der Schnappschüsse zu triggern (default: 1)
+ $num = $prop;
+ $ncount = $prop;
+ }
+
+ if($prop1 =~ /^\d+$/x) { # Zeit zwischen zwei Schnappschüssen (default: 2 Sekunden)
+ $lag = $prop1;
+ }
+
+ Log3($name, 4, "$name - Trigger snapshots - Number: $num, Lag: $lag");
+
+ my $spec = join " ",@$aref;
+ if($spec =~ /STRM:/x) {
+ ($hash->{HELPER}{INFORM}) = $spec =~ m/STRM:(.*)/xi; # Snap by SSCamSTRM-Device
+ }
+
+ my $emtxt = AttrVal($name, "snapEmailTxt", "");
+ if($spec =~ /snapEmailTxt:/x) {
+ ($emtxt) = $spec =~ m/snapEmailTxt:"(.*)"/xi;
+ }
+
+ if ($emtxt) { # Snap soll per Email versendet werden, Format $emtxt muss sein: snapEmailTxt:"subject => , body => "
+ if (!$hash->{SMTPCREDENTIALS}) {
+ return "It seems you want to send snapshots by email but SMTP credentials are not set. Make sure set credentials with \"set $name smtpcredentials username password\"";
+ }
+ $hash->{HELPER}{SMTPMSG} = $emtxt;
+ }
+
+ my $teletxt = AttrVal($name, "snapTelegramTxt", "");
+ if($spec =~ /snapTelegramTxt:/x) {
+ ($teletxt) = $spec =~ m/snapTelegramTxt:"(.*)"/xi;
+ }
+
+ if ($teletxt) { # Snap soll per TelegramBot versendet werden, Format $teletxt muss sein: snapTelegramTxt:"tbot => , peers => , subject => "
+ $hash->{HELPER}{TELEMSG} = $teletxt;
+ }
+
+ my $chattxt = AttrVal($name, "snapChatTxt", "");
+ if($spec =~ /snapChatTxt:/x) {
+ ($chattxt) = $spec =~ m/snapChatTxt:"(.*)"/xi;
+ }
+
+ if ($chattxt) { # Snap soll per SSChatBot versendet werden, Format $chattxt muss sein: snapChatTxt:"chatbot => , peers => , subject => "
+ $hash->{HELPER}{CHATMSG} = $chattxt;
+ }
+
+ __camSnap("$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt");
+
+return;
+}
+
+################################################################
+# Setter snapCams
+################################################################
+sub _setsnapCams { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop} // q{};
+ my $prop1 = $paref->{prop1} // q{};
+ my $aref = $paref->{aref};
+
+ return if(IsModelCam($hash));
+
+ my ($num,$lag,$ncount) = (1,2,1);
+ my $cams = "all";
+
+ if($prop =~ /^\d+$/x) { # Anzahl der Schnappschüsse zu triggern (default: 1)
+ $num = $prop;
+ $ncount = $prop;
+ }
+
+ if($prop1 =~ /^\d+$/x) { # Zeit zwischen zwei Schnappschüssen (default: 2 Sekunden)
+ $lag = $prop1;
+ }
+
+ my $at = join " ",@$aref;
+ if($at =~ /CAM:/xi) {
+ ($cams) = $at =~ m/CAM:"(.*)"/xi;
+ $cams =~ s/\s//gx;
+ }
+
+ my @camdvs;
+ if($cams eq "all") { # alle nicht disabled Kameras auslösen, sonst nur die gewählten
+ @camdvs = devspec2array("TYPE=SSCam:FILTER=MODEL!=SVS");
+ for (@camdvs) {
+ if($defs{$_} && !IsDisabled($_)) {
+ $hash->{HELPER}{ALLSNAPREF}{$_} = ""; # Schnappschuss Hash für alle Cams -> Schnappschußdaten sollen hinein
+ }
+ }
+ }
+ else {
+ @camdvs = split(",",$cams);
+ for (@camdvs) {
+ if($defs{$_} && !IsDisabled($_)) {
+ $hash->{HELPER}{ALLSNAPREF}{$_} = "";
+ }
+ }
+ }
+
+ return "No valid camera devices are specified for trigger snapshots" if(!$hash->{HELPER}{ALLSNAPREF});
+
+ my $emtxt;
+ my $teletxt = "";
+ my $rawet = AttrVal($name, "snapEmailTxt", "");
+ my $bt = join " ",@$aref;
+
+ if($bt =~ /snapEmailTxt:/x) {
+ ($rawet) = $bt =~ m/snapEmailTxt:"(.*)"/xi;
+ }
+
+ if($rawet) {
+ $hash->{HELPER}{CANSENDSNAP} = 1; # zentraler Schnappschußversand wird aktiviert
+ $hash->{HELPER}{SMTPMSG} = $rawet;
+ }
+
+ my ($csnap,$cmail) = ("","");
+
+ for my $key (keys%{$hash->{HELPER}{ALLSNAPREF}}) {
+ if(!AttrVal($key, "snapEmailTxt", "")) {
+ delete $hash->{HELPER}{ALLSNAPREF}->{$key}; # Snap dieser Kamera auslösen aber nicht senden
+ $csnap .= $csnap?", $key":$key;
+ $emtxt = "";
+ }
+ else {
+ $cmail .= $cmail?", $key":$key;
+ $emtxt = $rawet;
+ }
+ __camSnap("$key!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt");
+ }
+
+ Log3($name, 4, "$name - Trigger snapshots by SVS - Number: $num, Lag: $lag, Snap only: \"$csnap\", Snap and send: \"$cmail\" ");
+
+return;
+}
+
+################################################################
+# Setter startTracking
+################################################################
+sub _setstartTracking { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+
+ return if(!IsModelCam($hash));
+
+ if ($hash->{HELPER}{API}{PTZ}{VER} < 5) {
+ return qq{Function "$opt" needs a higher version of Surveillance Station};
+ }
+
+ __startTrack($hash);
+
+return;
+}
+
+################################################################
+# Setter stopTracking
+################################################################
+sub _setstopTracking { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+
+ return if(!IsModelCam($hash));
+
+ if ($hash->{HELPER}{API}{PTZ}{VER} < 5) {
+ return qq{Function "$opt" needs a higher version of Surveillance Station};
+ }
+
+ __stopTrack($hash);
+
+return;
+}
+
+################################################################
+# Setter setZoom
+################################################################
+sub _setsetZoom { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ $prop = $prop // "+"; # Korrektur -> "+" in Taste wird als undef geliefert
+ $prop = ".++" if($prop eq "."); # Korrektur -> ".++" in Taste wird als "." geliefert
+ __setZoom ("$name!_!$prop");
+
+return;
+}
+
+################################################################
+# Setter snapGallery
+################################################################
+sub _setsnapGallery { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ my $ret = getClHash($hash);
+ return $ret if($ret);
+
+ if(!AttrVal($name, "snapGalleryBoost",0)) { # Snaphash ist nicht vorhanden und wird neu abgerufen und ausgegeben
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+
+ my $slim = $prop // AttrVal($name,"snapGalleryNumber",$defSlim); # Anzahl der abzurufenden Snapshots
+ my $ssize = AttrVal($name,"snapGallerySize","Icon") eq "Icon" ? 1 : 2; # Image Size 1-Icon, 2-Full
+
+ __getSnapInfo("$name:$slim:$ssize");
+ }
+ else { # Snaphash ist vorhanden und wird zur Ausgabe aufbereitet (Polling ist aktiv)
+ $hash->{HELPER}{SNAPLIMIT} = AttrVal($name,"snapGalleryNumber",$defSlim);
+
+ my %pars = ( linkparent => $name,
+ linkname => '',
+ ftui => 0
+ );
+
+ my $htmlCode = composeGallery(\%pars);
+
+ for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
+ if ($hash->{HELPER}{CL}{$k}->{COMP}) { # CL zusammengestellt (Auslösung durch Notify)
+ asyncOutput($hash->{HELPER}{CL}{$k}, "$htmlCode");
+ }
+ else { # Output wurde über FHEMWEB ausgelöst
+ return $htmlCode;
+ }
+ }
+
+ delClHash ($name);
+ }
+
+return;
+}
+
+################################################################
+# Setter createSnapGallery
+################################################################
+sub _setcreateSnapGallery { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+
+ return if(!IsModelCam($hash));
+
+ if(!AttrVal($name,"snapGalleryBoost",0)) {
+ return qq{Before you can use "$opt", you must first set the "snapGalleryBoost" attribute, since automatic snapshot retrieval is required.};
+ }
+
+ my $sgdev = "SSCamSTRM.$name.snapgallery";
+ my $ret = CommandDefine($hash->{CL},"$sgdev SSCamSTRM {FHEM::SSCam::composeGallery('$name','$sgdev','snapgallery')}");
+
+ return $ret if($ret);
+
+ my $room = "SSCam";
+ $attr{$sgdev}{room} = $room;
+
+return qq{Snapgallery device "$sgdev" created and assigned to room "$room".};
+}
+
+################################################################
+# Setter createPTZcontrol
+################################################################
+sub _setcreatePTZcontrol { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+
+ return if(!IsModelCam($hash));
+
+ my $ptzcdev = "SSCamSTRM.$name.PTZcontrol";
+ my $ret = CommandDefine($hash->{CL},"$ptzcdev SSCamSTRM {FHEM::SSCam::ptzPanel('$name','$ptzcdev','ptzcontrol')}");
+
+ return $ret if($ret);
+
+ my $room = AttrVal($name,"room","SSCam");
+ $attr{$ptzcdev}{room} = $room;
+ $attr{$ptzcdev}{group} = $name."_PTZcontrol";
+
+return qq{PTZ control device "$ptzcdev" created and assigned to room "$room".};
+}
+
+################################################################
+# Setter createStreamDev
+################################################################
+sub _setcreateStreamDev { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop};
+
+ my ($livedev,$ret);
+
+ if($prop =~ /mjpeg/x) {
+ $livedev = "SSCamSTRM.$name.mjpeg";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','mjpeg')}");
+ return $ret if($ret);
+ }
+
+ if($prop =~ /generic/x) {
+ $livedev = "SSCamSTRM.$name.generic";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','generic')}");
+ return $ret if($ret);
+ }
+
+ if($prop =~ /hls/x) {
+ $livedev = "SSCamSTRM.$name.hls";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','hls')}");
+ return $ret if($ret);
+
+ my $c = qq{The device needs to set attribute "hlsStrmObject" in camera device "$name" to a valid HLS videostream};
+ CommandAttr($hash->{CL},"$livedev comment $c");
+ }
+
+ if($prop =~ /lastsnap/x) {
+ $livedev = "SSCamSTRM.$name.lastsnap";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','lastsnap')}");
+ return $ret if($ret);
+
+ my $c = qq{The device shows the last snapshot of camera device "$name". \n}.
+ qq{If you always want to see the newest snapshot, please set attribute "pollcaminfoall" in camera device "$name".\n}.
+ qq{Set also attribute "snapGallerySize = Full" in camera device "$name" to retrieve snapshots in original resolution.};
+ CommandAttr($hash->{CL},"$livedev comment $c");
+ }
+
+ if($prop =~ /switched/x) {
+ $livedev = "SSCamSTRM.$name.switched";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','switched')}");
+ return $ret if($ret);
+ }
+
+ if($prop =~ /master/x) {
+ $livedev = "SSCamSTRM.$name.master";
+ $ret = CommandDefine($hash->{CL},"$livedev SSCamSTRM {FHEM::SSCam::streamDev('$name','$livedev','master')}");
+ return $ret if($ret);
+ }
+
+ my $room = AttrVal($name,"room","SSCam");
+ $attr{$livedev}{room} = $room;
+
+return qq{Livestream device "$livedev" created and assigned to room "$room".};
+}
+
+################################################################
+# Setter createReadingsGroup
+################################################################
+sub _setcreateReadingsGroup { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $prop = $paref->{prop};
+
+ my $rgdev = $prop // "RG.SSCam";
+
+ my $rgdef = '<%it_camera>,On/Offline>,< >,,< >,erkennung>,< >,,< >,(MB)>,< >,,< >,Modul>,< >,'."\n".
+ 'TYPE=SSCam:FILTER=MODEL!=SVS:Availability,< >,state,< >,!CamMotDetSc,< >,!CamLastRecTime,< >,!UsedSpaceMB,< >,!LastUpdateTime,< >,?!disable,< >,?!LSnap,?!LRec,?!Start,?!Stop'."\n".
+ '< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >'."\n".
+ '< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >'."\n".
+ '< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >'."\n".
+ '<%it_server>,On/Off>,< >,,< >, >,< >,< >,< >,< >, >,< >,< >,< >,< >,< >,< >,< >,< >,< >,< >'."\n".
+ 'TYPE=SSCam:FILTER=MODEL=SVS:!HomeModeState,< >,state,< >,< >,< >,< >,< >,< >, >,< >,< >,< >,?!disable,< >,< >,< >,< >,< >'."\n".
+ '';
+
+ my $ret = CommandDefine($hash->{CL},"$rgdev readingsGroup $rgdef");
+ return $ret if($ret);
+
+ my $room = AttrVal($name,"room","SSCam");
+ CommandAttr($hash->{CL},"$rgdev room $room");
+ CommandAttr($hash->{CL},"$rgdev alias Überblick Kameras");
+
+ my $cellStyle = '{'."\n".
+ ' "c:0" => \'style="text-align:left;font-weight:normal"\','."\n".
+ ' "c:1" => \'style="text-align:left;font-weight:normal"\','."\n".
+ ' "c:4" => \'style="text-align:center;font-weight:bold"\','."\n".
+ ' "c:5" => \'style="text-align:center;color:green;font-weight:normal"\','."\n".
+ ' "c:9" => \'style="text-align:center;font-weight:normal"\''."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev cellStyle $cellStyle");
+
+ my $commands = '{'."\n".
+ ' "Availability.enabled" => "set $DEVICE disable",'."\n".
+ ' "Availability.disabled" => "set $DEVICE enable",'."\n".
+ ' "HomeModeState.on" => "set $DEVICE homeMode off",'."\n".
+ ' "HomeModeState.off" => "set $DEVICE homeMode on",'."\n".
+ ' "'.$rgdev.'.Start" => "set %DEVICE runView live_fw",'."\n".
+ ' "Start" => "set %DEVICE runView live_fw",'."\n".
+ ' "LRec" => "set %DEVICE runView lastrec_fw",'."\n".
+ ' "LSnap" => "set %DEVICE runView lastsnap_fw",'."\n".
+ ' "Stop" => "set %DEVICE stopView",'."\n".
+ ' "Record" => "runView:",'."\n".
+ ' "disable" => "disable:"'."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev commands $commands");
+
+ my $nameStyle = 'style = "color:black;font-weight:bold;text-align:center"';
+ CommandAttr($hash->{CL},"$rgdev nameStyle $nameStyle");
+
+ my $valueColumns = '{'."\n".
+ ' \'Wiedergabe\' => \'colspan="4"\''."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev valueColumns $valueColumns");
+
+ my $valueFormat = '{'."\n".
+ ' ($READING eq "CamMotDetSc" && $VALUE eq "disabled") ? "external" : $VALUE'."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev valueFormat $valueFormat");
+
+ my $valueIcon = '{'."\n".
+ ' "Availability.enabled" => "remotecontrol/black_btn_GREEN",'."\n".
+ ' "Availability.disabled" => "remotecontrol/black_btn_RED",'."\n".
+ ' "HomeModeState.on" => "status_available",'."\n".
+ ' "HomeModeState.off" => "status_away_1\@orange",'."\n".
+ ' "Start" => "black_btn_MJPEG",'."\n".
+ ' "LRec" => "black_btn_LASTRECIFRAME",'."\n".
+ ' "LSnap" => "black_btn_LSNAP",'."\n".
+ ' "Stop" => "remotecontrol/black_btn_POWEROFF3",'."\n".
+ ' "state.initialized" => "remotecontrol/black_btn_STOP",'."\n".
+ ' "state" => "%devStateIcon"'."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev valueIcon $valueIcon");
+
+ my $valueStyle = '{'."\n".
+ ' if($READING eq "Availability" && $VALUE eq "enabled"){ \' style="color:green" \' }'."\n".
+ ' elsif( $READING eq "Availability" && $VALUE eq "disabled"){ \' style="color:red" \' }'."\n".
+ ' elsif( $READING eq "CamMotDetSc" && $VALUE =~ /SVS.*/ ){ \' style="color:orange" \' }'."\n".
+ ' elsif( $READING eq "CamMotDetSc" && $VALUE eq "disabled"){ \' style="color:LimeGreen" \' }'."\n".
+ ' elsif( $READING eq "CamMotDetSc" && $VALUE =~ /Cam.*/ ){ \' style="color:SandyBrown" \' }'."\n".
+ '}';
+ CommandAttr($hash->{CL},"$rgdev valueStyle $valueStyle");
+
+return qq{readingsGroup device "$rgdev" created and assigned to room "$room".};
+}
+
+################################################################
+# Setter enable
+################################################################
+sub _setenable { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ __camEnable($hash);
+
+return;
+}
+
+################################################################
+# Setter disable
+################################################################
+sub _setdisable { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ __camDisable($hash);
+
+return;
+}
+
+################################################################
+# Setter motdetsc
+################################################################
+sub _setmotdetsc { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+ my $prop2 = $paref->{prop2};
+ my $prop3 = $paref->{prop3};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop || $prop !~ /disable|camera|SVS/x) {
+ return qq{Command "$opt" needs one of those arguments: disable, camera, SVS !};
+ }
+
+ $hash->{HELPER}{MOTDETSC} = $prop;
+
+ if ($prop1) {
+ if ($prop1 !~ /^[1-9][0-9]?$/x) {
+ return "Invalid value for sensitivity (SVS or camera). Use numbers between 1 - 99";
+ }
+ $hash->{HELPER}{MOTDETSC_PROP1} = $prop1;
+ }
+
+ if ($prop2) {
+ if ($prop2 !~ /^[1-9][0-9]?$/x) {
+ return "Invalid value for threshold (SVS) / object size (camera). Use numbers between 1 - 99";
+ }
+ $hash->{HELPER}{MOTDETSC_PROP2} = $prop2;
+ }
+
+ if ($prop3) {
+ if ($prop3 !~ /^[1-9][0-9]?$/x) {
+ return "Invalid value for threshold (SVS) / object size (camera). Use numbers between 1 - 99";
+ }
+ $hash->{HELPER}{MOTDETSC_PROP3} = $prop3;
+ }
+
+ __camMotDetSc($hash);
+
+return;
+}
+
+################################################################
+# Setter expmode
+################################################################
+sub _setexpmode { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if(!$prop) {
+ return qq{Command "$opt" needs one of those arguments: auto, day, night};
+ }
+
+ $hash->{HELPER}{EXPMODE} = $prop;
+
+ __camExpmode($hash);
+
+return;
+}
+
+################################################################
+# Setter homeMode
+################################################################
+sub _sethomeMode { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(IsModelCam($hash));
+
+ if(!$prop) {
+ return qq{Command "$opt" needs one of those arguments: on, off};
+ }
+
+ $hash->{HELPER}{HOMEMODE} = $prop;
+
+ __setHomeMode($hash);
+
+return;
+}
+
+################################################################
+# Setter autocreateCams
+################################################################
+sub _setautocreateCams { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(IsModelCam($hash));
+
+ __camAutocreate($hash);
+
+return;
+}
+
+################################################################
+# Setter goPreset
+################################################################
+sub _setgoPreset { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop) {
+ return qq{Command "$opt" needs a as an argument};
+ }
+
+ $hash->{HELPER}{GOPRESETNAME} = $prop;
+ $hash->{HELPER}{PTZACTION} = "gopreset";
+
+ __doPtzAaction($hash);
+
+return;
+}
+
+################################################################
+# Setter optimizeParams
+################################################################
+sub _setoptimizeParams { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my %cpcl = (ntp => 1, mirror => 2, flip => 4, rotate => 8);
+
+ for my $part (@$aref) {
+ $hash->{HELPER}{MIRROR} = (split "mirror:", $part)[1] if(lc($part) =~ m/^mirror:/x);
+ $hash->{HELPER}{FLIP} = (split "flip:", $part)[1] if(lc($part) =~ m/^flip:/x);
+ $hash->{HELPER}{ROTATE} = (split "rotate:", $part)[1] if(lc($part) =~ m/^rotate:/x);
+ $hash->{HELPER}{NTPSERV} = (split "ntp:", $part)[1] if(lc($part) =~ m/^ntp:/x);
+ }
+
+ $hash->{HELPER}{CHKLIST} = ($hash->{HELPER}{NTPSERV} ? $cpcl{ntp} : 0)+
+ ($hash->{HELPER}{MIRROR} ? $cpcl{mirror} : 0)+
+ ($hash->{HELPER}{FLIP} ? $cpcl{flip} : 0)+
+ ($hash->{HELPER}{ROTATE} ? $cpcl{rotate} : 0);
+
+ __setOptParams($hash);
+
+return;
+}
+
+################################################################
+# Setter pirSensor
+################################################################
+sub _setpirSensor { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if(ReadingsVal($name, "CapPIR", "false") eq "false") {
+ return qq{Command "$opt" not possible. Camera "$name" don't provide a PIR sensor.};
+ }
+
+ if(!$prop) {
+ return qq{Command "$opt" needs an argument};
+ }
+
+ $hash->{HELPER}{PIRACT} = ($prop eq "activate") ? 0 : ($prop eq "deactivate") ? -1 : 5;
+
+ if($hash->{HELPER}{PIRACT} == 5) {
+ return qq{Illegal argument for "$opt" detected. Use "activate" or "activate".};
+ }
+
+ __managePir($hash);
+
+return;
+}
+
+################################################################
+# Setter runPatrol
+################################################################
+sub _setrunPatrol { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop) {
+ return qq{Command "$opt" needs a as an argument};
+ }
+
+ $hash->{HELPER}{GOPATROLNAME} = $prop;
+ $hash->{HELPER}{PTZACTION} = "runpatrol";
+
+ __doPtzAaction($hash);
+
+return;
+}
+
+################################################################
+# Setter goAbsPTZ
+################################################################
+sub _setgoAbsPTZ { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+
+ return if(!IsModelCam($hash));
+
+ if ($prop eq "up" || $prop eq "down" || $prop eq "left" || $prop eq "right") {
+ if ($prop eq "up") {$hash->{HELPER}{GOPTZPOSX} = 320; $hash->{HELPER}{GOPTZPOSY} = 480;}
+ if ($prop eq "down") {$hash->{HELPER}{GOPTZPOSX} = 320; $hash->{HELPER}{GOPTZPOSY} = 0; }
+ if ($prop eq "left") {$hash->{HELPER}{GOPTZPOSX} = 0; $hash->{HELPER}{GOPTZPOSY} = 240;}
+ if ($prop eq "right") {$hash->{HELPER}{GOPTZPOSX} = 640; $hash->{HELPER}{GOPTZPOSY} = 240;}
+
+ $hash->{HELPER}{PTZACTION} = "goabsptz";
+ __doPtzAaction($hash);
+ return;
+ }
+ else {
+ if ($prop !~ /\d+/x || $prop1 !~ /\d+/x || abs($prop) > 640 || abs($prop1) > 480) {
+ return qq{Command "$opt" needs two coordinates within limits posX=0-640 and posY=0-480 as arguments or use up, down, left, right instead};
+ }
+
+ $hash->{HELPER}{GOPTZPOSX} = abs($prop);
+ $hash->{HELPER}{GOPTZPOSY} = abs($prop1);
+ $hash->{HELPER}{PTZACTION} = "goabsptz";
+ __doPtzAaction($hash);
+ return;
+ }
+
+return qq{Command "$opt" needs two coordinates, posX=0-640 and posY=0-480, as arguments or use up, down, left, right instead};
+}
+
+################################################################
+# Setter move
+################################################################
+sub _setmove { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+
+ return if(!IsModelCam($hash));
+
+ if(!$hash->{HELPER}{API}{PTZ}{VER}) {
+ return qq{PTZ version of Synology API isn't set. Use "get $name scanVirgin" first.}
+ };
+
+ if($hash->{HELPER}{API}{PTZ}{VER} <= 4) {
+ if (!defined($prop) || ($prop !~ /^up$|^down$|^left$|^right$|^dir_\d$/x)) {
+ return qq{Command "$opt" needs an argument like up, down, left, right or dir_X (X = 0 to CapPTZDirections-1)};
+ }
+ $hash->{HELPER}{GOMOVEDIR} = $prop;
+
+ } elsif ($hash->{HELPER}{API}{PTZ}{VER} >= 5) {
+ if (!defined($prop) || ($prop !~ /^right$|^upright$|^up$|^upleft$|^left$|^downleft$|^down$|^downright$/x)) {
+ return qq{Command "$opt" needs an argument like right, upright, up, upleft, left, downleft, down, downright};
+ }
+
+ my %dirs = (
+ right => 0,
+ upright => 4,
+ up => 8,
+ upleft => 12,
+ left => 16,
+ downleft => 20,
+ down => 24,
+ downright => 28,
+ );
+ $hash->{HELPER}{GOMOVEDIR} = $dirs{$prop};
+ }
+
+ $hash->{HELPER}{GOMOVETIME} = $prop1 // 1;
+ $hash->{HELPER}{PTZACTION} = "movestart";
+
+ __doPtzAaction($hash);
+
+return;
+}
+
+################################################################
+# Setter runView
+################################################################
+sub _setrunView { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $aref = $paref->{aref};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+
+ return if(!IsModelCam($hash));
+
+ my $spec = join " ", @$aref;
+ if($spec =~ /STRM:/x) {
+ ($hash->{HELPER}{INFORM}) = $spec =~ m/STRM:(.*)/xi; # Call by SSCamSTRM-Device
+ }
+
+ if ($prop eq "live_open") {
+ if ($prop1) {
+ $hash->{HELPER}{VIEWOPENROOM} = $prop1;
+ }
+ else {
+ delete $hash->{HELPER}{VIEWOPENROOM};
+ }
+
+ $hash->{HELPER}{OPENWINDOW} = 1;
+ $hash->{HELPER}{WLTYPE} = "link";
+ $hash->{HELPER}{ALIAS} = "LiveView";
+ $hash->{HELPER}{RUNVIEW} = "live_open";
+ $hash->{HELPER}{ACTSTRM} = ""; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "live_link") {
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "link";
+ $hash->{HELPER}{ALIAS} = "LiveView";
+ $hash->{HELPER}{RUNVIEW} = "live_link";
+ $hash->{HELPER}{ACTSTRM} = ""; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "lastrec_open") {
+ if ($prop1) {
+ $hash->{HELPER}{VIEWOPENROOM} = $prop1;
+ }
+ else {
+ delete $hash->{HELPER}{VIEWOPENROOM};
+ }
+
+ $hash->{HELPER}{OPENWINDOW} = 1;
+ $hash->{HELPER}{WLTYPE} = "link";
+ $hash->{HELPER}{ALIAS} = "LastRecording";
+ $hash->{HELPER}{RUNVIEW} = "lastrec_open";
+ $hash->{HELPER}{ACTSTRM} = ""; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "lastrec_fw") { # Video in iFrame eingebettet
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "iframe";
+ $hash->{HELPER}{ALIAS} = " ";
+ $hash->{HELPER}{RUNVIEW} = "lastrec";
+ $hash->{HELPER}{ACTSTRM} = "last Recording"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "lastrec_fw_MJPEG") { # “video/avi” – MJPEG format event
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "image";
+ $hash->{HELPER}{ALIAS} = " ";
+ $hash->{HELPER}{RUNVIEW} = "lastrec";
+ $hash->{HELPER}{ACTSTRM} = "last Recording"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "lastrec_fw_MPEG4/H.264") { # “video/mp4” – MPEG4/H.264 format event
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "video";
+ $hash->{HELPER}{ALIAS} = " ";
+ $hash->{HELPER}{RUNVIEW} = "lastrec";
+ $hash->{HELPER}{ACTSTRM} = "last Recording"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "live_fw") {
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "image";
+ $hash->{HELPER}{ALIAS} = " ";
+ $hash->{HELPER}{RUNVIEW} = "live_fw";
+ $hash->{HELPER}{ACTSTRM} = "MJPEG Livestream"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "live_fw_hls") {
+ if(!IsCapHLS($hash)) {
+ return qq{API "SYNO.SurveillanceStation.VideoStream" is not available or Reading "CamStreamFormat" is not "HLS". May be your API version is 2.8 or lower.};
+ }
+
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "hls";
+ $hash->{HELPER}{ALIAS} = "View only on compatible browsers";
+ $hash->{HELPER}{RUNVIEW} = "live_fw_hls";
+ $hash->{HELPER}{ACTSTRM} = "HLS Livestream"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+
+ } elsif ($prop eq "lastsnap_fw") {
+ $hash->{HELPER}{LSNAPBYSTRMDEV} = 1 if($prop1); # Anzeige durch SSCamSTRM-Device ausgelöst
+ $hash->{HELPER}{LSNAPBYDEV} = 1 if(!$prop1); # Anzeige durch SSCam ausgelöst
+ $hash->{HELPER}{OPENWINDOW} = 0;
+ $hash->{HELPER}{WLTYPE} = "base64img";
+ $hash->{HELPER}{ALIAS} = " ";
+ $hash->{HELPER}{RUNVIEW} = "lastsnap_fw";
+ $hash->{HELPER}{ACTSTRM} = "last Snapshot"; # sprechender Name des laufenden Streamtyps für SSCamSTRM
+ }
+ else {
+ return qq{"$prop" isn't a valid option of runview, use one of live_fw, live_link, live_open, lastrec_fw, lastrec_open, lastsnap_fw};
+ }
+
+ __runLiveview($hash);
+
+return;
+}
+
+################################################################
+# Setter hlsreactivate
+# ohne SET-Menüeintrag
+################################################################
+sub _sethlsreactivate { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ __reactivateHls($hash);
+
+return;
+}
+
+################################################################
+# Setter hlsactivate
+# ohne SET-Menüeintrag
+################################################################
+sub _sethlsactivate { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my $spec = join " ", @$aref;
+
+ if($spec =~ /STRM:/x) {
+ ($hash->{HELPER}{INFORM}) = $spec =~ m/STRM:(.*)/xi; # Call by SSCamSTRM-Device
+ }
+
+ __activateHls($hash);
+
+return;
+}
+
+################################################################
+# Setter refresh
+# ohne SET-Menüeintrag
+################################################################
+sub _setrefresh { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my $spec = join " ", @$aref;
+
+ if($spec =~ /STRM:/x) {
+ ($hash->{HELPER}{INFORM}) = $spec =~ m/STRM:(.*)/xi; # Refresh by SSCamSTRM-Device
+ roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
+ }
+
+return;
+}
+
+################################################################
+# Setter extevent
+################################################################
+sub _setextevent { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $prop = $paref->{prop};
+
+ return if(IsModelCam($hash));
+
+ $hash->{HELPER}{EVENTID} = $prop;
+ __extEvent($hash);
+
+return;
+}
+
+################################################################
+# Setter stopView
+################################################################
+sub _setstopView { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $aref = $paref->{aref};
+
+ return if(!IsModelCam($hash));
+
+ my $spec = join " ", @$aref;
+ if($spec =~ /STRM:/x) {
+ ($hash->{HELPER}{INFORM}) = $spec =~ m/STRM:(.*)/xi; # Stop by SSCamSTRM-Device
+ }
+ __stopLiveview($hash);
+
+return;
+}
+
+################################################################
+# Setter setPreset
+################################################################
+sub _setsetPreset { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+ my $prop1 = $paref->{prop1};
+ my $prop2 = $paref->{prop2};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop) {
+ return qq{Syntax of Command "$opt" was wrong. Please use "set $name setPreset []"};
+ }
+
+ $hash->{HELPER}{PNUMBER} = $prop;
+ $hash->{HELPER}{PNAME} = $prop1 // $prop; # wenn keine Presetname angegeben -> Presetnummer als Name verwenden
+ $hash->{HELPER}{PSPEED} = $prop2 if($prop2);
+
+ __setPreset($hash);
+
+return;
+}
+
+################################################################
+# Setter setHome
+################################################################
+sub _setsetHome { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop) {
+ return qq{Command "$opt" needs a as argument};
+ }
+
+ $hash->{HELPER}{SETHOME} = $prop;
+ __setHome($hash);
+
+return;
+}
+
+################################################################
+# Setter delPreset
+################################################################
+sub _setdelPreset { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $opt = $paref->{opt};
+ my $prop = $paref->{prop};
+
+ return if(!IsModelCam($hash));
+
+ if (!$prop) {
+ return qq{Function "$opt" needs a as argument};
+ }
+
+ $hash->{HELPER}{DELPRESETNAME} = $prop;
+ __delPreset($hash);
+
+return;
+}
###############################################################################
# Kamera Aufnahme starten
###############################################################################
-sub camStartRec {
- my ($str) = @_;
+sub __camStartRec {
+ my $str = shift;
my ($name,$emtxt,$teletxt,$chattxt) = split("!_!",$str);
my $hash = $defs{$name};
my $camname = $hash->{CAMNAME};
- my ($errorcode,$error);
- RemoveInternalTimer($hash, "camStartRec");
- return if(IsDisabled($name));
+ my $caller = (caller(0))[3];
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate ($hash);
- readingsBulkUpdate ($hash,"Errorcode",$errorcode);
- readingsBulkUpdate ($hash,"Error",$error);
- readingsEndUpdate ($hash, 1);
+ RemoveInternalTimer($hash, $caller);
- Log3($name, 2, "$name - ERROR - Start Recording of Camera $camname can't be executed - $error");
-
- return;
- }
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Start Recording of Camera $camname can't be executed"));
if (ReadingsVal("$name", "Record", "") eq "Start" && !AttrVal($name, "recextend", "")) {
Log3($name, 3, "$name - another recording is already running - new start-command will be ignored");
return;
}
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- # Aufnahme starten
- $hash->{OPMODE} = "Start";
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "Start";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $str);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "EXTREC";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Record&cameraId=_CID_&action=start&_sid="_SID_"};
+
+ if($hash->{HELPER}{API}{EXTREC}{VER} >= 3) {
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Record&cameraIds=_CID_&action=start&_sid="_SID_"};
+ }
+
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
- $hash->{HELPER}{SMTPRECMSG} = $emtxt if($emtxt); # Text für Email-Versand
+ $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
+ $hash->{HELPER}{SMTPRECMSG} = $emtxt if($emtxt); # Text für Email-Versand
$hash->{HELPER}{TELERECMSG} = $teletxt if($teletxt); # Text für Telegram-Versand
$hash->{HELPER}{CHATRECMSG} = $chattxt if($chattxt); # Text für Synology Chat-Versand
}
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camStartRec", "$name!_!$emtxt!_!$teletxt!_!$chattxt", 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $str);
}
return;
@@ -2703,35 +2840,17 @@ return;
###############################################################################
# Kamera Aufnahme stoppen
###############################################################################
-sub camStopRec {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __camStopRec {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::camStopRec");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Stop Recording of Camera $camname can't be executed - $error");
- return;
- }
+ return if(exitOnDis ($name, "Stop Recording of Camera $camname can't be executed"));
if (ReadingsVal("$name", "Record", undef) eq "Stop") {
Log3($name, 3, "$name - recording is already stopped - new stop-command will be ignored");
@@ -2739,14 +2858,27 @@ sub camStopRec {
}
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "Stop";
+ $hash->{OPMODE} = "Stop";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "EXTREC";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Record&cameraId=_CID_&action=stop&_sid="_SID_"};
+
+ if($hash->{HELPER}{API}{EXTREC}{VER} >= 3) {
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Record&cameraIds=_CID_&action=stop&_sid="_SID_"};
+ }
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camStopRec", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -2755,45 +2887,39 @@ return;
###############################################################################
# Kamera Auto / Day / Nightmode setzen
###############################################################################
-sub camExpmode {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __camExpmode {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::camExpmode");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Setting exposure mode of Camera $camname can't be executed - $error");
- return;
- }
+ return if(exitOnDis ($name, "Setting exposure mode of Camera $camname can't be executed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "ExpMode";
+ $hash->{OPMODE} = "ExpMode";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camExpmode", $hash, 0);
+ my $expmode = $hexmo{$hash->{HELPER}{EXPMODE}};
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ my $ver = ($hash->{HELPER}{API}{CAM}{VER} >= 9) ? 8 : $hash->{HELPER}{API}{CAM}{VER};
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="$ver"&method="SaveOptimizeParam"&cameraIds="_CID_"&expMode="$expmode"&camParamChkList=32&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -2802,45 +2928,101 @@ return;
###############################################################################
# Art der Bewegungserkennung setzen
###############################################################################
-sub amMotDetSc {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __camMotDetSc {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::amMotDetSc");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Setting of motion detection source of Camera $camname can't be executed - $error");
- return;
- }
+ return if(exitOnDis ($name, "Setting of motion detection source of Camera $camname can't be executed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "MotDetSc";
+ $hash->{OPMODE} = "MotDetSc";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
-
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAMEVENT";
+
+ my %motdetoptions = (); # Hash für Optionswerte sichern für Logausgabe in Befehlsauswertung
+ my $motdetsc;
+
+ if ($hash->{HELPER}{MOTDETSC} eq "disable") {
+ $motdetsc = "-1";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="MDParamSave"&camId="_CID_"&source=$motdetsc&keep=true};
+
+ } elsif ($hash->{HELPER}{MOTDETSC} eq "camera") {
+ $motdetsc = "0";
+ $motdetoptions{SENSITIVITY} = $hash->{HELPER}{MOTDETSC_PROP1} if ($hash->{HELPER}{MOTDETSC_PROP1});
+ $motdetoptions{OBJECTSIZE} = $hash->{HELPER}{MOTDETSC_PROP2} if ($hash->{HELPER}{MOTDETSC_PROP2});
+ $motdetoptions{PERCENTAGE} = $hash->{HELPER}{MOTDETSC_PROP3} if ($hash->{HELPER}{MOTDETSC_PROP3});
+
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="MDParamSave"&camId="_CID_"&source=$motdetsc};
+
+ if ($hash->{HELPER}{MOTDETSC_PROP1} || $hash->{HELPER}{MOTDETSC_PROP2} || $hash->{HELPER}{MOTDETSC_PROP3}) {
+ $hash->{HELPER}{CALL}{PART} .= qq{&mode=1}; # umschalten und neue Werte setzen
+ }
+ else { # nur Umschaltung, alte Werte beibehalten
+ $hash->{HELPER}{CALL}{PART} .= qq{&mode=0};
+ }
+
+ if ($hash->{HELPER}{MOTDETSC_PROP1}) { # der Wert für Bewegungserkennung Kamera -> Empfindlichkeit ist gesetzt
+ my $sensitivity = delete $hash->{HELPER}{MOTDETSC_PROP1};
+ $hash->{HELPER}{CALL}{PART} .= qq{&sensitivity="$sensitivity"};
+ }
+
+ if ($hash->{HELPER}{MOTDETSC_PROP2}) { # der Wert für Bewegungserkennung Kamera -> Objektgröße ist gesetzt
+ my $objectsize = delete $hash->{HELPER}{MOTDETSC_PROP2};
+ $hash->{HELPER}{CALL}{PART} .= qq{&objectSize="$objectsize"};
+ }
+
+ if ($hash->{HELPER}{MOTDETSC_PROP3}) { # der Wert für Bewegungserkennung Kamera -> Prozentsatz für Auslösung ist gesetzt
+ my $percentage = delete $hash->{HELPER}{MOTDETSC_PROP3};
+ $hash->{HELPER}{CALL}{PART} .= qq{&percentage="$percentage"};
+ }
+
+ } elsif ($hash->{HELPER}{MOTDETSC} eq "SVS") {
+ $motdetsc = "1";
+ $motdetoptions{SENSITIVITY} = $hash->{HELPER}{MOTDETSC_PROP1} if ($hash->{HELPER}{MOTDETSC_PROP1});
+ $motdetoptions{THRESHOLD} = $hash->{HELPER}{MOTDETSC_PROP2} if ($hash->{HELPER}{MOTDETSC_PROP2});
+
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="MDParamSave"&camId="_CID_"&source=$motdetsc};
+
+ if ($hash->{HELPER}{MOTDETSC_PROP1} || $hash->{HELPER}{MOTDETSC_PROP2}) {
+ $hash->{HELPER}{CALL}{PART} .= qq{&mode=1}; # umschalten und neue Werte setzen
+ }
+ else { # nur Umschaltung, alte Werte beibehalten
+ $hash->{HELPER}{CALL}{PART} .= qq{&mode=0};
+ }
+
+ if ($hash->{HELPER}{MOTDETSC_PROP1}) { # der Wert für Bewegungserkennung SVS -> Empfindlichkeit ist gesetzt
+ my $sensitivity = delete $hash->{HELPER}{MOTDETSC_PROP1};
+ $hash->{HELPER}{CALL}{PART} .= qq{&sensitivity="$sensitivity"};
+ }
+
+ if ($hash->{HELPER}{MOTDETSC_PROP2}) { # der Wert für Bewegungserkennung SVS -> Schwellwert ist gesetzt
+ my $threshold = delete $hash->{HELPER}{MOTDETSC_PROP2};
+ $hash->{HELPER}{CALL}{PART} .= qq{&threshold="$threshold"};
+ }
+ }
+
+ $hash->{HELPER}{CALL}{PART} .= qq{&_sid="_SID_"};
+
+ $hash->{HELPER}{MOTDETOPTIONS} = \%motdetoptions; # Optionswerte in Hash sichern für Logausgabe in Befehlsauswertung
+
setActiveToken($hash);
- getApiSites($hash);
+ checkSid ($hash);
} else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::amMotDetSc", $hash, 0);
+ schedule ($name, $hash);
}
return;
@@ -2852,45 +3034,31 @@ return;
# $lag = Zeit zwischen zwei Schnappschüssen
# $ncount = Anzahl der Schnappschüsse zum rnterzählen
###############################################################################
-sub camSnap {
+sub __camSnap {
my $str = shift;
my ($name,$num,$lag,$ncount,$emtxt,$teletxt,$chattxt,$tac) = split("!_!",$str);
my $hash = $defs{$name};
my $camname = $hash->{CAMNAME};
- my $errorcode;
- my $error;
- $tac = (defined $tac)?$tac:5000;
- my $ta = $hash->{HELPER}{TRANSACTION};
+ $tac = $tac // 5000;
+ my $ta = $hash->{HELPER}{TRANSACTION};
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::camSnap");
return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Snapshot of Camera $camname can't be executed"));
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
+ if ($hash->{HELPER}{ACTIVE} eq "off" || (defined $ta && $ta == $tac)) {
+ $hash->{OPMODE} = "Snap";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $str);
+ return;
}
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate ($hash);
- readingsBulkUpdate ($hash,"Errorcode",$errorcode);
- readingsBulkUpdate ($hash,"Error",$error);
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Snapshot of Camera $camname can't be executed - $error");
-
- return;
- }
-
- if ($hash->{HELPER}{ACTIVE} eq "off" || ((defined $ta) && $ta == $tac)) {
- # einen Schnappschuß aufnehmen
- $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}{CANCHATSNAP} = 1 if($chattxt); # Versand Schnappschüsse soll per SSChatBot erfolgen
@@ -2898,13 +3066,18 @@ sub camSnap {
$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
+
+ $hash->{HELPER}{CALL}{VKEY} = "SNAPSHOT";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&dsId="0"&method="TakeSnapshot"&blSave="true"&camId="_CID_"&_sid="_SID_"};
+ readingsSingleUpdate($hash,"state", "snap", 1);
+
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- $tac = (defined $tac)?$tac:"";
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::camSnap", "$name!_!$num!_!$lag!_!$ncount!_!$emtxt!_!$teletxt!_!$chattxt!_!$tac", 0);
+ checkSid ($hash);
+ }
+ else {
+ $tac = $tac // "";
+ schedule ($name, $str);
}
return;
@@ -2913,46 +3086,44 @@ return;
###############################################################################
# Kamera gemachte Aufnahme abrufen
###############################################################################
-sub getRec {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __getRec {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getRec");
- return if(IsDisabled($name));
+ my $caller = (caller(0))[3];
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
+ RemoveInternalTimer($hash, $caller);
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Save Recording of Camera $camname in local file can't be executed - $error");
-
- return;
- }
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Save Recording of Camera $camname in local file can't be executed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "GetRec";
+ $hash->{OPMODE} = "GetRec";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "REC";
+ my $recid = ReadingsVal("$name", "CamLastRecId", 0);
+
+ if($recid) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&id=$recid&mountId=0&method="Download"&_sid="_SID_"};
+ }
+ else {
+ Log3($name, 2, "$name - WARNING - Can't fetch recording due to no recording available.");
+ return;
+ }
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::getRec", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -2961,46 +3132,44 @@ return;
###############################################################################
# Kamera gemachte Aufnahme lokal speichern
###############################################################################
-sub getRecAndSave {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __getRecAndSave {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::getRecAndSave");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Save Recording of Camera $camname in local file can't be executed - $error");
-
- return;
- }
+ return if(exitOnDis ($name, "Save Recording of Camera $camname in local file can't be executed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "SaveRec";
+ $hash->{OPMODE} = "SaveRec";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "REC";
+ my $recid = ReadingsVal("$name", "CamLastRecId", 0);
+
+ if($recid) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&id=$recid&mountId=0&method="Download"&_sid="_SID_"};
+ }
+ else {
+ Log3($name, 2, "$name - WARNING - Can't fetch recording due to no recording available.");
+ return;
+ }
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::getRecAndSave", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3009,45 +3178,36 @@ return;
###############################################################################
# Start Object Tracking
###############################################################################
-sub startTrack {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __startTrack {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::startTrack");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Object Tracking of Camera $camname can't switched on - $error");
-
- return;
- }
+ return if(exitOnDis ($name, "Object Tracking of Camera $camname can't switched on"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "startTrack";
+ $hash->{OPMODE} = "startTrack";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::startTrack", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="ObjTracking"&cameraId="_CID_"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3056,150 +3216,89 @@ return;
###############################################################################
# Stopp Object Tracking
###############################################################################
-sub stopTrack {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __stopTrack {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::stopTrack");
- return if(IsDisabled($name));
+ my $caller = (caller(0))[3];
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
+ RemoveInternalTimer($hash, $caller);
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash,"Errorcode",$errorcode);
- readingsBulkUpdate ($hash,"Error",$error);
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Object Tracking of Camera $camname can't switched off - $error");
-
- return;
- }
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Object Tracking of Camera $camname can't switched off"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "stopTrack";
+ $hash->{OPMODE} = "stopTrack";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::stopTrack", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="ObjTracking"&moveType="Stop"&cameraId="_CID_"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
###############################################################################
-# Zoom starten / stoppen
-# $op = + / stop / -
+# Zoom in / stop / out starten bzw. stoppen
+# $op = + / stop / -
###############################################################################
-sub setZoom {
+sub __setZoom {
my $str = shift;
my ($name,$op) = split("!_!",$str);
my $hash = $defs{$name};
my $camname = $hash->{CAMNAME};
- my $errorcode;
- my $error;
- RemoveInternalTimer($hash, "FHEM::SSCam::setZoom");
- return if(IsDisabled($name));
+ my $caller = (caller(0))[3];
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
+ RemoveInternalTimer($hash, $caller);
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash,"Errorcode",$errorcode);
- readingsBulkUpdate ($hash,"Error",$error);
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Zoom $op of Camera $camname can't be started - $error");
-
- return;
- }
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Zoom $op of Camera $camname can't be started"));
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->{OPMODE} = "setZoom";
+ $hash->{OPMODE} = "setZoom";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- 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);
-
- } else {
- InternalTimer(gettimeofday()+0.8, "FHEM::SSCam::setZoom", $str, 0);
- }
-
-return;
-}
-
-###############################################################################
-# Preset-Array abrufen
-###############################################################################
-sub getPresets {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getPresets");
- return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $str);
+ return;
}
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash, "Errorcode", $errorcode);
- readingsBulkUpdate ($hash, "Error", $error);
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Preset list of Camera $camname can't be get - $error");
+ $hash->{HELPER}{ZOOM}{DIR} = $zd{$op}{dir} // $hash->{HELPER}{ZOOM}{DIR}; # Richtung (in / out)
+ $hash->{HELPER}{ZOOM}{MOVETYPE} = $zd{$op}{moveType}; # Start / Stop
- return;
- }
+ return if(!$hash->{HELPER}{ZOOM}{DIR}); # es muss ! eine Richtung gesetzt sein
+
+ my $dir = $hash->{HELPER}{ZOOM}{DIR};
+ my $moveType = $hash->{HELPER}{ZOOM}{MOVETYPE};
+
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="Zoom"&cameraId="_CID_"&control="$dir"&moveType="$moveType"&_sid="_SID_"};
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getPresets";
- $hash->{HELPER}{LOGINRETRIES} = 0;
+ if($hash->{HELPER}{ZOOM}{MOVETYPE} ne "Stop") {
+ InternalTimer(gettimeofday()+$zd{$op}{sttime}, "FHEM::SSCam::__setZoom", "$name!_!stop", 0);
+ }
setActiveToken($hash);
-
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::getPresets", $hash, 0);
- }
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $str);
+ }
return;
}
@@ -3207,45 +3306,46 @@ return;
###############################################################################
# einen Preset setzen
###############################################################################
-sub setPreset {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __setPreset {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::setPreset");
- return if(IsDisabled($name));
+ my $caller = (caller(0))[3];
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
+ RemoveInternalTimer($hash, $caller);
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash,"Errorcode",$errorcode);
- readingsBulkUpdate ($hash,"Error",$error);
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Preset of Camera $camname can't be set - $error");
-
- return;
- }
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Preset of Camera $camname can't be set"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "setPreset";
+ $hash->{OPMODE} = "setPreset";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites ($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::setPreset", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "PRESET";
+
+ my $pnumber = $hash->{HELPER}{PNUMBER};
+ my $pname = $hash->{HELPER}{PNAME};
+ my $pspeed = $hash->{HELPER}{PSPEED};
+
+ if ($pspeed) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="SetPreset"&position=$pnumber&name="$pname"&speed="$pspeed"&cameraId="_CID_"&_sid="_SID_"};
+ }
+ else {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="SetPreset"&position=$pnumber&name="$pname"&cameraId="_CID_"&_sid="_SID_"};
+ }
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3254,46 +3354,37 @@ return;
###############################################################################
# einen Preset löschen
###############################################################################
-sub delPreset {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __delPreset {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::delPreset");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Preset of Camera $camname can't be deleted - $error");
-
- return;
- }
+ return if(exitOnDis ($name, "Preset of Camera $camname can't be deleted"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "delPreset";
+ $hash->{OPMODE} = "delPreset";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $delp = $hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{DELPRESETNAME}};
+ $hash->{HELPER}{CALL}{VKEY} = "PRESET";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="DelPreset"&position="$delp"&cameraId="_CID_"&_sid="_SID_"};
+
setActiveToken($hash);
-
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+1.4, "FHEM::SSCam::delPreset", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3302,94 +3393,167 @@ return;
###############################################################################
# Preset Home setzen
###############################################################################
-sub setHome {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __setHome {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::setHome");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Home preset of Camera $camname can't be set - $error");
-
- return;
- }
+ return if(exitOnDis ($name, "Home preset of Camera $camname can't be set"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "setHome";
+ $hash->{OPMODE} = "setHome";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "PRESET";
+
+ if($hash->{HELPER}{SETHOME} eq "---currentPosition---") {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="SetHome"&cameraId="_CID_"&_sid="_SID_"};
+ }
+ else {
+ my $bindpos = $hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{SETHOME}};
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="SetHome"&bindPosition="$bindpos"&cameraId="_CID_"&_sid="_SID_"};
+ }
+
setActiveToken($hash);
-
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::setHome", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
+###########################################################################
+# HomeMode setzen
+###########################################################################
+sub __setHomeMode {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name) || !defined($hash->{HELPER}{API}{HMODE}{VER}));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "sethomemode";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $sw = $hash->{HELPER}{HOMEMODE}; # HomeMode on,off
+ $sw = ($sw eq "on") ? "true" : "false";
+ $hash->{HELPER}{CALL}{VKEY} = "HMODE";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method=Switch&on=$sw&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###########################################################################
+# Optimierparameter setzen
+###########################################################################
+sub __setOptParams {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "setoptpar";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $mirr = $hash->{HELPER}{MIRROR} // ReadingsVal($name, "CamVideoMirror", "");
+ my $flip = $hash->{HELPER}{FLIP} // ReadingsVal($name, "CamVideoFlip", "");
+ my $rot = $hash->{HELPER}{ROTATE} // ReadingsVal($name, "CamVideoRotate", "");
+ my $ntp = $hash->{HELPER}{NTPSERV} // ReadingsVal($name, "CamNTPServer", "");
+
+ $ntp = q{} if($ntp eq "none");
+ my $clst = $hash->{HELPER}{CHKLIST} // "";
+
+ my $ver = $hash->{HELPER}{API}{CAM}{VER} >= 9 ? 8 : $hash->{HELPER}{API}{CAM}{VER};
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="$ver"&method="SaveOptimizeParam"&vdoMirror=$mirr&vdoRotation=$rot&vdoFlip=$flip&timeServer="$ntp"&camParamChkList=$clst&cameraIds="_CID_"&_sid="_SID_"};
+ $hash->{HELPER}{CALL}{TO} = 90; # setzen Optimierungsparameter dauert lange !
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
###############################################################################
# PIR Sensor aktivieren/deaktivieren
###############################################################################
-sub managePir {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __managePir {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::managePir");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Home preset of Camera $camname can't be set - $error");
-
- return;
- }
+ return if(exitOnDis ($name, "PIR of camera $camname cannot be managed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "piract";
+ $hash->{OPMODE} = "piract";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAMEVENT";
+ my $piract = $hash->{HELPER}{PIRACT};
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="PDParamSave"&keep=true&source=$piract&camId="_CID_"&_sid="_SID_"};
+
setActiveToken($hash);
-
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+1.2, "FHEM::SSCam::managePir", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3398,48 +3562,73 @@ return;
###############################################################################
# Kamera Liveview starten
###############################################################################
-sub runLiveview {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __runLiveview {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::runLiveview");
return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Liveview of Camera $camname can't be started"));
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "runliveview";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
}
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - Liveview of Camera $camname can't be started - $error");
- return;
- }
-
- 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};
+ delete $hash->{CAMID}; # erzwingen die Camid zu ermitteln und bei login-Fehler neue SID zu holen
+
+ readingsSingleUpdate($hash,"state","runView ".$hash->{HELPER}{RUNVIEW},1);
+
+ if ($hash->{HELPER}{RUNVIEW} =~ /snap/x) { # 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
+ $hash->{HELPER}{CALL}{VKEY} = "SNAPSHOT";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="List"&keyword="$keyword"&imgSize="$imgsize"&limit="$limit"&_sid="_SID_"};
+ }
+
+ if ($hash->{HELPER}{RUNVIEW} =~ m/^live_.*?hls$/x) { # HLS Livestreaming aktivieren
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{TO} = 90; # aktivieren HLS dauert lange !
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Open&cameraId=_CID_&format=hls&_sid=_SID_};
+ }
+
+ if ($hash->{HELPER}{RUNVIEW} !~ m/snap|^live_.*hls$/x) {
+ if ($hash->{HELPER}{RUNVIEW} =~ m/live/x) {
+ if($hash->{HELPER}{API}{AUDIOSTM}{VER}) { # Audio aktivieren
+ $hash->{HELPER}{ACALL}{AKEY} = "AUDIOSTM";
+ $hash->{HELPER}{ACALL}{APART} = qq{api=_ANAME_&version=_AVER_&method=Stream&cameraId=_CID_&_sid=_SID_};
+ }
+ else {
+ delete $hash->{HELPER}{AUDIOLINK};
+ }
+
+ if($hash->{HELPER}{API}{VIDEOSTMS}{VER}) { # API "SYNO.SurveillanceStation.VideoStream" vorhanden ? (removed ab API v2.8)
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Stream&cameraId=_CID_&format=mjpeg&_sid=_SID_};
+ }
+ }
+ else {
+ my $lrecid = ReadingsVal("$name", "CamLastRecId", 0);
+ $hash->{HELPER}{CALL}{VKEY} = "STM";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=EventStream&eventId=$lrecid×tamp=1&_sid=_SID_};
+ }
+ }
setActiveToken($hash);
- readingsSingleUpdate($hash,"state","runView ".$hash->{HELPER}{RUNVIEW},1);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::runLiveview", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3448,91 +3637,37 @@ return;
###############################################################################
# Kamera HLS-Stream aktivieren
###############################################################################
-sub activateHls {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __activateHls {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::activateHls");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - HLS-Stream of Camera $camname can't be activated - $error");
- return;
- }
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- # Aktivierung starten
- $hash->{OPMODE} = "activate_hls";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::activateHls", $hash, 0);
- }
-
-return;
-}
-
-###############################################################################
-# Kameras mit Autocreate erstellen
-###############################################################################
-sub camAutocreate {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
-
- RemoveInternalTimer($hash, "FHEM::SSCam::camAutocreate");
- return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - autocreate cameras - $error");
- return;
- }
+ return if(exitOnDis ($name, "HLS-Stream of Camera $camname can't be activated"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "Autocreate";
- $hash->{HELPER}{LOGINRETRIES} = 0;
+ $hash->{OPMODE} = "activate_hls";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{TO} = 90; # aktivieren HLS dauert lange !
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Open&cameraId=_CID_&format=hls&_sid=_SID_};
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+2.1, "FHEM::SSCam::camAutocreate", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3541,92 +3676,122 @@ return;
###############################################################################
# HLS-Stream reaktivieren (stoppen & starten)
###############################################################################
-sub reactivateHls {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __reactivateHls {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
- RemoveInternalTimer($hash, "FHEM::SSCam::reactivateHls");
return if(IsDisabled($name));
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - HLS-Stream of Camera $camname can't be activated - $error");
- return;
- }
+ return if(exitOnDis ($name, "HLS-Stream of Camera $camname can't be reactivated"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "reactivate_hls";
- $hash->{HELPER}{LOGINRETRIES} = 0;
+ $hash->{OPMODE} = "reactivate_hls";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Close&cameraId=_CID_&format=hls&_sid=_SID_};
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.4, "FHEM::SSCam::reactivateHls", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
+###############################################################################
+# Kameras mit Autocreate erstellen
+###############################################################################
+sub __camAutocreate {
+ my $hash = shift;
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "autocreate cameras not possible"));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "Autocreate";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
###############################################################################
# Kamera Liveview stoppen
###############################################################################
-sub stopLiveview {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my $errorcode;
- my $error;
+sub __stopLiveview {
+ my $hash = shift;
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::stopLiveview");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if ($hash->{HELPER}{ACTIVE} eq "off") {
-
- # Liveview stoppen
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
$hash->{OPMODE} = "stopliveview";
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
setActiveToken($hash);
- # Link aus Helper-hash löschen
- delete $hash->{HELPER}{LINK};
+ delete $hash->{HELPER}{LINK}; # Link aus Helper-hash löschen
delete $hash->{HELPER}{AUDIOLINK};
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});
+ delete($defs{$name}{READINGS}{LiveStreamUrl}) if ($defs{$name}{READINGS}{LiveStreamUrl}); # Reading LiveStreamUrl löschen
readingsSingleUpdate($hash,"state","stopview",1);
- if($hash->{HELPER}{WLTYPE} eq "hls") {
- # HLS Stream war aktiv, Streaming beenden
- $hash->{OPMODE} = "stopliveview_hls";
- getApiSites($hash);
- } else {
- # kein HLS Stream
+ if($hash->{HELPER}{WLTYPE} eq "hls") { # HLS Stream war aktiv, Streaming beenden
+ $hash->{OPMODE} = "stopliveview_hls";
+
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Close&cameraId=_CID_&format=hls&_sid=_SID_};
+
+ return if(startOrShut($name));
+ checkSid ($hash);
+ }
+ else { # kein HLS Stream
roomRefresh ($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
delActiveToken($hash);
}
-
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::stopLiveview", $hash, 0);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3635,127 +3800,148 @@ return;
###############################################################################
# external Event 1-10 auslösen
###############################################################################
-sub extEvent {
- my ($hash) = @_;
- my $name = $hash->{NAME};
+sub __extEvent {
+ my $hash = shift;
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::extEvent");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "extevent";
+ $hash->{OPMODE} = "extevent";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::extEvent", $hash, 0);
+ my $evtid = $hash->{HELPER}{EVENTID};
+ $hash->{HELPER}{CALL}{VKEY} = "EXTEVT";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Trigger&eventId=$evtid&eventName=$evtid&_sid="_SID_"};
+
+ Log3($name, 4, "$name - trigger external event \"$evtid\"");
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
###############################################################################
-# PTZ-Kamera auf Position fahren
+# PTZ-Kamera Aktion ausführen
###############################################################################
-sub doPtzAaction {
+sub __doPtzAaction {
my $hash = shift;
my $camname = $hash->{CAMNAME};
my $name = $hash->{NAME};
+
my ($errorcode,$error);
- RemoveInternalTimer($hash, "FHEM::SSCam::doPtzAaction");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if (ReadingsVal("$name", "DeviceType", "Camera") ne "PTZ") {
+ if (!IsCapPTZ($hash)) {
Log3($name, 2, "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible for cameras of DeviceType \"PTZ\" - please compare with device Readings");
return;
}
- if ($hash->{HELPER}{PTZACTION} eq "goabsptz" && !ReadingsVal("$name", "CapPTZAbs", "false")) {
+ if ($hash->{HELPER}{PTZACTION} eq "goabsptz" && !IsCapPTZAbs($hash)) {
Log3($name, 2, "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible if camera supports absolute PTZ action - please compare with Reading \"CapPTZAbs\"");
return;
}
- if ( $hash->{HELPER}{PTZACTION} eq "movestart" && ReadingsVal("$name", "CapPTZDirections", "0") < 1) {
+ if ($hash->{HELPER}{PTZACTION} eq "movestart" && !IsCapPTZDir($hash)) {
Log3($name, 2, "$name - ERROR - Operation \"$hash->{HELPER}{PTZACTION}\" is only possible if camera supports \"Tilt\" and \"Pan\" operations - please compare with device Reading \"CapPTZDirections\"");
return;
}
- if ($hash->{HELPER}{PTZACTION} eq "gopreset") {
- if (!defined($hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}})) {
- $errorcode = "600";
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - goPreset to position \"$hash->{HELPER}{GOPRESETNAME}\" of Camera $camname can't be executed - $error");
- return;
- }
- }
-
- if ($hash->{HELPER}{PTZACTION} eq "runpatrol") {
- if (!defined($hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}})) {
- $errorcode = "600";
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - runPatrol to patrol \"$hash->{HELPER}{GOPATROLNAME}\" of Camera $camname can't be executed - $error");
- return;
- }
- }
-
- if (ReadingsVal("$name", "state", "") =~ /^dis/x) {
- if (ReadingsVal("$name", "state", "") eq "disabled") {
- $errorcode = "402";
- } elsif (ReadingsVal("$name", "state", "") eq "disconnected") {
- $errorcode = "502";
- }
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
-
- # Setreading
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 2, "$name - ERROR - $hash->{HELPER}{PTZACTION} of Camera $camname can't be executed - $error");
- return;
- }
+ return if(exitOnDis ($name, "$hash->{HELPER}{PTZACTION} of Camera $camname can't be executed"));
if ($hash->{HELPER}{ACTIVE} eq "off") {
+ if ($hash->{HELPER}{PTZACTION} eq "gopreset") {
+ if (!defined($hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}})) {
+ $errorcode = "600";
+ $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
+
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
+ readingsEndUpdate ($hash, 1);
+
+ Log3($name, 2, "$name - ERROR - goPreset to position \"$hash->{HELPER}{GOPRESETNAME}\" of Camera $camname can't be executed - $error");
+ return;
+ }
+ }
+
+ if ($hash->{HELPER}{PTZACTION} eq "runpatrol") {
+ my $patid = $hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}};
+ if (!defined $patid) {
+ $errorcode = "600";
+ $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
+
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
+ readingsEndUpdate ($hash, 1);
+
+ Log3($name, 2, "$name - ERROR - runPatrol to patrol \"$hash->{HELPER}{GOPATROLNAME}\" of Camera $camname can't be executed - $error");
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="RunPatrol"&patrolId="$patid"&cameraId="_CID_"&_sid="_SID_"};
+
+ Log3($name, 4, "$name - Start patrol \"$hash->{HELPER}{GOPATROLNAME}\" with ID \"$hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}}\" of Camera $camname now");
+ }
if ($hash->{HELPER}{PTZACTION} eq "gopreset") {
- Log3($name, 4, "$name - Move Camera $camname to position \"$hash->{HELPER}{GOPRESETNAME}\" with ID \"$hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}}\" now");
- } elsif ($hash->{HELPER}{PTZACTION} eq "runpatrol") {
- Log3($name, 4, "$name - Start patrol \"$hash->{HELPER}{GOPATROLNAME}\" with ID \"$hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}}\" of Camera $camname now");
- } elsif ($hash->{HELPER}{PTZACTION} eq "goabsptz") {
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ my $ver = ($hash->{HELPER}{API}{PTZ}{VER} >= 5) ? 4 : $hash->{HELPER}{API}{PTZ}{VER};
+ my $posid = $hash->{HELPER}{ALLPRESETS}{$hash->{HELPER}{GOPRESETNAME}};
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="$ver"&method="GoPreset"&position="$posid"&cameraId="_CID_"&_sid="_SID_"};
+
+ Log3($name, 4, "$name - Move Camera $camname to position \"$hash->{HELPER}{GOPRESETNAME}\" with ID \"$posid\" now");
+ }
+
+ if ($hash->{HELPER}{PTZACTION} eq "goabsptz") {
+ my $posx = $hash->{HELPER}{GOPTZPOSX};
+ my $posy = $hash->{HELPER}{GOPTZPOSY};
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="AbsPtz"&cameraId="_CID_"&posX="$posx"&posY="$posy"&_sid="_SID_"};
+
Log3($name, 4, "$name - Start move Camera $camname to position posX=\"$hash->{HELPER}{GOPTZPOSX}\" and posY=\"$hash->{HELPER}{GOPTZPOSY}\" now");
- } elsif ($hash->{HELPER}{PTZACTION} eq "movestart") {
+ }
+
+ if ($hash->{HELPER}{PTZACTION} eq "movestart") {
+ my $mdir = $hash->{HELPER}{GOMOVEDIR};
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="Move"&cameraId="_CID_"&direction="$mdir"&speed="3"&moveType="Start"&_sid="_SID_"};
+
Log3($name, 4, "$name - Start move Camera $camname to direction \"$hash->{HELPER}{GOMOVEDIR}\" with duration of $hash->{HELPER}{GOMOVETIME} s");
}
- $hash->{OPMODE} = $hash->{HELPER}{PTZACTION};
+ $hash->{OPMODE} = $hash->{HELPER}{PTZACTION};
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
setActiveToken($hash);
-
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::doPtzAaction", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3764,23 +3950,36 @@ return;
###############################################################################
# stoppen continued move
###############################################################################
-sub moveStop {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __moveStop { ## no critic "not used"
+ my $hash = shift;
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::moveStop");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "movestop";
+ $hash->{OPMODE} = "movestop";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $mdir = $hash->{HELPER}{GOMOVEDIR};
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="Move"&cameraId="_CID_"&direction="$mdir"&moveType="Stop"&_sid="_SID_"};
+
+ Log3($name, 4, "$name - Stop Camera $hash->{CAMNAME} moving to direction \"$hash->{HELPER}{GOMOVEDIR}\" now");
+
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.3, "FHEM::SSCam::moveStop", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3789,26 +3988,40 @@ return;
###############################################################################
# Kamera aktivieren
###############################################################################
-sub camEnable {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __camEnable {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::camEnable");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- # eine Kamera aktivieren
- Log3($name, 4, "$name - Enable Camera $camname");
-
- $hash->{OPMODE} = "Enable";
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "Enable";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Enable&cameraIds=_CID_&_sid="_SID_"};
+
+ if($hash->{HELPER}{API}{CAM}{VER} >= 9) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version=_VER_&method="Enable"&idList="_CID_"&_sid="_SID_"};
+ }
+
+ Log3($name, 4, "$name - Enable Camera $camname");
+
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camEnable", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -3817,107 +4030,638 @@ return;
###############################################################################
# Kamera deaktivieren
###############################################################################
-sub camDisable {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __camDisable {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::camDisable");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if ($hash->{HELPER}{ACTIVE} eq "off" and ReadingsVal("$name", "Record", "Start") ne "Start") {
- # eine Kamera deaktivieren
- Log3($name, 4, "$name - Disable Camera $camname");
-
- $hash->{OPMODE} = "Disable";
+ if ($hash->{HELPER}{ACTIVE} eq "off" and ReadingsVal("$name", "Record", "Start") ne "Start") {
+ $hash->{OPMODE} = "Disable";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::camDisable", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ $hash->{HELPER}{CALL}{TO} = 90; # Disable dauert lange !
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Disable&cameraIds=_CID_&_sid="_SID_"};
+
+ if($hash->{HELPER}{API}{CAM}{VER} >= 9) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version=_VER_&method="Disable"&idList="_CID_"&_sid="_SID_"};
+ }
+
+ Log3($name, 4, "$name - Disable Camera $camname");
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
+################################################################
+# Get
+################################################################
+sub Get {
+ my ($hash, @a) = @_;
+ return "\"get X\" needs at least an argument" if ( @a < 2 );
+ my $name = shift @a;
+ my $opt = shift @a;
+ my $arg = shift @a;
+ my $arg1 = shift @a;
+ my $arg2 = shift @a;
+
+ my $getlist = "Unknown argument $opt, choose one of ";
+
+ if(!$hash->{CREDENTIALS}) {
+ return;
+ }
+ elsif(IsModelCam($hash)) { # getlist für Cams
+ $getlist .= "caminfo:noArg ".
+ ((AttrVal($name,"snapGalleryNumber",undef) || AttrVal($name,"snapGalleryBoost",0))
+ ? "snapGallery:noArg " : "snapGallery:$defSnum ").
+ (IsCapPTZPan($hash) ? "listPresets:noArg " : "").
+ "snapinfo:noArg ".
+ "saveRecording ".
+ "snapfileinfo:noArg ".
+ "eventlist:noArg ".
+ "stmUrlPath:noArg "
+ ;
+ }
+ else { # getlist für SVS Devices
+ $getlist .= ($hash->{HELPER}{API}{HMODE}{VER}?"homeModeState:noArg ": "").
+ "listLog "
+ ;
+ }
+
+ $getlist .= "caminfoall:noArg ". # Ergänzend für beiden Device Typen
+ "svsinfo:noArg ".
+ "scanVirgin:noArg ".
+ "storedCredentials:noArg ".
+ "versionNotes ".
+ "apiInfo:noArg "
+ ;
+
+ return if(IsDisabled($name));
+
+ my $params = {
+ hash => $hash,
+ name => $name,
+ opt => $opt,
+ arg => $arg,
+ arg1 => $arg1,
+ arg2 => $arg2,
+ };
+
+ no strict "refs"; ## no critic 'NoStrict'
+ if($hget{$opt} && defined &{$hget{$opt}{fn}}) {
+ my $ret = q{};
+
+ if (!$hash->{CREDENTIALS} && $hget{$opt}{needcred}) {
+ return qq{Credentials of $name are not set. Make sure they are set with "set $name credentials "};
+ }
+
+ $ret = &{$hget{$opt}{fn}} ($params);
+
+ return $ret;
+ }
+ use strict "refs";
+
+return $getlist;
+}
+
+################################################################
+# Getter apiInfo - Anzeige die API Infos in Popup
+################################################################
+sub _getapiInfo { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ getClHash ($hash,1);
+ __getApiInfo($hash);
+
+return;
+}
+
+################################################################
+# Getter caminfo
+################################################################
+sub _getcaminfo { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ __getCamInfo($hash);
+
+return;
+}
+
+################################################################
+# Getter caminfoall
+################################################################
+sub _getcaminfoall { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ __getCaminfoAll($hash,1); # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
+
+return;
+}
+
+################################################################
+# Getter homeModeState
+################################################################
+sub _gethomeModeState { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(IsModelCam($hash));
+
+ __getHomeModeState($hash);
+
+return;
+}
+
+################################################################
+# Getter listLog
+################################################################
+sub _getlistLog { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $arg = $paref->{arg};
+ my $arg1 = $paref->{arg1};
+ my $arg2 = $paref->{arg2};
+
+ return if(IsModelCam($hash));
+
+ getClHash($hash,1); # übergebenen CL-Hash (FHEMWEB) in Helper eintragen
+
+ extlogargs($hash, $arg) if($arg);
+ extlogargs($hash, $arg1) if($arg1);
+ extlogargs($hash, $arg2) if($arg2);
+
+ __getSvsLog ($hash);
+
+return;
+}
+
+################################################################
+# Getter listPresets
+################################################################
+sub _getlistPresets { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ getClHash ($hash,1); # übergebenen CL-Hash (FHEMWEB) in Helper eintragen
+ __getPresets($hash);
+
+return;
+}
+
+################################################################
+# Getter saveRecording
+################################################################
+sub _getsaveRecording { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $arg = $paref->{arg};
+
+ return if(!IsModelCam($hash));
+
+ $hash->{HELPER}{RECSAVEPATH} = $arg if($arg);
+ __getRecAndSave($hash);
+
+return;
+}
+
+################################################################
+# Getter svsinfo
+################################################################
+sub _getsvsinfo { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ __getSvsInfo($hash);
+
+return;
+}
+
+################################################################
+# Getter storedCredentials
+################################################################
+sub _getstoredCredentials { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ my $out = showStoredCredentials ($hash, 3);
+
+return $out;
+}
+
+################################################################
+# Getter snapGallery
+################################################################
+sub _getsnapGallery { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $arg = $paref->{arg};
+
+ return if(!IsModelCam($hash));
+
+ my $ret = getClHash($hash);
+ return $ret if($ret);
+
+ if(!AttrVal($name, "snapGalleryBoost",0)) { # Snaphash ist nicht vorhanden und wird abgerufen
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+
+ my $slim = $arg // AttrVal($name,"snapGalleryNumber",$defSlim); # Anzahl der abzurufenden Snapshots
+ my $ssize = (AttrVal($name,"snapGallerySize","Icon") eq "Icon") ? 1 : 2; # Image Size 1-Icon, 2-Full
+
+ __getSnapInfo("$name:$slim:$ssize");
+ }
+ else { # Snaphash ist vorhanden und wird zur Ausgabe aufbereitet
+ $hash->{HELPER}{SNAPLIMIT} = AttrVal($name,"snapGalleryNumber",$defSlim);
+
+ my %pars = ( linkparent => $name,
+ linkname => '',
+ ftui => 0
+ );
+
+ my $htmlCode = composeGallery(\%pars);
+
+ for (my $k=1; (defined($hash->{HELPER}{CL}{$k})); $k++ ) {
+ if ($hash->{HELPER}{CL}{$k}->{COMP}) { # CL zusammengestellt (Auslösung durch Notify)
+ asyncOutput($hash->{HELPER}{CL}{$k}, "$htmlCode");
+ }
+ else { # Output wurde über FHEMWEB ausgelöst
+ return $htmlCode;
+ }
+ }
+
+ delClHash ($name);
+ }
+
+return;
+}
+
+################################################################
+# Getter snapinfo
+# Schnappschußgalerie abrufen oder nur Info des letzten Snaps
+################################################################
+sub _getsnapinfo { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+
+ return if(!IsModelCam($hash));
+
+ my ($slim,$ssize) = snapLimSize($hash,1); # Force-Bit, es wird $hash->{HELPER}{GETSNAPGALLERY} gesetzt !
+ __getSnapInfo("$name:$slim:$ssize");
+
+return;
+}
+
+################################################################
+# Getter snapfileinfo
+################################################################
+sub _getsnapfileinfo { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+
+ return if(!IsModelCam($hash));
+
+ if (!ReadingsVal($name, "LastSnapId", undef)) {
+ return "Reading LastSnapId is empty - please take a snapshot before !"
+ }
+
+ __getSnapFilename($hash);
+
+return;
+}
+
+################################################################
+# Getter eventlist
+################################################################
+sub _geteventlist { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ __getEventList($hash);
+
+return;
+}
+
+################################################################
+# Getter stmUrlPath
+################################################################
+sub _getstmUrlPath { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+
+ return if(!IsModelCam($hash));
+
+ __getStmUrlPath($hash);
+
+return;
+}
+
+################################################################
+# Getter scanVirgin
+################################################################
+sub _getscanVirgin { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+
+ __sessionOff($hash);
+
+ delete $hash->{HELPER}{API}{PARSET};
+ delete $hash->{CAMID};
+
+ my @allrds = keys%{$defs{$name}{READINGS}};
+ for my $key(@allrds) { # vorhandene Readings außer "state" löschen
+ delete($defs{$name}{READINGS}{$key}) if($key ne "state");
+ }
+
+ __getCaminfoAll($hash,1); # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
+
+return;
+}
+
+################################################################
+# Getter versionNotes
+################################################################
+sub _getversionNotes { ## no critic "not used"
+ my $paref = shift;
+
+ $paref->{hintextde} = \%vHintsExt_de;
+ $paref->{hintexten} = \%vHintsExt_en;
+ $paref->{notesext} = \%vNotesExtern;
+
+ my $ret = showModuleInfo ($paref);
+
+return $ret;
+}
+
+###########################################################################
+# API Infos abfragen und in einem Popup anzeigen
+###########################################################################
+sub __getApiInfo {
+ my $hash = shift;
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "apiInfo";
+
+ return if(startOrShut($name));
+
+ $hash->{HELPER}{API}{PARSET} = 0; # Abruf API Infos erzwingen
+
+ setActiveToken ($hash);
+ getApiSites ($hash, "", $hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###########################################################################
+# Kamera allgemeine Informationen abrufen (Get)
+###########################################################################
+sub __getCamInfo {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "Getcaminfo";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ my $ver = ($hash->{HELPER}{API}{CAM}{VER} >= 9) ? 8 : $hash->{HELPER}{API}{CAM}{VER};
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="$ver"&method="GetInfo"&cameraIds="_CID_"&deviceOutCap="true"&streamInfo="true"&ptz="true"&basic="true"&camAppInfo="true"&optimize="true"&fisheye="true"&eventDetection="true"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
###############################################################################
# Kamera alle Informationen abrufen (Get) bzw. Einstieg Polling
###############################################################################
-sub getCaminfoAll {
- my ($hash,$mode) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
- my ($now,$new);
+sub __getCaminfoAll {
+ my $hash = shift;
+ my $mode = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getCaminfoAll");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
-
- 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) = 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, "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);
+ if(IsModelCam($hash)) { # Model ist CAM
+ __getCapabilities ($hash);
+ __getEventList ($hash);
+ __getMotionEnum ($hash);
+ __getCamInfo ($hash);
+ __getStreamFormat ($hash);
+ __getStmUrlPath ($hash);
+
+ my ($slim,$ssize) = snapLimSize($hash,1);
+ __getSnapInfo ("$name:$slim:$ssize"); # Schnappschußgalerie abrufen (snapGalleryBoost) oder nur Info des letzten Snaps, Force-Bit -> es wird $hash->{HELPER}{GETSNAPGALLERY} erzwungen !
+ }
+ else { # Model ist SVS
+ __getHomeModeState ($hash);
+ __getSvsLog ($hash);
}
+ __getSvsInfo ($hash);
+
# 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, "FHEM::SSCam::getCaminfoAll", $hash, 0);
+ my $new = gettimeofday()+$pcia;
+ InternalTimer($new, $caller, $hash, 0);
- $now = FmtTime(gettimeofday());
- $new = FmtTime(gettimeofday()+$pcia);
+ my $now = FmtTime(gettimeofday());
+ $new = FmtTime(gettimeofday()+$pcia);
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 {
- # Beenden Polling aller Caminfos
+ }
+ else { # Beenden Polling aller Caminfos
readingsSingleUpdate($hash, "PollState", "Inactive", 1);
- readingsSingleUpdate($hash, "state", "initialized",1) if(!IsModelCam($hash)); # state für SVS-Device setzen
+ readingsSingleUpdate($hash, "state", "initialized",1) if(!IsModelCam($hash)); # state für SVS-Device setzen
+
Log3($name, 3, "$name - Polling of $camname is deactivated");
}
return;
}
+###########################################################################
+# HomeMode Status abfragen
+###########################################################################
+sub __getHomeModeState {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name) || !defined($hash->{HELPER}{API}{HMODE}{VER}));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "gethomemodestate";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "HMODE";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method=GetInfo&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###########################################################################
+# SVS Log abrufen
+###########################################################################
+sub __getSvsLog {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "getsvslog";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $sev = delete $hash->{HELPER}{LISTLOGSEVERITY} // "";
+ my $lim = delete $hash->{HELPER}{LISTLOGLIMIT} // 0;
+ my $mco = delete $hash->{HELPER}{LISTLOGMATCH} // "";
+ $lim = 1 if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund
+ $mco = IsModelCam($hash) ? $hash->{CAMNAME} : $mco;
+ $sev = (lc($sev) =~ /error/x) ? 3 :(lc($sev) =~ /warning/x) ? 2 :(lc($sev) =~ /info/x) ? 1 : "";
+
+ $hash->{HELPER}{CALL}{VKEY} = "LOG";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version="2"&method="List"&time2String="no"&level="$sev"&limit="$lim"&keyword="$mco"&_sid="_SID_"};
+
+ Log3($name,4, "$name - get logList with params: severity => $sev, limit => $lim, matchcode => $mco");
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###########################################################################
+# allgemeine Infos über Synology Surveillance Station
+###########################################################################
+sub __getSvsInfo {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "getsvsinfo";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "SVSINFO";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="GetInfo"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
###########################################################################
# Infos zu Snaps abfragen (z.B. weil nicht über SSCam ausgelöst)
#
@@ -3925,288 +4669,169 @@ return;
# $ssize = Snapgröße
# $tac = Transaktionscode (für gemeinsamen Versand)
###########################################################################
-sub getSnapInfo {
- my ($str) = @_;
+sub __getSnapInfo {
+ my $str = shift;
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};
+ $tac = $tac // 5000;
+ my $ta = $hash->{HELPER}{TRANSACTION};
+ my $caller = (caller(0))[3];
- RemoveInternalTimer($hash, "FHEM::SSCam::getSnapInfo");
+ RemoveInternalTimer($hash, $caller);
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}));
+ return if(startOrShut($name));
$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;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $str);
+ return;
+ }
+
+ my $limit = $slim; # 0-alle Snapshots werden abgerufen und ausgewertet, sonst $slim
+ $hash->{HELPER}{SNAPLIMIT} = $slim;
+
+ my $imgsize = $ssize; # 0-Do not append image, 1-Icon size, 2-Full size
+ my $keyword = $camname;
+ my $snapid = ReadingsVal("$name", "LastSnapId", " ");
+
+ $hash->{HELPER}{CALL}{VKEY} = "SNAPSHOT";
+
+ if($hash->{OPMODE} eq "getsnapinfo" && $snapid =~/\d+/x) { # getsnapinfo UND Reading LastSnapId gesetzt
+ Log3($name,4, "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Id => $snapid");
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="List"&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");
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="List"&keyword="$keyword"&imgSize="$imgsize"&limit="$limit"&_sid="_SID_"};
+ }
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- $tac = (defined $tac)?$tac:"";
- InternalTimer(gettimeofday()+1.7, "FHEM::SSCam::getSnapInfo", "$name:$slim:$ssize", 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $str);
}
return;
}
###############################################################################
-# Filename zu Schappschuß ermitteln
+# Liste der Presets abrufen
###############################################################################
-sub getSnapFilename {
- my ($hash) = @_;
- my $name = $hash->{NAME};
+sub __getPresets {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getSnapFilename");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+
+ return if(IsDisabled($name));
+ return if(exitOnDis ($name, "Preset list of Camera $camname can't be get"));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "getPresets";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "PRESET";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="Enum"&cameraId="_CID_"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###############################################################################
+# der Filename der aktuellen Schnappschuß-ID wird ermittelt
+###############################################################################
+sub __getSnapFilename {
+ my $hash = shift;
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getsnapfilename";
+ $hash->{OPMODE} = "getsnapfilename";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ my $snapid = ReadingsVal("$name", "LastSnapId", "");
+ Log3($name, 4, "$name - Get filename of present Snap-ID $snapid");
+
+ $hash->{HELPER}{CALL}{VKEY} = "SNAPSHOT";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="List"&imgSize="0"&idList="$snapid"&_sid="_SID_"};
+
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.5, "FHEM::SSCam::getSnapFilename", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
-###########################################################################
-# allgemeine Infos über Synology Surveillance Station
-###########################################################################
-sub getSvsInfo {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getSvsInfo");
- return if(IsDisabled($name));
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getsvsinfo";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+1, "FHEM::SSCam::getSvsInfo", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# HomeMode setzen
-###########################################################################
-sub setHomeMode {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- 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;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.6, "FHEM::SSCam::setHomeMode", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# Optimierparameter setzen
-###########################################################################
-sub setOptParams {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::setOptParams");
- return if(IsDisabled($name));
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "setoptpar";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.6, "FHEM::SSCam::setOptParams", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# HomeMode Status abfragen
-###########################################################################
-sub getHomeModeState {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- 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;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.7, "FHEM::SSCam::getHomeModeState", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# SVS Log abrufen
-###########################################################################
-sub getSvsLog {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getSvsLog");
- return if(IsDisabled($name));
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getsvslog";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+0.9, "FHEM::SSCam::getSvsLog", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# Session logout
-###########################################################################
-sub sessionOff {
+################################################################################
+# Kamera Stream Urls abrufen (Get)
+################################################################################
+sub __getStmUrlPath {
my $hash = shift;
my $camname = $hash->{CAMNAME};
my $name = $hash->{NAME};
- RemoveInternalTimer ($hash, "FHEM::SSCam::sessionOff");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "logout";
-
- setActiveToken($hash);
- logout ($hash);
-
- } else {
- InternalTimer(gettimeofday()+1.1, "FHEM::SSCam::sessionOff", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# Kamera allgemeine Informationen abrufen (Get)
-###########################################################################
-sub getCamInfo {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getCamInfo");
- return if(IsDisabled($name));
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "Getcaminfo";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getCamInfo", $hash, 0);
- }
-
-return;
-}
-
-###########################################################################
-# SYNO.SurveillanceStation.VideoStream query aktuelles Streamformat
-###########################################################################
-sub getStreamFormat {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getStreamFormat");
- my $apivideostmsmaxver = $hash->{HELPER}{APIVIDEOSTMSMAXVER};
- return if(IsDisabled($name));
-
- if(!$apivideostmsmaxver) {
- # keine API "SYNO.SurveillanceStation.VideoStream" mehr ab API v2.8
- readingsSingleUpdate($hash,"CamStreamFormat", "no API", 1);
- return;
- }
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getstreamformat";
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "getStmUrlPath";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+1.4, "FHEM::SSCam::getStreamFormat", $hash, 0);
- }
-
-return;
-}
-
-################################################################################
-# Kamera Stream Urls abrufen (Get)
-################################################################################
-sub getStmUrlPath {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- 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}{CALL}{VKEY} = "CAM";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="GetStmUrlPath"&cameraIds="_CID_"&_sid="_SID_"};
+
+ if($hash->{HELPER}{API}{CAM}{VER} >= 9) {
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version=_VER_&method="GetLiveViewPath"&idList="_CID_"&_sid="_SID_"};
+ }
setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getStmUrlPath", $hash, 0);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -4214,91 +4839,164 @@ return;
###########################################################################
# query SVS-Event information
+# Abruf der Events einer Kamera
###########################################################################
-sub getEventList {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __getEventList {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getEventList");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "geteventlist";
+ $hash->{OPMODE} = "geteventlist";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getEventList", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "EVENT";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="List"&cameraIds="_CID_"&locked="0"&blIncludeSnapshot="false"&reason=""&limit="2"&includeAllCam="false"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
+##########################################################################
+# Capabilities von Kamera abrufen (Get)
+##########################################################################
+sub __getCapabilities {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "Getcapabilities";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "CAM";
+ my $ver = ($hash->{HELPER}{API}{CAM}{VER} >= 9) ? 8 : $hash->{HELPER}{API}{CAM}{VER};
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=$ver&method="GetCapabilityByCamId"&cameraId=_CID_&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+###########################################################################
+# SYNO.SurveillanceStation.VideoStream query aktuelles Streamformat
+###########################################################################
+sub __getStreamFormat {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "getstreamformat";
+ return if(startOrShut($name));
+ $hash->{HELPER}{LOGINRETRIES} = 0;
+
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
+
+ $hash->{HELPER}{CALL}{VKEY} = "VIDEOSTMS";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=Query&cameraId=_CID_&_sid=_SID_};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
###########################################################################
# Enumerate motion detection parameters
###########################################################################
-sub getMotionEnum {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __getMotionEnum {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getMotionEnum");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "getmotionenum";
+ $hash->{OPMODE} = "getmotionenum";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites ($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getMotionEnum", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "CAMEVENT";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method="MotionEnum"&camId="_CID_"&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
-##########################################################################
-# Capabilities von Kamera abrufen (Get)
-##########################################################################
-sub getCapabilities {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash, "FHEM::SSCam::getCapabilities");
- return if(IsDisabled($name));
-
- if ($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "Getcapabilities";
- $hash->{HELPER}{LOGINRETRIES} = 0;
-
- setActiveToken($hash);
- getApiSites($hash);
-
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getCapabilities", $hash, 0);
- }
-
-return;
-}
-
##########################################################################
# PTZ Presets abrufen (Get)
##########################################################################
-sub getPtzPresetList {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __getPtzPresetList {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getPtzPresetList");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if(ReadingsVal("$name", "DeviceType", "") ne "PTZ") {
+ if(!IsCapPTZ($hash)) {
Log3($name, 4, "$name - Retrieval of Presets for $camname can't be executed - $camname is not a PTZ-Camera");
return;
}
@@ -4308,14 +5006,23 @@ sub getPtzPresetList {
}
if($hash->{HELPER}{ACTIVE} eq "off") {
- $hash->{OPMODE} = "Getptzlistpreset";
+ $hash->{OPMODE} = "Getptzlistpreset";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getPtzPresetList", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api="_NAME_"&version="_VER_"&method=ListPreset&cameraId=_CID_&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
@@ -4324,15 +5031,17 @@ return;
##########################################################################
# PTZ Patrols abrufen (Get)
##########################################################################
-sub getPtzPatrolList {
- my ($hash) = @_;
- my $camname = $hash->{CAMNAME};
- my $name = $hash->{NAME};
+sub __getPtzPatrolList {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
- RemoveInternalTimer($hash, "FHEM::SSCam::getPtzPatrolList");
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
return if(IsDisabled($name));
- if(ReadingsVal("$name", "DeviceType", "") ne "PTZ") {
+ if(!IsCapPTZ($hash)) {
Log3($name, 4, "$name - Retrieval of Patrols for $camname can't be executed - $camname is not a PTZ-Camera");
return;
}
@@ -4342,81 +5051,116 @@ sub getPtzPatrolList {
}
if($hash->{HELPER}{ACTIVE} ne "on") {
- $hash->{OPMODE} = "Getptzlistpatrol";
+ $hash->{OPMODE} = "Getptzlistpatrol";
+ return if(startOrShut($name));
$hash->{HELPER}{LOGINRETRIES} = 0;
- setActiveToken($hash);
- getApiSites($hash);
+ if (!$hash->{HELPER}{API}{PARSET}) {
+ getApiSites ($hash, $caller, $hash);
+ return;
+ }
- } else {
- InternalTimer(gettimeofday()+2, "FHEM::SSCam::getPtzPatrolList", $hash, 0);
+ $hash->{HELPER}{CALL}{VKEY} = "PTZ";
+ $hash->{HELPER}{CALL}{PART} = qq{api=_NAME_&version=_VER_&method=ListPatrol&cameraId=_CID_&_sid="_SID_"};
+
+ setActiveToken($hash);
+ checkSid ($hash);
+ }
+ else {
+ schedule ($name, $hash);
}
return;
}
-#############################################################################################################################
-####### Begin Kameraoperationen mit NonblockingGet (nicht blockierender HTTP-Call) #######
-#############################################################################################################################
+###########################################################################
+# Session logout
+###########################################################################
+sub __sessionOff {
+ my $hash = shift;
+ my $camname = $hash->{CAMNAME};
+ my $name = $hash->{NAME};
+
+ my $caller = (caller(0))[3];
+
+ RemoveInternalTimer($hash, $caller);
+ return if(IsDisabled($name));
+
+ if ($hash->{HELPER}{ACTIVE} eq "off") {
+ $hash->{OPMODE} = "logout";
+
+ setActiveToken($hash);
+
+ logout ($hash, $hash->{HELPER}{API});
+ }
+ else {
+ schedule ($name, $hash);
+ }
+
+return;
+}
+
+##################################################################################
+# API-Pfade und Versionen ermitteln
+##################################################################################
sub getApiSites {
- my $hash = shift;
- my $serveraddr = $hash->{SERVERADDR};
- my $serverport = $hash->{SERVERPORT};
- my $name = $hash->{NAME};
- my $apiinfo = $hash->{HELPER}{APIINFO}; # Info-Seite für alle API's, einzige statische Seite !
- my $apiauth = $hash->{HELPER}{APIAUTH};
- my $apiextrec = $hash->{HELPER}{APIEXTREC};
- my $apiextevt = $hash->{HELPER}{APIEXTEVT};
- my $apicam = $hash->{HELPER}{APICAM};
- my $apitakesnap = $hash->{HELPER}{APISNAPSHOT};
- my $apiptz = $hash->{HELPER}{APIPTZ};
- my $apipreset = $hash->{HELPER}{APIPRESET};
- my $apisvsinfo = $hash->{HELPER}{APISVSINFO};
- my $apicamevent = $hash->{HELPER}{APICAMEVENT};
- my $apievent = $hash->{HELPER}{APIEVENT};
- my $apivideostm = $hash->{HELPER}{APIVIDEOSTM};
- my $apiaudiostm = $hash->{HELPER}{APIAUDIOSTM};
- my $apivideostms = $hash->{HELPER}{APIVIDEOSTMS};
- my $apistm = $hash->{HELPER}{APISTM};
- my $apihm = $hash->{HELPER}{APIHM};
- my $apilog = $hash->{HELPER}{APILOG};
- my $apirec = $hash->{HELPER}{APIREC};
- my $proto = $hash->{PROTOCOL};
- my $url;
- my $param;
-
- # API-Pfade und MaxVersions ermitteln
- Log3($name, 4, "$name - ####################################################");
- Log3($name, 4, "$name - ### start cam operation $hash->{OPMODE} ");
- Log3($name, 4, "$name - ####################################################");
- Log3($name, 4, "$name - --- Begin Function getApiSites nonblocking ---");
+ my $hash = shift;
+ my $fret = shift // "";
+ my $arg = shift // "";
- if ($shutdownInProcess) { # shutdown in Proces -> keine weiteren Aktionen
- Log3($name, 3, "$name - Shutdown in process. No more activities allowed.");
- return;
- }
+ my $serveraddr = $hash->{SERVERADDR};
+ my $serverport = $hash->{SERVERPORT};
+ my $name = $hash->{NAME};
+ my $proto = $hash->{PROTOCOL};
- if ($hash->{HELPER}{APIPARSET}) { # API-Hashwerte sind bereits gesetzt -> Abruf überspringen
- Log3($name, 4, "$name - API hashvalues already set - ignore get apisites");
- return checkSid($hash);
+ my ($url,$param);
+
+ if($fret) { # Activetoken setzen wenn Caller angegeben
+ setActiveToken($hash);
}
- my $httptimeout = AttrVal($name,"httptimeout",4);
+ Log3($name, 4, "$name - --- Start getApiSites ---");
+
+ if ($hash->{HELPER}{API}{PARSET}) { # API-Hashwerte sind bereits gesetzt -> Abruf überspringen
+ Log3($name, 4, "$name - API hashvalues already set - ignore get apisites");
+ checkSid($hash);
+ return;
+ }
+
+ my $httptimeout = AttrVal($name, "httptimeout", $todef);
Log3($name, 5, "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s");
- # URL zur Abfrage der Eigenschaften der API's
- $url = "$proto://$serveraddr:$serverport/webapi/query.cgi?api=$apiinfo&method=Query&version=1&query=$apiauth,$apiextrec,$apicam,$apitakesnap,$apiptz,$apipreset,$apisvsinfo,$apicamevent,$apievent,$apivideostm,$apiextevt,$apistm,$apihm,$apilog,$apiaudiostm,$apivideostms,$apirec";
+ # API initialisieren und abrufen
+ ####################################
+ $hash->{HELPER}{API} = apistatic ("surveillance"); # API Template im HELPER instanziieren
+
+ Log3 ($name, 4, "$name - API imported:\n".Dumper $hash->{HELPER}{API});
+
+ my @ak;
+ for my $key (keys %{$hash->{HELPER}{API}}) {
+ next if($key =~ /^PARSET$/x);
+ push @ak, $hash->{HELPER}{API}{$key}{NAME};
+ }
+ my $apis = join ",", @ak;
+
+ $url = "$proto://$serveraddr:$serverport/webapi/$hash->{HELPER}{API}{INFO}{PATH}?".
+ "api=$hash->{HELPER}{API}{INFO}{NAME}".
+ "&method=Query".
+ "&version=$hash->{HELPER}{API}{INFO}{VER}".
+ "&query=$apis";
Log3($name, 4, "$name - Call-Out now: $url");
$param = {
- url => $url,
- timeout => $httptimeout,
- hash => $hash,
- method => "GET",
- header => "Accept: application/json",
- callback => \&getApiSites_Parse
- };
+ url => $url,
+ timeout => $httptimeout,
+ hash => $hash,
+ fret => $fret,
+ arg => $arg,
+ method => "GET",
+ header => "Accept: application/json",
+ callback => \&getApiSites_Parse
+ };
HttpUtils_NonblockingGet ($param);
return;
@@ -4426,240 +5170,64 @@ return;
# Auswertung Abruf apisites
####################################################################################
sub getApiSites_Parse {
- my $param = shift;
- my $err = shift;
- my $myjson = shift;
+ my $param = shift;
+ my $err = shift;
+ my $myjson = shift;
- my $hash = $param->{hash};
- my $name = $hash->{NAME};
- my $serveraddr = $hash->{SERVERADDR};
- my $serverport = $hash->{SERVERPORT};
- my $apiauth = $hash->{HELPER}{APIAUTH};
- my $apiextrec = $hash->{HELPER}{APIEXTREC};
- my $apiextevt = $hash->{HELPER}{APIEXTEVT};
- my $apicam = $hash->{HELPER}{APICAM};
- my $apitakesnap = $hash->{HELPER}{APISNAPSHOT};
- my $apiptz = $hash->{HELPER}{APIPTZ};
- my $apipreset = $hash->{HELPER}{APIPRESET};
- my $apisvsinfo = $hash->{HELPER}{APISVSINFO};
- my $apicamevent = $hash->{HELPER}{APICAMEVENT};
- my $apievent = $hash->{HELPER}{APIEVENT};
- my $apivideostm = $hash->{HELPER}{APIVIDEOSTM};
- my $apiaudiostm = $hash->{HELPER}{APIAUDIOSTM};
- my $apivideostms = $hash->{HELPER}{APIVIDEOSTMS};
- my $apistm = $hash->{HELPER}{APISTM};
- my $apihm = $hash->{HELPER}{APIHM};
- my $apilog = $hash->{HELPER}{APILOG};
- my $apirec = $hash->{HELPER}{APIREC};
+ my $hash = $param->{hash};
+ my $fret = $param->{fret};
+ my $arg = $param->{arg};
+ my $name = $hash->{NAME};
+ my $opmode = $hash->{OPMODE};
- my ($apicammaxver,$apicampath);
+ my ($error,$errorcode,$success);
- if ($err ne "") {
- # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
+ if ($err ne "") { # 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
- delActiveToken($hash);
+ delActiveToken($hash); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
return;
- } elsif ($myjson ne "") {
- # Evaluiere ob Daten im JSON-Format empfangen wurden
- ($hash, my $success) = evaljson($hash,$myjson);
+ } elsif ($myjson ne "") { # Evaluiere ob Daten im JSON-Format empfangen wurden
+ ($success) = evaljson($hash,$myjson);
- unless ($success) {
+ if(!$success) {
delActiveToken($hash);
return;
}
- my $data = decode_json($myjson);
+ my $jdata = decode_json($myjson);
+ $success = $jdata->{success};
- # Logausgabe decodierte JSON Daten
- Log3($name, 5, "$name - JSON returned: ". Dumper $data);
-
- $success = $data->{'success'};
+ Log3($name, 5, "$name - JSON returned: ". Dumper $jdata); # Logausgabe decodierte JSON Daten
- if ($success) {
- my $logstr;
-
- # Pfad und Maxversion von "SYNO.API.Auth" ermitteln
- my $apiauthpath = $data->{'data'}->{$apiauth}->{'path'};
- $apiauthpath =~ tr/_//d if (defined($apiauthpath));
- my $apiauthmaxver = $data->{'data'}->{$apiauth}->{'maxVersion'};
-
- $logstr = defined($apiauthpath) ? "Path of $apiauth selected: $apiauthpath" : "Path of $apiauth undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apiauthmaxver) ? "MaxVersion of $apiauth selected: $apiauthmaxver" : "MaxVersion of $apiauth undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.ExternalRecording" ermitteln
- my $apiextrecpath = $data->{'data'}->{$apiextrec}->{'path'};
- $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";
- 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");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.Camera" ermitteln
- $apicampath = $data->{'data'}->{$apicam}->{'path'};
- $apicampath =~ tr/_//d if (defined($apicampath));
- $apicammaxver = $data->{'data'}->{$apicam}->{'maxVersion'};
-
- $logstr = defined($apicampath) ? "Path of $apicam selected: $apicampath" : "Path of $apicam undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apiextrecmaxver) ? "MaxVersion of $apicam: $apicammaxver" : "MaxVersion of $apicam undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.SnapShot" ermitteln
- my $apitakesnappath = $data->{'data'}->{$apitakesnap}->{'path'};
- $apitakesnappath =~ tr/_//d if (defined($apitakesnappath));
- my $apitakesnapmaxver = $data->{'data'}->{$apitakesnap}->{'maxVersion'};
-
- $logstr = defined($apitakesnappath) ? "Path of $apitakesnap selected: $apitakesnappath" : "Path of $apitakesnap undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apitakesnapmaxver) ? "MaxVersion of $apitakesnap: $apitakesnapmaxver" : "MaxVersion of $apitakesnap undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.PTZ" ermitteln
- my $apiptzpath = $data->{'data'}->{$apiptz}->{'path'};
- $apiptzpath =~ tr/_//d if (defined($apiptzpath));
- my $apiptzmaxver = $data->{'data'}->{$apiptz}->{'maxVersion'};
-
- $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");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.PTZ.Preset" ermitteln
- my $apipresetpath = $data->{'data'}->{$apipreset}->{'path'};
- $apipresetpath =~ tr/_//d if (defined($apipresetpath));
- my $apipresetmaxver = $data->{'data'}->{$apipreset}->{'maxVersion'};
-
- $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");
+ if ($success) {
+ my $completed = completeAPI ($jdata, $hash->{HELPER}{API}); # übergibt Referenz zum instanziierten API-Hash
+
+ if(!$completed) {
+ $errorcode = "9001";
+ $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
+
+ readingsBeginUpdate($hash);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
+ readingsEndUpdate ($hash, 1);
- # Pfad und Maxversion von "SYNO.SurveillanceStation.Info" ermitteln
- my $apisvsinfopath = $data->{'data'}->{$apisvsinfo}->{'path'};
- $apisvsinfopath =~ tr/_//d if (defined($apisvsinfopath));
- my $apisvsinfomaxver = $data->{'data'}->{$apisvsinfo}->{'maxVersion'};
-
- $logstr = defined($apisvsinfopath) ? "Path of $apisvsinfo selected: $apisvsinfopath" : "Path of $apisvsinfo undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apisvsinfomaxver) ? "MaxVersion of $apisvsinfo: $apisvsinfomaxver" : "MaxVersion of $apisvsinfo undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.Surveillance.Camera.Event" ermitteln
- my $apicameventpath = $data->{'data'}->{$apicamevent}->{'path'};
- $apicameventpath =~ tr/_//d if (defined($apicameventpath));
- my $apicameventmaxver = $data->{'data'}->{$apicamevent}->{'maxVersion'};
-
- $logstr = defined($apicameventpath) ? "Path of $apicamevent selected: $apicameventpath" : "Path of $apicamevent undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apicameventmaxver) ? "MaxVersion of $apicamevent: $apicameventmaxver" : "MaxVersion of $apicamevent undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.Surveillance.Event" ermitteln
- my $apieventpath = $data->{'data'}->{$apievent}->{'path'};
- $apieventpath =~ tr/_//d if (defined($apieventpath));
- my $apieventmaxver = $data->{'data'}->{$apievent}->{'maxVersion'};
-
- $logstr = defined($apieventpath) ? "Path of $apievent selected: $apieventpath" : "Path of $apievent undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apieventmaxver) ? "MaxVersion of $apievent: $apieventmaxver" : "MaxVersion of $apievent undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.Surveillance.VideoStream" ermitteln
- my $apivideostmpath = $data->{'data'}->{$apivideostm}->{'path'};
- $apivideostmpath =~ tr/_//d if (defined($apivideostmpath));
- my $apivideostmmaxver = $data->{'data'}->{$apivideostm}->{'maxVersion'};
-
- $logstr = defined($apivideostmpath) ? "Path of $apivideostm selected: $apivideostmpath" : "Path of $apivideostm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apivideostmmaxver) ? "MaxVersion of $apivideostm: $apivideostmmaxver" : "MaxVersion of $apivideostm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.ExternalEvent" ermitteln
- my $apiextevtpath = $data->{'data'}->{$apiextevt}->{'path'};
- $apiextevtpath =~ tr/_//d if (defined($apiextevtpath));
- my $apiextevtmaxver = $data->{'data'}->{$apiextevt}->{'maxVersion'};
-
- $logstr = defined($apiextevtpath) ? "Path of $apiextevt selected: $apiextevtpath" : "Path of $apiextevt undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apiextevtmaxver) ? "MaxVersion of $apiextevt selected: $apiextevtmaxver" : "MaxVersion of $apiextevt undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.Streaming" ermitteln
- my $apistmpath = $data->{'data'}->{$apistm}->{'path'};
- $apistmpath =~ tr/_//d if (defined($apistmpath));
- my $apistmmaxver = $data->{'data'}->{$apistm}->{'maxVersion'};
-
- $logstr = defined($apistmpath) ? "Path of $apistm selected: $apistmpath" : "Path of $apistm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apistmmaxver) ? "MaxVersion of $apistm selected: $apistmmaxver" : "MaxVersion of $apistm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.HomeMode" ermitteln
- my $apihmpath = $data->{'data'}->{$apihm}->{'path'};
- $apihmpath =~ tr/_//d if (defined($apihmpath));
- my $apihmmaxver = $data->{'data'}->{$apihm}->{'maxVersion'};
-
- $logstr = defined($apihmpath) ? "Path of $apihm selected: $apihmpath" : "Path of $apihm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apihmmaxver) ? "MaxVersion of $apihm selected: $apihmmaxver" : "MaxVersion of $apihm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.Log" ermitteln
- my $apilogpath = $data->{'data'}->{$apilog}->{'path'};
- $apilogpath =~ tr/_//d if (defined($apilogpath));
- my $apilogmaxver = $data->{'data'}->{$apilog}->{'maxVersion'};
-
- $logstr = defined($apilogpath) ? "Path of $apilog selected: $apilogpath" : "Path of $apilog undefined - Surveillance Station may be stopped";
- 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");
+ Log3($name, 2, "$name - ERROR - $error");
+
+ delActiveToken($hash); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
+ return;
+ }
- # Pfad und Maxversion von "SYNO.SurveillanceStation.AudioStream" ermitteln
- my $apiaudiostmpath = $data->{'data'}->{$apiaudiostm}->{'path'};
- $apiaudiostmpath =~ tr/_//d if (defined($apiaudiostmpath));
- my $apiaudiostmmaxver = $data->{'data'}->{$apiaudiostm}->{'maxVersion'};
-
- $logstr = defined($apiaudiostmpath) ? "Path of $apiaudiostm selected: $apiaudiostmpath" : "Path of $apiaudiostm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apiaudiostmmaxver) ? "MaxVersion of $apiaudiostm selected: $apiaudiostmmaxver" : "MaxVersion of $apiaudiostm undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.VideoStream" ermitteln
- my $apivideostmspath = $data->{'data'}->{$apivideostms}->{'path'};
- $apivideostmspath =~ tr/_//d if (defined($apivideostmspath));
- my $apivideostmsmaxver = $data->{'data'}->{$apivideostms}->{'maxVersion'};
-
- $logstr = defined($apivideostmspath) ? "Path of $apivideostms selected: $apivideostmspath" : "Path of $apivideostms undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
- $logstr = defined($apivideostmsmaxver) ? "MaxVersion of $apivideostms selected: $apivideostmsmaxver" : "MaxVersion of $apivideostms undefined - Surveillance Station may be stopped";
- Log3($name, 4, "$name - $logstr");
-
- # Pfad und Maxversion von "SYNO.SurveillanceStation.Recording" ermitteln
- my $apirecpath = $data->{'data'}->{$apirec}->{'path'};
- $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";
- 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
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 $actvs = $major.$minor.$small.$build;
- my $avsc = $major.$minor.$small; # Variable zum Version Kompatibilitätscheck
+
Log3($name, 4, "$name - installed SVS version is: $actvs");
if(AttrVal($name,"simu_SVSversion",0)) {
@@ -4670,136 +5238,105 @@ sub getApiSites_Parse {
$actvs .= "-simu";
}
- # Downgrades für nicht kompatible API-Versionen
- # 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 camOp
+ # Downgrades für nicht kompatible API-Versionen. Hier nur nutzen wenn API zentral downgraded werden soll
Log3($name, 4, "$name - ------- Begin of adaption section -------");
- #$apiptzmaxver = 4;
- #Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
- #$apicammaxver = 8;
- #Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
+ my @sims;
+
+ # push @sims, "CAM:8";
+ # push @sims, "PTZ:4";
+
+ for my $esim (@sims) {
+ my($k,$v) = split ":", $esim;
+ $hash->{HELPER}{API}{$k}{VER} = $v;
+ $hash->{HELPER}{API}{$k}{MOD} = "yes";
+ Log3($name, 4, "$name - Version of $hash->{HELPER}{API}{$k}{NAME} adapted to: $hash->{HELPER}{API}{$k}{VER}");
+ }
Log3($name, 4, "$name - ------- End of adaption section -------");
-
- # Simulation anderer SVS-Versionen
+ # Simulation älterer SVS-Versionen
Log3($name, 4, "$name - ------- Begin of simulation section -------");
if (AttrVal($name, "simu_SVSversion", undef)) {
+ my @mods;
Log3($name, 4, "$name - SVS version $actvs will be simulated");
+
if ($actvs =~ /^71/x) {
- $apicammaxver = 8;
- Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
- $apiauthmaxver = 4;
- Log3($name, 4, "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver");
- $apiextrecmaxver = 2;
- Log3($name, 4, "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver");
- $apiptzmaxver = 4;
- Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
- } elsif ($actvs =~ /^72/x) {
- $apicammaxver = 8;
- Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
- $apiauthmaxver = 6;
- Log3($name, 4, "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver");
- $apiextrecmaxver = 3;
- Log3($name, 4, "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver");
- $apiptzmaxver = 5;
- Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
- } elsif ($actvs =~ /^800/x) {
- $apicammaxver = 9;
- Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
- $apiauthmaxver = 6;
- Log3($name, 4, "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver");
- $apiextrecmaxver = 3;
- Log3($name, 4, "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver");
- $apiptzmaxver = 5;
- Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
- } elsif ($actvs =~ /^815/x) {
- $apicammaxver = 9;
- Log3($name, 4, "$name - MaxVersion of $apicam adapted to: $apicammaxver");
- $apiauthmaxver = 6;
- Log3($name, 4, "$name - MaxVersion of $apiauth adapted to: $apiauthmaxver");
- $apiextrecmaxver = 3;
- Log3($name, 4, "$name - MaxVersion of $apiextrec adapted to: $apiextrecmaxver");
- $apiptzmaxver = 5;
- Log3($name, 4, "$name - MaxVersion of $apiptz adapted to: $apiptzmaxver");
- } elsif ($actvs =~ /^820/x) {
+ push @mods, "CAM:8";
+ push @mods, "AUTH:4";
+ push @mods, "EXTREC:2";
+ push @mods, "PTZ:4";
+ }
+ elsif ($actvs =~ /^72/x) {
+ push @mods, "CAM:8";
+ push @mods, "AUTH:6";
+ push @mods, "EXTREC:3";
+ push @mods, "PTZ:5";
+ }
+ elsif ($actvs =~ /^800/x) {
+ push @mods, "CAM:9";
+ push @mods, "AUTH:6";
+ push @mods, "EXTREC:3";
+ push @mods, "PTZ:5";
+ }
+ elsif ($actvs =~ /^815/x) {
+ push @mods, "CAM:9";
+ push @mods, "AUTH:6";
+ push @mods, "EXTREC:3";
+ push @mods, "PTZ:5";
+ }
+ elsif ($actvs =~ /^820/x) {
# ab API v2.8 kein "SYNO.SurveillanceStation.VideoStream", "SYNO.SurveillanceStation.AudioStream",
# "SYNO.SurveillanceStation.Streaming" mehr enthalten
- $apivideostmsmaxver = 0;
- Log3($name, 4, "$name - MaxVersion of $apivideostms adapted to: $apivideostmsmaxver");
- $apiaudiostmmaxver = 0;
- Log3($name, 4, "$name - MaxVersion of $apiaudiostm adapted to: $apiaudiostmmaxver");
+ push @mods, "VIDEOSTMS:0";
+ push @mods, "AUDIOSTM:0";
+ }
+
+ for my $elem (@mods) {
+ my($k,$v) = split ":", $elem;
+ $hash->{HELPER}{API}{$k}{VER} = $v;
+ $hash->{HELPER}{API}{$k}{MOD} = "yes";
+ Log3($name, 4, "$name - Version of $hash->{HELPER}{API}{$k}{NAME} adapted to: $hash->{HELPER}{API}{$k}{VER}");
}
-
- } 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;
- $hash->{HELPER}{APIEXTRECPATH} = $apiextrecpath;
- $hash->{HELPER}{APIEXTRECMAXVER} = $apiextrecmaxver;
- $hash->{HELPER}{APICAMPATH} = $apicampath;
- $hash->{HELPER}{APICAMMAXVER} = $apicammaxver;
- $hash->{HELPER}{APITAKESNAPPATH} = $apitakesnappath;
- $hash->{HELPER}{APITAKESNAPMAXVER} = $apitakesnapmaxver;
- $hash->{HELPER}{APIPTZPATH} = $apiptzpath;
- $hash->{HELPER}{APIPTZMAXVER} = $apiptzmaxver;
- $hash->{HELPER}{APIPRESETPATH} = $apipresetpath;
- $hash->{HELPER}{APIPRESETMAXVER} = $apipresetmaxver;
- $hash->{HELPER}{APISVSINFOPATH} = $apisvsinfopath;
- $hash->{HELPER}{APISVSINFOMAXVER} = $apisvsinfomaxver;
- $hash->{HELPER}{APICAMEVENTPATH} = $apicameventpath;
- $hash->{HELPER}{APICAMEVENTMAXVER} = $apicameventmaxver;
- $hash->{HELPER}{APIEVENTPATH} = $apieventpath;
- $hash->{HELPER}{APIEVENTMAXVER} = $apieventmaxver;
- $hash->{HELPER}{APIVIDEOSTMPATH} = $apivideostmpath;
- $hash->{HELPER}{APIVIDEOSTMMAXVER} = $apivideostmmaxver;
- $hash->{HELPER}{APIAUDIOSTMPATH} = $apiaudiostmpath?$apiaudiostmpath:"undefinded";
- $hash->{HELPER}{APIAUDIOSTMMAXVER} = $apiaudiostmmaxver?$apiaudiostmmaxver:0;
- $hash->{HELPER}{APIEXTEVTPATH} = $apiextevtpath;
- $hash->{HELPER}{APIEXTEVTMAXVER} = $apiextevtmaxver;
- $hash->{HELPER}{APISTMPATH} = $apistmpath;
- $hash->{HELPER}{APISTMMAXVER} = $apistmmaxver;
- $hash->{HELPER}{APIHMPATH} = $apihmpath;
- $hash->{HELPER}{APIHMMAXVER} = $apihmmaxver;
- $hash->{HELPER}{APILOGPATH} = $apilogpath;
- $hash->{HELPER}{APILOGMAXVER} = $apilogmaxver;
- $hash->{HELPER}{APIVIDEOSTMSPATH} = $apivideostmspath?$apivideostmspath:"undefinded";
- $hash->{HELPER}{APIVIDEOSTMSMAXVER} = $apivideostmsmaxver?$apivideostmsmaxver:0;
- $hash->{HELPER}{APIRECPATH} = $apirecpath;
- $hash->{HELPER}{APIRECMAXVER} = $apirecmaxver;
+ setReadingErrorNone( $hash, 1 );
+
+ Log3 ($name, 4, "$name - API completed after retrieval and adaption:\n".Dumper $hash->{HELPER}{API});
+
+ if ($opmode eq "apiInfo") { # API Infos in Popup anzeigen
+ showAPIinfo ($hash, $hash->{HELPER}{API}); # übergibt Referenz zum instanziierten API-Hash)
+ delActiveToken($hash); # Freigabe Funktionstoken
+ return;
+ }
+ }
+ else {
+ $errorcode = "806";
+ $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash,"Errorcode","none");
- readingsBulkUpdate ($hash,"Error", "none");
- readingsEndUpdate ($hash,1);
-
- # API Hash values sind gesetzt
- $hash->{HELPER}{APIPARSET} = 1;
-
- } else {
- my $error = "couldn't call API-Infosite";
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash,"Errorcode","none");
- readingsBulkUpdate ($hash,"Error", $error);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
readingsEndUpdate ($hash, 1);
- Log3($name, 2, "$name - ERROR - the API-Query couldn't be executed successfully");
+ Log3($name, 2, "$name - ERROR - $error");
- # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
- delActiveToken($hash);
+ delActiveToken($hash); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
return;
}
}
+ if($fret) { # Caller aufrufen wenn angegeben
+ no strict "refs"; ## no critic 'NoStrict'
+ delActiveToken($hash); # Freigabe Funktionstoken vor Neudurchlauf der aufrufenden Funktion
+ &$fret($arg);
+ use strict "refs";
+ return;
+ }
+
return checkSid($hash);
}
@@ -4807,31 +5344,29 @@ return checkSid($hash);
# Check ob Session ID gesetzt ist - ggf. login
#############################################################################################
sub checkSid {
- my ($hash) = @_;
- my $name = $hash->{NAME};
+ my $hash = shift;
+ my $name = $hash->{NAME};
+
my $subref;
- if(IsModelCam($hash)) {
- # Folgefunktion wenn Cam-Device
- $subref = "getCamId";
- } else {
- # Folgefunktion wenn SVS-Device
- $subref = "camOp";
+ if(IsModelCam($hash)) { # Folgefunktion wenn Cam-Device
+ $subref = \&getCamId;
+ }
+ else { # Folgefunktion wenn SVS-Device
+ $subref = \&camOp;
}
- # SID holen bzw. login
- my $sid = $hash->{HELPER}{SID};
+ my $sid = $hash->{HELPER}{SID}; # SID holen bzw. login
if(!$sid) {
Log3($name, 3, "$name - no session ID found - get new one");
- login($hash,$subref);
+ login($hash, $hash->{HELPER}{API}, $subref);
return;
}
- if(IsModelCam($hash) || $hash->{OPMODE} eq "Autocreate") {
- # Normalverarbeitung für Cams oder Autocreate Cams
+ if(IsModelCam($hash) || $hash->{OPMODE} eq "Autocreate") { # Normalverarbeitung für Cams oder Autocreate Cams
return getCamId($hash);
- } else {
- # Sprung zu camOp wenn SVS Device
+ }
+ else { # Sprung zu camOp wenn SVS Device
return camOp($hash);
}
@@ -4840,47 +5375,46 @@ return;
#############################################################################################
# Abruf der installierten Cams
+# die Kamera-Id wird aus dem Kameranamen (Surveillance Station) ermittelt
#############################################################################################
sub getCamId {
my ($hash) = @_;
my $name = $hash->{NAME};
my $serveraddr = $hash->{SERVERADDR};
my $serverport = $hash->{SERVERPORT};
- my $apicam = $hash->{HELPER}{APICAM};
- my $apicampath = $hash->{HELPER}{APICAMPATH};
- my $apicammaxver = $hash->{HELPER}{APICAMMAXVER};
+ my $apicam = $hash->{HELPER}{API}{CAM}{NAME};
+ my $apicampath = $hash->{HELPER}{API}{CAM}{PATH};
+ my $apicamver = $hash->{HELPER}{API}{CAM}{VER};
my $sid = $hash->{HELPER}{SID};
my $proto = $hash->{PROTOCOL};
my $url;
- # die Kamera-Id wird aus dem Kameranamen (Surveillance Station) ermittelt
- Log3($name, 4, "$name - --- Begin Function getCamId nonblocking ---");
+ Log3($name, 4, "$name - --- Start getCamId ---");
- if ($hash->{CAMID}) {
- # Camid ist bereits ermittelt -> Abruf überspringen
+ if ($hash->{CAMID}) { # Camid ist bereits ermittelt -> Abruf überspringen
Log3($name, 4, "$name - CAMID already set - ignore get camid");
return camOp($hash);
}
- my $httptimeout = AttrVal($name,"httptimeout", 4);
+ my $httptimeout = AttrVal($name, "httptimeout", $todef);
Log3($name, 5, "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s");
- $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=List&basic=true&streamInfo=true&camStm=true&_sid=\"$sid\"";
- if ($apicammaxver >= 9) {
- $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicammaxver&method=\"List\"&basic=true&streamInfo=true&camStm=0&_sid=\"$sid\"";
+ $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicamver&method=List&basic=true&streamInfo=true&camStm=true&_sid=\"$sid\"";
+ if ($apicamver >= 9) {
+ $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=$apicam&version=$apicamver&method=\"List\"&basic=true&streamInfo=true&camStm=0&_sid=\"$sid\"";
}
Log3($name, 4, "$name - Call-Out now: $url");
my $param = {
- url => $url,
- timeout => $httptimeout,
- hash => $hash,
- method => "GET",
- header => "Accept: application/json",
- callback => \&getCamId_Parse
- };
+ url => $url,
+ timeout => $httptimeout,
+ hash => $hash,
+ method => "GET",
+ header => "Accept: application/json",
+ callback => \&getCamId_Parse
+ };
HttpUtils_NonblockingGet($param);
@@ -4895,26 +5429,23 @@ sub getCamId_Parse {
my $hash = $param->{hash};
my $name = $hash->{NAME};
my $camname = $hash->{CAMNAME};
- my $apicammaxver = $hash->{HELPER}{APICAMMAXVER};
+ my $apicamver = $hash->{HELPER}{API}{CAM}{VER};
my $OpMode = $hash->{OPMODE};
my ($data,$success,$error,$errorcode,$camid);
my ($i,$n,$id,$errstate,$camdef,$nrcreated);
my $cdall = "";
my %allcams;
- if ($err ne "") {
- # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
+ if ($err ne "") { # 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 login($hash,'getApiSites');
+ return login($hash, $hash->{HELPER}{API}, \&getCamId);
- } 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) = evaljson($hash,$myjson);
+ } elsif ($myjson ne "") { # Datenabruf erfolgreich
+ ($success) = evaljson($hash,$myjson);
- unless ($success) {
+ if (!$success) {
Log3($name, 4, "$name - Data returned: ".$myjson);
delActiveToken($hash);
return;
@@ -4922,32 +5453,29 @@ sub getCamId_Parse {
$data = decode_json($myjson);
- # lesbare Ausgabe der decodierten JSON-Daten
Log3($name, 5, "$name - JSON returned: ". Dumper $data);
$success = $data->{'success'};
- if ($success) {
- # die Liste aller Kameras konnte ausgelesen werden
+ if ($success) { # die Liste aller Kameras konnte ausgelesen werden
($i,$nrcreated) = (0,0);
- # Namen aller installierten Kameras mit Id's in Assoziatives Array einlesen
- %allcams = ();
+ %allcams = (); # Namen aller installierten Kameras mit Id's in Hash einlesen
while ($data->{'data'}->{'cameras'}->[$i]) {
- if ($apicammaxver <= 8) {
+ if ($apicamver <= 8) {
$n = $data->{'data'}->{'cameras'}->[$i]->{'name'};
- } else {
- $n = $data->{'data'}->{'cameras'}->[$i]->{'newName'}; # Änderung ab SVS 8.0.0
+ }
+ 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) = setAutocreate($hash,$n);
- if($camdef) {
- $cdall = $cdall.($cdall?", ":"").$camdef;
+ if ($OpMode eq "Autocreate") { # Cam autocreate
+ ($err,$camdef) = doAutocreate($hash,$n);
+ if ($camdef) {
+ $cdall = $cdall.($cdall ? ", " : "").$camdef;
$nrcreated++;
}
$errstate = $err if($err);
@@ -4955,63 +5483,55 @@ sub getCamId_Parse {
}
- if ($OpMode eq "Autocreate") {
- # Cam autocreate
+ if ($OpMode eq "Autocreate") { # Cam autocreate
Log3($name, 3, "$name - Cameras defined by autocreate: $cdall") if($cdall);
- $errstate = $errstate?$errstate:"none";
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"NumberAutocreatedCams",$nrcreated);
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error",$errstate);
- readingsBulkUpdate($hash,"state","autocreate finished");
- readingsEndUpdate($hash, 1);
+ $errstate = $errstate // "none";
+
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate ($hash, "NumberAutocreatedCams", $nrcreated );
+ readingsBulkUpdate ($hash, "Errorcode", "none" );
+ readingsBulkUpdate ($hash, "Error", $errstate );
+ readingsBulkUpdate ($hash, "state", "autocreate finished");
+ readingsEndUpdate ($hash, 1);
CommandSave(undef, undef) if($errstate eq "none" && $nrcreated && AttrVal("global","autosave", 1));
- # Freigabe Funktionstoken
- delActiveToken($hash);
+ delActiveToken($hash); # Freigabe Funktionstoken
return;
}
- # Ist der gesuchte Kameraname im Hash enhalten (in SVS eingerichtet ?)
- if (exists($allcams{$camname})) {
- $camid = $allcams{$camname};
+ if (exists($allcams{$camname})) { # Ist der gesuchte Kameraname im Hash enhalten (in SVS eingerichtet ?)
+ $camid = $allcams{$camname};
$hash->{CAMID} = $camid;
Log3($name, 4, "$name - Detection Camid successful - $camname ID: $camid");
-
- } else {
- # Kameraname nicht gefunden, id = ""
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error","Camera(ID) not found in Surveillance Station");
- readingsEndUpdate($hash, 1);
+ }
+ 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");
delActiveToken($hash);
return;
}
-
- } else {
- # Errorcode aus JSON ermitteln
- $errorcode = $data->{'error'}->{'code'};
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrors($hash,$errorcode);
+ }
+ else {
+ $errorcode = $data->{'error'}->{'code'}; # Errorcode aus JSON ermitteln
+ $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
+ readingsEndUpdate ($hash, 1);
- if ($errorcode =~ /(105|401)/x) {
- # neue Login-Versuche
+ if ($errorcode =~ /(105|401)/x) { # 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
+ return login($hash, $hash->{HELPER}{API}, \&getCamId);
+ }
+ 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;
@@ -5026,445 +5546,133 @@ return camOp($hash);
# Ausführung Operation
#############################################################################################
sub camOp {
- my $hash = shift;
-
- my $name = $hash->{NAME};
- my $apicam = $hash->{HELPER}{APICAM}; # SYNO.SurveillanceStation.Camera
- my $apicampath = $hash->{HELPER}{APICAMPATH};
- my $apicammaxver = $hash->{HELPER}{APICAMMAXVER};
- my $apiextrec = $hash->{HELPER}{APIEXTREC}; # SYNO.SurveillanceStation.ExternalRecording
- my $apiextrecpath = $hash->{HELPER}{APIEXTRECPATH};
- my $apiextrecmaxver = $hash->{HELPER}{APIEXTRECMAXVER};
- my $apiextevt = $hash->{HELPER}{APIEXTEVT}; # SYNO.SurveillanceStation.ExternalEvent
- my $apiextevtpath = $hash->{HELPER}{APIEXTEVTPATH};
- my $apiextevtmaxver = $hash->{HELPER}{APIEXTEVTMAXVER};
- my $apitakesnap = $hash->{HELPER}{APISNAPSHOT}; # SYNO.SurveillanceStation.SnapShot
- my $apitakesnappath = $hash->{HELPER}{APITAKESNAPPATH};
- my $apitakesnapmaxver = $hash->{HELPER}{APITAKESNAPMAXVER};
- my $apiptz = $hash->{HELPER}{APIPTZ}; # SYNO.SurveillanceStation.PTZ
- my $apiptzpath = $hash->{HELPER}{APIPTZPATH};
- my $apiptzmaxver = $hash->{HELPER}{APIPTZMAXVER};
- my $apipreset = $hash->{HELPER}{APIPRESET}; # SYNO.SurveillanceStation.PTZ.Preset
- my $apipresetpath = $hash->{HELPER}{APIPRESETPATH};
- my $apipresetmaxver = $hash->{HELPER}{APIPRESETMAXVER};
- my $apisvsinfo = $hash->{HELPER}{APISVSINFO}; # SYNO.SurveillanceStation.Info
- my $apisvsinfopath = $hash->{HELPER}{APISVSINFOPATH};
- my $apisvsinfomaxver = $hash->{HELPER}{APISVSINFOMAXVER};
- my $apicamevent = $hash->{HELPER}{APICAMEVENT}; # SYNO.SurveillanceStation.Camera.Event
- my $apicameventpath = $hash->{HELPER}{APICAMEVENTPATH};
- my $apicameventmaxver = $hash->{HELPER}{APICAMEVENTMAXVER};
- my $apievent = $hash->{HELPER}{APIEVENT}; # SYNO.SurveillanceStation.Event
- my $apieventpath = $hash->{HELPER}{APIEVENTPATH};
- my $apieventmaxver = $hash->{HELPER}{APIEVENTMAXVER};
- my $apivideostm = $hash->{HELPER}{APIVIDEOSTM}; # SYNO.SurveillanceStation.VideoStreaming
- my $apivideostmpath = $hash->{HELPER}{APIVIDEOSTMPATH};
- my $apivideostmmaxver = $hash->{HELPER}{APIVIDEOSTMMAXVER};
- my $apiaudiostm = $hash->{HELPER}{APIAUDIOSTM}; # SYNO.SurveillanceStation.AudioStream
- my $apiaudiostmpath = $hash->{HELPER}{APIAUDIOSTMPATH};
- my $apiaudiostmmaxver = $hash->{HELPER}{APIAUDIOSTMMAXVER};
- my $apistm = $hash->{HELPER}{APISTM}; # SYNO.SurveillanceStation.Stream
- my $apistmpath = $hash->{HELPER}{APISTMPATH};
- my $apistmmaxver = $hash->{HELPER}{APISTMMAXVER};
- my $apihm = $hash->{HELPER}{APIHM}; # SYNO.SurveillanceStation.HomeMode
- my $apihmpath = $hash->{HELPER}{APIHMPATH};
- my $apihmmaxver = $hash->{HELPER}{APIHMMAXVER};
- my $apilog = $hash->{HELPER}{APILOG}; # SYNO.SurveillanceStation.Log
- my $apilogpath = $hash->{HELPER}{APILOGPATH};
- my $apilogmaxver = $hash->{HELPER}{APILOGMAXVER};
- my $apivideostms = $hash->{HELPER}{APIVIDEOSTMS}; # SYNO.SurveillanceStation.VideoStream
- my $apivideostmspath = $hash->{HELPER}{APIVIDEOSTMSPATH};
- my $apivideostmsmaxver = $hash->{HELPER}{APIVIDEOSTMSMAXVER};
- my $apirec = $hash->{HELPER}{APIREC}; # SYNO.SurveillanceStation.Recording
- my $apirecpath = $hash->{HELPER}{APIRECPATH};
- my $apirecmaxver = $hash->{HELPER}{APIRECMAXVER};
- my $sid = $hash->{HELPER}{SID};
- my $OpMode = $hash->{OPMODE};
- my $camid = $hash->{CAMID};
- my $proto = $hash->{PROTOCOL};
- my $serveraddr = $hash->{SERVERADDR};
- my $serverport = $hash->{SERVERPORT};
- my ($exturl,$winname,$attr,$room,$param);
- my ($url,$httptimeout,$expmode,$motdetsc);
+ my $hash = shift;
+ my $name = $hash->{NAME};
+ my $OpMode = $hash->{OPMODE};
+ my $proto = $hash->{PROTOCOL};
+ my $serveraddr = $hash->{SERVERADDR};
+ my $serverport = $hash->{SERVERPORT};
+
+ my ($url,$part,$vkey);
- Log3($name, 4, "$name - --- Begin Function $OpMode nonblocking ---");
+ Log3($name, 4, "$name - --- Start $OpMode ---");
- $httptimeout = AttrVal($name, "httptimeout", 4);
- $httptimeout = $httptimeout+90 if($OpMode =~ /setoptpar|Disable/x); # setzen der Optimierungsparameter/Disable dauert lange !
+ my $httptimeout = AttrVal($name, "httptimeout", $todef);
- Log3($name, 5, "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s");
-
- if ($OpMode eq "Start") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraId=$camid&action=start&_sid=\"$sid\"";
- if($apiextrecmaxver >= 3) {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraIds=$camid&action=start&_sid=\"$sid\"";
- }
- } elsif ($OpMode eq "Stop") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraId=$camid&action=stop&_sid=\"$sid\"";
- if($apiextrecmaxver >= 3) {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiextrecpath?api=$apiextrec&method=Record&version=$apiextrecmaxver&cameraIds=$camid&action=stop&_sid=\"$sid\"";
- }
-
- } elsif ($OpMode eq "Snap") {
- # ein Schnappschuß wird ausgelöst
- $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&dsId=\"0\"&method=\"TakeSnapshot\"&version=\"$apitakesnapmaxver\"&camId=\"$camid\"&blSave=\"true\"&_sid=\"$sid\"";
- readingsSingleUpdate($hash,"state", "snap", 1);
-
- } elsif ($OpMode eq "SaveRec" || $OpMode eq "GetRec") {
- # eine Aufnahme soll in lokalem File (.mp4) gespeichert werden
- my $recid = ReadingsVal("$name", "CamLastRecId", 0);
- if($recid) {
- $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.");
- 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 $snapid = ReadingsVal("$name", "LastSnapId", " ");
- if($OpMode eq "getsnapinfo" && $snapid =~/\d+/x) {
- # getsnapinfo UND Reading LastSnapId gesetzt
- Log3($name,4, "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Id => $snapid");
- $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&idList=\"$snapid\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\"";
- } else {
- # snapgallery oder kein Reading LastSnapId gesetzt
- Log3($name,4, "$name - Call getsnapinfo with params: Image numbers => $limit, Image size => $imgsize, Keyword => $keyword");
- $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&keyword=\"$keyword\"&imgSize=\"$imgsize\"&limit=\"$limit\"&_sid=\"$sid\"";
- }
-
- } elsif ($OpMode eq "getsnapfilename") {
- # der Filename der aktuellen Schnappschuß-ID wird ermittelt
- my $snapid = ReadingsVal("$name", "LastSnapId", "");
- Log3($name, 4, "$name - Get filename of present Snap-ID $snapid");
- $url = "$proto://$serveraddr:$serverport/webapi/$apitakesnappath?api=\"$apitakesnap\"&method=\"List\"&version=\"$apitakesnapmaxver\"&imgSize=\"0\"&idList=\"$snapid\"&_sid=\"$sid\"";
-
- } 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\"";
-
- } elsif ($OpMode eq "getPresets") {
- # Liste der Presets abrufen
- $url = "$proto://$serveraddr:$serverport/webapi/$apipresetpath?api=\"$apipreset\"&version=\"$apipresetmaxver\"&method=\"Enum\"&cameraId=\"$camid\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "piract") {
- # PIR Sensor aktivieren/deaktivieren
- my $piract = $hash->{HELPER}{PIRACT};
- $url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"PDParamSave\"&keep=true&source=$piract&camId=\"$camid\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "setPreset") {
- # einen Preset setzen
- my $pnumber = $hash->{HELPER}{PNUMBER};
- 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\"";
- } else {
- $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\"";
-
- } elsif ($OpMode eq "setHome") {
- # aktuelle Position als Home setzen
- if($hash->{HELPER}{SETHOME} eq "---currentPosition---") {
- $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\"";
- }
-
- } elsif ($OpMode eq "startTrack") {
- # Object Tracking einschalten
- $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\"";
-
- } elsif ($OpMode eq "setZoom") {
- # Zoom in / stop / out
- my $dir = $hash->{HELPER}{ZOOM}{DIR};
- my $moveType = $hash->{HELPER}{ZOOM}{MOVETYPE};
- 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"};
-
- } elsif ($OpMode eq "runpatrol") {
- # eine Überwachungstour starten
- $url = qq{$proto://$serveraddr:$serverport/webapi/$apiptzpath?api="$apiptz"&version="$apiptzmaxver"&method="RunPatrol"&patrolId="$hash->{HELPER}{ALLPATROLS}{$hash->{HELPER}{GOPATROLNAME}}"&cameraId="$camid"&_sid="$sid"};
-
- } elsif ($OpMode eq "goabsptz") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"AbsPtz\"&cameraId=\"$camid\"&posX=\"$hash->{HELPER}{GOPTZPOSX}\"&posY=\"$hash->{HELPER}{GOPTZPOSY}\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "movestart") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"Move\"&cameraId=\"$camid\"&direction=\"$hash->{HELPER}{GOMOVEDIR}\"&speed=\"3\"&moveType=\"Start\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "movestop") {
- Log3($name, 4, "$name - Stop Camera $hash->{CAMNAME} moving to direction \"$hash->{HELPER}{GOMOVEDIR}\" now");
- $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=\"$apiptz\"&version=\"$apiptzmaxver\"&method=\"Move\"&cameraId=\"$camid\"&direction=\"$hash->{HELPER}{GOMOVEDIR}\"&moveType=\"Stop\"&_sid=\"$sid\"";
-
- } 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\"";
- }
-
- } 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\"";
- }
-
- } elsif ($OpMode eq "sethomemode") {
- my $sw = $hash->{HELPER}{HOMEMODE}; # HomeMode on,off
- $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") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apihmpath?api=$apihm&method=GetInfo&version=$apihmmaxver&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "getsvslog") {
- my $sev = $hash->{HELPER}{LISTLOGSEVERITY} // "";
- my $lim = $hash->{HELPER}{LISTLOGLIMIT} // 0;
- my $mco = $hash->{HELPER}{LISTLOGMATCH} // "";
-
- Log3($name,4, "$name - get logList with params: severity => $sev, limit => $lim, matchcode => $mco");
-
- $mco = IsModelCam($hash) ? $hash->{CAMNAME} : $mco;
- $lim = 1 if(!$hash->{HELPER}{CL}{1}); # Datenabruf im Hintergrund
- $sev = (lc($sev) =~ /error/x) ? 3 :(lc($sev) =~ /warning/x) ? 2 :(lc($sev) =~ /info/x) ? 1 : "";
-
- $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});
-
- } 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;
- $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") {
- $apicammaxver = ($apicammaxver >= 9)?8:$apicammaxver;
- $url = "$proto://$serveraddr:$serverport/webapi/$apicampath?api=\"$apicam\"&version=\"$apicammaxver\"&method=\"GetInfo\"&cameraIds=\"$camid\"&deviceOutCap=\"true\"&streamInfo=\"true\"&ptz=\"true\"&basic=\"true\"&camAppInfo=\"true\"&optimize=\"true\"&fisheye=\"true\"&eventDetection=\"true\"&_sid=\"$sid\"";
-
- } 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\"";
- }
-
- } elsif ($OpMode eq "geteventlist") {
- # Abruf der Events einer Kamera
- $url = "$proto://$serveraddr:$serverport/webapi/$apieventpath?api=\"$apievent\"&version=\"$apieventmaxver\"&method=\"List\"&cameraIds=\"$camid\"&locked=\"0\"&blIncludeSnapshot=\"false\"&reason=\"\"&limit=\"2\"&includeAllCam=\"false\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "Getptzlistpreset") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=$apiptz&version=$apiptzmaxver&method=ListPreset&cameraId=$camid&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "Getcapabilities") {
- # Capabilities einer Cam werden abgerufen
- $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") {
- # PTZ-ListPatrol werden abgerufen
- $url = "$proto://$serveraddr:$serverport/webapi/$apiptzpath?api=$apiptz&version=$apiptzmaxver&method=ListPatrol&cameraId=$camid&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "ExpMode") {
- if ($hash->{HELPER}{EXPMODE} eq "auto") {
- $expmode = "0";
- }
- elsif ($hash->{HELPER}{EXPMODE} eq "day") {
- $expmode = "1";
- }
- elsif ($hash->{HELPER}{EXPMODE} eq "night") {
- $expmode = "2";
- }
- $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") {
- # Hash für Optionswerte sichern für Logausgabe in Befehlsauswertung
- my %motdetoptions = ();
-
- if ($hash->{HELPER}{MOTDETSC} eq "disable") {
- $motdetsc = "-1";
- $url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&keep=true&_sid=\"$sid\"";
- } elsif ($hash->{HELPER}{MOTDETSC} eq "camera") {
- $motdetsc = "0";
-
- $motdetoptions{SENSITIVITY} = $hash->{HELPER}{MOTDETSC_PROP1} if ($hash->{HELPER}{MOTDETSC_PROP1});
- $motdetoptions{OBJECTSIZE} = $hash->{HELPER}{MOTDETSC_PROP2} if ($hash->{HELPER}{MOTDETSC_PROP2});
- $motdetoptions{PERCENTAGE} = $hash->{HELPER}{MOTDETSC_PROP3} if ($hash->{HELPER}{MOTDETSC_PROP3});
-
- $url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&_sid=\"$sid\"";
-
- if ($hash->{HELPER}{MOTDETSC_PROP1} || $hash->{HELPER}{MOTDETSC_PROP2} || $hash->{HELPER}{MOTDETSC_PROP13}) {
- # umschalten und neue Werte setzen
- $url .= "&keep=false";
- } else {
- # nur Umschaltung, alte Werte beibehalten
- $url .= "&keep=true";
- }
-
- if ($hash->{HELPER}{MOTDETSC_PROP1}) {
- # der Wert für Bewegungserkennung Kamera -> Empfindlichkeit ist gesetzt
- my $sensitivity = delete $hash->{HELPER}{MOTDETSC_PROP1};
- $url .= "&sensitivity=\"$sensitivity\"";
- }
-
- if ($hash->{HELPER}{MOTDETSC_PROP2}) {
- # der Wert für Bewegungserkennung Kamera -> Objektgröße ist gesetzt
- my $objectsize = delete $hash->{HELPER}{MOTDETSC_PROP2};
- $url .= "&objectSize=\"$objectsize\"";
- }
-
- if ($hash->{HELPER}{MOTDETSC_PROP3}) {
- # der Wert für Bewegungserkennung Kamera -> Prozentsatz für Auslösung ist gesetzt
- my $percentage = delete $hash->{HELPER}{MOTDETSC_PROP3};
- $url .= "&percentage=\"$percentage\"";
- }
-
- } elsif ($hash->{HELPER}{MOTDETSC} eq "SVS") {
- $motdetsc = "1";
-
- $motdetoptions{SENSITIVITY} = $hash->{HELPER}{MOTDETSC_PROP1} if ($hash->{HELPER}{MOTDETSC_PROP1});
- $motdetoptions{THRESHOLD} = $hash->{HELPER}{MOTDETSC_PROP2} if ($hash->{HELPER}{MOTDETSC_PROP2});
-
- # nur Umschaltung, alte Werte beibehalten
- $url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MDParamSave\"&camId=\"$camid\"&source=$motdetsc&keep=true&_sid=\"$sid\"";
-
- if ($hash->{HELPER}{MOTDETSC_PROP1}) {
- # der Wert für Bewegungserkennung SVS -> Empfindlichkeit ist gesetzt
- my $sensitivity = delete $hash->{HELPER}{MOTDETSC_PROP1};
- $url .= "&sensitivity=\"$sensitivity\"";
- }
-
- if ($hash->{HELPER}{MOTDETSC_PROP2}) {
- # der Wert für Bewegungserkennung SVS -> Schwellwert ist gesetzt
- my $threshold = delete $hash->{HELPER}{MOTDETSC_PROP2};
- $url .= "&threshold=\"$threshold\"";
- }
- }
- # Optionswerte in Hash sichern für Logausgabe in Befehlsauswertung
- $hash->{HELPER}{MOTDETOPTIONS} = \%motdetoptions;
-
- } elsif ($OpMode eq "getmotionenum") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apicameventpath?api=\"$apicamevent\"&version=\"$apicameventmaxver\"&method=\"MotionEnum\"&camId=\"$camid\"&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "extevent") {
- Log3($name, 4, "$name - trigger external event \"$hash->{HELPER}{EVENTID}\"");
- $url = "$proto://$serveraddr:$serverport/webapi/$apiextevtpath?api=$apiextevt&version=$apiextevtmaxver&method=Trigger&eventId=$hash->{HELPER}{EVENTID}&eventName=$hash->{HELPER}{EVENTID}&_sid=\"$sid\"";
-
- } elsif ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} !~ m/snap|^live_.*hls$/x) {
- $exturl = AttrVal($name, "livestreamprefix", "$proto://$serveraddr:$serverport");
- $exturl = ($exturl eq "DEF")?"$proto://$serveraddr:$serverport":$exturl;
- if ($hash->{HELPER}{RUNVIEW} =~ m/live/x) {
- 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";
-
- # interne URL
- $url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Stream&cameraId=$camid&format=mjpeg&_sid=$sid";
- } elsif ($hash->{HELPER}{STMKEYMJPEGHTTP}) {
- $url = $hash->{HELPER}{STMKEYMJPEGHTTP};
- }
- readingsSingleUpdate($hash,"LiveStreamUrl", $exturl, 1) if(AttrVal($name, "showStmInfoFull", undef));
-
- } else {
- # Abspielen der letzten Aufnahme (EventId)
- my $lrecid = ReadingsVal("$name", "CamLastRecId", 0);
- if($lrecid) {
- # externe URL in Reading setzen
- $exturl .= "/webapi/$apistmpath?api=$apistm&version=$apistmmaxver&method=EventStream&eventId=$lrecid×tamp=1&_sid=$sid";
- # interne URL
- $url = "$proto://$serveraddr:$serverport/webapi/$apistmpath?api=$apistm&version=$apistmmaxver&method=EventStream&eventId=$lrecid×tamp=1&_sid=$sid";
- readingsSingleUpdate($hash,"LiveStreamUrl", $exturl, 1) if(AttrVal($name, "showStmInfoFull", 0));
- }
- }
+ if($hash->{HELPER}{CALL}) { # neue camOp Videosteuerung Ausführungsvariante
+ $vkey = $hash->{HELPER}{CALL}{VKEY}; # API Key Video Parts
+ my $head = $hash->{HELPER}{CALL}{HEAD}; # vom Standard abweichende Serveradresse / Port (z.B. bei external)
+ $part = $hash->{HELPER}{CALL}{PART}; # URL-Teilstring ohne Startsequenz (Server, Port, ...)
+ my $to = $hash->{HELPER}{CALL}{TO} // 0; # evtl. zuätzlicher Timeout Add-On
- # Liveview-Link in Hash speichern
- $hash->{HELPER}{LINK} = $url;
-
- Log3($name, 4, "$name - Set Streaming-URL: $url");
-
- # livestream sofort in neuem Browsertab öffnen
- if ($hash->{HELPER}{OPENWINDOW}) {
- $winname = $name."_view";
- $attr = AttrVal($name, "htmlattr", "");
-
- # öffnen streamwindow für die Instanz die "VIEWOPENROOM" oder Attr "room" aktuell geöffnet hat
- if ($hash->{HELPER}{VIEWOPENROOM}) {
- $room = $hash->{HELPER}{VIEWOPENROOM};
- map {FW_directNotify("FILTER=room=$room", "#FHEMWEB:$_", "window.open ('$url','$winname','$attr')", "")} devspec2array("TYPE=FHEMWEB"); ## no critic 'void context'
- } else {
- map {FW_directNotify("#FHEMWEB:$_", "window.open ('$url','$winname','$attr')", "")} devspec2array("TYPE=FHEMWEB"); ## no critic 'void context'
- }
- }
-
- roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
-
- delActiveToken($hash);
- return;
-
- } elsif ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} =~ /snap/x) {
- # 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
- $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$/x) || $OpMode eq "activate_hls") {
- # HLS Livestreaming aktivieren
- $httptimeout = $httptimeout+90; # aktivieren HLS dauert lange !
- $url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Open&cameraId=$camid&format=hls&_sid=$sid";
-
- } elsif ($OpMode eq "stopliveview_hls" || $OpMode eq "reactivate_hls") {
- # HLS Livestreaming deaktivieren
- $url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Close&cameraId=$camid&format=hls&_sid=$sid";
-
- } elsif ($OpMode eq "getstreamformat") {
- # aktuelles Streamformat abfragen
- $url = "$proto://$serveraddr:$serverport/webapi/$apivideostmspath?api=$apivideostms&version=$apivideostmsmaxver&method=Query&cameraId=$camid&_sid=$sid";
+ $httptimeout += $to;
+
+ $part =~ s/_NAME_/$hash->{HELPER}{API}{$vkey}{NAME}/x;
+ $part =~ s/_VER_/$hash->{HELPER}{API}{$vkey}{VER}/x;
+ $part =~ s/_CID_/$hash->{CAMID}/x;
+ $part =~ s/_SID_/$hash->{HELPER}{SID}/x;
+
+ if($head) {
+ $url = $head.qq{/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part;
+ }
+ else {
+ $url = qq{$proto://$serveraddr:$serverport/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part;
+ }
}
+ if($hash->{HELPER}{ACALL}) { # neue camOp Audiosteuerung Ausführungsvariante
+ my $akey = $hash->{HELPER}{ACALL}{AKEY}; # API Key Audio Parts
+ my $apart = $hash->{HELPER}{ACALL}{APART}; # URL-Teilstring Audio
+
+ $apart =~ s/_ANAME_/$hash->{HELPER}{API}{$akey}{NAME}/x;
+ $apart =~ s/_AVER_/$hash->{HELPER}{API}{$akey}{VER}/x;
+ $apart =~ s/_CID_/$hash->{CAMID}/x;
+ $apart =~ s/_SID_/$hash->{HELPER}{SID}/x;
+
+ $hash->{HELPER}{AUDIOLINK} = qq{$proto://$serveraddr:$serverport/webapi/$hash->{HELPER}{API}{$akey}{PATH}?}.$apart;
+ }
+
+ if ($OpMode eq "runliveview" && $hash->{HELPER}{RUNVIEW} !~ m/snap|^live_.*hls$/x) {
+ _Oprunliveview ($hash, $part, $vkey);
+ return;
+ }
+
+ Log3($name, 5, "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s");
Log3($name, 4, "$name - Call-Out now: $url");
- $param = {
- url => $url,
- timeout => $httptimeout,
- hash => $hash,
- method => "GET",
- header => "Accept: application/json",
- callback => \&camOp_Parse
- };
+ my $param = {
+ url => $url,
+ timeout => $httptimeout,
+ hash => $hash,
+ method => "GET",
+ header => "Accept: application/json",
+ callback => \&camOp_Parse
+ };
HttpUtils_NonblockingGet ($param);
return;
}
+
+################################################################
+# camOp runliveview
+# wird bei runliveview aufgerufen wenn nicht Anzeige Snaps
+# oder kein HLS-Stream aktiviert werden soll
+################################################################
+sub _Oprunliveview {
+ my $hash = shift // return;
+ my $part = shift // delCallParts($hash) && return;
+ my $vkey = shift // delCallParts($hash) && return;
+ my $name = $hash->{NAME};
+
+ my $proto = $hash->{PROTOCOL};
+ my $serveraddr = $hash->{SERVERADDR};
+ my $serverport = $hash->{SERVERPORT};
+
+ my $url;
+
+ my $exturl = AttrVal($name, "livestreamprefix", "$proto://$serveraddr:$serverport"); # externe URL
+ $exturl = ($exturl eq "DEF") ? "$proto://$serveraddr:$serverport" : $exturl;
+
+ if ($hash->{HELPER}{RUNVIEW} =~ m/live/x) {
+ if($part) { # API "SYNO.SurveillanceStation.VideoStream" vorhanden ? (removed ab API v2.8)
+ $exturl .= qq{/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part;
+ $url = qq{$proto://$serveraddr:$serverport/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part; # interne URL
+
+ } elsif ($hash->{HELPER}{STMKEYMJPEGHTTP}) {
+ $url = $hash->{HELPER}{STMKEYMJPEGHTTP};
+ }
+ }
+ else { # Abspielen der letzten Aufnahme (EventId)
+ $exturl .= qq{/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part;
+ $url = qq{$proto://$serveraddr:$serverport/webapi/$hash->{HELPER}{API}{$vkey}{PATH}?}.$part; # interne URL
+ }
+
+ readingsSingleUpdate($hash,"LiveStreamUrl", $exturl, 1) if(AttrVal($name, "showStmInfoFull", 0));
+
+ $hash->{HELPER}{LINK} = $url; # Liveview-Link in Hash speichern
+
+ Log3($name, 4, "$name - Set Streaming-URL: $url");
+
+ if ($hash->{HELPER}{OPENWINDOW}) { # livestream sofort in neuem Browsertab öffnen
+ my $winname = $name."_view";
+ my $attr = AttrVal($name, "htmlattr", "");
+
+ if ($hash->{HELPER}{VIEWOPENROOM}) { # öffnen streamwindow für die Instanz die "VIEWOPENROOM" oder Attr "room" aktuell geöffnet hat
+ my $room = $hash->{HELPER}{VIEWOPENROOM};
+ map {FW_directNotify("FILTER=room=$room", "#FHEMWEB:$_", "window.open ('$url','$winname','$attr')", "")} devspec2array("TYPE=FHEMWEB"); ## no critic 'void context'
+ }
+ else {
+ map {FW_directNotify("#FHEMWEB:$_", "window.open ('$url','$winname','$attr')", "")} devspec2array("TYPE=FHEMWEB"); ## no critic 'void context'
+ }
+ }
+
+ roomRefresh($hash,0,1,1); # kein Room-Refresh, SSCam-state-Event, SSCamSTRM-Event
+
+ delActiveToken ($hash);
+
+return;
+}
###################################################################################
# Check ob Kameraoperation erfolgreich wie in "OpMOde" definiert
@@ -5478,360 +5686,123 @@ sub camOp_Parse {
my $name = $hash->{NAME};
my $camname = $hash->{CAMNAME};
my $OpMode = $hash->{OPMODE};
- my $serveraddr = $hash->{SERVERADDR};
- my $serverport = $hash->{SERVERPORT};
- my $camid = $hash->{CAMID};
- my $apivideostms = $hash->{HELPER}{APIVIDEOSTMS};
- my $apivideostmspath = $hash->{HELPER}{APIVIDEOSTMSPATH};
- my $apivideostmsmaxver = $hash->{HELPER}{APIVIDEOSTMSMAXVER};
- my $apicammaxver = $hash->{HELPER}{APICAMMAXVER};
- my $sid = $hash->{HELPER}{SID};
- my $proto = $hash->{PROTOCOL};
- my ($rectime,$data,$success);
- my ($error,$errorcode);
- my ($snapid,$camLiveMode,$update_time);
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
- my ($deviceType,$camStatus);
- my ($patrolcnt,$patrolid,$patrolname,@patrolkeys,$patrollist);
- my ($recStatus,$exposuremode,$exposurecontrol);
- my ($userPriv,$verbose,$motdetsc);
- my ($sensitivity_camCap,$sensitivity_value,$sensitivity_ssCap);
- my ($threshold_camCap,$threshold_value,$threshold_ssCap);
- my ($percentage_camCap,$percentage_value,$percentage_ssCap);
- my ($objectSize_camCap,$objectSize_value,$objectSize_ssCap);
-
- my $lang = AttrVal("global","language","EN");
+ my ($data,$success);
# Einstellung für Logausgabe Pollinginfos
# wenn "pollnologging" = 1 -> logging nur bei Verbose=4, sonst 3
- if (AttrVal($name, "pollnologging", 0) == 1) {
+ my $verbose = 3;
+ if (AttrVal($name, "pollnologging", 0)) {
$verbose = 4;
- } else {
- $verbose = 3;
}
- if ($err ne "") {
- # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
+ if ($err ne "") { # 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
- delActiveToken($hash);
+ delActiveToken ($hash); # ausgeführte Funktion ist abgebrochen, Freigabe Funktionstoken
+
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/x) { # "SaveRec/GetRec" liefern MP4-Daten und kein JSON
- ($hash,$success,$myjson) = evaljson($hash,$myjson);
- unless ($success) {
+ }
+ elsif ($myjson ne "") { # wenn die Abfrage erfolgreich war
+ if($OpMode !~ /SaveRec|GetRec/x) { # "SaveRec/GetRec" liefern MP4-Daten und kein JSON
+ ($success,$myjson) = evaljson($hash,$myjson);
+
+ if (!$success) {
Log3($name, 4, "$name - Data returned: ".$myjson);
- delActiveToken($hash);
+
+ delActiveToken ($hash);
+
return;
}
$data = decode_json($myjson);
- # Logausgabe decodierte JSON Daten
- Log3($name, 5, "$name - JSON returned: ". Dumper $data);
+ Log3($name, 5, "$name - JSON returned: ". Dumper $data); # Logausgabe decodierte JSON Daten
- $success = $data->{'success'};
- } else {
+ $success = $data->{'success'};
+ }
+ else {
$success = 1;
}
- if ($success) {
- # Kameraoperation entsprechend "OpMode" war erfolgreich
-
- if ($OpMode eq "Start") {
- # Die Aufnahmezeit setzen
- # wird "set on [rectime]" verwendet -> dann [rectime] nutzen,
- # sonst Attribut "rectime" wenn es gesetzt ist, falls nicht -> "RECTIME_DEF"
- if (defined($hash->{HELPER}{RECTIME_TEMP})) {
- $rectime = delete $hash->{HELPER}{RECTIME_TEMP};
- } else {
- $rectime = AttrVal($name, "rectime", $hash->{HELPER}{RECTIME_DEF});
- }
-
- if ($rectime == 0) {
- 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
- Log3($name, 3, "$name - running recording renewed to $rectime s");
- } else {
- Log3($name, 3, "$name - Camera $camname recording with recording time $rectime s started");
- }
- }
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Record","Start");
- readingsBulkUpdate($hash,"state", "on");
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error","none");
- readingsEndUpdate($hash, 1);
-
- if ($rectime != 0) {
- # 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, "FHEM::SSCam::camStopRec");
- InternalTimer(gettimeofday()+$rectime, "FHEM::SSCam::camStopRec", $hash);
- }
-
- roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
-
- } elsif ($OpMode eq "Stop") {
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash, "Record", "Stop");
- readingsBulkUpdate ($hash, "state", "off" );
- readingsBulkUpdate ($hash, "Errorcode", "none");
- readingsBulkUpdate ($hash, "Error" , "none");
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 3, "$name - Camera $camname Recording stopped");
-
- roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
-
- # Aktualisierung Eventlist der letzten Aufnahme
- getEventList($hash);
-
- } elsif ($OpMode eq "ExpMode") {
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash, "Errorcode", "none");
- readingsBulkUpdate ($hash, "Error" , "none");
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 3, "$name - Camera $camname exposure mode was set to \"$hash->{HELPER}{EXPMODE}\"");
-
- } elsif ($OpMode eq "setZoom") {
- readingsBeginUpdate($hash);
- readingsBulkUpdate ($hash, "Errorcode", "none");
- readingsBulkUpdate ($hash, "Error" , "none");
- readingsEndUpdate ($hash, 1);
-
- Log3($name, 3, qq{$name - Zoom operation "$hash->{HELPER}{ZOOM}{DIR}:$hash->{HELPER}{ZOOM}{MOVETYPE}" of Camera $camname successfully done} );
-
- } 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 = openOrgetTrans($hash); # Transaktion starten
-
- my $cache;
- 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;
- $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{createdTm} = $createdTm;
- $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{fileName} = $fileName;
- $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{tdir} = $tdir;
- $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{imageData} = $myjson;
- } else {
- 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");
- }
-
- # Recording als Email / Telegram / Chat versenden
- if(!$cache || $cache eq "internal" ) {
- prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDRECS}{$tac});
- } else {
- prepareSendData ($hash, $OpMode, "{SENDRECS}{$tac}");
- }
-
- closeTrans ($hash); # Transaktion beenden
-
- readingsBeginUpdate ($hash);
- readingsBulkUpdate ($hash,"Errorcode","none");
- readingsBulkUpdate ($hash,"Error",$err);
- readingsEndUpdate ($hash, 1);
-
- } elsif ($OpMode eq "SaveRec") {
-
- my $lrec = ReadingsVal("$name", "CamLastRec", "");
- $lrec = (split("/",$lrec))[1];
- my $sp = $hash->{HELPER}{RECSAVEPATH} // $attr{global}{modpath};
- my $file = $sp."/$lrec";
- delete $hash->{HELPER}{RECSAVEPATH};
-
- open my $fh, '>', $file or do { $err = qq{Can't open file "$file": $!};
- Log3($name, 2, "$name - $err");
- };
-
- if(!$err) {
- binmode $fh;
- print $fh $myjson;
- close($fh);
- $err = "none";
- Log3($name, 3, qq{$name - Recording was saved to local file "$file"});
- }
-
- readingsBeginUpdate ($hash);
- readingsBulkUpdate ($hash,"Errorcode","none");
- readingsBulkUpdate ($hash,"Error",$err);
- readingsEndUpdate ($hash, 1);
-
- } elsif ($OpMode eq "sethomemode") {
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error","none");
- readingsEndUpdate($hash, 1);
-
- Log3($name, 3, "$name - HomeMode was set to \"$hash->{HELPER}{HOMEMODE}\" ");
-
- # Token freigeben vor nächstem Kommando
- delActiveToken($hash);
+ if ($success) { # Kameraoperation entsprechend "OpMode" war erfolgreich
+ my $params = {
+ hash => $hash,
+ name => $name,
+ camname => $camname,
+ OpMode => $OpMode,
+ myjson => $myjson,
+ data => $data,
+ verbose => $verbose,
+ };
+
+ no strict "refs"; ## no critic 'NoStrict'
+ if($hparse{$OpMode} && defined &{$hparse{$OpMode}{fn}}) {
+ my $ret = q{};
+ $ret = &{$hparse{$OpMode}{fn}} ($params);
+ return if($ret);
+ }
+ use strict "refs";
- # neuen HomeModeState abrufen
- getHomeModeState($hash);
-
- } elsif ($OpMode eq "gethomemodestate") {
- my $hmst = $data->{'data'}{'on'};
- my $hmststr = ($hmst == 1)?"on":"off";
-
- ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
- if($lang eq "DE") {
- $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,"LastUpdateTime",$update_time);
- readingsBulkUpdate ($hash,"Errorcode","none");
- readingsBulkUpdate ($hash,"Error","none");
- readingsEndUpdate ($hash, 1);
-
- } elsif ($OpMode eq "getsvslog") {
- my $lec = $data->{'data'}{'total'}; # abgerufene Anzahl von Log-Einträgen
-
- my $log = '';
- 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 - $descSurveillance Station Server \"$hash->{SERVERADDR}\" Log ( $i/$lec entries are displayed )Preset positions saved of camera \"$hash->{CAMNAME}\" ".
- "(PresetNumber => Name: ..., Speed: ..., Type: ...) \"");
- delActiveToken($hash);
- return;
- }
-
- if($hash->{HELPER}{LOGINRETRIES} >= $lrt) {
- # login wird abgebrochen, Freigabe Funktionstoken
- delActiveToken($hash);
- Log3($name, 2, "$name - ERROR - Login or privilege of user $username unsuccessful");
- return;
- }
-
- my $httptimeout = AttrVal($name,"httptimeout",60);
- $httptimeout = 60 if($httptimeout < 60);
- Log3($name, 4, "$name - HTTP-Call login will be done with httptimeout-Value: $httptimeout s");
-
- my $urlwopw; # nur zur Anzeige bei verbose >= 4 und "showPassInLog" == 0
-
- # sid in Quotes einschliessen oder nicht -> bei Problemen mit 402 - Permission denied
- my $sid = AttrVal($name, "noQuotesForSID", "0") == 1 ? "sid" : "\"sid\"";
-
- if (AttrVal($name,"session","DSM") eq "SurveillanceStation") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=$password&session=SurveillanceStation&format=$sid";
- $urlwopw = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=*****&session=SurveillanceStation&format=$sid";
- } else {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=$password&format=$sid";
- $urlwopw = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Login&account=$username&passwd=*****&format=$sid";
- }
-
- AttrVal($name, "showPassInLog", "0") == 1 ? Log3($name, 4, "$name - Call-Out now: $url") : Log3($name, 4, "$name - Call-Out now: $urlwopw");
- $hash->{HELPER}{LOGINRETRIES}++;
-
- $param = {
- url => $url,
- timeout => $httptimeout,
- hash => $hash,
- user => $username,
- funcret => $fret,
- method => "GET",
- header => "Accept: application/json",
- callback => \&loginReturn
- };
- HttpUtils_NonblockingGet ($param);
-
-return;
-}
-
-sub loginReturn {
- my ($param, $err, $myjson) = @_;
- my $hash = $param->{hash};
- my $name = $hash->{NAME};
- my $username = $param->{user};
- my $fret = $param->{funcret};
- my $subref = \&$fret;
- my $success;
-
- # Verarbeitung der asynchronen Rückkehrdaten aus sub "login_nonbl"
- if ($err ne "") {
- # ein Fehler bei der HTTP Abfrage ist aufgetreten
- Log3($name, 2, "$name - error while requesting ".$param->{url}." - $err");
-
- readingsSingleUpdate($hash, "Error", $err, 1);
-
- return login($hash,$fret);
-
- } elsif ($myjson ne "") {
- # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
-
- # Evaluiere ob Daten im JSON-Format empfangen wurden
- ($hash, $success) = evaljson($hash,$myjson);
- unless ($success) {
- Log3($name, 4, "$name - no JSON-Data returned: ".$myjson);
- delActiveToken($hash);
- return;
- }
-
- my $data = decode_json($myjson);
-
- # Logausgabe decodierte JSON Daten
- Log3($name, 5, "$name - JSON decoded: ". Dumper $data);
-
- $success = $data->{'success'};
-
- if ($success) {
- # login war erfolgreich
- my $sid = $data->{'data'}->{'sid'};
-
- # Session ID in hash eintragen
- $hash->{HELPER}{SID} = $sid;
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error","none");
- readingsEndUpdate($hash, 1);
-
- Log3($name, 4, "$name - Login of User $username successful - SID: $sid");
-
- return &$subref($hash);
-
- } else {
- # Errorcode aus JSON ermitteln
- my $errorcode = $data->{'error'}->{'code'};
-
- # Fehlertext zum Errorcode ermitteln
- my $error = expErrorsAuth($hash,$errorcode);
-
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode",$errorcode);
- readingsBulkUpdate($hash,"Error",$error);
- readingsEndUpdate($hash, 1);
-
- Log3($name, 3, "$name - Login of User $username unsuccessful. Code: $errorcode - $error - try again");
-
- return login($hash,$fret);
- }
- }
-
-return login($hash,$fret);
-}
-
-###################################################################################
-# Funktion logout
-###################################################################################
-sub logout {
- my $hash = shift;
- my $name = $hash->{NAME};
- my $serveraddr = $hash->{SERVERADDR};
- my $serverport = $hash->{SERVERPORT};
- my $apiauth = $hash->{HELPER}{APIAUTH};
- my $apiauthpath = $hash->{HELPER}{APIAUTHPATH};
- my $apiauthmaxver = $hash->{HELPER}{APIAUTHMAXVER};
- my $sid = $hash->{HELPER}{SID};
- my $proto = $hash->{PROTOCOL};
- my $url;
- my $param;
- my $httptimeout;
-
- Log3($name, 4, "$name - ####################################################");
- Log3($name, 4, "$name - ### start cam operation $hash->{OPMODE} ");
- Log3($name, 4, "$name - ####################################################");
- Log3($name, 4, "$name - --- Begin Function logout nonblocking ---");
-
- $httptimeout = AttrVal($name,"httptimeout",4);
- Log3($name, 5, "$name - HTTP-Call will be done with httptimeout-Value: $httptimeout s");
-
- if (AttrVal($name,"session","DSM") eq "SurveillanceStation") {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Logout&session=SurveillanceStation&_sid=$sid";
- } else {
- $url = "$proto://$serveraddr:$serverport/webapi/$apiauthpath?api=$apiauth&version=$apiauthmaxver&method=Logout&_sid=$sid";
- }
-
- $param = {
- url => $url,
- timeout => $httptimeout,
- hash => $hash,
- method => "GET",
- header => "Accept: application/json",
- callback => \&logoutReturn
- };
-
- HttpUtils_NonblockingGet ($param);
-
-return;
-}
-
-sub logoutReturn {
- my ($param, $err, $myjson) = @_;
- my $hash = $param->{hash};
- my $name = $hash->{NAME};
- my $sid = $hash->{HELPER}{SID};
- my ($success, $username) = getCredentials($hash,0,"svs");
- my $OpMode = $hash->{OPMODE};
- my $data;
- my $error;
- my $errorcode;
-
- if ($err ne "") {
- # wenn ein Fehler bei der HTTP Abfrage aufgetreten ist
- Log3($name, 2, "$name - error while requesting ".$param->{url}." - $err");
- readingsSingleUpdate($hash, "Error", $err, 1);
-
- } elsif ($myjson ne "") {
- # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
- Log3($name, 4, "$name - URL-Call: ".$param->{url});
-
- # Evaluiere ob Daten im JSON-Format empfangen wurden
- ($hash, $success) = evaljson($hash,$myjson);
-
- unless ($success) {
- Log3($name, 4, "$name - Data returned: ".$myjson);
- delActiveToken($hash);
- return;
- }
-
- $data = decode_json($myjson);
-
- # Logausgabe decodierte JSON Daten
- Log3($name, 4, "$name - JSON returned: ". Dumper $data);
-
- $success = $data->{'success'};
-
- if ($success) {
- # die Logout-URL konnte erfolgreich aufgerufen werden
- Log3($name, 2, "$name - Session of User \"$username\" terminated - session ID \"$sid\" deleted");
-
- } else {
- # Errorcode aus JSON ermitteln
- $errorcode = $data->{'error'}->{'code'};
-
- # Fehlertext zum Errorcode ermitteln
- $error = expErrorsAuth($hash,$errorcode);
-
- Log3($name, 2, "$name - ERROR - Logout of User $username was not successful, however SID: \"$sid\" has been deleted. Errorcode: $errorcode - $error");
- }
- }
- # Session-ID aus Helper-hash löschen
- delete $hash->{HELPER}{SID};
-
- # ausgeführte Funktion ist erledigt (auch wenn logout nicht erfolgreich), Freigabe Funktionstoken
- delActiveToken($hash);
-
- CancelDelayedShutdown($name);
-
-return;
-}
-
-#############################################################################################
-# Autocreate für Kameras
-# $sn = Name der Kamera in SVS
-#############################################################################################
-sub setAutocreate {
- my ($hash,$sn) = @_;
- my $name = $hash->{NAME};
- my $type = $hash->{TYPE};
-
- my ($cmd, $err, $camname, $camhash);
-
- my $dcn = (devspec2array("TYPE=SSCam:FILTER=CAMNAME=$sn"))[0]; # ist das Device aus der SVS bereits angelegt ?
- $camhash = $defs{$dcn} if($dcn); # existiert ein Hash des Devices ?
-
- if(!$camhash) {
- $camname = "SSCam.".makeDeviceName($sn); # erlaubten Kameranamen für FHEM erzeugen
- my $arg = $hash->{SERVERADDR}." ".$hash->{SERVERPORT}." ".$hash->{PROTOCOL};
- $cmd = "$camname $type $sn $arg";
- Log3($name, 2, "$name - Autocreate camera: define $cmd");
- $err = CommandDefine(undef, $cmd);
-
- if($err) {
- Log3($name, 1, "ERROR: $err");
- } else {
- my $room = AttrVal($name, "room", "SSCam");
- my $session = AttrVal($name, "session", "DSM");
- CommandAttr (undef,"$camname room $room");
- CommandAttr (undef,"$camname session $session");
- CommandAttr (undef,"$camname icon it_camera");
- CommandAttr (undef,"$camname devStateIcon .*isable.*:set_off .*nap:li_wht_on");
- CommandAttr (undef,"$camname pollcaminfoall 210");
- CommandAttr (undef,"$camname pollnologging 1");
- CommandAttr (undef,"$camname httptimeout 20");
-
- # Credentials abrufen und setzen
- my ($success, $username, $password) = getCredentials($hash,0,"svs");
- if($success) {
- CommandSet(undef, "$camname credentials $username $password");
- }
- }
-
- } else {
- Log3($name, 4, "$name - Autocreate - SVS camera \"$sn\" already defined by \"$dcn\" ");
- $camname = "";
- }
-
-return ($err,$camname);
-}
-
###############################################################################
-# Test ob JSON-String empfangen wurde
+# Parse OpMode Start
+# Die Aufnahmezeit setzen
+# wird "set on [rectime]" verwendet -> dann [rectime] nutzen,
+# sonst Attribut "rectime" wenn es gesetzt ist, falls nicht -> "RECTIME_DEF"
###############################################################################
-sub evaljson {
- my ($hash,$myjson) = @_;
- my $OpMode = $hash->{OPMODE};
- my $name = $hash->{NAME};
- my $success = 1;
-
- eval {decode_json($myjson)} or do
- {
- if( ($hash->{HELPER}{RUNVIEW} && $hash->{HELPER}{RUNVIEW} =~ m/^live_.*hls$/x) || $OpMode =~ m/^.*_hls$/x ) {
- # HLS aktivate/deaktivate bringt kein JSON wenn bereits aktiviert/deaktiviert
- Log3($name, 5, "$name - HLS-activation data return: $myjson");
- if ($myjson =~ m/{"success":true}/x) {
- $success = 1;
- $myjson = '{"success":true}';
- }
- } else {
- $success = 0;
+sub _parseStart { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $camname = $paref->{camname};
+
+ my $rectime;
- readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"Errorcode","none");
- readingsBulkUpdate($hash,"Error","malformed JSON string received");
- readingsEndUpdate($hash, 1);
- }
- };
-
-return ($hash,$success,$myjson);
-}
-
-######################################################################################################
-# Refresh eines Raumes
-# $hash, $pload (1=Page reload), SSCam-state-Event(1=Event), SSCamSTRM-Event (1=Event)
-######################################################################################################
-sub roomRefresh {
- my ($hash,$pload,$lpoll_scm,$lpoll_strm) = @_;
- my ($name,$st);
-
- if (ref $hash ne "HASH") {
- ($name,$pload,$lpoll_scm,$lpoll_strm) = split ",",$hash;
- $hash = $defs{$name};
- } else {
- $name = $hash->{NAME};
- }
-
- my $fpr = 0;
-
- # SSCamSTRM-Device mit hinterlegter FUUID ($hash->{HELPER}{INFORM}) selektieren
- my @spgs = devspec2array("TYPE=SSCamSTRM"); # alle Streaming Devices !
- my @mstd = devspec2array("TYPE=SSCamSTRM:FILTER=MODEL=master"); # alle Streaming MODEL=master Devices
- my $room = "";
-
- for my $sd (@spgs) {
- if($defs{$sd}{LINKPARENT} eq $name) {
- next if(IsDisabled($defs{$sd}{NAME}) || !$hash->{HELPER}{INFORM} || $hash->{HELPER}{INFORM} ne $defs{$sd}{FUUID});
- $fpr = AttrVal($defs{$sd}{NAME},"forcePageRefresh",0);
- $room = AttrVal($defs{$sd}{NAME},"room","");
- Log3($name, 4, qq{$name - roomRefresh - pagerefresh forced by $defs{$sd}{NAME}}) if($fpr);
- }
- }
-
- # Page-Reload
- if($pload && $room && !$fpr) {
- # nur Räume mit dem SSCamSTRM-Device reloaden
- my @rooms = split(",",$room);
- for my $r (@rooms) {
- { map { FW_directNotify("FILTER=room=$r", "#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") } ## no critic 'void context'
- }
-
- } elsif ($pload || $fpr) {
- # trifft zu bei Detailansicht oder im FLOORPLAN bzw. Dashboard oder wenn Seitenrefresh mit dem
- # SSCamSTRM-Attribut "forcePageRefresh" erzwungen wird
- { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") } ## no critic 'void context'
+ if (defined($hash->{HELPER}{RECTIME_TEMP})) {
+ $rectime = delete $hash->{HELPER}{RECTIME_TEMP};
}
+ else {
+ $rectime = AttrVal($name, "rectime", $hash->{HELPER}{RECTIME_DEF});
+ }
+
+ if ($rectime == 0) {
+ 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
+ Log3($name, 3, "$name - running recording renewed to $rectime s");
+ }
+ else {
+ Log3($name, 3, "$name - Camera $camname recording with recording time $rectime s started");
+ }
+ }
+
+ readingsBeginUpdate($hash);
+ readingsBulkUpdate ($hash, "Record", "Start");
+ readingsBulkUpdate ($hash, "state", "on" );
+ readingsBulkUpdate ($hash, "Errorcode", "none" );
+ readingsBulkUpdate ($hash, "Error", "none" );
+ readingsEndUpdate ($hash, 1);
+
+ if ($rectime != 0) { # Stop der Aufnahme nach Ablauf $rectime, wenn rectime = 0 -> endlose Aufnahme
+ my $emtxt = $hash->{HELPER}{SMTPRECMSG} // "";
+ my $teletxt = $hash->{HELPER}{TELERECMSG} // "";
+
+ RemoveInternalTimer ($hash, "FHEM::SSCam::__camStopRec");
+ InternalTimer (gettimeofday()+$rectime, "FHEM::SSCam::__camStopRec", $hash);
+ }
+
+ roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
+
+return;
+}
+
+###############################################################################
+# Parse OpMode Stop
+###############################################################################
+sub _parseStop { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $camname = $paref->{camname};
+
+ readingsBeginUpdate($hash);
+ readingsBulkUpdate ($hash, "Record", "Stop");
+ readingsBulkUpdate ($hash, "state", "off" );
+ readingsBulkUpdate ($hash, "Errorcode", "none");
+ readingsBulkUpdate ($hash, "Error" , "none");
+ readingsEndUpdate ($hash, 1);
+
+ Log3($name, 3, "$name - Camera $camname Recording stopped");
+
+ roomRefresh($hash,0,0,1); # kein Room-Refresh, kein SSCam-state-Event, SSCamSTRM-Event
+
+ # Aktualisierung Eventlist der letzten Aufnahme
+ __getEventList($hash);
+
+return;
+}
+
+###############################################################################
+# Parse OpMode GetRec
+###############################################################################
+sub _parseGetRec { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $camname = $paref->{camname};
+ my $OpMode = $paref->{OpMode};
+ my $myjson = $paref->{myjson};
+
+ 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 = openOrgetTrans($hash); # Transaktion starten
+
+ my $cache;
+ 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;
+ $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{createdTm} = $createdTm;
+ $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{fileName} = $fileName;
+ $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{tdir} = $tdir;
+ $data{SSCam}{$name}{SENDRECS}{$tac}{$sn}{imageData} = $myjson;
+ }
+ else {
+ 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");
+ }
+
+ # Recording als Email / Telegram / Chat versenden
+ if(!$cache || $cache eq "internal" ) {
+ prepareSendData ($hash, $OpMode, $data{SSCam}{$name}{SENDRECS}{$tac});
+ }
+ else {
+ prepareSendData ($hash, $OpMode, "{SENDRECS}{$tac}");
+ }
+
+ closeTrans ($hash); # Transaktion beenden
+ setReadingErrorNone( $hash, 1 );
+
+return;
+}
+
+###############################################################################
+# Parse OpMode MotDetSc
+###############################################################################
+sub _parseMotDetSc { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $camname = $paref->{camname};
+
+ my $sensitivity;
+ if ($hash->{HELPER}{MOTDETSC} eq "SVS" && keys %{$hash->{HELPER}{MOTDETOPTIONS}}) { # Optionen für "SVS" sind gesetzt
+ $sensitivity = ($hash->{HELPER}{MOTDETOPTIONS}{SENSITIVITY}) ? ($hash->{HELPER}{MOTDETOPTIONS}{SENSITIVITY}) : "-";
+ my $threshold = ($hash->{HELPER}{MOTDETOPTIONS}{THRESHOLD}) ? ($hash->{HELPER}{MOTDETOPTIONS}{THRESHOLD}) : "-";
+
+ Log3($name, 3, "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" with options sensitivity: $sensitivity, threshold: $threshold");
+
+ } elsif ($hash->{HELPER}{MOTDETSC} eq "camera" && keys %{$hash->{HELPER}{MOTDETOPTIONS}}) { # Optionen für "camera" sind gesetzt
+ $sensitivity = ($hash->{HELPER}{MOTDETOPTIONS}{SENSITIVITY}) ? ($hash->{HELPER}{MOTDETOPTIONS}{SENSITIVITY}) : "-";
+ my $objectSize = ($hash->{HELPER}{MOTDETOPTIONS}{OBJECTSIZE}) ? ($hash->{HELPER}{MOTDETOPTIONS}{OBJECTSIZE}) : "-";
+ my $percentage = ($hash->{HELPER}{MOTDETOPTIONS}{PERCENTAGE}) ? ($hash->{HELPER}{MOTDETOPTIONS}{PERCENTAGE}) : "-";
+
+ Log3($name, 3, "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" with options sensitivity: $sensitivity, objectSize: $objectSize, percentage: $percentage");
+ }
+ else { # keine Optionen Bewegungserkennung wurden gesetzt
+ Log3($name, 3, "$name - Camera $camname motion detection source set to \"$hash->{HELPER}{MOTDETSC}\" ");
+ }
+
+ setReadingErrorNone( $hash, 1 );
- # Aufnahmestatus/Disabledstatus in state abbilden & SSCam-Device state setzen (mit/ohne Event)
- $st = (ReadingsVal($name, "Availability", "enabled") eq "disabled")?"disabled":(ReadingsVal($name, "Record", "") eq "Start")?"on":"off";
- if($lpoll_scm) {
- readingsSingleUpdate($hash,"state", $st, 1);
- } else {
- readingsSingleUpdate($hash,"state", $st, 0);
+ __getMotionEnum ($hash); # neu gesetzte Parameter abrufen
+
+return;
+}
+
+###############################################################################
+# Parse OpMode getsvslog
+###############################################################################
+sub _parsegetsvslog { ## no critic "not used"
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $name = $paref->{name};
+ my $data = $paref->{data};
+
+ my $lec = $data->{'data'}{'total'}; # abgerufene Anzahl von Log-Einträgen
+
+ my $log = q{};
+ my $log0 = q{};
+ 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 = FmtDateTime($data->{'data'}->{'log'}->[$i]{'time'});
+ $log0 = $time." - ".$level." - ".$desc if($i == 0);
+ $log .= "$time - $level - $descSurveillance Station Server \"$hash->{SERVERADDR}\" Log ( $i/$lec entries are displayed )Preset positions saved of camera \"$hash->{CAMNAME}\" ".
+ "(PresetNumber => Name: ..., Speed: ..., Type: ...) ';
- $ptz_ret .= "";
- $ptz_ret .= "PTZ Control ";
- $ptz_ret .= " ";
- $ptz_ret .= "";
- $ptz_ret .= " ";
-
- for my $rownr (0..9) {
- $rownr = sprintf("%2.2d",$rownr);
- $row = AttrVal("$name","ptzPanel_row$rownr",undef);
- next if (!$row);
- $rowisset = 1;
- $ptz_ret .= "";
- my @btn = split (",",$row); # die Anzahl Buttons in einer Reihe
-
- for my $btnnr (0..$#btn) {
- $ptz_ret .= "";
- if ($btn[$btnnr] ne "") {
- my ($cmd,$img);
-
- if ($btn[$btnnr] =~ /(.*?):(.*)/x) { # enthält Komando -> :
- $cmd = $1;
- $img = $2;
-
- } else { # button has format or is empty
- $cmd = $btn[$btnnr];
- $img = $btn[$btnnr];
- }
-
- if ($img =~ m/\.svg/x) { # Verwendung für SVG's
- $img = FW_makeImage($img, $cmd, "rc-button");
-
- } else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
- if($ftui) {
- $img = "$img ";
- } else {
- $ptz_ret .= $img;
- }
- }
- $ptz_ret .= " ";
- $ptz_ret .= "\n";
- }
- $ptz_ret .= " \n";
- }
-
- ### Zoom
- ###############################
- if(IsCapZoom($hash)) { # wenn Zoom Eigenschaft
-
- $ptz_ret .= "";
- $ptz_ret .= " ";
- $ptz_ret .= "";
-
- my @za = qw(.++ + stop - --.);
-
- for my $cmd (@za) {
- $ptz_ret .= "";
-
- my $img = $zd{$cmd}{panimg};
- if(!$img) {
- $ptz_ret .= $cmd;
- $ptz_ret .= " ";
- next;
- }
-
- if ($img =~ m/\.svg/x) { # Verwendung für SVG's
- $img = FW_makeImage($img, $cmd, "rc-button");
-
- } else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
- my $iPath = FW_iconPath($img); # automatisches Suchen der Icons im FHEMWEB iconPath
- if($iPath) {
- $iPath = "$FW_ME/$FW_icondir/$iPath";
- } else {
- $iPath = "$FW_ME/$iconpath/$img";
- }
-
- if($ftui) {
- $img = "$img ";
-
- $ptz_ret .= "";
- }
-
- $ptz_ret .= " ";
- }
-
- $ptz_ret .= "
";
-
- ### add Preset / Patrols
- ###############################
- if(!$ftui) {
- my ($Presets,$Patrols);
- my $cmdPreset = "goPreset";
- my $cmdPatrol = "runPatrol";
-
- ## Presets
- for my $fn (sort keys %{$data{webCmdFn}}) {
- next if($data{webCmdFn}{$fn} ne "FW_widgetFallbackFn");
- no strict "refs"; ## no critic 'NoStrict'
- $Presets = &{$data{webCmdFn}{$fn}}($FW_wname,$name,"",$cmdPreset,$valPresets);
- use strict "refs";
- last if(defined($Presets));
- }
- if($Presets) {
- $Presets =~ s,^]*>(.*)$,$1,x;
- } else {
- $Presets = FW_pH "cmd.$name=set $name $cmdPreset", $cmdPreset, 0, "", 1, 1;
- }
-
- ## Patrols
- for my $fn (sort keys %{$data{webCmdFn}}) {
- next if($data{webCmdFn}{$fn} ne "FW_widgetFallbackFn");
- no strict "refs"; ## no critic 'NoStrict'
- $Patrols = &{$data{webCmdFn}{$fn}}($FW_wname,$name,"",$cmdPatrol,$valPatrols);
- use strict "refs";
- last if(defined($Patrols));
- }
-
- if($Patrols) {
- $Patrols =~ s,^]*>(.*)$,$1,x;
- } else {
- $Patrols = FW_pH "cmd.$name=set $name $cmdPatrol", $cmdPatrol, 0, "", 1, 1;
- }
-
- ## Ausgabe
- $ptz_ret .= '';
-
- if($valPresets) {
- $ptz_ret .= "";
- $ptz_ret .= "Preset: $Presets ";
- $ptz_ret .= " ";
- }
-
- if($valPatrols) {
- $ptz_ret .= "";
- $ptz_ret .= "Patrol: $Patrols ";
- $ptz_ret .= " ";
- }
-
- $ptz_ret .= "
";
- }
-
- if ($rowisset) {
- return $ptz_ret;
- } else {
- return "";
- }
-}
-
-###############################################################################
-# spezielle Attribute für PTZ-ControlPanel verfügbar machen
-###############################################################################
-sub addptzattr {
- my $name = shift;
- my $hash = $defs{$name};
- my $actvs;
-
- my @vl = split (/\.|-/x,ReadingsVal($name, "SVSversion", ""));
- if(@vl) {
- $actvs = $vl[0];
- $actvs.= $vl[1];
- }
- return if(ReadingsVal($name,"DeviceType","Camera") ne "PTZ" || $actvs <= 71);
-
- for my $n (0..9) {
- $n = sprintf("%2.2d",$n);
- addToDevAttrList($name, "ptzPanel_row$n");
- }
-
- my $p = ReadingsVal("$name","Presets","");
- if($p ne "") {
- my @h;
- my $arg = "ptzPanel_Home";
- my @ua = split(" ", $attr{$name}{userattr});
- for (@ua) {
- push(@h,$_) if($_ !~ m/$arg.*/x);
- }
-
- $attr{$name}{userattr} = join(' ',@h);
- addToDevAttrList($name, "ptzPanel_Home:".$p);
- }
- addToDevAttrList($name, "ptzPanel_iconPrefix");
- addToDevAttrList($name, "ptzPanel_iconPath");
- addToDevAttrList($name, "ptzPanel_use:0,1");
-
- # PTZ Panel Widget initial generieren
- my $upleftfast = "move upleft";
- my $upfast = "move up";
- my $uprightfast = "move upright";
- my $upleft = "move upleft 0.5";
- my $up = "move up 0.5";
- my $upright = "move upright 0.5";
- my $leftfast = "move left";
- my $leftslow = "move left 0.5";
- my $home = "goPreset ".AttrVal($name,"ptzPanel_Home",ReadingsVal($name,"PresetHome",""));
- my $rightslow = "move right 0.5";
- my $rightfast = "move right";
- my $downleft = "move downleft 0.5";
- my $down = "move down 0.5";
- my $downright = "move downright 0.5";
- my $downleftfast = "move downleft";
- my $downfast = "move down";
- my $downrightfast = "move downright";
-
- $attr{$name}{ptzPanel_row00} = "$upleftfast:CAMUPLEFTFAST.png,:CAMBLANK.png,$upfast:CAMUPFAST.png,:CAMBLANK.png,$uprightfast:CAMUPRIGHTFAST.png"
- if(!AttrVal($name,"ptzPanel_row00",undef));
- $attr{$name}{ptzPanel_row01} = ":CAMBLANK.png,$upleft:CAMUPLEFT.png,$up:CAMUP.png,$upright:CAMUPRIGHT.png"
- if(!AttrVal($name,"ptzPanel_row01",undef));
- $attr{$name}{ptzPanel_row02} = "$leftfast:CAMLEFTFAST.png,$leftslow:CAMLEFT.png,$home:CAMHOME.png,$rightslow:CAMRIGHT.png,$rightfast:CAMRIGHTFAST.png"
- if(!AttrVal($name,"ptzPanel_row02",undef) || $home ne $hash->{HELPER}{OLDPTZHOME});
- $attr{$name}{ptzPanel_row03} = ":CAMBLANK.png,$downleft:CAMDOWNLEFT.png,$down:CAMDOWN.png,$downright:CAMDOWNRIGHT.png"
- if(!AttrVal($name,"ptzPanel_row03",undef));
- $attr{$name}{ptzPanel_row04} = "$downleftfast:CAMDOWNLEFTFAST.png,:CAMBLANK.png,$downfast:CAMDOWNFAST.png,:CAMBLANK.png,$downrightfast:CAMDOWNRIGHTFAST.png"
- if(!AttrVal($name,"ptzPanel_row04",undef));
-
- $hash->{HELPER}{OLDPTZHOME} = $home;
- $hash->{".ptzhtml"} = ""; # ptzPanel wird neu durchlaufen
-
-return;
-}
-
######################################################################################
# Funktion für SSCamSTRM-Devices
#
@@ -8077,9 +7612,7 @@ sub streamDev { ## no critic 'comp
$cmdrefresh = "ftui.setFhemStatus('set $camname refresh STRM:$uuid')";
}
- # 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);
my ($ttmjpegrun, $tthlsrun, $ttlrrun, $tth264run, $ttlmjpegrun, $ttlsnaprun);
@@ -8097,7 +7630,8 @@ sub streamDev { ## no critic 'comp
$tth264run = $ttips_en{"tth264run"}; $tth264run =~ s/§NAME§/$calias/gx;
$ttlmjpegrun = $ttips_en{"ttlmjpegrun"}; $ttlmjpegrun =~ s/§NAME§/$calias/gx;
$ttlsnaprun = $ttips_en{"ttlsnaprun"}; $ttlsnaprun =~ s/§NAME§/$calias/gx;
- } else {
+ }
+ else {
$ttrefresh = $ttips_de{"ttrefresh"}; $ttrefresh =~ s/§NAME§/$calias/gx;
$ttrecstart = $ttips_de{"ttrecstart"}; $ttrecstart =~ s/§NAME§/$calias/gx;
$ttrecstop = $ttips_de{"ttrecstop"}; $ttrecstop =~ s/§NAME§/$calias/gx;
@@ -8140,15 +7674,15 @@ sub streamDev { ## no critic 'comp
pws => $pws,
serveraddr => $hash->{SERVERADDR},
serverport => $hash->{SERVERPORT},
- apivideostm => $hash->{HELPER}{APIVIDEOSTM},
- apivideostmpath => $hash->{HELPER}{APIVIDEOSTMPATH},
- apivideostmmaxver => $hash->{HELPER}{APIVIDEOSTMMAXVER},
- apiaudiostm => $hash->{HELPER}{APIAUDIOSTM},
- apiaudiostmpath => $hash->{HELPER}{APIAUDIOSTMPATH},
- apiaudiostmmaxver => $hash->{HELPER}{APIAUDIOSTMMAXVER},
- apivideostms => $hash->{HELPER}{APIVIDEOSTMS},
- apivideostmspath => $hash->{HELPER}{APIVIDEOSTMSPATH},
- apivideostmsmaxver => $hash->{HELPER}{APIVIDEOSTMSMAXVER},
+ apivideostm => $hash->{HELPER}{API}{VIDEOSTM}{NAME},
+ apivideostmpath => $hash->{HELPER}{API}{VIDEOSTM}{PATH},
+ apivideostmver => $hash->{HELPER}{API}{VIDEOSTM}{VER},
+ apiaudiostm => $hash->{HELPER}{API}{AUDIOSTM}{NAME},
+ apiaudiostmpath => $hash->{HELPER}{API}{AUDIOSTM}{PATH},
+ apiaudiostmver => $hash->{HELPER}{API}{AUDIOSTM}{VER},
+ apivideostms => $hash->{HELPER}{API}{VIDEOSTMS}{NAME},
+ apivideostmspath => $hash->{HELPER}{API}{VIDEOSTMS}{PATH},
+ apivideostmsver => $hash->{HELPER}{API}{VIDEOSTMS}{VER},
camid => $hash->{CAMID},
sid => $hash->{HELPER}{SID},
proto => $hash->{PROTOCOL},
@@ -8191,12 +7725,12 @@ sub streamDev { ## no critic 'comp
ttlsnaprun => $ttlsnaprun,
);
- $ret = "";
- $ret .= "";
+ $ret = "";
$ret .= '';
if($ftui) {
$ret .= "$dlink $show $dlink $show ';
@@ -8221,7 +7755,8 @@ sub streamDev { ## no critic 'comp
no strict "refs"; ## no critic 'NoStrict'
if($sdfn{$fmt}) {
$ret .= &{$sdfn{$fmt}{fn}} (\%params) if(defined &{$sdfn{$fmt}{fn}});
- } else {
+ }
+ else {
$cause = qq{Streaming of format "$fmt" is not supported};
$cause = qq{Select a Streaming client with the "adopt" command.} if($ismm);
$ret .= " $cause ";
@@ -8257,10 +7792,10 @@ sub _streamDevMJPEG { ## no critic 'complexity not
my $serverport = $params->{serverport};
my $apivideostms = $params->{apivideostms};
my $apivideostmspath = $params->{apivideostmspath};
- my $apivideostmsmaxver = $params->{apivideostmsmaxver};
+ my $apivideostmsver = $params->{apivideostmsver};
my $apiaudiostm = $params->{apiaudiostm};
my $apiaudiostmpath = $params->{apiaudiostmpath};
- my $apiaudiostmmaxver = $params->{apiaudiostmmaxver};
+ my $apiaudiostmver = $params->{apiaudiostmver};
my $cmdrecendless = $params->{cmdrecendless};
my $ttrecstart = $params->{ttrecstart};
@@ -8275,26 +7810,29 @@ sub _streamDevMJPEG { ## no critic 'complexity not
my ($link,$audiolink);
my $ret = "";
- if(ReadingsVal($camname, "SVSversion", "8.2.3-5828") eq "8.2.3-5828" && ReadingsVal($camname, "CamVideoType", "") !~ /MJPEG/x) {
+ if(ReadingsVal($camname, "SVSversion", "") eq "8.2.3-5828" && ReadingsVal($camname, "CamVideoType", "") !~ /MJPEG/x) {
$ret .= " Because SVS version 8.2.3-5828 is running you cannot play back MJPEG-Stream. Please upgrade to a higher SVS version ! $imgrecendless ";
- } else {
- # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
}
$ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
}
$ret .= " popupStream" speichern
$streamHash->{HELPER}{STREAMACTIVE} = 1 if($link); # Statusbit wenn ein Stream aktiviert ist
-
- } else {
+ }
+ else {
$cause = "no snapshot available to display";
$cause = "kein Schnappschuss zur Anzeige vorhanden" if(AttrVal("global","language","EN") =~ /DE/ix);
$ret .= " $cause ";
@@ -8445,20 +7984,15 @@ sub _streamDevGENERIC { ## no critic 'not
if(!$htag) {
$ret .= " Set attribute \"genericStrmHtmlTag\" in device $camname or in device $strmdev ";
- $ret .= '';
- $ret .= ' ';
- $ret .= '
';
- $ret .= '';
return $ret;
}
$ret .= "";
$ret .= "$htag";
- if($htag) {
- # Popup-Tag um den Popup-Teil bereinigen
+ if($htag) { # Popup-Tag um den Popup-Teil bereinigen
my $ptag = $htag;
- $ptag =~ m/^\s+?(?<)\s+?(?.*?)\s+?onClick=.*?\s+?(?>)\s+?$/s;
+ $ptag =~ m/^\s+?(?<)\s+?(?.*?)\s+?onClick=.*?\s+?(?>)\s+?$/xs;
$ptag = $+{heart} ? $+{b}.$+{heart}.$+{e} : $ptag;
$streamHash->{HELPER}{STREAM} = "$ptag"; # Stream für "set popupStream" speichern
$streamHash->{HELPER}{STREAM} =~ s/["']//gx;
@@ -8471,16 +8005,17 @@ sub _streamDevGENERIC { ## no critic 'not
Log3($strmdev, 4, "$strmdev - generic Stream params:\n$htag");
if(!$hb) {
- $ret .= "$imgrefresh ";
+ $ret .= "$imgrefresh ";
$ret .= $imgblank;
if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else { # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
}
$ret .= " ";
@@ -8546,10 +8081,6 @@ sub _streamDevHLS { ## no critic 'not
if(!$m3u8) {
$cause = "You have to specify attribute \"hlsStrmObject\" in Camera $cam !";
$ret .= " $cause ";
- $ret .= '';
- $ret .= ' ';
- $ret .= '
';
- $ret .= '';
return $ret;
}
@@ -8560,16 +8091,17 @@ sub _streamDevHLS { ## no critic 'not
$streamHash->{HELPER}{STREAMACTIVE} = 1; # Statusbit wenn ein Stream aktiviert ist
if(!$hb) {
- $ret .= "$imgrefresh ";
+ $ret .= "$imgrefresh ";
$ret .= $imgblank;
if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else { # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
}
$ret .= " ";
@@ -8626,12 +8158,12 @@ sub _streamDevSWITCHED { ## no critic 'not
my $cam = AttrVal($camname, "alias", $camname);
$cause = "Playback cam \"$cam\" switched off";
$ret .= " $cause $imgmjpegrun ";
- $ret .= "$imghlsrun " if(IsCapHLS($hash));
- $ret .= "$imglrirun ";
- $ret .= "$imglh264run ";
- $ret .= "$imglmjpegrun ";
- $ret .= "$imglsnaprun ";
+ $ret .= "$imgmjpegrun ";
+ $ret .= "$imghlsrun " if(IsCapHLS($hash));
+ $ret .= "$imglrirun ";
+ $ret .= "$imglh264run ";
+ $ret .= "$imglmjpegrun ";
+ $ret .= "$imglsnaprun ";
$ret .= " ";
return $ret;
}
@@ -8640,7 +8172,8 @@ sub _streamDevSWITCHED { ## no critic 'not
no strict "refs"; ## no critic 'NoStrict'
if($sdswfn{$wltype}) {
$ret .= &{$sdswfn{$wltype}{fn}} ($params) if(defined &{$sdswfn{$wltype}{fn}});
- } else {
+ }
+ else {
$cause = qq{Streaming of format "$wltype" is not supported};
$ret .= " $cause ";
}
@@ -8688,10 +8221,12 @@ sub __switchedIMAGE { ## no critic 'not
if(ReadingsVal($camname, "SVSversion", "8.2.3-5828") eq "8.2.3-5828" && ReadingsVal($camname, "CamVideoType", "") !~ /MJPEG/x) {
$ret .= " Because SVS version 8.2.3-5828 is running you cannot see the MJPEG-Stream. Please upgrade to a higher SVS version ! $imgstop ";
+ $ret .= "$imgstop ";
$ret .= $imgblank;
if($hash->{HELPER}{RUNVIEW} =~ /live_fw/x) {
if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else { # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
}
$ret .= " popupStream" speichern
$streamHash->{HELPER}{STREAMACTIVE} = 1; # Statusbit wenn ein Stream aktiviert ist
- $ret .= "$imgstop ";
- $ret .= "$imgrefresh ";
+ $ret .= "$imgstop ";
+ $ret .= "$imgrefresh ";
$ret .= " $imgstop ";
+ $ret .= "$imgstop ";
$ret .= "";
if($hash->{HELPER}{AUDIOLINK} && ReadingsVal($camname, "CamAudioType", "Unknown") !~ /Unknown/x && !$hau) {
@@ -8878,15 +8415,16 @@ sub __switchedBASE64IMG { ## no critic 'not
if(!$ftui) {
$ret .= " popupStream" speichern
$streamHash->{HELPER}{STREAMACTIVE} = 1; # Statusbit wenn ein Stream aktiviert ist
- $ret .= "$imgstop ";
+ $ret .= "$imgstop ";
$ret .= $imgblank;
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
$ret .= " ')\"> "; # Stream für "set popupStream" speichern
@@ -8973,18 +8512,19 @@ sub __switchedHLS { ## no critic 'not
$streamHash->{HELPER}{STREAMACTIVE} = 1; # Statusbit wenn ein Stream aktiviert ist
- $ret .= "$imgstop ";
- $ret .= "$imgrefresh ";
- $ret .= "$imghlsreact ";
+ $ret .= "$imgstop ";
+ $ret .= "$imgrefresh ";
+ $ret .= "$imghlsreact ";
$ret .= $imgblank;
if(ReadingsVal($camname, "Record", "Stop") eq "Stop") { # Aufnahmebutton endlos Start
- $ret .= "$imgrecendless ";
- } else { # Aufnahmebutton Stop
- $ret .= "$imgrecstop ";
+ $ret .= "$imgrecendless ";
+ }
+ else { # Aufnahmebutton Stop
+ $ret .= "$imgrecstop ";
}
- $ret .= "$imgdosnap ";
+ $ret .= "$imgdosnap ";
$ret .= "";
if(AttrVal($camname,"ptzPanel_use",1)) {
@@ -9001,6 +8541,145 @@ sub __switchedHLS { ## no critic 'not
return $ret;
}
+#############################################################################################
+# Autocreate für Kameras
+# $sn = Name der Kamera in SVS
+#############################################################################################
+sub doAutocreate {
+ my ($hash,$sn) = @_;
+ my $name = $hash->{NAME};
+ my $type = $hash->{TYPE};
+
+ my ($camhash, $err, $camname);
+
+ my $dcn = (devspec2array("TYPE=SSCam:FILTER=CAMNAME=$sn"))[0]; # ist das Device aus der SVS bereits angelegt ?
+ $camhash = $defs{$dcn} if($dcn); # existiert ein Hash des Devices ?
+
+ if(!$camhash) {
+ $camname = "SSCam.".makeDeviceName($sn); # erlaubten Kameranamen für FHEM erzeugen
+ my $arg = $hash->{SERVERADDR}." ".$hash->{SERVERPORT}." ".$hash->{PROTOCOL};
+ my $cmd = "$camname $type $sn $arg";
+
+ Log3($name, 2, "$name - Autocreate camera: define $cmd");
+
+ $err = CommandDefine(undef, $cmd);
+
+ if($err) {
+ Log3($name, 1, "ERROR: $err");
+ }
+ else {
+ my $room = AttrVal($name, "room", "SSCam");
+ my $session = AttrVal($name, "session", "DSM" );
+
+ CommandAttr (undef,"$camname room $room");
+ CommandAttr (undef,"$camname session $session");
+ CommandAttr (undef,"$camname icon it_camera");
+ CommandAttr (undef,"$camname devStateIcon .*isable.*:set_off .*nap:li_wht_on");
+ CommandAttr (undef,"$camname pollcaminfoall 210");
+ CommandAttr (undef,"$camname pollnologging 1");
+ CommandAttr (undef,"$camname httptimeout 20");
+
+ # Credentials abrufen und setzen
+ my ($success, $username, $password) = getCredentials($hash,0,"credentials");
+ if($success) {
+ CommandSet(undef, "$camname credentials $username $password");
+ }
+ }
+ }
+ else {
+ Log3($name, 4, "$name - Autocreate - SVS camera \"$sn\" already defined by \"$dcn\" ");
+ $camname = "";
+ }
+
+return ($err,$camname);
+}
+
+######################################################################################################
+# Refresh eines Raumes
+# $hash, $pload (1=Page reload), SSCam-state-Event(1=Event), SSCamSTRM-Event (1=Event)
+######################################################################################################
+sub roomRefresh {
+ my ($hash,$pload,$lpoll_scm,$lpoll_strm) = @_;
+ my ($name,$st);
+
+ if (ref $hash ne "HASH") {
+ ($name,$pload,$lpoll_scm,$lpoll_strm) = split ",",$hash;
+ $hash = $defs{$name};
+ }
+ else {
+ $name = $hash->{NAME};
+ }
+
+ my $fpr = 0;
+
+ # SSCamSTRM-Device mit hinterlegter FUUID ($hash->{HELPER}{INFORM}) selektieren
+ my @spgs = devspec2array("TYPE=SSCamSTRM"); # alle Streaming Devices !
+ my @mstd = devspec2array("TYPE=SSCamSTRM:FILTER=MODEL=master"); # alle Streaming MODEL=master Devices
+ my $room = "";
+
+ for my $sd (@spgs) {
+ if($defs{$sd}{LINKPARENT} eq $name) {
+ next if(IsDisabled($defs{$sd}{NAME}) || !$hash->{HELPER}{INFORM} || $hash->{HELPER}{INFORM} ne $defs{$sd}{FUUID});
+ $fpr = AttrVal($defs{$sd}{NAME},"forcePageRefresh",0);
+ $room = AttrVal($defs{$sd}{NAME},"room","");
+ Log3($name, 4, qq{$name - roomRefresh - pagerefresh forced by $defs{$sd}{NAME}}) if($fpr);
+ }
+ }
+
+ # Page-Reload
+ if($pload && $room && !$fpr) { # nur Räume mit dem SSCamSTRM-Device reloaden
+ my @rooms = split(",",$room);
+ for my $r (@rooms) {
+ { map { FW_directNotify("FILTER=room=$r", "#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") } ## no critic 'void context'
+ }
+
+ } elsif ($pload || $fpr) {
+ # trifft zu bei Detailansicht oder im FLOORPLAN bzw. Dashboard oder wenn Seitenrefresh mit dem
+ # SSCamSTRM-Attribut "forcePageRefresh" erzwungen wird
+ { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") } ## no critic 'void context'
+ }
+
+ # Aufnahmestatus/Disabledstatus in state abbilden & SSCam-Device state setzen (mit/ohne Event)
+ $st = (ReadingsVal($name, "Availability", "enabled") eq "disabled")?"disabled":(ReadingsVal($name, "Record", "") eq "Start")?"on":"off";
+ if($lpoll_scm) {
+ readingsSingleUpdate($hash,"state", $st, 1);
+ }
+ else {
+ readingsSingleUpdate($hash,"state", $st, 0);
+ }
+
+ # parentState des SSCamSTRM-Device updaten ($hash->{HELPER}{INFORM} des LINKPARENT Devices muss FUUID des Streaming Devices haben)
+ if($lpoll_strm) {
+ $st = ReadingsVal($name, "state", "initialized");
+ for my $sp (@spgs) { # $sp = ein Streaming Device aus allen Streaming Devices
+ if($defs{$sp}{LINKPARENT} eq $name) {
+ next if(IsDisabled($defs{$sp}{NAME}) || !$hash->{HELPER}{INFORM} || $hash->{HELPER}{INFORM} ne $defs{$sp}{FUUID});
+
+ readingsBeginUpdate($defs{$sp});
+ readingsBulkUpdate ($defs{$sp},"parentState", $st);
+ readingsBulkUpdate ($defs{$sp},"state", "updated");
+ readingsEndUpdate ($defs{$sp}, 1);
+
+ for my $sm (@mstd) { # Wenn Streaming Device von Streaming Master adoptiert wurde auch den Master updaten
+ next if($defs{$sm}{LINKNAME} ne $sp);
+
+ readingsBeginUpdate($defs{$sm});
+ readingsBulkUpdate ($defs{$sm},"parentState", $st);
+ readingsBulkUpdate ($defs{$sm},"state", "updated");
+ readingsEndUpdate ($defs{$sm}, 1);
+
+ Log3($name, 4, "$name - roomRefresh - caller: $sp, Master: $sm updated");
+ }
+
+ Log3($name, 4, "$name - roomRefresh - caller: $sp, FUUID: $hash->{HELPER}{INFORM}");
+ delete $hash->{HELPER}{INFORM};
+ }
+ }
+ }
+
+return;
+}
+
#############################################################################################
# hls.js laden für Streamimgdevice Typen HLS, RTSP
# $m3u8 - ein .m3u8-File oder ein entsprechender Link
@@ -9022,7 +8701,8 @@ sub bindhlsjs {
my $lib = "https://cdn.jsdelivr.net/npm/hls.js\@latest";
$ret .= "";
Log3($strmdev, 4, "$strmdev - HLS Streaming use net library \"$lib\" ");
- } else {
+ }
+ else {
$ret .= "";
Log3($strmdev, 4, "$strmdev - HLS Streaming use local file \"/fhem/pgm2/$hlsjs\" ");
}
@@ -9063,18 +8743,21 @@ sub composeGallery {
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} // 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
+ my $sgc = AttrVal ($name, "snapGalleryColumns", $defColumns); # Anzahl der Images in einer Tabellenzeile
+ my $lss = ReadingsVal ($name, "LastSnapTime", "" ); # Zeitpunkt neueste Aufnahme
+ my $lang = AttrVal ("global", "language", "EN" ); # Systemsprache
my $uuid = "";
my $hdrAlign = "center";
+
my $lupt = ((ReadingsTimestamp($name,"LastSnapTime"," ") gt ReadingsTimestamp($name,"LastUpdateTime"," "))
? ReadingsTimestamp($name,"LastSnapTime"," ")
- : ReadingsTimestamp($name,"LastUpdateTime"," ")); # letzte Aktualisierung
- $lupt =~ s/ / \/ /;
+ : ReadingsTimestamp($name,"LastUpdateTime"," ")); # letzte Aktualisierung
+ $lupt =~ s{ }{ / };
+
+ my $totalcnt = $hash->{HELPER}{TOTALCNT}; # totale in SVS vorhandene Anzahl Snaps
+ my $limit = AttrVal($name, "snapGalleryNumber", $hash->{HELPER}{SNAPLIMIT}) // $defSlim; # maximale Anzahl anzuzeigende Schnappschüsse
+ $limit = $totalcnt < $limit ? $totalcnt : $limit;
+
my ($alias,$dlink,$hb) = ("","","");
my ($cache,$imgdat,$imgTm);
@@ -9085,12 +8768,13 @@ sub composeGallery {
$alias = AttrVal($strmdev, "alias", $strmdev); # Linktext als Aliasname oder Devicename setzen
if(AttrVal($strmdev, "noLink", 0)) {
$dlink = $alias; # keine Links im Stream-Dev generieren
- } else {
+ }
+ else {
$dlink = "$alias ";
}
}
- my $cmddosnap = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name snap 1 2 STRM:$uuid')"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
+ my $cmddosnap = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name snap 1 2 STRM:$uuid')"; # Snapshot auslösen mit Kennzeichnung "by STRM-Device"
my $imgdosnap = "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 = "CAUTION - The gallery is not updated automatically. Please set the attribute \"snapGalleryBoost=1\" in device $name ";
+ $sgbnote = "ACHTUNG - Die Galerie wird nicht automatisch aktualisiert. Dazu bitte das Attribut \"snapGalleryBoost=1\" im Device $name setzen." 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 = $ttips_en{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/xg;
if(AttrVal("global","language","EN") =~ /DE/x) {
$ttsnap = $ttips_de{"ttsnap"}; $ttsnap =~ s/§NAME§/$camname/xg;
@@ -9132,16 +8813,18 @@ sub composeGallery {
if($strmdev) { # Forum: https://forum.fhem.de/index.php/topic,45671.msg975610.html#msg975610
if($ftui) {
$header .= "$dlink $camname - newest Snapshot: $lss$camname - newest Snapshot: $lss$camname - neueste Aufnahme: $lss $camname - neueste Aufnahme: $lss $header
";
$htmlCode .= '
';
$htmlCode .= "";
@@ -9162,10 +8844,24 @@ sub composeGallery {
my $cell = 1;
my $idata = "";
- $cache = cache($name, "c_init"); # Cache initialisieren
+ # Bildaten aus Cache abrufen
+ ############################
+ my $count;
+ $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" ) {
+ $count = scalar keys %{$data{SSCam}{$name}{SNAPHASH}} // 0; # Anzahl Bilddaten im Cache
+ $htmlCode =~ s{_LIMIT_}{$count}xms; # Platzhalter Snapanzahl im Header mit realem Wert ersetzen
+ my $i = 1;
+
for my $key (sort{$a<=>$b}keys %{$data{SSCam}{$name}{SNAPHASH}}) {
+ if($i > $limit) {
+ $count = $limit;
+ last;
+ }
+
if(!$ftui) {
$idata = "onClick=\"FW_okDialog('";
$cell = 1;
- } else {
+ }
+ else {
$htmlCode .= sprintf("$data{SSCam}{$name}{SNAPHASH}{$key}{createdTm} " );
}
$idata = "";
+ $i++;
}
-
- } else {
+ }
+ else {
my @as;
for my $ck (cache($name, "c_getkeys")) { # relevant keys aus allen vorkommenden selektieren
next if $ck !~ /\{SNAPHASH\}\{\d+\}\{.*\}/x;
$ck =~ s/\{SNAPHASH\}\{(\d+)\}\{.*\}/$1/x;
push @as,$ck if($ck =~ /^\d+$/x);
- }
+ }
+
my %seen;
- my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys
+ my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys
+ $count = scalar @unique // 0; # Anzahl Bilddaten im Cache
+ $htmlCode =~ s{_LIMIT_}{$count}xms; # Platzhalter Snapanzahl im Header mit realem Wert ersetzen
+ my $i = 1;
for my $key (@unique) {
+ if($i > $limit) {
+ $count = $limit;
+ last;
+ }
+
$imgdat = cache($name, "c_read", "{SNAPHASH}{$key}{imageData}");
$imgTm = cache($name, "c_read", "{SNAPHASH}{$key}{createdTm}");
+
if(!$ftui) {
$idata = "onClick=\"FW_okDialog(' ";
$htmlCode .= "";
$cell = 1;
- } else {
+ }
+ else {
$htmlCode .= sprintf("$imgTm " );
}
$idata = "";
+ $i++;
}
}
@@ -9223,11 +8933,11 @@ sub composeGallery {
if(!$hb) {
$htmlCode .= " ";
$htmlCode .= "";
- $htmlCode .= "$imgdosnap " if($strmdev);
+ $htmlCode .= "$imgdosnap " if($strmdev);
$htmlCode .= " ";
$htmlCode .= " ";
}
-
+
$htmlCode .= " ";
$htmlCode .= "
";
$htmlCode .= "
-################################################################
-sub sortVersion {
- my ($sseq,@versions) = @_;
-
- my @sorted = map {$_->[0]}
- sort {$a->[1] cmp $b->[1]}
- map {[$_, pack "C*", split /\./x]} @versions;
-
- @sorted = map {join ".", unpack "C*", $_}
- sort
- map {pack "C*", split /\./x} @versions;
-
- if($sseq eq "desc") {
- @sorted = reverse @sorted;
+ if(!AttrVal($name,"snapGalleryBoost",0)) {
+ $slim = 1;
+ $ssize = 0;
+ }
+ else {
+ $hash->{HELPER}{GETSNAPGALLERY} = 1;
+ $slim = AttrVal($name,"snapGalleryNumber",$defSlim); # Anzahl der abzurufenden Snaps
}
-return @sorted;
+ if(AttrVal($name,"snapGallerySize","Icon") eq "Full") {
+ $ssize = 2; # Full Size
+ }
+ else {
+ $ssize = 1; # Icon Size
+ }
+
+ if($hash->{HELPER}{CANSENDSNAP} || $hash->{HELPER}{CANTELESNAP} || $hash->{HELPER}{CANCHATSNAP}) {
+ # Versand Schnappschuß darf erfolgen falls gewünscht
+ $ssize = 2; # Full Size für EMail/Telegram/SSChatBot -Versand
+ }
+
+ if($hash->{HELPER}{SNAPNUM}) {
+ $slim = delete $hash->{HELPER}{SNAPNUM}; # enthält die Anzahl der ausgelösten Schnappschüsse
+ $hash->{HELPER}{GETSNAPGALLERY} = 1; # Steuerbit für Snap-Galerie bzw. Daten mehrerer Schnappschüsse abrufen
+ }
+
+ my @strmdevs = devspec2array("TYPE=SSCamSTRM:FILTER=PARENT=$name:FILTER=MODEL=lastsnap");
+ if(scalar(@strmdevs) >= 1) {
+ Log3($name, 4, "$name - Streaming devs of type \"lastsnap\": @strmdevs");
+ }
+
+ $hash->{HELPER}{GETSNAPGALLERY} = 1 if($force); # Bugfix 04.03.2019 Forum:https://forum.fhem.de/index.php/topic,45671.msg914685.html#msg914685
+
+return ($slim,$ssize);
+}
+
+###############################################################################
+# Helper für listLog-Argumente extrahieren
+###############################################################################
+sub extlogargs {
+ my ($hash,$a) = @_;
+
+ $hash->{HELPER}{LISTLOGSEVERITY} = (split("severity:",$a))[1] if(lc($a) =~ m/^severity:/x);
+ $hash->{HELPER}{LISTLOGLIMIT} = (split("limit:",$a))[1] if(lc($a) =~ m/^limit:/x);
+ $hash->{HELPER}{LISTLOGMATCH} = (split("match:",$a))[1] if(lc($a) =~ m/^match:/x);
+
+return;
+}
+
+###############################################################################
+# konvertiere alle ptzPanel_rowXX-attribute zu html-Code für
+# das generierte Widget und das weblink-Device ptzPanel_$name
+###############################################################################
+sub ptzPanel {
+ my $paref = shift;
+ my $name = $paref->{linkparent};
+ my $ptzcdev = $paref->{linkname};
+ my $ftui = $paref->{ftui};
+
+ my $hash = $defs{$name};
+ my $iconpath = AttrVal ("$name", "ptzPanel_iconPath", "www/images/sscam");
+ my $iconprefix = AttrVal ("$name", "ptzPanel_iconPrefix", "black_btn_" );
+ my $valPresets = ReadingsVal("$name", "Presets", "" );
+ my $valPatrols = ReadingsVal("$name", "Patrols", "" );
+ my $rowisset = 0;
+ my ($pbs,$pbsf) = ("","");
+ my ($row,$ptz_ret);
+
+ return "" if(myVersion($hash) <= 71);
+
+ $pbs = AttrVal($ptzcdev,"ptzButtonSize", 100); # Größe der Druckbuttons in %
+ $pbsf = AttrVal($ptzcdev,"ptzButtonSizeFTUI", 100); # Größe der Druckbuttons im FTUI in %
+
+ $ptz_ret = "";
+ $ptz_ret .= "";
+ $ptz_ret .= "";
+ $ptz_ret .= "";
+
+ ### PTZ-Elemente
+ #########################
+ $ptz_ret .= '';
+ $ptz_ret .= "";
+ $ptz_ret .= "PTZ Control ";
+ $ptz_ret .= " ";
+ $ptz_ret .= "";
+ $ptz_ret .= " ";
+
+ for my $rownr (0..9) {
+ $rownr = sprintf("%2.2d",$rownr);
+ $row = AttrVal("$name","ptzPanel_row$rownr",undef);
+ next if (!$row);
+ $rowisset = 1;
+ $ptz_ret .= "";
+ my @btn = split (",",$row); # die Anzahl Buttons in einer Reihe
+
+ for my $btnnr (0..$#btn) {
+ $ptz_ret .= "";
+ if ($btn[$btnnr] ne "") {
+ my ($cmd,$img);
+
+ if ($btn[$btnnr] =~ /(.*?):(.*)/x) { # enthält Komando -> :
+ $cmd = $1;
+ $img = $2;
+ }
+ else { # button has format or is empty
+ $cmd = $btn[$btnnr];
+ $img = $btn[$btnnr];
+ }
+
+ if ($img =~ m/\.svg/x) { # Verwendung für SVG's
+ $img = FW_makeImage($img, $cmd, "rc-button");
+ }
+ else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
+ if($ftui) {
+ $img = "$img ";
+ }
+ else {
+ $ptz_ret .= $img;
+ }
+ }
+ $ptz_ret .= " ";
+ $ptz_ret .= "\n";
+ }
+ $ptz_ret .= " \n";
+ }
+
+ ### Zoom
+ ###############################
+ if(IsCapZoom($hash)) { # wenn Zoom Eigenschaft
+
+ $ptz_ret .= "";
+ $ptz_ret .= " ";
+ $ptz_ret .= "";
+
+ my @za = qw(.++ + stop - --.);
+
+ for my $cmd (@za) {
+ $ptz_ret .= "";
+
+ my $img = $zd{$cmd}{panimg};
+ if(!$img) {
+ $ptz_ret .= $cmd;
+ $ptz_ret .= " ";
+ next;
+ }
+
+ if ($img =~ m/\.svg/x) { # Verwendung für SVG's
+ $img = FW_makeImage($img, $cmd, "rc-button");
+ }
+ else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
+ my $iPath = FW_iconPath($img); # automatisches Suchen der Icons im FHEMWEB iconPath
+ if($iPath) {
+ $iPath = "$FW_ME/$FW_icondir/$iPath";
+ }
+ else {
+ $iPath = "$FW_ME/$iconpath/$img";
+ }
+
+ if($ftui) {
+ $img = "$img ";
+
+ $ptz_ret .= "";
+ }
+
+ $ptz_ret .= " ";
+ }
+
+ $ptz_ret .= "
";
+
+ ### add Preset / Patrols
+ ###############################
+ if(!$ftui) {
+ my ($Presets,$Patrols);
+ my $cmdPreset = "goPreset";
+ my $cmdPatrol = "runPatrol";
+
+ ## Presets
+ for my $fn (sort keys %{$data{webCmdFn}}) {
+ next if($data{webCmdFn}{$fn} ne "FW_widgetFallbackFn");
+ no strict "refs"; ## no critic 'NoStrict'
+ $Presets = &{$data{webCmdFn}{$fn}}($FW_wname,$name,"",$cmdPreset,$valPresets);
+ use strict "refs";
+ last if(defined($Presets));
+ }
+ if($Presets) {
+ $Presets =~ s,^]*>(.*)$,$1,x;
+ }
+ else {
+ $Presets = FW_pH "cmd.$name=set $name $cmdPreset", $cmdPreset, 0, "", 1, 1;
+ }
+
+ ## Patrols
+ for my $fn (sort keys %{$data{webCmdFn}}) {
+ next if($data{webCmdFn}{$fn} ne "FW_widgetFallbackFn");
+ no strict "refs"; ## no critic 'NoStrict'
+ $Patrols = &{$data{webCmdFn}{$fn}}($FW_wname,$name,"",$cmdPatrol,$valPatrols);
+ use strict "refs";
+ last if(defined($Patrols));
+ }
+
+ if($Patrols) {
+ $Patrols =~ s,^]*>(.*)$,$1,x;
+ }
+ else {
+ $Patrols = FW_pH "cmd.$name=set $name $cmdPatrol", $cmdPatrol, 0, "", 1, 1;
+ }
+
+ ## Ausgabe
+ $ptz_ret .= '';
+
+ if($valPresets) {
+ $ptz_ret .= "";
+ $ptz_ret .= "Preset: $Presets ";
+ $ptz_ret .= " ";
+ }
+
+ if($valPatrols) {
+ $ptz_ret .= "";
+ $ptz_ret .= "Patrol: $Patrols ";
+ $ptz_ret .= " ";
+ }
+
+ $ptz_ret .= "
";
+ }
+
+ if ($rowisset) {
+ return $ptz_ret;
+ }
+ else {
+ return "";
+ }
+}
+
+###############################################################################
+# spezielle Attribute für PTZ-ControlPanel verfügbar machen
+###############################################################################
+sub addptzattr {
+ my $name = shift;
+ my $hash = $defs{$name};
+
+ my $actvs;
+
+ my @vl = split (/\.|-/x,ReadingsVal($name, "SVSversion", ""));
+ if(@vl) {
+ $actvs = $vl[0];
+ $actvs.= $vl[1];
+ }
+ return if(ReadingsVal($name,"DeviceType","Camera") ne "PTZ" || $actvs <= 71);
+
+ for my $n (0..9) {
+ $n = sprintf("%2.2d",$n);
+ addToDevAttrList($name, "ptzPanel_row$n");
+ }
+
+ my $p = ReadingsVal($name, "Presets", "");
+ if($p ne "") {
+ my @h;
+ my $arg = "ptzPanel_Home";
+ my @ua = split " ", AttrVal($name, "userattr", "");
+ for my $part (@ua) {
+ push(@h,$part) if($part !~ m/$arg.*/x);
+ }
+
+ $attr{$name}{userattr} = join(' ',@h);
+ addToDevAttrList($name, "ptzPanel_Home:".$p);
+ }
+ addToDevAttrList($name, "ptzPanel_iconPrefix");
+ addToDevAttrList($name, "ptzPanel_iconPath");
+ addToDevAttrList($name, "ptzPanel_use:0,1");
+
+ # PTZ Panel Widget initial generieren
+ my $upleftfast = "move upleft";
+ my $upfast = "move up";
+ my $uprightfast = "move upright";
+ my $upleft = "move upleft 0.5";
+ my $up = "move up 0.5";
+ my $upright = "move upright 0.5";
+ my $leftfast = "move left";
+ my $leftslow = "move left 0.5";
+ my $home = "goPreset ".AttrVal($name, "ptzPanel_Home", ReadingsVal($name,"PresetHome",""));
+ my $rightslow = "move right 0.5";
+ my $rightfast = "move right";
+ my $downleft = "move downleft 0.5";
+ my $down = "move down 0.5";
+ my $downright = "move downright 0.5";
+ my $downleftfast = "move downleft";
+ my $downfast = "move down";
+ my $downrightfast = "move downright";
+
+ $attr{$name}{ptzPanel_row00} = "$upleftfast:CAMUPLEFTFAST.png,:CAMBLANK.png,$upfast:CAMUPFAST.png,:CAMBLANK.png,$uprightfast:CAMUPRIGHTFAST.png"
+ if(!AttrVal($name,"ptzPanel_row00",undef));
+ $attr{$name}{ptzPanel_row01} = ":CAMBLANK.png,$upleft:CAMUPLEFT.png,$up:CAMUP.png,$upright:CAMUPRIGHT.png"
+ if(!AttrVal($name,"ptzPanel_row01",undef));
+ $attr{$name}{ptzPanel_row02} = "$leftfast:CAMLEFTFAST.png,$leftslow:CAMLEFT.png,$home:CAMHOME.png,$rightslow:CAMRIGHT.png,$rightfast:CAMRIGHTFAST.png"
+ if(!AttrVal($name,"ptzPanel_row02",undef) || $home ne $hash->{HELPER}{OLDPTZHOME});
+ $attr{$name}{ptzPanel_row03} = ":CAMBLANK.png,$downleft:CAMDOWNLEFT.png,$down:CAMDOWN.png,$downright:CAMDOWNRIGHT.png"
+ if(!AttrVal($name,"ptzPanel_row03",undef));
+ $attr{$name}{ptzPanel_row04} = "$downleftfast:CAMDOWNLEFTFAST.png,:CAMBLANK.png,$downfast:CAMDOWNFAST.png,:CAMBLANK.png,$downrightfast:CAMDOWNRIGHTFAST.png"
+ if(!AttrVal($name,"ptzPanel_row04",undef));
+
+ $hash->{HELPER}{OLDPTZHOME} = $home;
+ $hash->{".ptzhtml"} = ""; # ptzPanel wird neu eingelesen
+
+return;
}
##############################################################################
@@ -9315,11 +9305,14 @@ sub rotateReading {
for (my $i=$rotnum;$i>0;$i--) {
my $l = $i-1;
my $g = ReadingsVal($name,$readingName.$i,"n.a.");
+
if($l) {
$l = ReadingsVal($name,$readingName.$l,"n.a.");
- } else {
+ }
+ else {
$l = ReadingsVal($name,$readingName,"n.a.");
}
+
if("$l" ne "$g") {
readingsBulkUpdate($hash,$readingName.$i,$l);
Log3($name, 4, "$name - Rotate \"$readingName.$i\" to value: $l");
@@ -9350,361 +9343,332 @@ sub prepareSendData {
# prüfen ob Schnappschnüsse aller Kameras durch ein SVS-Device angefordert wurde,
# Bilddaten jeder Kamera werden nach Erstellung dem zentralen Schnappshußhash hinzugefügt
# Bilddaten werden erst zum Versand weitergeleitet wenn Schnappshußhash komplett gefüllt ist
+
my $asref;
my @allsvs = devspec2array("TYPE=SSCam:FILTER=MODEL=SVS");
- for (@allsvs) {
+
+ for my $svs (@allsvs) {
my $svshash;
- $svshash = $defs{$_} if($defs{$_});
- next if(!$svshash || !AttrVal($_, "snapEmailTxt", "") || !$svshash->{HELPER}{CANSENDSNAP}); # Sammel-Schnappschüsse nur senden wenn CANSENDSNAP und Attribut gesetzt ist
- if($svshash->{HELPER}{ALLSNAPREF}) {
- $asref = $svshash->{HELPER}{ALLSNAPREF}; # Hashreferenz zum summarischen Snaphash
- for my $key (keys%{$asref}) {
- if($key eq $name) { # Kamera Key im Bildhash matcht -> Bilddaten übernehmen
- if($type eq "internal") {
- for my $pkey (keys%{$dat}) {
- my $nkey = time()+int(rand(1000));
- $asref->{$nkey.$pkey}{createdTm} = $dat->{$pkey}{createdTm}; # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
- $asref->{$nkey.$pkey}{imageData} = $dat->{$pkey}{imageData}; # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
- $asref->{$nkey.$pkey}{fileName} = $dat->{$pkey}{fileName}; # Filenamen der Kamera werden im summarischen Snaphash eingefügt
- Log3($_, 4, "$_ - Central Snaphash filled up with snapdata of cam \"$name\" and key [".$nkey.$pkey."]");
- }
-
- } else {
- # alle Serial Numbers "{$sn}" der Transaktion ermitteln
- # Muster: {SENDSNAPS}{2222}{0}{imageData}
- extractTIDfromCache ( { name => $name,
- media => "SENDSNAPS",
- mode => "serial",
- aref => \@as
- }
- );
- my %seen;
- my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys
-
- for my $pkey (@unique) {
- next if(!cache($name, "c_isvalidkey", "$dat"."{$pkey}{imageData}"));
- my $nkey = time()+int(rand(1000));
- $asref->{$nkey.$pkey}{createdTm} = cache($name, "c_read", "$dat"."{$pkey}{createdTm}"); # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
- $asref->{$nkey.$pkey}{imageData} = cache($name, "c_read", "$dat"."{$pkey}{imageData}"); # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
- $asref->{$nkey.$pkey}{fileName} = cache($name, "c_read", "$dat"."{$pkey}{fileName}"); # Filenamen der Kamera werden im summarischen Snaphash eingefügt
- Log3($_, 4, "$_ - Central Snaphash filled up with snapdata of cam \"$name\" and key [".$nkey.$pkey."]");
- }
- }
- delete $hash->{HELPER}{CANSENDSNAP}; # Flag im Kamera-Device !! löschen
- delete $asref->{$key}; # ursprünglichen Key (Kameranamen) löschen
- }
- }
- $asref = $svshash->{HELPER}{ALLSNAPREF}; # Hashreferenz zum summarischen Snaphash
- for my $key (keys%{$asref}) { # prüfen ob Bildhash komplett ?
- if(!$asref->{$key}) {
- return; # Bildhash noch nicht komplett
- }
- }
+ $svshash = $defs{$svs} if($defs{$svs});
+ next if(!$svshash ||
+ !AttrVal($svs, "snapEmailTxt", "") ||
+ !$svshash->{HELPER}{ALLSNAPREF} ||
+ !$svshash->{HELPER}{CANSENDSNAP}); # Sammel-Schnappschüsse nur senden wenn CANSENDSNAP und Attribut gesetzt ist
- delete $svshash->{HELPER}{ALLSNAPREF}; # ALLSNAPREF löschen -> gemeinsamer Versand beendet
- $hash = $svshash; # Hash durch SVS-Hash ersetzt
- $name = $svshash->{NAME}; # Name des auslösenden SVS-Devices wird eingesetzt
- Log3($name, 4, "$name - Central Snaphash fillup completed by all selected cams. Send it now ...");
-
- my $cache = cache($name, "c_init"); # Cache initialisieren (im SVS Device)
- if(!$cache || $cache eq "internal" ) {
- delete $data{SSCam}{RS};
- for my $key (keys%{$asref}) { # Referenz zum summarischen Hash einsetzen
- $data{SSCam}{RS}{$key} = delete $asref->{$key};
- }
- $dat = $data{SSCam}{RS}; # Referenz zum summarischen Hash einsetzen
- } else {
- cache($name, "c_clear");
- for my $key (keys%{$asref}) {
- cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{createdTm}", delete $asref->{$key}{createdTm});
- cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{imageData}", delete $asref->{$key}{imageData});
- cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{fileName}", delete $asref->{$key}{fileName});
- }
- $dat = "{RS}{multiple_snapsend}"; # Referenz zum summarischen Hash einsetzen
+ $asref = $svshash->{HELPER}{ALLSNAPREF}; # Hashreferenz zum summarischen Snaphash
+
+ for my $key (keys%{$asref}) {
+ if($key eq $name) { # Kamera Key im Bildhash matcht -> Bilddaten übernehmen
+ if($type eq "internal") {
+
+ for my $pkey (keys%{$dat}) {
+ my $nkey = time()+int(rand(1000));
+
+ $asref->{$nkey.$pkey}{createdTm} = $dat->{$pkey}{createdTm}; # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
+ $asref->{$nkey.$pkey}{imageData} = $dat->{$pkey}{imageData}; # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
+ $asref->{$nkey.$pkey}{fileName} = $dat->{$pkey}{fileName}; # Filenamen der Kamera werden im summarischen Snaphash eingefügt
+
+ Log3($svs, 4, "$svs - Central Snaphash filled up with snapdata of cam \"$name\" and key [".$nkey.$pkey."]");
+ }
+ }
+ else {
+ # alle Serial Numbers "{$sn}" der Transaktion ermitteln
+ # Muster: {SENDSNAPS}{2222}{0}{imageData}
+ extractTIDfromCache ( { name => $name,
+ media => "SENDSNAPS",
+ mode => "serial",
+ aref => \@as
+ }
+ );
+ my %seen;
+ my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys
+
+ for my $pkey (@unique) {
+ next if(!cache($name, "c_isvalidkey", "$dat"."{$pkey}{imageData}"));
+ my $nkey = time()+int(rand(1000));
+
+ $asref->{$nkey.$pkey}{createdTm} = cache($name, "c_read", "$dat"."{$pkey}{createdTm}"); # Aufnahmezeit der Kamera werden im summarischen Snaphash eingefügt
+ $asref->{$nkey.$pkey}{imageData} = cache($name, "c_read", "$dat"."{$pkey}{imageData}"); # Bilddaten der Kamera werden im summarischen Snaphash eingefügt
+ $asref->{$nkey.$pkey}{fileName} = cache($name, "c_read", "$dat"."{$pkey}{fileName}"); # Filenamen der Kamera werden im summarischen Snaphash eingefügt
+
+ Log3($svs, 4, "$svs - Central Snaphash filled up with snapdata of cam \"$name\" and key [".$nkey.$pkey."]");
+ }
+ }
+
+ delete $hash->{HELPER}{CANSENDSNAP}; # Flag im Kamera-Device !! löschen
+ delete $asref->{$key}; # ursprünglichen Key (Kameranamen) löschen
}
-
- $calias = AttrVal($name,"alias",$hash->{NAME}); # Alias des SVS-Devices
- $hash->{HELPER}{TRANSACTION} = "multiple_snapsend"; # fake Transaction im SVS Device setzen
- last; # Schleife verlassen und mit Senden weiter
}
+ $asref = $svshash->{HELPER}{ALLSNAPREF}; # Hashreferenz zum summarischen Snaphash
+
+ for my $key (keys%{$asref}) { # prüfen ob Bildhash komplett ?
+ if(!$asref->{$key}) {
+ return; # Bildhash noch nicht komplett
+ }
+ }
+
+ delete $svshash->{HELPER}{ALLSNAPREF}; # ALLSNAPREF löschen -> gemeinsamer Versand beendet
+ $hash = $svshash; # Hash durch SVS-Hash ersetzt
+ $name = $svshash->{NAME}; # Name des auslösenden SVS-Devices wird eingesetzt
+
+ Log3($name, 4, "$name - Central Snaphash fillup completed by all selected cams. Send it now ...");
+
+ my $cache = cache($name, "c_init"); # Cache initialisieren (im SVS Device)
+
+ if(!$cache || $cache eq "internal" ) {
+ delete $data{SSCam}{RS};
+ for my $key (keys%{$asref}) { # Referenz zum summarischen Hash einsetzen
+ $data{SSCam}{RS}{$key} = delete $asref->{$key};
+ }
+ $dat = $data{SSCam}{RS}; # Referenz zum summarischen Hash einsetzen
+ }
+ else {
+ cache($name, "c_clear");
+ for my $key (keys%{$asref}) {
+ cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{createdTm}", delete $asref->{$key}{createdTm});
+ cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{imageData}", delete $asref->{$key}{imageData});
+ cache($name, "c_write", "{RS}{multiple_snapsend}{$key}{fileName}", delete $asref->{$key}{fileName});
+ }
+ $dat = "{RS}{multiple_snapsend}"; # Referenz zum summarischen Hash einsetzen
+ }
+
+ $calias = AttrVal($name,"alias",$hash->{NAME}); # Alias des SVS-Devices
+ $hash->{HELPER}{TRANSACTION} = "multiple_snapsend"; # fake Transaction im SVS Device setzen
+ last; # Schleife verlassen und mit Senden weiter
}
my $sp = AttrVal($name, "smtpPort", 25);
my $nousessl = AttrVal($name, "smtpNoUseSSL", 0);
+
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
- my $date = sprintf "%02d.%02d.%04d" , $mday , $mon+=1 ,$year+=1900;
- my $time = sprintf "%02d:%02d:%02d" , $hour , $min , $sec;
+
+ my $date = sprintf "%02d.%02d.%04d" , $mday , $mon+=1 ,$year+=1900;
+ my $time = sprintf "%02d:%02d:%02d" , $hour , $min , $sec;
my $sslfrominit = 0;
my $smtpsslport = 465;
+
if(AttrVal($name,"smtpSSLPort",0)) {
$sslfrominit = 1;
$smtpsslport = AttrVal($name,"smtpSSLPort",0);
}
- $tac = $hash->{HELPER}{TRANSACTION}; # Code der laufenden Transaktion
+ $tac = $hash->{HELPER}{TRANSACTION}; # Code der laufenden Transaktion
+
+ $data{SSCam}{$name}{SENDCOUNT}{$tac} = 0; # Hilfszähler Senden, init -> +1 , done -> -1, keine Daten
+ # d. Transaktion werden gelöscht bis Zähler wieder 0 !! (siehe closeTrans)
- $data{SSCam}{$name}{SENDCOUNT}{$tac} = 0; # Hilfszähler Senden, init -> +1 , done -> -1, keine Daten
- # d. Transaktion werden gelöscht bis Zähler wieder 0 !! (siehe closeTrans)
Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
### Schnappschüsse als Email versenden wenn $hash->{HELPER}{CANSENDSNAP} definiert ist
+ ######################################################################################
if($OpMode =~ /^getsnap/x && $hash->{HELPER}{CANSENDSNAP}) {
delete $hash->{HELPER}{CANSENDSNAP};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- my $mt = delete $hash->{HELPER}{SMTPMSG};
- $mt =~ s/['"]//xg;
- my($subj,$body) = split(",", $mt, 2);
- my($subjk,$subjt) = split("=>", $subj);
- my($bodyk,$bodyt) = split("=>", $body);
- $subjk = trim($subjk);
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- $bodyk = trim($bodyk);
- $bodyt = trim($bodyt);
- $bodyt =~ s/\$CAM/$calias/gx;
- $bodyt =~ s/\$DATE/$date/gx;
- $bodyt =~ s/\$TIME/$time/gx;
- my %smtpmsg = ();
- $smtpmsg{$subjk} = "$subjt";
- $smtpmsg{$bodyk} = "$bodyt";
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
+ my $mt = delete $hash->{HELPER}{SMTPMSG};
+
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $smtpmsg = _prepSendMail ($param);
- $ret = sendEmail($hash, {'subject' => $smtpmsg{subject},
- 'part1txt' => $smtpmsg{body},
- 'part2type' => 'image/jpeg',
- 'smtpport' => $sp,
- 'sdat' => $dat,
- 'opmode' => $OpMode,
- 'smtpnousessl' => $nousessl,
- 'sslfrominit' => $sslfrominit,
- 'smtpsslport' => $smtpsslport,
- 'tac' => $tac,
- }
- );
+ $ret = _sendEmail($hash, {
+ 'subject' => $smtpmsg->{subject},
+ 'part1txt' => $smtpmsg->{body},
+ 'part2type' => 'image/jpeg',
+ 'smtpport' => $sp,
+ 'sdat' => $dat,
+ 'opmode' => $OpMode,
+ 'smtpnousessl' => $nousessl,
+ 'sslfrominit' => $sslfrominit,
+ 'smtpsslport' => $smtpsslport,
+ 'tac' => $tac,
+ }
+ );
+
readingsSingleUpdate($hash, "sendEmailState", $ret, 1) if ($ret);
}
### Aufnahmen als Email versenden wenn $hash->{HELPER}{CANSENDREC} definiert ist
+ ################################################################################
if($OpMode =~ /^GetRec/x && $hash->{HELPER}{CANSENDREC}) {
delete $hash->{HELPER}{CANSENDREC};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- my $mt = delete $hash->{HELPER}{SMTPRECMSG};
- $mt =~ s/['"]//gx;
- my($subj,$body) = split(",", $mt, 2);
- my($subjk,$subjt) = split("=>", $subj);
- my($bodyk,$bodyt) = split("=>", $body);
- $subjk = trim($subjk);
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- $bodyk = trim($bodyk);
- $bodyt = trim($bodyt);
- $bodyt =~ s/\$CAM/$calias/gx;
- $bodyt =~ s/\$DATE/$date/gx;
- $bodyt =~ s/\$TIME/$time/gx;
- my %smtpmsg = ();
- $smtpmsg{$subjk} = "$subjt";
- $smtpmsg{$bodyk} = "$bodyt";
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
+ my $mt = delete $hash->{HELPER}{SMTPRECMSG};
+
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $smtpmsg = _prepSendMail ($param);
- $ret = sendEmail($hash, {'subject' => $smtpmsg{subject},
- 'part1txt' => $smtpmsg{body},
- 'part2type' => 'video/mpeg',
- 'smtpport' => $sp,
- 'vdat' => $dat,
- 'opmode' => $OpMode,
- 'smtpnousessl' => $nousessl,
- 'sslfrominit' => $sslfrominit,
- 'smtpsslport' => $smtpsslport,
- 'tac' => $tac,
- }
- );
+ $ret = _sendEmail($hash, {
+ 'subject' => $smtpmsg->{subject},
+ 'part1txt' => $smtpmsg->{body},
+ 'part2type' => 'video/mpeg',
+ 'smtpport' => $sp,
+ 'vdat' => $dat,
+ 'opmode' => $OpMode,
+ 'smtpnousessl' => $nousessl,
+ 'sslfrominit' => $sslfrominit,
+ 'smtpsslport' => $smtpsslport,
+ 'tac' => $tac,
+ }
+ );
+
readingsSingleUpdate($hash, "sendEmailState", $ret, 1) if ($ret);
}
### Schnappschüsse mit Telegram versenden
+ #########################################
if($OpMode =~ /^getsnap/x && $hash->{HELPER}{CANTELESNAP}) {
# snapTelegramTxt aus $hash->{HELPER}{TELEMSG}
# Format in $hash->{HELPER}{TELEMSG} muss sein: tbot => , peers => , subject =>
delete $hash->{HELPER}{CANTELESNAP};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- my $mt = delete $hash->{HELPER}{TELEMSG};
- $mt =~ s/['"]//gx;
-
- my ($tbotk,$tbott,$peerk,$peert,$subjk,$subjt);
- my ($telebot,$peers,$subj) = split(",", $mt, 3 );
- ($tbotk,$tbott) = split("=>", $telebot) if($telebot);
- ($peerk,$peert) = split("=>", $peers ) if($peers);
- ($subjk,$subjt) = split("=>", $subj ) if($subj);
-
- $tbotk = trim($tbotk) if($tbotk);
- $tbott = trim($tbott) if($tbott);
- $peerk = trim($peerk) if($peerk);
- $peert = trim($peert) if($peert);
- $subjk = trim($subjk) if($subjk);
- if($subjt) {
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- }
- my %telemsg = ();
- $telemsg{$tbotk} = "$tbott" if($tbott);
- $telemsg{$peerk} = "$peert" if($peert);
- $telemsg{$subjk} = "$subjt" if($subjt);
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
+ my $mt = delete $hash->{HELPER}{TELEMSG};
+
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $telemsg = _prepSendTelegram ($param);
- $ret = sendTelegram($hash, {'subject' => $telemsg{subject},
- 'part2type' => 'image/jpeg',
- 'sdat' => $dat,
- 'opmode' => $OpMode,
- 'tac' => $tac,
- 'telebot' => $telemsg{$tbotk},
- 'peers' => $telemsg{$peerk},
- 'MediaStream' => '-1', # Code für MediaStream im TelegramBot (png/jpg = -1)
- }
- );
+ $ret = _sendTelegram($hash, {
+ 'subject' => $telemsg->{subject},
+ 'part2type' => 'image/jpeg',
+ 'sdat' => $dat,
+ 'opmode' => $OpMode,
+ 'tac' => $tac,
+ 'telebot' => $telemsg->{tbot},
+ 'peers' => $telemsg->{peers},
+ 'MediaStream' => '-1', # Code für MediaStream im TelegramBot (png/jpg = -1)
+ }
+ );
+
readingsSingleUpdate($hash, "sendTeleState", $ret, 1) if ($ret);
}
### Aufnahmen mit Telegram versenden
+ ####################################
if($OpMode =~ /^GetRec/x && $hash->{HELPER}{CANTELEREC}) {
# recTelegramTxt aus $hash->{HELPER}{TELERECMSG}
# Format in $hash->{HELPER}{TELEMSG} muss sein: tbot => , peers => , subject =>
delete $hash->{HELPER}{CANTELEREC};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- my $mt = delete $hash->{HELPER}{TELERECMSG};
- $mt =~ s/['"]//gx;
-
- my ($tbotk,$tbott,$peerk,$peert,$subjk,$subjt);
- my ($telebot,$peers,$subj) = split(",", $mt, 3 );
- ($tbotk,$tbott) = split("=>", $telebot) if($telebot);
- ($peerk,$peert) = split("=>", $peers ) if($peers);
- ($subjk,$subjt) = split("=>", $subj ) if($subj);
-
- $tbotk = trim($tbotk) if($tbotk);
- $tbott = trim($tbott) if($tbott);
- $peerk = trim($peerk) if($peerk);
- $peert = trim($peert) if($peert);
- $subjk = trim($subjk) if($subjk);
- if($subjt) {
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- }
- my %telemsg = ();
- $telemsg{$tbotk} = "$tbott" if($tbott);
- $telemsg{$peerk} = "$peert" if($peert);
- $telemsg{$subjk} = "$subjt" if($subjt);
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
+ my $mt = delete $hash->{HELPER}{TELERECMSG};
+
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $telemsg = _prepSendTelegram ($param);
$vdat = $dat;
- $ret = sendTelegram($hash, {'subject' => $telemsg{subject},
- 'vdat' => $vdat,
- 'opmode' => $OpMode,
- 'telebot' => $telemsg{$tbotk},
- 'peers' => $telemsg{$peerk},
- 'tac' => $tac,
- 'MediaStream' => '-30', # Code für MediaStream im TelegramBot (png/jpg = -1)
- }
- );
+ $ret = _sendTelegram($hash, {
+ 'subject' => $telemsg->{subject},
+ 'vdat' => $vdat,
+ 'opmode' => $OpMode,
+ 'telebot' => $telemsg->{tbot},
+ 'peers' => $telemsg->{peers},
+ 'tac' => $tac,
+ 'MediaStream' => '-30', # Code für MediaStream im TelegramBot (png/jpg = -1)
+ }
+ );
+
readingsSingleUpdate($hash, "sendTeleState", $ret, 1) if ($ret);
}
### Schnappschüsse mit Synology Chat versenden
+ ##############################################
if($OpMode =~ /^getsnap/x && $hash->{HELPER}{CANCHATSNAP}) {
# snapChatTxt aus $hash->{HELPER}{CHATMSG}
# Format in $hash->{HELPER}{CHATMSG} muss sein: snapChatTxt:"chatbot => , peers => , subject => "
delete $hash->{HELPER}{CANCHATSNAP};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- my $mt = delete $hash->{HELPER}{CHATMSG};
- $mt =~ s/['"]//gx;
-
- my ($cbotk,$cbott,$peerk,$peert,$subjk,$subjt);
- my ($chatbot,$peers,$subj) = split(",", $mt, 3 );
- ($cbotk,$cbott) = split("=>", $chatbot) if($chatbot);
- ($peerk,$peert) = split("=>", $peers ) if($peers);
- ($subjk,$subjt) = split("=>", $subj ) if($subj);
-
- $cbotk = trim($cbotk) if($cbotk);
- $cbott = trim($cbott) if($cbott);
- $peerk = trim($peerk) if($peerk);
- $peert = trim($peert) if($peert);
- $subjk = trim($subjk) if($subjk);
- if($subjt) {
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- }
- my %chatmsg = ();
- $chatmsg{$cbotk} = "$cbott" if($cbott);
- $chatmsg{$peerk} = "$peert" if($peert);
- $chatmsg{$subjk} = "$subjt" if($subjt);
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
+ my $mt = delete $hash->{HELPER}{CHATMSG};
+
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $chatmsg = _prepSendChat ($param);
- $ret = sendChat($hash, {'subject' => $chatmsg{subject},
- 'opmode' => $OpMode,
- 'tac' => $tac,
- 'sdat' => $dat,
- 'chatbot' => $chatmsg{$cbotk},
- 'peers' => $chatmsg{$peerk},
- }
- );
+ $ret = _sendChat($hash, {
+ 'subject' => $chatmsg->{subject},
+ 'opmode' => $OpMode,
+ 'tac' => $tac,
+ 'sdat' => $dat,
+ 'chatbot' => $chatmsg->{chatbot},
+ 'peers' => $chatmsg->{peers},
+ }
+ );
+
readingsSingleUpdate($hash, "sendChatState", $ret, 1) if ($ret);
}
### Aufnahmen mit Synology Chat versenden
+ #########################################
if($OpMode =~ /^GetRec/x && $hash->{HELPER}{CANCHATREC}) {
# recChatTxt aus $hash->{HELPER}{CHATRECMSG}
# Format in $hash->{HELPER}{CHATRECMSG} muss sein: chatbot => , peers => , subject =>
delete $hash->{HELPER}{CANCHATREC};
$data{SSCam}{$name}{SENDCOUNT}{$tac}++;
+
Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+
my $mt = delete $hash->{HELPER}{CHATRECMSG};
- $mt =~ s/['"]//gx;
-
- my ($cbotk,$cbott,$peerk,$peert,$subjk,$subjt);
- my ($chatbot,$peers,$subj) = split(",", $mt, 3 );
- ($cbotk,$cbott) = split("=>", $chatbot) if($chatbot);
- ($peerk,$peert) = split("=>", $peers ) if($peers);
- ($subjk,$subjt) = split("=>", $subj ) if($subj);
-
- $cbotk = trim($cbotk) if($cbotk);
- $cbott = trim($cbott) if($cbott);
- $peerk = trim($peerk) if($peerk);
- $peert = trim($peert) if($peert);
- $subjk = trim($subjk) if($subjk);
- if($subjt) {
- $subjt = trim($subjt);
- $subjt =~ s/\$CAM/$calias/gx;
- $subjt =~ s/\$DATE/$date/gx;
- $subjt =~ s/\$TIME/$time/gx;
- }
- my %chatmsg = ();
- $chatmsg{$cbotk} = "$cbott" if($cbott);
- $chatmsg{$peerk} = "$peert" if($peert);
- $chatmsg{$subjk} = "$subjt" if($subjt);
+ my $param = {
+ hash => $hash,
+ calias => $calias,
+ mt => $mt,
+ date => $date,
+ time => $time,
+ };
+ my $chatmsg = _prepSendChat ($param);
- $ret = sendChat($hash, {'subject' => $chatmsg{subject},
- 'opmode' => $OpMode,
- 'tac' => $tac,
- 'vdat' => $dat,
- 'chatbot' => $chatmsg{$cbotk},
- 'peers' => $chatmsg{$peerk},
- }
- );
+ $ret = _sendChat($hash, {
+ 'subject' => $chatmsg->{subject},
+ 'opmode' => $OpMode,
+ 'tac' => $tac,
+ 'vdat' => $dat,
+ 'chatbot' => $chatmsg->{chatbot},
+ 'peers' => $chatmsg->{peers},
+ }
+ );
+
readingsSingleUpdate($hash, "sendChatState", $ret, 1) if ($ret);
}
@@ -9713,10 +9677,49 @@ sub prepareSendData {
return;
}
+###############################################################################
+# Vorbereitung Versand Chatnachrichten
+###############################################################################
+sub _prepSendChat {
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $calias = $paref->{calias};
+ my $mt = $paref->{mt};
+ my $date = $paref->{date};
+ my $time = $paref->{time};
+ my $name = $hash->{NAME};
+
+ my ($cbott,$peert,$subjt);
+
+ $mt =~ s/['"]//gx;
+
+ my ($chatbot,$peers,$subj) = split(",", $mt, 3 );
+ $cbott = (split("=>", $chatbot))[1] if($chatbot);
+ $peert = (split("=>", $peers ))[1] if($peers);
+ $subjt = (split("=>", $subj ))[1] if($subj);
+
+ $cbott = trim($cbott) if($cbott);
+ $peert = trim($peert) if($peert);
+
+ if($subjt) {
+ $subjt = trim($subjt);
+ $subjt =~ s/\$CAM/$calias/gx;
+ $subjt =~ s/\$DATE/$date/gx;
+ $subjt =~ s/\$TIME/$time/gx;
+ }
+
+ my %chatmsg = ();
+ $chatmsg{chatbot} = "$cbott" if($cbott);
+ $chatmsg{peers} = "$peert" if($peert);
+ $chatmsg{subject} = "$subjt" if($subjt);
+
+return \%chatmsg;
+}
+
#############################################################################################
# Synology Chat-Versand
#############################################################################################
-sub sendChat {
+sub _sendChat {
my ($hash, $extparamref) = @_;
my $name = $hash->{NAME};
my $type = AttrVal($name,"cacheType","internal");
@@ -9745,7 +9748,7 @@ sub sendChat {
if(exists $chatparams{$key}->{attr});
if($chatparams{$key}->{set}) {
$data{SSCam}{$name}{PARAMS}{$tac}{$key} = $chatparams{$key}->{default} if (!$extparamref->{$key} && !$chatparams{$key}->{attr});
- $data{SSCam}{$name}{PARAMS}{$tac}{$key} = delete $extparamref->{$key} if(exists $extparamref->{$key});
+ $data{SSCam}{$name}{PARAMS}{$tac}{$key} = delete $extparamref->{$key} if(exists $extparamref->{$key});
}
Log3($name, 4, "$name - param $key is set to \"".($data{SSCam}{$name}{PARAMS}{$tac}{$key} // "")."\" ") if($key !~ /[sv]dat/x);
@@ -9758,6 +9761,7 @@ sub sendChat {
for my $key (keys(%chatparams)) {
push(@err, $key) if ($chatparams{$key}->{required} && !$data{SSCam}{$name}{PARAMS}{$tac}{$key});
}
+
if ($#err >= 0) {
$ret = "Missing at least one required parameter or attribute: ".join(', ',@err);
Log3($name, 2, "$name - $ret");
@@ -9791,7 +9795,8 @@ sub sendChat {
$data{SSCam}{$name}{SENDCOUNT}{$tac} -= 1;
return;
}
- } else {
+ }
+ else {
$peers = join(",", split(" ", $peers));
}
@@ -9803,7 +9808,6 @@ sub sendChat {
return;
}
- #no strict "refs";
my ($subject,$fileUrl,$uid,$fname,@as,%seen,@unique);
$cache = cache($name, "c_init"); # Cache initialisieren
@@ -9813,15 +9817,16 @@ sub sendChat {
if($data{SSCam}{$name}{PARAMS}{$tac}{sdat}) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
@as = sort{$b<=>$a}keys%{$data{SSCam}{$name}{PARAMS}{$tac}{sdat}};
$mtype = "\@Snapshot";
- } elsif($data{SSCam}{$name}{PARAMS}{$tac}{vdat}) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
+ }
+ elsif($data{SSCam}{$name}{PARAMS}{$tac}{vdat}) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
@as = sort{$b<=>$a}keys%{$data{SSCam}{$name}{PARAMS}{$tac}{vdat}};
$mtype = $hash->{CAMNAME};
}
+
for my $key (@as) {
- ($subject,$fname) = extractForChat($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
+ ($subject,$fname) = __extractForChat($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
- # User aufsplitten und zu jedem die ID ermitteln
- my @ua = split(",", $peers);
+ my @ua = split(",", $peers); # User aufsplitten und zu jedem die ID ermitteln
for (@ua) {
next if(!$_);
$uid = $defs{$chatbot}{HELPER}{USERS}{$_}{id};
@@ -9848,12 +9853,13 @@ sub sendChat {
channel => "",
attachment => ""
};
- $ret = FHEM::SSChatBot::addQueue ($params);
+ $ret = FHEM::SSChatBot::addSendqueue ($params);
if($ret) {
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 2, "$name - ERROR: $ret");
- } else {
+ }
+ else {
$ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue";
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 3, "$name - $ret");
@@ -9861,9 +9867,9 @@ sub sendChat {
}
}
$data{SSCam}{$name}{SENDCOUNT}{$tac} -= 1;
- Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
-
- } else {
+ Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
+ }
+ else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
if($data{SSCam}{$name}{PARAMS}{$tac}{sdat}) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
extractTIDfromCache ( { name => $name,
@@ -9873,9 +9879,9 @@ sub sendChat {
aref => \@as
}
);
- $mtype = "\@Snapshot";
-
- } elsif($data{SSCam}{$name}{PARAMS}{$tac}{vdat}) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
+ $mtype = "\@Snapshot";
+ }
+ elsif($data{SSCam}{$name}{PARAMS}{$tac}{vdat}) { # Aufnahmen liegen in einem Hash-Ref in $vdat vor
extractTIDfromCache ( { name => $name,
tac => $tac,
media => "SENDRECS",
@@ -9889,10 +9895,9 @@ sub sendChat {
@unique = sort{$b<=>$a} grep { !$seen{$_}++ } @as; # distinct / unique the keys
for my $key (@unique) {
- ($subject,$fname) = extractForChat($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
+ ($subject,$fname) = __extractForChat($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
- # User aufsplitten und zu jedem die ID ermitteln
- my @ua = split(/,/x, $peers);
+ my @ua = split(/,/x, $peers); # User aufsplitten und zu jedem die ID ermitteln
for (@ua) {
next if(!$_);
$uid = $defs{$chatbot}{HELPER}{USERS}{$_}{id};
@@ -9919,12 +9924,13 @@ sub sendChat {
channel => "",
attachment => ""
};
- $ret = FHEM::SSChatBot::addQueue ($params);
+ $ret = FHEM::SSChatBot::addSendqueue ($params);
if($ret) {
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 2, "$name - ERROR: $ret");
- } else {
+ }
+ else {
$ret = "Chat message [$key] of transaction \"$tac\" for \"$_\" added to \"$chatbot\" sendqueue";
readingsSingleUpdate($hash, "sendChatState", $ret, 1);
Log3($name, 3, "$name - $ret");
@@ -9948,32 +9954,37 @@ return;
####################################################################################################
# Daten extrahieren für SSChatBot Versand
####################################################################################################
-sub extractForChat {
- my ($name,$key,$paref) = @_;
- my $hash = $defs{$name};
- my $subject = $paref->{subject};
- my $sdat = $paref->{sdat}; # Hash von Imagedaten base64 codiert
- my $vdat = $paref->{vdat}; # Hashref der Videodaten
+sub __extractForChat {
+ my $name = shift;
+ my $key = shift;
+ my $paref = shift;
+ my $hash = $defs{$name};
+ my $subject = $paref->{subject};
+ my $sdat = $paref->{sdat}; # Hash von Imagedaten base64 codiert
+ my $vdat = $paref->{vdat}; # Hashref der Videodaten
+
my ($fname,$tdir,$ct,$cache);
if($sdat) {
- $cache = cache($name, "c_init"); # Cache initialisieren
+ $cache = cache($name, "c_init"); # Cache initialisieren
if(!$cache || $cache eq "internal" ) {
- $ct = delete $paref->{sdat}{$key}{createdTm};
- $fname = trim(delete $paref->{sdat}{$key}{fileName});
- } else {
+ $ct = $paref->{sdat}{$key}{createdTm};
+ $fname = trim ($paref->{sdat}{$key}{fileName});
+ }
+ else {
$ct = cache($name, "c_read", "$sdat"."{$key}{createdTm}");
$fname = trim( cache($name, "c_read", "$sdat"."{$key}{fileName}") );
}
}
if($vdat) {
- $cache = cache($name, "c_init"); # Cache initialisieren
+ $cache = cache($name, "c_init"); # Cache initialisieren
if(!$cache || $cache eq "internal" ) {
- $ct = delete $paref->{vdat}{$key}{createdTm};
- $fname = trim(delete $paref->{vdat}{$key}{fileName});
- $tdir = trim(delete $paref->{vdat}{$key}{tdir});
- } else {
+ $ct = $paref->{vdat}{$key}{createdTm};
+ $fname = trim ($paref->{vdat}{$key}{fileName});
+ $tdir = trim ($paref->{vdat}{$key}{tdir});
+ }
+ else {
$ct = cache($name, "c_read", "$vdat"."{$key}{createdTm}");
$fname = trim( cache($name, "c_read", "$vdat"."{$key}{fileName}") );
$tdir = trim( cache($name, "c_read", "$vdat"."{$key}{tdir}") );
@@ -9987,10 +9998,49 @@ sub extractForChat {
return ($subject,$fname);
}
+###############################################################################
+# Vorbereitung Versand Telegramnachrichten
+###############################################################################
+sub _prepSendTelegram {
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $calias = $paref->{calias};
+ my $mt = $paref->{mt};
+ my $date = $paref->{date};
+ my $time = $paref->{time};
+ my $name = $hash->{NAME};
+
+ my ($tbott,$peert,$subjt);
+
+ $mt =~ s/['"]//gx;
+
+ my ($telebot,$peers,$subj) = split(",", $mt, 3 );
+ $tbott = (split("=>", $telebot))[1] if($telebot);
+ $peert = (split("=>", $peers ))[1] if($peers);
+ $subjt = (split("=>", $subj ))[1] if($subj);
+
+ $tbott = trim($tbott) if($tbott);
+ $peert = trim($peert) if($peert);
+
+ if($subjt) {
+ $subjt = trim($subjt);
+ $subjt =~ s/\$CAM/$calias/gx;
+ $subjt =~ s/\$DATE/$date/gx;
+ $subjt =~ s/\$TIME/$time/gx;
+ }
+
+ my %telemsg = ();
+ $telemsg{tbot} = "$tbott" if($tbott);
+ $telemsg{peers} = "$peert" if($peert);
+ $telemsg{subject} = "$subjt" if($subjt);
+
+return \%telemsg;
+}
+
#############################################################################################
# Telegram-Versand
#############################################################################################
-sub sendTelegram {
+sub _sendTelegram {
my ($hash, $extparamref) = @_;
my $name = $hash->{NAME};
my $type = AttrVal($name,"cacheType","internal");
@@ -10089,12 +10139,13 @@ sub sendTelegram {
@as = sort{$b<=>$a}keys%{$data{SSCam}{$name}{PARAMS}{$tac}{vdat}};
}
for my $key (@as) {
- ($msg,$subject,$MediaStream,$fname) = extractForTelegram($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
- $ret = TBotSendIt($defs{$telebot}, $name, $fname, $peers, $msg, $subject, $MediaStream, undef, "");
+ ($msg,$subject,$MediaStream,$fname) = __extractForTelegram($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
+ $ret = __TBotSendIt($defs{$telebot}, $name, $fname, $peers, $msg, $subject, $MediaStream, undef, "");
if($ret) {
readingsSingleUpdate($hash, "sendTeleState", $ret, 1);
Log3($name, 2, "$name - ERROR: $ret");
- } else {
+ }
+ else {
$ret = "Telegram message [$key] of transaction \"$tac\" sent to \"$peers\" by \"$telebot\" ";
readingsSingleUpdate($hash, "sendTeleState", $ret, 1);
Log3($name, 3, "$name - $ret");
@@ -10103,7 +10154,8 @@ sub sendTelegram {
$data{SSCam}{$name}{SENDCOUNT}{$tac} -= 1;
Log3($name, 1, "$name - Send Counter transaction \"$tac\": ".$data{SSCam}{$name}{SENDCOUNT}{$tac}) if(AttrVal($name,"debugactivetoken",0));
- } else {
+ }
+ else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
if($data{SSCam}{$name}{PARAMS}{$tac}{sdat}) { # Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
extractTIDfromCache ( { name => $name,
@@ -10127,12 +10179,13 @@ sub sendTelegram {
@unique = sort{$b<=>$a} grep { !$seen{$_}++ } @as; # distinct / unique the keys
for my $key (@unique) {
- ($msg,$subject,$MediaStream,$fname) = extractForTelegram($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
- $ret = TBotSendIt($defs{$telebot}, $name, $fname, $peers, $msg, $subject, $MediaStream, undef, "");
+ ($msg,$subject,$MediaStream,$fname) = __extractForTelegram($name,$key,$data{SSCam}{$name}{PARAMS}{$tac});
+ $ret = __TBotSendIt($defs{$telebot}, $name, $fname, $peers, $msg, $subject, $MediaStream, undef, "");
if($ret) {
readingsSingleUpdate($hash, "sendTeleState", $ret, 1);
Log3($name, 2, "$name - ERROR: $ret");
- } else {
+ }
+ else {
$ret = "Telegram message [$key] of transaction \"$tac\" sent to \"$peers\" by \"$telebot\" ";
readingsSingleUpdate($hash, "sendTeleState", $ret, 1);
Log3($name, 3, "$name - $ret");
@@ -10152,7 +10205,7 @@ return;
####################################################################################################
# Bilddaten extrahieren für Telegram Versand
####################################################################################################
-sub extractForTelegram {
+sub __extractForTelegram {
my ($name,$key,$paref) = @_;
my $hash = $defs{$name};
my $subject = $paref->{subject};
@@ -10164,14 +10217,15 @@ sub extractForTelegram {
if($sdat) {
$cache = cache($name, "c_init"); # Cache initialisieren
if(!$cache || $cache eq "internal" ) {
- $ct = delete $paref->{sdat}{$key}{createdTm};
- $img = delete $paref->{sdat}{$key}{imageData};
- $fname = trim(delete $paref->{sdat}{$key}{fileName});
+ $ct = $paref->{sdat}{$key}{createdTm};
+ $img = $paref->{sdat}{$key}{imageData};
+ $fname = trim ($paref->{sdat}{$key}{fileName});
$data = MIME::Base64::decode_base64($img);
Log3($name, 4, "$name - Image data sequence [$key] decoded from internal Cache for TelegramBot prepare");
undef $img;
- } else {
+ }
+ else {
$ct = cache($name, "c_read", "$sdat"."{$key}{createdTm}");
$img = cache($name, "c_read", "$sdat"."{$key}{imageData}");
$fname = trim( cache($name, "c_read", "$sdat"."{$key}{fileName}") );
@@ -10183,11 +10237,12 @@ sub extractForTelegram {
if($vdat) {
$cache = cache($name, "c_init"); # Cache initialisieren
if(!$cache || $cache eq "internal" ) {
- $ct = delete $paref->{vdat}{$key}{createdTm};
- $data = delete $paref->{vdat}{$key}{imageData};
- $fname = trim(delete $paref->{vdat}{$key}{fileName});
+ $ct = $paref->{vdat}{$key}{createdTm};
+ $data = $paref->{vdat}{$key}{imageData};
+ $fname = trim ($paref->{vdat}{$key}{fileName});
Log3($name, 4, "$name - Video data sequence [$key] got from internal Cache for TelegramBot prepare");
- } else {
+ }
+ else {
$ct = cache($name, "c_read", "$vdat"."{$key}{createdTm}");
$data = cache($name, "c_read", "$vdat"."{$key}{imageData}");
$fname = trim( cache($name, "c_read", "$vdat"."{$key}{fileName}") );
@@ -10207,7 +10262,7 @@ return ($data,$subject,$MediaStream,$fname);
# $hash = Hash des verwendeten TelegramBot-Devices !
# $isMedia = -1 wenn Foto, -30 wenn Aufnahme
####################################################################################################
-sub TBotSendIt {
+sub __TBotSendIt {
my ($hash, $camname, $fname, @args) = @_;
my ($peers, $msg, $addPar, $isMedia, $replyid, $options, $retryCount) = @args;
my $name = $hash->{NAME};
@@ -10220,7 +10275,7 @@ sub TBotSendIt {
# increase retrycount for next try
$args[$TBotArgRetrycnt] = $retryCount+1;
- Log3($camname, 5, "$camname - TBotSendIt: called ");
+ Log3($camname, 5, "$camname - __TBotSendIt: called ");
# ignore all sends if disabled
return if (AttrVal($name,"disable",0));
@@ -10230,7 +10285,7 @@ sub TBotSendIt {
if ((defined( $hash->{sentMsgResult})) && ($hash->{sentMsgResult} =~ /^WAITING/x) && ($retryCount == 0) ){
# add to queue
- Log3($camname, 4, "$camname - TBotSendIt: add send to queue :$peers: -:".
+ Log3($camname, 4, "$camname - __TBotSendIt: add send to queue :$peers: -:".
TelegramBot_MsgForLog($msg, ($isMedia<0)).": - :".(defined($addPar)?$addPar:"").":");
push(@{$hash->{sentQueue}}, \@args);
return;
@@ -10249,10 +10304,10 @@ sub TBotSendIt {
# remove msgid from options and also replyid reset
my $sepoptions = $options;
$sepoptions =~ s/-msgid-//x;
- TBotSendIt($hash,$camname,$fname,$peers,$msg,$addPar,$isMedia,undef,$sepoptions);
+ __TBotSendIt($hash,$camname,$fname,$peers,$msg,$addPar,$isMedia,undef,$sepoptions);
}
- Log3($camname, 5, "$camname - TBotSendIt: try to send message to :$peer: -:".
+ Log3($camname, 5, "$camname - __TBotSendIt: try to send message to :$peer: -:".
TelegramBot_MsgForLog($msg, ($isMedia<0) ).": - add :".(defined($addPar)?$addPar:"").
": - replyid :".(defined($replyid)?$replyid:"").
":".": options :".$options.":");
@@ -10284,7 +10339,7 @@ sub TBotSendIt {
# Start Versand
if (!defined($ret)) {
# add chat / user id (no file) --> this will also do init
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "chat_id", undef, $peer2, 0 ) if ( $peer );
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "chat_id", undef, $peer2, 0 ) if ( $peer );
if (abs($isMedia) == 1) {
# Foto send
@@ -10296,16 +10351,17 @@ sub TBotSendIt {
$addPar =~ s/(?{HU_DO_PARAMS}, "caption", undef, $addPar, 0 ) if (!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "caption", undef, $addPar, 0 ) if (!defined($ret));
$addPar = undef;
}
# add msg or file or stream
- Log3($camname, 4, "$camname - TBotSendIt: Filename for image file :".
+ Log3($camname, 4, "$camname - __TBotSendIt: Filename for image file :".
TelegramBot_MsgForLog($msg, ($isMedia<0) ).":");
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "photo", undef, $msg, $isMedia) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "photo", undef, $msg, $isMedia) if(!defined($ret));
- } elsif ( abs($isMedia) == 30 ) {
+ }
+ elsif ( abs($isMedia) == 30 ) {
# Video send
$hash->{sentMsgText} = "Image: ".TelegramBot_MsgForLog($msg,($isMedia<0)).((defined($addPar))?" - ".$addPar:"");
$hash->{HU_DO_PARAMS}->{url} = TelegramBot_getBaseURL($hash)."sendVideo";
@@ -10315,15 +10371,16 @@ sub TBotSendIt {
$addPar =~ s/(?{HU_DO_PARAMS}, "caption", undef, $addPar, 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "caption", undef, $addPar, 0) if(!defined($ret));
$addPar = undef;
}
# add msg or file or stream
- Log3($camname, 4, "$camname - TBotSendIt: Filename for image file :".$fname.":");
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "video", undef, $msg, $isMedia) if(!defined($ret));
+ Log3($camname, 4, "$camname - __TBotSendIt: Filename for image file :".$fname.":");
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "video", undef, $msg, $isMedia) if(!defined($ret));
- } else {
+ }
+ else {
# nur Message senden
$msg = "No media File was created by SSCam. Can't send it.";
$hash->{HU_DO_PARAMS}->{url} = TelegramBot_getBaseURL($hash)."sendMessage";
@@ -10332,11 +10389,11 @@ sub TBotSendIt {
if ($parseMode == 1) {
$parseMode = "Markdown";
-
- } elsif ($parseMode == 2) {
+ }
+ elsif ($parseMode == 2) {
$parseMode = "HTML";
-
- } elsif ($parseMode == 3) {
+ }
+ elsif ($parseMode == 3) {
$parseMode = 0;
if ($msg =~ /^markdown(.*)$/ix) {
$msg = $1;
@@ -10345,16 +10402,17 @@ sub TBotSendIt {
$msg = $1;
$parseMode = "HTML";
}
-
- } else {
+ }
+ else {
$parseMode = 0;
}
- Log3($camname, 4, "$camname - TBotSendIt: parseMode $parseMode");
+ Log3($camname, 4, "$camname - __TBotSendIt: parseMode $parseMode");
if (length($msg) > 1000) {
$hash->{sentMsgText} = substr($msg, 0, 1000)."...";
- } else {
+ }
+ else {
$hash->{sentMsgText} = $msg;
}
@@ -10362,49 +10420,49 @@ sub TBotSendIt {
$msg =~ s/(?{HU_DO_PARAMS}, "text", undef, $msg, 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "text", undef, $msg, 0) if(!defined($ret));
# add parseMode
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "parse_mode", undef, $parseMode, 0) if((!defined($ret)) && ($parseMode));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "parse_mode", undef, $parseMode, 0) if((!defined($ret)) && ($parseMode));
# add disable_web_page_preview
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "disable_web_page_preview", undef, \1, 0)
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "disable_web_page_preview", undef, \1, 0)
if ((!defined($ret))&&(!AttrVal($name,'webPagePreview',1)));
}
if (defined($replyid)) {
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_to_message_id", undef, $replyid, 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_to_message_id", undef, $replyid, 0) if(!defined($ret));
}
if (defined($addPar)) {
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_markup", undef, $addPar, 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_markup", undef, $addPar, 0) if(!defined($ret));
} elsif ($options =~ /-force_reply-/x) {
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_markup", undef, "{\"force_reply\":true}", 0 ) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "reply_markup", undef, "{\"force_reply\":true}", 0 ) if(!defined($ret));
}
if ($options =~ /-silent-/x) {
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "disable_notification", undef, "true", 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, "disable_notification", undef, "true", 0) if(!defined($ret));
}
# finalize multipart
- $ret = TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, undef, undef, undef, 0) if(!defined($ret));
+ $ret = __TBotAddMultipart($hash, $fname, $hash->{HU_DO_PARAMS}, undef, undef, undef, 0) if(!defined($ret));
}
if (defined($ret)) {
- Log3($camname, 3, "$camname - TBotSendIt: Failed with :$ret:");
+ Log3($camname, 3, "$camname - __TBotSendIt: Failed with :$ret:");
TelegramBot_Callback($hash->{HU_DO_PARAMS}, $ret, "");
-
- } else {
+ }
+ else {
$hash->{HU_DO_PARAMS}->{args} = \@args;
# if utf8 is set on string this will lead to length wrongly calculated in HTTPUtils (char instead of bytes) for some installations
if ((AttrVal($name,'utf8Special',0)) && (utf8::is_utf8($hash->{HU_DO_PARAMS}->{data}))) {
- Log3 $camname, 4, "$camname - TBotSendIt: utf8 encoding for data in message ";
+ Log3 $camname, 4, "$camname - __TBotSendIt: utf8 encoding for data in message ";
utf8::downgrade($hash->{HU_DO_PARAMS}->{data});
}
- Log3($camname, 4, "$camname - TBotSendIt: timeout for sent :".$hash->{HU_DO_PARAMS}->{timeout}.": ");
+ Log3($camname, 4, "$camname - __TBotSendIt: timeout for sent :".$hash->{HU_DO_PARAMS}->{timeout}.": ");
HttpUtils_NonblockingGet($hash->{HU_DO_PARAMS});
}
@@ -10427,7 +10485,7 @@ return $ret;
#
# returns string in case of error or undef
####################################################################################################
-sub TBotAddMultipart {
+sub __TBotAddMultipart {
my ($hash, $fname, $params, $parname, $parheader, $parcontent, $isMedia ) = @_;
my $name = $hash->{NAME};
@@ -10468,19 +10526,19 @@ sub TBotAddMultipart {
}
} elsif ($isMedia < 0) {
- my ($im, $ext) = TBotIdentifyStream($hash, $parcontent);
+ my ($im, $ext) = __TBotIdentifyStream($hash, $parcontent);
$fname =~ s/.mp4$/.$ext/x;
$parheader = "Content-Disposition: form-data; name=\"".$parname."\"; filename=\"".$fname."\"\r\n".$parheader."\r\n";
$finalcontent = $parcontent;
-
- } else {
+ }
+ else {
$parheader = "Content-Disposition: form-data; name=\"".$parname."\"\r\n".$parheader."\r\n";
$finalcontent = $parcontent;
}
$params->{data} .= $parheader.$finalcontent."\r\n";
-
- } else {
+ }
+ else {
return( "No content defined for multipart" ) if ( length( $params->{data} ) == 0 );
$params->{data} .= "--".$params->{boundary}."--";
}
@@ -10493,7 +10551,7 @@ return;
# Adaption der Sub "IdentifyStream" aus TelegramBot
# $hash = Hash des verwendeten TelegramBot-Devices !
####################################################################################################
-sub TBotIdentifyStream {
+sub __TBotIdentifyStream {
my ($hash, $msg) = @_;
# signatures for media files are documented here --> https://en.wikipedia.org/wiki/List_of_file_signatures
@@ -10506,10 +10564,45 @@ sub TBotIdentifyStream {
return (0,undef);
}
+###############################################################################
+# Vorbereitung Versand Mail Nachrichten
+###############################################################################
+sub _prepSendMail {
+ my $paref = shift;
+ my $hash = $paref->{hash};
+ my $calias = $paref->{calias};
+ my $mt = $paref->{mt};
+ my $date = $paref->{date};
+ my $time = $paref->{time};
+ my $name = $hash->{NAME};
+
+ $mt =~ s/['"]//gx;
+
+ my($subj,$body) = split(",", $mt, 2);
+ my $subjt = (split("=>", $subj))[1];
+ my $bodyt = (split("=>", $body))[1];
+
+ $subjt = trim($subjt);
+ $subjt =~ s/\$CAM/$calias/gx;
+ $subjt =~ s/\$DATE/$date/gx;
+ $subjt =~ s/\$TIME/$time/gx;
+
+ $bodyt = trim($bodyt);
+ $bodyt =~ s/\$CAM/$calias/gx;
+ $bodyt =~ s/\$DATE/$date/gx;
+ $bodyt =~ s/\$TIME/$time/gx;
+
+ my %smtpmsg = ();
+ $smtpmsg{subject} = "$subjt";
+ $smtpmsg{body} = "$bodyt";
+
+return \%smtpmsg;
+}
+
#############################################################################################
# SMTP EMail-Versand
#############################################################################################
-sub sendEmail {
+sub _sendEmail {
my ($hash, $extparamref) = @_;
my $name = $hash->{NAME};
my $timeout = 60;
@@ -10617,7 +10710,7 @@ sub sendEmail {
return $ret;
}
- $hash->{HELPER}{RUNNING_PID} = BlockingCall("FHEM::SSCam::sendEmailblocking", $data{SSCam}{$name}{PARAMS}{$tac}, "FHEM::SSCam::sendEmaildone", $timeout, "FHEM::SSCam::sendEmailto", $hash);
+ $hash->{HELPER}{RUNNING_PID} = BlockingCall("FHEM::SSCam::__sendEmailblocking", $data{SSCam}{$name}{PARAMS}{$tac}, "FHEM::SSCam::__sendEmaildone", $timeout, "FHEM::SSCam::__sendEmailto", $hash);
$hash->{HELPER}{RUNNING_PID}{loglevel} = 5 if($hash->{HELPER}{RUNNING_PID}); # Forum #77057
undef %mailparams;
@@ -10629,7 +10722,7 @@ return;
####################################################################################################
# nichtblockierendes Send EMail
####################################################################################################
-sub sendEmailblocking {
+sub __sendEmailblocking { ## no critic 'not used'
my ($paref) = @_; # der Referent wird in cleanData gelöscht
my $name = delete $paref->{name};
my $cc = delete $paref->{smtpCc};
@@ -10660,7 +10753,7 @@ sub sendEmailblocking {
my ($err,$smtp,@as,$cache);
# Credentials abrufen
- my ($success, $username, $password) = getCredentials($hash,0,"smtp");
+ my ($success, $username, $password) = getCredentials($hash,0,"SMTPcredentials");
unless ($success) {
$err = "SMTP credentials couldn't be retrieved successfully - make sure you've set it with \"set $name smtpcredentials \"";
@@ -10695,7 +10788,6 @@ sub sendEmailblocking {
);
}
- # no strict "refs";
if($sdat) {
### Images liegen in einem Hash (Ref in $sdat) base64-codiert vor
my ($ct,$img,$decoded);
@@ -10715,9 +10807,9 @@ sub sendEmailblocking {
);
Log3($name, 4, "$name - Image data sequence [$key] decoded from internal Cache for Email attachment") if($decoded);
}
- BlockingInformParent("FHEM::SSCam::subaddFromBlocking", [$name, "-", $tac], 0);
-
- } else {
+ BlockingInformParent("FHEM::SSCam::subaddFromBlocking", [$name, "-", $tac], 0);
+ }
+ else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
extractTIDfromCache ( { name => $name,
tac => $tac,
@@ -10729,8 +10821,7 @@ sub sendEmailblocking {
my %seen;
my @unique = sort{$a<=>$b} grep { !$seen{$_}++ } @as; # distinct / unique the keys
- # attach mail
- for my $key (@unique) {
+ for my $key (@unique) { # attach mail
next if(!cache($name, "c_isvalidkey", "$sdat"."{$key}{imageData}"));
$ct = cache($name, "c_read", "$sdat"."{$key}{createdTm}");
$img = cache($name, "c_read", "$sdat"."{$key}{imageData}");
@@ -10748,10 +10839,9 @@ sub sendEmailblocking {
}
}
- if($vdat) {
- ### Videodaten (mp4) wurden geliefert
+ if($vdat) { # Videodaten (mp4) wurden geliefert
my ($ct,$video);
- $cache = cache($name, "c_init"); # Cache initialisieren
+ $cache = cache($name, "c_init"); # Cache initialisieren
if(!$cache || $cache eq "internal" ) {
@as = sort{$a<=>$b}keys%{$vdat};
for my $key (@as) {
@@ -10766,9 +10856,9 @@ sub sendEmailblocking {
);
Log3($name, 4, "$name - Video data sequence [$key] decoded from internal Cache for Email attachment");
}
- BlockingInformParent("FHEM::SSCam::subaddFromBlocking", [$name, "-", $tac], 0);
-
- } else {
+ BlockingInformParent("FHEM::SSCam::subaddFromBlocking", [$name, "-", $tac], 0);
+ }
+ else {
# alle Serial Numbers "{$sn}" der Transaktion ermitteln
extractTIDfromCache ( { name => $name,
tac => $tac,
@@ -10806,13 +10896,13 @@ sub sendEmailblocking {
# Verwendung altes Net::SMTP::SSL <= 3.00 -> immer direkter SSL-Aufbau, Attribut "smtpNoUseSSL" wird ignoriert
Log3($name, 3, "$name - Attribute \"smtpNoUseSSL\" will be ignored due to usage of Net::SMTP::SSL") if(AttrVal($name,"smtpNoUseSSL",0));
$smtp = Net::SMTP::SSL->new(Host => $smtphost, Port => $smtpsslport, Debug => $smtpdebug);
- } else {
+ }
+ else {
# Verwendung neues Net::SMTP::SSL > 3.00
- if($sslfrominit) {
- # sofortiger SSL connect
+ if($sslfrominit) { # sofortiger SSL connect
$smtp = Net::SMTP->new(Host => $smtphost, Port => $smtpsslport, SSL => 1, Debug => $smtpdebug);
- } else {
- # erst unverschlüsselt, danach switch zu encrypted
+ }
+ else { # erst unverschlüsselt, danach switch zu encrypted
$smtp = Net::SMTP->new(Host => $smtphost, Port => $smtpport, SSL => 0, Debug => $smtpdebug);
}
}
@@ -10824,8 +10914,7 @@ sub sendEmailblocking {
return "$name|$err|''";
}
- if(!$sslfb && !$sslfrominit) {
- # Aufbau unverschlüsselt -> switch zu verschlüsselt wenn nicht untersagt
+ if(!$sslfb && !$sslfrominit) { # Aufbau unverschlüsselt -> switch zu verschlüsselt wenn nicht untersagt
if($smtp->can_ssl() && !$smtpnousessl) {
unless( $smtp->starttls ( SSL_verify_mode => 0,
SSL_version => "TLSv1_2:!TLSv1_1:!SSLv3:!SSLv23:!SSLv2",
@@ -10838,10 +10927,12 @@ sub sendEmailblocking {
$sslver = $smtp->get_sslversion();
Log3($name, 3, "$name - SMTP-Host $smtphost switched to encrypted connection with SSL version: $sslver");
- } else {
+ }
+ else {
Log3($name, 3, "$name - SMTP-Host $smtphost use unencrypted connection !");
}
- } else {
+ }
+ else {
eval { $sslver = $smtp->get_sslversion(); }; ## no critic 'eval not tested' # Forum: https://forum.fhem.de/index.php/topic,45671.msg880602.html#msg880602
$sslver = $sslver ? $sslver : "n.a.";
Log3($name, 3, "$name - SMTP-Host $smtphost use immediately encrypted connection with SSL version: $sslver");
@@ -10910,8 +11001,6 @@ sub sendEmailblocking {
my $ret = "Email transaction \"$tac\" successfully sent ".( $sslver?"encoded by $sslver":"" );
Log3($name, 3, "$name - $ret To: $to".(($cc)?", CC: $cc":"") );
- # use strict "refs";
-
# Daten müssen als Einzeiler zurückgegeben werden
$ret = encode_base64($ret,"");
@@ -10921,17 +11010,18 @@ return "$name|''|$ret";
####################################################################################################
# Auswertungsroutine nichtblockierendes Send EMail
####################################################################################################
-sub sendEmaildone {
- my ($string) = @_;
- my @a = split("\\|",$string);
- my $hash = $defs{$a[0]};
- my $err = $a[1]?decode_base64($a[1]):undef;
- my $ret = $a[2]?decode_base64($a[2]):undef;
+sub __sendEmaildone { ## no critic 'not used'
+ my $string = shift;
+ my @a = split("\\|",$string);
+ my $hash = $defs{$a[0]};
+ my $err = $a[1] ? trim(decode_base64($a[1])) : undef;
+ my $ret = $a[2] ? trim(decode_base64($a[2])) : undef;
if ($err) {
readingsBeginUpdate($hash);
- readingsBulkUpdate($hash,"sendEmailState",$err);
- readingsEndUpdate($hash, 1);
+ readingsBulkUpdate ($hash,"sendEmailState",$err);
+ readingsEndUpdate ($hash, 1);
+
delete($hash->{HELPER}{RUNNING_PID});
return;
}
@@ -10948,7 +11038,7 @@ return;
####################################################################################################
# Abbruchroutine Send EMail
####################################################################################################
-sub sendEmailto {
+sub __sendEmailto { ## no critic 'not used'
my ($hash,$cause) = @_;
my $name = $hash->{NAME};
@@ -10976,12 +11066,11 @@ return;
#################################################################################################
sub extractTIDfromCache {
my $params = shift;
-
- my $name = $params->{name};
- my $tac = $params->{tac};
- my $media = $params->{media};
- my $mode = $params->{mode};
- my $aref = $params->{aref};
+ my $name = $params->{name};
+ my $tac = $params->{tac};
+ my $media = $params->{media};
+ my $mode = $params->{mode};
+ my $aref = $params->{aref};
if($mode eq "serial") { # Serial Nummern auslesen
for my $ck (cache($name, "c_getkeys")) {
@@ -11005,36 +11094,6 @@ sub extractTIDfromCache {
return;
}
-#############################################################################################
-# Token setzen
-#############################################################################################
-sub setActiveToken {
- my ($hash) = @_;
- my $name = $hash->{NAME};
-
- $hash->{HELPER}{ACTIVE} = "on";
- if (AttrVal($name,"debugactivetoken",0)) {
- Log3($name, 1, "$name - Active-Token set by OPMODE: $hash->{OPMODE}");
- }
-
-return;
-}
-
-#############################################################################################
-# Token freigeben
-#############################################################################################
-sub delActiveToken {
- my ($hash) = @_;
- my $name = $hash->{NAME};
-
- $hash->{HELPER}{ACTIVE} = "off";
- if (AttrVal($name,"debugactivetoken",0)) {
- Log3($name, 1, "$name - Active-Token deleted by OPMODE: $hash->{OPMODE}");
- }
-
-return;
-}
-
#############################################################################################
# Transaktion starten oder vorhandenen TA Code zurück liefern
#############################################################################################
@@ -11048,9 +11107,9 @@ sub openOrgetTrans {
$hash->{HELPER}{TRANSACTION} = $tac;
if (AttrVal($name,"debugactivetoken",0)) {
Log3($name, 1, "$name - Transaction opened, TA-code: $tac");
- }
-
- } else {
+ }
+ }
+ else {
$tac = $hash->{HELPER}{TRANSACTION}; # vorhandenen Transaktionscode zurück liefern
}
@@ -11065,9 +11124,10 @@ sub closeTrans {
my $name = $hash->{NAME};
my $tac = delete $hash->{HELPER}{TRANSACTION}; # diese Transaktion beenden
- $tac = $tac?$tac:"";
- cleanData("$name:$tac"); # %data Hash & Cache bereinigen
+ $tac = $tac // q{};
+
return if(!$tac);
+ cleanData("$name:$tac"); # %data Hash & Cache bereinigen
Log3($name, 1, "$name - Transaction \"$tac\" closed") if(AttrVal($name,"debugactivetoken",0));
@@ -11090,8 +11150,7 @@ sub cleanData {
return;
}
- if(AttrVal($name,"cacheType","internal") eq "internal") {
- # internes Caching
+ if(AttrVal($name, "cacheType", "internal") eq "internal") { # internes Caching
if($tac) {
if($data{SSCam}{RS}{$tac}) {
delete $data{SSCam}{RS}{$tac};
@@ -11112,8 +11171,8 @@ sub cleanData {
if ($del && AttrVal($name,"debugactivetoken",0)) {
Log3($name, 1, "$name - Data of Transaction \"$tac\" deleted");
}
-
- } else {
+ }
+ else {
delete $data{SSCam}{RS};
delete $data{SSCam}{$name}{SENDRECS};
delete $data{SSCam}{$name}{SENDSNAPS};
@@ -11122,9 +11181,8 @@ sub cleanData {
Log3($name, 1, "$name - Data of internal Cache removed");
}
}
-
- } else {
- # Caching mit CHI
+ }
+ else { # Caching mit CHI
my @as = cache($name, "c_getkeys");
if($tac) {
for my $k (@as) {
@@ -11137,7 +11195,8 @@ sub cleanData {
Log3($name, 1, "$name - Data of Transaction \"$tac\" removed");
}
- } else {
+ }
+ else {
cache($name, "c_clear");
if (AttrVal($name,"debugactivetoken",0)) {
Log3($name, 1, "$name - Data of CHI-Cache removed");
@@ -11169,16 +11228,6 @@ sub subaddFromBlocking {
return;
}
-#############################################################################################
-# Leerzeichen am Anfang / Ende eines strings entfernen
-#############################################################################################
-sub trim {
- my $str = shift;
- $str =~ s/^\s+|\s+$//gx;
-
-return ($str);
-}
-
#############################################################################################
# Check ob "sscam" im iconpath des FHEMWEB Devices enthalten ist
#############################################################################################
@@ -11292,7 +11341,8 @@ sub cache {
$error = (split("at ./FHEM",$error))[0];
Log3($name, 1, "$name - ERROR - $error");
return 0;
- } else {
+ }
+ else {
$hash->{HELPER}{REDISKEY} = $r;
}
@@ -11343,7 +11393,8 @@ sub cache {
$brt = tv_interval($bst);
Log3($name, 1, "$name - Cache time to create \"$type\": ".$brt) if(AttrVal($name,"debugCachetime",0));
return $type;
- } else {
+ }
+ else {
Log3($name, 3, "$name - no cache \"$type\" available.");
}
return 0;
@@ -11354,7 +11405,8 @@ sub cache {
if($hash->{HELPER}{CACHEKEY}) {
$cache = $hash->{HELPER}{CACHEKEY};
- } else {
+ }
+ else {
return 0;
}
@@ -11369,7 +11421,8 @@ sub cache {
delete $hash->{HELPER}{CACHEKEY};
return 0;
}
- } else {
+ }
+ else {
Log3($name, 1, "$name - ERROR - no constructor for Redis server is created");
return 0;
}
@@ -11389,12 +11442,14 @@ sub cache {
if (!defined $dat) {
Log3($name, 1, "$name - ERROR - No data for Cache with key: $key ");
}
+
if($key) {
$cache->set($key,$dat);
$brt = tv_interval($bst);
Log3($name, 1, "$name - Cache time write key \"$key\": ".$brt) if(AttrVal($name,"debugCachetime",0));
return 1;
- } else {
+ }
+ else {
Log3($name, 1, "$name - ERROR - no key for \"$type\" cache !");
}
}
@@ -11404,9 +11459,11 @@ sub cache {
my $g = $cache->get($key);
$brt = tv_interval($bst);
Log3($name, 1, "$name - Cache time read key \"$key\": ".$brt) if(AttrVal($name,"debugCachetime",0));
+
if(!$g) {
return "";
- } else {
+ }
+ else {
return $g;
}
}
@@ -11448,41 +11505,234 @@ sub cache {
return 0;
}
-#############################################################################################
-# Versionierungen des Moduls setzen
-# Die Verwendung von Meta.pm und Packages wird berücksichtigt
-#############################################################################################
-sub setVersionInfo {
- my ($hash) = @_;
- my $name = $hash->{NAME};
-
- my $v = (sortVersion("desc",keys %vNotesIntern))[0];
- my $type = $hash->{TYPE};
- $hash->{HELPER}{PACKAGE} = __PACKAGE__;
- $hash->{HELPER}{VERSION} = $v;
+######################################################################################
+# initiale Startroutinen nach Restart FHEM
+######################################################################################
+sub initOnBoot {
+ my $hash = shift;
+ my $name = $hash->{NAME};
- 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{SMAPortal}{META}}
- if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 49_SSCam.pm 22600 2020-08-14 19:22:36Z 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_SSCam.pm 22600 2020-08-14 19:22:36Z 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
- use version 0.77; our $VERSION = FHEM::Meta::Get( $hash, 'version' ); ## no critic 'VERSION'
- }
- } else {
- # herkömmliche Modulstruktur
- $hash->{VERSION} = $v;
+ RemoveInternalTimer($hash, "FHEM::SSCam::initOnBoot");
+
+ if($init_done == 1) {
+ RemoveInternalTimer($hash); # alle Timer löschen
+
+ delete($defs{$name}{READINGS}{LiveStreamUrl}) if($defs{$name}{READINGS}{LiveStreamUrl}); # LiveStream URL zurücksetzen
+
+ if (ReadingsVal($hash->{NAME}, "Record", "Stop") eq "Start") { # check ob alle Recordings = "Stop" nach Reboot -> sonst stoppen
+ Log3($name, 2, "$name - Recording of $hash->{CAMNAME} seems to be still active after FHEM restart - try to stop it now");
+ __camStopRec($hash);
+ }
+
+ if (!$hash->{CREDENTIALS}) { # Konfiguration der Synology Surveillance Station abrufen
+ Log3($name, 2, qq{$name - Credentials of $name are not set - make sure you've set it with "set $name credentials "});
+ }
+ else {
+ readingsSingleUpdate($hash, "compstate", "true", 0); # Anfangswert f. versionCheck setzen
+ __getCaminfoAll($hash,1); # "1" ist Statusbit für manuelle Abfrage, kein Einstieg in Pollingroutine
+ 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, "FHEM::SSCam::wdpollcaminfo");
+ InternalTimer (gettimeofday()+int(rand(30)), "FHEM::SSCam::wdpollcaminfo", $hash, 0);
+
+ }
+ else {
+ InternalTimer(gettimeofday()+3, "FHEM::SSCam::initOnBoot", $hash, 0);
}
return;
}
+###############################################################################
+# Dauerschleife Kompatibilitätscheck SSCam <-> SVS
+###############################################################################
+sub versionCheck {
+ my $hash = shift;
+ my $name = $hash->{NAME};
+ my $rc = 21600;
+
+ RemoveInternalTimer($hash, "FHEM::SSCam::versionCheck");
+ return if(IsDisabled($name));
+
+ my $cs = ReadingsVal($name, "compstate", "true");
+ if($cs eq "false") {
+ Log3($name, 2, "$name - WARNING - The current/simulated SVS-version ".ReadingsVal($name, "SVSversion", "").
+ " may be incompatible with SSCam version $hash->{HELPER}{VERSION}. ".
+ "For further information execute \"get $name versionNotes 4\".");
+ }
+
+InternalTimer(gettimeofday()+$rc, "FHEM::SSCam::versionCheck", $hash, 0);
+
+return;
+}
+
+################################################################
+# return 0 - Startmeldung OpMode im Log
+# return 1 - wenn Shutdown läuft
+################################################################
+sub startOrShut {
+ my $name = shift;
+ my $hash = $defs{$name};
+
+ if ($shutdownInProcess) { # shutdown in Proces -> keine weiteren Aktionen
+ Log3($name, 3, "$name - Shutdown in process. No more activities allowed.");
+ return 1;
+ }
+
+ Log3($name, 4, "$name - ####################################################");
+ Log3($name, 4, "$name - ### start cam operation $hash->{OPMODE} ");
+ Log3($name, 4, "$name - ####################################################");
+
+return 0;
+}
+
+###############################################################################
+# Err-Status / Log setzen wenn Device Verfügbarkeit disabled oder disconnected
+###############################################################################
+sub exitOnDis {
+ my $name = shift;
+ my $log = shift;
+ my $hash = $defs{$name};
+
+ my $exit = 0;
+
+ my $errorcode = "000";
+ my $avail = ReadingsVal($name, "Availability", "");
+
+ if ($avail eq "disabled") {
+ $errorcode = "402";
+ $exit = 1;
+ } elsif ($avail eq "disconnected") {
+ $errorcode = "502";
+ $exit = 1;
+ }
+
+ if($exit) {
+ my $error = expErrors($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
+
+ readingsBeginUpdate ($hash);
+ readingsBulkUpdate ($hash, "Errorcode", $errorcode);
+ readingsBulkUpdate ($hash, "Error", $error );
+ readingsEndUpdate ($hash, 1);
+
+ Log3($name, 2, "$name - ERROR - $log - $error");
+ }
+
+return $exit;
+}
+
+###########################################################################
+# plant die aufrufende Funktion mit einem Delta Time aus dem Hash %hdt
+# neu mit InternalTimer ein
+# $arg = Argument für InternalTimer
+###########################################################################
+sub schedule {
+ my $name = shift;
+ my $arg = shift;
+
+ my $pack = __PACKAGE__;
+ my $caller = (caller(1))[3];
+ my $sub = (split /${pack}::/x, $caller)[1];
+ my $dt = $hdt{$sub};
+
+ if(!$dt) {
+ $dt = 1;
+ Debug (qq{$pack - no delta time found for function "$sub", use default of $dt seconds instead})
+ }
+
+ InternalTimer(gettimeofday()+$dt, $caller, $arg, 0);
+
+ if (AttrVal($name,"debugactivetoken",0)) {
+ Log3($name, 1, "$name - Function $caller scheduled again with delta time $dt seconds");
+ }
+
+return;
+}
+
+###############################################################################
+# Liefert die bereinigte SVS-Version dreistellig xxx
+###############################################################################
+sub myVersion {
+ my $hash = shift;
+ my $name = $hash->{NAME};
+ my $actvs = 0;
+
+ my @vl = split (/-/x,ReadingsVal($name, "SVSversion", ""),2);
+ if(@vl) {
+ $actvs = $vl[0];
+ $actvs =~ s/\.//gx;
+ }
+
+return $actvs;
+}
+
+######################################################################################
+# Polling Überwachung
+# Überwacht die Wert von Attribut "pollcaminfoall" und Reading "PollState"
+# wenn Attribut "pollcaminfoall" > 10 und "PollState"=Inactive -> start Polling
+######################################################################################
+sub wdpollcaminfo {
+ my ($hash) = @_;
+ my $name = $hash->{NAME};
+ my $camname = $hash->{CAMNAME};
+ my $pcia = AttrVal($name,"pollcaminfoall",0);
+ my $pnl = AttrVal($name,"pollnologging",0);
+ my $watchdogtimer = 60+rand(30);
+ my $lang = AttrVal("global","language","EN");
+
+ RemoveInternalTimer($hash, "FHEM::SSCam::wdpollcaminfo");
+
+ if ($hash->{HELPER}{OLDVALPOLLNOLOGGING} != $pnl) { # Poll-Logging prüfen
+ $hash->{HELPER}{OLDVALPOLLNOLOGGING} = $pnl; # aktuellen pollnologging-Wert in $hash eintragen für späteren Vergleich
+ if ($pnl) {
+ Log3($name, 3, "$name - Polling-Log of $camname is deactivated");
+ }
+ else {
+ Log3($name, 3, "$name - Polling-Log of $camname is activated");
+ }
+ }
+
+ if ($pcia && !IsDisabled($name)) { # Polling prüfen
+ if(ReadingsVal($name, "PollState", "Active") eq "Inactive") {
+ readingsSingleUpdate($hash,"PollState","Active",1); # Polling ist jetzt aktiv
+ 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)
+ __getCaminfoAll($hash,0);
+ }
+
+ my $lupd = ReadingsVal($name, "LastUpdateTime", "1970-01-01 / 01:00:00");
+ my ($year,$month,$mday,$hour,$min,$sec);
+
+ if ($lupd =~ /(\d+)\.(\d+)\.(\d+)/x) {
+ ($mday, $month, $year, $hour, $min, $sec) = ($lupd =~ /(\d+)\.(\d+)\.(\d+)\s\/\s(\d+):(\d+):(\d+)/x);
+ }
+ else {
+ ($year, $month, $mday, $hour, $min, $sec) = ($lupd =~ /(\d+)-(\d+)-(\d+)\s\/\s(\d+):(\d+):(\d+)/x);
+ }
+
+ $lupd = fhemTimeLocal($sec, $min, $hour, $mday, $month-=1, $year-=1900);
+
+ if( gettimeofday() > ($lupd + $pcia + 20) ) {
+ __getCaminfoAll($hash,0);
+ }
+
+ }
+
+ if (defined($hash->{HELPER}{OLDVALPOLL}) && $pcia) {
+ if ($hash->{HELPER}{OLDVALPOLL} != $pcia) {
+ Log3($name, 3, "$name - Pollinginterval of $camname has been changed to: $pcia s");
+ $hash->{HELPER}{OLDVALPOLL} = $pcia;
+ }
+ }
+
+ InternalTimer(gettimeofday()+$watchdogtimer, "FHEM::SSCam::wdpollcaminfo", $hash, 0);
+
+return;
+}
+
1;
=pod
@@ -11756,7 +12006,8 @@ return;
All functions of SSCam use HTTP-calls to SVS Web API. attribute "httptimeout" > 0 to adjust the value as needed in your technical environment. httptimeout > 0 to adjust
+ the value as needed in your technical environment.
- set <name> motdetsc camera [sensitivity] [threshold] [percentage] # command pattern set <name> motdetsc camera 89 0 20 # set the sensitivity to 89, percentage to 20 set <name> motdetsc camera 0 40 10 # keep old value for sensitivity, set threshold to 40, percentage to 10 set <name> motdetsc camera 30 # set the sensitivity to 30, other values keep unchanged set <name> motdetsc camera [sensitivity] [object size] [percentage] # command pattern set <name> motdetsc camera 89 0 20 # set the sensitivity to 89, percentage to 20 set <name> motdetsc camera 0 40 10 # keep old value for sensitivity, set threshold to 40, percentage to 10 set <name> motdetsc camera 30 # set the sensitivity to 30, other values keep unchanged
+ apiInfo
caminfoall (valid for CAM/SVS)
- listLog [severity:<Loglevel>] [limit:<Number of lines>] [match:<Searchstring>] (valid for SVS) listLog [severity:<Loglevel>] [limit:<Number of lines>] [match:<Searchstring>] (valid for SVS)
- <Loglevel> - Information, Warning or Error. Only datasets having this severity are retrieved (default: all)
- <Number of lines> - the specified number of lines (newest) of the log are retrieved (default: all)
- <Searchstring> - only log entries containing the searchstring are retrieved (Note: no Regex possible, the searchstring will be given into the call to SVS)
-
-
+ <Loglevel> - Information, Warning or Error. Only datasets having this severity are retrieved (default: all)
+ <Number of lines> - the specified number of lines (newest) of the log are retrieved (default: all)
+ <Searchstring> - only log entries containing the searchstring are retrieved (Note: no Regex possible, the searchstring will be given into the call to SVS)
+
+ Examples
- get <name> listLog severity:Error limit:5 get <name> listLog severity:Information match:Carport get <name> listLog severity:Warning
+ Examples
+ get <name> listLog severity:Error limit:5 get <name> listLog severity:Information match:Carport get <name> listLog severity:Warning
- If the polling of SVS is activated by setting the attribute "pollcaminfoall", the reading
- "LastLogEntry" will be created. Synology Online-Help .
+ If the polling of SVS is activated by setting the attribute "pollcaminfoall", the reading
+ "LastLogEntry" will be created. Synology Online-Help .
Attribut "httptimeout") is set to 4 seconds, the theoretical processing time couldn't be higher than 80 seconds. httptimeout ) is set to 4 seconds, the theoretical processing time couldn't be higher than 80 seconds. httptimeout htmlattr pollcaminfoall
Alle Funktionen dieses Moduls verwenden HTTP-Aufrufe gegenüber der SVS Web API. Attributes "httptimeout" > 0 kann dieser Wert bei Bedarf entsprechend den technischen
- Gegebenheiten angepasst werden. httptimeout > 0 kann dieser Wert bei Bedarf entsprechend
+ den technischen Gegebenheiten angepasst werden.
- goAbsPTZ [ X Y | up | down | left | right ] (gilt für CAM) goAbsPTZ [ X Y | up | down | left | right ] (gilt für CAM)
- set <name> goAbsPTZ 120 450
-
+
+ set <name> goAbsPTZ 120 450
+
- Dieses Beispiel bewegt die Kameralinse in die Position X=120 und Y=450.
- X = 0 - 640 (0 - 319 bewegt nach links, 321 - 640 bewegt nach rechts, 320 bewegt die Linse nicht)
- Y = 0 - 480 (0 - 239 bewegt nach unten, 241 - 480 bewegt nach oben, 240 bewegt die Linse nicht)
-
+
+ X = 0 - 640 (0 - 319 bewegt nach links, 321 - 640 bewegt nach rechts, 320 bewegt die Linse nicht)
+ Y = 0 - 480 (0 - 239 bewegt nach unten, 241 - 480 bewegt nach oben, 240 bewegt die Linse nicht)
+
- Die Linse kann damit in kleinsten bis sehr großen Schritten in die gewünschte Richtung bewegt werden.
- Dieser Vorgang muß ggf. mehrfach wiederholt werden um die Kameralinse in die gewünschte Position zu bringen.
- set <name> goAbsPTZ [up|down|left|right]
-
+
+ set <name> goAbsPTZ [up|down|left|right]
+
- verwendet werden. Die Optik wird in diesem Fall mit der größt möglichen Schrittweite zur Absolutposition in der angegebenen Richtung bewegt.
- Auch in diesem Fall muß der Vorgang ggf. mehrfach wiederholt werden um die Kameralinse in die gewünschte Position zu bringen.
+ verwendet werden. Die Optik wird in diesem Fall mit der größt möglichen Schrittweite zur Absolutposition in der angegebenen Richtung bewegt.
+ Auch in diesem Fall muß der Vorgang ggf. mehrfach wiederholt werden um die Kameralinse in die gewünschte Position zu bringen.
- motdetsc [camera|SVS|disable] (gilt für CAM) motdetsc [camera [<options>] | SVS [<options>] | disable] (gilt für CAM)
- set <name> motdetsc SVS [Empfindlichkeit] [Schwellwert] # Befehlsmuster set <name> motdetsc SVS 91 30 # setzt die Empfindlichkeit auf 91 und den Schwellwert auf 30 set <name> motdetsc SVS 0 40 # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40 set <name> motdetsc SVS 15 # setzt die Empfindlichkeit auf 15, Schwellwert bleibt unverändert set <name> motdetsc SVS [Empfindlichkeit] [Schwellenwert] # Befehlsmuster set <name> motdetsc SVS 91 30 # setzt die Empfindlichkeit auf 91 und den Schwellwert auf 30 set <name> motdetsc SVS 0 40 # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40 set <name> motdetsc SVS 15 # setzt die Empfindlichkeit auf 15, Schwellenwert bleibt unverändert
- set <name> motdetsc camera [Empfindlichkeit] [Schwellwert] [Prozentsatz] # Befehlsmuster set <name> motdetsc camera 89 0 20 # setzt die Empfindlichkeit auf 89, Prozentsatz auf 20 set <name> motdetsc camera 0 40 10 # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40, Prozentsatz auf 10 set <name> motdetsc camera 30 # setzt die Empfindlichkeit auf 30, andere Werte bleiben unverändert set <name> motdetsc camera [Empfindlichkeit] [Objektgröße] [Prozentsatz] # Befehlsmuster set <name> motdetsc camera 89 0 20 # setzt die Empfindlichkeit auf 89, Prozentsatz auf 20 set <name> motdetsc camera 0 40 10 # behält gesetzten Wert für Empfindlichkeit bei, setzt Schwellwert auf 40, Prozentsatz auf 10 set <name> motdetsc camera 30 # setzt die Empfindlichkeit auf 30, andere Werte bleiben unverändert
-
+
Reading "CamMotDetSc" aktualisiert welches die gegenwärtige Einstellung der Bewegungserkennung dokumentiert.
Es werden nur die Parameter und Parameterwerte angezeigt, welche die SVS aktiv unterstützt. Die Kamera selbst kann weiterführende Einstellmöglichkeiten besitzen. Beipiel:
CamMotDetSc SVS, sensitivity: 76, threshold: 55
@@ -14426,6 +14696,15 @@ attr <name> genericStrmHtmlTag <img $HTMLATTR
Die aufgeführten get-Befehle sind für CAM/SVS-Devices oder nur für CAM-Devices bzw. nur für SVS-Devices gültig. Sie stehen im
Drop-Down-Menü des jeweiligen Devices zur Auswahl zur Verfügung.
+ apiInfo
+
caminfoall (gilt für CAM/SVS) caminfo (gilt für CAM)
- listLog [severity:<Loglevel>] [limit:<Zeilenzahl>] [match:<Suchstring>] (gilt für SVS) listLog [severity:<Loglevel>] [limit:<Zeilenzahl>] [match:<Suchstring>] (gilt für SVS)
+ <Loglevel> - Information, Warning oder Error. Nur Sätze mit dem Schweregrad werden abgerufen (default: alle)
+ <Zeilenzahl> - die angegebene Anzahl der Logzeilen (neueste) wird abgerufen (default: alle)
+ <Suchstring> - nur Logeinträge mit dem angegeben String werden abgerufen (Achtung: kein Regex, der Suchstring wird im Call an die SVS mitgegeben)
+
+
- <Loglevel> - Information, Warning oder Error. Nur Sätze mit dem Schweregrad werden abgerufen (default: alle)
- <Zeilenzahl> - die angegebene Anzahl der Logzeilen (neueste) wird abgerufen (default: alle)
- <Suchstring> - nur Logeinträge mit dem angegeben String werden abgerufen (Achtung: kein Regex, der Suchstring wird im Call an die SVS mitgegeben)
-
- Beispiele
- get <name> listLog severity:Error limit:5 get <name> listLog severity:Information match:Carport get <name> listLog severity:Warning
+ Beispiele
+ get <name> listLog severity:Error limit:5 get <name> listLog severity:Information match:Carport get <name> listLog severity:Warning
- Wurde mit dem Attribut "pollcaminfoall" das Polling der SVS aktiviert, wird das Reading
- "LastLogEntry" erstellt. Synology Online-Hlfe .
+ Wurde mit dem Attribut pollcaminfoall das Polling der SVS aktiviert, wird das Reading
+ "LastLogEntry" erstellt. Synology Online-Hlfe .
httptimeout hlsNetScript (setzbar in Device Model "SVS") pollcaminfoall pollnologging 
')\">