#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST);
use Date::Calc qw(Delta_Days);

my $url_auth = 'https://www.mynetfone.com.au/portal/myaccount/Authenticate!execute.action';
my $url_data = 'https://www.mynetfone.com.au/portal/myaccount/DataBlock.action';
my $un = 'YOUR_USERNAME';
my $pw = 'YOUR_PASSWORD';

my $req = POST $url_auth, [username => $un, password => $pw];

my $browser = LWP::UserAgent->new();

$browser->cookie_jar(
	HTTP::Cookies->new(
		file=>'/tmp/mnf_cookies.txt',
		autosave=>1
	)
);

my $res = $browser->request($req);
my $content = $browser->get($url_data);
my $test = $content->content;
$test =~ /Standard Allocation\s*<\/td>\s*<td>\s*([0-9]+)\/([0-9]+)\/([0-9]+)\s*<\/td>\s*<td>\s*<table[^>]*>\s*<tr>\s*<td[^>]*>Residential DSL Off Peak<\/td>\s*<td[^>]*>([0-9]+)[^<]*MB<\/td>\s*<\/tr>[^`]+?<td[^>]*>Residential DSL Peak<\/td>\s+?<td[^>]*>([0-9]+)/;

my ($xd, $xm, $xy) = (localtime)[3,4,5];
$xm=$xm+1;
$xy=$xy+1900;

my @xcur = ($xy, $xm, $xd);
my @xexp = (2000+$3, $2, $1);

my $days_left = Delta_Days (@xcur, @xexp);

print "Peak:\t\t".$5." MB\n";
print "Off Peak:\t".$4." MB\n";
print "Days left:\t".$days_left."\n";