SYNOPSIS
#!/usr/bin/perl
use WWW::CNic::Simple;
my @suffixes = suffixes();
my %results = check('test-domain', 'uk.com', 'uk.net');
print "test-domain.uk.com is registered.\n" if ($results{'uk.com'} == 1);
my %whois = whois('test-domain.uk.com');
print "domain status: $whois{status}\n";
DESCRIPTION
This interface is intended for those who want a simplified view of the WWW::CNic library. It provides simple functions for querying the CentralNic system, making it ideal for one-liners and other tasks.Please note that it is not possible to make domain registrations or modifications using "WWW::CNic::Simple".
FUNCTIONS
my @suffixes = suffixes();
This function returns an array containing the currently live CentralNic suffixes.
my %result = check($domain, @suffixes);
This function does an availability check on $domain against the suffixes contained in @suffixes. Note that if @suffixes is omitted the check will run against all CentralNic domains.
The function returns a hash of the form:
my %result = ( 'uk.com' => 1,
'uk.net' => 0,
'eu.com' => 0);
where 1 indicates that the domain is already registered.
my %whois = whois($domain);
This function returns a hash containing whois data for the given $domain This hash is of the form:
my %whois = { chandle => { postcode => 'SW6 4SN',
country => 'UK',
userid => 'C11480',
fax => 'N/A',
addr => "163 New King's Road, Fulham, London",
name => 'Hostmaster',
email => '[email protected]',
phone => '020 7751 9000',
company => 'CentralNic Ltd' },
expires => '1001458800',
status => 'Live',
thandle => # as chandle above
bhandle => # as chandle above
registrant => 'CentralNic Ltd',
domain => 'toolkit-test.uk.com',
created => '1001458800'
};