fog-vcloud-director 0.1.0

data/lib/fog/vcloud_director/generators/compute/recompose_vapp.rb

@@ -0,0 +1,34 @@
+require 'fog/vcloud_director/generators/compute/compose_common'
+
+module Fog
+  module Generators
+    module Compute
+      module VcloudDirector
+        # @see http://pubs.vmware.com/vcd-51/index.jsp#types/RecomposeVAppParamsType.html
+        class RecomposeVapp
+
+          include ComposeCommon
+
+          def generate_xml
+            Nokogiri::XML::Builder.new do |xml|
+              xml.RecomposeVAppParams(vapp_attrs) {
+                if has_source_items?
+                  build_vapp_instantiation_params(xml)
+                  build_source_items(xml)
+                end
+                build_delete_items(xml)
+              }
+            end.to_xml
+          end
+
+          private
+
+          def build_delete_items(xml)
+             @configuration[:vms_to_delete].each { |vm| xml.DeleteItem(:href => vm.href) }
+          end
+
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/generators/compute/vapp.rb

@@ -0,0 +1,28 @@
+module Fog
+  module Generators
+    module Compute
+      module VcloudDirector
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/types/VAppType.html
+        class Vapp
+          attr_reader :name, :options
+
+          def initialize(name, options={})
+            @name = name
+            @options = options
+          end
+
+          def generate_xml
+            attrs = @attrs
+            Nokogiri::XML::Builder.new do
+              VApp('xmlns' => 'http://www.vmware.com/vcloud/v1.5',
+                   'name' => name
+                  ) {
+                Description options[:Description] if options.key?(:Description)
+              }
+            end.to_xml
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,32 @@
+module Fog
+  module Generators
+    module Compute
+      module VcloudDirector
+        # @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

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

@@ -0,0 +1,119 @@
+module Fog
+  module Generators
+    module Compute
+      module VcloudDirector
+        # This is the data structure it accepts, this is the output of
+        # #get_vm_network
+        #
+        #   {:type=>"application/vnd.vmware.vcloud.networkConnectionSection+xml",
+        #    :href=>
+        #     "https://example.com/api/vApp/vm-8b74d95a-ee91-4f46-88d8-fc92be0dbaae/networkConnectionSection/",
+        #    :id=>"vm-8b74d95a-ee91-4f46-88d8-fc92be0dbaae",
+        #    :primary_network_connection_index=>0,
+        #    :network=>"DevOps - Dev Network Connection",
+        #    :needs_customization=>true,
+        #    :network_connection_index=>0,
+        #    :ip_address=>"10.192.0.130",
+        #    :is_connected=>true,
+        #    :mac_address=>"00:50:56:01:00:8d",
+        #    :ip_address_allocation_mode=>"POOL"}
+        #
+        # This is what it generates:
+        #
+        #   <NetworkConnectionSection xmlns="http://www.vmware.com/vcloud/v1.5" xmlns:ovf="http://schemas.dmtf.org/ovf/envelope/1" type="application/vnd.vmware.vcloud.networkConnectionSection+xml" href="https://example.com/api/vApp/vm-8b74d95a-ee91-4f46-88d8-fc92be0dbaae/networkConnectionSection/" ovf:required="false" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://schemas.dmtf.org/ovf/envelope/1 http://schemas.dmtf.org/ovf/envelope/1/dsp8023_1.1.0.xsd http://www.vmware.com/vcloud/v1.5 http://10.194.1.65/api/v1.5/schema/master.xsd">
+        #     <ovf:Info>Specifies the available VM network connections</ovf:Info>
+        #     <PrimaryNetworkConnectionIndex>0</PrimaryNetworkConnectionIndex>
+        #     <NetworkConnection network="DevOps - Dev Network Connection" needsCustomization="true">
+        #       <NetworkConnectionIndex>0</NetworkConnectionIndex>
+        #       <IpAddress>10.192.0.130</IpAddress>
+        #       <IsConnected>true</IsConnected>
+        #       <MACAddress>00:50:56:01:00:8d</MACAddress>
+        #       <IpAddressAllocationMode>POOL</IpAddressAllocationMode>
+        #     </NetworkConnection>
+        #     <Link rel="edit" type="application/vnd.vmware.vcloud.networkConnectionSection+xml" href="https://example.com/api/vApp/vm-8b74d95a-ee91-4f46-88d8-fc92be0dbaae/networkConnectionSection/"/>
+        #   </NetworkConnectionSection>
+        #
+        # @see http://pubs.vmware.com/vcd-51/topic/com.vmware.vcloud.api.reference.doc_51/doc/types/NetworkConnectionSectionType.html
+        class VmNetwork
+          attr_reader :attrs
+
+          def initialize(attrs={})
+            @attrs = attrs
+          end
+
+          def generate_xml
+            output = ""
+            output << header
+            output << body(@attrs)
+            output << tail
+            output
+          end
+
+          def network
+            @attrs[:network]
+          end
+
+          def network=(new_network_name)
+            @attrs[:network] = new_network_name
+          end
+
+          def ip_address
+            @attrs[:ip_address]
+          end
+
+          def ip_address=(new_ip_address)
+            @attrs[:ip_address] = new_ip_address
+          end
+
+          def is_connected
+            @attrs[:is_connected]
+          end
+
+          def is_connected=(new_is_connected)
+            @attrs[:is_connected] = new_is_connected
+          end
+
+          def ip_address_allocation_mode
+            @attrs[:ip_address_allocation_mode]
+          end
+
+          def ip_address_allocation_mode=(new_ip_address_allocation_mode)
+            @attrs[:ip_address_allocation_mode] = new_ip_address_allocation_mode
+          end
+
+          private
+
+          def header
+            <<-END
+            <NetworkConnectionSection xmlns="http://www.vmware.com/vcloud/v1.5"
+              xmlns:ovf="http://schemas.dmtf.org/ovf/envelope/1"
+              type="application/vnd.vmware.vcloud.networkConnectionSection+xml">
+            END
+          end
+
+          def body(opts={})
+            <<-END
+              <ovf:Info>#{opts[:info]}</ovf:Info>
+              <PrimaryNetworkConnectionIndex>#{opts[:primary_network_connection_index]}</PrimaryNetworkConnectionIndex>
+              <NetworkConnection
+                network="#{opts[:network]}"
+                needsCustomization="#{opts[:needs_customization]}">
+                <NetworkConnectionIndex>#{opts[:network_connection_index]}</NetworkConnectionIndex>
+                <IpAddress>#{opts[:ip_address]}</IpAddress>
+                <IsConnected>#{opts[:is_connected]}</IsConnected>
+                <MACAddress>#{opts[:mac_address]}</MACAddress>
+                <IpAddressAllocationMode>#{opts[:ip_address_allocation_mode]}</IpAddressAllocationMode>
+              </NetworkConnection>
+            END
+          end
+
+          def tail
+            <<-END
+            </NetworkConnectionSection>
+            END
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/catalog.rb

