File Coverage

blib/lib/Finance/Bank/HSBC.pm

Criterion	Covered	Total	%
statement	15	65	23.0
branch	0	14	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	86	23.2

package Finance::Bank::HSBC;
use strict;
use Carp;
our $VERSION = '1.03';

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

sub check_balance {
    my ($class, %opts) = @_;
    my @accounts;
    croak "Must provide a security code" unless exists $opts{seccode};
    croak "Must provide a banking id" unless exists $opts{bankingid};
    croak "Must provide a date of birth" unless exists $opts{dateofbirth};

    my $self = bless { %opts }, $class;

    my $agent = WWW::Mechanize->new();
    $agent->get("http://www.ukpersonal.hsbc.com/public/ukpersonal/internet_banking/en/logon.jhtml");

    # Filling in the login form.
    $agent->form(0);
    $agent->field("internetBankingID", $opts{bankingid});
    $agent->click("Log on to Internet Banking. This link will open in a new browser window.");

    # We're given a redirect, and then need to navigate a frameset.
    $agent->follow(2);

    # The new login page.
    $agent->field("dateOfBirth", $opts{dateofbirth});

    $agent->content =~ /Please enter the (\w+), (\w+) and (\w+) digits/;

    # Supplied by Leon Cowle.  Anyone have a one-liner for this?
    my $seccodedigits = "000000";
    if ( $agent->content =~ /Please enter the (.*?) digits of your security number/ ) {
        $seccodedigits = $1;
    }
    else {
        croak "Was expecting request for security code digits";
    }

    my @digitnames = qw /FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH/;
    my $seccodelength = length($opts{seccode});
    my @seccodearray  = split(//, $opts{seccode});

    $seccodedigits =~ s/LAST/$seccodearray[--$seccodelength]/;

    # Substitute the other words (FIRST, etc) with the respective digits
    while ($seccodelength >= 0) {
       $seccodedigits =~ s/$digitnames[$seccodelength]/$seccodearray[$seccodelength]/;
       $seccodelength--;
    }

    # Remove all non-digits from result.
    $seccodedigits =~ s/\D//g;

    $agent->field("tsn", $seccodedigits);
    $agent->click("Continue to log on");

    # More frameset navigation.
    $agent->follow(0);
    $agent->follow(2);

    # Now we have the data, we need to parse it.  This is fragile.
    # (Update, 2004-01-19:  Actually, the whole module's fragile.  Sorry.)

    my $content = $agent->{content};

    my ($split1, $split2)  = split /
    my ($content, $split2) = split //, $split2;

    my $stream = HTML::TokeParser->new(\$content) or die "$!";
    $stream->get_tag("tr");

    while (my $token = $stream->get_tag("tr")) {
        $token = $stream->get_tag("td");

        if ($token->[1]{height} eq "25") {
            # We have an account.
            my $accountname = $stream->get_trimmed_text("/td");
            $stream->get_tag("td");

            my $accounttype = $stream->get_trimmed_text("/td");
            $stream->get_tag("td");

            my $accountnumber = $stream->get_trimmed_text("/td");
            $stream->get_tag("td");
            $stream->get_tag("td");

            my $accountbalance = $stream->get_trimmed_text("/td");

            # Convert / [CD]$/ to a positive or negative float.
            $accountbalance =~ s/ C$//;
            $accountbalance = "-$accountbalance" if $accountbalance =~ s/ D$//;

            push @accounts, {
                balance    => $accountbalance,
                name       => $accountname,
                type       => $accounttype,
                account    => $accountnumber
            };
        }
    }
    return @accounts;
}

1;
__END__