package WWW::Subsonic;
# ABSTRACT: Interface with the Subsonic API
use strict;
use feature 'state';
use Digest::MD5 qw(md5_hex);
use HTML::Entities qw(decode_entities);
use Moo;
use Types::Standard qw(Enum InstanceOf Int Str);
use URI;
use version 0.77;
# Clean Up the Namespace
sub _netrc {
my $self = shift;
state $netrc;
return $netrc if $netrc;
my $uri = URI->new( $self->url );
$netrc = Net::Netrc->lookup( $uri->host );
return $netrc;
}
our $VERSION = '0.010'; # VERSION
has 'url' => (
is => 'ro',
isa => Str,
default => sub { 'http://localhost:4000' },
);
has 'username' => (
is => 'lazy',
isa => Str,
);
sub _build_username {
my $self = shift;
my $n = $self->_netrc;
return $self->_netrc->login || 'brad';
}
has 'password' => (
is => 'lazy',
isa => Str,
);
sub _build_password {
my $self = shift;
return $self->_netrc->password;
}
has 'salt' => (
is => 'ro',
isa => Str,
init_arg => undef,
lazy => 1,
builder => '_build_salt',
);
sub _build_salt {
my @chars = ( 'a'..'z', 0..9, 'A'..'Z' );
my $salt = '';
$salt .= $chars[int(rand(@chars))] for 1..12;
return $salt;
}
has 'token' => (
is => 'ro',
isa => Str,
init_arg => undef,
lazy => 1,
builder => '_build_token',
);
sub _build_token {
my ($self) = @_;
return md5_hex( $self->password . $self->salt );
}
has 'ua' => (
is => 'ro',
isa => InstanceOf['Mojo::UserAgent'],
default => sub { Mojo::UserAgent->new() },
);
has 'api_version' => (
is => 'ro',
isa => Str,
default => sub { '1.15.0' },
);
has 'client_id' => (
is => 'ro',
isa => Str,
default => sub { 'perl(WWW::Subsonic)' },
);
sub api_request {
my ($self,$path,$params) = @_;
my $uri = URI->new( sprintf "%s/rest%s/%s",
$self->url,
version->parse($self->api_version) >= version->parse('2.0.0') ? 2 : '',
$path
);
my %q = (
u => $self->username,
s => $self->salt,
t => $self->token,
v => $self->api_version,
c => $self->client_id,
f => 'json',
defined $params ? %{ $params } : (),
);
foreach my $k ( keys %q ) {
$uri->query_param( $k => $q{$k} );
}
my $as_url = $uri->as_string;
my $result = $self->ua->get( $as_url )->result;
my $data;
if( $result->is_success ) {
my $body = $result->body;
if( $result->headers->content_type =~ m{application/json} ) {
eval {
my $d = decode_json($body);
$data = $d->{'subsonic-response'};
1;
} or do {
my $err = $@;
warn sprintf "Failed JSON Decode from: %s\n%s\n\n%s\n",
$as_url, $err, $result->message;
};
}
else {
# Don't try to decode, just pass back our response
$data = $body;
}
}
else {
warn sprintf "Failed request(%s): %s\n\n%s\n",
$as_url,
$result->message,
$result->body,
;
}
return $data;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
WWW::Subsonic - Interface with the Subsonic API
=head1 VERSION
version 0.010
=head1 SYNOPSIS
This module provides a very simple interface to using the Subsonic API.
use Path::Tiny;
use WWW::Subsonic;
my $subsonic = WWW::Subsonic->new(
username => 'user1',
password => 'Assw0rd1P',
);
my $pinged = $subsonic->api_request('ping.view');
my $starred = $subsonic->api_request('getStarred2');
foreach my $song (@{ $starred->{song} }) {
my $dst = path($song->{path});
$dst->parent->mkpath;
$dst->spew_raw( $subsonic->api_request(download => { id => $song->{id} }) );
}
=head1 ATTRIBUTES
=head2 B<url>
Subsonic server url, default is 'http://localhost:4000'
=head2 B<username>
Subsonic username, if not specified, will try a lookup via netrc.
=head2 B<password>
Subsonic user's password, if not specified will try a lookup via netrc. This
is never sent over the wire, instead it's hashed using a salt for the server to
verify.
=head2 B<salt>
Salt for interacting with the server, regenerated each object instantiation.
Will be randomly generated.
=head2 B<token>
Generated from the B<salt> and B<password>.
=head2 B<ua>
UserAgent object used to interface with the Subsonic server. Needs
to be an instance of Mojo::UserAgent.
=head2 B<api_version>
The Subsonic API verion to target, currently defaults to the latest, Subsonic
6.1, API version 1.15.0.
=head2 B<client_id>
The identifier to use for interfacing with the server, defaults to
perl(WWW::Subsonic).
=head1 METHODS
=head2 B<api_request>
Builds an API request using the parameters.
=over 2
=item 1. API Method
This is the name of of the method to call, ie, C<getStarred>, C<download>, etc.
=item 2. Hash Reference of Arguments
Most API calls take one or more named arguments. Specify those named arguments
in this hash reference and they will be encoded properly and joined with the
other parameters to form the request.
=back
This method provides the following arguments to all API calls so you don't have
to: B<u> - username, B<s> - salt, B<t> - token, B<v> - API version, B<c> -
client identified, B<f> - format (json).
=head1 SEE ALSO
=head1 AUTHOR
Brad Lhotsky <brad@divisionbyzero.net>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2017 by Brad Lhotsky.
This is free software, licensed under:
The (three-clause) BSD License
=head1 CONTRIBUTORS
=for stopwords Brad Lhotsky José Joaquín Atria Mohammad S Anwar
=over 4
=item *
Brad Lhotsky <brad.lhotsky@gmail.com>
=item *
José Joaquín Atria <jjatria@gmail.com>
=item *
Mohammad S Anwar <mohammad.anwar@yahoo.com>
=back
=for :stopwords cpan testmatrix url bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
=head1 SUPPORT
=head2 Websites
The following websites have more information about this module, and may be of help to you. As always,
in addition to those websites please use your favorite search engine to discover more resources.
=over 4
=item *
MetaCPAN
A modern, open-source CPAN search engine, useful to view POD in HTML format.
=item *
RT: CPAN's Bug Tracker
The RT ( Request Tracker ) website is the default bug/issue tracking system for CPAN.
=back
=head2 Source Code
This module's source code is available by visiting:
=cut