Ticket #3811: envcan.2.pl.patch

envcan.

@@ -135 +135 @@
         $results{'appt'}       = int(((9/5) * $results{'appt'}) + 32);
         $results{'visibility'} = sprintf("%.1f", ($results{'visibility'} * 0.621371192));
         $results{'pressure'}   = sprintf("%.2f", $results{'pressure'} * 0.0295301);
-        $results{'wind_speed'} = sprintf("%.2f", $results{'wind_speed'} * 1.609344);
-        $results{'wind_spdgst'} = sprintf("%.2f (NA) mph", $results{'wind_spdgst'} * 1.609344);
+        $results{'wind_speed'} = sprintf("%.2f", $results{'wind_speed'} * 0.621371192);
+        $results{'wind_spdgst'} = sprintf("%.2f (%.2f) mph", $results{'wind_speed'} * 0.621371192, $results{'wind_gust'} * 0.621371192);
         
         for (my $i=0;$i<6;$i++) {
                 $results{"high-$i"} = int(((9/5) * $results{"high-$i"}) + 32);
                 $results{"low-$i"} = int(((9/5) * $results{"low-$i"}) + 32);
         }
 } else {
-        $results{'wind_spdgst'} = sprintf("%.2f (NA) kph", $results{'wind_spdgst'});
+        $results{'wind_spdgst'} = sprintf("%.2f (%.2f) kph", $results{'wind_speed'}, $results{'wind_gust'});
 }