Ticket #5024: envcan.diff
File envcan.diff, 712 bytes (added by , 16 years ago) |
---|
-
ca_envcan/ENVCANParser.pm
11 11 use POSIX; 12 12 use XML::Simple; 13 13 14 our $VERSION = 0. 2;14 our $VERSION = 0.3; 15 15 16 16 my %results; 17 17 my %directions = ( N => "North", NNE => "North Northeast", … … 35 35 elsif ($condition =~ /fog/i) { 36 36 $icon = 'fog.png'; 37 37 } 38 elsif ($condition =~ /drizzle/i) { 39 $icon = 'lshowers.png'; 40 $icon = 'rainsnow.png' if ($condition =~ /freezing/i); 41 } 38 42 elsif ( ($condition =~ /rain/i) || ($condition =~ /showers/i) ) { 39 43 $icon = 'showers.png'; 40 44 $icon = 'lshowers.png' if ( ($condition =~ /chance/i) ||