extra/tools/dns/public/public.factor

   1 ! Copyright (C) 2013 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel tools.dns ;
   4 IN: tools.dns.public
   5
   6 CONSTANT: google-dns-servers { "8.8.8.8" "8.8.4.4" }
   7 : google-host ( domain -- ) [ google-dns-servers ] dip dns-host ;
   8
   9 CONSTANT: dnsvantage-dns-servers {
  10     "156.154.70.1"
  11     "156.154.71.1"
  12 }
  13 : dnsvantage-host ( domain -- ) [ dnsvantage-dns-servers ] dip dns-host ;
  14
  15
  16 CONSTANT: opendns-dns-servers { "208.67.222.222" "208.67.220.220" }
  17 : opendns-host ( domain -- ) [ opendns-dns-servers ] dip dns-host ;
  18
  19 CONSTANT: norton-dns-servers { "198.153.192.1" "198.153.194.1" }
  20 : norton-host ( domain -- ) [ norton-dns-servers ] dip dns-host ;
  21
  22 CONSTANT: verizon-dns-servers {
  23     "4.2.2.1"
  24     "4.2.2.2"
  25     "4.2.2.3"
  26     "4.2.2.4"
  27     "4.2.2.5"
  28     "4.2.2.6"
  29 }
  30 : verizon-host ( domain -- ) [ verizon-dns-servers ] dip dns-host ;
  31
  32 CONSTANT: cloudflare-dns-servers { "1.1.1.1" }
  33 : cloudflare-host ( domain -- ) [ cloudflare-dns-servers ] dip dns-host ;