Interpert/render JavaScript from a page

xorl has asked for the wisdom of the Perl Monks concerning the following question:

Hi fellow Monks,

I'm trying to figure out how I can get a webpage and render the JavaScript on that page and then take action based on what is rendered from the JS.

I've pretty much figured out how to get the webpage with LWP and some related modules. I haven't figured out how to make perl interpret the JavaScript on the pages. Can someone help me here?

Some background in case I'm doing this completely wrong. My friend wants a script that will log into his Belkin F5D7230-4 router and grab the WAN IP and then publish write that to a file on an external webserver he manages. He's not interested in using dyndns, whatsmyip.com or similar services.

I think I'm logging into the router correctly, but the index.html page is full of JavaScript that needs to be interpreted first before any meaningful information can be obtained.

So if there's a better way to get this guy's external IP address for him within the constraints provided, please let me know that too.

Thanks in advance.

Comment on Interpert/render JavaScript from a page

Replies are listed 'Best First'.
Re: Interpert/render JavaScript from a page by Anonymous Monk on Sep 13, 2009 at 17:56 UTC
No, javascript doesn't need to be interpreted. Nagios plugin to detect changed IP address of WRT54G router. JavaScript Plugin in www::Mechanize Get IP address from my Asante Cable/DSL router	[reply]
Re: Interpert/render JavaScript from a page by Sewi (Friar) on Sep 13, 2009 at 21:24 UTC
The easiest solution (if you have a webspace/server somewhere): `#!/bin/sh echo "Content-type: text/plain" echo "" echo $REMOTE_ADDR` [download] Just call this CGI and it will tell you your IP address (at least if running on Apache). If you want to go at the router. I don't know this specific router, but many boxes support syslog. If you're able to run a syslogd and make it accept messages from the router (usually easy command line option), you always get the IP from the "connected" messages fresh on your hard disk.	[reply] [d/l]


Do you know where your variables are?
	PerlMonks