File Coverage

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

Criterion	Covered	Total	%
statement	15	102	14.7
branch	0	18	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	0	3	0.0
total	20	134	14.9

package Finance::Bank::ES::INGDirect;

use WWW::Mechanize;
use HTML::Tree;
use Digest::MD5 qw (md5_base64);
use warnings;
use Carp;
our $VERSION='0.04';


my $inicio='https://www.ingdirect.es/WebTransactional/Transactional/AccesoClientes.asp';
my $cpin='https://www.ingdirect.es/WebTransactional/Transactional/clientes/access/Cappin.asp';
my $imagenes="https://www.ingdirect.es/WebTransactional/Transactional/clientes/images/acceso/";
my $todosdatos="https://www.ingdirect.es/WebTransactional/Transactional/clientes/position/globalinf_all_products.asp?opcion1=1&opcion2=1";

sub entra {
 my($self,$clave,$documento,$tipo,$fechan)=(@_);
 $self = {};
 bless $self;
 my ($birthDay,$birthMonth,$birthYear)=split("/",$fechan);
 my @aclave=split "",$clave;
 my %numeros;
 my %posicion;
 $numeros{2}="kGZIA+MhSDZwAJNbKPVQuw";
 $numeros{0}="/G8ZknsmSdWsGKieoJPTAQ";
 $numeros{1}="gzlcyXsBJ39n4/zwAxXcuQ";
 $numeros{6}="gbuU5oA87kDZVI/6iFHwqQ";
 $numeros{5}="oYkWYg/mzWdTQ5/tWKIbiw";
 $numeros{4}="JZvMzVSO6KoUA/F79ietTA";
 $numeros{7}="2X4WjJJmFRbvvhr/tW/n0Q";
 $numeros{3}="IgHJh1ghY+ibtkZobrCM/w";
 $numeros{8}="jTch8Vwv19eh0YgpirETiA";
 $numeros{9}="+EFFvwg3jNmSxVxk/GJt+g";
 %hashes=reverse %numeros;
 # Thanks to Dev Holland for the proxy trick
 my $https_proxy=$ENV{https_proxy};
 delete $ENV{https_proxy} if($https_proxy);
 $mech = WWW::Mechanize->new(env_proxy=>1);
 $mech->env_proxy;     # Load proxy settings (but not the https proxy)
 $mech2 = WWW::Mechanize->new(env_proxy=>1);
 $mech2->env_proxy;     # Load proxy settings (but not the https proxy)
 $ENV{https_proxy}=$https_proxy if($https_proxy);
 $mech->agent_alias('Windows IE 6');
 $mech2->agent_alias('Windows IE 6');
 $self{m1}=$mech;
 $self{m2}=$mech2;
 my $resultado=$mech->get($inicio);
 #print $resultado->content();
 $resultado=$mech->follow_link( url_regex => qr/entrada.asp/i );
 #print $resultado->content();
 my $f1=$mech->form_name('form1');
 $f1->method('POST');
 $f1->action($cpin);
 $f1->value('cbodocument',$tipo);
 $f1->value('id',$documento);
 $f1->value('birthDay',$birthDay);
 $f1->value('birthMonth',$birthMonth);
 $f1->value('birthYear',$birthYear);
 $resultado=$mech->submit_form(form_name=>'form1');
 my $texto=$resultado->content();
 #print $texto;
 my $pos=0;
 while ( $texto=~/src=....images.acceso.([^\s]*?gif). onclick/mgs) {
  my $i=$1;
  my $imagen=$mech2->get($imagenes.$i);
  my $digest=md5_base64($imagen->content());
  #print $hashes{$digest}.":".$imagenes.$i."->".$digest."\n";
  $posicion{$hashes{$digest}}=$pos;
  $pos++;
 }
 $f1=$mech->form_name('LoginForm');
 while ( $texto=~/name="txt_Pin(\d)"/mgs) {
  my $cual=$1;
  $f1->value("txt_Pin".$cual,$posicion{$aclave[$cual-1]});
 }
 $resultado=$mech->submit_form(form_name=>'LoginForm');
 $texto=$resultado->content();
 return $self;
}

sub balances {
 my ($self)=(@_);
 my $mech=$self{m1};
 my $resultado=$mech->get($todosdatos);
 #print $resultado->content();
 my $tree = HTML::TreeBuilder->new();
 $tree->parse($resultado->content());
 $tree->eof();
 $tree->elementify();
 my $datos="";
 my @elementos=$tree->look_down("_tag","td","class","negro10tablewithoutline");
 foreach my $el (@elementos) {
  if($el->as_text()=~/pciones/) {
   $datos=$datos."\n";
  }
  else {
   $datos=$datos.$el->as_text()."\t";
  }
 }
 @elementos=$tree->look_down("_tag","td","class","negro10tableline");
 foreach my $el (@elementos) {
  if($el->as_text()=~/pciones/) {
   $datos=$datos."\n";
  }
  else {
   $datos=$datos.$el->as_text()."\t";
  }
 }
 my @cuentas;
 foreach my $lin (split "\n",$datos) {
  my @t=split "\t",$lin;
  $t[2]=~s/[^\d|^,]//g;
  #print $t[2];
  push @cuentas,( { descripcion =>$t[0],
        	    numero => $t[1],
	            saldo => $t[2] } ) if defined ($t[2]) and length($t[2])>0;
 }
 return @cuentas;
}

sub ver_saldos {
 my ($class,%opts)=@_;
 croak "Debe proporcionar un Documento" unless exists $opts{documento};
 croak "Debe proporcionar una fecha de nacimiento DD/MM/AAAA" unless exists $opts{fecha_nacimiento};
 croak "Debe proporcionar un PIN" unless exists $opts{pin};
 $opts{tipo_documento}="NIF" unless exists $opts{tipo_documento};
 my %tipodoc=(NIF => 0,
              Pasaporte=> 1,
              TarjetaResidencia=> 2);
 my $cbodocument=$tipodoc{NIF};
 my $temporal=$class->entra($opts{pin},$opts{documento},$cbodocument,$opts{fecha_nacimiento});
 return $temporal->balances();
}


1;
__END__