icontrol 0.0.3 → 0.0.4

data/lib/icontrol/attributable.rb

@@ -1,4 +1,4 @@
-module Attributable
+module Attributable # :nodoc: 
 
   def self.included(klass)
     klass.class_eval do
@@ -7,7 +7,7 @@ module Attributable
     end
   end
 
-  module ClassMethods
+  module ClassMethods # :nodoc:
     def set_id_name(id_name)
       @id_name = id_name
     end
@@ -17,7 +17,7 @@ module Attributable
     end
   end
 
-  module InstanceMethods
+  module InstanceMethods # :nodoc:
 
     def initialize(attributes)
       id = attributes.delete(self.class.id_name) if attributes && attributes[self.class.id_name]

data/lib/icontrol/base.rb

@@ -7,22 +7,14 @@ Savon::Request.log = false
 # The idea is to create an object proxy to the web service client with the same structure 
 # than the IControl stuff
 
-module IControl
+module IControl #:nodoc:
 
-  class NotConfiguredException < Exception; end
-  
-  module Common
-    class IPPortDefinition
-      attr_accessor :address,:port
-      def initialize(options)
-        @address = options[:address]
-        @port = options[:port]
-      end
-    end    
+  class Exception
+    class NotConfiguredException < Exception # :nodoc:
+    end 
   end
-
-
-  class Base
+  
+  class Base # :nodoc:
 
     def default_body
       { self.class.id_name.to_s + "s" =>  {:value => [@attributes[:id]] } }

data/lib/icontrol/common.rb

@@ -1,12 +1,12 @@
 
 # This is a helper for defining constants
-module IControl
+module IControl # :nodoc: 
 
   class NoSuchPoolException < Exception; end
   class MethodNotImplementedException < Exception; end
 
-  module Common
-
+  module Common # :nodoc:
+    
     class VLANFilterList
       attr_accessor :state,:vlans
       def initialize(attributes)
@@ -47,55 +47,58 @@ module IControl
 
     class SourcePortBehavior
       #   Attempt to preserve the source port (best effort). This is the default.
-      class SOURCE_PORT_PRESERVE ; VALUE = 0; end
+      SOURCE_PORT_PRESERVE = :SOURCE_PORT_PRESERVE
       #  Preserve source port. Use of the preserve-strict setting should be restricted to UDP only under very special circumstances such as nPath or transparent (that is, no translation of any other L3/L4 field), where there is a 1:1 relationship between virtual IP addresses and node addresses, or when clustered multi-processing (CMP) is disabled.
-      class SOURCE_PORT_PRESERVE_STRICT ; VALUE = 1; end
+      SOURCE_PORT_PRESERVE_STRICT = :SOURCE_PORT_PRESERVE_STRICT
       #  The change setting is useful for obfuscating internal network addresses. 
-      class SOURCE_PORT_CHANGE ; VALUE = 2; end
+      SOURCE_PORT_CHANGE = :SOURCE_PORT_CHANGE
     end
     
     ## 
     #  A list of enabled states. 
-    class EnabledState      
-      class STATE_DISABLED ; VALUE = 0; end
-      class STATE_ENABLED  ; VALUE = 1; end
+    class EnabledState  
+      
+      STATE_DISABLED = :STATE_DISABLED
+
+      STATE_ENABLED  = :STATE_ENABLED 
+      
     end
 
     ##
     #  A list of TMOS modules. 
     class TMOSModule
-      class TMOS_MODULE_SAM ; VALUE = 0; end
-      class TMOS_MODULE_ASM ; VALUE = 1; end
-      class TMOS_MODULE_WAM ; VALUE = 2; end
+      TMOS_MODULE_SAM = :TMOS_MODULE_SAM
+      TMOS_MODULE_ASM = :TMOS_MODULE_ASM
+      TMOS_MODULE_WAM = :TMOS_MODULE_WAM
     end
 
     ##
     #  An enumeration of protocol types.
     class ProtocolType
       #   Protocol is wildcard.
-      class PROTOCOL_ANY ; VALUE = 0; end
+      PROTOCOL_ANY = :PROTOCOL_ANY
       #  Protocol is IPv6 header.
-      class PROTOCOL_IPV6 ; VALUE = 1; end
+      PROTOCOL_IPV6 = :PROTOCOL_IPV6
       #  Protocol is IPv6 routing header.
-      class PROTOCOL_ROUTING ; VALUE = 2; end
+      PROTOCOL_ROUTING = :PROTOCOL_ROUTING
       #  Protocol is IPv6 no next header.
