[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.13, Mon Nov 23 20:03:45 2009 UTC revision 1.14, Mon Nov 23 20:38:04 2009 UTC
# Line 380  Line 380 
380    
381      my $id_list = join(",", @ids);      my $id_list = join(",", @ids);
382      my $query = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nucleotide&id=" . $id_list . "&rettype=gb" ;      my $query = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nucleotide&id=" . $id_list . "&rettype=gb" ;
     print STDERR $query , "\n";  
383      my $resp = $self->url_get($query);      my $resp = $self->url_get($query);
384      if ($resp->is_success())      if ($resp->is_success())
385      {      {
# Line 410  Line 409 
409      }      }
410    
411      my $query = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nucleotide&id=" . $contig . "&rettype=gb" ;      my $query = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nucleotide&id=" . $contig . "&rettype=gb" ;
     print STDERR $query , "\n";  
412      my $resp = $self->url_get($query);      my $resp = $self->url_get($query);
413      if ($resp->is_success())      if ($resp->is_success())
414      {      {
# Line 1016  Line 1014 
1014          }          }
1015          $self->{last_url_request} = $now;          $self->{last_url_request} = $now;
1016          $res = $self->ua->get($url);          $res = $self->ua->get($url);
1017    
1018          if ($res->is_success)          if ($res->is_success)
1019          {          {
1020              return $res;              return $res;
# Line 1032  Line 1031 
1031              return $res;              return $res;
1032          }          }
1033          my $retry_time = shift(@retries);          my $retry_time = shift(@retries);
1034          print STDERR "Request failed with code=$code, sleeping $retry_time and retrying $url";          print STDERR "Request failed with code=$code, sleeping $retry_time and retrying $url\n";
1035          sleep($retry_time);          sleep($retry_time);
1036      }      }
1037      return $res;      return $res;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3