X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWWW%2FOffliberty.pm;fp=lib%2FWWW%2FOffliberty.pm;h=039534bebee8565d2c402fac97e21355e1e4a3cd;hb=335dcc3112a0e936fe993ac6f3dc193368dfcf66;hp=b5b79188003d9cc44327f9edad544a79d06044b9;hpb=47d5b68652caa0c2413f46048642cc91cc364342;p=www-offliberty.git diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm index b5b7918..039534b 100644 --- a/lib/WWW/Offliberty.pm +++ b/lib/WWW/Offliberty.pm @@ -7,12 +7,12 @@ use parent qw/Exporter/; our $VERSION = '1.000'; 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 ", default_headers => {Referer => "http://offliberty.com/"}); +our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"}); sub off{ my ($url, @params) = @_;