-      class PROTOCOL_NONE ; VALUE = 3; end
+      PROTOCOL_NONE = :PROTOCOL_NONE
       #  Protocol is IPv6 fragmentation header.
-      class PROTOCOL_FRAGMENT ; VALUE = 4; end
+      PROTOCOL_FRAGMENT = :PROTOCOL_FRAGMENT
       #  Protocol is IPv6 destination options.
-      class PROTOCOL_DSTOPTS ; VALUE = 5; end
+      PROTOCOL_DSTOPTS = :PROTOCOL_DSTOPTS
       #  Protocol is TCP.
-      class PROTOCOL_TCP ; VALUE = 6; end
+      PROTOCOL_TCP = :PROTOCOL_TCP
       #  Protocol is UDP.
-      class PROTOCOL_UDP ; VALUE = 7; end
+      PROTOCOL_UDP = :PROTOCOL_UDP
       #  Protocol is ICMP.
-      class PROTOCOL_ICMP ; VALUE = 8; end
+      PROTOCOL_ICMP = :PROTOCOL_ICMP
       #  Protocol is ICMPv6.
-      class PROTOCOL_ICMPV6 ; VALUE = 9; end
+      PROTOCOL_ICMPV6 = :PROTOCOL_ICMPV6
       #  Protocol is OSPF.
-      class PROTOCOL_OSPF ; VALUE = 10; end
+      PROTOCOL_OSPF = :PROTOCOL_OSPF
       #  Protocol is SCTP.             
-      class PROTOCOL_SCTP ; VALUE = 11; end
+      PROTOCOL_SCTP = :PROTOCOL_SCTP
     end
 
     class IPPortDefinition

data/lib/icontrol/local_lb/common.rb

@@ -1,76 +1,118 @@
-module IControl
-  module LocalLB
-    
+module IControl # :nodoc:
+  module LocalLB # :nodoc: 
     ##
     #  A list of possible levels for hardware acceleration. 
     class HardwareAccelerationMode
-      class HW_ACCELERATION_MODE_NONE ; VALUE = 0; end
-      class HW_ACCELERATION_MODE_ASSIST; VALUE = 1; end
-      class HW_ACCELERATION_MODE_FULL; VALUE = 2 ; end
+      # No hardware acceleration involvement, software only.
+      HW_ACCELERATION_MODE_NONE = :HW_ACCELERATION_MODE_NONE
+      # Full hardware acceleration, i.e. PVA/hardware handles connection initiation and packet processing. 
+      HW_ACCELERATION_MODE_ASSIS = :HW_ACCELERATION_MODE_ASSIS
+      # Software handles connection initiation, PVA/hardware handles packet processing on the connections.
+      HW_ACCELERATION_MODE_FUL = :HW_ACCELERATION_MODE_FUL
     end
-
+    
     ##
     #  An enumeration of clone pool types. 
     class ClonePoolType
-      class CLONE_POOL_TYPE_UNDEFINED ; VALUE = 0; end
-      class CLONE_POOL_TYPE_CLIENTSIDE; VALUE = 1; end
-      class CLONE_POOL_TYPE_SERVERSIDE; VALUE = 2 ; end
+      # The clone pool is undefined.
+      CLONE_POOL_TYPE_UNDEFINED = :CLONE_POOL_TYPE_UNDEFINED
+      # The client-side clone pool.
+      CLONE_POOL_TYPE_CLIENTSID = :CLONE_POOL_TYPE_CLIENTSID
+      # The server-side clone pool. 
+      CLONE_POOL_TYPE_SERVERSID = :CLONE_POOL_TYPE_SERVERSID
     end
-
+    
     ##
     #  A list of profile context types. 
     class ProfileContextType
-      class PROFILE_CONTEXT_TYPE_ALL ; VALUE = 0; end
-      class PROFILE_CONTEXT_TYPE_CLIENT; VALUE = 1; end
-      class PROFILE_CONTEXT_TYPE_SERVER; VALUE = 2 ; end
+      # Profile applies to both client and server sides.
+      PROFILE_CONTEXT_TYPE_ALL = :PROFILE_CONTEXT_TYPE_ALL
+      # Profile applies to the client side only.
+      PROFILE_CONTEXT_TYPE_CLIEN = :PROFILE_CONTEXT_TYPE_CLIEN
+      # Profile applies to the server side only. 
+      PROFILE_CONTEXT_TYPE_SERVE = :PROFILE_CONTEXT_TYPE_SERVE
     end
     
     ##
     #  A list of translation types.
     class SnatType     
