soap5r 2.0.0

data/sample/showcase/wsdl/salesforce/defaultDriver.rb

@@ -0,0 +1,166 @@
+# encoding: ASCII-8BIT
+require 'default.rb'
+
+require 'soap/rpc/driver'
+
+class Soap < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "https://www.salesforce.com/services/Soap/u/5.0"
+  MappingRegistry = ::SOAP::Mapping::Registry.new
+
+  Methods = [
+    [ "",
+      "login",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "login"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "loginResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "describeSObject",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeSObject"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeSObjectResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "describeGlobal",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeGlobal"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeGlobalResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "describeLayout",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeLayout"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "describeLayoutResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "create",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "create"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "createResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "update",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "update"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "updateResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "delete",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "delete"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "deleteResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "retrieve",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "retrieve"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "retrieveResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "convertLead",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "convertLead"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "convertLeadResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "getDeleted",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getDeleted"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getDeletedResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "getUpdated",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getUpdated"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getUpdatedResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "query",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "query"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "queryResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "queryMore",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "queryMore"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "queryMoreResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "search",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "search"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "searchResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "getServerTimestamp",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getServerTimestamp"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getServerTimestampResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "setPassword",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "setPassword"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "setPasswordResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "resetPassword",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "resetPassword"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "resetPasswordResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ],
+    [ "",
+      "getUserInfo",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getUserInfo"], true],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:partner.soap.sforce.com", "getUserInfoResponse"], true] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = MappingRegistry
+    init_methods
+  end
+
+private
+
+  def init_methods
+    Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        add_document_operation(*definitions)
+      else
+        add_rpc_operation(*definitions)
+        qname = definitions[0]
+        name = definitions[2]
+        if qname.name != name and qname.name.capitalize == name.capitalize
+          ::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
+            __send__(name, *arg)
+          end
+        end
+      end
+    end
+  end
+end
+

data/sample/showcase/wsdl/salesforce/soap/property

@@ -0,0 +1 @@
+client.protocol.http.ssl_config.ca_file = ca.pem

data/sample/soapheader/authheader/authmgr.rb

@@ -0,0 +1,42 @@
+# encoding: ASCII-8BIT
+class Authmgr
+  def initialize
+    @users = {
+      'NaHi' => 'passwd',
+      'HiNa' => 'wspass'
+    }
+    @sessions = {}
+  end
+
+  def login(userid, passwd)
+    userid and passwd and @users[userid] == passwd
+  end
+
+  # returns userid
+  def auth(sessionid)
+    @sessions[sessionid]
+  end
+
+  def create_session(userid)
+    while true
+      key = create_sessionkey
+      break unless @sessions[key]
+    end
+    @sessions[key] = userid
+    key
+  end
+
+  def get_session(userid)
+    @sessions.index(userid)
+  end
+
+  def destroy_session(sessionkey)
+    @sessions.delete(sessionkey)
+  end
+
+private
+
+  def create_sessionkey
+    Time.now.usec.to_s
+  end
+end

data/sample/soapheader/authheader/client.rb

@@ -0,0 +1,41 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+require 'soap/header/simplehandler'
+
+server = ARGV.shift || 'http://localhost:7000/'
+
+class ClientAuthHeaderHandler < SOAP::Header::SimpleHandler
+  MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+
+  def initialize(userid, passwd)
+    super(MyHeaderName)
+    @sessionid = nil
+    @userid = userid
+    @passwd = passwd
+    @mustunderstand = true
+  end
+
+  def on_simple_outbound
+    if @sessionid
+      { "sessionid" => @sessionid }
+    else
+      { "userid" => @userid, "passwd" => @passwd }
+    end
+  end
+
+  def on_simple_inbound(my_header, mustunderstand)
+    @sessionid = my_header["sessionid"]
+  end
+end
+
+ns = 'http://tempuri.org/authHeaderPort'
+serv = SOAP::RPC::Driver.new(server, ns)
+serv.add_method('deposit', 'amt')
+serv.add_method('withdrawal', 'amt')
+
+serv.headerhandler << ClientAuthHeaderHandler.new('NaHi', 'passwd')
+
+serv.wiredump_dev = STDOUT
+
+p serv.deposit(150)
+p serv.withdrawal(120)

data/sample/soapheader/authheader/client2.rb

@@ -0,0 +1,43 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/driver'
+require 'soap/header/simplehandler'
+
+server = ARGV.shift || 'http://localhost:7000/'
+
+class ClientAuthHeaderHandler < SOAP::Header::SimpleHandler
+  MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+
+  attr_accessor :sessionid
+
+  def initialize
+    super(MyHeaderName)
+    @sessionid = nil
+  end
+
+  def on_simple_outbound
+    if @sessionid
+      { "sessionid" => @sessionid }
+    end
+  end
+
+  def on_simple_inbound(my_header, mustunderstand)
+    @sessionid = my_header["sessionid"]
+  end
+end
+
+ns = 'http://tempuri.org/authHeaderPort'
+serv = SOAP::RPC::Driver.new(server, ns)
+serv.add_method('login', 'userid', 'passwd')
+serv.add_method('deposit', 'amt')
+serv.add_method('withdrawal', 'amt')
+
+h = ClientAuthHeaderHandler.new
+
+serv.headerhandler << h
+
+serv.wiredump_dev = STDOUT
+
+sessionid = serv.login('NaHi', 'passwd')
+h.sessionid = sessionid
+p serv.deposit(150)
+p serv.withdrawal(120)

