$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');
}