# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1513600911 -7200
# Node ID 721a56cd62e31cc98ab3a2338952b6aeeb6930f3
# Parent  dbe2499685919aa0d5698de743ccc90ed0ecbad0
fetch_weather: Cleanups.

diff -r dbe249968591 -r 721a56cd62e3 fetch_weather.pl
--- a/fetch_weather.pl	Mon Oct 30 15:46:50 2017 +0200
+++ b/fetch_weather.pl	Mon Dec 18 14:41:51 2017 +0200
@@ -62,7 +62,7 @@
 sub fetch_http($)
 {
   my $agent = LWP::UserAgent->new;
-  $agent->agent($settings{"http_user_agent"});
+  $agent->agent(opt_get("http_user_agent"));
   $agent->timeout(20);
 
   my $req = HTTP::Request->new(GET => $_[0]);
@@ -251,7 +251,8 @@
     {
       my $key = lc($1);
       my $value = $2;
-      if (defined($settings{$key})) {
+      if (defined($settings{$key}))
+      {
         $settings{$key} = $value;
       }
       else
@@ -322,7 +323,7 @@
 }
 
 opt_read_config($opt_cfgfile) == 0 or die("Errors while parsing configuration file '".$opt_cfgfile."'.\n");
-print STDERR "Forcing update of all data.\n" if $settings{"force_update"};
+print STDERR "Forcing update of all data.\n" if opt_chk_bool("force_update");
 
 
 ###