GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-20 02:49:49 +01:00
Code Issues Projects Releases Wiki Activity

Plugins/Wttr: improvements

Browse Source
This commit is contained in:
Pragmatic Software 2020-01-29 19:57:30 -08:00
parent 28f102d88c
commit 2071fe2523
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Plugins/Wttr.pm
View File

@ -134,7 +134,7 @@ sub get_weather {
# title-case location
$location = ucfirst lc $location;
$location =~ s/(?: |\.)(\w)/' ' . uc $1/ge;
$location =~ s/( |\.)(\w)/$1 . uc $2/ge;
my $result = "Weather for $location: ";
@ -202,16 +202,16 @@ sub get_weather {
when ('chances') {
$result .= "Chances of: ";
$result .= "Fog: $h->{'chanceoffog'}, " if $h->{'chanceoffog'};
$result .= "Frost: $h->{'chanceoffrost'}, " if $h->{'chanceoffrost'};
$result .= "High temp: $h->{'chanceofhightemp'}, " if $h->{'chanceofhightemp'};
$result .= "Overcast: $h->{'chanceofovercast'}, " if $h->{'chanceofovercast'};
$result .= "Rain: $h->{'chanceofrain'}, " if $h->{'chanceofrain'};
$result .= "Remaining dry: $h->{'chanceofremdry'}, " if $h->{'chanceofremdry'};
$result .= "Snow: $h->{'chanceofsnow'}, " if $h->{'chanceofsnow'};
$result .= "Sunshine: $h->{'chanceofsunshine'}, " if $h->{'chanceofsunshine'};
$result .= "Thunder: $h->{'chanceofthunder'}, " if $h->{'chanceofthunder'};
$result .= "Windy: $h->{'chanceofwindy'}, " if $h->{'chanceofwindy'};
$result .= "Fog: $h->{'chanceoffog'}%, " if $h->{'chanceoffog'};
$result .= "Frost: $h->{'chanceoffrost'}%, " if $h->{'chanceoffrost'};
$result .= "High temp: $h->{'chanceofhightemp'}%, " if $h->{'chanceofhightemp'};
$result .= "Overcast: $h->{'chanceofovercast'}%, " if $h->{'chanceofovercast'};
$result .= "Rain: $h->{'chanceofrain'}%, " if $h->{'chanceofrain'};
$result .= "Remaining dry: $h->{'chanceofremdry'}%, " if $h->{'chanceofremdry'};
$result .= "Snow: $h->{'chanceofsnow'}%, " if $h->{'chanceofsnow'};
$result .= "Sunshine: $h->{'chanceofsunshine'}%, " if $h->{'chanceofsunshine'};
$result .= "Thunder: $h->{'chanceofthunder'}%, " if $h->{'chanceofthunder'};
$result .= "Windy: $h->{'chanceofwindy'}%, " if $h->{'chanceofwindy'};
$result =~ s/,\s+$/; /;
}