commit 737155649d44d040de0fbc048524adc2a44576b3
Author: Matthias Merz <matthias@merz-ka.de>
Date:   Mon Jun 6 20:02:00 2016 +0200

    erster Versuch: hardcoded URL A0M9A2

diff --git a/Finance/Quote/DKB.pm b/Finance/Quote/DKB.pm
new file mode 100644
index 0000000..27c67a2
--- /dev/null
+++ b/Finance/Quote/DKB.pm
@@ -0,0 +1,107 @@
+# Finance::Quote Perl module to retrieve prices of funds from DKB
+#    Copyright (C) 2016  Matthias Merz <matthias@merz-ka.de>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+package Finance::Quote::DKB;
+
+use strict;
+use HTML::TreeBuilder::XPath;
+
+my $BASE_URL = "https://dkb.mdgms.com/MIS/?id_instrument=19035880&id=0107980&pid=DKB_fnd_profile&id_notation=23679474";
+
+sub methods {return ('dkb'        => \&dkb,
+				     'europe'     => \&dkb);}
+sub labels { return (dkb=>[qw/name date price currency/]); }
+
+
+sub dkb
+{
+  my $quoter = shift;     # The Finance::Quote object.
+  my @stocks = @_;
+
+  my $ua = $quoter->user_agent();
+  my %info;
+
+  foreach my $stock (@stocks) {
+    my $response = $ua->get($BASE_URL . "&search_value=" . $stock);
+    #print $response->content, "\n";
+    $info{$stock,"success"} = 0;
+    if (!$response -> is_success()) {
+      $info{$stock,"errormsg"} = "HTTP failure";
+    } else {
+		$info{$stock,"success"} = 1;
+		$info{$stock,'symbol'} = $stock;
+		my $parser = HTML::TreeBuilder::XPath->new_from_content($response->decoded_content);
+
+		my @names = $parser->findnodes( '//span[@class="dkbPortraitName"]');
+		if (@names) {
+			$info{$stock,'name'} = $names[0]->as_text;
+		};
+		my @prices = $parser->findnodes( '//span[@class="dkbPortraitPrice"]');
+		if (@prices) {
+			my $pricestr = $prices[0]->as_text;
+			my @splitvals = ( $pricestr =~ /((\d|,|\.)*)\s*/g);
+			if (@splitvals) {
+				$info{$stock,'price'} = $splitvals[0];
+				$info{$stock,'last'} = $splitvals[0];
+				if ($pricestr =~ /EUR/) {
+					$info{$stock,'currency'} = 'EUR';
+				}
+			}
+		};
+		my @dates = $parser->findnodes( '//span[@class="dkbPortraitDate"]');
+		if (@dates) {
+			#$info{$stock,'date'} = $dates[0]->as_text;
+			$quoter->store_date(\%info, $stock, {eurodate => $dates[0]->as_text});
+		};
+		#$info{$stock,'last'} = '18.70';
+		#$info{$stock,'currency'} = 'EUR';
+    }
+  }
+  return wantarray ? %info : \%info;
+}
+
+1;
+
+=head1 NAME
+
+Finance::Quote::DKB - Obtain fonds quotes from DKB.
+
+=head1 SYNOPSIS
+
+    use Finance::Quote;
+
+    $q = Finance::Quote->new("DKB");
+
+    %info = Finance::Quote->fetch("dkb","A0M9A2");
+
+=head1 DESCRIPTION
+
+This module obtains fund prices from DKB,
+http://www.dkb.de/.
+
+=head1 LABELS RETURNED
+
+The following labels may be returned by Finance::Quote::DKB:
+name, date, price, last, method.
+
+=head1 SEE ALSO
+
+DKB, http://www.dkb.de/
+
+Finance::Quote;
+
+=cut