From f4ce8bd8fc03d3fd26f94b9aa9ed6ce1740a8821 Mon Sep 17 00:00:00 2001
From: Matthias Merz <matthias@merz-ka.de>
Date: Fri, 27 Oct 2017 20:05:33 +0200
Subject: [PATCH] Finance/Quote/DKB.pm: set HTTP user-agent to Firefox-LTS on
 Linux

---
 Finance/Quote/DKB.pm | 3 +++
 1 file changed, 3 insertions(+)

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) {