fog-vcloud-director 0.1.0

data/lib/fog/vcloud_director/requests/compute/put_media_metadata_item_metadata.rb

@@ -0,0 +1,50 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Set the value for the specified metadata key to the value provided,
+        # overwriting any existing value.
+        #
+        # @param [String] id Object identifier of the media object.
+        # @param [String] key Key of the metadata item.
+        # @param [Boolean,DateTime,Fixnum,String] value Value of the metadata
+        #   item.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/PUT-MediaMetadataItem-metadata.html
+        # @since vCloud API version 1.5
+        def put_media_metadata_item_metadata(id, key, value)
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            MetadataValue(attrs) {
+              if api_version.to_f < 5.1
+                Value value
+              else
+                type = case value
+                       when TrueClass, FalseClass then 'MetadataBooleanValue';
+                       when DateTime then 'MetadataDateTimeValue';
+                       when Fixnum then 'MetadataNumberValue';
+                       else 'MetadataStringValue'
+                       end
+                TypedValue('xsi:type' => type) { Value value }
+              end
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata.value+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "media/#{id}/metadata/#{URI.escape(key)}"
+          )
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/requests/compute/put_memory.rb

@@ -0,0 +1,89 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        extend Fog::Deprecation
+        deprecate :put_vm_memory, :put_memory
+
+        # Update the RASD item that specifies memory properties of a VM.
+        #
+        # This operation is asynchronous and returns a task that you can
+        # monitor to track the progress of the request.
+        #
+        # @param [String] id Object identifier of the VM.
+        # @param [Integer] memory Memory size in Megabytes.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/PUT-Memory.html
+        # @since vCloud API version 0.9
+        def put_memory(id, memory)
+          data = <<EOF
+          <Item 
+            xmlns="http://www.vmware.com/vcloud/v1.5" 
+            xmlns:rasd="http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_ResourceAllocationSettingData" 
+            xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
+            xmlns:ns12="http://www.vmware.com/vcloud/v1.5" 
+            ns12:href="#{end_point}vApp/#{id}/virtualHardwareSection/memory" 
+            ns12:type="application/vnd.vmware.vcloud.rasdItem+xml" 
+            xsi:schemaLocation="http://www.vmware.com/vcloud/v1.5 #{end_point}v1.5/schema/master.xsd http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_ResourceAllocationSettingData http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2.22.0/CIM_ResourceAllocationSettingData.xsd">
+            <rasd:AllocationUnits>byte * 2^20</rasd:AllocationUnits>
+            <rasd:Description>Memory Size</rasd:Description>
+            <rasd:ElementName>#{memory} MB of memory</rasd:ElementName>
+            <rasd:InstanceID>5</rasd:InstanceID>
+            <rasd:Reservation>0</rasd:Reservation>
+            <rasd:ResourceType>4</rasd:ResourceType>
+            <rasd:VirtualQuantity>#{memory}</rasd:VirtualQuantity>
+            <rasd:Weight>0</rasd:Weight>
+            <Link rel="edit" type="application/vnd.vmware.vcloud.rasdItem+xml" href="#{end_point}vApp/#{id}/virtualHardwareSection/memory"/>
+          </Item>
+EOF
+
+          request(
+            :body    => data,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.rasdItem+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/virtualHardwareSection/memory"
+          )
+        end
+      end
+
+      class Mock
+
+        def put_memory(id, memory)
+          unless vm = data[:vms][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'This operation is denied.'
+            )
+          end
+
+          owner = {
+            :href => make_href("vApp/#{id}"),
+            :type => 'application/vnd.vmware.vcloud.vm+xml'
+          }
+          task_id = enqueue_task(
+            "Updating Virtual Machine #{data[:vms][id][:name]}(#{id})", 'vappUpdateVm', owner,
+            :on_success => lambda do
+              data[:vms][id][:memory_in_mb] = memory
+            end
+          )
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :xsi_schemaLocation => xsi_schema_location,
+          }.merge(task_body(task_id))
+
+          Excon::Response.new(
+            :status => 202,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{api_version}"},
+            :body => body
+          )
+
+        end
+
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/requests/compute/put_metadata_value.rb

@@ -0,0 +1,26 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # deprecated Use {#put_vapp_metadata_item_metadata} instead.
+        def put_metadata_value(vm_id, metadata_key, metadata_value)
+          Fog::Logger.deprecation("#{self} => ##{put_metadata_value} is deprecated, use ##{put_vapp_metadata_item_metadata} instead [light_black](#{caller.first})[/]")
+
+          body="
+          <MetadataValue xmlns=\"http://www.vmware.com/vcloud/v1.5\">
+              <Value>#{metadata_value}</Value>
+           </MetadataValue>"
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata.value+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{vm_id}/metadata/#{URI.escape(metadata_key)}"
+          )
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/requests/compute/put_network.rb

