Mercurial > hg > egg-tcls

comparison fetch_weather.pl @ 444:fe671cd76ecc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Oops, a typo.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 28 Sep 2017 15:15:23 +0300
parents 1f16d27c571d
children dbe9e233f564
comparison
equal deleted inserted replaced
443:1f16d27c571d 444:fe671cd76ecc
383 $fetch_meta = 1 unless ($tmp1 < $tmp2); 383 $fetch_meta = 1 unless ($tmp1 < $tmp2);
384 } 384 }
385 385
386 # Fetch or read the cache 386 # Fetch or read the cache
387 my $meta_str; 387 my $meta_str;
388 if ($fetch_meta || opt_chk_book("force_update")) 388 if ($fetch_meta || opt_chk_bool("force_update"))
389 { 389 {
390 my $uri = opt_get("tiehallinto_meta_url"); 390 my $uri = opt_get("tiehallinto_meta_url");
391 print STDERR "Fetching Tiehallinto static meta data from $uri\n" if (opt_get_int("debug") > 1); 391 print STDERR "Fetching Tiehallinto static meta data from $uri\n" if (opt_get_int("debug") > 1);
392 my $res = fetch_http($uri); 392 my $res = fetch_http($uri);
393 die("Failed to fetch $uri data.\n") unless ($res->code <= 200 && $res->code <= 201); 393 die("Failed to fetch $uri data.\n") unless ($res->code <= 200 && $res->code <= 201);