mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-23 12:29:27 +01:00
Plugins/Wttr.pm: show nearest_area only when -location is requested
This commit is contained in:
parent
f6c870539d
commit
6bc9e9cf88
@ -142,21 +142,9 @@ sub get_wttr {
|
|||||||
return $error;
|
return $error;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (exists $wttr->{nearest_area}) {
|
# title-case location
|
||||||
my $areaName = $wttr->{nearest_area}->[0]->{areaName}->[0]->{value};
|
$location = ucfirst lc $location;
|
||||||
my $region = $wttr->{nearest_area}->[0]->{region}->[0]->{value};
|
$location =~ s/( |\.)(\w)/$1 . uc $2/ge;
|
||||||
my $country = $wttr->{nearest_area}->[0]->{country}->[0]->{value};
|
|
||||||
|
|
||||||
$location = '';
|
|
||||||
$location .= "$areaName, " if length $areaName;
|
|
||||||
$location .= "$region, " if length $region and $region ne $areaName;
|
|
||||||
$location .= "$country, " if length $country;
|
|
||||||
$location =~ s/, $//;
|
|
||||||
} else {
|
|
||||||
# title-case location
|
|
||||||
$location = ucfirst lc $location;
|
|
||||||
$location =~ s/( |\.)(\w)/$1 . uc $2/ge;
|
|
||||||
}
|
|
||||||
|
|
||||||
$location =~ s/United States of America/USA/;
|
$location =~ s/United States of America/USA/;
|
||||||
|
|
||||||
@ -321,7 +309,21 @@ sub get_wttr {
|
|||||||
when ('time') { $result .= "Observation time: $c->{'localObsDateTime'}; "; }
|
when ('time') { $result .= "Observation time: $c->{'localObsDateTime'}; "; }
|
||||||
|
|
||||||
when ('location') {
|
when ('location') {
|
||||||
$result .= "Observation location: $location";
|
if (exists $wttr->{nearest_area}) {
|
||||||
|
my $areaName = $wttr->{nearest_area}->[0]->{areaName}->[0]->{value};
|
||||||
|
my $region = $wttr->{nearest_area}->[0]->{region}->[0]->{value};
|
||||||
|
my $country = $wttr->{nearest_area}->[0]->{country}->[0]->{value};
|
||||||
|
|
||||||
|
my $location = '';
|
||||||
|
$location .= "$areaName, " if length $areaName;
|
||||||
|
$location .= "$region, " if length $region and $region ne $areaName;
|
||||||
|
$location .= "$country, " if length $country;
|
||||||
|
$location =~ s/, $//;
|
||||||
|
|
||||||
|
$result .= "Observation location: $location";
|
||||||
|
} else {
|
||||||
|
$result .= "Query location: $location";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
when ('population') {
|
when ('population') {
|
||||||
|
Loading…
Reference in New Issue
Block a user