On Mon, Jun 25, 2007 at 07:36:28AM -0300, Edgar J. De Cleene wrote:
My router is NOGA KN-S1060
| stream wanIp | stream := HTTPSocket httpGet: 'http://192.168.1.1/sys_status.htm' args: nil user: 'admin' passwd: 'admin'. stream upToAll: 'wanIP'. wanIp := stream upTo: $;. ^ wanIp := (wanIp findTokens: '"') at: 2
And I have a Mac , a Windows PC and a Linux box on my small LAN
Perhaps this could be useful to some
Here is a variation that uses the public service dyndns:
getPublicIP | stream | stream := HTTPSocket httpGet: 'http://checkip.dyndns.com'. stream upToAll: 'IP Address: '. ^ stream upTo: $<
That page is tiny, and so is pretty quick to download and parse.