]>
iEval git - webservice-strike.git/blob - Strike.pm
070a2a5d2f875f710eb5a6e2f9f2653cda64a1df
1 package WebService
::Strike
;
6 use parent qw
/Exporter/;
8 our @EXPORT = qw
/strike strike_search strike_imdb/;
9 our @EXPORT_OK = (@EXPORT, 'strike_query');
10 our $VERSION = '0.006';
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 my %imdb = %{decode_json
$response->{content
}};
60 $imdb{lc $_} = delete $imdb{$_} for keys %imdb; ## no critic (ProhibitUselessTopic)
64 BEGIN { *strike
= \
&strike_query
}
73 WebService::Strike - [OBSOLETE] Get torrent info from the now-discontinued getstrike.net API
77 use WebService::Strike;
78 my $t = strike 'B425907E5755031BDA4A8D1B6DCCACA97DA14C04';
79 say $t->title; # Arch Linux 2015.01.01 (x86\/x64)
80 say $t->magnet; # Returns a magnet link
81 my $torrent = $t->torrent; # Returns the torrent file
82 $t->torrent('file.torrent'); # Downloads the torrent file to 'file.torrent'
84 my @debian = strike_search 'Debian';
85 say 'Found ' . @debian . ' torrents matching "Debian"';
86 say 'First torrent has info hash ' . $debian[0]->hash;
88 my $mp = strike_search 'Modern perl', 1, category => 'Books';
89 say 'Torrent has ' . $mp->count . ' files. They are:';
90 say join ' ', @{$mp->file_names};
92 my $info = strike_imdb 'tt1520211';
93 say 'IMDB ID ', $info->{imdbid}, ' is ', $info->{title}, ' (', $info->{year}, ')';
94 say 'Plot (short): ', $info->{shortplot};
98 B<The API was discontinued. The code in this module remains, but it
99 does not achieve any useful purpose.>
101 Strike API is a service for getting information about a torrent given
102 its info hash. WebService::Strike is a wrapper for this service.
106 =item B<strike>(I<@info_hashes>)
108 Returns a list of L<WebService::Strike::Torrent> objects in list
109 context or the first such object in scalar context. Dies in case of
112 =item B<strike_query>
114 Alias for B<strike>. Not exported by default.
116 =item B<strike_search>(I<$phrase>, [I<$full>, [ key => value ... ]])
118 Searches for torrents given a phrase. Returns a list of
119 L<WebService::Strike::Torrent> objects in list context or the first
120 such object in scalar context.
122 If I<$full> is false (default), the returned objects will be
123 incomplete: their B<file_names> and B<file_lengths> accessors will
126 If I<$full> is true, B<strike> will be called with the info hashes of
127 the found torrents, thus obtaining complete objects.
129 You can filter the search by appending key => value pairs to the call.
132 strike_search 'windows', 0, category => 'Applications', sub_category => 'Windows';
134 =item B<strike_imdb>(I<$imdb_id>)
136 Get informaton about a movie from IMDB. Takes an IMDB ID and returns a
137 hashref of unspecified format. All keys are lowercased.
143 L<WebService::Strike::Torrent>, L<https://getstrike.net/api/>, L<WWW::Search::Torrentz>
147 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
149 =head1 COPYRIGHT AND LICENSE
151 Copyright (C) 2015-2016 by Marius Gavrilescu
153 This library is free software; you can redistribute it and/or modify
154 it under the same terms as Perl itself, either Perl version 5.20.2 or,
155 at your option, any later version of Perl 5 you may have available.
This page took 0.060959 seconds and 3 git commands to generate.