File Coverage

blib/lib/SRS/EPP/Command/Info/Contact.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package SRS::EPP::Command::Info::Contact;

use Moose;
extends 'SRS::EPP::Command::Info';
use MooseX::Method::Signatures;
use Crypt::Password;
use SRS::EPP::Session;
use XML::EPP::Contact;
use Data::Dumper;

use XML::EPP::Contact::Info::Response;
use XML::EPP::Contact::PostalInfo;
use XML::EPP::Contact::Addr;

# for plugin system to connect
sub xmlns {
    XML::EPP::Contact::Node::xmlns();
}

method process( SRS::EPP::Session $session ) {
    $self->session($session);
    my $epp = $self->message;
    my $payload = $epp->message->argument->payload;

    # we're not supporting authInfo, so get out of here with an EPP response
    if ( $payload->has_auth_info ) {
        return $self->make_response(code => 2307);
    }

    return XML::SRS::Handle::Query->new( handle_id_filter => $payload->id );
}

has 'code' => (
    is => "rw",
    isa => "Int",
);

method notify( SRS::EPP::SRSResponse @rs ) {
    my $message = $rs[0]->message;
    my $response = $message->response;

    if ( $self->code ) {
        return $self->make_response(code => $self->code);
    }

    unless ( $response ) {
        # assume the contact doesn't exist
        return $self->make_response(code => 2303);
    }

    # make the Info::Response object
    my $r = XML::EPP::Contact::Info::Response->new(
        id => $response->handle_id,
        # roid => ?,
        # status => [ $self->message->status ],
        postal_info => [ XML::EPP::Contact::PostalInfo->new(
            name => $response->name,
            # org => ,
            addr => XML::EPP::Contact::Addr->new(
                street => [ $response->address->address1, $response->address->address2],
                city   => $response->address->city,
                sp     => $response->address->region, # state or province
                pc     => $response->address->postcode,
                cc     => $response->address->cc,
            ),
        ) ],
        voice => XML::EPP::Contact::E164->new(
            content => "+" . $response->phone->cc . "." . $response->phone->ndc . $response->phone->subscriber,
        ),
        #fax => XML::EPP::Contact::E164->new(
        #    content => $response->phone->cc . $response->phone->ndc . $response->phone->subscriber,
        #),
        # fax => ,
        email => $response->email,
    );

    return $self->make_response(
        'Info',
        code => 1000,
        payload => $r,
    );
}

1;