#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;
use HTML::TokeParser;
use Data::Dumper;

my $imapuser = "user" . int(rand(9) + 1);
my $pass     = "test";
my $base     = "http://webmail.edu.ie";

my $agent = WWW::Mechanize->new(
    agent => "HEAnet-Mechanize/$imapuser",    # Nice name!
    cookie_jar => {},    # an empty, memory-only HTTP::Cookies object
    autocheck  => 1,     # some debugging.
                               );

# Get the login page.
$agent->get("$base/imp/login.php");
$agent->form_name("imp_login");
$agent->field("imapuser", $imapuser);
$agent->field("pass",     $pass);
$agent->submit();

# Look at a week
$agent->get("$base/kronolith/week.php?week=20&year=2006");

# 1 in 10 chance of not logging out.
if (int(rand(9) + 1) ne 1)
{
    $agent->get("$base/login.php?logout_reason=logout");
}

print "ok\n";