add mutt alias which executes neomutt if that exists

[bin.git] / get_mangareader

diff --git a/get_mangareader b/get_mangareader
index 8789b8e8f4749bc6d972ee3d4f8cf694553bdba8..a1de0fe1ed762446a8e08392b96a20a5b69cbcb8 100755 (executable)
--- a/get_mangareader
+++ b/get_mangareader
@@ -125,13 +125,17 @@ for my $manga (@manga_to_get) {
            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;