Finance::Bank::ID::BPRKS

Check your BPR KS accounts from Perl
Download

Finance::Bank::ID::BPRKS Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Steven Haryanto
  • Publisher web site:
  • http://search.cpan.org/~sharyanto/

Finance::Bank::ID::BPRKS Tags


Finance::Bank::ID::BPRKS Description

Finance::Bank::ID::BPRKS is a Perl module that provides a rudimentary interface to the web-based online banking interface of the Indonesian BPR Karyajatnika Sadaya (BPR KS, BPRKS) at https://ib.bprks.co.id. You will need either Crypt::SSLeay or IO::Socket::SSL installed for HTTPS support to work (and strictly Crypt::SSLeay to enable certificate verification). WWW::Mechanize is required but you can supply your own mech-like object.This module can only login to the individual edition of the site. I haven't checked out the other versions.Warning: This module is neither offical nor is it tested to be 100% safe! Because of the nature of web-robots, everything may break from one day to the other when the underlying web interface changes.SYNOPSIS use Finance::Bank::ID::BPRKS; # FBI::BPRKS uses Log::Any. to show logs using, e.g., Log4perl: use Log::Log4perl qw(:easy); use Log::Any::Adapter; Log::Log4perl->easy_init($DEBUG); Log::Any::Adapter->set('Log4perl'); my $ibank = Finance::Bank::ID::BPRKS->new( username => 'ABCDEFGH1234', # opt if only using parse_statement() password => '123456', # idem verify_https => 1, # default is 0 #https_ca_dir => '/etc/ssl/certs', # default is already /etc/ssl/certs ); eval { $ibank->login(); # dies on error my @cards = $ibank->list_cards(); my $bal = $ibank->check_balance($card); # $card is optional my $stmt = $ibank->get_statement( card => ..., # opt, default card will be used if undef days => 30, # opt start_date => DateTime->new(year=>2012, month=>6, day=>1), # opt, takes precedence over 'days' end_date => DateTime->today, # opt, takes precedence over 'days' ); print "Transactions: "; for my $tx (@{ $stmt->{transactions} }) { print "$tx->{date} $tx->{amount} $tx->{description}\n"; } }; # remember to call this, otherwise you will have trouble logging in again # for some time if ($ibank->logged_in) { $ibank->logout() } # utility routines my $res = $ibank->parse_statement($html);Product's homepage


Finance::Bank::ID::BPRKS Related Software