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

49_SSCam: PTZ-Panel integrated into created StreamDevice

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16793 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2018-05-28 21:03:03 +00:00
parent 983e7ac8b6
commit c4e83f7c30
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/49_SSCam.pm
View File

@ -613,7 +613,7 @@ sub SSCam_Set($@) {
"enable:noArg ". "enable:noArg ".
"disable:noArg ". "disable:noArg ".
"optimizeParams ". "optimizeParams ".
"runView:live_fw,live_fw_hls,live_link,live_open,lastrec_fw,lastrec_fw_MJPEG,lastrec_fw_MPEG4/H.264,lastrec_open,lastsnap_fw ". "runView:live_fw,live_link,live_open,lastrec_fw,lastrec_fw_MJPEG,lastrec_fw_MPEG4/H.264,lastrec_open,lastsnap_fw ".
((ReadingsVal("$name", "CapPTZPan", "false") ne "false") ? "setPreset ": ""). ((ReadingsVal("$name", "CapPTZPan", "false") ne "false") ? "setPreset ": "").
((ReadingsVal("$name", "CapPTZPan", "false") ne "false") ? "setHome:---currentPosition---,".ReadingsVal("$name","Presets","")." " : ""). ((ReadingsVal("$name", "CapPTZPan", "false") ne "false") ? "setHome:---currentPosition---,".ReadingsVal("$name","Presets","")." " : "").
"stopView:noArg ". "stopView:noArg ".
@ -2873,7 +2873,7 @@ sub SSCam_getapisites_parse ($) {
} elsif ($myjson ne "") { } elsif ($myjson ne "") {
# Evaluiere ob Daten im JSON-Format empfangen wurden # Evaluiere ob Daten im JSON-Format empfangen wurden
($hash, my $success) = &SSCam_evaljson($hash,$myjson,$param->{url}); ($hash, my $success) = SSCam_evaljson($hash,$myjson);
unless ($success) { unless ($success) {
Log3($name, 4, "$name - Data returned: $myjson"); Log3($name, 4, "$name - Data returned: $myjson");
@ -3294,7 +3294,7 @@ sub SSCam_getcamid_parse ($) {
} elsif ($myjson ne "") { } elsif ($myjson ne "") {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes) # 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 # evaluiere ob Daten im JSON-Format empfangen wurden, Achtung: sehr viele Daten mit verbose=5
($hash, $success) = SSCam_evaljson($hash,$myjson,$param->{url}); ($hash, $success) = SSCam_evaljson($hash,$myjson);
unless ($success) { unless ($success) {
Log3($name, 4, "$name - Data returned: ".$myjson); Log3($name, 4, "$name - Data returned: ".$myjson);
@ -3827,7 +3827,7 @@ sub SSCam_camop_parse ($) {
} elsif ($myjson ne "") { } elsif ($myjson ne "") {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes) # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
# Evaluiere ob Daten im JSON-Format empfangen wurden # Evaluiere ob Daten im JSON-Format empfangen wurden
($hash, $success) = &SSCam_evaljson($hash,$myjson,$param->{url}); ($hash, $success) = SSCam_evaljson($hash,$myjson);
unless ($success) { unless ($success) {
Log3($name, 4, "$name - Data returned: ".$myjson); Log3($name, 4, "$name - Data returned: ".$myjson);
@ -4998,7 +4998,7 @@ sub SSCam_login_return ($) {
# wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes) # wenn die Abfrage erfolgreich war ($data enthält die Ergebnisdaten des HTTP Aufrufes)
# Evaluiere ob Daten im JSON-Format empfangen wurden # Evaluiere ob Daten im JSON-Format empfangen wurden
($hash, $success) = SSCam_evaljson($hash,$myjson,$param->{url}); ($hash, $success) = SSCam_evaljson($hash,$myjson);
unless ($success) { unless ($success) {
Log3($name, 4, "$name - no JSON-Data returned: ".$myjson); Log3($name, 4, "$name - no JSON-Data returned: ".$myjson);
$hash->{HELPER}{ACTIVE} = "off"; $hash->{HELPER}{ACTIVE} = "off";
@ -5119,7 +5119,7 @@ sub SSCam_logout_return ($) {
Log3($name, 4, "$name - URL-Call: ".$param->{url}); Log3($name, 4, "$name - URL-Call: ".$param->{url});
# Evaluiere ob Daten im JSON-Format empfangen wurden # Evaluiere ob Daten im JSON-Format empfangen wurden
($hash, $success) = &SSCam_evaljson($hash,$myjson,$param->{url}); ($hash, $success) = SSCam_evaljson($hash,$myjson);
unless ($success) { unless ($success) {
Log3($name, 4, "$name - Data returned: ".$myjson); Log3($name, 4, "$name - Data returned: ".$myjson);
@ -5167,15 +5167,13 @@ return;
############################################################################### ###############################################################################
# Test ob JSON-String empfangen wurde # Test ob JSON-String empfangen wurde
sub SSCam_evaljson { sub SSCam_evaljson($$) {
my ($hash,$myjson,$url)= @_; my ($hash,$myjson)= @_;
my $success = 1; my $success = 1;
my $e;
eval {decode_json($myjson)} or do eval {decode_json($myjson)} or do
{ {
$success = 0; $success = 0;
$e = $@;
# Setreading # Setreading
readingsBeginUpdate($hash); readingsBeginUpdate($hash);