-      class SNAT_TYPE_NONE ; VALUE = 0; end
-      class SNAT_TYPE_TRANSLATION_ADDRESS ; VALUE = 1; end
-      class SNAT_TYPE_SNATPOOL ; VALUE = 2; end
-      class SNAT_TYPE_AUTOMAP ; VALUE = 3 ; end
+      # No snat is being used.
+      SNAT_TYPE_NONE = :SNAT_TYPE_NONE
+      # The snat uses a single translation address.
+      SNAT_TYPE_TRANSLATION_ADDRESS = :SNAT_TYPE_TRANSLATION_ADDRESS
+      # The snat uses a SNAT pool of translation addresses.
+      SNAT_TYPE_SNATPOOL = :SNAT_TYPE_SNATPOOL
+      # The snat uses self IP addresses. 
+      SNAT_TYPE_AUTOMAP = :SNAT_TYPE_AUTOMAP
     end
 
     ##
     #  A list of profile types. 
     class ProfileType
-      class PROFILE_TYPE_TCP ; VALUE = 0; end
-      class PROFILE_TYPE_UDP; VALUE = 1; end
-      class PROFILE_TYPE_FTP; VALUE = 2; end
-      class PROFILE_TYPE_FAST_L4; VALUE = 3; end
-      class PROFILE_TYPE_HTTP; VALUE = 4; end
-      class PROFILE_TYPE_SERVER_SSL; VALUE = 5; end
-      class PROFILE_TYPE_CLIENT_SSL; VALUE = 6; end
-      class PROFILE_TYPE_AUTH; VALUE = 7; end
-      class PROFILE_TYPE_PERSISTENCE; VALUE = 8; end
-      class PROFILE_TYPE_CONNECTION_POOL; VALUE = 9; end
-      class PROFILE_TYPE_STREAM; VALUE = 10; end
-      class PROFILE_TYPE_XML; VALUE = 11; end
-      class PROFILE_TYPE_FAST_HTTP; VALUE = 12; end
-      class PROFILE_TYPE_IIOP; VALUE = 13; end
-      class PROFILE_TYPE_RTSP; VALUE = 14; end
-      class PROFILE_TYPE_STATISTICS; VALUE = 15; end
-      class PROFILE_TYPE_HTTPCLASS; VALUE = 16; end
-      class PROFILE_TYPE_DNS; VALUE = 17; end
-      class PROFILE_TYPE_SCTP; VALUE = 18; end
-      class PROFILE_TYPE_INSTANCE; VALUE = 19; end
-      class PROFILE_TYPE_SIPP; VALUE = 20 ; end
+      # The TCP profile.
+      PROFILE_TYPE_TCP = :PROFILE_TYPE_TCP
+      # The UDP profile.
+      PROFILE_TYPE_UDP = :PROFILE_TYPE_UDP
+      # The FTP profile.
+      PROFILE_TYPE_FTP = :PROFILE_TYPE_FTP
+      # The L4 translation profile.
+      PROFILE_TYPE_FAST_L4 = :PROFILE_TYPE_FAST_L4
+      # The HTTP profile.
+      PROFILE_TYPE_HTTP = :PROFILE_TYPE_HTTP
+      # The server-side SSL profile.
+      PROFILE_TYPE_SERVER_SSL = :PROFILE_TYPE_SERVER_SSL
+      # The client-side SSL profile.
+      PROFILE_TYPE_CLIENT_SSL = :PROFILE_TYPE_CLIENT_SSL
+      # The authorization profile.
+      PROFILE_TYPE_AUTH = :PROFILE_TYPE_AUTH
+      # The persistence profile.
+      PROFILE_TYPE_PERSISTENCE = :PROFILE_TYPE_PERSISTENCE
+      # The connection pool profile.
+      PROFILE_TYPE_CONNECTION_POOL = :PROFILE_TYPE_CONNECTION_POOL
+      # The stream profile.
+      PROFILE_TYPE_STREAM = :PROFILE_TYPE_STREAM
+      # The XML profile.
+      PROFILE_TYPE_XML = :PROFILE_TYPE_XML
+      # The FastHTTP profile.
+      PROFILE_TYPE_FAST_HTTP = :PROFILE_TYPE_FAST_HTTP
+      # The IIOP profile.
+      PROFILE_TYPE_IIOP = :PROFILE_TYPE_IIOP
+      # The RTSP profile.
+      PROFILE_TYPE_RTSP = :PROFILE_TYPE_RTSP
+      # The STATISTICS profile.
+      PROFILE_TYPE_STATISTICS = :PROFILE_TYPE_STATISTICS
+      # The HTTP class profile.
+      PROFILE_TYPE_HTTPCLASS = :PROFILE_TYPE_HTTPCLASS
+      # The DNS profile.
+      PROFILE_TYPE_DNS = :PROFILE_TYPE_DNS
+      # The SCTP profile.
+      PROFILE_TYPE_SCTP = :PROFILE_TYPE_SCTP
+      # A loosely-typed profile.
+      PROFILE_TYPE_INSTANCE = :PROFILE_TYPE_INSTANCE
+      # The SIP profile. 
+      PROFILE_TYPE_SIPP = :PROFILE_TYPE_SIPP
     end
 
 
     class PersistenceMode
