YAPC::EU 2018 Glasgow Update!
This commit is contained in:
parent
22f33d4004
commit
4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
11
Task/DNS-query/Lua/dns-query-3.lua
Normal file
11
Task/DNS-query/Lua/dns-query-3.lua
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
(define (dnsLookup site , ipv)
|
||||
;; captures current IPv mode
|
||||
(set 'ipv (net-ipv))
|
||||
;; IPv mode agnostic lookup
|
||||
(println "IPv4: " (begin (net-ipv 4) (net-lookup site)))
|
||||
(println "IPv6: " (begin (net-ipv 6) (net-lookup site)))
|
||||
;; returns newLISP to previous IPv mode
|
||||
(net-ipv ipv)
|
||||
)
|
||||
|
||||
(dnsLookup "www.kame.net")
|
||||
Loading…
Add table
Add a link
Reference in a new issue