X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWebService%2FStrike.pm;h=9adde7143fab4a3def3d9c47d04f44ea5e8c2da7;hb=5b506549c8953f3fd781b66a0ef3f61a07a43503;hp=396ec48676ba61990710417fc734ec9d17032f99;hpb=95b1c120488fa6a756ab596060099f85921dae73;p=webservice-strike.git

diff --git a/lib/WebService/Strike.pm b/lib/WebService/Strike.pm
index 396ec48..9adde71 100644
--- a/lib/WebService/Strike.pm
+++ b/lib/WebService/Strike.pm
@@ -5,17 +5,17 @@ use strict;
 use warnings;
 use parent qw/Exporter/;
 
-our @EXPORT    = qw/strike strike_search/; ## no critic (ProhibitAutomaticExportation)
-our @EXPORT_OK = qw/strike_query strike strike_search/;
-our $VERSION = '0.002';
-our $BASE_URL = 'http://getstrike.net/api/v2/torrents';
+our @EXPORT    = qw/strike strike_search strike_imdb/; ## no critic (ProhibitAutomaticExportation)
+our @EXPORT_OK = (@EXPORT, 'strike_query');
+our $VERSION = '0.004001';
+our $BASE_URL = 'https://getstrike.net/api/v2';
 
 use JSON::MaybeXS qw/decode_json/;
 use HTTP::Tiny;
 use Sort::ByExample qw/sbe/;
 use WebService::Strike::Torrent;
 
-sub _ht { HTTP::Tiny->new(agent => "WebService-Strike/$VERSION") }
+sub _ht { HTTP::Tiny->new(agent => "WebService-Strike/$VERSION", verify_SSL => 1) }
 
 sub _query {
 	my ($url) = @_;
@@ -30,7 +30,10 @@ sub _query {
 
 sub strike_query {
 	my (@hashes) = @_;
-	my $url = "$BASE_URL/info/?hashes=" . join ',', map { uc } @hashes;
+	if (@hashes > 50) {
+		return strike_query (@hashes[0 .. 49]), strike_query (@hashes[50 .. $#hashes]);
+	}
+	my $url = "$BASE_URL/torrents/info/?hashes=" . join ',', map { uc } @hashes;
 
 	my $sorter = sbe(\@hashes, {xform => sub { $_[0]->hash }});
 	my @torrents = $sorter->(_query $url);
@@ -40,7 +43,7 @@ sub strike_query {
 sub strike_search {
 	my ($query, $full, %args) = @_;
 	$args{phrase} = $query;
-	my $url = "$BASE_URL/search/?" . HTTP::Tiny->www_form_urlencode(\%args);
+	my $url = "$BASE_URL/torrents/search/?" . HTTP::Tiny->www_form_urlencode(\%args);
 
 	my @torrents = _query $url;
 	@torrents = $torrents[0] unless wantarray;
@@ -48,6 +51,14 @@ sub strike_search {
 	wantarray ? @torrents : $torrents[0]
 }
 
+sub strike_imdb {
+	my ($id) = @_;
+	my $url = "$BASE_URL/media/imdb/?imdbid=$id";
+	my $response = _ht->get($url);
+	return unless $response->{success};
+	decode_json $response->{content}
+}
+
 BEGIN { *strike = \&strike_query }
 
 1;
@@ -76,6 +87,10 @@ WebService::Strike - Get torrent info from getstrike.net API
   say 'Torrent has ' . $mp->count . ' files. They are:';
   say join ' ', @{$mp->file_names};
 
+  my $info = strike_imdb 'tt1520211';
+  say 'IMDB ID ', $info->{imdbID}, ' is ', $info->{title}, ' (', $info->{year}, ')';
+  say 'Plot (short): ', $info->{shortPlot};
+
 =head1 DESCRIPTION
 
 Strike API is a service for getting information about a torrent given
@@ -111,11 +126,16 @@ For example:
 
   strike_search 'windows', 0, category => 'Applications', sub_category => 'Windows';
 
+=item B<strike_imdb>(I<$imdb_id>)
+
+Get informaton about a movie from IMDB. Takes an IMDB ID and returns a
+hashef of unspecified format.
+
 =back
 
 =head1 SEE ALSO
 
-L<WebService::Strike::Torrent>, L<http://getstrike.net/api/>, L<WWW::Search::Torrentz>
+L<WebService::Strike::Torrent>, L<https://getstrike.net/api/>, L<WWW::Search::Torrentz>
 
 =head1 AUTHOR