#!/usr/bin/perl -Tw

use SOAP::Transport::HTTP;
# use Pod::WSDL;  # perl 5.8.5 minimum!
use XML::Writer;
use CGI qw(:standard);
use Data::Dumper;

use strict;

my $doc=<<'EOT';
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.

EOT

my ($parameter, $result) = 0;


#if ( $cgi->dispatch_with =={}) {
# print header, "<pre>",Dumper($cgi),"</pre>";
#
#}


if ( $ENV{HTTP_SOAPACTION} ) {  # Answer both SOAP and non-SOAP requests

my $cgi=SOAP::Transport::HTTP::CGI   
  -> dispatch_to('Demo');
  $cgi-> handle;

} else {  # Try to process as a plain CGI request 
my $query = new CGI;

$_ = $query->param('keywords'); # attempt the URL?keywords actions
SWITCH : {

    if (/^wsdl$/ ) {
	print "Content-type: application/xml\n\n",Demo::wsdl(); last ;};

   if (/^listProgram$/)  {
     print "Content-type: text/plain\n\n";
     open(FILE,"<$0");
     while (<FILE>) {print $_ };
     close(FILE); 
     last;}; 
   if (/^getLatest/) {
       $parameter = 'salinity';
     print "Content-type: text/plain\n\n",
           (Demo::getLatest('Demo',$parameter))[0];
     last;};
    if (/^xmlGetLatest$/) {
      $result = [Demo::xmlGetLatest('Demo','salinity')]->[0];
      $result = (Demo::xmlGetLatest('Demo','salinity','bb'))[0];
     print "Content-type: application/xml\n\n",
           $result;
     last;};

   # default case :

my $wsdlLocation='http://sura-vims-pe6600-1.vims.edu/~drf/cgi-bin/oostech.cgi?wsdl';

print "Content-type: text/html\n\n\n";

print <<"EOT";
$doc
<hr>
<a href="oostech.cgi?listProgram">This SOAP server</a> has a WSDL at 
<a href="$wsdlLocation">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=>'$wsdlLocation'" -le "print getLatest('salinity')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print getLatest('windspeed')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print xmlGetLatest('salinity')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print xmlGetLatest('datetime')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print xmlGetLatest('winddirection')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print xmlGetLatest('windspeed')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print xmlGetLatest('temperature')"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print hi()"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print bye()"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -le "print wsdl()"
perl "-MSOAP::Lite service=>'$wsdlLocation'" -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>

EOT

#print "<pre>ENV:\n",Dumper(\%ENV);
#print "CGI Vars:\n",Dumper(\{$query->Vars}),"</pre>\n";


} # end of CGI processing

1;
} # end of service

package Demo;
use Data::Dumper;



=begin WSDL

_RETURN $string The 'hello, world' string

=end WSDL

=cut

sub hi {                     
  return "hello, world from $0";     
}

=begin WSDL

_RETURN $string A goodbye string

=end WSDL

=cut

sub bye {                    
  return "goodbye, cruel world";
}

=begin WSDL

_RETURN $string the wsdl

=end WSDL

=cut

sub wsdl{


    my $basename = $0;
    $basename =~ s|^.*/||;

# my $pod = new Pod::WSDL(
#  source => "$0",
#   location => "http://localhost/~drf/cgi-bin/$basename",
#    pretty => 1,
#     withDocumentation => 1);

#      return $pod->WSDL;

# Pod.WSDL needs perl 5.8.5 so...
my $pod = '';
open (WSDL,'<','oostech_wsdl.xml');

while(<WSDL>) { $pod .= $_ }

return $pod;


      
}



=begin WSDL

_return $string the latest parameter reading (Currently a constant)

_IN parameter $string A parameter of interest

_IN boundingBox $string An optional bounding box to search

=end WSDL

=cut

sub getLatest {

my ($class, $parameter, $boundingBox) = @_;
my $result = -9999;

# Simulate a text file in memory and read from it
my $datafilevar=<<'EOT';
#datetime, winddir, windspeed, salinity, temperature
20051225T100100, 120, 5.5, 13, 45.2
20051227T131600, 180, 10.0, 14, 46.00
EOT

# set up some variables
my %data;

open(DATAFILE, '<', \$datafilevar); # open the string
while (<DATAFILE>) { # loop for the last observation
   @data{'datetime','winddirection','windspeed','salinity','temperature'} = split(/,\s*/);
} 
close(DATAFILE);
 
$result = $data{$parameter};

return ($result);

} 


=begin WSDL

_return $string XML containing ioosData.xml of the lastest parameter data in the boundingbox

_IN parameter $string A parameter of interest

_IN boundingBox $string XML descriptor of the bounding box to search.

=end WSDL

=cut

