### Console Message if enabled print ": $JsonId\n"; print(" - JsonResponse : " . $json . "\n"); print(" - JSON Type : " . $json->{type} . "\n"); print(" - JSON maxNbOfSwitchPoints : " . $json->{maxNbOfSwitchPoints} . "\n"); print(" - JSON maxNbOfSwitchPointsPerDay : " . $json->{maxNbOfSwitchPointsPerDay} . "\n"); print(" - JSON switchPointTimeRaster : " . $json->{switchPointTimeRaster} . "\n"); print(" - JSON writeable : " . $json->{writeable} . "\n"); print(" - JSON setpointProperty : " . $json->{setpointProperty} . "\n"); print(" - JSON switchPoints : " . $json->{switchPoints} . "\n"); my @temparray = @{$json->{switchPoints}}; my $item; foreach $item (@temparray) { print(" - hash dayOfWeek : " . $item->{dayOfWeek} . " - setpoint : " . $item->{setpoint} . " - setpoint : " . $item->{time}/0.6 . "\n"); }