X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FNet%2FOpenSRS.pm;h=c39b3d5643db5c4a7764324a2a269705237c67f2;hb=c767137d8443af8fea41b7513dd0746740999ca4;hp=34303ab0b2cf0bf10fc57fc2d0f98e00a1cca6fd;hpb=62b6bbdbc1f67ef71aac658cd8ff535022d3df11;p=Net-OpenSRS.git

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};
 }