#!/usr/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;
use HTML::TableExtract;
use Encode;
my $w = WWW::Scripter->new();
$w->use_plugin('Ajax');

# my $pw = slurp "pw.txt";
# chomp $pw;
# $w->credentials( "root", $pw );
$w->get('http://www.bibliotheques.uqam.ca');

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

my ($data) = decode_utf8($w);
my $tree= HTML::TreeBuilder::XPath->new();
$tree->parse($data->content());
my $uptime =
  $tree->findvalue( 
    '/iframe/html/body//div[@id="qp_widget_status"]/' .
    'span[@style=""]');

print "uptime: $uptime\n";