[libfinance-quote-perl] 08/10: Drop deka patches, module has been rewritten

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to branch master
in repository libfinance-quote-perl.

commit 2abd9f4673aec1b8c88ecd8dcc5f47e629a5217a
Author: Florian Schlichting <fsfs at debian.org>
Date:   Fri Nov 10 22:04:17 2017 +0100

    Drop deka patches, module has been rewritten
---
 debian/patches/04_deka.diff | 62 ---------------------------------------------
 debian/patches/08_deka.diff | 18 -------------
 debian/patches/series       |  2 --
 3 files changed, 82 deletions(-)

diff --git a/debian/patches/04_deka.diff b/debian/patches/04_deka.diff
deleted file mode 100644
index a1fa3e7..0000000
--- a/debian/patches/04_deka.diff
+++ /dev/null
@@ -1,62 +0,0 @@
-Description: fix parsing of deka
-Origin: vendor
-Bug-Debian: https://bugs.debian.org/431293
-Forwarded: no
-Author: Bart Martens <bartm at debian.org>
-Last-Update: 2017-08-21
-
---- a/lib/Finance/Quote/Deka.pm
-+++ b/lib/Finance/Quote/Deka.pm
-@@ -61,8 +61,7 @@ sub deka
-     if (!$response -> is_success()) {
-       $info{$stock,"errormsg"} = "HTTP failure";
-     } else {
--      my @headers = [qw(Name ISIN Whg Datum)];
--      my $te = new HTML::TableExtract(headers => @headers, slice_columns => 0);
-+      my $te = new HTML::TableExtract();
-       $te->parse($response->content);
-       foreach my $ts ($te->table_states) {
- #        foreach my $row ($ts->rows) {
-@@ -72,16 +71,34 @@ sub deka
- 
-         foreach my $row ($ts->rows) {
- 	  next if !defined $$row[0] || !defined $$row[1];
--	  $info{$stock,"name"} = $$row[0];
--	  $info{$stock,"currency"} = $$row[2];
--	  $quoter->store_date(\%info, $stock, {eurodate => $$row[6]});
--	  $info{$stock,"price"} = convert_price(trim($$row[4]));
--	  $info{$stock,"last"} = $info{$stock,"price"};
--	  $info{$stock,"success"} = 1;
--	  $info{$stock,"method"} = "deka";
--	  $info{$stock,"symbol"} = $stock;
-+	  next if !defined $$row[2] || !defined $$row[3];
-+	  $info{$stock,"currency"} = $$row[1] if( $$row[0] =~ /^W.hrung:$/ );
-+	  $info{$stock,"price"} = convert_price(trim($$row[3])) if( $$row[2] eq "Anteilpreis Aktuell:" );
-         }
-       }
-+
-+      $info{$stock,"name"} = $1
-+        if( $response->content =~ /<div class="sfg_txt">[^<>]*<h1>([^<>]+)<\/h1>/s );
-+      $info{$stock,"eurodate"} = $1
-+        if( $response->content =~ /<div class="box">[^<>]*<h2 class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
-+      $info{$stock,"last"} = $info{$stock,"price"}
-+        if( defined $info{$stock,"price"} );
-+
-+      $info{$stock,"success"} = 1
-+      	if( defined $info{$stock,"name"}
-+      	&&  defined $info{$stock,"eurodate"}
-+      	&&  defined $info{$stock,"price"}
-+	&&  defined $info{$stock,"last"}
-+	&&  defined $info{$stock,"currency"} );
-+
-+      if( $info{$stock,"success"} == 1 )
-+      {
-+        $info{$stock,"method"} = "deka";
-+        $info{$stock,"symbol"} = $stock;
-+        $quoter->store_date(\%info, $stock, {eurodate => $info{$stock,"eurodate"}});
-+        delete $info{$stock,"eurodate"};
-+      }
-+
-       $info{$stock,"errormsg"} = "Couldn't parse deka website"
- 	  if ($info{$stock,"success"} == 0);
-     }
diff --git a/debian/patches/08_deka.diff b/debian/patches/08_deka.diff
deleted file mode 100644
index 26589cb..0000000
--- a/debian/patches/08_deka.diff
+++ /dev/null
@@ -1,18 +0,0 @@
-Description: fix regexp to retrieve data from deka
-Origin: vendor
-Bug-Debian: https://bugs.debian.org/539052
-Forwarded: no
-Author: Daniel Bayer <daniel at halbordnung.de>
-Last-Update: 2017-08-21
-
---- a/lib/Finance/Quote/Deka.pm
-+++ b/lib/Finance/Quote/Deka.pm
-@@ -80,7 +80,7 @@ sub deka
-       $info{$stock,"name"} = $1
-         if( $response->content =~ /<div class="sfg_txt">[^<>]*<h1>([^<>]+)<\/h1>/s );
-       $info{$stock,"eurodate"} = $1
--        if( $response->content =~ /<div class="box">[^<>]*<h2 class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
-+        if( $response->content =~ /<h2 class="headline">Aktuelle Fondsdaten vom ([^<>]+)<\/h2>/s );
-       $info{$stock,"last"} = $info{$stock,"price"}
-         if( defined $info{$stock,"price"} );
- 
diff --git a/debian/patches/series b/debian/patches/series
index 0e1419c..1084bdb 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,6 +1,4 @@
 whatis.diff
-04_deka.diff
 06_seb.diff
-08_deka.diff
 mozilla-ca.patch
 spelling.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfinance-quote-perl.git