From: levinse Date: Wed, 19 Jan 2011 21:49:35 +0000 (+0000) Subject: .au registration experimental changes, RT10729 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c767137d8443af8fea41b7513dd0746740999ca4;p=Net-OpenSRS.git .au registration experimental changes, RT10729 --- diff --git a/lib/Net/OpenSRS.pm b/lib/Net/OpenSRS.pm index 34303ab..c39b3d5 100644 --- a/lib/Net/OpenSRS.pm +++ b/lib/Net/OpenSRS.pm @@ -910,8 +910,8 @@ sub register_domain org_name => $c->{company} || 'n/a', }; - $rv = $self->make_request( - { + + my $hashref = { action => 'sw_register', object => 'domain', attributes => { @@ -931,8 +931,18 @@ sub register_domain reg_type => $transfer ? 'transfer' : 'new', reg_domain => $self->{config}->{master_domain}, # link domain to the 'master' account } - } - ); + }; + + if ( $domain =~ /\.au$/ ) { + $hashref->{'attributes'}->{'custom_tech_contact'} = 1; + $hashref->{'attributes'}->{'contact_set'}->{'tech'} = $contact_info; + my $au_registrant_info = { 'registrant_name' => $c->{'registrant_name'}, + 'eligibility_type' => $c->{'eligibility_type'}, + }; + $hashref->{'attributes'}->{'tld_data'}->{'au_registrant_info'} = $au_registrant_info; + } + + $rv = $self->make_request($hashref); $self->_set_response; return $rv->{is_success}; }