#
# Get the site code.
+my ($debug, $raw);
my @sort;
while ($ARGV[0] =~ /^-/ && @ARGV > 1) {
my @f = split //, shift @ARGV;
push @sort, 'taf' if $f eq 't' && ! grep $_ eq 'taf', @sort;
push @sort, 'staf' if $f eq 's' && ! grep $_ eq 'staf', @sort;
push @sort, 'metar' if $f eq 'm' && ! grep $_ eq 'metar', @sort;
+ $debug++ if $f eq 'x';
+ $raw++ if $f eq 'r';
}
}
push @sort, 'metar' unless @sort;
} else {
$m->metar($metar);
}
+ print $m->raw, "\n" if $raw;
+ print join "\n", $m->as_chunk_strings, "\n" if $debug;
print $m->as_string, "\n";
} else {