fog-vcloud-director 0.1.0

data/lib/fog/vcloud_director/parsers/compute/vm_customization.rb

@@ -0,0 +1,55 @@
+module Fog
+  module Parsers
+    module Compute
+      module VcloudDirector
+        class VmCustomization < VcloudDirectorParser
+          def reset
+            @response = { }
+          end
+
+          def start_element(name, attributes)
+            super
+            case name
+            when 'GuestCustomizationSection'
+              customizations = extract_attributes(attributes)
+              @response[:href] = customizations[:href]
+              @response[:type] = customizations[:type]
+              # href looks like this:
+              #  "https://example.com/api/vApp/vm-2bbbf556-55dc-4974-82e6-aa6e814f0b64/guestCustomizationSection/"
+              @response[:id] = @response[:href].split('/')[-2]
+            end
+          end
+
+          def end_element(name)
+            case name
+            when 'Enabled'
+              @response[:enabled] = (value == "true")
+            when 'ChangeSid'
+              @response[:change_sid] = (value == "true")
+            when 'JoinDomainEnabled'
+              @response[:join_domain_enabled] = (value == "true")
+            when 'UseOrgSettings'
+              @response[:use_org_settings] = (value == "true")
+            when 'AdminPassword'
+              @response[:admin_password] = value
+            when 'AdminPasswordEnabled'
+              @response[:admin_password_enabled] = (value == "true")
+              @response[:admin_password] = '' unless @response[:admin_password_enabled]
+            when 'AdminPasswordAuto'
+              @response[:admin_password_auto] = (value == "true")
+            when 'ResetPasswordRequired'
+              @response[:reset_password_required] = (value == "true")
+            when 'VirtualMachineId'
+              @response[:virtual_machine_id] = value
+            when 'ComputerName'
+              @response[:computer_name] = value
+            when 'CustomizationScript'
+              @response[:has_customization_script] = !value.empty?
+              @response[:customization_script] = CGI::unescapeHTML(value) if @response[:has_customization_script]
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/parsers/compute/vm_network.rb

