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