## Domain Registry Interface, .CZ EPP extensions
##
## Copyright (c) 2008 Tonnerre Lombard <tonnerre.lombard@sygroup.ch>.
## All rights reserved.
##
## This file is part of Net::DRI
##
## Net::DRI is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## See the LICENSE file that comes with this distribution for more details.
#
#
#
####################################################################################################
use strict;
our $VERSION=do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf("%d".".%02d" x $#r, @r); };
=pod
=head1 NAME
Net::DRI::Protocol::EPP::Extensions::CZ - .CZ EPP extensions for Net::DRI
=head1 DESCRIPTION
Please see the README file for details.
=head1 SUPPORT
For now, support questions should be sent to:
E<lt>development@sygroup.chE<gt>
Please also see the SUPPORT file in the distribution.
=head1 SEE ALSO
=head1 AUTHOR
Tonnerre Lombard, E<lt>tonnerre.lombard@sygroup.chE<gt>
=head1 COPYRIGHT
Copyright (c) 2008 Tonnerre Lombard <tonnerre.lombard@sygroup.ch>.
All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the LICENSE file that comes with this distribution for more details.
=cut
####################################################################################################
sub new
{
my ($c, $drd, $version, $extrah) = @_;
my %e = map { $_ => 1 } (defined($extrah) ? (ref($extrah) ? @$extrah :
($extrah)) : ());
$e{'Net::DRI::Protocol::EPP::Extensions::CZ::NSSET'} = 1;
$e{'Net::DRI::Protocol::EPP::Extensions::CZ::Contact'} = 1;
$e{'Net::DRI::Protocol::EPP::Extensions::CZ::Domain'} = 1;
$e{'Net::DRI::Protocol::EPP::Extensions::NSgroup'} = 1;
my $self = $c->SUPER::new($drd,$version,[keys(%e)]);
$self->{defaulti18ntype}='loc'; # The registry does not provide contact postalinfo i18n type, although it is mandatory by EPP
$self->ns({ domain => ['http://www.nic.cz/xml/epp/domain-1.3','domain-1.3.xsd'],
contact => ['http://www.nic.cz/xml/epp/contact-1.4','contact-1.4.xsd'],
});
$self->capabilities('domain_update','status',undef);
$self->capabilities('domain_update','nsset',['set']);
$self->capabilities('nsset_update','ns',['add','del']);
$self->capabilities('nsset_update','contact',['add','del']);
$self->capabilities('nsset_update','auth',['set']);
$self->capabilities('nsset_update','reportlevel',['set']);
return $self;
}
sub core_contact_types { return ('admin','tech','billing','onsite'); }
####################################################################################################
1;