From 47f7722750cbac46b82ccbad76a69ed27e1b48d2 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 19 Jan 2016 17:49:10 +0000
Subject: [PATCH] max windchill active only in winds > 1.2m/s

---
 loop.pl                 | 3 +++
 templates/index.html.ep | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/loop.pl b/loop.pl
index f19b480..d5f69a5 100755
--- a/loop.pl
+++ b/loop.pl
@@ -448,6 +448,9 @@ sub process
 			++$writeld;
 		}
 
+		my $wkph = $wind->{w} * 3.6;
+		$h{WindChill} = nearest(0.1, $wind->{w} >= 1.2 ? 13.12 + 0.6215 * $temp - 11.37 * $wkph ** 0.16 + 0.3965 * $temp * $wkph ** 0.16 : $temp); 
+
 		if ($ts >= $ld->{last_hour} + 1800) {
 			$h{Pressure_Trend}    = unpack("C", substr $blk,3,1);
 			$h{Pressure_Trend_txt} = $bar_trend{$h{Pressure_Trend}};
diff --git a/templates/index.html.ep b/templates/index.html.ep
index e1bf922..1cbb949 100644
--- a/templates/index.html.ep
+++ b/templates/index.html.ep
@@ -299,7 +299,6 @@
 							   }
 						   }
 						   chop $s if length $s; 
-						   say $s;
 						%><%= $s %>
 					],
 					tooltip: {
@@ -349,7 +348,6 @@
 							   }
 						   }
 						   chop $s if length $s; 
-						   say $s;
 						%><%= $s %>
 					],
 					tooltip: {
@@ -817,6 +815,7 @@
 					<tr><th>Wind:</th><td><span id="Dir"> </span> ° @ <span id="Wind"> </span> mph</td>
 						<th>Wind Minute Avg:</th><td> <span id="Dir_1m"> </span> ° @ <span id="Wind_1m"> </span> mph </td>
 						<th>Day Max Speed:</th><td> <span id="Wind_Max"> </span> mph @ <span id="Wind_Max_T"> </span></td>
+						<th>Wind Chill:</th><td> <span id="WindChill"> °C</span></td>
 					</tr>
 					<tr>
 						<th>Rain 30mins:</th><td> <span id="Rain_1h"> </span> mm</td>
-- 
2.34.1