#!/usr/bin/perl -w -I ../lib

use WWW::Myspace;

my $myspace = new WWW::Myspace( { auto_login => 0 } );;

#$myspace->get_page( 'http://musicsearch.myspace.com/index.cfm?fuseaction=music.search' );
#$myspace->mech->form_name( 'myForm' );
#$myspace->mech->current_form->dump;

#exit 0;

# Get bands in 91604
my @bands = $myspace->search_music(
	{
		State => 'California',
		Country => 'US',
		localType => 'distanceZip',
		zip => 91604,
		distance => 50,
		OrderBy => 4
	}
);

if ( $myspace->error ) {
	print $myspace->current_page->content;
	die $myspace->error if ( $myspace->error );
}

print "Got " . @bands . " bands\n";

foreach my $id ( @bands ) {
	print $id . "\n";
}