- $t = unpack("C", substr $blk,15,1);
-# $h{Wind_Avg_10} = sprintf("%.1f",mph2mps($t))+0;
- $h{'Dew_Point'} = sprintf("%0.1f", dew_point($h{Temp_Out}, $h{'Humidity_Out'}))+0;
-
- $h{'Rain_Month'} = sprintf("%0.1f", unpack("s", substr $blk,52,2) * $rain_mult)+0;
- $h{'Rain_Year'} = sprintf("%0.1f", unpack("s", substr $blk,54,2) * $rain_mult)+0;
-
-
- $h{'Batt_TX_OK'} = (unpack("C", substr $blk,86,1)+0) ^ 1;
- $h{'Batt_Console'} = sprintf("%0.2f", unpack("s", substr $blk,87,2) * 0.005859375)+0;
- $h{'Forecast_Icon'} = unpack("C", substr $blk,89,1);
- $h{'Forecast_Rule'} = unpack("C", substr $blk,90,1);
-
- $h{'Sunrise'} = sprintf( "%04d", unpack("S", substr $blk,91,2) );
- $h{'Sunrise'} =~ s/(\d{2})(\d{2})/$1:$2/;
- $h{'Sunset'} = sprintf( "%04d", unpack("S", substr $blk,93,2) );
- $h{'Sunset'} =~ s/(\d{2})(\d{2})/$1:$2/;
+ $tmp = unpack("C", substr $blk,15,1);
+# $h{Wind_Avg_10} = sprintf("%.1f",mph2mps($tmp))+0;
+ $h{Dew_Point} = sprintf("%0.1f", dew_point($h{Temp_Out}, $h{Humidity_Out}))+0;
+ $h{Rain_Month} = sprintf("%0.1f", unpack("s", substr $blk,52,2) * $rain_mult)+0;
+ $h{Rain_Year} = sprintf("%0.1f", unpack("s", substr $blk,54,2) * $rain_mult)+0;
+