Audio-Scrobbler
view release on metacpan or search on metacpan
lib/Audio/Scrobbler.pm view on Meta::CPAN
# Let's hope md5_hex() always returns lowercase hex stuff
$md5resp = md5_hex(
md5_hex($self->{'cfg'}{'password'}).$self->{'md5ch'});
# Let's roll?
$req = HTTP::Request->new('POST', $self->{'nexturl'});
if (!$req) {
$self->err('Could not create the submission request object');
return undef;
}
$req->content_type('application/x-www-form-urlencoded; charset="UTF-8"');
$s = 'u='.URLEncode($self->{'cfg'}{'username'}).
"&s=$md5resp&a[0]=".URLEncode($info->{'artist'}).
'&t[0]='.URLEncode($info->{'title'}).
'&b[0]='.URLEncode($info->{'album'}).
'&m[0]='.
'&l[0]='.$info->{'length'}.
'&i[0]='.URLEncode($datestr).
"\r\n";
$req->content($s);
print "RDBG about to send a submission request:\n".$req->content().
( run in 0.903 second using v1.01-cache-2.11-cpan-4d50c553e7e )