diff options
Diffstat (limited to 'geoip/ip.lisp')
| -rw-r--r-- | geoip/ip.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/geoip/ip.lisp b/geoip/ip.lisp index dfdabc0..6b8fad7 100644 --- a/geoip/ip.lisp +++ b/geoip/ip.lisp @@ -275,9 +275,16 @@ (defun close-mmdb (mmdb) (with-slots (ptr fd size) mmdb (mmap:munmap ptr fd size))) + (defvar *mmdb* (make-mmdb "GeoLite2-Country.mmdb")) (with-slots (metadata) *mmdb* (with-slots (build-epoch) metadata (local-time:unix-to-timestamp build-epoch))) + +(lookup-ip *mmdb* (integer-to-bits (parse-ipv4 "28.8.8.8") 128)) +(lookup-ip *mmdb* (integer-to-bits (parse-ipv4 "89.244.127.3") 128)) +(lookup-ip *mmdb* (integer-to-bits (parse-ipv6 "2001:9e8:3d0f:2600:f081:c212:46c9:7cef") 128)) + + |