diff options
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; |