diff options
| -rwxr-xr-x | bin/comirror-setup | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/bin/comirror-setup b/bin/comirror-setup index 7f72820..b38cfe4 100755 --- a/bin/comirror-setup +++ b/bin/comirror-setup @@ -18,6 +18,7 @@ my @images; my @unique_images; my ($image_re, $cache) = (q{}) x 2; my $length; +my $next_link; local $| = 1; @@ -44,6 +45,12 @@ for my $i ( 0 .. $#mechs ) { print "\n"; +for my $link ($mechs[0]->find_all_links()) { + if ($link->url_abs eq $ARGV[1]) { + $next_link = $link->text; + } +} + # A bit fragile so far. We assume that every site is exactly the same, except # for the actual comic image. For this to work, we need to be sure that we are # not comparing with a first or last site, because those may be missing a @@ -89,4 +96,5 @@ line_to_file($ARGV[0], 'last_uri'); line_to_file($image_re, 'image_re'); print "\nimage_re: ${image_re}\n\n"; -print "If this is correct, type 'comirror' to start mirroring\n"; +say "\"next\" link text: ${next_link}"; +say "If this is correct, type 'comirror' to start mirroring"; |