view release on metacpan or  search on metacpan

lib/IO/EPP/CoCCA.pm  view on Meta::CPAN

package IO::EPP::CoCCA;

=encoding utf8

=head1 NAME

IO::EPP::CoCCA

=head1 SYNOPSIS

    use IO::EPP::CoCCA;

    # Parameters for IO::Socket::SSL
    my %sock_params = (
        PeerHost        => 'registry.rusnames.net',
        PeerPort        => 700,
        # without certificate
        Timeout         => 30,
    );

    # Create object, get greeting and call login()
    my $conn = IO::EPP::CoCCA->new( {
        user => 'login',
        pass => 'xxxx',
        sock_params => \%sock_params,
        test_mode => 0, # real connect
    } );

    # Check domain
    my ( $answ, $code, $msg ) = $conn->check_domains( { domains => [ 'xn--d1acufc.xn--p1acf' ] } );

    # Call logout() and destroy object
    undef $conn;

=head1 DESCRIPTION

Module for work with  .РУС/.xn--p1acf, .CX, ... tlds. All list see on https://cocca.org.nz/#five

Frontends:
https://rusnames.com/
https://cocca.org.nz/

Backend:
https://secure.coccaregistry.net/

CoCCA features:

- not show authinfo in domain:info

=cut

use IO::EPP::Base;
use parent qw( IO::EPP::Base );

use strict;
use warnings;


my $rgp_ext = 'xmlns:rgp="urn:ietf:params:xml:ns:rgp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ietf:params:xml:ns:rgp-1.0 rgp-1.0.xsd"';


sub make_request {
    my ( $action, $params ) = @_;

    my ( $self, $code, $msg, $answ );

    unless ( $params->{conn} ) {
        $params->{sock_params}{PeerHost} ||= 'registry.rusnames.net'; # .РУС / .xn--p1acf
        $params->{sock_params}{PeerPort} ||= 700;

        ( $self, $code, $msg ) = __PACKAGE__->new( $params );

        unless ( $code  and  $code == 1000 ) {