Ok - actually, I separated things back out, and it seems to be a SOAP problem to begin with.
The forecast.pl script only makes the request, and then saves it to an XML file.
#!/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;
}
It is giving the following error:
not well-formed (invalid token) at line 77, column 13, byte 3304 at /usr/lib/perl5/vendor_perl/5.12.2/i686-linux/XML/Parser.pm line 187
Here is the Trace if it is any help:
https://dl.dropbox.com/u/2859483/putty071742.log
I verified with the original author that the script is currently working on his site right now.
So I am not sure where to go next with getting this to work.
Thanks for any insight!
John
