ignore ssl certificate errors

[Biblio-Z3950.git] / Scraper.pm

diff --git a/Scraper.pm b/Scraper.pm
index 692a4c6..d3e1c84 100644 (file)
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -3,15 +3,22 @@ package Scraper;
 use warnings;
 use strict;
 
+use IO::Socket::SSL qw();
 use WWW::Mechanize;
 
+
 sub new {
     my ( $class, $database ) = @_;
 
        $database ||= $class;
 
     my $self = {
-               mech => WWW::Mechanize->new(),
+               mech => WWW::Mechanize->new(
+                       ssl_opts => {
+                           SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
+                           verify_hostname => 0, # this key is likely going to be removed in future LWP >6.04
+                       }
+               ),
                database => $database,
        };
     bless $self, $class;