This perl program is a SOAP server intended to demonstrate SOAP web services
for providing Ocean Observing System Data.  
<p>
On this site, the data is encoded as constants in this file.  
<p>This
program could be installed at different sites and modified to serve
data from other sources.


<hr>
<a href="oostech.cgi?listProgram">This SOAP server</a> has a WSDL at 
<a href="http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl">oostech.cgi?wsdl</a>

and may be queried for the salinity data with... 

<ul><li>one-liner perl scripts like these:
<pre>
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print getLatest('salinity')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print getLatest('windspeed')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatest('salinity')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatest('datetime')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatest('winddirection')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatest('windspeed')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatest('temperature')"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print hi()"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print bye()"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print wsdl()"
perl "-MSOAP::Lite service=>'http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'" -le "print xmlGetLatestEasyOBJ('salinity')"
</pre>


<li>A Perl client:
<pre>
  #!perl -w
  use SOAP::Lite;
  print SOAP::Lite 
    -> uri('http://sura-vims-pe6600-1.vims.edu/Demo')
    -> proxy('http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi')
    -> getLatest('salinity')
    -> result;
</pre>


<li>Some <a href="http://www.mathworks.com/">Matlab</a> commands

<pre>
   wsdlURL='http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl'
   className = createClassFromWsdl(wsdlURL)
   oostechService = myServiceHandlerService
   help getLatest
   getLatest(oostechService,'salinity','bbox')

</pre>

<li> Some <a href="http://www.r-project.org/">R</a> commands:

<pre>
   # Get the R SOAP interface:
   # install.packages(c('RCURL',SSOAP'),repos='http://www.omegahat.org/R') 
   library(SSOAP)
   sserver<-SOAPServer("sura-vims-pe6600-1.vims.edu", "~drf/cgi-bin/oostech.cgi")
   .SOAP(sserver,"getLatest", c('salinity'),
             action=("http://sura-vims-pe6600-1.vims.edu/Demo"))
</pre>

</ul>

<p>Additionally, this program also acts as a cgi server that will serve the latest salinity data as:
<ul><li><a href="oostech.cgi?getLatest">oostech.cgi?getLatest</a>
<li><a href="oostech.cgi?xmlGetLatest">oostech.cgi?xmlGetLatest</a>
</ul>


<p>This code was written using the following references:

<ul>
<li><a href="http://www.perl.com/pub/a/2001/01/soap.html">perl.com:Quick Start with SOAP</a>
<li><a href="http://guide.soaplite.com/">SOAP::Lite guide</a>
<li><a href="http://www.soaplite.com/">Perl SOAP::Lite</a>
<li><a href="http://search.cpan.org/dist/XML-Writer/Writer.pm">Perl XML::Writer</a>
</ul>