summaryrefslogtreecommitdiff
path: root/bin/comirror-setup
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-05-22 19:55:01 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-05-22 19:55:01 +0200
commit38723e017d0984d5d9a1ac2a8cd78a363f450ab4 (patch)
treeeba97cbe862e1ffe41bb631a165d4bafc2a75bda /bin/comirror-setup
parent0573b8263cfa3a66ab9dd9ccc0f82714bae2263d (diff)
Actually use the next_link for comirror
Diffstat (limited to 'bin/comirror-setup')
-rwxr-xr-xbin/comirror-setup2
1 files changed, 2 insertions, 0 deletions
diff --git a/bin/comirror-setup b/bin/comirror-setup
index 05661bf..f5d4c76 100755
--- a/bin/comirror-setup
+++ b/bin/comirror-setup
@@ -39,6 +39,7 @@ print "\nComparing images";
for my $i ( 0 .. $#mechs ) {
for my $image ($mechs[$i]->find_all_images()) {
push(@{$images[$i]}, $image->url_abs());
+ say "$i $images[$i]->[-1]";
}
print q{.};
}
@@ -94,6 +95,7 @@ for my $offset ( 0 .. $length ) {
line_to_file($ARGV[0], 'last_uri');
line_to_file($image_re, 'image_re');
+line_to_file($next_link, 'next_link');
print "\nimage_re: ${image_re}\n\n";
say "\"next\" link text: ${next_link}";