@@ -0,0 +1,162 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        require 'fog/vcloud_director/generators/compute/org_vdc_network'
+
+        # Update an Org vDC network.
+        #
+        # This operation is asynchronous and returns a task that you can
+        # monitor to track the progress of the request.
+        #
+        # Produce media type(s):
+        # application/vnd.vmware.vcloud.orgVdcNetwork+xml
+        # Output type:
+        # TaskType
+        #
+        # @param [String] id Object identifier of the network
+        # @param [String] name   The name of the entity.
+        # @param [Hash] options
+        # @option options [String] :Description Optional description.
+        # @option options [Hash] :Configuration Network configuration.
+        # @option options [Hash] :EdgeGateway  EdgeGateway that connects this
+        #   Org vDC network. Applicable only for routed networks.
+        # @option options [Hash] :ServiceConfig Specifies the service
+        #   configuration for an isolated Org vDC networks.
+        # @option options [Boolean] :IsShared True if this network is shared
+        #   to multiple Org vDCs.
+        #   * :Configuration<~Hash>: NetworkConfigurationType
+        #     * :IpScopes<~Hash>:
+        #       * :IpScope<~Hash>:
+        #         * :IsInherited<~Boolean>: ?
+        #         * :Gateway<~String>: IP address of gw
+        #         * :Netmask<~String>: Subnet mask of network
+        #         * :Dns1<~String>: Primary DNS server.
+        #         * :Dns2<~String>: Secondary DNS server.
+        #         * :DnsSuffix<~String>: DNS suffix.
+        #         * :IsEnabled<~String>: Indicates if subnet is enabled or not.
+        #                                Default value is True.
+        #         * :IpRanges<~Array>: IP ranges used for static pool allocation
+        #                             in the network. Array of Hashes of:
+        #                               * :StartAddress - start IP in range
+        #                               * :EndAddress - end IP in range
+        #   * :EdgeGateway<~Hash>: EdgeGateway that connects this Org vDC
+        #                          network. Applicable only for routed networks.
+        #   * :ServiceConfig<~Hash>: Specifies the service configuration for an
+        #                            isolated network
+        #
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-CreateOrgVdcNetwork.html
+        # @since vCloud API version 5.1
+        def put_network(id, name, options={})
+          body = Fog::Generators::Compute::VcloudDirector::OrgVdcNetwork.new(options.merge(:name => name)).generate_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.orgVdcNetwork+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "admin/network/#{id}"
+          )
+        end
+      end
+
+      class Mock
+        def put_network(id, name, options={})
+          original_network = data[:networks][id]
+          unless original_network
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              "No access to entity \"(com.vmware.vcloud.entity.orgVdcNetwork:#{id})\"."
+            )
+          end
+
+          type = 'network'
+
+          # Description
+          # Configuration
+          #   IpScopes
+          #     IpScope
+          #       IsInherited
+          #       Gateway
+          #       Netmask
+          #       Dns1
+          #       Dns2
+          #       DnsSuffix
+          #       IsEnabled
+          #       IpRanges
+          #         IpRange
+          #           StartAddress
+          #           EndAddress
+          #   FenceMode
+          # EdgeGateway
+          # IsShared
+          #
+          vdc_id = original_network[:vdc],
+
+          network_body = {
+            :name => name,
+            :vdc  => vdc_id,
+          }
+
+          [:Description, :IsShared].each do |key|
+            network_body[key] = options[key] if options.key?(key)
+          end
+
+          if options.key?(:EdgeGateway)
+            network_body[:EdgeGateway] =
+              options[:EdgeGateway][:href].split('/').last
+          end
+
+          if configuration = options[:Configuration]
+            if ip_scopes = configuration[:IpScopes]
+              if ip_scope = ip_scopes[:IpScope]
+                [:IsInherited, :Gateway, :Netmask,
+                  :Dns1, :Dns2, :DnsSuffix, :IsEnabled].each do |key|
+                    network_body[key] = ip_scope[key] if ip_scope.key?(key)
+                end
+                if ip_ranges = ip_scope[:IpRanges]
+                  network_body[:IpRanges] = []
+                  ip_ranges.each do |ipr|
+                    network_body[:IpRanges] << {
+                      :StartAddress => ipr[:IpRange][:StartAddress],
+                      :EndAddress   => ipr[:IpRange][:EndAddress]
+                    }
+                  end
+                end
+              end
+            end
+            network_body[:FenceMode] = configuration[:FenceMode] if ip_scope.key?(:FenceMode)
+          end
+
+          owner = {
+            :href => make_href("#{type}/#{id}"),
+            :type => "application/vnd.vmware.vcloud.#{type}+xml"
+          }
+          task_id = enqueue_task(
+            "Updating #{type} #{name} (#{id})", 'networkUpdateNetwork', owner,
+            :on_success => lambda do
+              data[:networks][id] = network_body
+            end
+          )
+          task = task_body(task_id)
+          task.delete(:Owner) #known-bug: admin-api does not return owner.
+          body = {
+              :xmlns => xmlns,
+              :xmlns_xsi => xmlns_xsi,
+              :xsi_schemaLocation => xsi_schema_location,
+          }.merge(task)
+
+          Excon::Response.new(
+            :status => 202,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{api_version}"},
+            :body => body
+          )
+
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/requests/compute/put_network_connection_system_section_vapp.rb

