Mercurial > hg > egg-tcls
changeset 353:a52a983c0c14
Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 11 Dec 2015 22:19:21 +0200 |
parents | 19b363586b40 |
children | de411e7834aa |
files | fetch_weather.pl |
diffstat | 1 files changed, 25 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/fetch_weather.pl Fri Dec 11 22:16:18 2015 +0200 +++ b/fetch_weather.pl Fri Dec 11 22:19:21 2015 +0200 @@ -221,27 +221,37 @@ { $line++; chomp; - if (/(^\s*#|^\s*$)/) { + if (/(^\s*#|^\s*$)/) + { # Ignore comments and empty lines - } elsif (/^\s*\"?([a-zA-Z0-9_]+)\"?\s*=>?\s*(\d+),?\s*$/) { + } + elsif (/^\s*\"?([a-zA-Z0-9_]+)\"?\s*=>?\s*(\d+),?\s*$/) { my $key = lc($1); my $value = $2; if (defined($settings{$key})) { $settings{$key} = $value; - } else { + } + else + { mlog("[$filename:$line] Unknown setting '$key' = $value\n"); $errors = 1; } - } elsif (/^\s*\"?([a-zA-Z0-9_]+)\"?\s*=>?\s*\"(.*?)\",?\s*$/) { + } + elsif (/^\s*\"?([a-zA-Z0-9_]+)\"?\s*=>?\s*\"(.*?)\",?\s*$/) { my $key = lc($1); my $value = $2; - if (defined($settings{$key})) { + if (defined($settings{$key})) + { $settings{$key} = $value; - } else { + } + else + { mlog("[$filename:$line] Unknown setting '$key' = '$value'\n"); $errors = 1; } - } else { + } + else + { mlog("[$filename:$line] Syntax error: $_\n"); $errors = 1; } @@ -448,12 +458,16 @@ } } print STDERR $nrecords." records from FMI.\n" if (opt_get_int("debug") > 0); - } else { + } + else + { # defined print STDERR "Invalid XML received:\n"; print STDERR $res->decoded_content."\n\n"; } - } else { + } + else + { print STDERR "Error fetching FMI XML: ".$res->status_line."\n"; } } @@ -462,7 +476,8 @@ ### ### Output ### -if (opt_chk_valid("outfile", 1)) { +if (opt_chk_valid("outfile", 1)) +{ open(STDOUT, '>', opt_get("outfile")) or die("Could not open output file '".opt_get("outfile")."'.\n"); }