-      class PERSISTENCE_MODE_NONE ; VALUE = 0; end
-      class PERSISTENCE_MODE_SOURCE_ADDRESS_AFFINITY; VALUE = 1; end
-      class PERSISTENCE_MODE_DESTINATION_ADDRESS_AFFINITY; VALUE = 2; end
-      class PERSISTENCE_MODE_COOKIE; VALUE = 3; end
-      class PERSISTENCE_MODE_MSRDP; VALUE = 4; end
-      class PERSISTENCE_MODE_SSL_SID; VALUE = 5; end
-      class PERSISTENCE_MODE_SIP; VALUE = 6; end
-      class PERSISTENCE_MODE_UIE; VALUE = 7; end
-      class PERSISTENCE_MODE_HASH; VALUE = 8 ; end
+      # No persistence mode.
+      PERSISTENCE_MODE_NONE = :PERSISTENCE_MODE_NONE
+      # Simple or Source Address affinity persistence mode.
+      PERSISTENCE_MODE_SOURCE_ADDRESS_AFFINITY = :PERSISTENCE_MODE_SOURCE_ADDRESS_AFFINITY
+      # Sticky or Destination Address affinity persistence mode.
+      PERSISTENCE_MODE_DESTINATION_ADDRESS_AFFINITY = :PERSISTENCE_MODE_DESTINATION_ADDRESS_AFFINITY
+      # Cookie persistence mode.
+      PERSISTENCE_MODE_COOKIE = :PERSISTENCE_MODE_COOKIE
+      # Microsoft Terminal Server persistence mode.
+      PERSISTENCE_MODE_MSRDP = :PERSISTENCE_MODE_MSRDP
+      # SSL Session ID persistence mode.
+      PERSISTENCE_MODE_SSL_SID = :PERSISTENCE_MODE_SSL_SID
+      # SIP (Call-ID) persistence mode.
+      PERSISTENCE_MODE_SIP = :PERSISTENCE_MODE_SIP
+      # Universal persistence mode.
+      PERSISTENCE_MODE_UIE = :PERSISTENCE_MODE_UIE
+      # Hash persistence mode. 
+      PERSISTENCE_MODE_HASH = :PERSISTENCE_MODE_HASH
     end   
   end
 end

data/lib/icontrol/local_lb/rule.rb

@@ -1,4 +1,4 @@
 IControl::LocalLB::Rule
-class IControl::LocalLB::Rule
+class IControl::LocalLB::Rule #:nodoc:
   set_id_name :rule_name  
 end

data/lib/icontrol/local_lb/snat_pool.rb

@@ -1,4 +1,4 @@
 IControl::LocalLB::SNATPool
-class IControl::LocalLB::SNATPool
+class IControl::LocalLB::SNATPool #:nodoc:
   set_id_name :snat_pool_name
 end

data/lib/icontrol/local_lb/virtual_server.rb

@@ -12,33 +12,33 @@ class IControl::LocalLB::VirtualServer
   #  A list of virtual server types. 
   module Type    
     #   The virtual server is based on a pool.
-    class RESOURCE_TYPE_POOL ; VALUE = 0; end
+    RESOURCE_TYPE_POOL = :RESOURCE_TYPE_POOL
     #  The virtual server only supports IP forwarding. There is no load balancing on this type of virtual server.
-    class RESOURCE_TYPE_IP_FORWARDING ; VALUE = 1; end
+    RESOURCE_TYPE_IP_FORWARDING = :RESOURCE_TYPE_IP_FORWARDING
     #  The virtual server only supports L2 forwarding. There is no load balancing on this type of virtual server.