@@ -0,0 +1,152 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        extend Fog::Deprecation
+        deprecate :put_vm_network, :put_network_connection_system_section_vapp
+
+        # Update the network connection section of a VM.
+        #
+        # This operation is asynchronous and returns a task that you can
+        # monitor to track the progress of the request.
+        #
+        # @param [String] id Object identifier of the VM.
+        # @param [Hash] options Container for the network connections of this
+        #   virtual machine.
+        # @option options [Integer] :PrimaryNetworkConnectionIndex (0)
+        #   Virtual slot number associated with the NIC that should be
+        #   considered this virtual machine's primary network connection.
+        #   Defaults to slot 0.
+        # @option options [Array<Hash>] :NetworkConnection
+        #   * :needsCustomization<~Boolean> - True if this NIC needs
+        #     customization.
+        #   * :network<~String> - Name of the network to which this NIC is
+        #     connected.
+        #   * :NetworkConnectionIndex<~Integer> - Virtual slot number
+        #     associated with this NIC. First slot number is 0.
+        #   * :IpAddress<~String> - IP address assigned to this NIC.
+        #   * :IsConnected<~Boolean> - If the virtual machine is undeployed,
+        #     this value specifies whether the NIC should be connected upon
+        #     deployment. If the virtual machine is deployed, this value
+        #     reports the current status of this NIC's connection, and can be
+        #     updated to change that connection status.
+        #   * :MACAddress<~String> - MAC address associated with the NIC.
+        #   * :IpAddressAllocationMode<~String> - IP address allocation mode
+        #     for this connection. One of:
+        #     - POOL (A static IP address is allocated automatically from a
+        #       pool of addresses.)
+        #     - DHCP (The IP address is obtained from a DHCP service.)
+        #     - MANUAL (The IP address is assigned manually in the :IpAddress
+        #       element.)
+        #     - NONE (No IP addressing mode specified.)
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #     * :Tasks<~Hash>:
+        #       * :Task<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/PUT-NetworkConnectionSystemSection-vApp.html
+        # @since vCloud API version 0.9
+        def put_network_connection_system_section_vapp(id, options={})
+          options = options.dup
+
+          # Mutate options to new format.
+          deprecated = {
+            :needs_customization => :needsCustomization,
+            :network => :network,
+            :network_connection_index => :NetworkConnectionIndex,
+            :ip_address => :IpAddress,
+            :is_connected => :IsConnected,
+            :mac_address => :MACAddress,
+            :ip_address_allocation_mode => :IpAddressAllocationMode
+          }
+          option = options.delete(:primary_network_connection_index)
+          options[:PrimaryNetworkConnectionIndex] ||= option unless option.nil?
+          unless options.key?(:NetworkConnection)
+            deprecated.each do |from, to|
+              if options.key?(from)
+                options[:NetworkConnection] ||= [{}]
+                options[:NetworkConnection].first[to] = options.delete(from)
+              end
+            end
+          end
+
+          options[:NetworkConnection] = [options[:NetworkConnection]] if options[:NetworkConnection].is_a?(Hash)
+
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:ovf' => 'http://schemas.dmtf.org/ovf/envelope/1'
+            }
+            NetworkConnectionSection(attrs) {
+              self[:ovf].Info 'Specifies the available VM network connections'
+              if options.key?(:PrimaryNetworkConnectionIndex)
+                PrimaryNetworkConnectionIndex options[:PrimaryNetworkConnectionIndex]
+              end
+              if network_connection = options[:NetworkConnection]
+               network_connection.each do |nic|
+                  attrs = {
+                    :network => nic[:network]
+                  }
+                  if nic.key?(:needsCustomization)
+                    attrs[:needsCustomization] = nic[:needsCustomization]
+                  end
+                  NetworkConnection(attrs) {
+                    NetworkConnectionIndex nic[:NetworkConnectionIndex]
+                    if nic.key?(:IpAddress)
+                      IpAddress nic[:IpAddress]
+                    end
+                    IsConnected nic[:IsConnected]
+                    if nic.key?(:MACAddress)
+                      MACAddress nic[:MACAddress]
+                    end
+                    IpAddressAllocationMode nic[:IpAddressAllocationMode]
+                  }
+                end
+              end
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.networkConnectionSection+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/networkConnectionSection/"
+          )
+        end
+      end
+      class Mock
+        def put_network_connection_system_section_vapp(id, options={})
+          unless vm = data[:vms][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'This operation is denied.'
+            )
+          end
+          
+          owner = {
+            :href => make_href("vApp/#{id}"),
+            :type => 'application/vnd.vmware.vcloud.vApp+xml'
+          }
+          task_id = enqueue_task(
+            "Updating Virtual Machine #{data[:vms][id][:name]}(#{id})", 'vappUpdateVm', owner,
+            :on_success => lambda do
+              data[:vms][id][:nics].first[:network_name] = options[:network]
+            end
+          )
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :xsi_schemaLocation => xsi_schema_location,
+          }.merge(task_body(task_id))
+
+          Excon::Response.new(
+            :status => 202,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{api_version}"},
+            :body => body
+          )
+        end
+      end
+    end
+  end
+end