Split XML parsing out in a separate program.

[shamaz] / lookup.pl

diff --git a/lookup.pl b/lookup.pl
index f22357b7e46a0c7306c6e2cc1729f11a235ca805..ff7ba453e47bcccb5fdeadfe12d63e3f949b9885 100644 (file)
--- a/lookup.pl
+++ b/lookup.pl
@@ -83,18 +83,7 @@ sub lookup {
                die $res->status_line;
        }
 
-       my $parser = XML::DOM::Parser->new;
-       my $doc = $parser->parse($res->content);
-       my $tracks = $doc->getElementsByTagName("track");
-       if ($tracks->getLength == 0) {
-               print "Didn't recognize song\n";
-               exit;
-       }
-       my $track = $tracks->item(0);
-       my $title = $track->getElementsByTagName("ttitle")->item(0)->getFirstChild->getData;
-       my $artist = $track->getElementsByTagName("tartist")->item(0)->getFirstChild->getData;
-
-       print "$title,$artist\n";
+       print $res->content;
 }
 
 sub make_part {