update DWeather::Debug, Logger, Serial

[dweather.git] / loop.pl

diff --git a/loop.pl b/loop.pl
index a9b7f2d3245a9f62a5bdb675964ce2bc29eee074..5fe9594044f815ace92f4770be21da6d97e2776c 100755 (executable)
--- a/loop.pl
+++ b/loop.pl
@@ -248,7 +248,7 @@ sub process
 
 #      $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?
@@ -311,6 +311,7 @@ sub process
                        $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;
@@ -331,6 +332,7 @@ sub process
                        $last_rain_min = $rain;
 
                        $j = $json->encode(\%h);
+
                        $s = qq|{"t":$ts,"m":$j}|;
                        $last_min = int($ts/60)*60;
                        @min = ();