our @EXPORT = qw/strike strike_search/; ## no critic (ProhibitAutomaticExportation)
our @EXPORT_OK = qw/strike_query strike strike_search/;
-our $VERSION = '0.001002';
-our $BASE_URL = 'http://getstrike.net/api/torrents/';
+our $VERSION = '0.003';
+our $BASE_URL = 'http://getstrike.net/api/v2/torrents';
use JSON::MaybeXS qw/decode_json/;
use HTTP::Tiny;
die $response unless $response->{success}; ## no critic (RequireCarping)
$response = decode_json $response->{content};
- die $response unless ref $response eq 'ARRAY'; ## no critic (RequireCarping)
- map { WebService::Strike::Torrent->new($_) } @{$response->[1]};
+ map { WebService::Strike::Torrent->new($_) } @{$response->{torrents}};
}
sub strike_query {
my (@hashes) = @_;
+ if (@hashes > 50) {
+ return strike_query (@hashes[0 .. 49]), strike_query (@hashes[50 .. $#hashes]);
+ }
my $url = "$BASE_URL/info/?hashes=" . join ',', map { uc } @hashes;
my $sorter = sbe(\@hashes, {xform => sub { $_[0]->hash }});
sub strike_search {
my ($query, $full, %args) = @_;
- $args{q} = $query;
+ $args{phrase} = $query;
my $url = "$BASE_URL/search/?" . HTTP::Tiny->www_form_urlencode(\%args);
my @torrents = _query $url;
say 'Found ' . @debian . ' torrents matching "Debian"';
say 'First torrent has info hash ' . $debian[0]->hash;
- my $mp = strike_search 'Modern perl', 1;
+ my $mp = strike_search 'Modern perl', 1, category => 'Books';
say 'Torrent has ' . $mp->count . ' files. They are:';
say join ' ', @{$mp->file_names};
Alias for B<strike>. Not exported by default.
-=item B<strike_search>(I<$search_term>, [I<$full>])
+=item B<strike_search>(I<$phrase>, [I<$full>, [ key => value ... ]])
-Searches for torrents given a search term. Returns a list of
+Searches for torrents given a phrase. Returns a list of
L<WebService::Strike::Torrent> objects in list context or the first
such object in scalar context.
If I<$full> is true, B<strike> will be called with the info hashes of
the found torrents, thus obtaining complete objects.
+You can filter the search by appending key => value pairs to the call.
+For example:
+
+ strike_search 'windows', 0, category => 'Applications', sub_category => 'Windows';
+
=back
=head1 SEE ALSO