@@ -0,0 +1,22 @@
+require 'fog/core/model'
+
+module Fog
+  module Compute
+    class VcloudDirector
+      class Catalog < Model
+        identity  :id
+
+        attribute :name
+        attribute :type
+        attribute :href
+        attribute :description, :aliases => :Description
+        attribute :is_published, :aliases => :IsPublished, :type => :boolean
+
+        def catalog_items
+          requires :id
+          service.catalog_items(:catalog => self)
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/catalog_item.rb

@@ -0,0 +1,30 @@
+require 'fog/core/model'
+
+module Fog
+  module Compute
+    class VcloudDirector
+      class CatalogItem < Model
+        identity  :id
+
+        attribute :name
+        attribute :type
+        attribute :href
+        attribute :description, :aliases => :Description
+        attribute :vapp_template_id
+
+        
+        def vapp_template
+          requires :id
+          service.vapp_templates.get(self.vapp_template_id)
+        end
+        
+        
+        def instantiate(vapp_name, options={})
+          response = service.instantiate_vapp_template(vapp_name, vapp_template_id, options)
+          service.process_task(response.body[:Tasks][:Task])
+          response.body[:href].split('/').last # returns the vapp_id if it was instantiated successfully .
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/catalog_items.rb

@@ -0,0 +1,33 @@
+require 'fog/core/collection'
+require 'fog/vcloud_director/models/compute/catalog_item'
+
+module Fog
+  module Compute
+    class VcloudDirector
+      class CatalogItems < Collection
+        model Fog::Compute::VcloudDirector::CatalogItem
+
+        attribute :catalog
+
+        private
+
+        def item_list
+          data = service.get_catalog(catalog.id).body
+          items = data[:CatalogItems][:CatalogItem].select do |link|
+            link[:type] == 'application/vnd.vmware.vcloud.catalogItem+xml'
+          end
+          items.each {|item| service.add_id_from_href!(item)}
+          items
+        end
+
+        def get_by_id(item_id)
+          item = service.get_catalog_item(item_id).body
+          item[:vapp_template_id] = item[:Entity][:href].split('/').last
+          %w(:Link :Entity).each {|key_to_delete| item.delete(key_to_delete) }
+          service.add_id_from_href!(item)
+          item
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/catalogs.rb

