Allow searching for lyrics in any language

diff --git a/lib/Lyrics/Fetcher/LyricsTranslate.pm b/lib/Lyrics/Fetcher/LyricsTranslate.pm
index 6708c0c4b10d375e757e8793014e88826d7d9556..55f3761156ac294cdd89e0e32f763b20d6969eee 100644 (file)
--- a/lib/Lyrics/Fetcher/LyricsTranslate.pm
+++ b/lib/Lyrics/Fetcher/LyricsTranslate.pm
@@ -6,18 +6,25 @@ use warnings;
 
 use HTML::TreeBuilder;
 use HTTP::Tiny;
 
 use HTML::TreeBuilder;
 use HTTP::Tiny;

+use Scalar::Util qw/looks_like_number/;

 
 our $VERSION = '0.001';
 our $BASE_URL = 'http://lyricstranslate.com';
 
 our $VERSION = '0.001';
 our $BASE_URL = 'http://lyricstranslate.com';

-# 0 means any language, 328 means English
-our $URL_FORMAT = "$BASE_URL/en/translations/0/328/%s/%s/none";
+# 0 means (from) any language; the following arguments are the
+# destination language, artist, and title. The meaning of the last
+# parameter is unknown.
+our $URL_FORMAT = "$BASE_URL/en/translations/0/%s/%s/%s/none";

 
 my $ht = HTTP::Tiny->new(agent => "Lyrics-Fetcher-LyricsTranslate/$VERSION ");
 
 
 my $ht = HTTP::Tiny->new(agent => "Lyrics-Fetcher-LyricsTranslate/$VERSION ");
 

+our %LANGUAGES; # Filled at the end of the file
+

 sub fetch {
 sub fetch {

-       my ($self, $artist, $song) = @_;
+       my ($self, $artist, $song, $language) = @_;
+       $language //= 'English';
+       $language = $LANGUAGES{$language} unless looks_like_number $language;

        $Lyrics::Fetcher::Error = 'OK';
        $Lyrics::Fetcher::Error = 'OK';

-       my $url = sprintf $URL_FORMAT, $artist, $song;
+       my $url = sprintf $URL_FORMAT, $language, $artist, $song;

        my $response = $ht->get($url);
        unless ($response->{success}) {
                $Lyrics::Fetcher::Error = 'Search request failed: ' . $response->{reason};
        my $response = $ht->get($url);
        unless ($response->{success}) {
                $Lyrics::Fetcher::Error = 'Search request failed: ' . $response->{reason};


@@ -43,6 +50,343 @@ sub fetch {
        } @pars
 }
 
        } @pars
 }
 

+%LANGUAGES = (
+       'Albanian' => 319,
+       'Arabic' => 12,
+       'Azerbaijani' => 433,
+       'Belarusian' => 317,
+       'Bosnian' => 318,
+       'Bulgarian' => 14,
+       'Catalan' => 342,
+       'Chinese' => 15,
+       'Croatian' => 16,
+       'Czech' => 17,
+       'Danish' => 18,
+       'Dutch' => 19,
+       'English' => 328,
+       'Estonian' => 326,
+       'Filipino/Tagalog' => 373,
+       'Finnish' => 21,
+       'French' => 22,
+       'German' => 23,
+       'Greek' => 24,
+       'Hebrew' => 26,
+       'Hindi' => 27,
+       'Hungarian' => 28,
+       'Indonesian' => 29,
+       'Italian' => 30,
+       'Japanese' => 31,
+       'Kazakh' => 374,
+       'Korean' => 32,
+       'Latin' => 33,
+       'Latvian' => 325,
+       'Lithuanian' => 324,
+       'Macedonian' => 314,
+       'Malay' => 444,
+       'Norwegian' => 36,
+       'Other' => 1025951,
+       'Persian' => 322,
+       'Polish' => 37,
+       'Portuguese' => 38,
+       'Romanian' => 312,
+       'Russian' => 40,
+       'Serbian' => 41,
+       'Slovak' => 315,
+       'Spanish' => 42,
+       'Swedish' => 43,
+       'Tongan' => 801,
+       'Transliteration' => 718,
+       'Turkish' => 313,
+       'Ukrainian' => 48,
+       'Unknown' => 376,
+       'Uzbek' => 323,
+       'Adunaic' => 1000213,,
+       'Afrikaans' => 440,
+       'Ainu' => 1035920,
+       'Aklan' => 1019908,
+       'Al Bhed' => 1000269,
+       'Altai' => 1025586,
+       'American Sign Language' => 1000218,
+       'Amharic' => 705,
+       'Amis' => 1032629,
+       'Angolar Creole' => 1034642,
+       'Aragonese' => 1032780,
+       'Aramaic (Modern Syriac Dialects)' => 1025338,
+       'Aramaic (Syriac Classical)' => 1025337,
+       'Armenian' => 321,
+       'Armenian (Homshetsi dialect)' => 1025608,
+       'Assamese' => 803,
+       'Asturian' => 1000136,
+       'Avar' => 1030975,
+       'Aymara' => 1025801,
+       'Baeggu' => 1000129,
+       'Bagobo' => 1021656,
+       'Bambara' => 445,
+       'Bashkir' => 632,
+       'Basque' => 624,
+       'Bengali' => 13,
+       'Berber' => 802,
+       'Bikol' => 1000248,
+       'Black Speech' => 1000212,
+       'Blackfoot' => 1028055,
+       'Breton (Brezhoneg)' => 608,
+       'Burmese' => 1020572,
+       'Butuanon' => 1019909,
+       'Cantabrian' => 1034733,
+       'Cape Verdean' => 808,
+       'Castithan' => 1022982,
+       'Catalan (Medieval)' => 1033121,
+       'Cebuano' => 1000245,
+       'Chamorro' => 784,
+       'Chavacano' => 1000278,
+       'Chechen' => 1021776,
+       'Cherokee' => 1029750,
+       'Chewa' => 819,
+       'Chinese (Hakka)' => 1032630 ,
+       'Chuvash' => 1027857,
+       'Circassian' => 1030979,
+       'Common' => 1000187,
+       'Comorian' => 1000199,
+       'Cornish' => 1030748,
+       'Corsican' => 814,
+       'Crimean Tatar' => 827,
+       'Croatian (Chakavian dialect)' => 1000152,
+       'Croatian (Kajkavian dialect)' => 1022139,
+       'Dari' => 1000072,
+       'Arabic (other varieties)' => 1000186,
+       'Darnassian' => 1000188,
+       'Dholuo' => 1021614,
+       'Dogon' => 1022611,
+       'Dothraki' => 1000228,
+       'Dragon' => 1000205,
+       'Dutch (Middle Dutch)' => 1022075,
+       'Dutch (Old Dutch)' => 1028105,
+       'Dutch dialects' => 434,
+       'Dzongkha' => 1000197,
+       'Egyptian (Old Egyptian/Coptic)' => 1028479,
+       'Emilian-Romagnol' => 1000240,
+       'English (Jamaican)' => 1023750,
+       'English (Middle English)' => 1020671,
+       'English (Old English)' => 1000210,
+       'English (Scots)' => 521,
+       'English Creole (Tok Pisin)' => 1029190,
+       'Esperanto' => 413,
+       'Estonian (South)' => 1022579,
+       'Extremaduran' => 1034916,
+       'Faroese' => 437,
+       'Fijian' => 1000267,
+       'Finnish (Savo)' => 436,
+       'Fon' => 1000140,
+       'Fremen' => 1000190,
+       'French (Antillean Creole)' => 1037027,
+       'French (Haitian Creole)' => 570,
+       'French (Indian French)' => 1028744,
+       'French (Louisiana Creole French)' => 1023092,
+       'French (Middle French)' => 1028104,
+       'French (Old French)' => 1020670,
+       'French (Réunion Creole)' => 1033982,
+       'Frisian' => 439,
+       'Friulian' => 818,
+       'Gaelic (Irish Gaelic)' => 607,
+       'Gaelic (Scottish Gaelic)' => 597,
+       'Gagauz' => 1000133,
+       'Galician' => 438,
+       'Galician-Portuguese' => 1000238,
+       'Garifuna' => 1033983,
+       'Gaulish' => 860,
+       'Genoese' => 1000272,
+       'Georgian' => 414,
+       'German (Austrian/Bavarian)' => 658,
+       'German (Berlinerisch dialect)' => 1031655,
+       'German (central dialects)' => 1000195,
+       'German (Kölsch)' => 1033301,
+       'German (Low German)' => 1000131,
+       'German (Middle High German)' => 824,
+       'German (Old High German)' => 825,
+       'German (Swiss-German/Allemanic)' => 631,
+       'Gilbertese' => 1000202,
+       'Goranian' => 1037077,
+       'Gothic' => 855,
+       'Greek (classical)' => 823,
+       'Greek (Cypriot)' => 1032770,
+       'Greek (Pontic)' => 1000172,
+       'Greenlandic' => 1029356,
+       'Griko' => 1000144,
+       'Guaraní' => 1031493,
+       'Gujarati' => 25,
+       'Hausa' => 1033388,
+       'Hawaiian' => 375,
+       'High Valyrian' => 1022167,
+       'Hiligaynon' => 1000247,
+       'Hmong' => 813,
+       'Hungarian (Old Hungarian)' => 1033943,
+       'Icelandic' => 332,
+       'Ilokano' => 1000246,
+       'Indigenous Languages (Mexico)' => 1037074,
+       'Ingush' => 1029233,
+       'Interlingua' => 1037062,
+       'Inuktitut ' => 1035431,
+       'IPA' => 1000173,
+       'Iranian (Balochi)' => 1025775,
+       'Iranian (Gilaki)' => 1033120,
+       'Iranian (Luri)' => 1037061,
+       'Istriot' => 1000239,
+       'Italian (Medieval)' => 1024385,
+       'Kabyle' => 501,
+       'Kalmyk' => 1034135,
+       'Kannada' => 1025336,
+       'Kapampangan' => 1019910,
+       'Karachay-Balkar' => 1024275,
+       'Karakalpak' => 1020990,
+       'Karelian' => 1020968,
+       'Kariña' => 1037071,
+       'Kashubian' => 1025888,
+       'Khmer' => 415,
+       'Khuzdul' => 1000214,
+       'Kinaray-a' => 1019911,
+       'Kinyarwanda' => 1021709,
+       'Kirundi' => 1000198,
+       'Klingon' => 1000220,
+       'Kongo' => 1022612,
+       'Kriol (Guinea Bissau)' => 1033054,
+       'Kumyk' => 1034264,
+       'Kurdish (Kurmanji)' => 327,
+       'Kurdish (Sorani)' => 1024274,
+       'Kurdish dialects' => 1022466,
+       'Kyrgyz' => 702,
+       'Ladin (Rhaeto-Romance)' => 1032848,
+       'Ladino (Judeo-Spanish)' => 1023993,
+       'Lao' => 596,
+       'Latvian (Latgalian)' => 1033068,
+       'Laz' => 1000204,
+       'Lingala' => 1028743,
+       'Livonian' => 1025670,
+       'Lombard' => 1035433,
+       'Loxian' => 1000141,
+       'Luganda' => 1000268,
+       'Luxembourgish' => 785,
+       'Malagasy' => 1033944,
+       'Malayalam' => 34,
+       'Maldivian (dhivehi)' => 1021237,
+       'Maltese' => 1000067,
+       'Manobo' => 1019912,
+       'Manx Gaelic' => 1000071,
+       'Maori' => 659,
+       'Mapudungun' => 1035835,
+       'Marathi' => 35,
+       'Mari' => 1027765,
+       'Minangkabau' => 1022890,
+       'Mixtec' => 1037064,
+       'Mohawk' => 1021100,
+       'Mongolian' => 614,
+       'Mongolian (Buryat dialect)' => 1037067,
+       'Montenegrin' => 657,
+       'Nahuatl' => 1000226,
+       'Navajo' => 1019915,
+       'Neapolitan' => 637,
+       'Nepali' => 442,
+       'Niuean' => 1000281,
+       'Nogai' => 1021238,
+       'Norwegian (Dano-Norwegian)' => 1020252,
+       'Norwegian (Sognamål)' => 1025146,
+       'Occitan' => 1000068,
+       'Old Church Slavonic' => 1000135,
+       'Old East Slavic' => 1024273,
+       'Old Norse/Norrønt' => 826,
+       'Old Prussian' => 1026171,
+       'Ossetic' => 1000139,
+       'Otomi' => 1037065,
+       'Pali' => 1036467,
+       'Pangasinan' => 1000249,
+       'Papiamento' => 1000209,
+       'Pashto' => 1000066,
+       'Paumotuan' => 1024518,
+       'Piedmontese' => 1036374,
+       'Polish (Poznan dialect)' => 1031836,
+       'Pseudo-Latin' => 1000279,
+       'Punjabi' => 39,
+       'Quechua' => 1000142,
+       'Quenya' => 1000211,
+       'Quichua (Kichwa)' => 1031957,
+       'Rapa Nui' => 1000145,
+       'Rarotongan' => 1000273,
+       'Roman dialect' => 1035163,
+       'Romani' => 757,
+       'Romanian (Aromanian)' => 810,
+       'Romansh' => 1000130,
+       'Romeyika/Rumka' => 1032709,
+       'Sakha' => 1020991,
+       'Salar' => 1033242,
+       'Salentine' => 1035162,
+       'Sami' => 1000191,
+       'Samoan' => 660,
+       'Sanskrit' => 1000138,
+       'Sardinian' => 698,
+       'Sardo-corsican' => 1029194,
+       'Sicilian' => 1000225,
+       'Sindarin' => 1000184,
+       'Sinhala' => 756,
+       'Slovene' => 316,
+       'Somali' => 1000069,
+       'Sotho' => 1033981,
+       'Spanish (Old Castillian)' => 1035797,
+       'Sranan Tongo' => 1022039,
+       'Sumerian' => 1026172,
+       'Sundanese' => 1035432,
+       'Surzhyk ' => 1020339,
+       'Swahili' => 595,
+       'Swedish (dialects)' => 1037078,
+       'Swedish (Old Swedish)' => 1033302,
+       'Tagalog (dialects)' => 44,
+       'Tahitian' => 1000227,
+       'Taíno' => 1024755,
+       'Taiwanese' => 783,
+       'Tajik' => 720,
+       'Tamashek-Berber/Tuareg' => 791,
+       'Tamil' => 45,
+       'Tatar' => 630,
+       'Tausūg' => 1019913,
+       'Telugu' => 46,
+       'Tetum' => 1028389,
+       'Thai' => 47,
+       'Thalassian' => 1000189,
+       'Tibetan' => 1000143,
+       'Tigrinya' => 1000201,
+       'Tokelauan' => 1000185,
+       'Tongan (Old Tongan)' => 1022633,
+       'Torlakian dialect' => 1000230,
+       'Totonac' => 1037076,
+       'Tswana' => 524,
+       'Turkish (Anatolian dialects)' => 1021735,
+       'Turkish (Middle Turkic)' => 1032996,
+       'Turkish (Ottoman)' => 1019916,
+       'Turkmen' => 703,
+       'Tuvaluan' => 1000203,
+       'Tuvan' => 1021332,
+       'Tzotzil' => 1031492,
+       'Udmurt' => 804,
+       'Upper Sorbian' => 1022610,
+       'Urdu' => 49,
+       'Uvean' => 1000274,
+       'Uyghur' => 704,
+       'Uzbek dialects' => 1025822,
+       'Venetian' => 1033821,
+       'Veps' => 1021708,
+       'Vietnamese' => 50,
+       'Walloon ' => 886,
+       'Waray-Waray' => 1019914,
+       'Welsh' => 525,
+       'Wolof' => 1037072,
+       'Xhosa' => 1000070,
+       'Yiddish' => 822,
+       'Yolŋu Matha' => 817,
+       'Yoruba' => 671,
+       'Yupik' => 1029797,
+       'Zapotec' => 1000196,
+       'Zazaki' => 761,
+       'Zulu' => 1000280,
+);
+

 1;
 __END__
 
 1;
 __END__