#!/usr/bin/perl

use SOAP::Lite;
use DateTime;

my $lattitude = 28.3887;
my $longitude = -81.4773;
my $numDays = 6;            # up to 7 days
my $format = '12 hourly';   # '12 hourly' or '24 hourly'
my $xml_file = 'forecast.xml';

my $dt = DateTime->now;
$dt->set_time_zone('local');
my $startDate = $dt->strftime('%Y-%m-%d%z');
$startDate =~ s/(\d{2})(\d{2})$/$1:$2/; # final format: "2005-01-24-06:00"

my $serviceURI = 'http://weather.gov/forecasts/xml';
my $method = 'NDFDgenByDay';
my $endpoint = "$serviceURI/SOAP_server/ndfdXMLserver.php";
my $soapAction = "$serviceURI/DWMLgen/wsdl/ndfdXML.wsdl#$method";

my $weather = SOAP::Lite->new(uri => $soapAction,
                            proxy => $endpoint);
my $response = $weather->call(
   SOAP::Data->name($method)
     => SOAP::Data->type(decimal => $lattitude)->name('latitude'),
     => SOAP::Data->type(decimal => $longitude)->name('longitude'),
     => SOAP::Data->type(date    => $startDate)->name('startDate'),
     => SOAP::Data->type(integer => $numDays  )->name('numDays'),
     => SOAP::Data->type(string  => $format   )->name('format')
   );

if ($response->fault) {
     printf "A fault (%s) occurred: %s\n",
     $response->faultcode, $response->faultstring;
} else {
     open(OUT, ">$xml_file");
     print OUT $response->result;
}