/[pdpsoft]/nl.nikhef.pdp.fetchcrl/trunk/TrustAnchor.pm
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/trunk/TrustAnchor.pm

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

revision 3107 by davidg, Fri Sep 9 15:32:11 2016 UTC revision 3178 by davidg, Tue Apr 11 07:16:27 2017 UTC
# Line 466  sub retrieveHTTP($$) { Line 466  sub retrieveHTTP($$) {
466      alarm 0; # make sure the alarm stops ticking, regardless of the eval      alarm 0; # make sure the alarm stops ticking, regardless of the eval
467    
468      if ( $@ ) { # died, alarm hit: server bad, so try next URL      if ( $@ ) { # died, alarm hit: server bad, so try next URL
469        $::log->verb(2,"HEAD error $url:", $@);        chomp($@);
470          my $shorterror = $@; $shorterror =~ s/\n.*$//gs;
471          $::log->verb(2,"HEAD error $url:", $shorterror);
472          # underlying socket library may be verybose - filter and qualify messages
473          if ( $shorterror ne $@ ) {
474            foreach my $errorline ( split(/\n/,$@) ) {
475              chomp($errorline); $errorline eq $shorterror and next; # nodups
476              $errorline and $::log->verb(4,"HEAD error detail:", $errorline);
477            }
478          }
479        return undef;        return undef;
480      }      }
481    
# Line 509  sub retrieveHTTP($$) { Line 518  sub retrieveHTTP($$) {
518    
519    if ( $@ ) {    if ( $@ ) {
520      chomp($@);      chomp($@);
521      $::log->verb(0,"Download error $url:", $@);      my $shorterror = $@; $shorterror =~ s/\n.*$//gs;
522        $::log->verb(0,"Download error $url:", $shorterror);
523        # underlying socket library may be verybose - filter and qualify messages
524        if ( $shorterror ne $@ ) {
525          foreach my $errorline ( split(/\n/,$@) ) {
526            chomp($errorline); $errorline eq $shorterror and next; # nodups
527            $errorline and $::log->verb(4,"Download error detail:", $errorline);
528          }
529        }
530      return undef;      return undef;
531    }    }
532    

Legend:
Removed from v.3107  
changed lines
  Added in v.3178

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