From c5014a8f77f78c329436d6d097388d2c4f0b566d Mon Sep 17 00:00:00 2001 From: eleksir Date: Fri, 1 Oct 2021 13:23:00 +0300 Subject: [PATCH] Weather.pm: Hardcode popular russian short city names --- lib/BotLib/Weather.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lib/BotLib/Weather.pm b/lib/BotLib/Weather.pm index 76b1e74..af836f8 100644 --- a/lib/BotLib/Weather.pm +++ b/lib/BotLib/Weather.pm @@ -30,6 +30,15 @@ sub Weather { return 'Длинновато для названия города.' if (length ($city) > 80); $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 $reply;