#!/usr/bin/perl # Author: Kevin P. Inscoe . # File: nhc_tpcdga.pl # Date of creation: July 16, 2003. # Warranty: None expressed or implied. # License: The Open Software License. V1.1 http://www.opensource.org/licenses/osl.php # # OSI Certified Open Source Software. http://www.opensource.org/licenses/ # # Prerequisites: Perl 5.004 (minimum). # The purpose of this program is # Requirements require 5.004; use strict; use CGI; # Generic CGI support use CGI::Carp qw(fatalsToBrowser); use LWP::UserAgent; use HTTP::Request::Common "GET"; # Globals my $baseurl = "http://www.nhc.noaa.gov/tafb/"; my $hour_3 = "danger_atl_03.gif"; my $hour_9 = "danger_atl_09.gif"; my $hour_15 = "danger_atl_15.gif"; my $hour_21 = "danger_atl_21.gif"; # Locals my $revision="1.0"; my $progname = "nhc_tpcdga.pl"; # Display headers print "Content-type\:image/gif\n\n"; # Determine TOD in UTC (my $Second, my $Minute, my $Hour, my $Day, my $Month, my $Year, my $WeekDay, my $DayOfYear, my $IsDST) = gmtime(time); my $url = $baseurl . $hour_15; if (($Hour ge 21) & ($Hour lt 3)) { $url = $baseurl . $hour_21; } if (($Hour ge 3) & ($Hour lt 9)) { $url = $baseurl . $hour_3; } if (($Hour ge 9) & ($Hour lt 15)) { $url = $baseurl . $hour_9; } # Fetch image my $ua = new LWP::UserAgent; $ua->agent("Wofat/0.1" . $ua->agent); my $res = $ua->request(GET $url); my $body = $res->content; if ($res->is_success) { print "$body"; } else { print "Could not retrieve remote site. " . $res->status_line . "\n"; }