add new short form cgi program

[spider.git] / Geo / TAF / example / fetch_weather.pl

diff --git a/Geo/TAF/example/fetch_weather.pl b/Geo/TAF/example/fetch_weather.pl
index 178a6910439d7a7834d8007ac7e3f5f661d163e0..8d01a225b73be7a557dbf7fee935ed522dd70b00 100755 (executable)
--- a/Geo/TAF/example/fetch_weather.pl
+++ b/Geo/TAF/example/fetch_weather.pl
@@ -25,6 +25,7 @@
 #
 
 # Get the site code.
+my ($debug, $raw);
 my @sort;
 while ($ARGV[0] =~ /^-/ && @ARGV > 1) {
        my @f = split //, shift @ARGV;
@@ -33,6 +34,8 @@ while ($ARGV[0] =~ /^-/ && @ARGV > 1) {
                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;
@@ -81,6 +84,8 @@ foreach $sort (@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 {