-    class RESOURCE_TYPE_L2_FORWARDING ; VALUE = 2; end
+    RESOURCE_TYPE_L2_FORWARDING = :RESOURCE_TYPE_L2_FORWARDING
     #  All connections going to this virtual server will be rejected, and resets will be sent.
-    class RESOURCE_TYPE_REJECT ; VALUE = 3; end
+    RESOURCE_TYPE_REJECT = :RESOURCE_TYPE_REJECT
     #  The virtual server is based on the Fast L4 profile.
-    class RESOURCE_TYPE_FAST_L4 ; VALUE = 4; end
+    RESOURCE_TYPE_FAST_L4 = :RESOURCE_TYPE_FAST_L4
     #  The virtual server is based on the Fast HTTP profile. 
-    class RESOURCE_TYPE_FAST_HTTP ; VALUE = 5; end
+    RESOURCE_TYPE_FAST_HTTP = :RESOURCE_TYPE_FAST_HTTP
   end
   
   ##
   #  A list of CMP enable modes. 
   class CMPEnableMode
     #   The virtual server is enabled on all processing cores.
-    class RESOURCE_TYPE_CMP_ENABLE_ALL ; VALUE = 0; end
+    RESOURCE_TYPE_CMP_ENABLE_ALL = :RESOURCE_TYPE_CMP_ENABLE_ALL
     #  The virtual server is enabled on a single processing core.
-    class RESOURCE_TYPE_CMP_ENABLE_SINGLE ; VALUE = 1; end
+    RESOURCE_TYPE_CMP_ENABLE_SINGLE = :RESOURCE_TYPE_CMP_ENABLE_SINGLE
     #  The virtual server is enabled on a group of processing cores.
-    class RESOURCE_TYPE_CMP_ENABLE_GROUP ; VALUE = 2; end
+    RESOURCE_TYPE_CMP_ENABLE_GROUP = :RESOURCE_TYPE_CMP_ENABLE_GROUP
 
-    class RESOURCE_TYPE_CMP_ENABLE_UNKNOWN ; VALUE = 3; end
+    RESOURCE_TYPE_CMP_ENABLE_UNKNOWN = :RESOURCE_TYPE_CMP_ENABLE_UNKNOWN
   end
 
-  class StatisticEntry
+  class StatisticEntry # :nodoc:
     attr_accessor :virtual_server,:statistics
 
     def self.from_xml(result)
@@ -48,7 +48,7 @@ class IControl::LocalLB::VirtualServer
         aux.virtual_server = IControl::LocalLB::VirtualServer.find(i[:virtual_server][:name])
         aux.statistics = {}
         i[:statistics][:item].each do |entry|
-          aux.statistics[IControl::Common::StatisticType.const_get(entry[:type])] = IControl::Common::ULong64.new(entry[:value])
+          aux.statistics[entry[:type].to_sym] = IControl::Common::ULong64.new(entry[:value])
         end
         aux
       end
@@ -56,32 +56,23 @@ class IControl::LocalLB::VirtualServer
     end
   end
 
-  class ModuleScore
+  class ModuleScore # :nodoc:
     attr_accessor :tmos_module ,:score
     def initialize(attribules)
       @score = attributes[:score]
-      @tmos_module = IControl::Common::TMOSModule.const_get(attributes[:tmos_module])
+      @tmos_module = attributes[:tmos_module]
     end    
   end
-=begin  
-  class Rule
-    attr_accessor :rule_name,:priority
-    def initialize(attributes)
-      @rule_name = attributes[:rule_name]
-      @priority  = ( attributes[:priority] && attributes[:priority].to_i ) || -1
-    end
-  end
-=end
 
-  class ClonePool
+  class ClonePool #:nodoc:
     attr_accessor :pool,:clone_type
     def initialize(attributes)
       @pool = IControl::LocalLB::Pool.find(attributes[:pool_name])
-      @clone_type = IControl::LocalLB::ClonePoolType.const_get(attributes[:type])
+      @clone_type = attributes[:type]
     end
   end
 
-  class ProfileAttribute
+  class ProfileAttribute #:nodoc:
     attr_accessor :profile_type,:profile_context,:profile_name
     def initialize(options)
       @profile_type = options[:profile_type]
@@ -90,7 +81,7 @@ class IControl::LocalLB::VirtualServer
     end
   end
 
-  class Persistence
+  class Persistence #:nodoc:
     attr_accessor :profile_name,:default_profile
     def initialize(options)
       @profile_name = options[:profile_name]
@@ -98,7 +89,7 @@ class IControl::LocalLB::VirtualServer
     end
   end
 
