108 lines
3.0 KiB
Perl
108 lines
3.0 KiB
Perl
# 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
|