开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB邮件程序 > 查看源码
create_domains.pl
资源名称：prometheus-all-2_75.tar.gz　[点击查看]
上传用户：xiao730204
上传日期：2007-01-04
资源大小：141k
文件大小：2k
源码类别：

WEB邮件程序

开发平台：

PHP

create_domains.pl：源码内容
  1. #!/usr/bin/perl
  3. @tlds = (
  4.    "al",
  5.    "am",
  6.    "art",
  7.    "arts",
  8.    "at",
  9.    "az",
  10.    "ba",
  11.    "bank",
  12.    "be",
  13.    "bg",
  14.    "biz",
  15.    "by",
  16.    "ca",
  17.    "can",
  18.    "cc",
  19.    "cdn",
  20.    "ch",
  21.    "cn",
  22.    "com",
  23.    "corp",
  24.    "cx",
  25.    "cy",
  26.    "cz",
  27.    "dds",
  28.    "de",
  29.    "dir",
  30.    "dk",
  31.    "dz",
  32.    "edu",
  33.    "ee",
  34.    "eg",
  35.    "es",
  36.    "etc",
  37.    "faq",
  38.    "fi",
  39.    "film",
  40.    "fo",
  41.    "fr",
  42.    "fund",
  43.    "gallery",
  44.    "gb",
  45.    "ge",
  46.    "gmbh",
  47.    "gov",
  48.    "gr",
  49.    "help",
  50.    "hk",
  51.    "hotel",
  52.    "hr",
  53.    "hu",
  54.    "ie",
  55.    "il",
  56.    "is",
  57.    "isp",
  58.    "it",
  59.    "jp",
  60.    "k12",
  61.    "kr",
  62.    "li",
  63.    "list",
  64.    "llb",
  65.    "lt",
  66.    "lu",
  67.    "lv",
  68.    "ma",
  69.    "md",
  70.    "med",
  71.    "mil",
  72.    "mk",
  73.    "mt",
  74.    "mx",
  75.    "music",
  76.    "net",
  77.    "nic",
  78.    "nl",
  79.    "no",
  80.    "npo",
  81.    "org",
  82.    "php",
  83.    "pl",
  84.    "prices",
  85.    "pt",
  86.    "radio",
  87.    "ro",
  88.    "ru",
  89.    "se",
  90.    "sg",
  91.    "si",
  92.    "sk",
  93.    "sky",
  94.    "sm",
  95.    "sql",
  96.    "su",
  97.    "tj",
  98.    "tr",
  99.    "tw",
  100.    "ua",
  101.    "uk",
  102.    "us",
  103.    "va",
  104.    "video",
  105.    "xxx",
  106.    "y2k",
  107.    "yu",
  108.    "zine",
  109.    "zoo",
  110.    "666",
  111.    "800",
  112.    "888",
  113.    "int",
  114. );
  116. #
  117. # Most people will propbably just want :
  118. #
  119. # @tlds = (
  120. # "com",
  121. # "net",
  122. # "org",
  123. # );
  124. #
  125. foreach $tld ( @tlds ) {
  126.    $table_name = $tld . '_domains';
  127.    print <<"TLD_TABLE";
  128. CREATE TABLE
  129.    $table_name
  130. (
  131.    sqlId          BIGINT   NOT NULL             AUTO_INCREMENT,
  132.    domain_name    TEXT     DEFAULT ''           NOT NULL,
  133.    serial_number  BIGINT   DEFAULT '0'          NOT NULL,
  134.    refresh        BIGINT   DEFAULT '0'          NOT NULL,
  135.    retry          BIGINT   DEFAULT '0'          NOT NULL,
  136.    expire         BIGINT   DEFAULT '0'          NOT NULL,
  137.    min_ttl        BIGINT   DEFAULT '0'          NOT NULL,  
  138.    PRIMARY KEY( sqlId ),  
  139.    INDEX( sqlId )
  140. );
  141. TLD_TABLE
  142. }