From: emcconne <emcconne@...>
Date: 2006-08-02T01:05:05+09:00
Subject: wsdl2ruby and SOAP problems

I am new to Ruby and am evaluating it for a project that would replace
and extend existing Perl code.  I am using wsdl2ruby to generate a
client stub with associated classes for a web service.  Most of the
basic calls more fine but the more complex method calls that take
parameter "anyType" do not work so well.  It appears that the type is
not getting set in the SOAP message generated by ruby.  However, the
perl code does allow me to set the type (manually  by calling
SOAP::Data -> type using SOAP::Lite).  Below is the relevant code and
generated messages:

-----RELEVANT WSDL SECTION----

<xsd:element name="Create">
<xsd:complexType>
<xsd:sequence>
<xsd:element maxOccurs="1" minOccurs="1" name="handle"
type="xsd:string" vma:auth="Configure"/>
<xsd:element maxOccurs="1" minOccurs="1" name="name"
type="xsd:string"/>
<xsd:element maxOccurs="1" minOccurs="1" name="type"
type="xsd:string"/>
<xsd:element maxOccurs="1" minOccurs="0" name="initial"
type="xsd:anyType"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element

-----GENERATED CLASSES-----

# {urn:vma1}Create
class Create
  @@schema_type = "Create"
  @@schema_ns = "urn:vma1"
  @@schema_qualified = "true"
  @@schema_element = [["handle", "SOAP::SOAPString"], ["name",
"SOAP::SOAPString"], ["type", "SOAP::SOAPString"], ["initial",
"anyType"]]

  attr_accessor :handle
  attr_accessor :name
  attr_accessor :type
  attr_accessor :initial

  def initialize(handle = nil, name = nil, type = nil, initial = nil)
    @handle = handle
    @name = name
    @type = type
    @initial = initial
  end
end

----FROM DRIVER -----

class VmaPortType < ::SOAP::RPC::Driver
  DefaultEndpointUrl = "http://xxx.xxx.xxx:8080/"
  MappingRegistry = ::SOAP::Mapping::Registry.new

  Methods = [
    [ "",
"create",
      [ ["in", "parameters", ["::SOAP::SOAPElement", "urn:vma1",
"Create"], true],
        ["out", "parameters", ["::SOAP::SOAPElement", "urn:vma1",
"CreateResponse"], 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

-----FROM CLIENT-----

require 'vmaDriver.rb'
endpoint_url = ARGV.shift
$KCODE = 'UTF8'
obj = VmaPortType.new(endpoint_url)
obj.generate_explicit_type = true
# run ruby with -d to see SOAP widumps.
obj.wiredump_dev = STDERR

parameter=nil

vmlogin=Login.new("emcconne", "oh,bother")
puts obj.login(vmlogin)
vmcenter=ResolvePath.new("/vcenter/Testdrive_Farm")
vmdomain=obj.resolvePath(vmcenter).returnval

vmpath=ResolvePath.new("/host/192.168.0.2")
vmhost=obj.resolvePath(vmpath).returnval

vmcpuinfo=VirtualCPUInfo.new(2,"")
vmmeminfo=VirtualMemoryInfo.new(512,"")
vmhardware=VirtualHardware.new(vmcpuinfo,vmmeminfo,"","",[],[],[])
vmspec=VirtualMachineSpec.new(vmhost,"linux","",vmhardware)
vmcreate=Create.new(vmdomain,"rubyvm","VirtualMachine",vmspec)
puts obj.create(vmcreate)

----- GENERATED MESSAGE -----

<?xml version="1.0" encoding="utf-8" ?>
<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <env:Body>
    <Create xmlns="urn:vma1">
      <handle>vma-domain-00000000001</handle>
      <name>rubyvm</name>
      <type>VirtualMachine</type>
      <initial>
        <host>vma-host-00000000002</host>
        <guestOS>linux</guestOS>
        <file></file>
        <hardware>
          <cpu>
            <count>2</count>
            <controls></controls>
          </cpu>
          <memory>
            <sizeMb>512</sizeMb>
            <controls></controls>
          </memory>
          <net></net>
          <disk></disk>
        </hardware>
      </initial>
    </Create>
  </env:Body>
</env:Envelope>


-------WORKING PERL MESSAGE ------

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope
xmlns:namesp1="http://namespaces.soaplite.com/perl"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
	<soap:Body>
		<Create xmlns="urn:vma1">
			<handle xsi:type="xsd:string">vma-domain-00000000001</handle>
			<name xsi:type="xsd:string">perlvm</name>
			<type xsi:type="xsd:string">VirtualMachine</type>
			<initial xsi:type="namesp1:VirtualMachineSpec">
				<host xsi:type="xsd:string">vma-host-00000000002</host>
				<guestOS xsi:type="xsd:string">Linux</guestOS>
				<hardware>
					<cpu>
						<count xsi:type="xsd:int">1</count>
					</cpu>
					<memory>
						<sizeMb xsi:type="xsd:int">256</sizeMb>
					</memory>
				</hardware>
			</initial>
		</Create>
	</soap:Body>
</soap:Envelope>