soap-lc 0.0.1 → 0.0.2

data/COPYING

@@ -1,4 +1,4 @@
-		    GNU GENERAL PUBLIC LICENSE
+ 		    GNU GENERAL PUBLIC LICENSE
 		       Version 2, June 1991
 
  Copyright (C) 1989, 1991 Free Software Foundation, Inc.

data/README

@@ -15,6 +15,9 @@ SOAP Lite Client provides support for developing clients interfaces from WSDL fi
 === 0.0.1: 
 * Initial release. So...
 
+=== TODO:
+* Add MTOM support (see http://www.javapassion.com/handsonlabs/wsmtom/, http://mtom4ruby.blogspot.com/ and http://www.w3.org/TR/soap12-mtom/)
+
 == SYNOPSIS:
 
 	require 'soap/lc'

data/examples/HelloService.wsdl

@@ -0,0 +1,49 @@
+<definitions name="HelloService"
+   targetNamespace="http://www.examples.com/wsdl/HelloService.wsdl"
+   xmlns="http://schemas.xmlsoap.org/wsdl/"
+   xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+   xmlns:tns="http://www.examples.com/wsdl/HelloService.wsdl"
+   xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ 
+   <message name="SayHelloRequest">
+      <part name="firstName" type="xsd:string"/>
+   </message>
+   <message name="SayHelloResponse">
+      <part name="greeting" type="xsd:string"/>
+   </message>
+
+   <portType name="Hello_PortType">
+      <operation name="sayHello">
+         <input message="tns:SayHelloRequest"/>
+         <output message="tns:SayHelloResponse"/>
+      </operation>
+   </portType>
+
+   <binding name="Hello_Binding" type="tns:Hello_PortType">
+   <soap:binding style="rpc"
+      transport="http://schemas.xmlsoap.org/soap/http"/>
+   <operation name="sayHello">
+      <soap:operation soapAction="sayHello"/>
+      <input>
+         <soap:body
+            encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+            namespace="urn:examples:helloservice"
+            use="encoded"/>
+      </input>
+      <output>
+         <soap:body
+            encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+            namespace="urn:examples:helloservice"
+            use="encoded"/>
+      </output>
+   </operation>
+   </binding>
+
+   <service name="Hello_Service">
+      <documentation>WSDL File for HelloService</documentation>
+      <port binding="tns:Hello_Binding" name="Hello_Port">
+         <soap:address
+            location="http://www.examples.com/SayHello/">
+      </port>
+   </service>
+</definitions>

data/examples/StockQuote.wsdl

@@ -0,0 +1,64 @@
+<?xml version="1.0"?>
+<definitions name="StockQuote"
+             targetNamespace="http://example.com/stockquote.wsdl"
+             xmlns:tns="http://example.com/stockquote.wsdl"
+             xmlns:xsd1="http://example.com/stockquote.xsd"
+             xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+             xmlns="http://schemas.xmlsoap.org/wsdl/">
+
+  <types>
+    <schema targetNamespace="http://example.com/stockquote.xsd"
+            xmlns="http://www.w3.org/2000/10/XMLSchema">
+      <element name="TradePriceRequest">
+        <complexType>
+          <all>
+            <element name="tickerSymbol" type="string"/>
+          </all>
+        </complexType>
+      </element>
+      <element name="TradePrice">
+         <complexType>
+           <all>
+             <element name="price" type="float"/>
+           </all>
+         </complexType>
+      </element>
+    </schema>
+  </types>
+
+  <message name="GetLastTradePriceInput">
+    <part name="body" element="xsd1:TradePriceRequest"/>
+  </message>
+
+  <message name="GetLastTradePriceOutput">
+    <part name="body" element="xsd1:TradePrice"/>
+  </message>
+
+  <portType name="StockQuotePortType">
+    <operation name="GetLastTradePrice">
+      <input message="tns:GetLastTradePriceInput"/>
+      <output message="tns:GetLastTradePriceOutput"/>
+    </operation>
+  </portType>
+
+  <binding name="StockQuoteSoapBinding" type="tns:StockQuotePortType">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="GetLastTradePrice">
+      <soap:operation soapAction="http://example.com/GetLastTradePrice"/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+      <output>
+        <soap:body use="literal"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="StockQuoteService">
+    <documentation>My first service</documentation>
+    <port name="StockQuotePort" binding="tns:StockQuoteSoapBinding">
+      <soap:address location="http://example.com/stockquote"/>
+    </port>
+  </service>
+
+</definitions>

data/examples/mono/NumberService.asmx

@@ -0,0 +1,29 @@
+<%@ WebService Language="C#" Class="MathService.MathService" %>
+ 
+using System;
+using System.Web.Services;
+ 
+namespace MathService
+{
+	[WebService (Namespace = "http://tempuri.org/NumberService")]
+	public class MathService : WebService
+	{
+		[WebMethod]
+		public int AddNumbers (int number1, int number2)
+		{
+			return number1 + number2;
+		}
+ 
+		[WebMethod]
+		public int SubtractNumbers (int number1, int number2)
+		{
+			return number1 - number2;
+		}
+		
+		[WebMethod]
+		public string HelloWorld( )
+		{
+			return "Hello World!";
+		}
+	}
+}

data/examples/mono/README.txt

@@ -0,0 +1,3 @@
+This sample need Mono (http://www.mono-project.com).
+
+Once mono is installed, run xsp in this directory...

data/examples/mono/index.html

@@ -0,0 +1,6 @@
+<html>
+<title>SOAP::LC examples</title>
+<body>
+	<a href="NumberService.asmx">NumberService.asmx</a><br />
+</body>
+</html>

data/examples/t_000.rb

@@ -0,0 +1,21 @@
+$:.unshift( "../lib" )
+require "soap/lc"
+require 'pp'
+
+#r = SOAP::LC["http://tux0.vidal.net:8080/merlin-service/services/PackService?wsdl"].searchByName( :name => "actos" )
+#r.response
+
+#puts "-------------------------"
+#pp SOAP::LC["http://tux0.vidal.net:8080/merlin-service/services/IndicationService?wsdl"].searchByName( :name => "Cardiopathie" ).response.to_h
+
+#puts "-------------------------"
+#r = SOAP::LC["http://tux0.vidal.net:8080/merlin-service/services/PackService?wsdl"].searchRefundingRateByIndicationId( :packId => 31664, :indicationId => 4416 )
+
+#puts r.envelope
+
+#pp r.response.to_h
+
+# puts "--------------------------------------------"
+
+r = SOAP::LC["http://tux0.vidal.net:8080/merlin-service/services/InteractionService?wsdl"].getInteractionCouplesForProductIds( :int => [1524, 15070, 10852, 28417, 86585], :severity => "TAKE_INTO_ACCOUNT")
+pp r.response.to_h

data/examples/t_001.rb

@@ -0,0 +1,51 @@
+$:.unshift( "../lib" )
+require 'soap/lc'
+require 'pp'
+require 'base64'
+
+wsdl = "http://www.guru4.net/articoli/javascript-soap-client/demo/webservicedemo.asmx?WSDL"
+#wsdl = "http://soap-lc.rubyforge.org/this_file_does_not_exist.wsdl"
+# wsdl = "toto.wsdl"
+s = SOAP::LC.new( ).wsdl( wsdl ).call( "HelloWorld" )
+puts s.uri
+pp s.headers
+puts s.envelope
+
+puts "----------------"
+
+r = s.result
+# puts r.error
+puts r.to_xml
+
+puts "========================================="
+
+e = '<SOAP-ENV:Envelope 
+          xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
+          xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
+          xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+          xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+          SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+<SOAP-ENV:Header/>
+<SOAP-ENV:Body>
+<HelloWorld xmlns="http://www.guru4.net/"/>
+</SOAP-ENV:Body>
+</SOAP-ENV:Envelope>'
+
+e = '<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:gur="http://www.guru4.net/">
+   <soap:Header/>
+   <soap:Body>
+      <gur:HelloWorld/>
+   </soap:Body>
+</soap:Envelope>'
+
+s = SOAP::Request.request( e, wsdl, "SOAPAction" => "http://www.guru4.net/HelloWorld" )
+puts s.uri
+pp s.headers
+puts s.envelope
+
+puts "----------------"
+
+r = s.result
+puts r.to_xml
+
+puts "========================================="

data/examples/t_002.rb

@@ -0,0 +1,34 @@
+$:.unshift( "../lib" )
+require "soap/lc"
+require 'pp'
+
+wsdl = "http://localhost:8080/NumberService.asmx?wsdl"
+
+r = SOAP::LC.wsdl( wsdl, "MathServiceSoap" ).call( "AddNumbers", :number1 => 4, :number2 => 7 )
+
+puts r.response['AddNumbersResult']
+
+# puts "----------------"
+# 
+# 
+# 
+# e = '<SOAP-ENV:Envelope 
+#           xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
+#           xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
+#           xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+#           xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+#           SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+# <SOAP-ENV:Header/>
+# <SOAP-ENV:Body>
+# <AddNumbers xmlns="http://tempuri.org/NumberService">
+# <number1>4</number1>
+# <number2>7</number2>
+# </AddNumbers>
+# </SOAP-ENV:Body>
+# </SOAP-ENV:Envelope>'
+# s = SOAP::Request.request( e, wsdl, "SOAPAction" => "http://tempuri.org/NumberService/AddNumbers" )
+# puts s.uri
+# pp s.headers
+# puts s.envelope
+# 
+# pp s.result.to_h

data/examples/t_00X.rb

@@ -0,0 +1,18 @@
+$:.unshift( "../lib" )
+require 'soap/lc/request'
+require 'pp'
+
+e = %w(<SOAP-ENV:Envelope 
+                 xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
+                 xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
+                 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+                 xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+                 SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+       <SOAP-ENV:Header/>
+         <SOAP-ENV:Body>
+           <HelloWorld xmlns="urn:MyWebService">
+             <from>Greg</from>
+           </HelloWorld>
+         </SOAP-ENV:Body>
+       </SOAP-ENV:Envelope>)
+puts SOAP::Request.request( e, "http://localhost:3000/hello/wsdl", "SOAPAction" => "my.soap.action" ).envelope

data/examples/t_010.rb

@@ -0,0 +1,43 @@
+require "test/unit"
+$:.unshift( "../lib" )
+require 'soap/lc'
+
+class XsltTest < Test::Unit::TestCase
+  def setup
+    @wsdl = "sample.wsdl"
+    @s = SOAP::LC.new( )
+  end
+  
+  def test_instance
+    assert_instance_of( SOAP::LC, @s )
+  end
+  
+  def test_wsdl_load
+    @w = @s.wsdl( @wsdl )
+    assert_instance_of( SOAP::WSDL, @w )
+  end
+  
+  def test_cant_open_file
+    assert_raise SOAP::LCError do
+      w = @s.wsdl( "this_file_does_not_exist.wsdl" )
+    end
+  end
+
+  def test_cant_open_uri
+    assert_raise SOAP::LCError do
+      w = @s.wsdl( "http://localhost:9999/this_file_does_not_exist.wsdl" )
+    end
+  end
+
+  def test_file_404
+    assert_raise SOAP::LCError do
+      w = @s.wsdl( "http://soap-lc.rubyforge.org/this_file_does_not_exist.wsdl" )
+    end
+  end
+  
+  def test_undefine_method
+    assert_raise NoMethodError do
+      @w.thisMethodDoesNotExist( )
+    end
+  end
+end

data/lib/soap/lc.rb

@@ -1,43 +1,35 @@
 require 'soap/lc/wsdl'
 
-class String
-  def nns
-    self.gsub( /^[^:]*:/, "" )
-  end
-end
-
-class Hash
-  def keys_to_sym!( )
-    self.each {|k, v| 
-      self.delete(k)
-      self[k.to_sym] = v
-    }
-  end
-end
-
 module SOAP
   class LC
     # Create a new SOAP Lite Client
     # 
     #   s = WSDL::LC.new( )
     #     # => #<SOAP::LC:0xNNNNNN>
-    def initialize( )
+    def initialize( ) #:nodoc:
     end
     
     # Set the WSDL URL and return a SOAP::WSDL object
     # 
-    #   s = WSDL::LC.new( ).wsdl( "http://my.wsdl.com" )
+    # Parameters :
+    #   +uri+ : path to the WSDL
+    #   +binding+ : binding name (optional)
+    #
+    # Example :
+    #   s = WSDL::LC.wsdl( "http://my.wsdl.com", "HelloService" )
     #     # => #<SOAP::WSDL:0xNNNNNN>
-    def wsdl( uri )
-      return SOAP::WSDL.new( uri )
+    def self.wsdl( uri, binding = nil )
+      return SOAP::WSDL.new( uri, binding )
     end
     
     # Create a new SOAP Lite client and set the WSDL URL
     # Return a SOAP::WSDL object.
     #
+    # Use this if binding is non ambigous
+    #
     #   s = SOAP::LC["http://my.wsdl.com"]
     def self.[]( uri )
-      new( ).wsdl( uri )
+      SOAP::LC.wsdl( uri, nil )
     end
   end
 end

data/lib/soap/lc/core_ext.rb

@@ -0,0 +1,28 @@
+class String #:nodoc:
+  def nns
+    self.gsub( /^[^:]*:/, "" )
+  end
+end
+
+class Hash #:nodoc:
+  def keys_to_sym!( )
+    self.each {|k, v| 
+      self.delete(k)
+      self[k.to_sym] = v
+    }
+  end
+
+  def kvTable( k, v )
+    self[k] = v
+#    if( self.keys.include?(k) )
+#      if self[k].class == Array
+#        self[k] << v
+#      else
+#        self[k] = [self[k], v]
+#      end
+#    else
+#      self[k] = v
+#    end
+  end  
+end
+

data/lib/soap/lc/request.rb

@@ -1,12 +1,18 @@
+require 'soap/lc/core_ext'
+
+require 'soap/lc/xsd'
 require 'soap/lc/response'
+require 'soap/lc/version'
+require 'soap/lc/error'
 
 module SOAP
   class Request
-    def initialize( wsdl ) #:nodoc:
+    def initialize( wsdl, binding ) #:nodoc:
       @wsdl = wsdl
+      @binding = binding
       @request = nil
     end
-    
+
     # Call a method for the current Request and get a SOAP::Response
     #
     # Example:
@@ -17,8 +23,42 @@ module SOAP
     def method_missing( id, *args ) 
       call( id.id2name, args[0] )
     end
-    
-    # Call a method for the current Request and get a SOAP::Response
+
+    # Create a new SOAP::Request with the given envelope, uri and headers
+    #
+    # Example:
+    #   e = '<SOAP-ENV:Envelope 
+    #                    xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
+    #                    xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
+    #                    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+    #                    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    #                    SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+    #          <SOAP-ENV:Header/>
+    #            <SOAP-ENV:Body>
+    #              <HelloWorld xmlns="urn:MyWebService">
+    #                <from>Greg</from>
+    #              </HelloWorld>
+    #            </SOAP-ENV:Body>
+    #          </SOAP-ENV:Envelope>'
+    #   r = SOAP::Request.request( e, "http://localhost:3000/hello/wsdl", "SOAPAction" => "my.soap.action" )
+    def self.request( envelope, uri, headers = {} )
+      r = new( nil, nil )
+      r.r( envelope, uri, headers )
+      return r
+    end
+    def r( envelope, uri, headers ) #:nodoc:
+      @request = {
+        :headers  => make_header( envelope, headers ),
+        :envelope => envelope,
+        :uri      => uri,
+        :wsdl     => nil,
+        :response => nil,
+        :binding  => @binding,
+        :method   => nil
+      }
+    end
+
+    # Call a method for the current Request
     #
     # Example:
     #   wsdl = SOAP::LC.new( ).wsdl( "http://..." )
@@ -27,10 +67,17 @@ module SOAP
     #     # => #<SOAP::Response:0xNNNNNN>
     def call( methodName, args )
       args = (args || {}).keys_to_sym!
-      
+
       # Get Binding
-      binding = @wsdl.bindings.getBindingForOperationName( methodName )
-      raise SOAP::LCNoMethodError, "Undefined method `#{methodName}'" if binding.nil?
+      binding = @wsdl.bindings.getBindingForOperationName( @binding, methodName )
+      if binding.size == 0
+        raise SOAP::LCNoMethodError, "Undefined method `#{methodName}'"
+      elsif binding.size > 1
+        raise SOAP::LCError, "Ambigous method name `#{methodName}', please, specify a binding name"
+      else
+        binding = binding[0]
+        @binding = binding.name
+      end
 
       # Get Binding Operation
       binding_operation = binding.operations[methodName]
@@ -41,11 +88,10 @@ module SOAP
 
       # Get message for input operation
       input_message = @wsdl.messages[portType_operation[:input][:message].nns]
-      
+
       # Create method
       soap_method = "<#{methodName} xmlns=\"#{@wsdl.targetNamespace}\">\n"
       input_message.parts.each do |_, attrs|
-
         case attrs[:mode]
           when :type
             if SOAP::XSD::ANY_SIMPLE_TYPE.include?( attrs[attrs[:mode]].nns )
@@ -74,11 +120,11 @@ module SOAP
               else
                 raise SOAL::LCWSDLError, "Malformated element `#{attrs[attrs[:mode]]}'"
             end
-            
+        
             ## TODO ---------- USE element[:key]
           else 
             raise SOAP::LCWSDLError, "Malformated part #{attrs[:name]}"
-          end
+        end
       end
       soap_method += "</#{methodName}>\n"
 
@@ -88,10 +134,7 @@ module SOAP
       end
 
       # Create headers
-      headers = {
-        'Content-Type' => 'application/soap+xml; charset=utf-8',
-        'Content-Length' => "#{envelope.length}"
-      }
+      headers = Hash.new
       # Add SOAPAction to headers (if exist)
       action = begin
         binding_operation[:soapAction]
@@ -99,44 +142,60 @@ module SOAP
         nil
       end
       headers['SOAPAction'] = action unless action.nil? or action.length == 0
-      
+
       # Search URI
       service_port = @wsdl.services.getServicePortForBindingName( binding.name )
       address = service_port[:address]
-      
+
       # Complete request
       @request = {
-        :headers  => headers,
+        :headers  => make_header( envelope, headers ),
         :envelope => envelope,
         :uri      => address,
-        :response => @wsdl.messages[portType_operation[:output][:message].nns].name
+        :wsdl     => @wsdl,
+        :response => @wsdl.messages[portType_operation[:output][:message].nns].name,
+        :binding  => @binding,
+        :method   => methodName
       }
       
       return self
     end
-    
+
     # Get the SOAP Body for the request
     def soap_body( soap_method )
       "<SOAP-ENV:Body>\n" + soap_method + "</SOAP-ENV:Body>\n"
     end
-    
+
     # Send request to the server and get a response (SOAP::Response)
     def response( )
       return( SOAP::Response.new( @request ) )
     end
     alias_method :result, :response
-    
+
     # Get the SOAP Envelope for the request
     def envelope( )
       @request[:envelope] || nil
     end
-    
+
     # Get request headers
     def headers( )
       @request[:headers] || nil
     end
     
+    # Get request URI
+    def uri()
+      @request[:uri] || nil
+    end
+
     private
+    def make_header( e, h = {} )
+      {
+        'User-Agent' => "SOAP::LC (#{SOAP::LC::VERSION}); Ruby (#{VERSION})",
+        'Content-Type' => 'text/xml', #'application/soap+xml; charset=utf-8',
+        'Content-Length' => "#{e.length}"
+      }.merge( h )
+    end
+
     def soap_envelop( &b )
       "<SOAP-ENV:Envelope 
           xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\"
@@ -147,7 +206,7 @@ module SOAP
         yield() +
       '</SOAP-ENV:Envelope>'
     end
-    
+
     def soap_header()
       "<SOAP-ENV:Header/>\n"
     end