@@ -0,0 +1,107 @@
+module Fog
+  module Parsers
+    module Compute
+      module VcloudDirector
+        #
+        #{:xmlns=>"http://www.vmware.com/vcloud/v1.5",
+        # :xmlns_xsi=>"http://www.w3.org/2001/XMLSchema-instance",
+        # :name=>"DevOps - Dev Network Connection",
+        # :id=>"urn:vcloud:network:d5f47bbf-de27-4cf5-aaaa-56772f2ccd17",
+        # :type=>"application/vnd.vmware.vcloud.orgNetwork+xml",
+        # :href=>
+        #  "https://example.com/api/network/d5f47bbf-de27-4cf5-aaaa-56772f2ccd17",
+        # :xsi_schemaLocation=>
+        #  "http://www.vmware.com/vcloud/v1.5 http://10.194.1.65/api/v1.5/schema/master.xsd",
+        # :Link=>
+        #  [{:rel=>"up",
+        #    :type=>"application/vnd.vmware.vcloud.org+xml",
+        #    :name=>"DevOps",
+        #    :href=>
+        #     "https://example.com/api/org/c6a4c623-c158-41cf-a87a-dbc1637ad55a"},
+        #   {:rel=>"down",
+        #    :type=>"application/vnd.vmware.vcloud.metadata+xml",
+        #    :href=>
+        #     "https://example.com/api/network/d5f47bbf-de27-4cf5-aaaa-56772f2ccd17/metadata"}],
+        # :Description=>"",
+        # :Configuration=>
+        #  {:IpScope=>
+        #    {:IsInherited=>"true",
+        #     :Gateway=>"10.192.0.1",
+        #     :Netmask=>"255.255.252.0",
+        #     :Dns1=>"10.192.0.11",
+        #     :Dns2=>"10.192.0.12",
+        #     :DnsSuffix=>"dev.ad.mdsol.com",
+        #     :IpRanges=>
+        #      {:IpRange=>
+        #        {:StartAddress=>"10.192.0.100", :EndAddress=>"10.192.3.254"}}},
+        #   :FenceMode=>"bridged",
+        #   :RetainNetInfoAcrossDeployments=>"false"}}
+        #
+        #<?xml version="1.0" encoding="UTF-8"?>
+        #<OrgNetwork xmlns="http://www.vmware.com/vcloud/v1.5" name="DevOps - Dev Network Connection" id="urn:vcloud:network:d5f47bbf-de27-4cf5-aaaa-56772f2ccd17" type="application/vnd.vmware.vcloud.orgNetwork+xml" href="https://example.com/api/network/d5f47bbf-de27-4cf5-aaaa-56772f2ccd17" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.vmware.com/vcloud/v1.5 http://10.194.1.65/api/v1.5/schema/master.xsd">
+        #    <Link rel="up" type="application/vnd.vmware.vcloud.org+xml" name="DevOps" href="https://example.com/api/org/c6a4c623-c158-41cf-a87a-dbc1637ad55a"/>
+        #    <Link rel="down" type="application/vnd.vmware.vcloud.metadata+xml" href="https://example.com/api/network/d5f47bbf-de27-4cf5-aaaa-56772f2ccd17/metadata"/>
+        #    <Description/>
+        #    <Configuration>
+        #        <IpScope>
+        #            <IsInherited>true</IsInherited>
+        #            <Gateway>10.192.0.1</Gateway>
+        #            <Netmask>255.255.252.0</Netmask>
+        #            <Dns1>10.192.0.11</Dns1>
+        #            <Dns2>10.192.0.12</Dns2>
+        #            <DnsSuffix>dev.ad.mdsol.com</DnsSuffix>
+        #            <IpRanges>
+        #                <IpRange>
+        #                    <StartAddress>10.192.0.100</StartAddress>
+        #                    <EndAddress>10.192.3.254</EndAddress>
+        #                </IpRange>
+        #            </IpRanges>
+        #        </IpScope>
+        #        <FenceMode>bridged</FenceMode>
+        #        <RetainNetInfoAcrossDeployments>false</RetainNetInfoAcrossDeployments>
+        #    </Configuration>
+        #</OrgNetwork>
+        #
+        class VmNetwork < VcloudDirectorParser
+          def reset
+            @response = { }
+          end
+
+          def start_element(name, attributes)
+            super
+            case name
+            when 'NetworkConnectionSection'
+              network_connection_section = extract_attributes(attributes)
+              @response[:type] = network_connection_section[:type]
+              @response[:href] = network_connection_section[:href]
+              @response[:id] = @response[:href].split('/')[-2]
+            when 'NetworkConnection'
+              network_connection = extract_attributes(attributes)
+              @response[:network] = network_connection[:network]
+              @response[:needs_customization] = ( network_connection[:needsCustomization] == "true" )
+            end
+          end
+
+          def end_element(name)
+            case name
+            when 'Info'
+              @response[:info] = value
+            when 'PrimaryNetworkConnectionIndex'
+              @response[:primary_network_connection_index] = value.to_i
+            when 'NetworkConnectionIndex'
+              @response[:network_connection_index] = value.to_i
+            when 'IpAddress'
+              @response[:ip_address] = value
+            when 'IsConnected'
+              @response[:is_connected] = (value == "true")
+            when 'MACAddress'
+              @response[:mac_address] = value
+            when 'IpAddressAllocationMode'
+              @response[:ip_address_allocation_mode] = value
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/parsers/compute/vm_parser_helper.rb