data/sample/soapheader/authheader/server.rb

@@ -0,0 +1,74 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'soap/header/simplehandler'
+require 'authmgr'
+
+class AuthHeaderPortServer < SOAP::RPC::StandaloneServer
+  class AuthHeaderService
+    def self.create
+      new
+    end
+
+    def deposit(amt)
+      "deposit #{amt} OK"
+    end
+
+    def withdrawal(amt)
+      "withdrawal #{amt} OK"
+    end
+  end
+
+  Name = 'http://tempuri.org/authHeaderPort'
+  def initialize(*arg)
+    super
+    add_rpc_servant(AuthHeaderService.new, Name)
+    # header handler must be a per request handler.
+    add_request_headerhandler(ServerAuthHeaderHandler)
+  end
+
+  class ServerAuthHeaderHandler < SOAP::Header::SimpleHandler
+    MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+
+    @authmgr = Authmgr.new
+    def self.create
+      new(@authmgr)
+    end
+
+    def initialize(authmgr)
+      super(MyHeaderName)
+      @authmgr = authmgr
+      @userid = @sessionid = nil
+    end
+
+    def on_simple_outbound
+      { "sessionid" => @sessionid }
+    end
+
+    def on_simple_inbound(my_header, mu)
+      auth = false
+      userid = my_header["userid"]
+      passwd = my_header["passwd"]
+      if @authmgr.login(userid, passwd)
+	auth = true
+      elsif sessionid = my_header["sessionid"]
+	if userid = @authmgr.auth(sessionid)
+	  @authmgr.destroy_session(sessionid)
+	  auth = true
+	end
+      end
+      raise RuntimeError.new("authentication failed") unless auth
+      @userid = userid
+      @sessionid = @authmgr.create_session(userid)
+    end
+  end
+end
+
+if $0 == __FILE__
+  svr = AuthHeaderPortServer.new('AuthHeaderPortServer', nil, '0.0.0.0', 7000)
+  trap(:INT) do
+    svr.shutdown
+  end
+  status = svr.start
+end

data/sample/soapheader/authheader/server2.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'soap/header/simplehandler'
+require 'authmgr'
+
+class AuthHeaderPortServer < SOAP::RPC::StandaloneServer
+  class AuthHeaderService
+    def initialize(authmgr)
+      @authmgr = authmgr
+    end
+
+    def login(userid, passwd)
+      if @authmgr.login(userid, passwd)
+        @authmgr.create_session(userid)
+      else
+        raise RuntimeError.new("authentication failed")
+      end
+    end
+
+    def deposit(amt)
+      "deposit #{amt} OK"
+    end
+
+    def withdrawal(amt)
+      "withdrawal #{amt} OK"
+    end
+  end
+
+  Name = 'http://tempuri.org/authHeaderPort'
+  def initialize(*arg)
+    super
+    authmgr = Authmgr.new
+    add_rpc_servant(AuthHeaderService.new(authmgr), Name)
+    ServerAuthHeaderHandler.init(authmgr)
+    # header handler must be a per request handler.
+    add_request_headerhandler(ServerAuthHeaderHandler)
+  end
+
+  class ServerAuthHeaderHandler < SOAP::Header::SimpleHandler
+    MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+
+    def self.init(authmgr)
+      @authmgr = authmgr
+    end
+
+    def self.create
+      new(@authmgr)
+    end
+
+    def initialize(authmgr)
+      super(MyHeaderName)
+      @authmgr = authmgr
+      @sessionid = nil
+    end
+
+    def on_simple_outbound
+      if @sessionid
+        { "sessionid" => @sessionid }
+      end
+    end
+
+    def on_simple_inbound(my_header, mu)
+      auth = false
+      if sessionid = my_header["sessionid"]
+	if userid = @authmgr.auth(sessionid)
+	  @authmgr.destroy_session(sessionid)
+          @sessionid = @authmgr.create_session(userid)
+	  auth = true
+	end
+      end
+      raise RuntimeError.new("authentication failed") unless auth
+    end
+  end
+end
+
+if $0 == __FILE__
+  svr = AuthHeaderPortServer.new('AuthHeaderPortServer', nil, '0.0.0.0', 7000)
+  trap(:INT) do
+    svr.shutdown
+  end
+  status = svr.start
+end

data/sample/soapheader/soapext_basicauth/client.rb

@@ -0,0 +1,26 @@
+# encoding: ASCII-8BIT
+require 'soap/header/simplehandler'
+require 'mms_MizGISDriver.rb'
+
+class BasicAuthHeaderHandler < SOAP::Header::SimpleHandler
+  MyHeaderName = XSD::QName.new('http://soap-authentication.org/basic/2001/10/', 'BasicAuth')
+
+  def initialize(name, password)
+    super(MyHeaderName)
+    @name = name
+    @password = password
+  end
+
+  def on_simple_outbound
+    { 'Name' => @name, 'Password' => @password }
+  end
+
+  def on_simple_inbound(header, mustunderstand)
+    p [header, mustunderstand]
+  end
+end
+
+obj = Mms_MizGISPortType.new
+obj.headerhandler << BasicAuthHeaderHandler.new('NaHi', 'HiNa')
+obj.wiredump_dev = STDOUT
+obj.getVersion