FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

49_SSCam: contrib 7.7.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17920 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2018-12-07 19:41:01 +00:00
parent f837cb148a
commit 8237b9da00
1 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
fhem/contrib/DS_Starter/49_SSCam.pm
View File

@ -2367,7 +2367,7 @@ sub SSCam_runliveview($) {
} }
# Fehlertext zum Errorcode ermitteln # Fehlertext zum Errorcode ermitteln
$error = &SSCam_experror($hash,$errorcode); $error = SSCam_experror($hash,$errorcode);
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Errorcode",$errorcode);
@ -2418,7 +2418,7 @@ sub SSCam_hlsactivate($) {
} }
# Fehlertext zum Errorcode ermitteln # Fehlertext zum Errorcode ermitteln
$error = &SSCam_experror($hash,$errorcode); $error = SSCam_experror($hash,$errorcode);
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Errorcode",$errorcode);
@ -2466,7 +2466,7 @@ sub SSCam_setAutocreate($) {
} }
# Fehlertext zum Errorcode ermitteln # Fehlertext zum Errorcode ermitteln
$error = &SSCam_experror($hash,$errorcode); $error = SSCam_experror($hash,$errorcode);
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Errorcode",$errorcode);
@ -2514,7 +2514,7 @@ sub SSCam_hlsreactivate($) {
} }
# Fehlertext zum Errorcode ermitteln # Fehlertext zum Errorcode ermitteln
$error = &SSCam_experror($hash,$errorcode); $error = SSCam_experror($hash,$errorcode);
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"Errorcode",$errorcode); readingsBulkUpdate($hash,"Errorcode",$errorcode);
@ -5881,7 +5881,7 @@ sub SSCam_logout_return ($) {
$errorcode = $data->{'error'}->{'code'}; $errorcode = $data->{'error'}->{'code'};
# Fehlertext zum Errorcode ermitteln # Fehlertext zum Errorcode ermitteln
$error = &SSCam_experrorauth($hash,$errorcode); $error = SSCam_experrorauth($hash,$errorcode);
Log3($name, 2, "$name - ERROR - Logout of User $username was not successful, however SID: \"$sid\" has been deleted. Errorcode: $errorcode - $error"); Log3($name, 2, "$name - ERROR - Logout of User $username was not successful, however SID: \"$sid\" has been deleted. Errorcode: $errorcode - $error");
} }
@ -6763,37 +6763,52 @@ return $htmlCode;
############################################################################## ##############################################################################
# Auflösung Errorcodes bei Login / Logout # Auflösung Errorcodes bei Login / Logout
############################################################################## ##############################################################################
sub SSCam_experrorauth { sub SSCam_experrorauth ($$) {
# Übernahmewerte sind $hash, $errorcode # Übernahmewerte sind $hash, $errorcode
my ($hash,@errorcode) = @_; my ($hash,$errorcode) = @_;
my $device = $hash->{NAME}; my $device = $hash->{NAME};
my $errorcode = shift @errorcode;
my $error; my $error;
unless (exists($SSCam_errauthlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);} unless (exists($SSCam_errauthlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
# Fehlertext aus Hash-Tabelle %errorauthlist ermitteln # Fehlertext aus Hash-Tabelle %errorauthlist ermitteln
$error = $SSCam_errauthlist{"$errorcode"}; $error = $SSCam_errauthlist{"$errorcode"};
return ($error); return ($error);
} }
############################################################################## ##############################################################################
# Auflösung Errorcodes SVS API # Auflösung Errorcodes SVS API
sub SSCam_experror { sub SSCam_experror ($$) {
# Übernahmewerte sind $hash, $errorcode # Übernahmewerte sind $hash, $errorcode
my ($hash,@errorcode) = @_; my ($hash,$errorcode) = @_;
my $device = $hash->{NAME}; my $device = $hash->{NAME};
my $errorcode = shift @errorcode;
my $error; my $error;
unless (exists($SSCam_errlist{"$errorcode"})) {$error = "Message of errorcode $errorcode not found. Please turn to Synology Web API-Guide."; return ($error);} unless (exists($SSCam_errlist{"$errorcode"})) {$error = "Message of errorcode \"$errorcode\" not found. Please turn to Synology Web API-Guide."; return ($error);}
# Fehlertext aus Hash-Tabelle %errorlist ermitteln # Fehlertext aus Hash-Tabelle %errorlist ermitteln
$error = $SSCam_errlist{"$errorcode"}; $error = $SSCam_errlist{"$errorcode"};
return ($error);
return ($error);
} }
#############################################################################################
# Token freigeben
#############################################################################################
sub SSCam_ActiveTokenOff ($) {
my ($hash) = @_;
my $name = $hash->{NAME};
$hash->{HELPER}{ACTIVE} = "off";
if (AttrVal($name,"debugactivetoken",0)) {
Log3($name, 3, "$name - Active-Token deleted by OPMODE: $hash->{OPMODE}");
}
return;
}
1; 1;