sub xmlGetLatest {
  my ($package,$parameter, $boundingBox) = @_;
  my $openioosXML;

  my $GMLns = "http://www.opengis.net/gml";
  my $ioosns = "http://www.openioos.org/";
  my $xmlns = "http://fixme/";
  my $DublinNS = "http://purl.org/dc/elements/1.1/";
  my $defaultns = "http://mine.own.default.ns/";

my $writer = new XML::Writer(OUTPUT => \$openioosXML,
NAMESPACES => 1,
# NEWLINES => 1,
DATA_INDENT=>4, DATA_MODE => 1,
PREFIX_MAP => {
    $ioosns => 'openioos',
    $xmlns => 'xmlns',
    $DublinNS => 'dc',
    $GMLns => 'gml',
    $defaultns => ''
    }
);
 
# Simulate a text file in memory and read from it
my $datafilevar=<<'EOT';
#datetime, winddir, windspeed, salinity, temperature
20051225T100100, 120, 5.5, 13, 45.2
20051227T131600, 180, 10.0, 14, 46.00
EOT

my %latestObs;

#setup some metadata:

my  %units = ('datetime' => 'ISOtime',
            'winddirection' => 'degreesDecimalFromNorth',
            'windspeed' => 'mph',
            'salinity' => 'psu',
            'temperature' => 'degreesF');


open(DATAFILE, '<', \$datafilevar); # open the string
while (<DATAFILE>) { # loop for the last observation
   @latestObs{'datetime','winddirection','windspeed','salinity','temperature'} = split(/,\s*/);
} 
close(DATAFILE);

  $writer->xmlDecl("UTF-8");
  $writer->startTag([$ioosns,"ioosData"]);
#  $writer->startTag(         "ioosData");
#         $writer->startTag([platform,	 "class" => "simple");
         $writer->startTag("platform",	 
           "id" => "http://www.vims.edu/~drf/realtime#bouy1");
         $writer->emptyTag("typeOfPlatform",
           "id" => "http://www.vims.edu/~drf/realtime#bouy");
	 
  $writer->dataElement("urlPlatform",
          "http://www.vims.edu/~drf/realtime#bouy1");
  $writer->startTag('hasContentMetadata');
  $writer->startTag('metadata');
  $writer->dataElement([$DublinNS,"title"],"Latest $parameter Data from AUV");
  $writer->dataElement("description","How the data was collected");
  $writer->startTag([$DublinNS,'creator']);
  $writer->startTag('organization',id=>'http://www.openioos.org/org#mbari');
  $writer->dataElement("name","MBARI");
  $writer->dataElement("urlHome","http://www.mbari.org");
  $writer->dataElement("urlLogo","http://www.mbari.org/data/images/Logo_blue.gif");
  $writer->dataElement("personFullName",'');
  $writer->dataElement("personEmail",'');

  $writer->endTag('organization');
  $writer->endTag([$DublinNS,'creator']);
  $writer->endTag('metadata');
  $writer->endTag('hasContentMetadata');

  $writer->dataElement([$ioosns,'callingParameters'],
          'some char data','parameter'=> $parameter,
          'boundingBox'=>$boundingBox);
  
  $writer->startTag('observation');
  $writer->dataElement('parameterScalar',,$latestObs{$parameter},
     'id'=>"http://www.openioos.org/parameter#$parameter",
		       'uom'=>"http://www.openioos.org/units#$units{$parameter}");
  $writer->dataElement('latitude','32.00',
		       'uom'=>'http://www.openioos.org/units#degreesDecimal');
  $writer->dataElement('longitude','-79.00',
		       'uom'=>'http://www.openioos.org/units#degreesDecimal');
  $writer->dataElement('depth',1.0,
		       'uom'=>'http://www.openioos.org/units#meters');
  $writer->dataElement('dateTime',$latestObs{'datetime'},
		       'uom'=>'http://www.openioos.org/units#ISOtime');
  $writer->dataElement('qualityFlag',3,
		       'values'=>'http://www.openioos.org/flagValues');
  $writer->endTag('observation');

         $writer->endTag("platform");
  $writer->endTag([$ioosns,"ioosData"]);

  $writer->end();
  
  return ($openioosXML); 
}

1;






=begin WSDL

_return $string XML containing ioosData.xml of the lastest parameter data in the boundingbox.  From the oostech definition team emails.

_IN parameter $string A parameter of interest

_IN boundingBox $string XML descriptor of the bounding box to search.


=end WSDL

=cut

sub getLatestV20051219 {

    my ($package, $parameter, $boundingBox) = @_;

my $response= <<'EOT';

<?xml version="1.0" encoding="UTF-8"?>
<ioosData xmlns:openioos="http://www.openioos.org">
    <platform openioos:id="http://www.mbari.org/platform#auv1">
        <typeOfPlatform openioos:id="http://www.openioos.org/platform#auv"/>
        <!-- urlPlatform is the web link for this specific platform for
linking purposes in other applications -->
	<urlPlatform>http://www.mbari.org?platform=AUV1</urlPlatform>

        <hasContentMetadata>
            <metadata>
                <title>Latest Salinity Data from AUV</title>
                <description>Description of how the data was
collected</description>
                <creator>
                    <organization
openioos:id="http://www.openioos.org/org#mbari">
                        <name>MBARI</name>
                        <urlHome>http://www.mbari.org</urlHome>

<urlLogo>http://www.mbari.org/data/images/Logo_blue.gif</urlLogo>
                        <personFullName/>
                        <personEmail/>
                    </organization>
                </creator>
            </metadata>
        </hasContentMetadata>
    
        <observation>
            <parameterScalar
openioos:id="http://www.openioos.org/parameter#salinity"
		uom="http://www.openioos.org/units#psu">35</parameterScalar>
            <latitude
uom="http://www.openioos.org/units#degreesDecimal">32.00</latitude>
            <longitude
uom="http://www.openioos.org/units#degreesDecimal">-79.00</longitude>
            <depth uom="http://www.openioos.org/units#meters">1.0</depth>
            <dateTime>2001-01-01T00:00:00</dateTime>
		<!-- this is a high level quality flag [-9,0,1,2,3]
		referenced in QARTOD documentation -->
            <qualityFlag
values="http://www.openioos.org/flagValues>3</qualityFlag">
        </observation>
    
    </platform>
</ioosData>

EOT

return ($response);

}



1;