An exercise in correlation – playing MySpace music via iTunes

GetOptions(
"username:s" =>\$opts{username},
"download:s" =>\$opts{download},
"songname:s" =>\$opts{songname},
"debug!" =>\$opts{debug}
);

{
# suppress all stderr warnings
local $SIG{__WARN__}=sub{};

# make stdout hot
$| = 1;

# get opts
my $url = "http://www.myspace.com/".$opts{username} ||
"http://www.myspace.com/djkraftykuts";
my $download = $opts{download} || "/tmp";
my $songname = $opts{songname};
my $debug = $opts{debug};

# init new mech
my $mech = WWW::Mechanize->new(cookie_jar => {});
$mech->agent_alias( 'Linux Mozilla' );

print "\nInitializing :\n--------------\n";
# get band id
$result = &getParse($url);
$bandid = ($result =~ /DisplayFriendId":(.+?),/g) ? $1 : undef;
print "\t\tBand ID :\t$bandid\n" if $bandid;

# enum standalone player
$url = "http://collect.myspace.com/music/popup.cfm".
"?num=0&time=undefined&fid=$bandid&uid=1";
$result = &getParse($url);
$url = ($result =~ /EMBED src="(.+?)"/g) ? $1 : undef;
print "\t\tPlayer :\tFound\n" if $url;

# launch standalone player
$result = &get($url);
print "\t\tPlayer :\tLaunched\n" if($result->is_success);

# cross domain
$url = "http://mediaservices.myspace.com/crossdomain.xml";
$result = &get($url);
print "\t\tXDomain :\tReceived\n" if($result->is_success);

# css
$url = "http://collect.myspace.com/music/player.css";
$result = &get($url);
print "\t\tCSS :\tReceived\n" if($result->is_success);

# xml
$url = "http://mediaservices.myspace.com/services/media/".
"musicplayerxml.ashx?b=$bandid";
$result = &getParse($url);
print $result if $debug;
my $n=0;
$result =~ s/ while ($result =~ m/\n/g) {
$xml = $1;
$bsid = ($xml =~ /bsid="(.+?)"/g) ? $1 : undef;
$title = ($xml =~ /title="(.+?)"/g) ? $1 : undef;
$songid = ($xml =~ /songid="(.+?)"/g) ? $1 : undef;
$plays = ($xml =~ /plays="(.+?)"/g) ? $1 : undef;
$songurl = ($xml =~ /url="(.+?)"/g) ? $1 : undef;
$durl = ($xml =~ /durl="(.+?)"/g) ? $1 : undef;
$token = ($xml =~ /token="(.+?)"/g) ? $1 : undef;
$i = ($songurl =~ /i=(.+)/g) ? $1 : undef;

$songs{$n} = {
'bsid' => $bsid,
'title' => $title,
'songid' => $songid,
'plays' => $plays,
'songurl' => $songurl,
'durl' => $durl,
'token' => $token,
'i' => $i
};
$n++;
}
print "\t\tXML :\tParsed\n";

# connecting to content
print "Connecting :\n--------------\n";
for(0..$n-1){
print "\t\tSong :\t".$songs{$_}{'title'}."\n";
print "\t\tPlays :\t".$songs{$_}{'plays'}."\n";
&getSong($_);
}

undef $mech;

# subs
sub getSong {
# start script timer
&startTimer();

# mediahitcounter
$url = "http://mediaservices.myspace.com/services/media/".
"mediahitcounter.ashx?i=".$songs{$_[0]}{'i'};
$result = &get($url);
print "\t\tCounters :\tUpdated\n" if($result->is_success);

# token
$url = "http://mediaservices.myspace.com/services/media/token.ashx".
"?b=$bandid&s=".$songs{$_[0]}{'songid'}."&f=0";
$result = &get($url);
print "\t\tTokens :\tReceived\n" if($result->is_success);

# beacon
$c = int(rand(99999999));
$url = "http://lads.myspace.com/music/start_beacon.txt?c=$c";
$result = &get($url);
print "\t\tBeacon :\tUpdated\n" if($result->is_success);

# play song
if($download) {
print "\t\tPlaying song :\t";
$url = $songs{$_[0]}{'durl'}."?bandid=$bandid".
"&songid=".$songs{$_[0]}{'songid'}.
"&token=".$songs{$_[0]}{'token'};

print $url if $debug;
my $controller = Mac::iTunes->controller;
$controller->open_url( $url );

# use keyboard to control playback
print "Press 's' to skip song or 'q' to quit ";
system "stty cbreak < /dev/tty > /dev/tty 2>&1";
while (($key=getc) ) {
last if $key eq "s";
$controller->quit if $key eq "q";
print "\r\t\tExiting :\t Complete".
" \n\n" if $key eq "q";
exit if $key eq "q";
};

# optional download
#my $result = $mech->get( $url, ':content_file' =>
#"$download/".$songs{$_[0]}{'title'}.".mp3" );
#die "\tERROR!\n\tGET failed on $url \n"
#unless $result->is_success;
}

# end script timer
&endTimer();
print "\r\t\tPlaying song :\t[$elapsed secs] elapsed time".
" \n\n" if($result->is_success);

}

sub get {
my $url = $_[0];
my $result = $mech->get( $url );
warn "\tERROR!\n\tGET failed on $url \n ".$result->content.
" \n\n" unless $result->is_success;
return $result;
}

sub getParse {
my $url = $_[0];
my $result = $mech->get( $url );
die "\tERROR!\n\tGET failed on $url \n" unless $result->is_success;
$result = $mech->content;
$result =~ s/\n//g;
return $result;
}

sub startTimer {
$timer = [gettimeofday];
}

sub endTimer {
$elapsed = tv_interval ($timer);
$elapsed = sprintf("%.4s", $elapsed);
}