1#!/usr/bin/perl -w 2 3use strict; 4 5use Net::DRI; 6use Net::DRI::Data::Hosts; 7 8use DateTime::Duration; 9 10my $dri=Net::DRI->new(10); 11 12eval { 13############################################################################################################ 14$dri->add_registry('WS',{tz=>'America/Los_Angeles'}); 15 16## This connects to .WS OT&E server 17my $rc=$dri->target('WS')->add_current_profile('profile1','rrp',{defer=>0,socktype=>'ssl',remote_host=>'www.worldsite.ws',remote_port=>648,ssl_key_file=>'./privkey.pem',ssl_cert_file=>'./cacert.pem',ssl_ca_file=>'./cacert.pem',ssl_cipher_list=>'TLSv1',protocol_connection=>'Net::DRI::Protocol::RRP::Connection',protocol_version=>1,client_login=>'MyLOGIN',client_password=>'MyPASSWORD'}); 18 19my $dom='toto-'.time().'.ws'; 20$rc=$dri->domain_check($dom); 21print "$dom does not exist\n" unless $dri->get_info('exist'); 22$rc=$dri->domain_create($dom,{pure_create=>1,duration=>DateTime::Duration->new(years =>5)}); 23print "$dom created\n" if $rc->is_success(); 24$rc=$dri->domain_check($dom); 25print "$dom does exist now\n" if $dri->get_info('exist'); 26$rc=$dri->domain_info($dom); 27print "domain_info OK\n" if $rc->is_success(); 28 29my $ns='ns.titi-'.time().'.fr'; 30my $nso=Net::DRI::Data::Hosts->new($ns); 31print "NS=$ns\n"; 32my $e=$dri->host_exist($ns); 33print "Host exist\n" if ($e==1); 34if ($e==0) 35{ 36 print "Creating $ns\n"; 37 $rc=$dri->host_create($nso); 38 print "Host created OK\n"; 39} 40 41$rc=$dri->domain_update_ns_add($dom,$nso); 42print "ns_add OK\n" if $rc->is_success(); 43$rc=$dri->domain_info($dom); 44$rc=$dri->domain_update_ns_del($dom,$nso); 45print "ns_del OK\n" if $rc->is_success(); 46$rc=$dri->domain_info($dom); 47 48 49$rc=$dri->host_delete($nso); 50print "host_delete OK\n"; 51 52my $s=$dri->create_status()->no('update'); 53$rc=$dri->domain_update_status_add($dom,$s); 54print "status_add OK\n" if $rc->is_success(); 55$rc=$dri->domain_info($dom); 56$rc=$dri->domain_update_status_del($dom,$s); 57print "status_del OK\n" if $rc->is_success(); 58$rc=$dri->domain_info($dom); 59 60 61$rc=$dri->domain_delete($dom,{pure_delete => 1}); 62print "domain_delete OK\n" if $rc->is_success(); 63}; 64 65if ($@) 66{ 67 print "\n\nAN ERROR happened !!!\n"; 68 if (ref($@)) 69 { 70 $@->print(); 71 } else 72 { 73 print($@); 74 } 75} else 76{ 77 print "\n\nNo error"; 78} 79 80print "\n"; 81 82exit 0; 83