@@ -0,0 +1,62 @@
+module Fog
+  module Parsers
+    module Compute
+      module VcloudDirector
+        module VmParserHelper
+
+          def parse_end_element(name, vm)
+            case name
+            when 'IpAddress'
+              vm[:ip_address] = value
+            when 'Description'
+              if @in_operating_system
+                vm[:operating_system] = value
+                @in_operating_system = false
+              end
+            when 'ResourceType'
+              @resource_type = value
+            when 'VirtualQuantity'
+              case @resource_type
+              when '3'
+                vm[:cpu] = value
+              when '4'
+                vm[:memory] = value
+              end
+            when 'ElementName'
+              @element_name = value
+            when 'Item'
+              if @resource_type == '17' # disk
+                vm[:disks] ||= []
+                vm[:disks] << { @element_name => @current_host_resource[:capacity].to_i }
+              end
+            when 'Connection'
+              vm[:network_adapters] ||= []
+              vm[:network_adapters] << {
+                :ip_address => @current_network_connection[:ipAddress],
+                :primary => (@current_network_connection[:primaryNetworkConnection] == 'true'),
+                :ip_allocation_mode => @current_network_connection[:ipAddressingMode],
+                :network => value
+              }
+            when 'Link'
+              vm[:links] = @links
+            end
+          end
+
+          def parse_start_element(name, attributes, vm)
+            case name
+            when 'OperatingSystemSection'
+              @in_operating_system = true
+            when 'HostResource'
+              @current_host_resource = extract_attributes(attributes)
+            when 'Connection'
+              @current_network_connection = extract_attributes(attributes)
+            when 'Link'
+              @links << extract_attributes(attributes)
+            end
+          end
+
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/parsers/compute/vms.rb

@@ -0,0 +1,68 @@
+require 'fog/vcloud_director/parsers/compute/vm_parser_helper'
+
+module Fog
+  module Parsers
+    module Compute
+      module VcloudDirector
+        class Vms < VcloudDirectorParser
+          include VmParserHelper
+
+          def reset
+            @vm = { :ip_address => '' }
+            @in_operating_system = false
+            @in_children = false
+            @resource_type = nil
+            @response = { :vms => [] }
+            @links = []
+          end
+
+          def start_element(name, attributes)
+            super
+            case name
+            when 'Vm'
+              vapp = extract_attributes(attributes)
+              @vm.merge!(vapp.reject {|key,value| ![:href, :name, :status, :type, :deployed].include?(key)})
+              @vm[:deployed] = response[:deployed] == 'true'
+              @vm[:id] = @vm[:href].split('/').last
+              @vm[:vapp_id] = @response[:id]
+              @vm[:vapp_name] = @response[:name]
+              @vm[:status] = human_status(@vm[:status])
+            when 'VApp'
+              vapp = extract_attributes(attributes)
+              @response.merge!(vapp.reject {|key,value| ![:href, :name, :size, :status, :type].include?(key)})
+              @response[:id] = @response[:href].split('/').last
+            when 'Children'
+              @in_children = true
+            else
+              parse_start_element name, attributes, @vm
+            end
+          end
+
+          def end_element(name)
+            if @in_children
+              if name == 'Vm'
+                @response[:vms] << @vm
+                @vm = {}
+              else
+                parse_end_element name, @vm
+              end
+            end
+          end
+
+          def human_status(status)
+            case status
+            when '0', 0
+              'creating'
+            when '8', 8
+              'off'
+            when '4', 4
+              'on'
+            else
+              'unknown'
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/parsers/compute/vms_by_metadata.rb

@@ -0,0 +1,37 @@
+module Fog
+  module Parsers
+    module Compute
+      module VcloudDirector
+        class VmsByMetadata < VcloudDirectorParser
+          def reset
+            @response = { :vm_records => [] }
+          end
+
+          def start_element(name, attributes)
+            super
+            case name
+            when 'QueryResultRecords'
+              results = extract_attributes(attributes)
+              @response[:type] = results[:type]
+              @response[:href] = results[:href]
+              @response[:total] = results[:total].to_i
+              # href "https://devlab.mdsol.com/api/vms/query?page=1&amp;pageSize=25&amp;format=records&amp;filter=metadata:unoo==STRING:janderr&amp;fields=name,containerName"
+              key = @response[:href].scan(/filter=metadata:(.*)==STRING/).flatten.first
+              value = @response[:href].scan(/STRING:(.*)&?/).flatten.first
+              @response[:id] = "#{key}:#{value}"
+            when 'VMRecord'
+              results = extract_attributes(attributes)
+              results[:id] = results[:href].split('/').last
+              results[:vapp_name] = results.delete(:containerName)
+              results[:vapp_id] = results.delete(:container).split('/').last
+              results[:cpu] = results.delete(:numberOfCpus)
+              results[:memory] = results.delete(:memoryMB)
+              results[:type] = "application/vnd.vmware.vcloud.vm+xml"
+              @response[:vm_records] << results
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/query.rb

