--- /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
Attempt #" . $attempt . "\n"; +# print "\n
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/
].*?" . $url . "\n"; +# print "\n
" . $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
Regex success for " . $site->{name} . "\n"; +# print "\n
Regex success for " . $site->{name} . "\n"; showlyrics($char_converter->convert($1), $site, $loc, $artist, $title); return 1; } else { - print "\n
Regex failed for " . $site->{name} . "\n"; +# print "\n
Regex failed for " . $site->{name} . "\n"; return 0; } } -while (1) { +#while (1) { my $message = ; 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;