27 lines
513 B
Text
27 lines
513 B
Text
|
#!/usr/bin/env newlisp
|
||
|
|
|
||
|
|
(net-ipv 6)
|
||
|
|
;(println "net-ping -> " (or (net-ping "officemacmini.local" 1000) (net-error)))
|
||
|
|
;(println "net-ping -> " (or (net-ping "lutzmacmini.local" 1000) (net-error)))
|
||
|
|
|
||
|
|
;;;;
|
||
|
|
|
||
|
|
(net-ipv 6)
|
||
|
|
|
||
|
|
(set 'domains '(
|
||
|
|
"altavista.ipv6.digital.com"
|
||
|
|
"ipv6.research.microsoft.com"
|
||
|
|
"www.ipv6forum.com"
|
||
|
|
"ipv6.google.com"
|
||
|
|
"www.google.com"
|
||
|
|
"www.cisco.com"
|
||
|
|
))
|
||
|
|
|
||
|
|
(dolist (dm domains)
|
||
|
|
(set 'ip (net-lookup dm))
|
||
|
|
(println dm " -> " ip " -> " (or (net-lookup (string ip)) (last (net-error))) )
|
||
|
|
)
|
||
|
|
|
||
|
|
(exit)
|
||
|
|
|