@@ -0,0 +1,59 @@
+require 'pp'
+module Fog
+  module VcloudDirector
+    module Query
+
+      def find_by_query(options={})
+        type = options.fetch(:type) { self.query_type }
+
+        results = get_all_results(type, options)
+        data = results.map do |query_record|
+          model_data = {}
+          model_data[:id] = query_record[:href].split('/').last
+          model_data[:name] = query_record.fetch(:name) if query_record.key?(:name)
+          if self.methods.include?(:populate_model_from_query_record)
+            model_data.merge(self.populate_model_from_query_record(query_record))
+          else
+            model_data
+          end
+        end
+        load(data)
+      end
+
+      private
+
+      def get_all_results(type, options)
+        results = []
+        if options.key?(:page)
+          page_range = [ Integer(options[:page]) ]
+        else
+          page_range = (1..get_num_pages(type, options))
+        end
+        page_range.each do |page|
+          results += get_results_page(page, type, options) || []
+        end
+        results
+      end
+
+      def get_num_pages(type, options)
+        body = service.get_execute_query(type, options)
+        last_page = body[:lastPage] || 1
+        raise "Invalid lastPage (#{last_page}) in query results" unless last_page.is_a? Integer
+        last_page.to_i
+      end
+
+      def get_results_page(page, type, options)
+        body = service.get_execute_query(type, options.merge({:page=>page})).body
+
+        record_key = key_of_first_record_or_reference(body)
+        body[record_key] = [body[record_key]] if body[record_key].is_a?(Hash)
+        body[record_key]
+      end
+
+      def key_of_first_record_or_reference(body)
+        body.keys.detect { |key| key.to_s =~ /Record|Reference$/ }
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,22 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Delete a catalog item.
+        #
+        # @param [String] id Object identifier of the catalog item.
+        # @return [Excon::Response]
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/DELETE-CatalogItem.html
+        # @since vCloud API version 0.9
+        def delete_catalog_item(id)
+          request(
+            :expects => 204,
+            :method  => 'DELETE',
+            :path    => "catalogItem/#{id}"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,25 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Delete the specified key and its value from catalog item metadata.
+        #
+        # @param [String] id Object identifier of the catalog item.
+        # @param [String] key Key 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/DELETE-CatalogItemMetadataItem-metadata.html
+        # @since vCloud API version 1.5
+        def delete_catalog_item_metadata_item_metadata(id, key)
+          request(
+            :expects => 202,
+            :method  => 'DELETE',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "catalogItem/#{id}/metadata/#{URI.escape(key)}"
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,60 @@
+module Fog
+  module Compute
+    class VcloudDirector
+      class Real
+        # Delete a disk.
+        #
+        # 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 disk.
+        # @return [Excon::Response]
+        #   * body<~Hash>:
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/operations/DELETE-Disk.html
+        # @since vCloud API version 5.1
+        def delete_disk(id)
+          request(
+            :expects => 202,
+            :method  => 'DELETE',
+            :parser  => Fog::ToHashDocument.new,
+            :path    => "disk/#{id}"
+          )
+        end
+      end
+
+      class Mock
+        def delete_disk(id)
+          unless data[:disks][id]
+            raise Fog::Compute::VcloudDirector::Forbidden.new(
+              "No access to entity \"(com.vmware.vcloud.entity.disk:#{id})\""
+            )
+          end
+
+          owner = {
+            :href => make_href("disk/#{id}"),
+            :type => 'application/vnd.vmware.vcloud.disk+xml'
+          }
+          task_id = enqueue_task(
+            "Deleting Disk(#{id})", 'vdcDeleteDisk', owner,
+            :on_success => lambda do
+              data[:disks].delete(id)
+            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