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 http://myexternalip.com/raw]
set externalIP [string trim [http::data ${token}]]
::http::cleanup ${token}
return ${externalIP}
}It depends on:
package require http
And it expects that http://myexternalip.com/raw returns your external IP-address.
As always: comments, tips and questions are appreciated.