summaryrefslogtreecommitdiff
path: root/scripts/googlyrics.diff
diff options
context:
space:
mode:
authorworo <woro@e10066b5-e1e2-0310-b819-94efdf66514b>2008-04-11 20:11:00 +0000
committerworo <woro@e10066b5-e1e2-0310-b819-94efdf66514b>2008-04-11 20:11:00 +0000
commit57d7ee812c8be1bd118471512682cb3393ce595f (patch)
tree2e0d792fc74eda1661b439853c004e2ed5c06820 /scripts/googlyrics.diff
parentb2550195d6b61f9be3470679082b8d6b5159aa83 (diff)
downloadvdr-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.diff49
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;