X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=get_sgf;h=f978b81ed5c4a1321158bb88df40a98b58e37ab1;hb=dcce90e77c92202b5fadca48de6fd1cefc41ff79;hp=b6d41534a34c29742eb5d7d11a083af8d801cabb;hpb=e4a0a5999414e8741a9ab05ea0f40337ed6428f0;p=bin.git

diff --git a/get_sgf b/get_sgf
index b6d4153..f978b81 100755
--- a/get_sgf
+++ b/get_sgf
@@ -123,6 +123,7 @@ for my $url (@ARGV) {
      $m->get("http://gobase.org$fname");
      $m->save_content('temp.sgf');
      $m->get($uri->as_string);
+     $m->follow_link(text_regex=>qr/PostScript/);
      $m->form_number(2);
      $m->select('scale',$options{scale});
      $m->field('fig',$options{figures});
@@ -130,6 +131,7 @@ for my $url (@ARGV) {
      $m->submit();
      my $content;
      my $state;
+     my $sleep;
  VALID_LOOP: {
 	  do {
 	       $state = $m->clone;
@@ -138,9 +140,10 @@ for my $url (@ARGV) {
 		    $m->save_content('temp.ps');
 		    last VALID_LOOP;
 	       }
-	       print STDERR "Failure to download content, waiting 180 seconds\n";
+	       $sleep = 240+int(rand()*120);
+	       print STDERR "Failure to download content, waiting $sleep seconds\n";
 	       $m = $state;
-	  } while (sleep 180);
+	  } while (sleep $sleep);
      }
      system('gzip','temp.ps');
      system("$ENV{HOME}/bin/sgf_rename",'temp.sgf');