#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTML::TokeParser;
use File::Basename;
use subs 'fire';

my $basedir = $0; $basedir = dirname $basedir;
my %auth = (username => 'username', password => 'password');
my $ua = LWP::UserAgent->new(cookie_jar => {});

my($content, $parser);

#### INITIAL REQUEST
fire get => 'http://www.example.com/mainpage.php';

### LOGIN
fire post => 'https://ip.address/session.php', \%auth;

# extract javascript content
$parser = HTML::TokeParser->new(\$content);
my $next_url;
while (my $token = $parser->get_token) {
    next unless $token->[0] eq 'S' && $token->[1] eq 'script';
    $next_url = $token->[2]{src}, last if $token->[2]{src};
}

### URL by JavaScript
fire get => $next_url;

# get the real content
fire get => "https://the.same.ip.address/?";

# final page
$parser = HTML::TokeParser->new(\$content);
# parse quota info from this page

sub fire {
    my($method, @args) = @_;
    my $res = $ua->$method(@args);
    #print STDERR "Checking for $args[0]\n";
    if ($res->is_success) { $content = $res->content }
    else { die $res->status_line . "\n" }
}