File Coverage

blib/lib/Net/UKDomain/Nominet/Automaton.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Net::UKDomain::Nominet::Automaton;

use 5.006;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our $errstr;	# Global error string for returning error condition details

## BEGIN variables ##

# Email Match
our $email_match='(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}';

# List of emails used for certain operations
our %emails = (
	'REQUEST' => '[e-mail]',
	'RECEIVE' => '[e-mail]',
	'account MODIFY' => '[e-mail]',
	'contact MODIFY' => '[e-mail]',
	'nameserver MODIFY' => '[e-mail]',
	'LIST' => '[e-mail]',
	'BULK' => '[e-mail]',
	'MODIFY' => undef,
	'DELETE' => undef,
	'QUERY' => undef,
	'RELEASE' => undef,
	'RENEW' => undef
);

# List of emails based on SLD, for other operations
our %emails_sld = (
	'co.uk' => '[e-mail]',
	'me.uk' => '[e-mail]',
	'org.uk' => '[e-mail]',
	'net.uk' => '[e-mail]',
	'ltd.uk' => '[e-mail]',
	'plc.uk' => '[e-mail]',
	'sch.uk' => '[e-mail]'
);

our @slds = keys %emails_sld; # Gets a list of SLDS
our $sldsi = join('|',@slds); # Join list for regex use

our @operations = keys %emails; # Gets a list of operations
our $operationsi = join('|',@operations); # Join list for regex use

# List of regex rules for fields
our %rules = (
		'operation' => "($operationsi)",
		'key'		=> '([A-Za-z0-9\-]\.('.$sldsi.')){1,63}$',
		'account-name'	=> '[[:print:]]{1,80}',
		'account-id'	=> '[[:print:]]{1,80}',
		'contact-id'	=> '[[:print:]]{1,80}',
		'name'		=> '[[:print:]]{1,80}',
		'trad-name'	=> '[[:print:]]{1,80}',
		'type'		=> '(LTD|PLC|PTNR|LLP|STRA|IND|IP|SCH|RCHAR|GOV|CRC|STAT|OTHER|FIND|FCORP|FOTHER)',
		'opt-out'	=> '(y|Y|n|N)',
		'co-no'		=> '[0-9]{1,10}',
		'addr'		=> '[[:print:]]{1,256}',
		'city'		=> '[[:print:]]{1,80}',
		'locality'	=> '[[:print:]]{1,80}',
		'county'	=> '[[:print:]]{1,80}',
		'postcode'	=> '[A-Z0-9 ]{1,10}',
		'country'	=> '[A-Z]{2}', # See: http://www.iso.org/iso/iso3166_en_code_lists.txt
		'email'		=> 	$email_match,
		'phone'		=> '[\+0-9][0-9\.\-]{1,20}',
		'fax'		=> '[\+0-9][0-9\.\-]{1,20}',
		'mobile'		=> '[\+0-9][0-9\.\-]{1,20}',
		'dns'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns0'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns0-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns1'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns1-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns2'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns2-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns3'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns3-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns4'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns4-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns5'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns5-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns6'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns6-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns7'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns7-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns8'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns8-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns9'		=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'dns9-id'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'a1-id'	=> '[[:print:]]{1,80}',
		'a1-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'a1-email'	=> $email_match,
		'a1-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a1-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a1-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a2-id'	=> '[[:print:]]{1,80}',
		'a2-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'a2-email'	=> $email_match,
		'a2-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a2-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a2-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a3-id'	=> '[[:print:]]{1,80}',
		'a3-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'a3-email'	=> $email_match,
		'a3-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a3-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'a3-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b-addr'	=> '[[:print:]]{1,256}',
		'b-locality'	=> '[[:print:]]{1,80}',
		'b-city'	=> '[[:print:]]{1,80}',
		'b-county'	=> '[[:print:]]{1,80}',
		'b-postcode'	=> '[A-Z0-9 ]{1,10}',
		'b-country'	=> '[A-Z]{2}', # See: http://www.iso.org/iso/iso3166_en_code_lists.txt
		'b1-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'b1-email'	=> $email_match,
		'b1-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b1-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b1-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b2-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'b2-email'	=> $email_match,
		'b2-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b2-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b2-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b3-name'	=> '([a-z0-9][a-z0-9\-\.\, ]+)',
		'b3-email'	=> $email_match,
		'b3-phone'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b3-fax'	=> '[\+0-9][0-9\.\-]{1,20}',
		'b3-mobile'	=> '[\+0-9][0-9\.\-]{1,20}',
		'registrar-tag'	=> '[A-Z0-9\-]+',
		'first-bill'	=> '(th|bc)',
		'recur-bill'	=> '(th|bc)',
		'auto-bill'	=> '[0-9]{0,3}',
		'next-bill'	=> '[0-9]{0,3}',
		'notes'		=> '[[:print:]]*',
		'month'		=>	'[0-9]{4}-[0-9]{2}|all',
		'expiry'		=>	'[0-9]{4}-[0-9]{2}',
);

our @fields = keys %rules; # Gets a list of fields

# We need to map the old depreciated fields onto the new ones...
our %depreciated = (
	'domain' => 'key',
	'for' => 'account-name',
	'reg-trad-name' => 'trad-name',
	'reg-type' => 'type',
	'reg-opt-out' => 'opt-out',
	'reg-co-no' => 'co-no',
	'reg-addr' => 'addr',
	'reg-city' => 'city',
	'reg-locality' => 'locality',
	'reg-county' => 'county',
	'reg-postcode' => 'postcode',
	'reg-country' => 'country',
	'reg-ref' => undef,
	'reg-contact' => 'a1-name',
	'reg-email' => 'a1-email',
	'reg-phone' => 'a1-phone',
	'reg-fax' => 'a1-fax',
	'reg-mobile' => 'a1-mobile',
	'admin-c' => undef,
	'a-addr' => undef,
	'a-phone' => undef,
	'a-fax' => undef,
	'a-email' => undef,
	'billing-c' => undef,
	'b-email' => 'b1-email',
	'b-phone' => 'b1-phone',
	'b-fax' => 'b1-fax',
	'b-mobile' => 'b1-mobile',
	'ips-key' => 'registrar-tag',
	'tech-c' => undef,
	't-addr' => undef,
	't-phone' => undef,
	't-fax' => undef,
	't-email' => undef,
	'e-mail' => 'email',
	'fax-no' => 'fax',
	'address' => 'addr',
	'org-trad-name' => 'trad-name',
	'org-type' => 'type',
	'org-co-no' => 'co-no',
	'org-postcode' => undef,
	'org-country' => undef,
	'org-addr' => undef,
	'nserver' => 'dns',
);

## END variables ##

our @ISA = qw(Exporter);
our @EXPORT = qw();
our $VERSION = '1.08';

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__