]> iEval git - www-offliberty.git/blobdiff - lib/WWW/Offliberty.pm
Bump version
[www-offliberty.git] / lib / WWW / Offliberty.pm
index fc9c348d83c8cc53475f356af8677711b31ab934..3f9a152b8e8d7a305cb0283ad5a6617b27d4e5e5 100644 (file)
@@ -4,7 +4,7 @@ use 5.014;
 use strict;
 use warnings;
 use parent qw/Exporter/;
-our $VERSION = '0.001';
+our $VERSION = '0.002';
 our @EXPORT_OK = qw/off/;
 
 use HTML::TreeBuilder;
@@ -13,10 +13,10 @@ use LWP::UserAgent;
 my $ua = LWP::UserAgent->new;
 
 sub off{
-  my ($url, @params) = @_;
-  my $content = $ua->post("http://offliberty.com/off.php", {track => $url, @params})->decoded_content;
-  my $root = HTML::TreeBuilder->new_from_content($content);
-  map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
+       my ($url, @params) = @_;
+       my $content = $ua->post("http://offliberty.com/off54.php", {track => $url, @params})->decoded_content;
+       my $root = HTML::TreeBuilder->new_from_content($content);
+       map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
 }
 
 1;
This page took 0.023866 seconds and 4 git commands to generate.