The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::EPP::Frame - An EPP XML frame system built on top of XML::LibXML.

SYNOPSIS

        #!/usr/bin/perl
        use Net::EPP::Client;
        use Net::EPP::Frame;
        use Net::EPP::ObjectSpec;
        use Digest::MD5 qw(md5_hex);
        use Time::HiRes qw(time);
        use strict;

        #
        # establish a connection to an EPP server:
        #
        my $epp = Net::EPP::Client->new(
                host    => 'epp.registry.tld',
                port    => 700,
                ssl     => 1,
                dom     => 1,
        );

        my $greeting = $epp->connect;

        #
        # log in:
        #
        my $login = Net::EPP::Frame::Command::Login->new;

        $login->clID->appendText($userid);
        $login->pw->appendText($passwd);

        #
        # set the client transaction ID:
        #
        $login->clTRID->appendText(md5_hex(Time::HiRes::time().$$));

        #
        # check the response from the log in:
        #
        my $answer = $epp->request($login);

        my $result = ($answer->getElementsByTagName('result'))[0];
        if ($result->getAttribute('code') != 1000) {
                die("Login failed!");
        }

        #
        # OK, let's do a domain name check:
        #
        my $check = Net::EPP::Frame::Command::Check->new;

        #
        # get the spec from L<Net::EPP::Frame::ObjectSpec>:
        #
        my @spec = Net::EPP::Frame::ObjectSpec->spec('domain');

        #
        # create a domain object using the spec:
        #
        my $domain = $check->addObject(@spec);

        #
        # set the domain name we want to check:
        #
        my $name = $check->createElement('domain:name');
        $name->appendText('example.tld');

        #
        # set the client transaction ID:
        #
        $check->clTRID->appendText(md5_hex(time().$$));

        #
        # assemble the frame:
        #
        $domain->addChild($name);

        #
        # send the request:
        #
        my $answer = $epp->request($check);

        # and so on...

DESCRIPTION

The Extensible Provisioning Protocol (EPP) uses XML documents called "frames" send data to and from clients and servers.

This module implements a subclass of the XML::LibXML::Document module that simplifies the process of creation of these frames. It is designed to be used alongside the Net::EPP::Client module, but could also be used on the server side.

OBJECT HIERARCHY

    L<XML::LibXML::Node>
    +----L<XML::LibXML::Document>
        +----L<Net::EPP::Frame>

USAGE

As a rule, you will not need to create Net::EPP::Frame objects directly. Instead, you should use one of the subclasses included with the distribution. The subclasses all inherit from Net::EPP::Frame.

Net::EPP::Frame is itself a subclass of XML::LibXML::Document so all the methods available from that class are also available to instances of Net::EPP::Frame.

The available subclasses of Net::EPP::Frame exist to add any additional elements required by the EPP specification. For example, the <login> frame must contain the <clID> and <pw> frames, so when you create a new Net::EPP::Frame::Command::Login object, you get these already defined.

These classes also have convenience methods, so for the above example, you can call the $login->clID and $login->pw methods to get the XML::LibXML::Node objects correesponding to those elements.

RATIONALE

You could just as easily construct your EPP frames from templates or just lots of printf() calls. But using a programmatic approach such as this strongly couples the validity of your XML to the validity of your program. If the process by which your XML is built is broken, your program won't run. This has to be a win.

ADDITIONAL METHODS

        my $str = $frame->formatTimeStamp($timestamp);

This method returns a scalar in the required format (defined in RFC 3339). This is a convenience method.

        my $node = $frame->getNode($id);
        my $node = $frame->getNode($ns, $id);

This is another convenience method. It uses $id with the getElementsByTagName() method to get a list of nodes with that element name, and simply returns the first XML::LibXML::Element from the list.

If $ns is provided, then getElementsByTagNameNS() is used.

        my $binary = $frame->header;

Returns a scalar containing the frame length packed into binary. This is only useful for low-level protocol stuff.

        my $data = $frame->frame;

Returns a scalar containing the frame header (see the header() method above) concatenated with the XML frame itself. This is only useful for low-level protocol stuff.

AVAILABLE SUBCLASSES

Each subclass has its own subclasses for various objects, for example Net::EPP::Frame::Command::Check::Domain creates a <check> frame for domain names.

Coverage for all combinations of command and object type is not complete, but work is ongoing.