fog 0.0.93 → 0.0.94

data/lib/fog/vcloud/parsers/get_vdc.rb

@@ -0,0 +1,37 @@
+module Fog
+  module Parsers
+    module Vcloud
+
+      class GetVdc < Fog::Parsers::Vcloud::Base
+        #WARNING: Incomplete
+        #Based off of:
+        #vCloud API Guide v0.9 - Page 27
+
+        def reset
+          @response = Struct::VcloudVdc.new([])
+        end
+
+        def start_element(name, attributes)
+          @value = ''
+          case name
+          when 'Link'
+            @response.links << generate_link(attributes)
+          when 'Vdc'
+            handle_root(attributes)
+          end
+        end
+
+        def end_element(name)
+          case name
+          when "AllocationModel"
+            @response.allocation_model = @value
+          when "Description"
+            @response.description = @value
+          end
+        end
+
+      end
+
+    end
+  end
+end

data/lib/fog/vcloud/parsers/get_versions.rb

@@ -0,0 +1,46 @@
+module Fog
+  module Parsers
+    module Vcloud
+
+      class GetVersions < Fog::Parsers::Base
+        #
+        # Based off of:
+        # http://support.theenterprisecloud.com/kb/default.asp?id=535&Lang=1&SID=
+        # https://community.vcloudexpress.terremark.com/en-us/product_docs/w/wiki/02-get-versions.aspx
+        # vCloud API Guide v0.9 - Page 89
+        #
+
+        def reset
+          @response = []
+          @supported = false
+        end
+
+        def start_element(name, attributes = {})
+          @value = ''
+          case name
+          when "Version"
+            @version = Struct::VcloudVersion.new
+          when "SupportedVersions"
+            @supported = true
+          end
+        end
+
+        def end_element(name)
+          case name
+          when "Version"
+            @version.version = @value
+            @version.supported = @supported
+          when "LoginUrl"
+            @version.login_url = @value
+          when "VersionInfo"
+            @response << @version
+          when "SupportedVersions"
+            @supported = false
+          end
+        end
+
+      end
+
+    end
+  end
+end

data/lib/fog/vcloud/parsers/login.rb

@@ -0,0 +1,40 @@
+module Fog
+  module Parsers
+    module Vcloud
+
+      class Login < Fog::Parsers::Base
+        #
+        # Based off of:
+        # http://support.theenterprisecloud.com/kb/default.asp?id=536&Lang=1&SID=
+        # https://community.vcloudexpress.terremark.com/en-us/product_docs/w/wiki/01-get-login-token.aspx
+        # vCloud API Guide v0.9 - Page 17
+        #
+
+        def reset
+          @response = Struct::VcloudOrgList.new([])
+        end
+
+        def start_element(name, attributes)
+          @value = ''
+          case name
+          when 'OrgList'
+            until attributes.empty?
+              if at = attributes.shift
+                if at[0] == "xmlns"
+                  @response.xmlns = at[1]
+                end
+              end
+            end
+          when 'Org'
+            organization = Struct::VcloudOrgLink.new
+            until attributes.empty?
+              organization[attributes.shift.downcase.to_sym] = attributes.shift
+            end
+            @response.organizations << organization
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/fog/vcloud/requests/get_organization.rb

@@ -0,0 +1,55 @@
+module Fog
+  module Vcloud
+
+    class Real
+      def get_organization(organization_uri)
+        response = request(
+          :expects  => 200,
+          :method   => 'GET',
+          :parser   => Fog::Parsers::Vcloud::GetOrganization.new,
+          :uri      => organization_uri
+        )
+        response
+      end
+
+    end
+
+    class Mock
+
+      def get_organization(organization_uri)
+        #
+        # Based off of:
+        # http://support.theenterprisecloud.com/kb/default.asp?id=540&Lang=1&SID=
+        # 
+        # vCloud API Guide v0.9 - Page 26
+        #
+        if org = DATA[:organizations].detect { |org| org[:info][:href] == organization_uri.to_s }
+          xml = Builder::XmlMarkup.new
+
+          mock_it Fog::Parsers::Vcloud::GetOrganization.new, 200,
+            xml.Org(xmlns.merge(:href => org[:info][:href], :name => org[:info][:name])) {
+
+              org[:vdcs].each do |vdc|
+                xml.Link(:rel => "down",
+                         :href => vdc[:href],
+                         :type => "application/vnd.vmware.vcloud.vdc+xml",
+                         :name => vdc[:name])
+                xml.Link(:rel => "down",
+                         :href => "#{vdc[:href]}/catalog",
+                         :type => "application/vnd.vmware.vcloud.catalog+xml",
+                         :name => "#{vdc[:name]} Catalog")
+                xml.Link(:rel => "down",
+                         :href => "#{vdc[:href]}/tasksList",
+                         :type => "application/vnd.vmware.vcloud.tasksList+xml",
+                         :name => "#{vdc[:name]} Tasks List")
+              end
+            },
+            {'Content-Type' => "application/vnd.vmware.vcloud.org+xml" }
+        else
+          mock_error 200, "401 Unauthorized"
+        end
+      end
+    end
+  end
+end
+

