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;
use Text::ParseWords;
use Pod::Usage;
use File::Temp qw(tmpnam);
use Mozilla::CA;
use strict;
my $opt = {};
......@@ -64,6 +65,7 @@ my $epp = Net::EPP::Simple->new(
'login' => undef,
'reconnect' => 0,
'verify' => ($opt->{'insecure'} ? undef : 1),
'ca_file' => Mozilla::CA::SSL_ca_file(),
);
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