.*\w\n.*\w.*
#s; $_[0]=~s/ ['lyrics-songs',sub { ::ReplaceFields($_[0], "http://letras.terra.com.br/winamp.php?musica=%t&artista=%a", sub {::url_escapeall(::superlc($_[0]));}) },undef,
-# sub { my $is_suggestion= $_[0]=~m#
|){5,}).*!$1!s; #keep only the "lyric box" -# return 0 if $_[0]=~m*!; # truncated lyrics : "[...]" followed by italic explanation => not auto-saved -# return !!$1; -# }], - musixmatch => [musixmatch => sub { ::ReplaceFields($_[0], "http://www.musixmatch.com/lyrics/%a/%t", sub { my $s=::url_escapeall($_[0]); $s=~s/%20/-/g; $s }) }, undef, - sub - { $_[0] =~ s/[\r\n]/
/g; - my $l=""; - $l=join "
", ($_[0] =~ m/(.+?)<\/span>/g); - if ($l) - { $_[0]=$l; - return 1; - } - else - { # FIXME try searching with "http://www.musixmatch.com/search/%a %t" and take best result ? - # FIXME or try searching again after cleaning title and artist for things like "(live)" ? - $_[0] = $notfound; - return 0; - } - }], - #lyricwikiapi => [lyricwiki => 'http://lyricwiki.org/api.php?artist=%a&song=%t&fmt=html',undef, - # sub { $_[0]!~m#
Provável música
#i; -# my $l=html_extract($_[0],div=>'letra'); -# $l=~s#.*?
##s if $l; #remove header with title and artist links
-# my $ref=\$_[0];
-# $$ref= $l ? $l : $notfound;
-# return $l && !$is_suggestion;
-# }],
-# lyricwiki => [lyricwiki => 'http://lyrics.wikia.com/%a:%t',undef,
-# sub { return 0,'http://lyrics.wikia.com/'.$1 if $_[0]=~m#.*?((?:&\#\d+;||){5,}).*!$1!s; #keep only the "lyric box" -# return 0 if $_[0]=~m*!; # truncated lyrics : "[...]" followed by italic explanation => not auto-saved -# return !!$1; -# }], - musixmatch => [musixmatch => sub { ::ReplaceFields($_[0], "http://www.musixmatch.com/lyrics/%a/%t", sub { my $s=::url_escapeall($_[0]); $s=~s/%20/-/g; $s }) }, undef, - sub - { $_[0] =~ s/[\r\n]/
/g; - my $l=""; - $l=join "
", ($_[0] =~ m/(.+?)<\/span>/g); - if ($l) - { $_[0]=$l; - return 1; - } - else - { # FIXME try searching with "http://www.musixmatch.com/search/%a %t" and take best result ? - # FIXME or try searching again after cleaning title and artist for things like "(live)" ? - $_[0] = $notfound; - return 0; - } - }], - #lyricwikiapi => [lyricwiki => 'http://lyricwiki.org/api.php?artist=%a&song=%t&fmt=html',undef, - # sub { $_[0]!~m#
\W*Not found\W*#s }], - #azlyrics => [ azlyrics => 'http://search.azlyrics.com/cgi-bin/azseek.cgi?q="%a"+"%t"'], - #Lyricsfly ? +my %Sites= # id => [name,url,?,function] if the function return 1 => lyrics can be saved +( # http://lyrc.com.ar/en/tema1en.php + # http://lyrc.com.ar/en/tema1en.php?artist=%a&songname=%t + # http://api.leoslyrics.com/api_search.php?artist=%a&songtitle=%t + # http://www.google.com/search?q="%a"+"%t" + lyriki => [ + lyriki => sub { ::ReplaceFields($_[0], "https://lyriki.com/%a:%t", + sub { my $s=::url_escapeall($_[0]); $s = autoformat($s, { case => "title" }); $s=~s/%20/_/g; $s=~s/\n//g; $s }) }, + #'https://lyriki.com/%a:%t', + sub { my $no= $_[0]=~m/
/s;
+ $_[0]=~s/^.*(.*?).*$/$1/s && !$no; }],
+ # http://www.lyricsplugin.com/winamp03/plugin/?title=%t&artist=%a
+ # http://letras.terra.com.br/winamp.php?musica=%t&artista=%a
+ # http://lyrics.wikia.com/%a:%t
+ musixmatch => [
+ musixmatch => sub { ::ReplaceFields($_[0], "https://www.musixmatch.com/lyrics/%a/%t", sub { my $s=::url_escapeall($_[0]); $s=~s/%20/-/g; $s }) },
+ sub
+ {
+ if (!$_[0]) {
+ $_[0] = $notfound; return 0;
+ }
+ eval {
+ my $dom_tree = HTML::TreeBuilder->new_from_content($_[0]);
+ my @content = $dom_tree->look_down(_tag => "h2");
+ my $start_content = @content[2];
+ my $parent = $start_content->parent();
+ my $l = $parent->as_HTML;
+ if (index($l, "Still no lyrics here. Be the first to add them.") != -1) {
+ $_[0] = $notfound; return 0;
+ }
+ $l =~ s/<(\w+) [^>]*>/<$1>/g;
+ $l =~ s/(
)+/
/g;
+ $l =~ s/(<\/div>)+/<\/div>/g;
+ $l =~ s/
<\/div>//g;
+ $l =~ s/
.*//g;
+ $l =~ s/()/