# $h{Rain_Rate} = sprintf("%0.1f",unpack("s", substr $blk,41,2) * $rain_mult)+0;
$rain = $h{Rain_Day} = sprintf("%0.1f", unpack("s", substr $blk,50,2) * $rain_mult)+0;
- $h{Rain} = ($rain >= $last_rain ? $rain - $last_rain : $rain) if $loop_count;
+ my $delta_rain = $h{Rain} = ($rain >= $last_rain ? $rain - $last_rain : $rain) if $loop_count;
$last_rain = $rain;
# what sort of packet is it?
$last_rain_min = $last_rain_hour = $rain;
$j = $json->encode(\%h);
+
$s = qq|{"t":$ts,"h":$j}|;
$last_hour = int($ts/3600)*3600;
$last_min = int($ts/60)*60;
$last_rain_min = $rain;
$j = $json->encode(\%h);
+
$s = qq|{"t":$ts,"m":$j}|;
$last_min = int($ts/60)*60;
@min = ();