plainprograms-virtuozzo 0.1.0

data/lib/virtuozzo/soap/drivers/network_driver.rb

@@ -0,0 +1,101 @@
+require 'virtuozzo/soap/drivers/network/types'
+require 'virtuozzo/soap/drivers/network/mapping_registry'
+require 'soap/rpc/driver'
+
+module Virtuozzo
+  module SOAP
+    module Drivers
+      # = NetworkDriver
+      #
+      class NetworkDriver < ::SOAP::RPC::Driver
+        DefaultEndpointUrl = "https://localhost:4646"
+
+        Methods = [
+          [ nil,
+            "add",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "add"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "addResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ],
+          [ nil,
+            "list",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "list"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "listResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ],
+          [ nil,
+            "set",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "set"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "setResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ],
+          [ nil,
+            "del",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "del"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vzl/4.0.0/networkm", "delResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ],
+          [ nil,
+            "set_config",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vza/4.0.0/vzanetworkm", "set_config"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vza/4.0.0/vzanetworkm", "set_configResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ],
+          [ nil,
+            "get_config",
+            [ ["in", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vza/4.0.0/vzanetworkm", "get_config"]],
+              ["out", "parameter", ["::SOAP::SOAPElement", "http://www.swsoft.com/webservices/vza/4.0.0/vzanetworkm", "get_configResponse"]] ],
+            { :request_style =>  :document, :request_use =>  :literal,
+              :response_style => :document, :response_use => :literal,
+              :faults => {} }
+          ]
+        ]
+
+        def initialize(endpoint_url = nil)
+          endpoint_url ||= DefaultEndpointUrl
+          super(endpoint_url, nil)
+          self.mapping_registry = DefaultMappingRegistry::EncodedRegistry
+          self.literal_mapping_registry = DefaultMappingRegistry::LiteralRegistry
+          init_methods
+        end
+
+      private
+
+        def init_methods
+          Methods.each do |definitions|
+            opt = definitions.last
+            
+            # set options to use default namespace instead of using n[#]
+            opt.merge!({
+              :use_default_namespace => true
+            })
+            
+            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
+
+    end
+  end
+end