* fixed links in santandercc

wertarbyte · Jan 2, 2009 · 0c907bb · 0c907bb
1 parent 3be13c6
commit 0c907bb
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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;