print $chapter_link->url(),qq(\n);
mkdir("$manga/$chapter_long");
mm_get($m,$chapter_link->url_abs());
- my $link = $m->find_link(text_regex => qr{Begin reading});
- mm_get($m,$link->url_abs());
- while ($m->uri() =~ m{\Q$chapter\E/(\d\d[^\/]*)/?$}) {
- my $image = $m->find_image(alt_regex => qr{Loading\.+\s+(media|img)});
+ # my $link = $m->find_link(text_regex => qr{Begin reading});
+ # print $m->content();
+ # exit 0;
+ # mm_get($m,$link->url_abs());
+ print $m->uri()."\n";
+ while ($m->uri() =~ m{\Q$chapter\E/?(\d\d[^\/]*)?/?$}) {
+ my $image = $m->find_image(alt_regex => qr{ - Page \d+});
+ print $image->url_abs()."\n";
my $next_link = $m->find_link(url_regex => qr{\Q$manga_escaped\E/\Q$chapter\E/(\d\d[^\/]*)});
- mm_get($m,$image->url_abs());
print "getting ".$image->url_abs()."\n";
+ mm_get($m,$image->url_abs());
my ($page) = $image->url_abs =~ m/([^\/]+)$/;
$m->save_content("$manga/$chapter_long/$page");
last if not defined $next_link;