fog-vcloud-director 0.1.0

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

@@ -0,0 +1,123 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve a disk.
+        #
+        # @param [String] id Object identifier of the disk.
+        # @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.
+        #     * :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.
+        #     * :Description<~String> - Optional description.
+        #     * :Tasks<~Hash> - A list of queued, running, or recently
+        #       completed tasks associated with this disk.
+        #     * :StorageProfile<~Hash> - Storage profile of the disk.
+        #     * :Owner<~Hash> - Disk owner.
+        #
+        # @raise [Fog::Compute::VcloudDirector::Forbidden]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-Disk.html
+        # @since vCloud API version 5.1
+        def get_disk(id)
+          response = request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => "disk/#{id}"
+          )
+          ensure_list! response.body, :Link
+          ensure_list! response.body, :Tasks, :Task
+          ensure_list! response.body, :Files, :File
+          response
+        end
+      end
+
+      class Mock
+        def get_disk(id)
+          unless data[:disks][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'No access to entity "com.vmware.vcloud.entity.disk:%s".' % id
+            )
+          end
+
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :xsi_schemaLocation => xsi_schema_location
+          }.merge(disk_body(id))
+
+          Excon::Response.new(
+            :status => 200,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{@version}"},
+            :body => body
+          )
+        end
+
+        private
+
+        def disk_body(id)
+          disk = data[:disks][id]
+          storage_class_id = disk[:vdc_storage_class]
+
+          body = {
+            :href => make_href("disk/#{id}"),
+            :type => 'application/vnd.vmware.vcloud.disk+xml',
+            :id => "urn:vcloud:disk:#{id}",
+            :name => disk[:name],
+            :status => disk[:status].to_s,
+            :busSubType => disk[:bus_sub_type],
+            :busType => disk[:bus_type],
+            :size => disk[:size].to_s,
+            :Link => [
+              {
+                :href => make_href("vdc/#{disk[:vdc_id]}"),
+                :rel => 'up',
+                :type => 'application/vnd.vmware.vcloud.vdc+xml'
+              }
+            ],
+            :Description => disk[:description],
+            :Tasks => {
+              # FIXME: there's only one for now
+              :Task => disk[:tasks].map {|task_id| task_body(task_id)}.first
+            },
+            :Files => {
+              :File => []
+            },
+            :StorageProfile => {
+              :href => make_href("vdcStorageProfile/#{storage_class_id}"),
+              :name => data[:vdc_storage_classes][storage_class_id][:name],
+              :type => 'application/vnd.vmware.vcloud.vdcStorageProfile+xml',
+            },
+            :Owner => {
+              :type => 'application/vnd.vmware.vcloud.owner+xml',
+              :User => {
+                :href => make_href("admin/user/#{user_uuid}"),
+                :name => user_name,
+                :type => 'application/vnd.vmware.admin.user+xml',
+              }
+            }
+          }
+
+          if api_version.to_f >= 5.1
+            storage_class_id = disk[:vdc_storage_class]
+            body[:VdcStorageProfile] = {
+              :href => make_href("vdcStorageProfile/#{storage_class_id}"),
+              :name => data[:vdc_storage_classes][storage_class_id][:name],
+              :type => 'application/vnd.vmware.vcloud.vdcStorageProfile+xml',
+            }
+          end
+
+          body
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,25 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve metadata associated with the disk.
+        #
+        # @param [String] id Object identifier of the disk.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-DiskMetadata.html
+        # @since vCloud API version 5.1
+        def get_disk_metadata(id)
+          request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => "disk/#{id}/metadata"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,26 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve the value of the specified key from disk metadata.
+        #
+        # @param [String] id Object identifier of the disk.
+        # @param [String] key Key of the metadata.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-DiskMetadataItem-metadata.html
+        # @since vCloud API version 5.1
+        def get_disk_metadata_item_metadata(id, key)
+          request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => "disk/#{id}/metadata/#{URI.escape(key)})"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,70 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve the owner of a disk.
+        #
+        # @param [String] id Object identifier of the disk.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #     * :href<~String> - The URI of the disk.
+        #     * :type<~String> - The MIME type of the disk.
+        #     * :Link<~Hash>:
+        #       * :href<~String> -
+        #       * :type<~String> -
+        #       * :rel<~String> -
+        #     * :User<~Hash> - Reference to the user who is the owner of this
+        #       disk.
+        #       * :href<~String> - The URI of the user.
+        #       * :name<~String> - The name of the user.
+        #       * :type<~String> - The MIME type of the user.
+        #
+        # @raise [Fog::Compute::VcloudDirector::Forbidden]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-DiskOwner.html
+        # @since vCloud API version 5.1
+        def get_disk_owner(id)
+          request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => "disk/#{id}/owner"
+          )
+        end
+      end
+
+      class Mock
+        def get_disk_owner(id)
+          unless data[:disks][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'No access to entity "com.vmware.vcloud.entity.disk:%s".' % id
+            )
+          end
+
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :xsi_schemaLocation => xsi_schema_location,
+            :Link => {
+              :href => make_href("disk/#{id}"),
+              :type => 'application/vnd.vmware.vcloud.disk+xml',
+              :rel => 'up'
+            },
+            :User => {
+              :href => make_href("admin/user/#{user_uuid}"),
+              :name => user_name,
+              :type => 'application/vnd.vmware.admin.user+xml',
+            }
+          }
+
+          Excon::Response.new(
+            :status => 200,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{@version}"},
+            :body => body
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,94 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieves a disk list by using REST API general QueryHandler.
+        #
+        # @param [Hash] options
+        # @option options [String] :sortAsc (Sorted by database ID) Sort
+        #   results by attribute-name in ascending order. attribute-name cannot
+        #   include metadata.
+        # @option options [String] :sortDesc (Sorted by database ID) Sort
+        #   results by attribute-name in descending order. attribute-name
+        #   cannot include metadata.
+        # @option options [Integer] :page (1) If the query results span
+        #   multiple pages, return this page.
+        # @option options [Integer] :pageSize (25) Number of results per page,
+        #   to a maximum of 128.
+        # @option options [String] :format (records) One of the following
+        #   types:
+        #   - *references* Returns a reference to each object, including its
+        #     :name, :type, and :href attributes.
+        #   - *records* Returns all database records for each object, with each
+        #     record as an attribute.
+        #   - *idrecords* Identical to the records format, except that object
+        #     references are returned in :id format rather than :href format.
+        # @option options [Array<String>] :fields (all static attribute names)
+        #   List of attribute names or metadata key names to return.
+        # @option options [Integer] :offset (0) Integer value specifying the
+        #   first record to return. Record numbers < offset are not returned.
+        # @option options [String] :filter (none) Filter expression.
+        # @return [Excon::Response]
+        #   * hash<~Hash>:
+        #     * :href<~String> - The URI of the entity.
+        #     * :type<~String> - The MIME type of the entity.
+        #     * :name<~String> - Query name that generated this result set.
+        #     * :page<~String> - Page of the result set that this container
+        #       holds. The first page is page number 1.
+        #     * :pageSize<~String> - Page size, as a number of records or
+        #       references.
+        #     * :total<~String> - Total number of records or references in the
+        #       container.
+        #     * :Link<~Array<Hash>>:
+        #       * :href<~String> - Contains the URI to the entity.
+        #       * :type<~String> - Contains the type of the entity.
+        #       * :rel<~String> - Defines the relationship of the link to the
+        #         object that contains it.
+        #     * :DiskRecord<~Array<Hash>>:
+        #       * TODO
+        #     * :firstPage<~Integer> - First page in the result set.
+        #     * :previousPage<~Integer> - Previous page in the result set.
+        #     * :nextPage<~Integer> - Next page in the result set.
+        #     * :lastPage<~Integer> - Last page in the result set.
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-DisksFromQuery.html
+        # @since vCloud API version 1.5
+        def get_disks_from_query(options={})
+          query = []
+          query << "sortAsc=#{options[:sortAsc]}" if options[:sortAsc]
+          query << "sortDesc=#{options[:sortDesc]}" if options[:sortDesc]
+          query << "page=#{options[:page]}" if options[:page]
+          query << "pageSize=#{options[:pageSize]}" if options[:pageSize]
+          query << "format=#{options[:format]}" if options[:format]
+          query << "fields=#{Array(options[:fields]).join(',')}" if options[:fields]
+          query << "offset=#{options[:offset]}" if options[:offset]
+          query << "filter=#{options[:filter]}" if options[:filter]
+
+          response = request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => 'disks/query',
+            :query      => query.map {|q| URI.escape(q)}.join('&')
+          )
+          ensure_list! response.body, :Link
+          ensure_list! response.body,
+            response.body[:type] == 'application/vnd.vmware.vcloud.query.references+xml' ?
+              :DiskReference : :DiskRecord
+
+          %w[firstPage previousPage nextPage lastPage].each do |rel|
+            if link = response.body[:Link].find {|l| l[:rel] == rel}
+              href = Nokogiri::XML.fragment(link[:href])
+              query = CGI.parse(URI.parse(href.text).query)
+              response.body[rel.to_sym] = query['page'].first.to_i
+              response.body[:pageSize] ||= query['pageSize'].first.to_i
+            end
+          end
+
+          response
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,90 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve all RASD items that specify hard disk and hard disk
+        # controller properties of a VM.
+        #
+        # @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/GET-DisksRasdItemsList.html
+        # @since vCloud API version 0.9
+        def get_disks_rasd_items_list(id)
+          request(
+            :expects    => 200,
+            :idempotent => true,
+            :method     => 'GET',
+            :parser     => Fog::ToHashDocument.new,
+            :path       => "vApp/#{id}/virtualHardwareSection/disks"
+          )
+        end
+      end
+
+      class Mock
+
+        def get_disks_rasd_items_list(id)
+          type = 'application/vnd.vmware.vcloud.rasdItemsList+xml'
+
+          unless vm = data[:vms][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              'This operation is denied.'
+            )
+          end
+
+          body = {
+            :type => type,
+            :href => make_href("vApp/#{id}/virtualHardwareSection/disks"),
+            :Link => {
+              :rel=>"edit",
+              :type=>"application/vnd.vmware.vcloud.rasdItemsList+xml",
+              :href=>make_href("vApp/#{id}/virtualHardwareSection/disks"),
+            },
+            :Item => [
+              get_disks_rasd_items_list_body(id, vm),
+              get_media_rasd_item_ide_controller_body(id, vm),
+            ].flatten
+          }
+
+          Excon::Response.new(
+            :status => 200,
+            :headers => {'Content-Type' => "#{type};version=#{api_version}"},
+            :body => body
+          )
+        end
+
+        def get_disks_rasd_items_list_body(id, vm)
+          [
+            {
+              :"rasd:Address"=>"0",
+              :"rasd:Description"=>"SCSI Controller",
+              :"rasd:ElementName"=>"SCSI Controller 0",
+              :"rasd:InstanceID"=>"2",
+              :"rasd:ResourceSubType"=>"lsilogic",
+              :"rasd:ResourceType"=>"6"
+            },
+
+            # TODO: Add support for adding disks
+            {
+              :"rasd:AddressOnParent"=>"0",
+              :"rasd:Description"=>"Hard disk",
+              :"rasd:ElementName"=>"Hard disk 1",
+              :"rasd:HostResource"=>{
+                :ns12_capacity=>"51200",
+                :ns12_busSubType=>"lsilogic",
+                :ns12_busType=>"6"
+              },
+              :"rasd:InstanceID"=>"2000",
+              :"rasd:Parent"=>"2",
+              :"rasd:ResourceType"=>"17"
+            },
+
+          ]
+        end
+
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,109 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Retrieve an edge gateway.
+        #
+        # @param [String] id Object identifier of the edge gateway.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @raise [Fog::Compute::VcloudDirector::Forbidden]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/GET-EdgeGateway.html
+        # @since vCloud API version 5.1
+        def get_edge_gateway(id)
+          response = request(
+              :expects => 200,
+              :idempotent => true,
+              :method => 'GET',
+              :parser => Fog::ToHashDocument.new,
+              :path => "admin/edgeGateway/#{id}"
+          )
+
+          ensure_list! response.body[:Configuration], :GatewayInterfaces, :GatewayInterface
+
+          edge_gateway_service_configuration = response.body[:Configuration][:EdgeGatewayServiceConfiguration]
+
+          ensure_list! edge_gateway_service_configuration[:FirewallService], :FirewallRule if edge_gateway_service_configuration[:FirewallService]
+          ensure_list! edge_gateway_service_configuration[:NatService], :NatRule if edge_gateway_service_configuration[:NatService]
+
+          if edge_gateway_service_configuration[:LoadBalancerService]
+
+            ensure_list! edge_gateway_service_configuration[:LoadBalancerService], :Pool
+            edge_gateway_service_configuration[:LoadBalancerService][:Pool].each do |pool|
+              ensure_list! pool, :ServicePort
+              ensure_list! pool, :Member
+              pool[:Member].each do |member|
+                ensure_list! member, :ServicePort
+              end
+            end
+
+            ensure_list! edge_gateway_service_configuration[:LoadBalancerService], :VirtualServer
+            edge_gateway_service_configuration[:LoadBalancerService][:VirtualServer].each do |virtual_server|
+              ensure_list! virtual_server, :ServiceProfile
+            end
+
+          end
+
+          response
+        end
+      end
+
+      class Mock
+        def get_edge_gateway(id)
+          unless edge_gateway = data[:edge_gateways][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              "No access to entity \"(com.vmware.vcloud.entity.gateway:#{id})\""
+            )
+          end
+
+          vdc_id = edge_gateway[:vdc]
+          body = {
+            :xmlns => xmlns,
+            :xmlns_xsi => xmlns_xsi,
+            :status => "1",
+            :name => edge_gateway[:name],
+            :id => "urn:vcloud:gateway:#{id}",
+            :type => "application/vnd.vmware.admin.edgeGateway+xml",
+            :href => make_href("admin/edgeGateway/#{id}"),
+            :xsi_schemaLocation => xsi_schema_location,
+            :Link =>[{:rel => "up",
+                      :type => "application/vnd.vmware.vcloud.vdc+xml",
+                      :href => make_href("vdc/#{vdc_id}")},
+                     {:rel => "edgeGateway:redeploy",
+                      :href => make_href("admin/edgeGateway/#{id}/action/redeploy")},
+                     {:rel => "edgeGateway:configureServices",
+                      :type => "application/vnd.vmware.admin.edgeGatewayServiceConfiguration+xml",
+                      :href => make_href("admin/edgeGateway/#{id}/action/configureServices")},
+                     {:rel => "edgeGateway:reapplyServices",
+                      :href => make_href("admin/edgeGateway/#{id}/action/reapplyServices")},
+                     {:rel => "edgeGateway:syncSyslogSettings",
+                      :href => make_href("admin/edgeGateway/#{id}/action/syncSyslogServerSettings")}],
+            :Description => "vCloud CI (nft00052i2)",
+            :Configuration => edge_gateway[:Configuration].dup
+          }
+
+          body[:Configuration][:GatewayInterfaces][:GatewayInterface] += edge_gateway[:networks].map do |network|
+            extras = {
+              :Network => {
+                :type => "application/vnd.vmware.admin.network+xml",
+                :name => "anything",
+                :href => make_href("admin/network/#{network}")
+              },
+              :Name => data[:networks][network][:name],
+              :DisplayName => data[:networks][network][:name]
+            }
+            data[:networks][network].merge extras
+          end
+
+          Excon::Response.new(
+            :status => 200,
+            :headers => {'Content-Type' => "#{body[:type]};version=#{api_version}"},
+            :body => body
+          )
+        end
+      end
+    end
+  end
+end