Net-EPP-MITMProxy

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.031, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Net-EPP-MITMProxy
requires:
  IO::Socket::SSL: '0'
  Mozilla::CA: '0'
  Net::EPP::Protocol: '0'
  Net::Server::PreFork: '0'
  SUPER: '0'
  Socket: '0'
  Socket6: '0'
  XML::LibXML: '0'
  base: '0'
  bytes: '0'
  feature: '0'

Makefile.PL  view on Meta::CPAN

my %WriteMakefileArgs = (
  "ABSTRACT" => "A generic EPP proxy server framework.",
  "AUTHOR" => "Gavin Brown <gavin.brown\@icann.org>",
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Net-EPP-MITMProxy",
  "LICENSE" => "perl",
  "NAME" => "Net::EPP::MITMProxy",
  "PREREQ_PM" => {
    "IO::Socket::SSL" => 0,
    "Mozilla::CA" => 0,
    "Net::EPP::Protocol" => 0,
    "Net::Server::PreFork" => 0,
    "SUPER" => 0,
    "Socket" => 0,
    "Socket6" => 0,
    "XML::LibXML" => 0,
    "base" => 0,
    "bytes" => 0,
    "feature" => 0,

Makefile.PL  view on Meta::CPAN

    "Test::More" => 0
  },
  "VERSION" => "0.02",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "IO::Socket::SSL" => 0,
  "Mozilla::CA" => 0,
  "Net::EPP::Protocol" => 0,
  "Net::Server::PreFork" => 0,
  "SUPER" => 0,
  "Socket" => 0,
  "Socket6" => 0,
  "Test::More" => 0,
  "XML::LibXML" => 0,
  "base" => 0,
  "bytes" => 0,

lib/Net/EPP/MITMProxy.pm  view on Meta::CPAN

package Net::EPP::MITMProxy;
# ABSTRACT: A generic EPP proxy server framework.
use IO::Socket::SSL;
use Mozilla::CA;
use Net::EPP::Protocol;
use Socket6;
use Socket;
use SUPER;
use XML::LibXML;
use base qw(Net::Server::PreFork);
use feature qw(state);
use vars qw($OPT_KEY $HELLO);
use bytes;

lib/Net/EPP/MITMProxy.pm  view on Meta::CPAN

        PeerPort        => $self->{$OPT_KEY}->{remote_port},
        SSL_verify_mode => SSL_VERIFY_PEER,
        SSL_ca_file     => Mozilla::CA::SSL_ca_file(),
    );

    if ($self->{$OPT_KEY}->{remote_key} && $self->{$OPT_KEY}->{remote_cert}) {
        $args{SSL_key_file}     = $self->{$OPT_KEY}->{remote_key};
        $args{SSL_cert_file}    = $self->{$OPT_KEY}->{remote_cert};
    }

    my $server = IO::Socket::SSL->new(%args);

    if (!$server) {
        $self->log(0, sprintf(
            'connection to [%s]:%u failed (error=%s, SSL error=%s)',
            $self->{$OPT_KEY}->{remote_server},
            $self->{$OPT_KEY}->{remote_port},
            $!,
            $SSL_ERROR
        ));
        return;