[vcloud_director] update name, description and storage_profile for vm

lib/fog/vcloud_director/compute.rb

@@ -245,6 +245,7 @@ module Fog
       request :put_network_connection_system_section_vapp
       request :put_vapp_metadata_item_metadata
       request :put_vapp_template_metadata_item_metadata
+      request :put_vm
       request :put_vm_capabilities
 
       class Model < Fog::Model

lib/fog/vcloud_director/generators/compute/vm.rb

@@ -0,0 +1,53 @@
+module Fog
+  module Generators
+    module Compute
+      module VcloudDirector
+        #     {
+        #         :name => "webapp-1",
+        #         :Description => "Vm Created from Ubuntu 12.04.3 LTS, VMware Tools latest installed.",
+        #         :StorageProfile =>
+        #         {
+        #           :name => "BASIC-Storage-Profile",
+        #           :href => "https://api.vcd.portal.skyscapecloud.com/api/vdcStorageProfile/a1c0d210-92c9-4514-b146-4b625e6c74dd"
+        #         },
+        #     }
+        #
+        # This is what it generates:
+        #
+        #    <Vm xmlns="http://www.vmware.com/vcloud/v1.5"
+        #       name="webapp-1" type="application/vnd.vmware.vcloud.vm+xml">
+        #    <Description>Vm Created from Ubuntu 12.04.3 LTS, VMware Tools latest installed.</Description>
+        #    <StorageProfile
+        #       type="application/vnd.vmware.vcloud.vdcStorageProfile+xml"
+        #       name="BASIC-Storage-Profile"
+        #       href="https://api.vcd.portal.skyscapecloud.com/api/vdcStorageProfile/a1c0d210-92c9-4514-b146-4b625e6c7455"/>
+        #    </Vm>
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/types/VmType.html
+        class Vm
+          attr_reader :attrs
+
+          def initialize(attrs={})
+            @attrs = attrs
+          end
+
+          def generate_xml
+            attrs = @attrs
+            Nokogiri::XML::Builder.new do
+              Vm('xmlns' => 'http://www.vmware.com/vcloud/v1.5', 'name' => attrs[:name]) {
+                Description attrs[:Description] if attrs.key?(:Description)
+                if  attrs.key?(:StorageProfile)
+                  StorageProfile(
+                    'type' => 'application/vnd.vmware.vcloud.vdcStorageProfile+xml',
+                    'name' => attrs[:StorageProfile][:name],
+                    'href' => attrs[:StorageProfile][:href]
+                  )
+                end
+              }
+            end.to_xml
+          end
+        end
+      end
+    end
+  end
+end

lib/fog/vcloud_director/requests/compute/put_vm.rb

@@ -0,0 +1,35 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+
+        require 'fog/vcloud_director/generators/compute/vm'
+
+        # Update the name, description and storage profile for 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 [String] name of the VM.
+        # @param [Hash] options
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/PUT-Vm.html
+        # @since vCloud API version 0.9
+        def put_vm(id, name, options)
+          body = Fog::Generators::Compute::VcloudDirector::Vm.new(options.merge(:name => name)).generate_xml
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.vm+xml'},
+            :method  => 'PUT',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}"
+          )
+        end
+      end
+    end
+  end
+end