From e5c9fabc960b4a0d756f7db752f7c1ce424abf2a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 4 Feb 2008 18:19:57 +0000
Subject: [PATCH] track whether the ps downloaded is valid and compress it

---
 get_sgf | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/get_sgf b/get_sgf
index 229424c..973550d 100755
--- a/get_sgf
+++ b/get_sgf
@@ -128,8 +128,20 @@ for my $url (@ARGV) {
      $m->field('fig',$options{figures});
      $m->select('paper',$options{paper});
      $m->submit();
-     $m->follow_link(url_regex=>qr/\.ps\.gz/);
-     $m->save_content('temp.ps.gz');
+     my $content;
+     my $state;
+ VALID_LOOP: {
+	  do {
+	       $state = $m->clone;
+	       $m->follow_link(url_regex=>qr/\.ps\.gz/);
+	       if ($m->content =~ /^\%\!PS/){
+		    $m->save_content('temp.ps');
+		    last VALID_LOOP;
+	       }
+	       $m = $state;
+	  } while (sleep 30);
+     }
+     system('gzip','temp.ps');
      system("$ENV{HOME}/bin/sgf_rename",'temp.sgf');
 }
 
-- 
2.39.2