$session_id ||= int rand(1000000000);
# FIXME allocate session just once
- my $url = 'http://katalog.nsk.hr/F?RN=' . $session_id;
+ my $url = 'https://katalog.nsk.hr/F?RN=' . $session_id;
# fake JavaScript code on page which creates random session
diag "get $url";
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;