chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Attempt to port the lot to CLisp.
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index 35e6f8072e869014dca96f4f817044675fe7cc2f..64488c2a0d11f3875462fc00fa505f5c8753b661 100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-145,7
+145,8
@@
(defstruct (zone (:predicate zonep))
;;; Zone defaults. It is intended that scripts override these.
(defvar *default-zone-source*
;;; Zone defaults. It is intended that scripts override these.
(defvar *default-zone-source*
- (let ((hn (unix:unix-gethostname)))
+ (let ((hn #+cmu (unix:unix-gethostname)
+ #+clisp (unix:get-host-name)))
(and hn (concatenate 'string (canonify-hostname hn) ".")))
"The default zone source: the current host's name.")
(and hn (concatenate 'string (canonify-hostname hn) ".")))
"The default zone source: the current host's name.")
@@
-754,8
+755,8
@@
(defun zone-write (zone &optional (stream *standard-output*))
;;; Zone file `~(~A~)'
;;; (generated ~A)
;;; Zone file `~(~A~)'
;;; (generated ~A)
-$ORIGIN ~
@0
*~(~A.~)
-$TTL ~
@2
*~D~2%"
+$ORIGIN ~
0@
*~(~A.~)
+$TTL ~
2@
*~D~2%"
(zone-name zone)
(iso-date :now :datep t :timep t)
(zone-default-ttl zone))
(zone-name zone)
(iso-date :now :datep t :timep t)
(zone-default-ttl zone))