bert huygens wrote:
Dear All,
is it possible in Perl to find the outside ip-address from an adsl-router without using an outside box.
i need to restart a script when the outside address of the router changes

Yeah, use LWP to goto 'http://privacy.net/' and run the following regex against the results:


/Your IP address is (\d+\.\d+\.\d+\.\d+)<br>/

The router's outside IP should be in $1.

--
Andrew Gaffney
Network Administrator
Skyline Aeronautics, LLC.
636-357-1548


-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to