Get External IP-address

Created by CecilWesterhof.

Often you want to know your external IP-address. For this I created the following proc:

proc getExternalIP {} {
    set             token [http::geturl]
    set             externalIP [string trim [http::data $token]]
    ::http::cleanup $token
    return          $externalIP

It depends on:

package require http

And it expects that returns your external IP-address.

As always: comments, tips and questions are appreciated.

See also