diff --git a/financial-perl/Finance/Barclaycard.pm b/financial-perl/Finance/Barclaycard.pm index 75dc530..7661fc8 100644 --- a/financial-perl/Finance/Barclaycard.pm +++ b/financial-perl/Finance/Barclaycard.pm @@ -28,6 +28,7 @@ sub init { sub login { my ($self) = @_; + $self->SUPER::login(); my $m = $self->{mech}; $m->get($start_url); @@ -100,6 +101,8 @@ sub extract_transactions { sub statements { my ($self) = @_; + my @statements; + push @statements, $self->SUPER::statements(); my $m = $self->{mech}; my @statements; @@ -116,6 +119,7 @@ sub statements { sub transactions { my ($self, @labels) = @_; my @transactions; + push @transactions, $self->SUPER::transactions(@labels); my $m = $self->{mech}; my %fetch; @@ -164,7 +168,6 @@ sub transactions { print STDERR "Unable to retrieve data for '$k'.\n"; } - print STDERR "returning $#transactions transactions\n"; return [ sort {$a->{booked} cmp $b->{booked}} @transactions ]; } diff --git a/financial-perl/Finance/MercedesBenzBank.pm b/financial-perl/Finance/MercedesBenzBank.pm index f626c57..f9ece4e 100644 --- a/financial-perl/Finance/MercedesBenzBank.pm +++ b/financial-perl/Finance/MercedesBenzBank.pm @@ -10,6 +10,7 @@ our $start_url = "https://www.mercedes-benz-bank.de/"; sub login { my ($self) = @_; + $self->SUPER::login(); my $m = $self->{mech}; $m->get($start_url); $m->follow_link( text => "Login Online Banking"); @@ -30,6 +31,8 @@ sub credentials { } sub statements { + my ($self) = @_; + my @s = $self->SUPER::statements(); return ("48"); } @@ -41,13 +44,15 @@ our %key_table = ( sub transactions { my ($self, @trans) = @_; + my @book; + push @book, $self->SUPER::transactions(@trans); + my $m = $self->{mech}; $m->form_with_fields( "period" ); $m->set_visible( [ option => "48 Monate" ] ); $m->click( '$$event_refresh' ); $m->follow_link( text_regex => qr{Drucken} ); - my @book; my $tree = new HTML::TreeBuilder; $tree->parse($m->content); diff --git a/financial-perl/Finance/SantanderCC.pm b/financial-perl/Finance/SantanderCC.pm index 61a39ad..a520ecb 100644 --- a/financial-perl/Finance/SantanderCC.pm +++ b/financial-perl/Finance/SantanderCC.pm @@ -4,7 +4,7 @@ require Finance::GenericWebBot; use strict; -our $start_url = "https://www.kreditkartenbanking.de/santander/cas/dispatch.do?bt_PRELON=1&ref=1600&service=COS"; +our $start_url = "https://www.kreditkartenbanking.de/santander"; sub __fix_links { my $m = shift; @@ -15,11 +15,13 @@ sub __fix_links { sub login { my ($self) = @_; + $self->SUPER::login(); my $m = $self->{mech}; $m->get($start_url); $m->form_name("preLogonForm"); + __fix_links $m; $m->field("user", $self->{credentials}{id} ); $m->field("password", $self->{credentials}{pin}); @@ -68,6 +70,7 @@ sub extract_transactions { sub statements { my ($self) = @_; my @s; + push @s, $self->SUPER::statements(); push @s, "current"; my $m = $self->{mech}; $m->follow_link( url_regex => qr/bt_STMTLIST=do/ ); @@ -82,6 +85,7 @@ sub statements { sub transactions { my ($self, @labels) = @_; my @transactions; + push @transactions, $self->SUPER::transactions(); my $m = $self->{mech}; my %fetch;