$me = '[' . __PACKAGE__ . ']';
$DEBUG = 0;
-my @tldlist = qw/com net org biz info name mobi at be ca cc ch cn de dk es eu fr it mx nl tv uk us/;
+my @tldlist = qw/com net org biz info name mobi at be ca cc ch cn de dk es eu fr it mx nl tv uk us asn.au com.au id.au net.au org.au/;
tie %options, 'Tie::IxHash',
'username' => { label => 'Reseller user name at OpenSRS',
size => scalar(@tldlist),
options => [ @tldlist ],
default => 'com net org' },
+ 'auoptions' => { label => 'Enable AU-specific registration fields',
+ type => 'checkbox'
+ },
;
%info = (
# Get the TLD of the new domain
my @bits = split /\./, $svc_domain->domain;
- return "Can't register subdomains: " . $svc_domain->domain if scalar(@bits) != 2;
+ return "Can't register subdomains: " . $svc_domain->domain
+ if (scalar(@bits) != 2 && scalar(@bits) != 3);
my $tld = pop @bits;
+ my $sld = pop @bits;
# See if it's one this export supports
my @tlds = split /\s+/, $self->option('tlds');
@tlds = map { s/\.//; $_ } @tlds;
- return "Can't register top-level domain $tld, restricted to: " . $self->option('tlds') if ! grep { $_ eq $tld } @tlds;
+ return "Can't register top-level domain $tld, restricted to: "
+ . $self->option('tlds') if ! grep { $_ eq $tld || $_ eq "$sld$tld" } @tlds;
return undef;
}
sub register {
my ( $self, $svc_domain, $years ) = @_;
+ $years = 1 unless $years; #default to 1 year since we don't seem to pass it
+
return "Net::OpenSRS does not support period other than 1 year" if $years != 1;
eval "use Net::OpenSRS;";
my $c = gen_contact_info($cust_main);
+ if ( $svc_domain->domain =~ /\.au$/ ) {
+ $c->{'registrant_name'} = $svc_domain->au_registrant_name;
+ $c->{'eligibility_type'} = $svc_domain->au_eligibility_type;
+ }
+
$err = validate_contact_info($c);
return $err if $err;