/[pdpsoft]/nl.nikhef.pdp.fetchcrl/tags/fetch-crl-3.0.17-2/TrustAnchor.pm
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/tags/fetch-crl-3.0.17-2/TrustAnchor.pm

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

revision 2420 by davidg, Fri Sep 9 11:18:11 2011 UTC revision 2650 by davidg, Tue Jul 2 19:07:45 2013 UTC
# Line 453  sub retrieveHTTP($$) { Line 453  sub retrieveHTTP($$) {
453      };      };
454      alarm 0; # make sure the alarm stops ticking, regardless of the eval      alarm 0; # make sure the alarm stops ticking, regardless of the eval
455    
456      if ( $@ ) {      if ( $@ ) { # died, alarm hit: server bad, so try next URL
457        $::log->verb(2,"HEAD error $url:", $@);        $::log->verb(2,"HEAD error $url:", $@);
458        return undef;        return undef;
459      }      }
460    
461      # try get if head fails anyway      # try using cached data if it is fresh
462      if ( ( ! $@ ) and      if ( ( ! $@ ) and
463            $response->is_success and            $response->is_success and
464           $response->header("Last-Modified") ) {           $response->header("Last-Modified") ) {
# Line 483  sub retrieveHTTP($$) { Line 483  sub retrieveHTTP($$) {
483      }      }
484    }    }
485    
486    # try get if head fails anyway    # try get if head fails, there was no cache, cache disabled or invalidated
487    
488    my $response;    my $response;
489    eval {    eval {

Legend:
Removed from v.2420  
changed lines
  Added in v.2650

grid.support@nikhef.nl
ViewVC Help
Powered by ViewVC 1.1.28