scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed system-fqdn from sunet-utilities and internet-address->fqdn from dns.

This commit is contained in:
mainzelm 2003-02-10 10:44:59 +00:00
parent 090a91be0e
commit 1503017988
2 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/lib/sunet-utilities.scm
View File

@ -33,14 +33,6 @@
(format-internet-host-address host-address)))))) (format-internet-host-address host-address))))))
(define (system-fqdn)
(let ((host (host-info (system-name))))
(let loop ((addresses (host-info:addresses host)))
(if (null? addresses)
#f
(or (dns-lookup-ip (car addresses))
(loop (cdr addresses)))))))
;;; Assemble a filename from ROOT and the elts of PATH-LIST. ;;; Assemble a filename from ROOT and the elts of PATH-LIST.
;;; If the assembled filename contains a .. subdirectory, return #f, ;;; If the assembled filename contains a .. subdirectory, return #f,
;;; otw return the filename. ;;; otw return the filename.

2
scheme/packages.scm
View File

@ -156,7 +156,6 @@
dns-find-nameserver ; returns a nameserver dns-find-nameserver ; returns a nameserver
dns-find-nameserver-list ; returns a list of nameservers dns-find-nameserver-list ; returns a list of nameservers
socket-address->fqdn socket-address->fqdn
internet-address->fqdn
host-fqdn host-fqdn
system-fqdn)) system-fqdn))
@ -191,7 +190,6 @@
on-interrupt on-interrupt
socket-address->string socket-address->string
dump dump
system-fqdn
copy-inport->outport copy-inport->outport
dotdot-check dotdot-check
with-lock)) with-lock))