-  class GenericEnumerator
+  class GenericEnumerator #:nodoc:
 
     STATE_CHANGED=[ :<<, :push, :pop, :shift, :unshift, :insert, :join, :reverse!, :sort!, :collect!,:map!, :delete, :delete_at, :delete_if, :reject!,:slice!, :uniq!, :compact!,  :flatten!, :shuffle! ]
 
@@ -122,21 +113,21 @@ class IControl::LocalLB::VirtualServer
   end
 
 
-  class HttpClassProfileEnumerator < GenericEnumerator
+  class HttpClassProfileEnumerator < GenericEnumerator #:nodoc:
     def save!
       @parent.remove_all_httpclass_profiles
       @parent.add_httpclass_profile(@contents)
     end
   end
 
-  class RuleEnumerator < GenericEnumerator
+  class RuleEnumerator < GenericEnumerator #:nodoc:
     def save!
       @parent.remove_all_rules
       @parent.add_rule(@contents)
     end
   end
 
-  class AuthProfileEnumerator < GenericEnumerator
+  class AuthProfileEnumerator < GenericEnumerator #:nodoc:
     def save!      
       @parent.remove_all_authentication_profiles
       @parent.add_authentication_profile(@contents)
@@ -163,7 +154,7 @@ class IControl::LocalLB::VirtualServer
     
     attributes[:profiles].each do |i| 
       if i.class == Hash
-        profiles["item#{item+=1}"] = {"profile_context" => i["profile_context"].name.split("::").last,"profile_name" => ( i["profile"] ? i["profile"] :  "tcp" ) }
+        profiles["item#{item+=1}"] = {"profile_context" => i["profile_context"],"profile_name" => ( i["profile"] ? i["profile"] :  "tcp" ) }
       else
         profiles["item#{item+=1}"] = {"profile_context" => i.profile_context,"profile_name" => i.profile_name || "tcp" }
       end
@@ -174,12 +165,12 @@ class IControl::LocalLB::VirtualServer
             :name => attributes[:name],
             :address => attributes[:address],
             "port" => attributes[:port],
-            :protocol => (attributes[:protocol] || IControl::Common::ProtocolType::PROTOCOL_TCP).name.split("::").last
+            :protocol => (attributes[:protocol] || IControl::Common::ProtocolType::PROTOCOL_TCP)
           }
         },
         "wildmasks" => {:item => attributes[:wildmask] || "255.255.255.255"},
         "resources" => {:item => {          
-            :type => (attributes[:type] || IControl::LocalLB::VirtualServer::Type::RESOURCE_TYPE_POOL).name.split("::").last,
+            :type => (attributes[:type] || IControl::LocalLB::VirtualServer::Type::RESOURCE_TYPE_POOL),
             "default_pool_name" => attributes[:default_pool] ? attributes[:default_pool].id : "" 
           }
         },
@@ -217,7 +208,7 @@ class IControl::LocalLB::VirtualServer
     IControl::LocalLB::VirtualServer.set_type do |soap|
       soap.body = {
         "virtual_servers" => {:item => id},
-        "types" => {:item => new_type.name.split("::").last}
+        "types" => {:item => new_type }
       }
     end
   end
@@ -271,7 +262,7 @@ class IControl::LocalLB::VirtualServer
     IControl::LocalLB::VirtualServer.set_enabled_state do |soap|
       soap.body = {
         "virtual_servers" => {:item => id},
-        "states" => {:item => state.name.split("::").last}
+        "states" => {:item => state }
       }
     end if state
   end
@@ -296,7 +287,7 @@ class IControl::LocalLB::VirtualServer
 
   def connection_mirror_state=(state)
     IControl::LocalLB::VirtualServer.set_connection_mirror_state do |soap|
-      soap.body = {"virtual_servers" => {:item => id},:states => {:item => state.name.split("::").last }}
+      soap.body = {"virtual_servers" => {:item => id},:states => {:item => state}}
     end
   end
   
@@ -577,7 +568,7 @@ public
     IControl::LocalLB::VirtualServer.set_protocol do |soap|
       soap.body = {
         "virtual_servers" => {:item => id},
-        "protocols" => {:item => protocol.name.split("::").last }
+        "protocols" => {:item => protocol }
       }
     end
   end
@@ -648,7 +639,7 @@ public
       soap.body = {
         "virtual_servers" => {:item => id},
         "vlans" => { :item => 
-          { :state => vlan.state.name.split("::").last,
+          { :state => vlan.state,
             :vlans => vlans
           }
         }