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

vitoconnect: log Verzeichnis über global konfigurierbar

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21650 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
andreas13 2020-04-12 16:01:38 +00:00
parent ae7fc2ae02
commit 74c3993e7d
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/98_vitoconnect.pm
View File

@ -145,6 +145,7 @@
# 2020-03-02 Bei Aktionen wird nicht mehr auf defined($data) sondern auf ne "" getestet. # 2020-03-02 Bei Aktionen wird nicht mehr auf defined($data) sondern auf ne "" getestet.
# 2020-04-05 s.o. 2. Versuch # 2020-04-05 s.o. 2. Versuch
# #
# 2020-04-09 my $dir = path(AttrVal("global","logdir","log"));
# #
# ToDo: timeout konfigurierbar machen # ToDo: timeout konfigurierbar machen
# "set"s für Schedules zum Steuern der Heizung implementieren # "set"s für Schedules zum Steuern der Heizung implementieren
@ -1304,7 +1305,7 @@ sub vitoconnect_getGwCallback($) {
return; return;
} }
if ($hash->{".logResponseOnce"}) { if ($hash->{".logResponseOnce"}) {
my $dir = path("log"); my $dir = path(AttrVal("global","logdir","log"));
my $file = $dir->child("gw.json"); my $file = $dir->child("gw.json");
my $file_handle = $file->openw_utf8(); my $file_handle = $file->openw_utf8();
$file_handle->print(Dumper($decode_json)); $file_handle->print(Dumper($decode_json));
@ -1356,7 +1357,7 @@ sub vitoconnect_getResourceCallback($) {
Log3 $name, 4, "$name - getResourceCallback went ok"; Log3 $name, 4, "$name - getResourceCallback went ok";
Log3 $name, 5, "Received response: $response_body\n"; Log3 $name, 5, "Received response: $response_body\n";
my $decode_json = eval{decode_json($response_body)}; my $decode_json = eval{decode_json($response_body)};
if($@) { if($@) {
Log3 $name, 1, "$name - JSON error while request: $@"; Log3 $name, 1, "$name - JSON error while request: $@";
InternalTimer(gettimeofday()+$hash->{intervall}, "vitoconnect_GetUpdate", $hash); InternalTimer(gettimeofday()+$hash->{intervall}, "vitoconnect_GetUpdate", $hash);
return; } return; }
@ -1364,13 +1365,13 @@ sub vitoconnect_getResourceCallback($) {
########################################### ###########################################
if ($hash->{".logResponseOnce"}) { if ($hash->{".logResponseOnce"}) {
my $dir = path("log"); my $dir = path(AttrVal("global","logdir","log"));
my $file = $dir->child("entities.json"); my $file = $dir->child("entities.json");
my $file_handle = $file->openw_utf8(); my $file_handle = $file->openw_utf8();
#$file_handle->print(Dumper($items)); #$file_handle->print(Dumper($items));
$file_handle->print( Dumper(@{$items->{entities}} )); $file_handle->print( Dumper(@{$items->{entities}} ));
my $file2 = $dir->child("actions.json"); my $file2 = $dir->child("actions.json");
$file_handle2 = $file2->openw_utf8(); $file_handle2 = $file2->openw_utf8();
} }
########################################### ###########################################