File Coverage

blib/lib/Finance/Bank/ES/Cajamadrid.pm

Criterion	Covered	Total	%
statement	12	36	33.3
branch	0	8	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	52	30.7

package Finance::Bank::ES::Cajamadrid;

use strict;
use warnings;
use Carp;
use WWW::Mechanize;
our $VERSION='0.04';


# hackery for https proxy support, inspired by Finance::Bank::Barclays
# thanks Dave Holland!
my $https_proxy=$ENV{https_proxy};
delete $ENV{https_proxy} if($https_proxy);
our $browser = WWW::Mechanize->new(env_proxy=>1);
$browser->env_proxy;     # Load proxy settings (but not the https proxy)
$ENV{https_proxy}=$https_proxy if($https_proxy);

sub check_balances {
	my ($class,%opts)=@_;
	croak "Must provide a DNI number" unless exists $opts{dni};
	croak "Must provide a PIN" unless exists $opts{pin};
	my $base="https://oi.cajamadrid.es";
	my $re='
	my $self=bless { %opts }, $class;
	$browser->quiet(1);
	$browser->agent_alias("Windows IE 6");
	$browser->get("$base/CajaMadrid/oi/pt_oi/Login/login");
	$browser->form('f1');
	$browser->field("Documento_s", $opts{dni});
	$browser->field("ClaveAcceso_s", $opts{pin});
	my $r=$browser->submit();
	$browser->form('f_lanzar')
	        ->action("$base/CajaMadrid/oi/puente_oi?pagina=5950&tran=0");
	$r=$browser->submit();
	my $datos=$r->content;
	my @cuentas=();
	while ($datos=~m{$re}gs){
		push @cuentas,( { numero => $1,
				  saldo => $2 } );
	}
	return @cuentas;
}
sub ver_saldos {
	my ($class,%opts)=@_;
	croak "Debe proporcionar un DNI" unless exists $opts{dni};
	croak "Debe proporcionar un PIN" unless exists $opts{pin};
	return &check_balances($class,%opts);
}
1;
__END__