Attachment #344370 for bug #340353




    $logger->info("Data source '$filename' is a remote .xml - fetching ...");
    if ($1) { # HTTPS
      # use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
      # We have to explicitly set the cert path because otherwise the https module
      # can't find the .pem when PAR::Packer'ed
      if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
          not defined(Biber::Config->getoption('ssl-nointernalca'))) {
        require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
        # we assume that the default CA file is in .../Mozilla/CA/cacert.pem
        (my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
        $dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
        $ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
      }
      if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
          $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      }




    $logger->info("Data source '$source' is a remote BibTeX data source - fetching ...");
    if ($1) { # HTTPS
      # use IO::Socket::SSL qw(debug99); # useful for debugging SSL issues
      # We have to explicitly set the cert path because otherwise the https module
      # can't find the .pem when PAR::Packer'ed
      if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
          not defined(Biber::Config->getoption('ssl-nointernalca'))) {
        require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
        # we assume that the default CA file is in .../Mozilla/CA/cacert.pem
        (my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
        $dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
        $ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
      }
      if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
          $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      }




    $logger->info("Data source '$source' is a remote EndNote XML datasource - fetching ...");
    if ($1) { # HTTPS
      # use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
      # We have to explicitly set the cert path because otherwise the https module
      # can't find the .pem when PAR::Packer'ed
      if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
          not defined(Biber::Config->getoption('ssl-nointernalca'))) {
        require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
        # we assume that the default CA file is in .../Mozilla/CA/cacert.pem
        (my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
        $dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
        $ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
      }
      if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
          $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      }




    $logger->info("Data source '$source' is a remote RIS data source - fetching ...");
    if ($1) { # HTTPS
      # use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
      # We have to explicitly set the cert path because otherwise the https module
      # can't find the .pem when PAR::Packer'ed
      if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
          not defined(Biber::Config->getoption('ssl-nointernalca'))) {
        require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
        # we assume that the default CA file is in .../Mozilla/CA/cacert.pem
        (my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
        $dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
        $ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
      }
      if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
          $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      }




    $logger->info("Data source '$source' is a remote Zotero RDF/XML data source - fetching ...");
    if ($1) { # HTTPS
      # use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
      # We have to explicitly set the cert path because otherwise the https module
      # can't find the .pem when PAR::Packer'ed
      if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
          not defined(Biber::Config->getoption('ssl-nointernalca'))) {
        require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
        # we assume that the default CA file is in .../Mozilla/CA/cacert.pem
        (my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
        $dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
        $ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
      }
      if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
          $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      }

Lines 61-67 Link Here

(-)Build.PL.orig (-1 lines)
61	'Business::ISBN' => 0,	61	'Business::ISBN' => 0,
62	'Business::ISSN' => 0,	62	'Business::ISSN' => 0,
63	'Business::ISMN' => 0,	63	'Business::ISMN' => 0,
64	'Mozilla::CA' => 0,
65	'perl' => '5.14.0'	64	'perl' => '5.14.0'
66	},	65	},
67	recommends => {	66	recommends => {

Return to bug 340353

Lines 81-96 Link Here

(-)lib/Biber/Input/file/biblatexml.pm.orig (-10 lines)
81	$logger->info("Data source '$filename' is a remote .xml - fetching ...");	81	$logger->info("Data source '$filename' is a remote .xml - fetching ...");
82	if ($1) { # HTTPS	82	if ($1) { # HTTPS
83	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues	83	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
84	# We have to explicitly set the cert path because otherwise the https module
85	# can't find the .pem when PAR::Packer'ed
86	if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
87	not defined(Biber::Config->getoption('ssl-nointernalca'))) {
88	require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
89	# we assume that the default CA file is in .../Mozilla/CA/cacert.pem
90	(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
91	$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
92	$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
93	}
94	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {	84	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
95	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;	85	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
96	}	86	}

Lines 123-138 Link Here

(-)lib/Biber/Input/file/bibtex.pm.orig (-10 lines)
123	$logger->info("Data source '$source' is a remote BibTeX data source - fetching ...");	123	$logger->info("Data source '$source' is a remote BibTeX data source - fetching ...");
124	if ($1) { # HTTPS	124	if ($1) { # HTTPS
125	# use IO::Socket::SSL qw(debug99); # useful for debugging SSL issues	125	# use IO::Socket::SSL qw(debug99); # useful for debugging SSL issues
126	# We have to explicitly set the cert path because otherwise the https module
127	# can't find the .pem when PAR::Packer'ed
128	if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
129	not defined(Biber::Config->getoption('ssl-nointernalca'))) {
130	require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
131	# we assume that the default CA file is in .../Mozilla/CA/cacert.pem
132	(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
133	$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
134	$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
135	}
136	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {	126	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
137	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;	127	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
138	}	128	}

Lines 99-114 Link Here

(-)lib/Biber/Input/file/endnotexml.pm.orig (-10 lines)
99	$logger->info("Data source '$source' is a remote EndNote XML datasource - fetching ...");	99	$logger->info("Data source '$source' is a remote EndNote XML datasource - fetching ...");
100	if ($1) { # HTTPS	100	if ($1) { # HTTPS
101	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues	101	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
102	# We have to explicitly set the cert path because otherwise the https module
103	# can't find the .pem when PAR::Packer'ed
104	if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
105	not defined(Biber::Config->getoption('ssl-nointernalca'))) {
106	require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
107	# we assume that the default CA file is in .../Mozilla/CA/cacert.pem
108	(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
109	$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
110	$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
111	}
112	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {	102	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
113	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;	103	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
114	}	104	}

Lines 95-110 Link Here

(-)lib/Biber/Input/file/ris.pm.orig (-10 lines)
95	$logger->info("Data source '$source' is a remote RIS data source - fetching ...");	95	$logger->info("Data source '$source' is a remote RIS data source - fetching ...");
96	if ($1) { # HTTPS	96	if ($1) { # HTTPS
97	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues	97	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
98	# We have to explicitly set the cert path because otherwise the https module
99	# can't find the .pem when PAR::Packer'ed
100	if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
101	not defined(Biber::Config->getoption('ssl-nointernalca'))) {
102	require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
103	# we assume that the default CA file is in .../Mozilla/CA/cacert.pem
104	(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
105	$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
106	$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
107	}
108	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {	98	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
109	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;	99	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
110	}	100	}

Lines 111-126 Link Here

(-)lib/Biber/Input/file/zoterordfxml.pm.orig (-10 lines)
111	$logger->info("Data source '$source' is a remote Zotero RDF/XML data source - fetching ...");	111	$logger->info("Data source '$source' is a remote Zotero RDF/XML data source - fetching ...");
112	if ($1) { # HTTPS	112	if ($1) { # HTTPS
113	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues	113	# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues
114	# We have to explicitly set the cert path because otherwise the https module
115	# can't find the .pem when PAR::Packer'ed
116	if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and
117	not defined(Biber::Config->getoption('ssl-nointernalca'))) {
118	require Mozilla::CA; # Have to explicitly require this here to get it into %INC below
119	# we assume that the default CA file is in .../Mozilla/CA/cacert.pem
120	(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} );
121	$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/'
122	$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem');
123	}
124	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {	114	if (defined(Biber::Config->getoption('ssl-noverify-host'))) {
125	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;	115	$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
126	}	116	}