fog-hyperv 0.0.1

data/lib/fog/hyperv/models/compute/switches.rb

@@ -0,0 +1,15 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Switches < Fog::Hyperv::Collection
+        model Fog::Compute::Hyperv::Switch
+
+        get_method :get_vm_switch
+
+        def get(name, filters = {})
+          super filters.merge(name: name)
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/models/compute/vhd.rb

@@ -0,0 +1,100 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Vhd < Fog::Hyperv::Model
+        identity :disk_identifier
+
+        attribute :attached
+        attribute :block_size
+        attribute :computer_name
+        attribute :disk
+        attribute :file_size
+        attribute :is_deleted
+        attribute :minimum_size
+        attribute :path, type: :string, default: 'New Disk'
+        attribute :pool_name
+        attribute :size, type: :integer, default: 343_597_383_68
+        attribute :vhd_format, type: :enum, values: [ :Unknown, nil, :VHD, :VHDX, :VHDSet ]
+        attribute :vhd_type, type: :enum, values: [ :Unknown, nil, :Fixed, :Dynamic, :Differencing ]
+        # TODO? VM Snapshots?
+        #
+
+        # def identity_name
+        #   :disk_identifier unless disk_identifier
+        #   :disk_number if disk
+        #   :path
+        # end
+
+        def real_path
+          requires :path, :computer_name
+
+          ret = path
+          ret += '.vhdx' unless ret.downcase.end_with? '.vhdx'
+          ret = host.virtual_hard_disk_path + '\\' + ret unless ret.downcase.start_with? host.virtual_hard_disk_path.downcase
+          ret
+        end
+
+        def unc_path
+          "\\\\#{computer_name || '.'}\\#{real_path.gsub ':', '$'}"
+        end
+
+        def host
+          requires :computer_name
+
+          @host ||= begin
+            ret = parent
+            ret = service.hosts.get computer_name unless ret
+            ret = ret.parent unless ret.is_a?(Host)
+            ret
+          end
+        end
+
+        def save
+          requires :path, :computer_name, :size
+
+          data = \
+            if persisted?
+              # Can't change much of a VHD
+              attributes
+            else
+              service.new_vhd(
+                computer_name: computer_name,
+                path: real_path,
+
+                block_size_bytes: block_size,
+                size_bytes: size,
+
+                _return_fields: self.class.attributes,
+                _json_depth: 1
+              )
+            end
+
+          merge_attributes(data)
+          @old = dup
+          self
+        end
+
+        def reload
+          requires :computer_name
+          requires_one :path, :disk
+
+          data = service.get_vhd(
+            computer_name: computer_name,
+            path: path,
+            disk_number: disk
+          )
+          merge_attributes(data.attributes)
+          self
+        end
+
+        def destroy
+          requires :path, :disk_identifier
+
+          service.remove_item(
+            path: unc_path
+          ) if path
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/models/compute/vhds.rb

@@ -0,0 +1,16 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Vhds < Fog::Hyperv::VMCollection
+        model Fog::Compute::Hyperv::Vhd
+        match_on :vm_id
+
+        get_method :get_vhd
+
+        def get(path, filters = {})
+          super search_attributes.merge(filters.merge(path: path))
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/add_vm_hard_disk_drive.rb

@@ -0,0 +1,12 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def add_vm_hard_disk_drive(options = {})
+          requires options, :vm_name
+          run_shell('Add-VMHardDiskDrive', options)
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/add_vm_network_adapter.rb

@@ -0,0 +1,12 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def add_vm_network_adapter(options = {})
+          requires_one options, :vm_name, :management_os
+          run_shell('Add-VMNetworkAdapter', options)
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/connect_vm_network_adapter.rb

@@ -0,0 +1,12 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def connect_vm_network_adapter(options = {})
+          requires options, :vm_name, :switch_name
+          run_shell('Connect-VMNetworkAdapter', options.merge(_skip_json: true)).exitcode.zero?
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/disconnect_vm_network_adapter.rb

@@ -0,0 +1,12 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def disconnect_vm_network_adapter(options = {})
+          requires :vm_name
+          run_shell('Disconnect-VMNetworkAdapter', options.merge(_skip_json: true)).exitcode.zero?
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_cluster.rb

@@ -0,0 +1,11 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_cluster(options = {})
+          run_shell('Get-Cluster', options)
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_cluster_node.rb

@@ -0,0 +1,19 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_cluster_node(options = {})
+          run_shell('Get-ClusterNode', options)
+        end
+      end
+
+      class Mock
+        def get_cluster_node(args = {})
+          data = handle_mock_response args
+          data = data.find { |n| n[:name] == args[:name] } if args[:name]
+          data
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vhd.rb

@@ -0,0 +1,34 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vhd(options = {})
+          requires_one options, :vm_id, :path, :disk_number
+          run_shell('Get-VHD', options)
+        end
+      end
+
+      class Mock
+        def get_vhd(args = {})
+          requires_one args, :vm_id, :path, :disk_number
+          data = handle_mock_response args
+
+          if args[:vm_id]
+            data = case args[:vm_id].downcase
+                   when '20ff7fe3-fd54-425c-aa97-fbf3c2e7a868'
+                     data[1..-1]
+                   when '416e49fd-28dd-413c-9743-aa3e69e4807d'
+                     data[0]
+                   end
+          elsif args[:path]
+            data = data.find { |d| d[:path].casecmp(args[:path]).zero? }
+          elsif args[:disk_number]
+            Fog::Mock.not_implemented
+          end
+
+          data
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm.rb

@@ -0,0 +1,20 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm(options = {})
+          run_shell('Get-VM', options)
+        end
+      end
+
+      class Mock
+        def get_vm(args = {})
+          data = handle_mock_response args
+          data = data.find { |v| v[:name].casecmp(args[:name]).zero? } if args[:name]
+          data = data.find { |v| v[:id].casecmp(args[:id]).zero? } if args[:id]
+          data
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm_bios.rb

@@ -0,0 +1,21 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_bios(options = {})
+          requires options, :vm_name
+          run_shell('Get-VMBios', options)
+        end
+      end
+
+      class Mock
+        def get_vm_bios(args = {})
+          requires args, :vm_name
+
+          handle_mock_response(args).find { |b| b[:vm_name].casecmp(args[:vm_name]).zero? }
+        end
+      end
+    end
+  end
+end
+

data/lib/fog/hyperv/requests/compute/get_vm_dvd_drive.rb

@@ -0,0 +1,20 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_dvd_drive(options = {})
+          requires options, :vm_name
+          run_shell('Get-VMDvdDrive', options)
+        end
+      end
+
+      class Mock
+        def get_vm_dvd_drive(options = {})
+          requires options, :vm_name
+
+          handle_mock_response(args).find { |b| b[:vm_name].casecmp(args[:vm_name]).zero? }
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm_firmware.rb

@@ -0,0 +1,21 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_firmware(options = {})
+          requires options, :vm_name
+          run_shell('Get-VMFirmware', options)
+        end
+      end
+
+      class Mock
+        def get_vm_firmware(options = {})
+          requires options, :vm_name
+
+          handle_mock_response(args).find { |b| b[:vm_name].casecmp(args[:vm_name]).zero? }
+        end
+      end
+    end
+  end
+end
+

data/lib/fog/hyperv/requests/compute/get_vm_floppy_disk_drive.rb

@@ -0,0 +1,20 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_floppy_disk_drive(options = {})
+          requires options, :vm_name
+          run_shell('Get-VMFloppyDiskDrive', options)
+        end
+      end
+
+      class Mock
+        def get_vm_floppy_disk_drive(options = {})
+          requires options, :vm_name
+
+          handle_mock_response(args).find { |b| b[:vm_name].casecmp(args[:vm_name]).zero? }
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm_group.rb

@@ -0,0 +1,23 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_group(options = {})
+          requires_version '10.0'
+
+          run_shell('Get-VMGroup', options)
+        end
+      end
+
+      class Mock
+        def get_vm_group(options = {})
+          requires_version '10.0'
+
+          # TODO
+          Fog::Mock.not_implemented
+        end
+      end
+    end
+  end
+end
+

data/lib/fog/hyperv/requests/compute/get_vm_hard_disk_drive.rb

@@ -0,0 +1,20 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_hard_disk_drive(options = {})
+          requires options, :vm_name
+          run_shell('Get-VMHardDiskDrive', options)
+        end
+      end
+
+      class Mock
+        def get_vm_hard_disk_drive(args = {})
+          requires args, :vm_name
+
+          handle_mock_response(args).find { |b| b[:vm_name].casecmp(args[:vm_name]).zero? }
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm_host.rb

@@ -0,0 +1,12 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_host(options = {})
+          # TODO: Reject unavailable arguments?
+          run_shell('Get-VMHost', options)
+        end
+      end
+    end
+  end
+end

data/lib/fog/hyperv/requests/compute/get_vm_host_cluster.rb

@@ -0,0 +1,25 @@
+module Fog
+  module Compute
+    class Hyperv
+      class Real
+        def get_vm_host_cluster(options = {})
+          requires_version '10.0'
+          requires options, :cluster_name
+
+          run_shell('Get-VMHostCluster', options)
+        end
+      end
+
+      class Mock
+        def get_vm_host_cluster(options = {})
+          requires_version '10.0'
+          requires options, :cluster_name
+
+          # TODO
+          Fog::Mock.not_implemented
+        end
+      end
+    end
+  end
+end
+