data/lib/fog/vcloud/requests/get_vdc.rb

@@ -0,0 +1,59 @@
+module Fog
+  module Vcloud
+
+    class Real
+      # Get details of a vdc
+      def get_vdc(vdc_uri)
+        request(
+          :expects  => 200,
+          :method   => 'GET',
+          :parser   => Fog::Parsers::Vcloud::GetVdc.new,
+          :uri      => vdc_uri
+        )
+      end
+
+    end
+
+    class Mock
+      # WARNING: Incomplete
+      #Based off of:
+      #vCloud API Guide v0.9 - Page 27
+
+      def get_vdc(vdc_uri)
+        if vdc = DATA[:organizations].map { |org| org[:vdcs] }.flatten.detect { |vdc| vdc[:href] == vdc_uri }
+          xml = Builder::XmlMarkup.new
+          mock_it Fog::Parsers::Vcloud::GetVdc.new, 200,
+            xml.Vdc(xmlns.merge(:href => vdc[:href], :name => vdc[:name])) {
+              xml.Link(:rel => "up",
+                       :href => DATA[:organizations].detect { |org| org[:vdcs].detect { |_vdc| vdc[:href] == _vdc[:href] }[:href] == vdc[:href] }[:info][:href],
+                       :type => "application/vnd.vmware.vcloud.org+xml")
+              xml.Link(:rel => "add",
+                       :href => vdc[:href] + "/action/uploadVAppTemplate",
+                       :type => "application/vnd.vmware.vcloud.uploadVAppTemplateParams+xml")
+              xml.Link(:rel => "add",
+                       :href => vdc[:href] + "/media",
+                       :type => "application/vnd.vmware.vcloud.media+xml")
+              xml.Link(:rel => "add",
+                       :href => vdc[:href] + "/action/instantiateVAppTemplate",
+                       :type => "application/vnd.vmware.vcloud.instantiateVAppTemplateParams+xml")
+              xml.Link(:rel => "add",
+                       :type => "application/vnd.vmware.vcloud.cloneVAppParams+xml",
+                       :href => vdc[:href] + "/action/cloneVApp")
+              xml.Link(:rel => "add",
+                       :type => "application/vnd.vmware.vcloud.captureVAppParams+xml",
+                       :href => vdc[:href] + "/action/captureVApp")
+              xml.Link(:rel => "add",
+                       :type => "application/vnd.vmware.vcloud.composeVAppParams+xml",
+                       :href => vdc[:href] + "/action/composeVApp")
+              xml.AllocationModel("AllocationPool")
+              xml.Description(vdc[:name] + " VDC")
+              #FIXME: Incomplete
+            }, { 'Content-Type' => 'application/vnd.vmware.vcloud.vdc+xml' }
+        else
+          mock_error 200, "401 Unauthorized"
+        end
+      end
+
+    end
+  end
+end

data/lib/fog/vcloud/requests/get_versions.rb

@@ -0,0 +1,43 @@
+module Fog
+  module Vcloud
+
+    class Real
+
+      def get_versions
+        unauthenticated_request({
+          :expects  => 200,
+          :method   => 'GET',
+          :parser   => Fog::Parsers::Vcloud::GetVersions.new,
+          :uri      => @versions_uri
+        })
+      end
+
+    end
+
+    class Mock
+
+      def get_versions
+        #
+        # Based off of:
+        # http://support.theenterprisecloud.com/kb/default.asp?id=535&Lang=1&SID=
+        # https://community.vcloudexpress.terremark.com/en-us/product_docs/w/wiki/02-get-versions.aspx
+        # vCloud API Guide v0.9 - Page 89
+        #
+        xml = Builder::XmlMarkup.new
+
+        mock_it Fog::Parsers::Vcloud::GetVersions.new, 200,
+          xml.SupportedVersions( xmlns.merge("xmlns" => "http://www.vmware.com/vcloud/versions")) {
+
+            DATA[:versions].select {|version| version[:supported] }.each do |version|
+              xml.VersionInfo {
+                xml.Version(version[:version])
+                xml.LoginUrl(version[:login_url])
+              }
+            end
+          }
+
+      end
+
+    end
+  end
+end

data/lib/fog/vcloud/requests/login.rb

