# HG changeset patch # User Matti Hamalainen # Date 1443957740 -10800 # Node ID 6ea410acbe747a9a5fe7d6892a694748d4950f7d # Parent afb8c0e2d51304ad861ee80b8557cfb32c996c58 Cosmetics. diff -r afb8c0e2d513 -r 6ea410acbe74 fetch_weather.pl --- a/fetch_weather.pl Sun Oct 04 14:21:22 2015 +0300 +++ b/fetch_weather.pl Sun Oct 04 14:22:20 2015 +0300 @@ -56,7 +56,7 @@ $agent->timeout(20); my $req = HTTP::Request->new(GET => $_[0]); - + return $agent->request($req); } @@ -305,7 +305,7 @@ my $uri = "https://raw.githubusercontent.com/finnishtransportagency/metadata/master/csv/meta_traffic_stations.csv"; my $res = fetch_http($uri); die("Failed to fetch $uri data.\n") unless ($res->code <= 200 && $res->code <= 201); - + print STDERR "Storing to cache '$meta_file'.\n" if (opt_get_int("debug") > 0); $meta_str = $res->decoded_content; write_file($meta_file, {binmode => ':utf8'}, $meta_str); @@ -380,7 +380,7 @@ { my $xml = XMLin($res->decoded_content); my $time_base = time(); - + if (defined($xml->{"wfs:member"}{"omso:GridSeriesObservation"})) { my $fdata = $xml->{"wfs:member"}{"omso:GridSeriesObservation"}; @@ -395,7 +395,7 @@ } } - my $findex = 0; + my $findex = 0; foreach my $fline (split(/\n/, $fshit->{"gml:rangeSet"}{"gml:DataBlock"}{"gml:doubleOrNilReasonTupleList"})) { my @fmatches = ($fline =~ /\s*([\+\-]?\d+\.\d*|NaN)\s*/ig); @@ -411,7 +411,7 @@ } } # XXX Hashify the array into lat/long keys - + # This is horrible :S my $fcrap = $fdata->{"om:featureOfInterest"}{"sams:SF_SpatialSamplingFeature"}{"sams:shape"}{"gml:MultiPoint"}{"gml:pointMember"}; foreach my $xnode (@{$fcrap})