Commit a39f1970 authored by Gavin Brown's avatar Gavin Brown
Browse files

Use Mozila::CA to validate server certificates

parent 3f629143
...@@ -8,6 +8,7 @@ use Getopt::Long; ...@@ -8,6 +8,7 @@ use Getopt::Long;
use Text::ParseWords; use Text::ParseWords;
use Pod::Usage; use Pod::Usage;
use File::Temp qw(tmpnam); use File::Temp qw(tmpnam);
use Mozilla::CA;
use strict; use strict;
my $opt = {}; my $opt = {};
...@@ -64,6 +65,7 @@ my $epp = Net::EPP::Simple->new( ...@@ -64,6 +65,7 @@ my $epp = Net::EPP::Simple->new(
'login' => undef, 'login' => undef,
'reconnect' => 0, 'reconnect' => 0,
'verify' => ($opt->{'insecure'} ? undef : 1), 'verify' => ($opt->{'insecure'} ? undef : 1),
'ca_file' => Mozilla::CA::SSL_ca_file(),
); );
my $term = Term::ReadLine->new('pepper'); my $term = Term::ReadLine->new('pepper');
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment