fog-vcloud-director 0.1.0

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

@@ -0,0 +1,33 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Suspend a vApp or VM.
+        #
+        # If used on a vApp, suspends all VMs in the vApp. If used on a VM,
+        # suspends the VM. This operation is available only for a vApp or VM
+        # that is powered on.
+        #
+        # 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 vApp or VM.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @raise [Fog::Compute::VcloudDirector::BadRequest]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-SuspendVApp.html
+        # @since vCloud API version 0.9
+        def post_suspend_vapp(id)
+          request(
+            :expects => 202,
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/power/action/suspend"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,66 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Undeploy a vApp/VM.
+        #
+        # Undeployment deallocates all resources used by the vApp and the VMs
+        # it contains.
+        #
+        # 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 vApp.
+        # @param [Hash] options
+        # @option options [String] :UndeployPowerAction The specified action is
+        #   applied to all virtual machines in the vApp. All values other than
+        #   default ignore actions, order, and delay specified in the
+        #   StartupSection. One of:
+        #   - powerOff (Power off the virtual machines. This is the default
+        #     action if this attribute is missing or empty)
+        #   - suspend (Suspend the virtual machines)
+        #   - shutdown (Shut down the virtual machines)
+        #   - force (Attempt to power off the virtual machines. Failures in
+        #     undeploying the virtual machine or associated networks are
+        #     ignored.  All references to the vApp and its virtual machines are
+        #     removed from the database)
+        #   - default (Use the actions, order, and delay specified in the
+        #     StartupSection).
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @raise [Fog::Compute::VcloudDirector::BadRequest]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UndeployVApp.html
+        # @since vCloud API version 0.9
+        def post_undeploy_vapp(id, options={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5'
+            }
+            UndeployVAppParams(attrs) {
+              if options[:UndeployPowerAction]
+                UndeployPowerAction options[:UndeployPowerAction]
+              end
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.undeployVAppParams+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/action/undeploy"
+          )
+        end
+
+        # @deprecated Use {#post_undeploy_vapp} instead.
+        def undeploy(id)
+          Fog::Logger.deprecation("#{self} => ##{undeploy} is deprecated, use ##{post_undeploy_vapp} instead [light_black](#{caller.first})[/]")
+          post_undeploy_vapp(id, :UndeployPowerAction => 'shutdown')
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,52 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Merge the metadata provided in the request with existing catalog item metadata.
+        #
+        # @param [String] id Object identifier of the catalog item.
+        # @param [Hash{String=>Boolean,DateTime,Fixnum,String}] metadata
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpdateCatalogItemMetadata.html
+        # @since vCloud API version 1.5
+        def post_update_catalog_item_metadata(id, metadata={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            Metadata(attrs) {
+              metadata.each do |key, value|
+                MetadataEntry {
+                  Key key
+                  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
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "catalogItem/#{id}/metadata/"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,52 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Merge the metadata provided in the request with existing metadata.
+        #
+        # @param [String] id Object identifier of the disk.
+        # @param [Hash{String=>Boolean,DateTime,Fixnum,String}] metadata
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpdateDiskMetadata.html
+        # @since vCloud API version 5.1
+        def post_update_disk_metadata(id, metadata={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            Metadata(attrs) {
+              metadata.each do |key, value|
+                MetadataEntry {
+                  Key key
+                  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
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "disk/#{id}/metadata/"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,52 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Merge the metadata provided in the request with existing metadata.
+        #
+        # @param [String] id Object identifier of the media object.
+        # @param [Hash{String=>Boolean,DateTime,Fixnum,String}] metadata
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpdateMediaMetadata.html
+        # @since vCloud API version 1.5
+        def post_update_media_metadata(id, metadata={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            Metadata(attrs) {
+              metadata.each do |key, value|
+                MetadataEntry {
+                  Key key
+                  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
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "media/#{id}/metadata/"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,86 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Merge the metadata provided in the request with existing metadata.
+        #
+        # @param [String] id Object identifier of the vApp or VM.
+        # @param [Hash{String=>Boolean,DateTime,Fixnum,String}] metadata
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpdateVAppMetadata.html
+        # @since vCloud API version 1.5
+        def post_update_vapp_metadata(id, metadata={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            Metadata(attrs) {
+              metadata.each do |key, value|
+                MetadataEntry {
+                  Key key
+                  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
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/metadata/"
+          )
+        end
+      end
+      class Mock
+        def post_update_vapp_metadata(id, metadata={})
+          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
+              metadata.each do |k,v|
+                data[:tags][id] ||= {}
+                data[:tags][id][k] = v
+              end
+            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/post_update_vapp_template_metadata.rb

@@ -0,0 +1,52 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Merge the metadata provided in the request with existing metadata.
+        #
+        # @param [String] id Object identifier of the vApp template.
+        # @param [Hash{String=>Boolean,DateTime,Fixnum,String}] metadata
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpdateVAppTemplateMetadata.html
+        # @since vCloud API version 1.5
+        def post_update_vapp_template_metadata(id, metadata={})
+          body = Nokogiri::XML::Builder.new do
+            attrs = {
+              :xmlns => 'http://www.vmware.com/vcloud/v1.5',
+              'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+            }
+            Metadata(attrs) {
+              metadata.each do |key, value|
+                MetadataEntry {
+                  Key key
+                  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
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 202,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.metadata+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vAppTemplate/#{id}/metadata/"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,28 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Upgrade the virtual hardware version of a VM to the highest supported
+        # virtual hardware version of the vDC that contains it.
+        #
+        # 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.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-UpgradeHwVersion.html
+        # @since vCloud API version 5.1
+        def post_upgrade_hw_version(id)
+          request(
+            :expects => 202,
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vApp/#{id}/action/upgradeHardwareVersion"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,133 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Create a disk.
+        #
+        # @param [String] id Object identifier of the vDC.
+        # @param [String] name The name of the disk.
+        # @param [Integer] size Size of the disk. For modify operation this is
+        #   required only for the XSD validation it could not be changed.
+        # @param [Hash] options
+        # @option options [String] :operationKey Optional unique identifier to
+        #   support idempotent semantics for create and delete operations.
+        # @option options [Integer] :busSubType Disk bus sub type.
+        # @option options [Integer] :busType Disk bus type.
+        # @option options [String] :Description Optional description.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #     * :href<~String> - The URI of the disk.
+        #     * :type<~String> - The MIME type of the disk.
+        #     * :id<~String> - The disk identifier, expressed in URN format.
+        #     * :operationKey<~String> - Optional unique identifier to support
+        #       idempotent semantics for create and delete operations.
+        #     * :name<~String> - The name of the disk.
+        #     * :status<~String> - Creation status of the disk.
+        #     * :busSubType<~String> - Disk bus sub type.
+        #     * :busType<~String> - Disk bus type.
+        #     * :size<~String> - Size of the disk.
+        #     * :Link:
+        #     * :Description<~String> - Optional description.
+        #     * :Tasks<~Hash>:
+        #     * :StorageProfile<~Hash> - Storage profile of the disk.
+        #       * :href<~String> - Contains the URI to the entity.
+        #       * :name<~String> - Contains the name of the entity.
+        #       * :type<~String> - Contains the type of the entity.
+        #     * :Owner<~Hash> - Disk owner.
+        #       * :type<~String> - The MIME type of the entity.
+        #       * :User<~Hash> - Reference to the user who is the owner of this
+        #         disk.
+        #         * :href<~String> - Contains the URI to the entity.
+        #         * :name<~String> - Contains the name of the entity.
+        #         * :type<~String> - Contains the type of the entity.
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/POST-CreateDisk.html
+        # @since vCloud API version 5.1
+        def post_upload_disk(id, name, size, options={})
+          body = Nokogiri::XML::Builder.new do
+            DiskCreateParams(:xmlns => 'http://www.vmware.com/vcloud/v1.5') {
+              attrs = {
+                :name => name,
+                :size => size
+              }
+              attrs[:operationKey] = options[:operationKey] if options.key?(:operationKey)
+              attrs[:busSubType] = options[:busSubType] if options.key?(:busSubType)
+              attrs[:busType] = options[:busType] if options.key?(:busType)
+              Disk(attrs) {
+                if options.key?(:Description)
+                  Description options[:Description]
+                end
+                if options.key?(:StorageProfile)
+                  attrs = {
+                    :href => options[:StorageProfile][:href]
+                  }
+                  StorageProfile(attrs)
+                end
+              }
+            }
+          end.to_xml
+
+          request(
+            :body    => body,
+            :expects => 201,
+            :headers => {'Content-Type' => 'application/vnd.vmware.vcloud.diskCreateParams+xml'},
+            :method  => 'POST',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "vdc/#{id}/disk"
+          )
+        end
+      end
+
+      class Mock
+        def post_upload_disk(id, name, size, options={})
+          unless size.to_s =~ /^\d+$/
+            raise Fog::Compute::VcloudDirector::BadRequest.new(
+              "validation error on field 'diskSpec.sizeBytes': must be greater than or equal to 0"
+            )
+          end
+          unless data[:vdcs][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'No access to entity "(com.vmware.vcloud.entity.vdc:%s)".' % id
+            )
+          end
+
+          disk_id = uuid
+
+          owner = {
+            :href => make_href("disk/#{disk_id}"),
+            :type => 'application/vnd.vmware.vcloud.disk+xml'
+          }
+          task_id = enqueue_task(
+            "Creating Disk #{name}(#{disk_id})", 'vdcCreateDisk', owner,
+            :on_success => lambda do
+              data[:disks][disk_id][:status] = 1
+            end
+          )
+
+          disk = {
+            :description => options[:Description],
+            :name => name,
+            :size => size.to_i,
+            :status => 0,
+            :tasks => [task_id],
+            :vdc_id => id,
+            :vdc_storage_class => data[:vdc_storage_classes].find {|k,v| v[:default]}.first
+          }
+          data[:disks][disk_id] = disk
+
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :xsi_schemaLocation => xsi_schema_location
+          }.merge(disk_body(disk_id))
+
+          Excon::Response.new(
+            :status => 201,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{api_version}"},
+            :body => body
+          )
+        end
+      end
+    end
+  end
+end