#!/usr/bin/perl -w

# here's the first site plugin for the search engine
# this one searches listen.com
# not nearly finished yet.
# ugly as all hell too.

use strict;
require LWP::UserAgent;

sub meta_search_listen_com{
    my $artist = shift @_;
    my $base = "http://www.listen.com/";
    my $search = "results_exact.jsp?artist=";
    my $ua = new LWP::UserAgent;
    $ua->timeout(10);
    my $query = $base . $search . $artist;
    my $request = new HTTP::Request('GET',$query);
    my $response = $ua->request($request);

    if($response->is_success){
	my @page = split /\n/, $response->content;
	foreach(@page){
	    if(/<A HREF=\"artdetail\.jsp\?artist=(\d)+\"/){
		my $id = $1;
		my $fr = $base . "artdetail.jsp?artist=" . $id;
		my $followup = $ua->request($fr);
		if($followup->is_success){
		    my @level2 = split /\n/, $followup->content;
		    foreach(@level2){
			if(/redir.jsp\?URL=(.)+LISTEN/){
			    my $file = $1 . "LISTEN";
			    # file is the url of an mp3
			    # still need to figure out the artist
			    # and song title and add it to the list
			}
		    }
		}
	    }
	}
    }
}