X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWWW%2FOffliberty.pm;h=a5404b62893931281c055c68236493971fa99b80;hb=8e74b4c85ca723cf8c47c7a6eff3f155dc53aed5;hp=7b658f0978f8aca64107843298ae464d2371b269;hpb=925cdb7df809bfa4c49573a65a457143c220a5a5;p=www-offliberty.git

diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm
index 7b658f0..a5404b6 100644
--- a/lib/WWW/Offliberty.pm
+++ b/lib/WWW/Offliberty.pm
@@ -4,20 +4,20 @@ use 5.008009;
 use strict;
 use warnings;
 use parent qw/Exporter/;
-our $VERSION = '1.000';
+our $VERSION = '1.000002';
 our @EXPORT_OK = qw/off/;
 
-use constant OFF_URL => 'http://offliberty.com/off54.php';
+use constant OFF_URL => 'http://offliberty.com/off02.php';
 
 use HTML::TreeBuilder;
 use HTTP::Tiny;
 
-my $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ");
+our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => 'http://offliberty.com/'});
 
 sub off{
 	my ($url, @params) = @_;
 	my $ret = $http->post_form(OFF_URL, {track => $url, @params});
-	die $ret->{reason} unless $ret->{success};
+	die $ret->{reason} unless $ret->{success}; ## no critic (RequireCarping)
 	my $root = HTML::TreeBuilder->new_from_content($ret->{content});
 	map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
 }