[Kroc] - 24 Sep 2004 - This is basic GeoIP (see http://www.maxmind.com for details) that return country code for a given IP adress.

    ################################################################################
    #
    # Basic GeoIP for tcl.
    #
    # Copyright © 2004 - David Zolli - http://www.kroc.tk
    #
    # Ce script est distribué sous licence NOL : http://wfr.tcl.tk/nol
    #
    # Version 1.0 - Juillet 2004
    #
    ################################################################################
    
    # Build a list with Maxmind CVS database downloaded here :
    # http://www.maxmind.com/download/geoip/database/GeoIPCountryCSV.zip
    proc buildDB { file {savetofile 0}} {
        set fin [open GeoIPCountryWhois.csv r]
        set ::IPDB {}
        while {![eof $fin]} {
            foreach "1 2 3 4 5 6" [split [gets $fin] ,] {
                set record {}
                # compute numbers from IP adresses :
                foreach "a b c d" [split [lindex $1 0] .] {
                    lappend record [join "[expr 1000 + $a]
                    [expr 1000 + $b]
                    [expr 1000 + $c]
                    [expr 1000 + $d]" {}]
                }
                foreach "a b c d" [split [lindex $2 0] .] {
                    lappend record [join "[expr 1000 + $a]
                    [expr 1000 + $b]
                    [expr 1000 + $c]
                    [expr 1000 + $d]" {}]
                }
                # and register country for this range :
                lappend record [string tolower [lindex $5 0]]
                if {[llength $record] == 3} {
                    lappend ::IPDB $record
                }
            }
        }
        close $fin
        if {$savetofile} {
            set fout [open GeoIP_DB.tcl w]
            puts $fout "set ::IPDB \{$::IPDB\}"
            close $fout
        }
        return "::IPDB built"
    }
    
    # Return lowercase country code for a given IP :
    proc GeoIP { IP } {
        if {![info exists ::IPDB]} {
            return "You must build IP database first with buildDB."
        }
        foreach "a b c d" [split $IP .] {
            set Value [join "[expr 1000 + $a]
            [expr 1000 + $b]
            [expr 1000 + $c]
            [expr 1000 + $d]" {}]
        }
        foreach record $::IPDB {
            if { $Value >= [lindex $record 0] && $Value <= [lindex $record 1] } {
                return [lindex $record 2]
                break
            }
        }
        return unknown
    }