Unverified Commit 1d3f1350 authored by Gavin Brown's avatar Gavin Brown
Browse files

support --lang argument

parent 718b5b26
...@@ -21,6 +21,7 @@ GetOptions($opt, ...@@ -21,6 +21,7 @@ GetOptions($opt,
'help', 'help',
'exec=s', 'exec=s',
'insecure', 'insecure',
'lang=s',
); );
my $handlers = { my $handlers = {
...@@ -67,6 +68,7 @@ my $epp = Net::EPP::Simple->new( ...@@ -67,6 +68,7 @@ my $epp = Net::EPP::Simple->new(
'reconnect' => 0, 'reconnect' => 0,
'verify' => ($opt->{'insecure'} ? undef : 1), 'verify' => ($opt->{'insecure'} ? undef : 1),
'ca_file' => Mozilla::CA::SSL_ca_file(), 'ca_file' => Mozilla::CA::SSL_ca_file(),
'lang' => ($opt->{'lang'} ? $opt->{'lang'} : 'en'),
); );
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