- $hsh{'Rain_Rate'} = (unpack("s", substr $blk,41,2) / 100) * 25.4; # Inches per hr converted to mm
- $hsh{'Rain_Storm'} = (unpack("s", substr $blk,46,2) / 100) * 25.4; # Inches per storm
- #$hsh{'Storm_Date'} = unpack("s", substr $blk,48,2); # Need to parse data (not sure what this is)
- $hsh{'Rain_Day'} = (unpack("s", substr $blk,50,2)/100) * 25.4;
- $hsh{'Rain_Month'} = (unpack("s", substr $blk,52,2)/100) * 25.4;
- $hsh{'Rain_Year'} = (unpack("s", substr $blk,54,2)/100) * 25.4;
+ $h{'Rain_Rate'} = unpack("s", substr $blk,41,2) * $rain_mult;
+ $h{'Rain_Day'} = unpack("s", substr $blk,50,2) * $rain_mult;
+ $h{'Rain_Month'} = unpack("s", substr $blk,52,2) * $rain_mult;
+ $h{'Rain_Year'} = unpack("s", substr $blk,54,2) * $rain_mult;