[Bio] / FigKernelPackages / RAST_submission.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/RAST_submission.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16, Mon Dec 14 20:19:27 2009 UTC revision 1.17, Mon Dec 14 20:31:52 2009 UTC
# Line 422  Line 422 
422              {              {
423                  my $l = <F>;                  my $l = <F>;
424                  close(F);                  close(F);
425                  if ($l =~ /resource is temporarily unavailable/)                  if ($l !~ /^LOCUS/)
426                  {                  {
427                      unlink($cached_file);                      unlink($cached_file);
428                      print STDERR "Cached file $cached_file contained NCBI error\n";                      print STDERR "Cached file $cached_file contained NCBI error\n";
# Line 482  Line 482 
482      my $resp = $self->url_get($query);      my $resp = $self->url_get($query);
483      if ($resp->is_success())      if ($resp->is_success())
484      {      {
485          if ($resp->content =~ /resource is temporarily unavailable/i)          if ($resp->content !~ /^LOCUS/i)
486          {          {
487              #              #
488              # NCBI is timing out; fail.              # NCBI is timing out; fail.
# Line 518  Line 518 
518              {              {
519                  my $l = <F>;                  my $l = <F>;
520                  close(F);                  close(F);
521                  if ($l =~ /resource is temporarily unavailable/)                  if ($l !~ /^LOCUS/)
522                  {                  {
523                      unlink($cached_file);                      unlink($cached_file);
524                      print STDERR "Cached file $cached_file contained NCBI error\n";                      print STDERR "Cached file $cached_file contained NCBI error\n";
# Line 535  Line 535 
535      my $resp = $self->url_get($query);      my $resp = $self->url_get($query);
536      if ($resp->is_success())      if ($resp->is_success())
537      {      {
538          if ($resp->content =~ /resource is temporarily unavailable/i)          if ($resp->content !~ /^LOCUS/)
539          {          {
540              #              #
541              # NCBI is timing out; fail.              # NCBI is timing out; fail.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3