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

Diff of /FigKernelPackages/ACHserver.pm

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

revision 1.10, Wed Nov 25 20:09:40 2009 UTC revision 1.11, Wed Nov 25 21:22:22 2009 UTC
# Line 275  Line 275 
275    
276      my @retries = (1, 2, 5, 10, 20, 60, 60, 60, 60, 60, 60);      my @retries = (1, 2, 5, 10, 20, 60, 60, 60, 60, 60, 60);
277      my %codes_to_retry =  map { $_ => 1 } qw(110 408 502 503 504 200) ;      my %codes_to_retry =  map { $_ => 1 } qw(110 408 502 503 504 200) ;
278        my $response;
279      while (1)      while (1)
280      {      {
281          my $response = $ua->post($self->{server_url}, [ %parms ]);          $response = $ua->post($self->{server_url}, [ %parms ]);
   
282          if ($response->is_success)          if ($response->is_success)
283          {          {
284              my $retVal = $response->content;              my $retVal = $response->content;
# Line 293  Line 292 
292          my $code = $response->code;          my $code = $response->code;
293          if (!$codes_to_retry{$code} || @retries == 0)          if (!$codes_to_retry{$code} || @retries == 0)
294          {          {
295              die ErrorMessage->new($response->content, $response->status_line);              if ($ENV{SAS_DEBUG}) {
296                    confess $response->content;
297                } else {
298                    confess $response->status_line;
299                }
300          }          }
301    
302          #          #
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3