geo-ip: site is down, fix db from github

[factor.git] / extra / geo-ip / geo-ip.factor

diff --git a/extra/geo-ip/geo-ip.factor b/extra/geo-ip/geo-ip.factor
index 20e000f7d9389297df79b77e4a21d31adf3e6565..e0252348c9fd6caf54e463d3ff251dda43802193 100644 (file)
--- a/extra/geo-ip/geo-ip.factor
+++ b/extra/geo-ip/geo-ip.factor
@@ -8,13 +8,9 @@ IN: geo-ip
 
 : db-path ( -- path ) "IpToCountry.csv" cache-file ;
 
-CONSTANT: db-url "https://software77.net/geo-ip/?DL=1"
+CONSTANT: db-url "https://raw.githubusercontent.com/webeng/Ip2Country/master/IpToCountry.csv"
 
-: download-db ( -- path )
-    db-path dup file-exists? [
-        db-url over ".gz" append download-once-to
-        { "gunzip" } over ".gz" append absolute-path suffix try-process
-    ] unless ;
+: download-db ( -- path ) db-url download-once ;
 
 TUPLE: ip-entry from to registry assigned city cntry country ;