# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1454863751 -7200
# Node ID 5573c1681da90c2dfa666b387bd5de27427e44b4
# Parent  846a0a95ad5adc9a6f773da82088a9fc5e89678b
fetch_weather: Trim split input data lines in FMI XML.

diff -r 846a0a95ad5a -r 5573c1681da9 fetch_weather.pl
--- a/fetch_weather.pl	Sun Feb 07 18:17:21 2016 +0200
+++ b/fetch_weather.pl	Sun Feb 07 18:49:11 2016 +0200
@@ -63,6 +63,15 @@
 }
 
 
+sub str_trim($)
+{
+  my $tmp = $_[0];
+  $tmp =~ s/^\s*//;
+  $tmp =~ s/\s*$//;
+  return $tmp;
+}
+
+
 sub parse_timestamp($$)
 {
   my ($str, $offs) = @_;
@@ -429,8 +438,8 @@
       {
         for (my $nline = 0; $nline < scalar(@position_lines); $nline++)
         {
-          my $dline = $data_lines[$nline];
-          my $pline = $position_lines[$nline];
+          my $dline = str_trim($data_lines[$nline]);
+          my $pline = str_trim($position_lines[$nline]);
 
           my @fmatches = ($dline =~ /\s*([\+\-]?\d+\.\d*|NaN)\s*/ig);
           if (scalar(@fmatches) != scalar(@fmitems))