Mercurial > hg > egg-tcls

comparison fetch_weather.pl @ 170:e4faa3746869

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove useless parameters from XMLin().
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 03 Jun 2014 12:58:46 +0300
parents c12e422a543a
children 9b8ec700ede4
comparison
equal deleted inserted replaced
169:c12e422a543a 170:e4faa3746869
359 "/wfs?request=getFeature&storedquery_id=fmi::observations::weather::cities::multipointcoverage". 359 "/wfs?request=getFeature&storedquery_id=fmi::observations::weather::cities::multipointcoverage".
360 "&parameters=temperature,humidity"); 360 "&parameters=temperature,humidity");
361 361
362 if ($res->code >= 200 && $res->code <= 201) 362 if ($res->code >= 200 && $res->code <= 201)
363 { 363 {
364 my $xml = XMLin($res->decoded_content, 364 my $xml = XMLin($res->decoded_content);
365 KeyAttr => { server => 'name' },
366 ForceArray => [ 'server', 'address' ]);
367
368 my $time_base = time(); 365 my $time_base = time();
369 366
370 foreach my $item (@{$xml->{"wfs:member"}}) 367 foreach my $item (@{$xml->{"wfs:member"}})
371 { 368 {
372 my $fitem = $item->{"omso:GridSeriesObservation"}; 369 my $fitem = $item->{"omso:GridSeriesObservation"};