cold-timestamp

#!/usr/bin/env perl
use strict;
use warnings;
use JSON;

while (<>) {
  my $relay = decode_json $_;
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(int($relay->{coldTimestamp} / 1000));
  my $date = sprintf('%d-%02d-%02d', $year+1900, $mon+1, $mday);
  print "$date $_"
}