WWW::CNic::Simple - a procedural interface to WWW::CNic

        #!/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";

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 CWWWW::CNic::Simple.

        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 CW$domain against the suffixes contained in CW@suffixes. Note that if CW@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 CW1 indicates that the domain is already registered.

        my %whois = whois($domain);

This function returns a hash containing whois data for the given CW$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           => 'webservices@centralnic.com',
                                                        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'
                         };

This module is (c) 2006 CentralNic Ltd. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

•

http://toolkit.centralnic.com/

•

WWW::CNic

•

WWW::CNic::Cookbook