| CC: | Thadeu Lima de Souza Cascardo <cascardo [...] cascardo.eti.br> |
| Subject: | [PATCH] Changes URL to eztv.ag and tries to fix DOM parsing. |
| Date: | Wed, 18 Nov 2015 07:25:28 -0200 |
| To: | bug-WWW-EZTV [...] rt.cpan.org |
| From: | Thadeu Lima de Souza Cascardo <cascardo [...] cascardo.eti.br> |
EZTV domain has changed again to eztv.ag, and its DOM has changed too.
The Walking Dead had two different shows, one of them had no episodes,
so I used Doctor Who as a test.
---
lib/WWW/EZTV.pm | 10 +++++-----
lib/WWW/EZTV/Show.pm | 2 +-
t/02-find.t | 8 ++++----
3 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/lib/WWW/EZTV.pm b/lib/WWW/EZTV.pm
index afce7cb..9c3fa3e 100644
--- a/lib/WWW/EZTV.pm
+++ b/lib/WWW/EZTV.pm
@@ -6,7 +6,7 @@ use WWW::EZTV::Show;
# ABSTRACT: EZTV scrapper
-has url => ( is => 'ro', lazy => 1, default => sub { Mojo::URL->new('https://eztv.ch/') } );
+has url => ( is => 'ro', lazy => 1, default => sub { Mojo::URL->new('https://eztv.ag/') } );
has url_shows => ( is => 'ro', lazy => 1, default => sub { shift->url->clone->path('/showlist/') } );
has shows =>
@@ -21,14 +21,14 @@ has shows =>
sub _build_shows {
my $self = shift;
- $self->get_response( $self->url_shows )->dom->find('table.header_brd tr[name="hover"]')->map(sub {
+ $self->get_response($self->url_shows)->dom->find('table tr[name="hover"]')->map(sub {
my $tr = shift;
- my $link = $tr->at('td:nth-child(2) a');
+ my $link = $tr->at('td:nth-child(1) a');
WWW::EZTV::Show->new(
title => $link->all_text,
url => $self->url->clone->path($link->attr('href')),
- status => lc($tr->at('td:nth-child(3)')->all_text),
- rating => $tr->at('td:nth-child(4)')->text + 0
+ status => lc($tr->at('td:nth-child(2)')->all_text),
+ rating => $tr->at('td:nth-child(3) b')->text + 0
);
});
}
diff --git a/lib/WWW/EZTV/Show.pm b/lib/WWW/EZTV/Show.pm
index dc9b44c..75d9953 100644
--- a/lib/WWW/EZTV/Show.pm
+++ b/lib/WWW/EZTV/Show.pm
@@ -25,7 +25,7 @@ has episodes =>
sub _build_episodes {
my $self = shift;
- $self->get_response($self->url)->dom->find('table.header_noborder tr[name="hover"]')->map(sub{
+ $self->get_response($self->url)->dom->find('table tr[name="hover"]')->map(sub{
my $tr = shift;
my $link = $tr->at('td:nth-child(2) a');
diff --git a/t/02-find.t b/t/02-find.t
index ec2de31..5ee3be5 100644
--- a/t/02-find.t
+++ b/t/02-find.t
@@ -11,19 +11,19 @@ my $show;
subtest 'Find a show' => sub {
ok( $eztv->has_shows, 'Can fetch shows list' );
- ok( $show = $eztv->find_show(sub{ $_->name =~ /Walking dead/i }), 'Find a known show' );
- is( $show->name, 'The Walking Dead', 'Name looks good' );
+ ok( $show = $eztv->find_show(sub{ $_->name =~ /Doctor who/i }), 'Find a known show' );
+ is( $show->name, 'Doctor Who', 'Name looks good' );
ok( $show->url, 'Has url ' . $show->url );
ok( $show->status, 'Has status ' . $show->status );
};
subtest 'Find episodes' => sub {
ok( $show->has_episodes, 'Show fetch show episodes' );
- ok( my $ep = $show->find_episode(sub{ $_->season == 3 && $_->number == 8 && $_->quality eq 'standard' }), 'Find a known episode' );
+ ok( my $ep = $show->find_episode(sub{ $_->season == 9 && $_->number == 9 && $_->quality eq 'standard' }), 'Find a known episode' );
diag( 'Title: ' . $ep->title );
diag( 'Version: ' . $ep->version );
diag( 'Size: ' . $ep->size );
- is( $ep->name, 'The Walking Dead', 'Name looks good' );
+ is( $ep->name, 'Doctor Who 2005', 'Name looks good' );
ok( $ep->has_links, 'Episode has links' );
ok( my $link = $ep->find_link(sub{ $_->type eq 'torrent' }), 'Find a torrent link' );
--
2.6.2