matthias/finance-quote
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Finance/Quote/DKB.pm: set HTTP user-agent to Firefox-LTS on Linux

Browse Source
This commit is contained in:
Matthias Merz 2017-10-27 20:05:33 +02:00
parent 09b21c62f0
commit f4ce8bd8fc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Finance/Quote/DKB.pm
View File

@ -20,6 +20,8 @@ package Finance::Quote::DKB;
use strict; use strict;
use HTML::TreeBuilder::XPath; use HTML::TreeBuilder::XPath;
my $agent_string = 'Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Firefox/52.0';
my %urlmap_wkn = ( my %urlmap_wkn = (
'a0m9a2' => 'https://dkb.mdgms.com/MIS/?id_instrument=19035880&id=0107980&pid=DKB_fnd_profile&id_notation=23679474', 'a0m9a2' => 'https://dkb.mdgms.com/MIS/?id_instrument=19035880&id=0107980&pid=DKB_fnd_profile&id_notation=23679474',
'a0m430' => 'https://dkb.mdgms.com/MIS/?id_instrument=18085585&id=0107980&pid=DKB_fnd_profile&id_notation=20644387', 'a0m430' => 'https://dkb.mdgms.com/MIS/?id_instrument=18085585&id=0107980&pid=DKB_fnd_profile&id_notation=20644387',
@ -70,6 +72,7 @@ sub dkb
my @stocks = @_; my @stocks = @_;
my $ua = $quoter->user_agent(); my $ua = $quoter->user_agent();
$ua->agent($agent_string);
my %info; my %info;
foreach my $stock (@stocks) { foreach my $stock (@stocks) {