diff --git a/Finance/Quote/DKB.pm b/Finance/Quote/DKB.pm index cf510a6..3b9ac9e 100644 --- a/Finance/Quote/DKB.pm +++ b/Finance/Quote/DKB.pm @@ -20,6 +20,8 @@ package Finance::Quote::DKB; use strict; 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 = ( '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', @@ -70,6 +72,7 @@ sub dkb my @stocks = @_; my $ua = $quoter->user_agent(); + $ua->agent($agent_string); my %info; foreach my $stock (@stocks) {