Finance::Bank::PSK - check your P.S.K. accounts from Perl
# look for this script in the examples directory of the # tar ball. use Finance::Bank::PSK; use strict; use warnings; my $agent = Finance::Bank::PSK->new( account => 'xxx', user => 'xxx', pass => 'xxx', return_floats => 1, ); my $result = $agent->check_balance; foreach my $account (@{$result->{accounts}}) { printf("%11s: %25s\n", $_->[0], $account->{$_->[1]}) for(( [ qw/ Kontonummer account / ], [ qw/ Bezeichnung name / ], [ qw/ Waehrung currency / ] )); printf("%11s: %25.2f\n", $_->[0], $account->{$_->[1]}) for(( [ qw/ Saldo balance / ], [ qw/ Dispo final / ] )); print "\n"; } foreach my $fund (@{$result->{funds}}) { printf("%11s: %25s\n", $_->[0], $fund->{$_->[1]}) for(( [ qw/ Depotnummer fund / ], [ qw/ Bezeichnung name / ], [ qw/ Waehrung currency / ] )); printf("%11s: %25.2f\n", 'Saldo', $fund->{balance}); print "\n"; }
This module provides a basic interface to the online banking system of the P.S.K. at https://wwwtb.psk.at.
https://wwwtb.psk.at
Please note, that you will need either Crypt::SSLeay or IO::Socket::SSL installed for working HTTPS support of LWP.
Crypt::SSLeay
IO::Socket::SSL
LWP
Queries the via user and pass defined accounts and mutual funds and returns a reference to a list of hashes containing all fetched information:
$VAR1 = { 'accounts' => [ { 'name' => name of the account 'account' => account number 'currency' => currency 'balance' => account balance 'final' => final account balance ] 'funds' => [ { 'name' => name of the mutual fund 'fund' => mutual fund number 'currency' => currency 'balance' => mutual fund balance } ] };
All attributes are implemented by Class::MethodMaker, so please take a look at its man page for further information about the created accessor methods.
Class::MethodMaker
Account to connect with (Teilnehmernummer).
User to connect with (Verfueger).
Password to connect with (PIN).
Boolean value defining wether the module returns the balance as signed float or just as it gets it from the online banking system (default: false).
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.
Simon Cozens <simon@cpan.org> for Finance::Bank::LloydsTSB from which I've borrowed the warning message.
Finance::Bank::LloydsTSB
Chris Ball <chris@cpan.org> for his article about screen-scraping with WWW::Mechanize at http://www.perl.com/pub/a/2003/01/22/mechanize.html.
WWW::Mechanize
http://www.perl.com/pub/a/2003/01/22/mechanize.html
Florian Helmberger <fh@laudatio.com>
$Id: PSK.pod,v 1.1 2003/06/20 21:16:07 florian Exp $
You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.
Copyright (C) 2003 Florian Helmberger
WWW::Mechanize, HTML::TokeParser, Class::MethodMaker.
To install Finance::Bank::PSK, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Finance::Bank::PSK
CPAN shell
perl -MCPAN -e shell install Finance::Bank::PSK
For more information on module installation, please visit the detailed CPAN module installation guide.