.au registration experimental changes, RT10729

diff --git a/lib/Net/OpenSRS.pm b/lib/Net/OpenSRS.pm
index 34303ab..c39b3d5 100644 (file)
--- 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};
 }