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