fog-libvirt-csem 0.9.0

data/lib/fog/libvirt/models/compute/network.rb

@@ -0,0 +1,33 @@
+require 'fog/core/model'
+require 'fog/libvirt/models/compute/util/util'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Network < Fog::Model
+        include Fog::Libvirt::Util
+
+        identity :uuid
+        attribute :name
+        attribute :bridge_name
+        attribute :xml
+
+        def initialize(attributes = {})
+          super
+        end
+
+        def dhcp_leases(mac, flags = 0)
+          service.dhcp_leases(uuid, mac, flags)
+        end
+
+        def save
+          raise Fog::Errors::Error.new('Creating a new network is not yet implemented. Contributions welcome!')
+        end
+
+        def shutdown
+          service.destroy_network(uuid)
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/networks.rb

@@ -0,0 +1,20 @@
+require 'fog/core/collection'
+require 'fog/libvirt/models/compute/network'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Networks < Fog::Collection
+        model Fog::Libvirt::Compute::Network
+
+        def all(filter={})
+          load(service.list_networks(filter))
+        end
+
+        def get(uuid)
+          self.all(:uuid => uuid).first
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/nic.rb

@@ -0,0 +1,50 @@
+require 'fog/core/model'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Nic < Fog::Model
+        identity :mac
+        attribute :id
+        attribute :type
+        attribute :network
+        attribute :bridge
+        attribute :model
+
+        attr_accessor :server
+
+        TYPES = ["network", "bridge", "user"]
+
+        def new?
+          mac.nil?
+        end
+
+        def initialize attributes
+          super defaults.merge(attributes)
+          raise Fog::Errors::Error.new("#{type} is not a supported nic type") if new? && !TYPES.include?(type)
+        end
+
+        def save
+          raise Fog::Errors::Error.new('Creating a new nic is not yet implemented. Contributions welcome!')
+          #requires :server
+          #service.attach_nic(domain , self)
+        end
+
+        def destroy
+          raise Fog::Errors::Error.new('Destroying an interface is not yet implemented. Contributions welcome!')
+          #requires :server
+          ##detach the nic
+          #service.detach_nic(domain, mac)
+        end
+
+        private
+        def defaults
+          {
+            :type  => "bridge",
+            :model => "virtio"
+          }
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/nics.rb

@@ -0,0 +1,12 @@
+require 'fog/core/collection'
+require 'fog/libvirt/models/compute/nic'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Nics < Fog::Collection
+        model Fog::Libvirt::Compute::Nic
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/node.rb

@@ -0,0 +1,29 @@
+require 'fog/core/model'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Node < Fog::Model
+        identity :uuid
+
+        attribute :model
+        attribute :memory
+        attribute :cpus
+        attribute :mhz
+        attribute :nodes
+        attribute :sockets
+        attribute :cores
+        attribute :threads
+        attribute :type
+        attribute :version
+        attribute :uri
+        attribute :node_free_memory
+        attribute :max_vcpus
+        attribute :manufacturer
+        attribute :product
+        attribute :serial
+        attribute :hostname
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/nodes.rb

@@ -0,0 +1,20 @@
+require 'fog/core/collection'
+require 'fog/libvirt/models/compute/node'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Nodes < Fog::Collection
+        model Fog::Libvirt::Compute::Node
+
+        def all(filter={ })
+          load(service.get_node_info)
+        end
+
+        def get
+          all.first
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/pool.rb

@@ -0,0 +1,84 @@
+require 'fog/core/model'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Pool < Fog::Model
+        attr_reader :xml
+
+        identity :uuid
+
+        attribute :persistent
+        attribute :autostart
+        attribute :active
+        attribute :name
+        attribute :allocation
+        attribute :capacity
+        attribute :num_of_volumes
+        attribute :state
+
+        def initialize(attributes={} )
+          # Can be created by passing in XML
+          @xml = attributes.delete(:xml)
+          super(attributes)
+        end
+
+        def save
+          raise Fog::Errors::Error.new('Creating a new pool requires proper xml') unless xml
+          self.uuid = (persistent ? service.define_pool(xml) : service.create_pool(xml)).uuid
+          reload
+        end
+
+        # Start the pool = make it active
+        # Performs a libvirt create (= start)
+        def start
+          service.pool_action uuid, :create
+        end
+
+        # Stop the pool = make it non-active
+        # Performs a libvirt destroy (= stop)
+        def stop
+          service.pool_action uuid, :destroy
+        end
+
+        # Shuts down the pool
+        def shutdown
+          stop
+        end
+
+        # Build this storage pool
+        def build
+          service.pool_action uuid, :build
+        end
+
+        # Destroys the storage pool
+        def destroy
+          # Shutdown pool if active
+          service.pool_action uuid, :destroy if active?
+          # If this is a persistent domain we need to undefine it
+          service.pool_action uuid, :undefine if persistent?
+        end
+
+        # Is the pool active or not?
+        def active?
+          active
+        end
+
+        # Will the pool autostart or not?
+        def auto_start?
+          autostart
+        end
+
+        # Is the pool persistent or not?
+        def persistent?
+          persistent
+        end
+
+        # Retrieves the volumes of this pool
+        def volumes
+          service.list_pool_volumes uuid
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/models/compute/pools.rb

@@ -0,0 +1,20 @@
+require 'fog/core/collection'
+require 'fog/libvirt/models/compute/pool'
+
+module Fog
+  module Libvirt
+    class Compute
+      class Pools < Fog::Collection
+        model Fog::Libvirt::Compute::Pool
+
+        def all(filter = {})
+          load(service.list_pools(filter))
+        end
+
+        def get(uuid)
+          self.all(:uuid => uuid).first
+        end
+      end
+    end
+  end
+end