#!/usr/local/bin/perl -w
###########################################
# tomato-overview - Scrape simple 
#   JavaScript-enabled page
# Mike Schilli, 2011 (m@perlmeister.com)
###########################################
use strict;
use WWW::Scripter;
use Sysadm::Install qw(:all);
use HTML::TreeBuilder::XPath;

my $w = WWW::Scripter->new();
$w->use_plugin('Ajax');

my $pw = slurp "pw.txt";
chomp $pw;
$w->credentials( "root", $pw );
$w->get('http://192.168.0.1');

$w->wait_for_timers( max_wait => 1 );

my $tree= HTML::TreeBuilder::XPath->new();
$tree->parse( $w->content() );
my $uptime =
  $tree->findvalue( 
    '/html/body//tr[@id="uptime"]/' .
    'td[@class="content"]');

print "uptime: $uptime\n";