fog-libvirt 0.0.3 → 0.0.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3f53f3776984eb45a0cff0a08140127ac0690c0c
-  data.tar.gz: 25533737c8816f30167b33bd5beca51c35c80da6
+  metadata.gz: e949af7e23f8db3d43dbecbce7a73ea53f160778
+  data.tar.gz: 938426cdef480045883dcfd1095a4e9f881eea2c
 SHA512:
-  metadata.gz: 3aa1d4a11bb73f6670e64f8d7a37aa94dcb7d1c1e624a3f27f0142b6f15c391a5431feb45cd0c27b950bfc59aa622102fcee4073eabc1890abc3395fdf14dab1
-  data.tar.gz: 3e8d6c2df13c613f8151158a901722f51a643f0a25dd77060afebaba3c8f7f6f97855fcd2e8dfcecc11cf11f3163ccb5d30e933f91416db0b13565c06f1457f1
+  metadata.gz: f6ab2968b8c425d307fe2d8af1d5797b7521fdad80c5d1baa413b04148e1e6ca694a67e5fb6c8c9897b6c918facd4b1854a9e13709696e62a90b2b7a7141e04e
+  data.tar.gz: 3cd19bac7d5ef0de6e9080ab1f9fb2a4497d5cc1d6988b4db19717f35a47809e3e85246b79a919b2e5294939e99bf033e1932da63a700bd8372e1a55f3bc942e

data/lib/fog/libvirt/compute.rb

@@ -40,6 +40,7 @@ module Fog
       request :clone_volume
       request :list_networks
       request :destroy_network
+      request :dhcp_leases
       request :list_interfaces
       request :destroy_interface
       request :get_node_info

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

@@ -16,6 +16,10 @@ module Fog
           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

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

@@ -263,88 +263,20 @@ module Fog
         def addresses(service_arg=service, options={})
           mac=self.mac
 
-          # Aug 24 17:34:41 juno arpwatch: new station 10.247.4.137 52:54:00:88:5a:0a eth0.4
-          # Aug 24 17:37:19 juno arpwatch: changed ethernet address 10.247.4.137 52:54:00:27:33:00 (52:54:00:88:5a:0a) eth0.4
-          # Check if another ip_command string was provided
-          ip_command_global=service_arg.ip_command.nil? ? 'grep $mac /var/log/arpwatch.log|sed -e "s/new station//"|sed -e "s/changed ethernet address//g" |sed -e "s/reused old ethernet //" |tail -1 |cut -d ":" -f 4-| cut -d " " -f 3' : service_arg.ip_command
-          ip_command_local=options[:ip_command].nil? ? ip_command_global : options[:ip_command]
-
-          ip_command="mac=#{mac}; server_name=#{name}; "+ip_command_local
-
-          ip_address=nil
-
-          if service_arg.uri.ssh_enabled?
-
-            # Retrieve the parts we need from the service to setup our ssh options
-            user=service_arg.uri.user #could be nil
-            host=service_arg.uri.host
-            keyfile=service_arg.uri.keyfile
-            port=service_arg.uri.port
-
-            # Setup the options
-            ssh_options={}
-            ssh_options[:keys]=[ keyfile ] unless keyfile.nil?
-            ssh_options[:port]=port unless keyfile.nil?
-            ssh_options[:paranoid]=true if service_arg.uri.no_verify?
-
-            begin
-              result=Fog::SSH.new(host, user, ssh_options).run(ip_command)
-            rescue Errno::ECONNREFUSED
-              raise Fog::Errors::Error.new("Connection was refused to host #{host} to retrieve the ip_address for #{mac}")
-            rescue Net::SSH::AuthenticationFailed
-              raise Fog::Errors::Error.new("Error authenticating over ssh to host #{host} and user #{user}")
-            end
-
-            # Check for a clean exit code
-            if result.first.status == 0
-              ip_address=result.first.stdout.strip
-            else
-              # We got a failure executing the command
-              raise Fog::Errors::Error.new("The command #{ip_command} failed to execute with a clean exit code")
-            end
-
-          else
-            # It's not ssh enabled, so we assume it is
-            if service_arg.uri.transport=="tls"
-              raise Fog::Errors::Error.new("TlS remote transport is not currently supported, only ssh")
-            end
-
-            # Execute the ip_command locally
-            # Initialize empty ip_address string
-            ip_address=""
-
-            IO.popen("#{ip_command}") do |p|
-              p.each_line do |l|
-                ip_address+=l
-              end
-              status=Process.waitpid2(p.pid)[1].exitstatus
-              if status!=0
-                raise Fog::Errors::Error.new("The command #{ip_command} failed to execute with a clean exit code")
+          ip_address = nil
+          nic = self.nics.find {|nic| nic.mac==mac}
+          if !nic.nil?
+            Fog::Compute[:libvirt].networks.all.each do |net|
+              if net.name == nic.network
+                leases = net.dhcp_leases(mac, 0)
+                # Assume the lease expiring last is the current IP address
+                ip_address = leases.sort_by { |lse| lse["expirytime"] }.last["ipaddr"] if !leases.empty?
+                break
               end
             end
