add the Geo::TAF module

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

diff --git a/Geo/TAF/example/fetch_staf.pl b/Geo/TAF/example/fetch_staf.pl
new file mode 100755 (executable)
index 0000000..d2482d1
--- /dev/null
+++ b/Geo/TAF/example/fetch_staf.pl
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w
+
+# $Id$
+
+# this has been taken from Geo::METAR
+#
+# Brief Description
+# =================
+#
+# fetch_staf.pl is a program that demonstrates how to get the current
+# short TAF for an airport.
+#
+# Given an airport site code on the command line, fetch_staf.pl
+# fetches the short TAF and displays it on the
+# command-line. For fun, here are some example airports:
+#
+# LA     : KLAX
+# Dallas : KDFW
+# Detroit: KDTW
+# Chicago: KMDW
+#
+# and of course: EGSH (Norwich)
+#
+#
+# Get the site code.
+
+my $site_code = uc shift @ARGV;
+
+die "Usage: $0 <site_code>\n" unless $site_code;
+
+# Get the modules we need.
+
+use Geo::TAF;
+use LWP::UserAgent;
+use strict;
+
+my $ua = new LWP::UserAgent;
+
+my $req = new HTTP::Request GET =>
+  "http://weather.noaa.gov/cgi-bin/mgetstaf.pl?cccc=$site_code";
+
+my $response = $ua->request($req);
+
+if (!$response->is_success) {
+
+    print $response->error_as_HTML;
+    my $err_msg = $response->error_as_HTML;
+    warn "$err_msg\n\n";
+    die "$!";
+
+} else {
+
+    # Yep, get the data and find the TAF.
+
+    my $m = new Geo::TAF;
+    my $data;
+    $data = $response->as_string;               # grap response
+    $data =~ s/\n//go;                          # remove newlines
+    $data =~ m/($site_code\s\d+Z.*?)</go;       # find the TAF string
+    my $taf = $1;                             # keep it
+
+    # Sanity check
+
+    if (length($taf)<10) {
+        die "TAF is too short! Something went wrong.";
+    }
+
+    # pass the data to the TAF module.
+    $m->taf($taf);
+
+    print $m->as_string, "\n";
+
+} # end else
+
+exit;
+
+__END__
+
+