Networking¶
Get hostname¶
Local
(machine-instance)
Remote
(require 'sb-bsd-sockets)
(in-package 'sb-bsd-sockets)
(host-ent-name (get-host-by-name "www.lisp.org"))
Example socket client¶
(ql:quickload “usocket”)
(require :usocket)
(setq sock (usocket:socket-connect "www.codekid.net" 80))
(format (usocket:socket-stream sock) "~A~C~C~A~C~C~A~C~C~C~C"
"GET / HTTP/1.1"
#\Return #\Newline
"Host: www.codekid.net"
#\Return #\Newline
"Connection: close"
#\Return #\Newline #\Return #\Newline)
(force-output (usocket:socket-stream sock))
(loop for line = (read-line (usocket:socket-stream sock))
while line do
(format t "~A~%" line))
SNMP¶
(ql:quickload “snmp”)
(snmp:with-open-session (s "192.168.1.1"
:version :v1
:community "public")
(snmp:snmp-walk s "system"))