added cgi_weather

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

diff --git a/Geo/TAF/example/fetch_taf.pl b/Geo/TAF/example/fetch_taf.pl
deleted file mode 100755 (executable)
index 7a2451d..0000000
--- a/Geo/TAF/example/fetch_taf.pl
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/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
-# normal TAF for an airport.
-#
-# Given an airport site code on the command line, fetch_taf.pl
-# fetches the normal 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/mgettaf.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__
-
-