/[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 3178 by davidg, Tue Apr 11 07:16:27 2017 UTC revision 3275 by davidg, Thu Jan 16 20:33:09 2020 UTC
# Line 423  sub retrieveHTTP($$) { Line 423  sub retrieveHTTP($$) {
423    
424    $::log->verb(3,"Downloading data from $url");    $::log->verb(3,"Downloading data from $url");
425    my $ua = LWP::UserAgent->new;    my $ua = LWP::UserAgent->new;
426    
427    $ua->agent('fetch-crl/'.$::cnf->{_}->{version} . ' ('.    $ua->agent('fetch-crl/'.$::cnf->{_}->{version} . ' ('.
428               $ua->agent . '; '.$::cnf->{_}->{packager} . ')'               $ua->agent . '; '.$::cnf->{_}->{packager} . ')'
429             );             );
430      # allow overriding of userAgent string to bypass Fortigates and like filters
431      if ( defined $::cnf->{$self->{"alias"}}->{user_agent} ) {
432        $ua->agent($::cnf->{$self->{"alias"}}->{user_agent});
433        $::log->verb(5,"Setting user agent for " .
434                       $self->{"alias"} . " to \"" .
435                       $::cnf->{$self->{"alias"}}->{user_agent} . "\"" );
436      } elsif ( defined $::cnf->{_}->{user_agent} ) {
437        $ua->agent($::cnf->{_}->{user_agent});
438        $::log->verb(5,"Setting user agent to global value \"" .
439                       $::cnf->{_}->{user_agent} . "\"" );
440      }
441    
442    $ua->timeout($self->{"httptimeout"});    $ua->timeout($self->{"httptimeout"});
443    $ua->use_eval(0);    $ua->use_eval(0);
444    if ( $self->{"http_proxy"} ) {    if ( $self->{"http_proxy"} ) {

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

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