projects
/
cascardo
/
www-eztv.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes URL to eztv.ag and tries to fix DOM parsing.
[cascardo/www-eztv.git]
/
lib
/
WWW
/
EZTV.pm
diff --git
a/lib/WWW/EZTV.pm
b/lib/WWW/EZTV.pm
index
afce7cb
..
9c3fa3e
100644
(file)
--- a/
lib/WWW/EZTV.pm
+++ b/
lib/WWW/EZTV.pm
@@
-6,7
+6,7
@@
use WWW::EZTV::Show;
# ABSTRACT: EZTV scrapper
# 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 =>
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;
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 $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')),
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
);
});
}
);
});
}