X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=loop.pl;h=5fe9594044f815ace92f4770be21da6d97e2776c;hb=86125caccc4bf630c8db18d9377c42b1ec5da428;hp=a9b7f2d3245a9f62a5bdb675964ce2bc29eee074;hpb=b3376c44ca26ef6b330994bcbeea40d3ae9166de;p=dweather.git

diff --git a/loop.pl b/loop.pl
index a9b7f2d..5fe9594 100755
--- 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 = ();