NAME

Finance::Bank::ES::INGDirect - Check your INGDirect bank accounts from Perl

SYNOPSIS

  my $nif="11111111B";
  my $fenac="12/12/1212";
  my $pin="929999";
  my @cuentas=Finance::Bank::ES::INGDirect->ver_saldos( documento=>$nif,
                                                        fecha_nacimiento=>$fenac  ,
                                                        pin=> $pin);
  foreach (@cuentas) {
        print "Desc: ".$_->{descripcion}." Num: ".$_->{numero}." Saldo: ".$_->{saldo}."\n";
  }

DESCRIPTION

Check your INGDirect bank accounts from Perl. It only checks balances, but future versions will allow you to do more things. Chequea el saldo de tus cuentas en INGDirect con Perl. Ahora solamente chequea saldos, pero en futuras versiones se permitiran mas cosas. Me encantaria saber que usas el modulo! Enviame un mail!

EXPORT

None by default.

REQUIRE

WWW::Mechanize HTML::Tree Digest::MD5

WARNING

This warning is from Simon Cozens' Finance::Bank::LloydsTSB, and seems just as apt here.

This is code for online banking, and that means your money, and that means BE CAREFUL. You are encouraged, nay, expected, to audit the source of this module yourself to reassure yourself that I am not doing anything untoward with your banking data. This software is useful to me, but is provided under NO GUARANTEE, explicit or implied.

Ten cuidado con el modulo. Examina el fuente para que veas que no hago cosas raras. Pasalo a traves de un proxy para que veas que no me conecto a sitios raros.

EXAMPLES

  use Finance::Bank::ES::INGDirect;
  use Tk;
  use strict;
  
  my $main = MainWindow->new;
  $main->Label(-text => 'NIF')->pack;
  my $nif = $main->Entry(-width => 10);
  $nif->pack;
  $main->Label(-text => 'Fecha Nacimiento(DD/MM/AAAA)')->pack;
  my $fenac = $main->Entry(-width => 10);
  $fenac->pack;
  $main->Label(-text => 'PIN')->pack;
  my $pin = $main->Entry(-width => 7, -show => '*' );
  $pin->pack;
  $main->Label(-text => 'Datos')->pack;
  my $d = $main->MListbox(  -columns =>     [[-text=>'Descripcion']  ,
                                           [-text=>'Numero'],
                                           [-text=>'Saldo']]);
  $d->pack;
  $main->Button(-text => 'Conectar!',
                -command => sub{ver_saldos($nif->get, $fenac->get, $pin->get)}
                )->pack;
  MainLoop;

  sub ver_saldos {
        my ($nif, $fenac, $pin) = @_;
        my @cuentas=Finance::Bank::ES::INGDirect->ver_saldos(   documento=>$nif,
                                                                fecha_nacimiento=>$fenac,
                                                                pin=> $pin);
        foreach (@cuentas) {
                $d->insert(0,[$_->{descripcion},$_->{numero},$_->{saldo}]);
        }
  }

SEE ALSO

Finance::Bank::*

AUTHOR

Bruno Diaz Briere brunodiaz@cpan.org

COPYRIGHT AND LICENSE

Copyright (C) 2007 by Bruno Diaz Briere

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.1 or, at your option, any later version of Perl 5 you may have available.