-
-            #Strip any new lines from the string
-            ip_address=ip_address.chomp
-          end
-
-          # The Ip-address command has been run either local or remote now
-
-          if ip_address==""
-            #The grep didn't find an ip address result"
-            ip_address=nil
-          else
-            # To be sure that the command didn't return another random string
-            # We check if the result is an actual ip-address
-            # otherwise we return nil
-            unless ip_address=~/^(\d{1,3}\.){3}\d{1,3}$/
-              raise Fog::Errors::Error.new(
-                        "The result of #{ip_command} does not have valid ip-address format\n"+
-                            "Result was: #{ip_address}\n"
-                    )
-            end
           end
 
-          return { :public => [ip_address], :private => [ip_address]}
+          return { :public => [ip_address], :private => [ip_address] }
         end
 
         def ip_address(key)

data/lib/fog/libvirt/requests/compute/dhcp_leases.rb

@@ -0,0 +1,37 @@
+require 'socket'
+
+module Fog
+  module Compute
+    class Libvirt
+      class Real
+        def dhcp_leases(uuid, mac, flags = 0)
+          client.lookup_network_by_uuid(uuid).dhcp_leases(mac, flags)
+        end
+      end
+
+      class Mock
+        def dhcp_leases(uuid, mac, flags = 0)
+          leases1 = {
+            'aa:bb:cc:dd:ee:ff' => [
+              { 'type' => Socket::AF_INET, 'ipaddr' => '1.2.3.4', 'prefix' => 24, 'expirytime' => 5000 },
+              { 'type' => Socket::AF_INET, 'ipaddr' => '1.2.5.6', 'prefix' => 24, 'expirytime' => 5005 }
+            ]
+          }
+          leases2 = {
+            '99:88:77:66:55:44' => [
+              { 'type' => Socket::AF_INET, 'ipaddr' => '10.1.1.5', 'prefix' => 24, 'expirytime' => 50 }
+            ]
+          }
+          networks = {
+            # should match mock net uuid from list_networks.rb
+            'a29146ea-39b2-412d-8f53-239eef117a32' => leases1,
+            'fbd4ac68-cbea-4f95-86ed-22953fd92384' => leases2
+          }
+          if !networks[uuid].nil?
+            return networks[uuid][mac]
+          end
+        end
+      end
+    end
+  end
+end

data/lib/fog/libvirt/requests/compute/list_domains.rb

@@ -13,7 +13,7 @@ module Fog
             client.list_defined_domains.each { |name| data << client.lookup_domain_by_name(name) } unless filter[:defined] == false
             client.list_domains.each { |id| data << client.lookup_domain_by_id(id) } unless filter[:active] == false
           end
-          data.compact.map { |d| domain_to_attributes d }
+          data.compact.map { |d| domain_to_attributes d }.compact
         end
       end
 
@@ -51,23 +51,30 @@ module Fog
 
         def domain_to_attributes(dom)
           states= %w(nostate running blocked paused shutting-down shutoff crashed)
