;; -*- coding: utf-8 -*- (FORMAT *TRACE-OUTPUT* "~&Loading informatimago.lisp~%") (DEFPARAMETER *NOT-PRIVATE* '()) (DEFUN CONCAT (&REST ARGS) (APPLY (FUNCTION CONCATENATE) 'STRING (MAPCAR (LAMBDA (ITEM) (IF (TYPEP ITEM 'SEQUENCE) ITEM (FORMAT NIL "~A" ITEM))) ARGS))) (SETF *ZONE-DIR* (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:RELATIVE "test")) (EXT:CD))) (SETF *ZONE-DIR* (MERGE-PATHNAMES (MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE "var" "lib" "named")) (EXT:CD))) (SETF *CONF-DIR* *ZONE-DIR*) (DEFPARAMETER *SERIAL-DATA-FILE* (MERGE-PATHNAMES (MAKE-PATHNAME :NAME "serial" :TYPE "data") *ZONE-DIR*)) (DEFPARAMETER SERIAL (NEXT-SERIAL *SERIAL-DATA-FILE*)) (RESET) (REGISTER-REVERSE '(174 93 62) 'INFORMATIMAGO.COM) (REGISTER-REVERSE '(114 85 195) 'LAN.INFORMATIMAGO.COM) (REGISTER-REVERSE '(166 168 192) 'LAN.YUCAS.OGAMITA.ORG) (PUSH '(192 168 166) *NOT-PRIVATE*) (PUSH '(192 168 167) *NOT-PRIVATE*) (ADD-NAME 'DNS0.AFAA.ASSO.FR '195.114.85.138) (ADD-NAME 'DNS1.AFAA.ASSO.FR '195.114.85.139) (ADD-NAME 'INFORMATIMAGO.AFAA.ASSO.FR '62.93.174.78) (add-name 'intergruas.afaa.asso.fr '62.93.173.252) (DEFMACRO DEFINE-SOA (DOMAIN) `(DEFINE-ZONE ,DOMAIN ('INFORMATIMAGO.AFAA.ASSO.FR ; primary dns 'INFORMATIMAGO.TERRA.ES SERIAL "1H" #|refresh|# "1H" #|retry|# "6W" #|expire|# "300" #|default-ttl|#) ;; secondary dns: 'DNS0.AFAA.ASSO.FR 'DNS1.AFAA.ASSO.FR 'intergruas.afaa.asso.fr)) ;;;------------------------------------------------------------------------ ;;; informatimago.com ;;;------------------------------------------------------------------------ (DEFINE-SOA '174.93.62.IN-ADDR.ARPA) (ADD-RECORD '76.174.93.62.IN-ADDR.ARPA '(PTR NAIAD.INFORMATIMAGO.COM)) (ADD-RECORD '77.174.93.62.IN-ADDR.ARPA '(PTR ROUTER-ADSL-PPP.INFORMATIMAGO.COM)) (ADD-RECORD '78.174.93.62.IN-ADDR.ARPA '(PTR LARISSA.INFORMATIMAGO.COM)) (ADD-RECORD '79.174.93.62.IN-ADDR.ARPA '(PTR THALASSA.INFORMATIMAGO.COM)) (ADD-RECORD '68.174.93.62.IN-ADDR.ARPA '(PTR LASSELL.INFORMATIMAGO.COM)) (DEFINE-SOA '76-79.174.93.62.IN-ADDR.ARPA) (ADD-RECORD '76.76-79.174.93.62.IN-ADDR.ARPA '(PTR NAIAD.INFORMATIMAGO.COM)) (ADD-RECORD '77.76-79.174.93.62.IN-ADDR.ARPA '(PTR ROUTER-ADSL-PPP.INFORMATIMAGO.COM)) (ADD-RECORD '78.76-79.174.93.62.IN-ADDR.ARPA '(PTR LARISSA.INFORMATIMAGO.COM)) (ADD-RECORD '79.76-79.174.93.62.IN-ADDR.ARPA '(PTR THALASSA.INFORMATIMAGO.COM)) (DEFINE-SOA '168.192.IN-ADDR.ARPA) ;; (defparameter *not-private-hash* (make-hash-table :test (function equal))) ;; (dolist (e *not-private*) (setf (gethash e *not-private-hash*) e)) ;;; Cannot do that for *** - No more room for LISP objects ;;; ;;; (format *trace-output* "~&Adding 65536 names in priv.informatimago.com...~&") ;;; (dotimes (h 256) ;;; (unless (member (list 192 168 h) *not-private* :test (function equal)) ;;; ;;(gethash (list 192 168 h) *not-private-hash*) ;;; (dotimes (l 256) ;;; (unless (member (list 192 168 h l) *not-private* :test (function equal)) ;;; ;; (gethash (list 192 168 h l) *not-private-hash*) ;;; (ADD-NAME ;;; (name-append l h 'priv.informatimago.com) ;;; (name-append '|192.168| h l)))))) ;;; (format *trace-output* "~&Done~&") ;;; ;;; informatimago.com ;;; (DEFINE-SOA 'INFORMATIMAGO.COM) (ADD-RECORD 'INFORMATIMAGO.COM '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS) (ADD-RECORD 'INFORMATIMAGO.COM '(MX 20 SMTP.CULTURESFRANCE.COM) :INFERIORS) (ADD-RECORD 'LOCALHOST.INFORMATIMAGO.COM '(A 127.0.0.1)) (MAP NIL (LAMBDA (NAME ADDR) (ADD-NAME (NAME-APPEND NAME 'INFORMATIMAGO.COM) ADDR)) '( ROUTER-ADSL ROUTER-ISDN AP-WIFI-NEXT LASSELL TRITON PROTEUS NAIAD ROUTER-ADSL-PPP LARISSA THALASSA ) '( 62.93.174.65 62.93.174.66 62.93.174.67 62.93.174.68 62.93.174.76 62.93.174.76 62.93.174.76 62.93.174.77 62.93.174.78 62.93.174.79 )) (ADD-RECORD '76.INFORMATIMAGO.COM '(A 62.93.174.76)) (ADD-RECORD '77.INFORMATIMAGO.COM '(A 62.93.174.77)) (ADD-RECORD '78.INFORMATIMAGO.COM '(A 62.93.174.78)) (ADD-RECORD '79.INFORMATIMAGO.COM '(A 62.93.174.79)) (MAP NIL (LAMBDA (X) (MAP NIL (LAMBDA (NAME) (ADD-RECORD (NAME-APPEND NAME 'INFORMATIMAGO.COM) (LIST 'CNAME (CAR X)))) (CDR X))) '((LARISSA.INFORMATIMAGO.COM CVS FTP IMAP MAIL POP SMTP WWW) (THALASSA.INFORMATIMAGO.COM IRC LDAP NEWS NTP PH PRINTER LISTS DARCS DARCS.WIZARDS DEVELOP.WIZARDS WWW.WIZARDS) (NAIAD.INFORMATIMAGO.COM VM-370) (ftp.culturesfrance.com mirrors))) ;;; ;;; lan.informatimago.com ;;; (DEFPARAMETER BASE-LAN.INFORMATIMAGO.COM '195.114.85.192) (DEFPARAMETER DOMAIN-LAN.INFORMATIMAGO.COM 'LAN.INFORMATIMAGO.COM) (DEFPARAMETER NAMES-LAN.INFORMATIMAGO.COM '( LOCAL NAIAD GALATEA DESPINA NEREIDE LARISSA THALASSA PROTEUS TRITON KUIPER LASSELL VOYAGER-2 LE-VERRIER GALLE HUBBLE BROADCAST )) (LET ((BASE BASE-LAN.INFORMATIMAGO.COM) (NAMES NAMES-LAN.INFORMATIMAGO.COM) (DOMAIN DOMAIN-LAN.INFORMATIMAGO.COM)) (MAP NIL (LAMBDA (NAME ADDRESS) (ADD-NAME (NAME-APPEND NAME DOMAIN) ADDRESS)) NAMES (MAKE-ADDRESS-SEQ BASE (LENGTH NAMES))) (ADD-RECORD (NAME-APPEND 'ROUTER DOMAIN) (LIST 'CNAME (NAME-APPEND 'HUBBLE DOMAIN)))) (PUSH '(192 168 0) *NOT-PRIVATE*) ;; next will be 192.168.164.x (LET ((DOM 'WIFI.INFORMATIMAGO.COM)) (ADD-NAME (NAME-APPEND 'AP DOM) '|192.168.0.50|) ;; (add-record 'ap-wifi.informatimago.com `(cname ,(name-append 'ap dom))) (DOTIMES (L 256) (UNLESS (OR (MEMBER L '(50)) (<= 64 L 127)) (ADD-NAME (NAME-APPEND (CONCAT 'WIFI- L) DOM) (NAME-APPEND '|192.168.0| L)))) (DOTIMES (L 64) (ADD-NAME (NAME-APPEND (CONCAT 'COLIBRI- (+ 64 L)) DOM) (NAME-APPEND '|192.168.0| (+ 64 L))))) (PUSH '(192 168 197) *NOT-PRIVATE*) (PUSH '(192 168 255 197) *NOT-PRIVATE*) (LET ((DOM 'THESSALY.INFORMATIMAGO.COM)) ;; thessaly = larissa virtual network: 192.168.197.x <-> 192.168.255.197 (ADD-NAME (NAME-APPEND 'LARISSA DOM) '192.168.255.197) (ADD-NAME (NAME-APPEND 'LARITOO DOM) '192.168.197.1) (ADD-NAME (NAME-APPEND 'LOCALHOST DOM) '192.168.197.0) (ADD-NAME (NAME-APPEND 'BROADCAST DOM) '192.168.197.255) (DOTIMES (L 253) (ADD-NAME (NAME-APPEND (CONCAT 'LARIVIRT- (+ L 2)) DOM) (NAME-APPEND '192.168.197 (+ L 2))))) ;;; ;;; bolet.informatimago.com ;;; (ADD-RECORD 'BOLET.INFORMATIMAGO.COM '(MX 10 BOLET.NO-IP.COM) :INFERIORS) (ADD-RECORD 'BOLET.INFORMATIMAGO.COM '(MX 30 LARISSA.INFORMATIMAGO.COM) :INFERIORS) ;; (ADD-RECORD 'BOLET.INFORMATIMAGO.COM '(cname bolet.no-ip.com)) ;; Cannot have bot CNAME and another record, like MX. (ADD-RECORD 'LOCALHOST.BOLET.INFORMATIMAGO.COM '(A 127.0.0.1)) (MAP NIL (LAMBDA (X) (MAP NIL (LAMBDA (NAME) (ADD-RECORD (NAME-APPEND NAME 'BOLET.INFORMATIMAGO.COM) (LIST 'CNAME (CAR X)))) (CDR X))) '((BOLET.NO-IP.COM CVS FTP IMAP MAIL POP SMTP WWW IRC LDAP NEWS NTP PH PRINTER PINAUD RUSSULE CALVADOS))) ;;;------------------------------------------------------------------------ ;;; OGAMITA.ORG ;;;------------------------------------------------------------------------ (DEFINE-SOA 'OGAMITA.ORG) (ADD-RECORD 'OGAMITA.ORG '(LOC 37 37 30 N 0 46 30 W 30M) :INFERIORS) (ADD-RECORD 'OGAMITA.ORG '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS) (ADD-RECORD 'OGAMITA.ORG '(MX 100 SMTP.CULTURESFRANCE.COM) :INFERIORS) (ADD-RECORD 'OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'FTP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'WWW.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'POP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'IMAP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'SMTP.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'LOCALHOST.OGAMITA.ORG '(A 127.0.0.1)) (ADD-RECORD 'pjb.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'ccib.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'ingridbetancourt.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'etysm.OGAMITA.ORG '(A 62.93.174.78)) ; larissa (ADD-RECORD 'eltoreroysusmujeres.OGAMITA.ORG '(A 62.93.174.78)) ; larissa ;;; ;;; bolet.ogamita.org ;;; (ADD-RECORD 'BOLET.OGAMITA.ORG '(MX 10 BOLET.NO-IP.COM) :INFERIORS) (ADD-RECORD 'BOLET.OGAMITA.ORG '(MX 30 LARISSA.OGAMITA.ORG) :INFERIORS) ;; (ADD-RECORD 'BOLET.OGAMITA.ORG '(cname bolet.no-ip.com)) ;; Cannot have bot CNAME and another record, like MX. (ADD-RECORD 'LOCALHOST.BOLET.OGAMITA.ORG '(A 127.0.0.1)) (MAP NIL (LAMBDA (X) (MAP NIL (LAMBDA (NAME) (ADD-RECORD (NAME-APPEND NAME 'BOLET.OGAMITA.ORG) (LIST 'CNAME (CAR X)))) (CDR X))) '((BOLET.NO-IP.COM CVS FTP IMAP MAIL POP SMTP WWW IRC LDAP NEWS NTP PH PRINTER PINAUD RUSSULE CALVADOS))) ;;; ;;; saubot.ogamita.org ;;; (ADD-RECORD 'SAUBOT.OGAMITA.ORG '(MX 10 LARISSA.OGAMITA.ORG) :INFERIORS) (ADD-RECORD 'SAUBOT.OGAMITA.ORG '(MX 30 SMTP.CULTURESFRANCE.COM) :INFERIORS) (ADD-RECORD 'LOCALHOST.SAUBOT.OGAMITA.ORG '(A 127.0.0.1)) (MAP NIL (LAMBDA (X) (MAP NIL (LAMBDA (NAME) (ADD-RECORD (NAME-APPEND NAME 'SAUBOT.OGAMITA.ORG) (LIST 'CNAME (CAR X)))) (CDR X))) '((OLORON-SAUBOT.DYNDNS.ORG GUARDACASA OLORON MXOL) (NEPTUNE-SAUBOT.DYNDNS.ORG NEPTUNE PARIS) (PLUTON-SAUBOT.DYNDNS.ORG PLUTON TIBOOK) )) ;;; ;;; derobert.ogamita.org ;;; (ADD-RECORD 'YUCAS.OGAMITA.ORG '(MX 10 LARISSA.OGAMITA.ORG) :INFERIORS) (ADD-RECORD 'YUCAS.OGAMITA.ORG '(MX 30 SMTP.CULTURESFRANCE.COM) :INFERIORS) (ADD-RECORD 'LOCALHOST.YUCAS.OGAMITA.ORG '(A 127.0.0.1)) (LOOP :FOR (NAME ADDRESS) :IN '((HASHI 192.168.166.1) (CHARMING 192.168.166.64) (BAUXITE 192.168.166.65) (NAIAD 192.168.166.190) (TRITON 192.168.166.191) ;; ---------------------------- (GRAPHITE 192.168.166.192) (MARE-AZUL 192.168.166.193) (BLANCHE-NEIGE 192.168.166.194)) :DO (ADD-RECORD (NAME-APPEND NAME 'LAN.YUCAS.OGAMITA.ORG) ADDRESS)) #|| (MAP NIL (LAMBDA (X) (MAP NIL (LAMBDA (NAME) (ADD-RECORD (NAME-APPEND NAME 'YUCAS.OGAMITA.ORG) (LIST 'CNAME (CAR X)))) (CDR X))) '((OLORON-YUCAS.DYNDNS.ORG GUARDACASA OLORON MXOL) (NEPTUNE-YUCAS.DYNDNS.ORG NEPTUNE PARIS) (PLUTON-YUCAS.DYNDNS.ORG PLUTON TIBOOK) )) ||# ;;;------------------------------------------------------------------------ ;;; OGAMITA.COM, OGAMITA.EU, OGAMITA.DE ;;;------------------------------------------------------------------------ (DEFMACRO DO-OGAMITA ((DOMAIN) &BODY BODY) `(LOOP :FOR ,DOMAIN :IN '(OGAMITA.COM OGAMITA.EU OGAMITA.DE) :DO (LET ((,DOMAIN ,DOMAIN)) ,@BODY))) (DO-OGAMITA (DOM) (DEFINE-SOA DOM) (ADD-RECORD DOM '(MX 10 SMTP.OGAMITA.COM) :INFERIORS) ;; (ADD-RECORD DOM '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS) ;; (ADD-RECORD DOM '(MX 100 SMTP.CULTURESFRANCE.COM) :INFERIORS) (LET ((NETLOPE '85.10.210.113) (LARISSA '62.93.174.78) (THALASSA '62.93.174.79)) (declare (ignorable netlope larissa thalassa)) (ADD-RECORD DOM `(A ,NETLOPE)) (ADD-RECORD (NAME-APPEND 'FTP DOM) `(A ,NETLOPE)) (ADD-RECORD (NAME-APPEND 'WWW DOM) `(A ,NETLOPE)) (ADD-RECORD (NAME-APPEND 'DARCS DOM) `(A ,THALASSA)) (ADD-RECORD (NAME-APPEND 'WIZARDS DOM) `(A ,THALASSA)) (ADD-RECORD (NAME-APPEND 'mirrors DOM) `(cname ftp.culturesfrance.com)) (ADD-RECORD (NAME-APPEND 'POP DOM) `(A ,netlope)) (ADD-RECORD (NAME-APPEND 'IMAP DOM) `(A ,netlope)) (ADD-RECORD (NAME-APPEND 'SMTP DOM) `(A ,netlope)) (ADD-RECORD (NAME-APPEND 'LOCALHOST DOM) '(A 127.0.0.1)) (LOOP :FOR FRIENDS :IN '(FRIENDS FREUNDE AMIS AMIGOS AMICI PRIIATELI) :DO ;; russian (mozilla-string "\x{043F}\x{0440}\x{0438}\x{044F}\x{0442}\x{0435}\x{043B}\x{044C}") ;; esperanto amikoj? ;; arab \x{0627}\x{0644}\x{0627}\x{0635}\x{062F}\x{0642}\x{0627}\x{0621} ;; japanese \x{53CB}\x{4EBA} ;; korean \x{CE5C}\x{AD6C} ;; chinese \x{670B}\x{53CB} (ADD-RECORD (NAME-APPEND FRIENDS DOM) `(A ,NETLOPE))) )) ;; ;;;------------------------------------------------------------------------ ;; ;;; JOELLEGYMTONIC.FR ;; ;;;------------------------------------------------------------------------ ;; ;; (DEFINE-SOA 'JOELLEGYMTONIC.FR) ;; ;; (ADD-RECORD 'JOELLEGYMTONIC.FR ;; '(LOC 37 37 30 N 0 46 30 W 30M) :INFERIORS) ;; ;; (ADD-RECORD 'JOELLEGYMTONIC.FR ;; '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS) ;; ;; (ADD-RECORD 'JOELLEGYMTONIC.FR ;; '(MX 100 SMTP.CULTURESFRANCE.COM) :INFERIORS) ;; ;; (ADD-RECORD 'JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa ;; (ADD-RECORD 'FTP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa ;; (ADD-RECORD 'WWW.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; thalassa ;; (ADD-RECORD 'POP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa ;; (ADD-RECORD 'IMAP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa ;; (ADD-RECORD 'SMTP.JOELLEGYMTONIC.FR '(A 62.93.174.78)) ; larissa ;; (ADD-RECORD 'LOCALHOST.JOELLEGYMTONIC.FR '(A 127.0.0.1)) ;;;------------------------------------------------------------------------ ;;; parroquias-manga.org ;;;------------------------------------------------------------------------ (DEFINE-SOA 'PARROQUIAS-MANGA.ORG) (ADD-RECORD 'PARROQUIAS-MANGA.ORG '(LOC 37 37 30 N 0 46 30 W 30M) :INFERIORS) (ADD-RECORD 'PARROQUIAS-MANGA.ORG '(MX 10 LARISSA.INFORMATIMAGO.COM) :INFERIORS) (ADD-RECORD 'PARROQUIAS-MANGA.ORG '(MX 100 SMTP.CULTURESFRANCE.COM) :INFERIORS) (ADD-RECORD 'LOCALHOST.PARROQUIAS-MANGA.ORG '(A 127.0.0.1)) (ADD-RECORD 'PARROQUIAS-MANGA.ORG '(A 62.93.174.79)) (ADD-RECORD 'WWW.PARROQUIAS-MANGA.ORG '(A 62.93.174.79)) (ADD-RECORD 'FTP.PARROQUIAS-MANGA.ORG '(A 62.93.174.79)) (ADD-RECORD 'LISTS.PARROQUIAS-MANGA.ORG '(A 62.93.174.79)) (ADD-RECORD 'MAIL.PARROQUIAS-MANGA.ORG '(A 62.93.174.78)) (ADD-RECORD 'IMAP.PARROQUIAS-MANGA.ORG '(A 62.93.174.78)) (ADD-RECORD 'POP.PARROQUIAS-MANGA.ORG '(A 62.93.174.78)) (ADD-RECORD 'SMTP.PARROQUIAS-MANGA.ORG '(A 62.93.174.78)) ;; (MAP NIL (LAMBDA (X) ;; (MAP NIL (LAMBDA (NAME) ;; (ADD-RECORD (NAME-APPEND NAME 'PARROQUIAS-MANGA.ORG) ;; (LIST 'CNAME (CAR X)))) ;; (CDR X))) ;; '((THALASSA.INFORMATIMAGO.COM CVS FTP IMAP MAIL POP SMTP WWW))) ;;;------------------------------------------------------------------------ (DEFUN DNS-WALK (NODE PATH FUN) (SETQ PATH (IF PATH (FORMAT NIL "~A.~A" (DOMAIN-NAME NODE) PATH) (DOMAIN-NAME NODE))) (MAPCAR (LAMBDA (RECORD) (FUNCALL FUN PATH RECORD)) (DOMAIN-RECORDS NODE)) (MAPCAR (LAMBDA (CHILD) (DNS-WALK CHILD PATH FUN)) (DOMAIN-CHILDREN NODE))) ;;DNS-WALK (DEFUN GENERATE () (FORMAT *TRACE-OUTPUT* "~&Generating zone files...~&") (GENERATE-FILES "public" "informatimago" ;; master servers for slave zones: '(62.93.174.78))) (FORMAT *TRACE-OUTPUT* "~&Loaded informatimago.lisp~%") ;; Local Variables: ;; eval: (put 'dotimes 'lisp-indent-function 1) ;; eval: (put 'DOTIMES 'lisp-indent-function 1) ;; eval: (put 'do-ogamita 'lisp-indent-function 1) ;; eval: (put 'DO-OGAMITA 'lisp-indent-function 1) ;; End: ;;;; informatimago.lisp -- -- ;;;;