Mercurial > hg > egg-tcls

changeset 190:15c49bb1ce05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add some comments.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 13 Jun 2014 17:38:09 +0300
parents 3af8ea19a3e2
children 127b1d0f874e
files fetch_weather.pl
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_weather.pl	Tue Jun 03 21:56:54 2014 +0300
+++ b/fetch_weather.pl	Fri Jun 13 17:38:09 2014 +0300
@@ -428,7 +428,9 @@
         $findex++;
       }
     }
+    # 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 $fnode (@{$fcrap})
     {
@@ -436,6 +438,7 @@
       if ($floc->{"gml:pos"} =~ /^\s*([\+\-]?\d+\.\d*)\s+([\+\-]?\d+\.\d*)\s*$/)
       {
         my ($flat, $flong) = ($1, $2);
+        # Should use a hash -
         foreach my $flol (@farray)
         {
           if ($flol->{"lat"} == $flat && $flol->{"long"} == $flong)