FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-18 05:56:03 +00:00
Code Issues Releases Wiki Activity

57_SSCal: contrib 1.3.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21090 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-02-01 19:54:01 +00:00
parent 0f3d55aac8
commit cc507e3523
1 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
fhem/contrib/DS_Starter/57_SSCal.pm
View File

@ -48,6 +48,7 @@ eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
# Versions History intern
my %SSCal_vNotesIntern = (
"1.3.1" => "01.02.2020 add SSCal_errauthlist hash for login/logout API error codes ",
"1.3.0" => "01.02.2020 new command \"cleanCompleteTasks\" to delete completed tasks, \"deleteEventId\" to delete an event id, ".
"new get command \"apiInfo\" - detect and show API info, avoid empty readings ",
"1.2.0" => "29.01.2020 get tasks from calendar with set command 'calToDoList' ",
@ -74,6 +75,15 @@ my %SSCal_vNotesExtern = (
"1.0.0" => "18.12.2019 initial "
);
# Aufbau Errorcode-Hashes
my %SSCal_errauthlist = (
400 => "No such account or the password is incorrect",
401 => "Account disabled",
402 => "Permission denied",
403 => "2-step verification code required",
404 => "Failed to authenticate 2-step verification code",
);
my %SSCal_errlist = (
100 => "Unknown error",
101 => "No parameter of API, method or version",
@ -2376,7 +2386,7 @@ sub SSCal_login_return ($) {
my $errorcode = $data->{error}{code};
# Fehlertext zum Errorcode ermitteln
my $error = SSCal_experror($hash,$errorcode);
my $error = SSCal_experrorauth($hash,$errorcode);
readingsBeginUpdate ($hash);
readingsBulkUpdate ($hash,"Errorcode", $errorcode);
@ -2472,7 +2482,7 @@ sub SSCal_logout_return ($) {
$errorcode = $data->{error}->{code};
# Fehlertext zum Errorcode ermitteln
$error = SSCal_experror($hash,$errorcode); # Fehlertext zum Errorcode ermitteln
$error = SSCal_experrorauth($hash,$errorcode);
Log3($name, 2, "$name - ERROR - Logout of User $username was not successful, however SID: \"$sid\" has been deleted. Errorcode: $errorcode - $error");
}
@ -2529,7 +2539,26 @@ return $bool;
##############################################################################
# Auflösung Errorcodes SVS API
# Auflösung Errorcodes Calendar AUTH API
# Übernahmewerte sind $hash, $errorcode
##############################################################################
sub SSCal_experrorauth ($$) {
my ($hash,$errorcode) = @_;
my $device = $hash->{NAME};
my $error;
unless (exists($SSCal_errauthlist{"$errorcode"})) {
$error = "Value of errorcode \"$errorcode\" not found.";
return ($error);
}
$error = $SSCal_errauthlist{"$errorcode"};
return ($error);
}
##############################################################################
# Auflösung Errorcodes Calendar API
# Übernahmewerte sind $hash, $errorcode
##############################################################################
sub SSCal_experror ($$) {
@ -2542,7 +2571,6 @@ sub SSCal_experror ($$) {
return ($error);
}
# Fehlertext aus Hash-Tabelle %errorlist ermitteln
$error = $SSCal_errlist{"$errorcode"};
return ($error);