Weather.pm: Hardcode popular russian short city names
This commit is contained in:
@@ -30,6 +30,15 @@ sub Weather {
|
|||||||
return 'Длинновато для названия города.' if (length ($city) > 80);
|
return 'Длинновато для названия города.' if (length ($city) > 80);
|
||||||
|
|
||||||
$city = ucfirst $city;
|
$city = ucfirst $city;
|
||||||
|
|
||||||
|
if ($city eq 'Мск' || $city eq 'Default' || $city eq 'Dc' || $city eq 'Msk' || $city eq 'Dc-universe') {
|
||||||
|
$city = 'Москва';
|
||||||
|
} elsif ($city eq 'Спб' || $city eq 'Spb') {
|
||||||
|
$city = 'Санкт-Петербург';
|
||||||
|
} elsif ($city eq 'Ект' || $city eq 'Ебург' || $city eq 'Ёбург' || $city eq 'Екат' || $city eq 'Ekt' || $city eq 'Eburg' || $city eq 'Ekat') {
|
||||||
|
$city = 'Екатеринбург';
|
||||||
|
}
|
||||||
|
|
||||||
my $w = __weather ($city);
|
my $w = __weather ($city);
|
||||||
my $reply;
|
my $reply;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user