Net::RRP::Request::Add - rrp add request representation.

Net-RRP documentation Contained in the Net-RRP distribution.

Index

Code Index:

NAME

Top

Net::RRP::Request::Add - rrp add request representation.

SYNOPSIS

Top

 use Net::RRP::Request::Add;
 my $addRequest = new Net::RRP::Request::Add 
    ( entity  => new Net::RRP::Entity::Domain 
      ( DomainName => [ 'domain.ru' ],
	NameServer => [ 'ns1.domain.ru' ] ),
      options => { Period => 10 } );
 my $addRequest1 = new Net::RRP::Request::Add ();
 $addRequest1->setEntity ( new Net::RRP::Entity::Domain
			   ( DomainName => [ 'domain.ru' ],
			     NameServer => [ 'ns1.domain.ru' ] ) );
 $addRequest1->setOption ( Period => 10 );

DESCRIPTION

Top

This is a rrp add request representation class.

getName

return a 'Add'

setEntity

throw Net::RRP::Exception::InvalidEntityValue exception unless entity is Net::RRP::Entity::Domain or Net::RRP::Entity::NameServer

setOption

Support for Registrar and Serial options. pass Period option. Throw Net::RRP::Exception::InvalidCommandOption exception at other options. Throw Net::RRP::Exception::InvalidOptionValue unless passed value is numeric.

AUTHOR AND COPYRIGHT

Top

 Net::RRP::Request::Add (C) Michael Kulakov, Zenon N.S.P. 2000
                        125124, 19, 1-st Jamskogo polja st,
                        Moscow, Russian Federation

                        mkul@cpan.org

 All rights reserved.

 You may distribute this package under the terms of either the GNU
 General Public License or the Artistic License, as specified in the
 Perl README file.

SEE ALSO

Top

Net::RRP::Request(3), Net::RRP::Codec(3), Net::RRP::Entity::Domain(3), Net::RRP::Entity::NameServer(3), RFC 2832, Net::RRP::Exception::InvalidEntityValue(3), Net::RRP::Exception::InvalidCommandOption(3), Net::RRP::Exception::InvalidOptionValue(3)

Net-RRP documentation Contained in the Net-RRP distribution. 
package Net::RRP::Request::Add;

use strict;
use Net::RRP::Request;
use Net::RRP::Exception::InvalidEntityValue;
use Net::RRP::Exception::InvalidCommandOption;
use Net::RRP::Exception::InvalidOptionValue;

@Net::RRP::Request::Add::ISA = qw(Net::RRP::Request);
$Net::RRP::Request::Add::VERSION = '0.1';


sub getName { 'Add' };


sub setEntity
{
    my ( $this, $entity ) = @_;
    my $ref = ref ( $entity ) || throw Net::RRP::Exception::InvalidEntityValue();
    {  'Net::RRP::Entity::Domain'     => 1,
       'Net::RRP::Entity::NameServer' => 1,
       'Net::RRP::Entity::Registrar'  => 1,
       'Net::RRP::Entity::Replica'    => 1,
       'Net::RRP::Entity::Owner'      => 1,
       'Net::RRP::Entity::Contact'    => 1 }->{ $ref } || throw Net::RRP::Exception::InvalidEntityValue ();
    $this->SUPER::setEntity ( $entity );
}


sub setOption
{
    my ( $this, $key, $value ) = @_;
    return $this->SUPER::setOption ( $key => $value ) if lc ( $key ) eq 'registrar';
    return $this->SUPER::setOption ( $key => $value ) if lc ( $key ) eq 'serial';
    my $ref = ref ( $this->getEntity );
    throw Net::RRP::Exception::InvalidCommandOption () unless $ref;
    throw Net::RRP::Exception::InvalidCommandOption () if ( $ref eq 'Net::RRP::Entity::NameServer' );
    lc ( $key ) eq 'period' || throw Net::RRP::Exception::InvalidCommandOption ();
    $value =~ m/^\d+$/ || throw Net::RRP::Exception::InvalidOptionValue ();
    $this->SUPER::setOption ( $key => $value );
}


1;

__END__