1#!/usr/bin/perl
2#
3#
4# A Net::DRI example
5
6use strict;
7use warnings;
8
9use Net::DRI;
10
11my ($rc,$dri);
12
13eval {
14
15$dri=Net::DRI->new(10);
16$dri->add_registry('EURid',{});
17$rc=$dri->target('EURid')->add_current_profile('profile1','das');
18die($rc) unless $rc->is_success();
19das('europa.eu');
20das('netdri-test-doestnotexist.eu');
21$dri->add_registry('BE',{});
22$rc=$dri->target('BE')->add_current_profile('profile1','das');
23die($rc) unless $rc->is_success();
24das('brussels.be');
25das('netdri-test-doestnotexist.be');
26$dri->add_registry('AU',{});
27$rc=$dri->target('AU')->add_current_profile('profile1','das');
28die($rc) unless $rc->is_success();
29das('domain.com.au');
30das('netdri-test-doestnotexist.com.au');
31$dri->add_registry('AdamsNames',{});
32$rc=$dri->target('AdamsNames')->add_current_profile('profile1','das');
33die($rc) unless $rc->is_success();
34das('adamsnames.tc');
35das('netdri-test-doestnotexist.tc');
36$dri->add_registry('SIDN',{});
37$rc=$dri->target('SIDN')->add_current_profile('profile1','das');
38die($rc) unless $rc->is_success();
39das('amsterdam.nl');
40sleep(2);
41das('netdri-test-doestnotexist.nl');
42$dri->add_registry('BookMyName',{});
43$rc=$dri->target('BookMyName')->add_current_profile('profile1','das');
44die($rc) unless $rc->is_success();
45das('free.org');
46sleep(2);
47das('netdri-test-doestnotexist.com');
48
49$dri->end();
50};
51
52if ($@)
53{
54 print "\n\nAn EXCEPTION happened !\n";
55 if (ref($@))
56 {
57  $@->print();
58 } else
59 {
60  print($@);
61 }
62} else
63{
64 print "\n\nNo exception happened";
65}
66
67print "\n";
68exit 0;
69
70sub das
71{
72 my $dom=shift;
73 print 'DOMAIN: '.$dom."\n";
74 $rc=$dri->domain_check($dom);
75 print 'IS_SUCCESS: '.$dri->result_is_success()."\n";
76 print 'CODE: '.$dri->result_code().' / '.$dri->result_native_code()."\n";
77 print 'MESSAGE: ('.$dri->result_lang().') '.$dri->result_message()."\n";
78 print 'EXIST: '.$dri->get_info('exist')."\n";
79 print 'EXIST_REASON: '.$dri->get_info('exist_reason')."\n";
80 print "\n";
81}
82