-          {
-            :id              => dom.uuid,
-            :uuid            => dom.uuid,
-            :name            => dom.name,
-            :max_memory_size => dom.info.max_mem,
-            :cputime         => dom.info.cpu_time,
-            :memory_size     => dom.info.memory,
-            :cpus            => dom.info.nr_virt_cpu,
-            :autostart       => dom.autostart?,
-            :os_type         => dom.os_type,
-            :active          => dom.active?,
-            :display         => domain_display(dom.xml_desc),
-            :boot_order      => boot_order(dom.xml_desc),
-            :nics            => domain_interfaces(dom.xml_desc),
-            :volumes_path    => domain_volumes(dom.xml_desc),
-            :state           => states[dom.info.state]
-          }
+
+          begin
+            {
+              :id              => dom.uuid,
+              :uuid            => dom.uuid,
+              :name            => dom.name,
+              :max_memory_size => dom.info.max_mem,
+              :cputime         => dom.info.cpu_time,
+              :memory_size     => dom.info.memory,
+              :cpus            => dom.info.nr_virt_cpu,
+              :autostart       => dom.autostart?,
+              :os_type         => dom.os_type,
+              :active          => dom.active?,
+              :display         => domain_display(dom.xml_desc),
+              :boot_order      => boot_order(dom.xml_desc),
+              :nics            => domain_interfaces(dom.xml_desc),
+              :volumes_path    => domain_volumes(dom.xml_desc),
+              :state           => states[dom.info.state]
+            }
+          rescue ::Libvirt::RetrieveError, ::Libvirt::Error
+            # Catch libvirt exceptions to avoid race conditions involving
+            # concurrent libvirt operations (like from another process)
+            return nil
+          end
         end
       end
 

data/lib/fog/libvirt/requests/compute/list_networks.rb

@@ -37,17 +37,17 @@ module Fog
 
       class Mock
         def list_networks(filters={ })
-          net1 = mock_network 'net1'
-          net2 = mock_network 'net2'
-          [net1, net2]
-        end
-
-        def mock_network name
-          {
-              :uuid        => 'net.uuid',
-              :name        => name,
-              :bridge_name => 'net.bridge_name'
-          }
+          [ {
+              :uuid        => 'a29146ea-39b2-412d-8f53-239eef117a32',
+              :name        => 'net1',
+              :bridge_name => 'virbr0'
+            },
+            {
+              :uuid        => 'fbd4ac68-cbea-4f95-86ed-22953fd92384',
+              :name        => 'net2',
+              :bridge_name => 'virbr1'
+            }
+          ]
         end
       end
     end

data/lib/fog/libvirt/requests/compute/list_volumes.rb

@@ -7,7 +7,13 @@ module Fog
           if filter.keys.empty?
             raw_volumes do |pool|
               pool.list_volumes.each do |volume_name|
-                data << volume_to_attributes(pool.lookup_volume_by_name(volume_name))
+                begin
+                  data << volume_to_attributes(pool.lookup_volume_by_name(volume_name))
+                rescue ::Libvirt::RetrieveError
+                  # Catch libvirt exceptions to avoid race conditions involving
+                  # concurrent libvirt operations (like from another process)
+                  next
+                end
               end
             end
           else
@@ -22,16 +28,20 @@ module Fog
           format_type = xml_element(vol.xml_desc, "/volume/target/format", "type") rescue nil # not all volumes have types, e.g. LVM
           return nil if format_type == "dir"
 
-          {
-            :pool_name   => vol.pool.name,
-            :key         => vol.key,
-            :id          => vol.key,
-            :path        => vol.path,
-            :name        => vol.name,
-            :format_type => format_type,
-            :allocation  => bytes_to_gb(vol.info.allocation),
-            :capacity    => bytes_to_gb(vol.info.capacity),
-          }
+          begin
+              {
+                :pool_name   => vol.pool.name,
+                :key         => vol.key,
+                :id          => vol.key,
+                :path        => vol.path,
+                :name        => vol.name,
+                :format_type => format_type,
+                :allocation  => bytes_to_gb(vol.info.allocation),
+                :capacity    => bytes_to_gb(vol.info.capacity),
+              }
+          rescue ::Libvirt::RetrieveError, ::Libvirt::Error
+            return nil # If there are issues during stat of volume file
+          end
         end
 
         def bytes_to_gb bytes

data/lib/fog/libvirt/version.rb

@@ -1,5 +1,5 @@
 module Fog
   module Libvirt
-    VERSION = '0.0.3'
+    VERSION = '0.0.4'
   end
 end