@@ -0,0 +1,30 @@
+require 'fog/core/collection'
+require 'fog/vcloud_director/models/compute/catalog'
+
+module Fog
+  module Compute
+    class VcloudDirector
+      class Catalogs < Collection
+        model Fog::Compute::VcloudDirector::Catalog
+
+        attribute :organization
+
+        private
+
+        def get_by_id(item_id)
+          item = service.get_catalog(item_id).body
+          %w(:CatalogItems :Link).each {|key_to_delete| item.delete(key_to_delete) }
+          service.add_id_from_href!(item)
+          item
+        end
+
+        def item_list
+          data = service.get_organization(organization.id).body
+          items = data[:Link].select { |link| link[:type] == "application/vnd.vmware.vcloud.catalog+xml" }
+          items.each{|item| service.add_id_from_href!(item) }
+          items
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/custom_field.rb

@@ -0,0 +1,18 @@
+require 'fog/core/model'
+
+module Fog
+  module Compute
+    class VcloudDirector
+
+      class CustomField < Model
+
+        identity  :id
+        attribute :value
+        attribute :type
+        attribute :password
+        attribute :user_configurable
+
+      end
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/custom_fields.rb

@@ -0,0 +1,67 @@
+require 'fog/core/collection'
+require 'fog/vcloud_director/models/compute/custom_field'
+
+module Fog
+  module Compute
+    class VcloudDirector
+
+      class CustomFields < Collection
+        model Fog::Compute::VcloudDirector::CustomField
+
+        attribute :vapp
+
+        def get_by_id(item_id)
+          item_list.detect{|i| i[:id] == item_id}
+        end
+
+        def [](key)
+          get key.to_s
+        end
+
+        def set(key, value, opts={:type => 'string', :password => 'false', :user_configurable => 'true'})
+          new_items = item_list.each.reject{|item| item[:id] == key}
+          new_items << {
+            :id                => key,
+            :value             => value,
+            :type              => opts[:type],
+            :password          => opts[:password],
+            :user_configurable => opts[:user_configurable]
+          }
+          response = service.put_product_sections(vapp.id, new_items)
+          service.process_task(response.body)
+        end
+
+        def []=(key,value)
+          set(key,value)
+        end
+
+        def delete(item_id)
+          id = item_id.to_s
+          new_items = item_list.each.reject{|item| item[:id] == id}
+          response = service.put_product_sections(vapp.id, new_items)
+          service.process_task(response.body)
+        end
+
+        def item_list
+          return @items if @items
+
+          resp = service.get_product_sections_vapp(vapp.id).body
+
+          collection = resp["ovf:ProductSection".to_sym]["ovf:Property".to_sym] rescue []
+          collection = [collection] if collection.is_a?(Hash)
+
+          @items = collection.collect do |property|
+            {
+              :id                => property[:ovf_key],
+              :value             => property[:ovf_value],
+              :type              => property[:ovf_type],
+              :password          => property[:ovf_password],
+              :user_configurable => property[:ovf_userConfigurable]
+            }
+          end rescue []
+        end
+      end
+
+    end
+  end
+end

data/lib/fog/vcloud_director/models/compute/disk.rb

@@ -0,0 +1,53 @@
+require 'fog/core/model'
+
+module Fog
+  module Compute
+    class VcloudDirector
+      class Disk < Model # there is no lazy_load in disks
+        identity  :id
+
+        attribute :address
+        attribute :description
+        attribute :name
+        attribute :resource_sub_type
+        attribute :resource_type
+        attribute :address_on_parent
+        attribute :parent
+        attribute :capacity
+        attribute :bus_sub_type
+        attribute :bus_type
+
+        # TODO Virtual machine disk sizes may only be increased, not decreased.
+        def capacity=(new_capacity)
+          has_changed = ( capacity != new_capacity.to_i )
+          not_first_set = !capacity.nil?
+          attributes[:capacity] = new_capacity.to_i
+          if not_first_set && has_changed
+            data = Fog::Generators::Compute::VcloudDirector::Disks.new(all_disks)
+            num_disk = name.scan(/\d+/).first.to_i
+            data.modify_hard_disk_size(num_disk, new_capacity)
+            response = service.put_disks(attributes[:vm].id, data.disks)
+            service.process_task(response.body)
+          end
+        end
+
+        def all_disks
+          attributes[:all_disks] # this is passed at instantiation time
+        end
+
+        def destroy
+          num_disk = name.scan(/\d+/).first.to_i
+          data = Fog::Generators::Compute::VcloudDirector::Disks.new(all_disks)
+          data.delete_hard_disk(num_disk)
+          response = service.put_disks(attributes[:vm].id, data.disks)
+          service.process_task(response.body)
+        end
+
+        def reload
+          # disks cannot be loaded with url
+          self
+        end
+      end
+    end
+  end
+end