Hi Folks,
IN an effort to get some soap experience, i pulled Soap::lite and have been
playing around with it
calling into NOAA.
Sadly, its not working well and I dont see updates since 2001.
Not working is defined as variable loading errors.
I set $product, but the outbound request isnt including it! :(
This appears to be an abandoned project.
Any of you using this perl/soap code?
Code listing below for the curious, tia, ...
# Set up the input required by the NDFD web service
#
$latitude = 36.981;
$longitude = -121.874;
*$product = "time-series";*
$startTime = "";
$endTime = "";
$Unit = "e";
#
# Use SOAP::Lite to retrieve the NDFD XML data
# We use the web service's WSDL as input into creating the SOAP message
# We call the exposed function NDFDgen using SOAP::Data to ensure
SOAP::Lite
# gets the types correct
# The XML returned by the web service is saved as a string in $NDFD_XML
for later
# parsing
#
$NDFD_XML = SOAP::Lite
->service('
http://www.weather.gov/forecasts/xml/DWMLgen/wsdl/ndfdXML.wsdl')
->NDFDgen(SOAP::Data->name("latitude" => $latitude),
SOAP::Data->name("longitude" => $longitude),
* SOAP::Data->name("product" => $product),*
SOAP::Data->name("startTime" => $startTime),
SOAP::Data->name("endTime" => $endTime),
SOAP::Data->name("Unit" => $Unit),
SOAP::Data->name("weatherParameters" =>
\SOAP::Data->value(SOAP::Data->type('boolean')->name("maxt"
=> 1),
SOAP::Data->type('boolean')->name("mint" => 0),
SOAP::Data->type('boolean')->name("temp" => 0),
SOAP::Data->type('boolean')->name("dew" => 0),
SOAP::Data->type('boolean')->name("pop12" => 0),
SOAP::Data->type('boolean')->name("qpf" => 0),
SOAP::Data->type('boolean')->name("sky" => 0),
SOAP::Data->type('boolean')->name("snow" => 0),
SOAP::Data->type('boolean')->name("wspd" => 0),
SOAP::Data->type('boolean')->name("wdir" => 0),
SOAP::Data->type('boolean')->name("ws" => 0),
SOAP::Data->type('boolean')->name("waveh" => 0),
SOAP::Data->type('boolean')->name("icons" => 0),
SOAP::Data->type('boolean')->name("rh" => 0),
SOAP::Data->type('boolean')->name("appt" => 0),
SOAP::Data->type('boolean')->name("incw34" => 0),
SOAP::Data->type('boolean')->name("incw50" => 0),