### 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");
}