psk_download.pl: don't verify cert hostname
[toast/webscraper/psk.git] / psk_download.pl
index 5b40de3..a31261f 100755 (executable)
@@ -14,6 +14,7 @@ use Pod::Usage;
 use Getopt::Long;
 use File::Spec::Functions qw(catfile);
 use File::Basename qw(dirname);
+use IO::Socket::SSL;
 
 use constant DEBUG => 0;
 
@@ -41,7 +42,14 @@ croak "Directory '$dir' doesn't exist." unless -d $dir;
 debug("Log in ...");
 my $url
     = 'https://ebanking.bawagpsk.com/InternetBanking/InternetBanking?d=login&svc=BAWAG&ui=html&lang=de';
-my $mech = WWW::Mechanize->new( autocheck => 1, );
+my $mech = WWW::Mechanize->new(
+    autocheck => 1,
+    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
+    }
+);
 $mech->add_header( 'Accept-Encoding' => 'identity' );    # no gzip
 $mech->get($url);