Finance-Bank-IE

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

data/pii.txt							 Empty file, fodder for scrubbing.t

#
# Data files to support offline testing
#
data/PTSB/unscrubbed					 Permanent TSB unscrubbed page
data/PTSB/Account.aspx					 Permanent TSB account summary page
data/PTSB/DoLogOff.aspx					 Permanent TSB logged out page
data/PTSB/Login2.aspx					 Permanent TSB PIN entry page
data/PTSB/Incorrect1.aspx				 Permanent TSB missing credentials page
data/PTSB/StateMini.aspx_ref=0			 Permanent TSB mini statement page
data/PTSB/login.aspx_ref5				 Permanent TSB login page
data/PTSB/PayAndTransfer.aspx
data/PTSB/TransfereeManage.aspx
data/PTSB/TransfereeManage.aspx_ddlPaymentType=1
data/PTSB/TransfereeManage.aspx_ddlPaymentType=2
data/PTSB/TransfereeManage.aspx_ddlPaymentType=3

# Bank of Ireland test files
data/BankOfIreland/accountSummary_execution=e2s1   BoI account summary page

README  view on Meta::CPAN

Bank Of Ireland, MBNA Ireland (actually MBNA Europe), and Permanent
TSB (Ireland) online banking access, based on existing
Finance::Banking interface.

BankOfIreland.pm is the most complete in that it covers funds
transfer. All public functions take a hashref as an optional last
parameter to specify the credentials to be used if a login page is
encountered. The credentials are cached in the class and will be
retrieved from same if none are provided.

See individual perldocs and sample code for more.

As noted by the code on which I based this: these modules are intended
to access your money online. Be cautious with them!

lib/Finance/Bank/IE/BankOfIreland.pm  view on Meta::CPAN

    # </strong></span>
    # has been paid from <span class="highlight"><strong>SOURCE</strong></span> to
    # <span class="highlight"><strong>DEST</strong></span>
    # </p>
    return $self->_agent()->content;
}


=item * $self->_set_creds_fields( $config )

  Parse the last received page for credentials entry fields, and populate them with the data from C<$config>. Also injects the missing 'form:continue' hidden field.

=cut
sub _set_creds_fields {
    my $self = shift;
    my $confref = shift;

    my $form = $self->_agent()->current_form();
    # avoid having to restructure old config
    my @dob = split( '/', $confref->{dob} );
    my %fieldmapping = (

t/lib/Test/MockBank/PTSB.pm  view on Meta::CPAN

        # if we get this far we've submitted a username & password, so
        # validate it.
        if ( Test::MockBank->globalstate( 'user' ) ne
             Test::MockBank->globalstate( 'config' )->{user} ||
             Test::MockBank->globalstate( 'password' ) ne
             Test::MockBank->globalstate( 'config' )->{password}) {
            $response->code( RC_OK );
            $response->content( Test::Util::getfile( $pages{incorrect}, 'PTSB' ));
            Test::MockBank->globalstate( 'loggedin', 0 );
        } else {
            # valid credentials. special redirect handling at this point.
            my $submitted = $self->get_param( '__EVENTTARGET', \@args ) || "";
            if ( $request->uri =~ /Login2.aspx/ ) {
                $response->code( RC_FOUND );
                $response->header( 'Location' => $pages{loggedin} );
            } elsif ( $request->uri =~ $pages{add3p} and
                      $submitted eq 'lbtnContinue' ) {
                $response->code( RC_FOUND );
                $response->header( 'Location' => $pages{add3p2} );
            } elsif ( $request->uri =~ $pages{add3p2} and
                      $submitted eq 'lbtnContinue' ) {