#! /bin/perl
{
}

sub is_country_code_match {
			     # test that the passed argument is a vaild
			     # country or base domain name code
			     # returns true if string matches a country
			     # code, and false if it does not.
   local(*code) = @_;
   local($TRUE, $FALSE);
   $TRUE  = 1;
   $FALSE = 0;
   %country_codes =( 'ad',   '', 'ae',   '', 'af',   '', 'ag',   '',
                     'ai',   '', 'al',   '', 'am',   '', 'an',   '',
                     'ao',   '', 'aq',   '', 'ar',   '', 'as',   '',
                     'at',   '', 'au',   '', 'aw',   '', 'az',   '',
                     'ba',   '', 'bb',   '', 'bd',   '', 'be',   '',
                     'bf',   '', 'bg',   '', 'bh',   '', 'bi',   '',
                     'bj',   '', 'bm',   '', 'bn',   '', 'bo',   '',
                     'br',   '', 'bs',   '', 'bt',   '', 'bv',   '',
                     'bw',   '', 'by',   '', 'bz',   '', 'ca',   '', 
                     'cc',   '', 'cf',   '', 'cg',   '', 'ch',   '',
                     'ci',   '', 'ck',   '', 'cl',   '', 'cm',   '',
                     'cn',   '', 'co',   '', 'com',  '', 'cr',   '',
                     'cu',   '', 'cv',   '', 'cx',   '', 'cy',   '',
                     'cz',   '', 'de',   '', 'dj',   '', 'dk',   '',
                     'dm',   '', 'do',   '', 'dz',   '', 'ec',   '',
                     'edu',  '', 'ee',   '', 'eg',   '', 'eh',   '',
                     'er',   '', 'es',   '', 'et',   '', 'fi',   '',
                     'fj',   '', 'fk',   '', 'fm',   '', 'fo',   '',
                     'fr',   '', 'fx',   '', 'ga',   '', 'gb',   '',
                     'gd',   '', 'ge',   '', 'gf',   '', 'gh',   '',
                     'gi',   '', 'gl',   '', 'gm',   '', 'gn',   '',
                     'gov',  '', 'gp',   '', 'gq',   '', 'gr',   '',
                     'gs',   '', 'gt',   '', 'gu',   '', 'gw',   '',
                     'gy',   '', 'hk',   '', 'hm',   '', 'hn',   '',
                     'hr',   '', 'ht',   '', 'hu',   '', 'id',   '',
                     'ie',   '', 'il',   '', 'in',   '', 'int',  '',
                     'io',   '', 'iq',   '', 'ir',   '', 'is',   '',
                     'it',   '', 'jm',   '', 'jo',   '', 'jp',   '',
                     'ke',   '', 'kg',   '', 'kh',   '', 'ki',   '',
                     'km',   '', 'kn',   '', 'kp',   '', 'kr',   '',
                     'kw',   '', 'ky',   '', 'kz',   '', 'la',   '',
                     'lb',   '', 'lc',   '', 'li',   '', 'lk',   '',
                     'lr',   '', 'ls',   '', 'lt',   '', 'lu',   '',
                     'lv',   '', 'ly',   '', 'ma',   '', 'mc',   '',
                     'md',   '', 'mg',   '', 'mh',   '', 'mil',  '',
                     'mk',   '', 'ml',   '', 'mm',   '', 'mn',   '',
                     'mo',   '', 'mp',   '', 'mq',   '', 'mr',   '',
                     'ms',   '', 'mt',   '', 'mu',   '', 'mv',   '',
                     'mw',   '', 'mx',   '', 'my',   '', 'mz',   '',
                     'na',   '', 'nc',   '', 'ne',   '', 'net',  '',
                     'nf',   '', 'ng',   '', 'ni',   '', 'nl',   '',
                     'no',   '', 'np',   '', 'nr',   '', 'nu',   '',
                     'nz',   '', 'om',   '', 'org',  '', 'pa',   '',
                     'pe',   '', 'pf',   '', 'pg',   '', 'ph',   '',
                     'pk',   '', 'pl',   '', 'pm',   '', 'pn',   '',
                     'pr',   '', 'pt',   '', 'pw',   '', 'py',   '',
                     'qa',   '', 're',   '', 'ro',   '', 'ru',   '',
                     'rw',   '', 'sa',   '', 'sb',   '', 'sc',   '',
                     'sd',   '', 'se',   '', 'sg',   '', 'sh',   '',
                     'si',   '', 'sj',   '', 'sk',   '', 'sl',   '',
                     'sm',   '', 'sn',   '', 'so',   '', 'sr',   '',
                     'st',   '', 'sv',   '', 'sy',   '', 'sz',   '',
                     'tc',   '', 'td',   '', 'tf',   '', 'tg',   '',
                     'th',   '', 'tj',   '', 'tk',   '', 'tm',   '',
                     'tn',   '', 'to',   '', 'tp',   '', 'tr',   '',
                     'tt',   '', 'tv',   '', 'tw',   '', 'tz',   '',
                     'ua',   '', 'ug',   '', 'um',   '', 'us',   '',
                     'uy',   '', 'uz',   '', 'va',   '', 'vc',   '',
                     've',   '', 'vg',   '', 'vi',   '', 'vn',   '',
                     'vu',   '', 'wf',   '', 'ws',   '', 'ye',   '',
                     'yt',   '', 'yu',   '', 'za',   '', 'zm',   '',
                     'zr',   '', 'zw',   ''
                    );

    if (defined ($country_codes{$code}) ) {
      return $TRUE;
    }
    else {
       return $FALSE;
    }
}
1;