X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=loop.pl;h=4046ca9b95b42dd95f00a8313a4fc588b433563b;hb=104d1371435741ced5e3fe8f78f352865505133c;hp=71464fd208d81390b2fa588a348855c484adaf83;hpb=729468e0480bc5a382f61b29e0c4ae27866536d4;p=dweather.git

diff --git a/loop.pl b/loop.pl
index 71464fd..4046ca9 100755
--- a/loop.pl
+++ b/loop.pl
@@ -13,6 +13,8 @@ use JSON;
 use Debug;
 use SMGLog;
 use Math::Round qw(nearest);
+use File::Copy;
+use Data::Random qw(rand_chars);
 
 use constant pi => 3.14159265358979; 
 
@@ -153,6 +155,9 @@ dbg "after app start";
 write_ld();
 close $dataf if $dataf;
 
+# move all the files along one 
+cycle_loop_data_files();
+
 dbg '***';
 dbg "*** ending $0";
 dbg '***';
@@ -163,10 +168,6 @@ exit 0;
 	
 sub loop
 {
-
-	open $dataf, "+>>", $datafn or die "cannot open $datafn $!";
-	$dataf->autoflush(1);
-	
 	read_ld();
 	
 	dbg "last_min: " . scalar gmtime($ld->{last_min});
@@ -375,6 +376,8 @@ sub process
 		if ($dayno > $ld->{last_day}) {
 			$ld->{Temp_Out_Max} = $ld->{Temp_Out_Min} = $temp;
 			$ld->{last_day} = $dayno;
+			write_ld();
+			cycle_loop_data_files();
 		}
 		$ld->{Temp_Out_Max} = $temp if $temp > $ld->{Temp_Out_Max};
 		$ld->{Temp_Out_Min} = $temp if $temp < $ld->{Temp_Out_Min};
@@ -618,7 +621,10 @@ sub calc_rain
 
 sub read_ld
 {
-	return unless $dataf;
+	unless ($dataf) {
+		open $dataf, "+>>", $datafn or die "cannot open $datafn $!";
+		$dataf->autoflush(1);
+	}
 
 	seek $dataf, 0, 0;
 	my $s = <$dataf>;
@@ -645,8 +651,11 @@ sub read_ld
 
 sub write_ld
 {
-	return unless $dataf;
-	
+	unless ($dataf) {
+		open $dataf, "+>>", $datafn or die "cannot open $datafn $!";
+		$dataf->autoflush(1);
+	}
+
 	seek $dataf, 0, 0;
 	truncate $dataf, 0;
 	$ld->{ts} = time;
@@ -655,6 +664,16 @@ sub write_ld
 	print $dataf "$s\n";
 }
 
+sub cycle_loop_data_files
+{
+	close $dataf if $dataf;
+	
+	rename "$datafn.oooo", "$datafn.ooooo";
+	rename "$datafn.ooo", "$datafn.oooo";
+	rename "$datafn.oo", "$datafn.ooo";
+	rename "$datafn.o", "$datafn.oo";
+	copy $datafn, "$datafn.o";
+}
 
 __DATA__
  
@@ -707,29 +726,40 @@ __DATA__
 
 <br><br>
 <table border=1 width=80%>
+<tr>
 <th>Time:<td><span id="tm"> </span>
+<th>Sunrise:<td><span id="Sunrise"> </span>
+<th>Sunset:<td><span id="Sunset"> </span>
+<th>Console Volts:<td><span id="Batt_Console"> </span>
+<th>TX Battery OK:<td><span id="Batt_TX_OK"> </span>
+
 <tr>
 <th>Pressure:<td><span id="Pressure"> </span>
+<th>Trend:<td><span id="Pressure_Trend_txt"> </span>
+
 <tr>
 <th>Temperature in:<td> <span id="Temp_In"> </span> 
 <th>Humidity:<td> <span id="Humidity_In"> </span>
+
 <tr>
 <th>Temperature out:<td> <span id="Temp_Out"> </span> 
 <th>Min:<td> <span id="Temp_Out_Min"> </span> 
 <th>Max:<td> <span id="Temp_Out_Max"> </span> 
 <th>Humidity:<td> <span id="Humidity_Out"> </span> 
 <th>Dew Point:<td> <span id="Dew_Point"> </span> 
+
 <tr>
 <th>Wind Direction:<td> <span id="Dir"> </span> 
-<th>Minute:<td> <span id="Dir_1m">  </span> 
+<th>Minute Avg:<td> <span id="Dir_1m">  </span> 
 <th>Speed:<td> <span id="Wind"> </span> 
-<th>Minute:<td> <span id="Wind_1m">  </span>
+<th>Minute Avg:<td> <span id="Wind_1m">  </span>
+
 <tr>
-<th>Rain Hour:<td> <span id="Rain_1h"> </span>
+<th>Rain 30mins:<td> <span id="Rain_1h"> </span>
 <th>Day:<td> <span id="Rain_Day"> </span>
 <th>24hrs:<td> <span id="Rain_24h"> </span>
 <th>Month:<td> <span id="Rain_Month"> </span>
 <th>Year:<td> <span id="Rain_Year"> </span>
 </table>
-  </body>
+</body>
 </html>