data/tests/libvirt/compute_tests.rb

@@ -10,7 +10,8 @@ Shindo.tests('Fog::Compute[:libvirt]', ['libvirt']) do
 
   tests("Compute requests") do
     %w{ create_domain create_volume define_domain define_pool destroy_interface destroy_network get_node_info list_domains
-        list_interfaces list_networks list_pools list_pool_volumes list_volumes pool_action vm_action volume_action }.each do |request|
+        list_interfaces list_networks list_pools list_pool_volumes list_volumes pool_action vm_action volume_action
+        dhcp_leases }.each do |request|
       test("it should respond to #{request}") { compute.respond_to? request }
     end
   end

data/tests/libvirt/models/compute/network_tests.rb

@@ -6,6 +6,10 @@ Shindo.tests('Fog::Compute[:libvirt] | network model', ['libvirt']) do
   tests('The network model should') do
     tests('have the action') do
       test('reload') { network.respond_to? 'reload' }
+      test('dhcp_leases') { network.respond_to? 'dhcp_leases' }
+    end
+    tests('have a dhcp_leases action that') do
+      test('returns an array') { network.dhcp_leases('99:88:77:66:55:44', 0).kind_of? Array }
     end
     tests('have attributes') do
       model_attribute_hash = network.attributes

data/tests/libvirt/models/compute/server_tests.rb

@@ -20,6 +20,9 @@ Shindo.tests('Fog::Compute[:libvirt] | server model', ['libvirt']) do
         }
       end
     end
+    tests('have an ip_address action that') do
+      test('returns the latest IP address lease') { server.public_ip_address() == '1.2.5.6' }
+    end
     tests('have attributes') do
       model_attribute_hash = server.attributes
       attributes = [ :id,

data/tests/libvirt/requests/compute/dhcp_leases_tests.rb

@@ -0,0 +1,15 @@
+Shindo.tests("Fog::Compute[:libvirt] | dhcp_leases request", 'libvirt') do
+
+  compute = Fog::Compute[:libvirt]
+
+  tests("DHCP leases response") do
+    response = compute.dhcp_leases("fbd4ac68-cbea-4f95-86ed-22953fd92384", "99:88:77:66:55:44", 0)
+    test("should be an array") { response.kind_of? Array }
+    test("should have one element") { response.length == 1 }
+    test("should have dict elements") { response[0].kind_of? Hash }
+    ["ipaddr", "prefix", "expirytime", "type"].each {
+      |k| test("should have dict elements with required key #{k}") { !response[0][k].nil? }
+    }
+  end
+
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: fog-libvirt
 version: !ruby/object:Gem::Version
-  version: 0.0.3
+  version: 0.0.4
 platform: ruby
 authors:
 - geemus (Wesley Beary)
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-11-24 00:00:00.000000000 Z
+date: 2016-03-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: fog-core
@@ -263,6 +263,7 @@ files:
 - lib/fog/libvirt/requests/compute/define_pool.rb
 - lib/fog/libvirt/requests/compute/destroy_interface.rb
 - lib/fog/libvirt/requests/compute/destroy_network.rb
+- lib/fog/libvirt/requests/compute/dhcp_leases.rb
 - lib/fog/libvirt/requests/compute/get_node_info.rb
 - lib/fog/libvirt/requests/compute/list_domains.rb
 - lib/fog/libvirt/requests/compute/list_interfaces.rb
@@ -299,6 +300,7 @@ files:
 - tests/libvirt/models/compute/volumes_tests.rb
 - tests/libvirt/requests/compute/create_domain_tests.rb
 - tests/libvirt/requests/compute/define_domain_tests.rb
+- tests/libvirt/requests/compute/dhcp_leases_tests.rb
 - tests/libvirt/requests/compute/update_display.rb
 homepage: http://github.com/fog/fog-libvirt
 licenses:
@@ -346,5 +348,6 @@ test_files:
 - tests/libvirt/models/compute/volumes_tests.rb
 - tests/libvirt/requests/compute/create_domain_tests.rb
 - tests/libvirt/requests/compute/define_domain_tests.rb
+- tests/libvirt/requests/compute/dhcp_leases_tests.rb
 - tests/libvirt/requests/compute/update_display.rb
 has_rdoc: