From 4b37bdabec56aadda803c0cf2c5f6d25d178eb96 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Fri, 6 Jun 2025 17:10:34 +0200 Subject: lookup test --- geoip/ip.lisp | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'geoip') 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)) + + -- cgit v1.2.3