2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 11:16:36 +00:00

57_SSCal: contrib 1.1.13

git-svn-id: https://svn.fhem.de/fhem/trunk@21024 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-01-20 19:06:58 +00:00
parent 441ee2f9dd
commit ac57bc6bcd

View File

@ -48,6 +48,7 @@ eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
# Versions History intern # Versions History intern
my %SSCal_vNotesIntern = ( my %SSCal_vNotesIntern = (
"1.1.13" => "20.01.2020 change save and read credentials routine ",
"1.1.12" => "19.01.2020 add attribute interval, automatic event fetch ", "1.1.12" => "19.01.2020 add attribute interval, automatic event fetch ",
"1.1.11" => "18.01.2020 status information added: upcoming, alarmed, started, ended ", "1.1.11" => "18.01.2020 status information added: upcoming, alarmed, started, ended ",
"1.1.10" => "17.01.2020 attribute asyncMode for parsing events in BlockingCall, some fixes ", "1.1.10" => "17.01.2020 attribute asyncMode for parsing events in BlockingCall, some fixes ",
@ -2240,7 +2241,7 @@ sub SSCal_setcredentials ($@) {
my (@key,$len,$i); my (@key,$len,$i);
my $ao = "credentials"; my $ao = "credentials";
$credstr = encode_base64(join(':', @credentials)); $credstr = encode_base64(join('!_ESC_!', @credentials));
# Beginn Scramble-Routine # Beginn Scramble-Routine
@key = qw(1 3 4 5 6 3 2 1 9); @key = qw(1 3 4 5 6 3 2 1 9);
@ -2307,7 +2308,7 @@ sub SSCal_getcredentials ($$$) {
split //, $credstr; split //, $credstr;
# Ende Descramble-Routine # Ende Descramble-Routine
($username, $passwd) = split(":",decode_base64($credstr)); ($username, $passwd) = split("!_ESC_!",decode_base64($credstr));
my $logcre = AttrVal($name, "showPassInLog", "0") == 1 ? $passwd : "********"; my $logcre = AttrVal($name, "showPassInLog", "0") == 1 ? $passwd : "********";