]>
iEval git - webservice-strike.git/blob - Strike.pm
b985840e44ecb0639fa52ae825c9f1cf9f332168
1 package WebService
::Strike
;
6 use parent qw
/Exporter/;
8 our @EXPORT = qw
/strike strike_search strike_imdb/; ## no critic (ProhibitAutomaticExportation)
9 our @EXPORT_OK = (@EXPORT, 'strike_query');
10 our $VERSION = '0.004002';
11 our $BASE_URL = 'https://getstrike.net/api/v2';
13 use JSON
::MaybeXS qw
/decode_json/;
15 use Sort
::ByExample qw
/sbe/;
16 use WebService
::Strike
::Torrent
;
18 sub _ht
{ HTTP
::Tiny
->new(agent
=> "WebService-Strike/$VERSION", verify_SSL
=> 1) }
24 my $response = $ht->get($url);
25 die $response unless $response->{success
}; ## no critic (RequireCarping)
26 $response = decode_json
$response->{content
};
28 map { WebService
::Strike
::Torrent
->new($_) } @
{$response->{torrents
}};
34 return strike_query
(@hashes[0 .. 49]), strike_query
(@hashes[50 .. $#hashes]);
36 my $url = "$BASE_URL/torrents/info/?hashes=" . join ',', map { uc } @hashes;
38 my $sorter = sbe
(\
@hashes, {xform
=> sub { $_[0]->hash }});
39 my @torrents = $sorter->(_query
$url);
40 wantarray ?
@torrents : $torrents[0]
44 my ($query, $full, %args) = @_;
45 $args{phrase
} = $query;
46 my $url = "$BASE_URL/torrents/search/?" . HTTP
::Tiny
->www_form_urlencode(\
%args);
48 my @torrents = _query
$url;
49 @torrents = $torrents[0] unless wantarray;
50 @torrents = strike_query
map { $_->hash } @torrents if $full;
51 wantarray ?
@torrents : $torrents[0]
56 my $url = "$BASE_URL/media/imdb/?imdbid=$id";
57 my $response = _ht
->get($url);
58 return unless $response->{success
};
59 decode_json
$response->{content
}
62 BEGIN { *strike
= \
&strike_query
}
71 WebService::Strike - Get torrent info from getstrike.net API
75 use WebService::Strike;
76 my $t = strike 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04';
77 say $t->title; # Arch Linux 2015.01.01 (x86\/x64)
78 say $t->magnet; # Returns a magnet link
79 my $torrent = $t->torrent; # Returns the torrent file
80 $t->torrent('file.torrent'); # Downloads the torrent file to 'file.torrent'
82 my @debian = strike_search 'Debian';
83 say 'Found ' . @debian . ' torrents matching "Debian"';
84 say 'First torrent has info hash ' . $debian[0]->hash;
86 my $mp = strike_search 'Modern perl', 1, category => 'Books';
87 say 'Torrent has ' . $mp->count . ' files. They are:';
88 say join ' ', @{$mp->file_names};
90 my $info = strike_imdb 'tt1520211';
91 say 'IMDB ID ', $info->{imdbID}, ' is ', $info->{title}, ' (', $info->{year}, ')';
92 say 'Plot (short): ', $info->{shortPlot};
96 Strike API is a service for getting information about a torrent given
97 its info hash. WebService::Strike is a wrapper for this service.
101 =item B<strike>(I<@info_hashes>)
103 Returns a list of L<WebService::Strike::Torrent> objects in list
104 context or the first such object in scalar context. Dies in case of
107 =item B<strike_query>
109 Alias for B<strike>. Not exported by default.
111 =item B<strike_search>(I<$phrase>, [I<$full>, [ key => value ... ]])
113 Searches for torrents given a phrase. Returns a list of
114 L<WebService::Strike::Torrent> objects in list context or the first
115 such object in scalar context.
117 If I<$full> is false (default), the returned objects will be
118 incomplete: their B<file_names> and B<file_lengths> accessors will
121 If I<$full> is true, B<strike> will be called with the info hashes of
122 the found torrents, thus obtaining complete objects.
124 You can filter the search by appending key => value pairs to the call.
127 strike_search 'windows', 0, category => 'Applications', sub_category => 'Windows';
129 =item B<strike_imdb>(I<$imdb_id>)
131 Get informaton about a movie from IMDB. Takes an IMDB ID and returns a
132 hashef of unspecified format.
138 L<WebService::Strike::Torrent>, L<https://getstrike.net/api/>, L<WWW::Search::Torrentz>
142 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
144 =head1 COPYRIGHT AND LICENSE
146 Copyright (C) 2015 by Marius Gavrilescu
148 This library is free software; you can redistribute it and/or modify
149 it under the same terms as Perl itself, either Perl version 5.20.2 or,
150 at your option, any later version of Perl 5 you may have available.
This page took 0.059886 seconds and 3 git commands to generate.