@@ -0,0 +1,46 @@
+module Fog
+  module Vcloud
+
+    class Real
+
+
+      def login
+        unauthenticated_request({
+          :expects  => 200,
+          :headers  => {
+            'Authorization' => authorization_header
+          },
+          :method   => 'POST',
+          :parser   => Fog::Parsers::Vcloud::Login.new,
+          :uri      => @login_uri
+        })
+      end
+
+    end
+
+    class Mock
+
+      def login
+        #
+        # Based off of:
+        # http://support.theenterprisecloud.com/kb/default.asp?id=536&Lang=1&SID=
+        # https://community.vcloudexpress.terremark.com/en-us/product_docs/w/wiki/01-get-login-token.aspx
+        # vCloud API Guide v0.9 - Page 17
+        #
+        xml = Builder::XmlMarkup.new
+
+        mock_it Fog::Parsers::Vcloud::Login.new, 200,
+          xml.OrgList(xmlns) {
+              DATA[:organizations].each do |org|
+                xml.Org( org[:info].merge( "type" => "application/vnd.vmware.vcloud.org+xml" ) ) {}
+              end
+            },
+            { 'Set-Cookie' => 'vcloud-token=fc020a05-21d7-4f33-9b2a-25d8cd05a44e; path=/',
+              'Content-Type' => 'application/vnd.vmware.vcloud.orgslist+xml' }
+
+      end
+
+    end
+  end
+end
+

data/lib/fog/vcloud/terremark/all.rb

@@ -0,0 +1,9 @@
+module Fog
+  module Vcloud
+    module Terremark
+      unless @required
+        @required = true
+      end
+    end
+  end
+end

data/lib/fog/vcloud/terremark/ecloud.rb

@@ -0,0 +1,47 @@
+module Fog
+  module Vcloud
+    module Terremark
+      module Ecloud
+
+        module Versions
+          SUPPORTED = ["v0.8", "v0.8a-ext2.0"]
+        end
+
+        def self.extended(klass)
+          #Do anything we need to do here that's specific to ecloud
+          unless @required
+            require 'fog/vcloud/terremark/all'
+            require 'fog/vcloud/terremark/ecloud/parsers/get_vdc'
+            require 'fog/vcloud/terremark/ecloud/requests/login'
+            require 'fog/vcloud/terremark/ecloud/requests/get_vdc'
+            Struct.new("TmrkEcloudVdc", :links, :resource_entities, :networks,
+                       :cpu_capacity, :storage_capacity, :memory_capacity, :deployed_vm_quota, :instantiated_vm_quota,
+                       :href, :type, :name, :xmlns, :description)
+            Struct.new("TmrkEcloudXCapacity", :units, :allocated, :used, :limit)
+            @required = true
+          end
+          if Fog.mocking?
+            klass.extend Fog::Vcloud::Terremark::Ecloud::Mock
+          else
+            klass.extend Fog::Vcloud::Terremark::Ecloud::Real
+          end
+        end
+
+        private
+
+        # If we don't support any versions the service does, then raise an error.
+        # If the @version that super selected isn't in our supported list, then select one that is.
+        def check_versions
+          super
+          unless (supported_version_ids & Versions::SUPPORTED).length > 0
+            raise UnsupportedVersion.new("\nService @ #{@versions_uri} supports: #{supported_version_ids.join(', ')}\n" +
+                                         "Fog::Vcloud::Terremark::Ecloud supports: #{Versions::SUPPORTED.join(', ')}")
+          end
+          unless supported_version_ids.include?(@version)
+            @version = (supported_version_ids & Versions::SUPPORTED).sort.first
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/vcloud/terremark/ecloud/parsers/get_vdc.rb

@@ -0,0 +1,59 @@
+module Fog
+  module Parsers
+    module Vcloud
+      module Terremark
+        module Ecloud
+
+          class GetVdc < Fog::Parsers::Vcloud::Base
+
+            def reset
+              @target = nil
+              @response = Struct::TmrkEcloudVdc.new([],[],[],Struct::TmrkEcloudXCapacity.new,Struct::TmrkEcloudXCapacity.new,
+                                                             Struct::TmrkEcloudXCapacity.new,Struct::TmrkEcloudXCapacity.new,
+                                                             Struct::TmrkEcloudXCapacity.new)
+            end
+
+            def start_element(name, attributes)
+              @value = ''
+              case name
+              when 'Cpu'
+                @target = :cpu_capacity
+              when 'DeployedVmsQuota'
+                @target = :deployed_vm_quota
+              when 'InstantiatedVmsQuota'
+                @target = :instantiated_vm_quota
+              when 'Memory'
+                @target = :memory_capacity
+              when 'StorageCapacity'
+                @target = :storage_capacity
+              when 'Link'
+                @response.links << generate_link(attributes)
+              when 'Network'
+                @response.networks << generate_link(attributes)
+              when 'ResourceEntity'
+                @response.resource_entities << generate_link(attributes)
+              when 'Vdc'
+                handle_root(attributes)
+              end
+            end
+
+            def end_element(name)
+              case name
+              when 'Allocated', 'Limit', 'Used'
+                @response[@target][name.downcase] = @value.to_i
+              when 'Units'
+                @response[@target][name.downcase] = @value
+              when 'Cpu', 'DeployedVmsQuota', 'InstantiatedVmsQuota', 'Memory', 'StorageCapacity'
+                @target = nil
+              when 'Description'
+                @response.description = @value
+              end
+            end
+
+          end
+        end
+      end
+    end
+  end
+end
+