Finance::Bank::ID::BPRKSCheck your BPR KS accounts from Perl | |
Download |
Finance::Bank::ID::BPRKS Ranking & Summary
Advertisement
- 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