diff options
author | woro <woro@e10066b5-e1e2-0310-b819-94efdf66514b> | 2008-04-11 20:11:00 +0000 |
---|---|---|
committer | woro <woro@e10066b5-e1e2-0310-b819-94efdf66514b> | 2008-04-11 20:11:00 +0000 |
commit | 57d7ee812c8be1bd118471512682cb3393ce595f (patch) | |
tree | 2e0d792fc74eda1661b439853c004e2ed5c06820 /scripts/googlyrics.diff | |
parent | b2550195d6b61f9be3470679082b8d6b5159aa83 (diff) | |
download | vdr-plugin-muggle-57d7ee812c8be1bd118471512682cb3393ce595f.tar.gz vdr-plugin-muggle-57d7ee812c8be1bd118471512682cb3393ce595f.tar.bz2 |
merge mp3ng branch into trunk
git-svn-id: https://vdr-muggle.svn.sourceforge.net/svnroot/vdr-muggle/trunk/muggle-plugin@1173 e10066b5-e1e2-0310-b819-94efdf66514b
Diffstat (limited to 'scripts/googlyrics.diff')
-rw-r--r-- | scripts/googlyrics.diff | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/scripts/googlyrics.diff b/scripts/googlyrics.diff new file mode 100644 index 0000000..4e01f62 --- /dev/null +++ b/scripts/googlyrics.diff @@ -0,0 +1,49 @@ +--- /usr/share/apps/amarok/scripts/googlyrics/googlyrics 2008-02-13 23:52:25.000000000 +0100 ++++ googlyrics 2008-03-27 13:18:20.000000000 +0100 +@@ -264,7 +264,7 @@ + } + my $attempt = 1; + while ($attempt != 5) { +- print "\n<br>Attempt #" . $attempt . "\n"; ++# print "\n<br>Attempt #" . $attempt . "\n"; + $mech->get("http://www.google.com/intl/en/"); + if (!$mech->success()) { + return "connectfail"; +@@ -282,7 +282,7 @@ + $mech->submit(); + foreach ($mech->content() =~ m/<div class=g[\s>].*?<a href=\"(.*?)\"/img) { + my $url = $_; +- print "\n<br>" . $url . "\n"; ++# print "\n<br>" . $url . "\n"; + my $o; + my $ly; + foreach $ly (@sites) { +@@ -319,16 +319,16 @@ + my $current = $mech->content(); + my $regex = $site->{regex}; + if ($current =~ $regex) { +- print "\n<br>Regex success for " . $site->{name} . "\n"; ++# print "\n<br>Regex success for " . $site->{name} . "\n"; + showlyrics($char_converter->convert($1), $site, $loc, $artist, $title); + return 1; + } else { +- print "\n<br>Regex failed for " . $site->{name} . "\n"; ++# print "\n<br>Regex failed for " . $site->{name} . "\n"; + return 0; + } + } + +-while (1) { ++#while (1) { + my $message = <STDIN>; + chomp($message); + if ($message =~ /^configure/) { +@@ -344,7 +344,7 @@ + system("dcop", "amarok", "contextbrowser", "showLyrics", ""); #communications errror, "send an empty string" + } + } +-} ++#} + + sub showlyrics { + my $out = shift; |