File Coverage

blib/lib/Finance/Bank/PNC.pm

Criterion	Covered	Total	%
statement	12	47	25.5
branch	0	16	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	72	22.2

package Finance::Bank::PNC;
use strict;
use Carp;
our $VERSION = '0.01';
use WWW::Mechanize;
use HTML::TokeParser;

sub check_PNC_balance {
	my ( $class, %opts ) = @_;
	my @accounts;
	croak "Must provide a user id"  unless exists $opts{userId};
	croak "Must provide a password" unless exists $opts{password};

	my $self = bless {%opts}, $class;
	my $mech = WWW::Mechanize->new();
	$mech->agent_alias('Windows Mozilla');
	$mech->cookie_jar( HTTP::Cookies->new() );

	$mech->post(
		'https://www.onlinebanking.pnc.com/alservlet/ValidateUserIdServlet',
		{ hiddenAcctLetter => 'p', origin => 'p', userId => $opts{userId} }
	) or die "$!";

	#Security Question
	my $stream = HTML::TokeParser->new( \$mech->content() ) or die "$!";
	$stream->get_tag('table');
	$stream->get_tag('tr');
	$stream->get_tag('tr');
	$stream->get_tag('td');
	$stream->get_tag('td');
	print $stream->get_trimmed_text('/td'), "\n";
	my $answer = <>;

	$mech->post(
		'https://www.onlinebanking.pnc.com/alservlet/SigninChallengeServlet',
		{
			counter               => 0,
			challengeErrorCounter => 0,
			bindDevice            => 'no',
			answer                => $answer
		}
	) or die "$!";

	$mech->post(
		'https://www.onlinebanking.pnc.com/alservlet/VerifyPasswordServlet',
		{
			counter              => 0,
			passwordErrorCounter => 0,
			oldUserId            => 12345,
			password             => $opts{password}
		}
	) or die "$!";

	#Scraping account page
	$stream = HTML::TokeParser->new( \$mech->content() ) or die "$!";
	$stream->get_tag('table');
	$stream->get_tag('tr');
	while ( my $token = $stream->get_tag("tr") ) {
		$token = $stream->get_tag("td");
		last if ( $token->[1]{class} and $token->[1]{class} eq 'col213' );
		$stream->get_tag("td");
		my $type = $stream->get_trimmed_text("/td");
		$stream->get_tag("td");
		my $number = $stream->get_trimmed_text("/td");
		$stream->get_tag("td");
		my $balance = $stream->get_trimmed_text("/td");
		$stream->get_tag("td");
		my $available = $stream->get_trimmed_text("/td");
		push @accounts,
		  {
			type      => $type,
			account   => $number,
			balance   => $balance,
			available => $available
		  };
	}
	return @accounts;
}
1;
__END__