rubiojr-pangea 0.1.20090403134419

data/History.txt

@@ -0,0 +1,4 @@
+=== 0.1 / 2008-04-01
+
+* Initial pangea release
+* read-only operations implemented

data/Manifest.txt

@@ -0,0 +1,30 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+examples/base.rb
+examples/host.rb
+examples/host_cpu.rb
+examples/host_metrics.rb
+examples/vif.rb
+examples/vm.rb
+lib/memoizers/dumb_memoizer.rb
+lib/memoizers/simple_memoizer.rb
+lib/memoizers/strategy.rb
+lib/memoizers/timed_memoizer.rb
+lib/pangea.rb
+lib/pangea/cluster.rb
+lib/pangea/exceptions.rb
+lib/pangea/objects.rb
+lib/util/string.rb
+pangea.gemspec
+scripts/newrelease
+scripts/publish_release
+test/config.rb
+test/suite.rb
+test/test_network.rb
+test/test_pangea.rb
+test/test_vif.rb
+test/test_vif_metrics.rb
+test/test_vm.rb
+test/test_vm_metrics.rb

data/README.txt

@@ -0,0 +1,64 @@
+= Pangea 0.1
+
+* http://www.xen-fu.org/blog
+
+== DESCRIPTION:
+
+Xen-Api Ruby Implementation
+
+== FEATURES/PROBLEMS:
+
+* Read-only operations implemented ATM
+* Needs documentation
+* Add more examples
+* API is subject to change till we reach 1.0
+
+== SYNOPSIS:
+
+  require 'rubygems'
+
+  require 'pangea'
+
+  host = Pangea::Host.connect('http://xen.example.net:9363', 'foo', 'bar')
+
+  host.resident_vms.each do |vm|
+    # do something with the Pangea::VM object
+  end
+
+  host.networks.each do |net|
+    # do something with the Pangea::Network object
+  end
+
+== REQUIREMENTS:
+
+* Ruby1.8.7 is required (XObject.ref_call doesn't work in ruby1.8.6
+
+== INSTALL:
+
+* gem source -a \http://gems.xen-fu.org
+* gem install pangea
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,31 @@
+require 'rake'
+$:.unshift(File.dirname(__FILE__) + "/lib")
+require 'pangea'
+require 'hoe'
+
+Hoe.new('Pangea', Pangea::VERSION) do |p|
+  p.name = "pangea"
+  p.author = "Sergio Rubio"
+  p.description = %q{Xen-API Ruby Implementation}
+  p.email = 'sergio@rubio.name'
+  p.summary = "Ruby Xen API"
+  p.url = "http://github.com/rubiojr/pangea"
+  #p.clean_globs = ['test/output/*.png']
+  #p.changes = p.paragraphs_of('CHANGELOG', 0..1).join("\n\n")
+  p.remote_rdoc_dir = '' # Release to root
+  p.extra_deps << [ "term-ansicolor",">= 1.0" ]
+  p.developer('Sergio Rubio', 'sergio@rubio.name')
+end
+
+task :publish_gem do
+  `scp pkg/*.gem xen-fu.org:~/gems.xen-fu.org/gems/`
+  `ssh xen-fu.org gem generate_index -d /home/rubiojr/gems.xen-fu.org/`
+end
+task :upload_docs do
+  `rsync --delete -rtlz doc/ xen-fu.org:~/xen-fu.org/pangea/doc/`
+end
+task :upload_edge_docs do
+  `rsync --delete -rtlz doc/ xen-fu.org:~/xen-fu.org/pangea-edge/doc/`
+end
+task :docs_all => [:redocs, :upload_docs, :upload_edge_docs] do
+end

data/examples/base.rb

@@ -0,0 +1,11 @@
+def ask_host
+  host_url = ARGV[0]
+
+  if host_url.nil? or host_url !~ /http:\/\/.*$/
+    puts "Usage: #{$0} <xen-api server url>"
+    puts
+    puts "Example: #{$0} http://xen.example.net:9363"
+    exit
+  end
+  return host_url
+end

data/examples/host.rb

@@ -0,0 +1,37 @@
+require 'rubygems'
+begin
+  require '../lib/pangea'
+rescue
+  require 'pangea'
+end
+# cmdline helper
+require "#{File.join(File.dirname(__FILE__), 'base.rb')}"
+# from base.rb
+host_url = ask_host
+
+host = Pangea::Host.connect(host_url, 'foo', 'bar')
+
+puts "******* HOST DETAILS *******"
+# host unique identifier
+puts "UUID: #{host.uuid}"
+# is the host (dom0) alive?
+puts "Alive?: #{host.alive?}"
+# get the hostname
+puts "Hostname: #{host.label}"
+puts "Memory Free: #{host.metrics.memory_free}"
+puts "CPUs: #{host.cpus.size}"
+puts "Xen Version: #{host.software_version['Xen']}"
+puts "Arch: #{host.software_version['machine']}"
+puts "Kernel Version: #{host.software_version['release']}"
+
+# list all the domUs
+puts "******* RESIDENT VMs *******"
+host.resident_vms.each do |vm|
+  puts vm.label
+end
+
+# list all the networks
+puts "******* NETWORKS *******"
+host.networks.each do |net|
+  puts net.label
+end

data/examples/host_cpu.rb

@@ -0,0 +1,21 @@
+require 'rubygems'
+begin
+  require '../lib/pangea'
+rescue
+  require 'pangea'
+end
+# cmdline helper
+require "#{File.join(File.dirname(__FILE__), 'base.rb')}"
+# from base.rb
+host_url = ask_host
+
+host = Pangea::Host.connect(host_url, 'foo', 'bar')
+
+puts "Host CPUs"
+host.cpus.each do |cpu|
+  puts "*** CPU #{cpu.number} ***"
+  puts "Speed:       #{cpu.speed}"
+  puts "Vendor:      #{cpu.vendor}"
+  puts "Model:       #{cpu.model_name}"
+  puts "Utilisation: #{cpu.utilisation * 100} %"
+end

data/examples/host_metrics.rb

@@ -0,0 +1,18 @@
+require 'rubygems'
+begin
+  require '../lib/pangea'
+rescue
+  require 'pangea'
+end
+# cmdline helper
+require "#{File.join(File.dirname(__FILE__), 'base.rb')}"
+# from base.rb
+host_url = ask_host
+
+host = Pangea::Host.connect(host_url, 'foo', 'bar')
+metrics = host.metrics
+
+puts "Metrics for #{host.label}"
+# Pange::Util.humanize_bytes translate bytes to MB, GB, TB...
+puts "Total Memory: #{Pangea::Util.humanize_bytes( metrics.memory_total )}"
+puts "Free Memory: #{Pangea::Util.humanize_bytes( metrics.memory_free )}"

data/examples/vif.rb

@@ -0,0 +1,26 @@
+require 'rubygems'
+begin
+  require '../lib/pangea'
+rescue
+  require 'pangea'
+end
+# cmdline helper
+require "#{File.join(File.dirname(__FILE__), 'base.rb')}"
+# from base.rb
+host_url = ask_host
+
+host = Pangea::Host.connect(host_url, 'foo', 'bar')
+
+# skip if only one VM available (Dom0)
+if host.resident_vms.size > 1
+  vm = host.resident_vms[1]
+  puts "VM Label:      #{vm.label}"
+  vm.vifs.each do |vif|
+    puts "Device:      #{vif.device}"
+    puts "MAC Address: " + vif.mac
+    metrics = vif.metrics
+    puts "Kbs Out:     #{metrics.io_write_kbs}"
+    puts "Kbs In:      #{metrics.io_read_kbs}"
+    puts "----"
+  end
+end

data/examples/vm.rb

@@ -0,0 +1,25 @@
+require 'rubygems'
+begin
+  require '../lib/pangea'
+rescue
+  require 'pangea'
+end
+# cmdline helper
+require "#{File.join(File.dirname(__FILE__), 'base.rb')}"
+# from base.rb
+host_url = ask_host
+
+host = Pangea::Host.connect(host_url, 'foo', 'bar')
+
+host.resident_vms.each do |vm|
+  puts "**** VM #{vm.label} ****"
+  puts "On Crash:            #{vm.actions_after_crash}"
+  puts "On Reboot:           #{vm.actions_after_reboot}"
+  puts "Domain ID:           #{vm.domid}"
+  puts "Current Memory:      #{vm.dyn_min_mem}"
+  puts "Max Memory:          #{vm.dyn_max_mem}"
+  puts "Power State:         #{vm.power_state}"
+  puts "Virtual Interfaces:  #{vm.vifs.size}"
+  puts "Host:       #{vm.resident_on.label}"
+  puts
+end

data/lib/memoizers/dumb_memoizer.rb

@@ -0,0 +1,8 @@
+module Pangea 
+  module Memoizers #:nodoc:all
+    module DumbMemoizer
+      def memoize(method_name, p={})
+      end
+    end
+  end
+end

data/lib/memoizers/simple_memoizer.rb

@@ -0,0 +1,40 @@
+module Pangea #:nodoc:
+  module Memoizers #:nodoc:
+    #
+    # based on http://github.com/JackDanger/simple_memoize
+    #
+    module SimpleMemoizer
+      def memoize(method_name, p={})
+        method_name = method_name.to_s
+        stripped_method_name = method_name.sub(/([!?])$/, '')
+
+        punctuation = $1
+        wordy_punctuation = (punctuation == '!' ? '_bang' : '_huh') if punctuation
+        ivar_name = "@#{stripped_method_name}#{wordy_punctuation}"
+
+        memoized_method_name = "#{stripped_method_name}_with_timed_memo#{punctuation}"
+        regular_method_name  = "#{stripped_method_name}_without_memo#{punctuation}"
+
+        unless (instance_methods + private_instance_methods).include?(method_name)
+          raise NoMethodError, "The Method '#{method_name}' cannot be memoized because it doesn't exist in #{self}"
+        end
+        return if self.method_defined?(memoized_method_name)
+    
+        self.class_eval "
+          def #{memoized_method_name}(*args)
+            if defined?(#{ivar_name})
+              #{ivar_name}
+            else
+              #{ivar_name} = #{regular_method_name}(*args)
+            end
+          end
+          alias_method :#{regular_method_name}, :#{method_name}
+          alias_method :#{method_name}, :#{memoized_method_name}
+
+          protected :#{method_name} if protected_instance_methods.include?('#{regular_method_name}')
+          private   :#{method_name} if private_instance_methods.include?('#{regular_method_name}')
+        "
+      end
+    end
+  end
+end

data/lib/memoizers/strategy.rb

@@ -0,0 +1,14 @@
+module Pangea #:nodoc:
+  module Memoizers
+
+    def self.strategy=(mod)
+      puts "using memoizing strategy #{mod}"
+      @strategy = mod
+    end
+
+    def self.strategy
+      @strategy || Pangea::Memoizers::DumbMemoizer
+    end
+
+  end
+end

data/lib/memoizers/timed_memoizer.rb

@@ -0,0 +1,40 @@
+module Pangea #:nodoc:
+  module Memoizers
+    module TimedMemoizer 
+      def memoize(method_name, p={})
+        method_name = method_name.to_s
+        stripped_method_name = method_name.sub(/([!?])$/, '')
+
+        punctuation = $1
+        wordy_punctuation = (punctuation == '!' ? '_bang' : '_huh') if punctuation
+        ivar_name = "@#{stripped_method_name}#{wordy_punctuation}"
+
+        memoized_method_name = "#{stripped_method_name}_with_timed_memo#{punctuation}"
+        regular_method_name  = "#{stripped_method_name}_without_memo#{punctuation}"
+
+        unless (instance_methods + private_instance_methods).include?(method_name)
+          raise NoMethodError, "The Method '#{method_name}' cannot be memoized because it doesn't exist in #{self}"
+        end
+        return if self.method_defined?(memoized_method_name)
+    
+        self.class_eval "
+          @@refreshing_time = #{p[:refreshing_time] || 30}
+          def #{memoized_method_name}(*args)
+            if defined?(#{ivar_name}) and (Time.now - #{ivar_name}_tsample) < @@refreshing_time
+              #{ivar_name}
+            else
+              #{ivar_name}_tsample =  Time.now
+              #{ivar_name} = #{regular_method_name}(*args)
+            end
+          end
+          alias_method :#{regular_method_name}, :#{method_name}
+          alias_method :#{method_name}, :#{memoized_method_name}
+
+          protected :#{method_name} if protected_instance_methods.include?('#{regular_method_name}')
+          private   :#{method_name} if private_instance_methods.include?('#{regular_method_name}')
+        "
+      end
+    end
+  end
+end
+

data/lib/pangea.rb

@@ -0,0 +1,9 @@
+require 'xmlrpc/client'
+require "#{File.join(File.dirname(__FILE__), 'util/string.rb')}"
+require "#{File.join(File.dirname(__FILE__), 'pangea/objects.rb')}"
+require "#{File.join(File.dirname(__FILE__), 'pangea/exceptions.rb')}"
+
+module Pangea
+  VERSION = "0.1.20090403134419"
+end # module Pangea
+

data/lib/pangea/cluster.rb

@@ -0,0 +1,46 @@
+module Pangea
+  #
+  # A Xen Cluster is a group of Hosts
+  #
+  class Cluster #:nodoc:
+
+    def initialize(config={})
+      @index = {}
+      @config = config 
+      @nodes = []
+    end
+
+    def [](name)
+      # initialize the node list
+      nodes if @index.empty?
+      @index[name]
+    end
+
+    # Deprecated, use Cluster.nodes
+    def hosts
+      puts "WARNING: Cluster.hosts is deprecated. Use Cluster.nodes instead"
+      nodes
+    end
+
+    #
+    # Returns the list of nodes in the Cluster
+    #
+    def nodes
+      return @nodes if (not @nodes.nil? and @nodes.size > 0)
+      init_nodes
+      @nodes
+    end
+
+    private
+    def init_nodes
+      @config.each_key do |n|
+        h = Host.connect(@config[n]['url'], 
+                           @config[n]['username'] || '', 
+                           @config[n]['password'] || ''
+                          ) 
+        @index[h.label] = h
+        @nodes << h
+      end
+    end
+  end
+end