# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1401820720 -10800
# Node ID 64e06ee172c7db73cfadc0a0d72678802ace6bf1
# Parent  a496dc87a7c1c8dd09f49c9a66a1125df297212e
Add HTTP user agent setting.

diff -r a496dc87a7c1 -r 64e06ee172c7 fetch_weather.pl
--- a/fetch_weather.pl	Tue Jun 03 21:38:24 2014 +0300
+++ b/fetch_weather.pl	Tue Jun 03 21:38:40 2014 +0300
@@ -30,6 +30,7 @@
   "opt_tiehallinto" => 0,
   "fmi_api_key" => "",
   "outfile" => "",
+  "http_user_agent" => "Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 6.0) Opera 10.63  [en]",
 );
 
 
@@ -45,7 +46,7 @@
 sub fetch_http($)
 {
   my $tmpAgent = LWP::UserAgent->new;
-  $tmpAgent->agent("Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 6.0) Opera 10.63  [en]");
+  $tmpAgent->agent($settings{"http_user_agent"});
   $tmpAgent->timeout(10);
 
   my $tmpRequest = HTTP::Request->new(GET => $_[0]);