rubiojr-domctl 0.2.20090414130028

data/History.txt

@@ -0,0 +1,11 @@
+=== 0.1 / 2009-04-03
+
+* Initial release
+  * locate a domU within a group of Xen host (dom0)
+  * list the running domUs in a given host (dom0)
+  * list the VIFs from a given guest (domU)
+
+=== 0.2 / 2009-04-14
+
+* lots of new commands implemented
+* bug fixes

data/Manifest.txt

@@ -0,0 +1,24 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/domctl
+domctl.gemspec
+lib/domctl.rb
+lib/domctl/commands.rb
+lib/domctl/commands/cluster_nodes.rb
+lib/domctl/commands/cpu_utilisation.rb
+lib/domctl/commands/dom0_info.rb
+lib/domctl/commands/domu_info.rb
+lib/domctl/commands/farm_info.rb
+lib/domctl/commands/help.rb
+lib/domctl/commands/list_running.rb
+lib/domctl/commands/locate_domu.rb
+lib/domctl/commands/mem_info.rb
+lib/domctl/commands/oldest_domus.rb
+lib/domctl/commands/recent_domus.rb
+lib/domctl/commands/show_vifs.rb
+lib/domctl/config.rb
+scripts/devrelease
+scripts/newrelease
+scripts/publish_release

data/README.txt

@@ -0,0 +1,54 @@
+= Xen Cluster Management Tool
+
+* http://domctl.xen-fu.org
+
+== DESCRIPTION:
+
+Simple tool to manage a farm of Xen physical hosts.
+
+It also serves as an example of Pangea xen-api ruby implementation (http://pangea.xen-fu.org)
+
+== FEATURES/PROBLEMS:
+
+* FEATURES
+ - not many
+* PROBLEMS
+ - a few of them :D
+
+== SYNOPSIS:
+
+  FIX (code sample of usage)
+
+== REQUIREMENTS:
+
+* Dependencies are pulled when installing the gem
+
+== INSTALL:
+
+gem source -a http://gems.xen-fu.org
+gem install domctl
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2009 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,26 @@
+require 'rake'
+$:.unshift(File.dirname(__FILE__) + "/lib")
+require 'domctl'
+require 'hoe'
+
+Hoe.new('domctl', Domctl::VERSION) do |p|
+  p.name = "domctl"
+  p.author = "Sergio Rubio"
+  p.description = %q{Xen Cluster Management Tool}
+  p.email = 'sergio@rubio.name'
+  p.summary = "Manage a cluster of Xen hosts"
+  p.url = "http://github.com/rubiojr/domctl"
+  p.remote_rdoc_dir = '' # Release to root
+  p.extra_deps << [ "pangea","~> 0.1" ]
+  p.extra_deps << [ "term-ansicolor",">= 1.0" ]
+  p.developer('Sergio Rubio', 'sergio@rubio.name')
+end
+
+task :publish_dev_gem do
+  `scp pkg/*.gem xen-fu.org:~/dev.xen-fu.org/gems/`
+  `ssh xen-fu.org gem generate_index -d /home/rubiojr/dev.xen-fu.org/`
+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

data/bin/domctl

@@ -0,0 +1,86 @@
+#!/usr/bin/ruby
+require 'rubygems'
+require 'ostruct'
+require 'term/ansicolor'
+gem 'pangea', '~> 0.1'
+require 'pangea'
+
+begin
+  require "#{File.join(File.dirname(__FILE__), '../lib/domctl.rb')}"
+rescue
+  require 'domctl'
+end
+require 'yaml'
+
+include Domctl
+
+DOMCTL_COMMANDS = {
+  :cpu_utilisation => {
+    :help => "domctl cpu_utilisation",
+    :proc => CpuUtilisationCommand
+  },
+  :farm_info => {
+    :help => "domctl farm_info",
+    :proc => FarmInfoCommand
+  },
+  :mem_info => {
+    :help => "domctl mem_info [host]",
+    :proc => MemInfoCommand
+  },
+  :locate_domu => {
+    :help => "domctl locate_domu <domU name>",
+    :proc => LocateDomuCommand
+  },
+  :list_running => {
+    :help => "domctl list_running <dom0|all>",
+    :proc => ListRunningCommand
+  },
+  :cluster_nodes => {
+    :help => "domctl cluster_nodes",
+    :proc => ClusterNodesCommand
+  },
+  :show_vifs => {
+    :help => "domctl show_vifs <domU>",
+    :proc => ShowVifsCommand
+  },
+  :domu_info => {
+    :help => "domctl domu_info <domU>",
+    :proc => DomuInfoCommand
+  },
+  :dom0_info => {
+    :help => "domctl dom0_info <dom0>",
+    :proc => Dom0InfoCommand
+  },
+  :recent_domus => {
+    :help => "domctl recent_domus",
+    :proc => RecentDomusCommand
+  },
+  :oldest_domus => {
+    :help => "domctl oldest_domus",
+    :proc => OldestDomusCommand
+  },
+  :version => {
+    :help => "domctl version",
+    :proc => Proc.new { puts Domctl::VERSION }
+  },
+  :help => {
+    :proc => HelpCommand
+  }
+}
+
+Domctl::Config.validate
+command = ARGV.shift
+if command.nil? or DOMCTL_COMMANDS[command.to_sym].nil?
+  HelpCommand.call 
+  exit 1
+end
+begin
+  args = ARGV
+  DOMCTL_COMMANDS[command.to_sym][:args] = args
+  DOMCTL_COMMANDS[command.to_sym][:proc].call
+rescue Exception => e
+  if not e.is_a? SystemExit
+    puts e.message
+    puts e.backtrace
+  end
+end

data/domctl.gemspec

@@ -0,0 +1,40 @@
+Gem::Specification.new do |s|
+  s.name = %q{domctl}
+  s.version = "0.2.20090414130028"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Sergio RubioSergio Rubio"]
+  s.date = %q{2009-04-14}
+  s.default_executable = %q{domctl}
+  s.description = %q{Xen Cluster Management Tool}
+  s.email = %q{sergio@rubio.namesergio@rubio.name}
+  s.executables = ["domctl"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt"]
+  s.files = ["History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/domctl", "domctl.gemspec", "lib/domctl.rb", "lib/domctl/commands.rb", "lib/domctl/commands/cluster_nodes.rb", "lib/domctl/commands/cpu_utilisation.rb", "lib/domctl/commands/dom0_info.rb", "lib/domctl/commands/domu_info.rb", "lib/domctl/commands/farm_info.rb", "lib/domctl/commands/help.rb", "lib/domctl/commands/list_running.rb", "lib/domctl/commands/locate_domu.rb", "lib/domctl/commands/mem_info.rb", "lib/domctl/commands/oldest_domus.rb", "lib/domctl/commands/recent_domus.rb", "lib/domctl/commands/show_vifs.rb", "lib/domctl/config.rb", "scripts/devrelease", "scripts/newrelease", "scripts/publish_release"]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/rubiojr/domctl}
+  s.rdoc_options = ["--main", "README.txt"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{domctl}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{Manage a cluster of Xen hosts}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<pangea>, ["~> 0.1"])
+      s.add_runtime_dependency(%q<term-ansicolor>, [">= 1.0"])
+      s.add_development_dependency(%q<hoe>, [">= 1.12.1"])
+    else
+      s.add_dependency(%q<pangea>, ["~> 0.1"])
+      s.add_dependency(%q<term-ansicolor>, [">= 1.0"])
+      s.add_dependency(%q<hoe>, [">= 1.12.1"])
+    end
+  else
+    s.add_dependency(%q<pangea>, ["~> 0.1"])
+    s.add_dependency(%q<term-ansicolor>, [">= 1.0"])
+    s.add_dependency(%q<hoe>, [">= 1.12.1"])
+  end
+end

data/lib/domctl.rb

@@ -0,0 +1,6 @@
+require "#{File.join(File.dirname(__FILE__), 'domctl/config.rb')}"
+require "#{File.join(File.dirname(__FILE__), 'domctl/commands.rb')}"
+
+module Domctl
+  VERSION = "0.2.20090414130247"
+end

data/lib/domctl/commands.rb

@@ -0,0 +1,11 @@
+Dir["#{File.dirname(__FILE__)}/commands/*.rb"].each do |c|
+  require c
+end
+
+module Domctl
+  DestroyDomuCommand = Proc.new do
+  end
+  
+  CreateDomuCommand = Proc.new do
+  end
+end # end Domctl module

data/lib/domctl/commands/cluster_nodes.rb

@@ -0,0 +1,10 @@
+module Domctl
+  ################
+  # cluster_nodes 
+  # ##############
+  ClusterNodesCommand = Proc.new do
+    Domctl::Config.cluster_nodes.keys.sort.each do |n|
+      puts n
+    end
+  end
+end

data/lib/domctl/commands/cpu_utilisation.rb

@@ -0,0 +1,30 @@
+module Domctl
+  CpuUtilisationCommand = Proc.new do
+    puts "Gathering info..."
+    table = {}
+    Domctl::Config.each_host do |h|
+      table[h.label] = h.cpus.sort { |a,b| a.number <=> b.number }
+    end
+    cols = 0
+    rows = []
+    rc = 0
+    table = table.sort { |a,b| a[0] <=> b[0] }
+    table.each do |l,cpus|
+      cols = cpus.size if cpus.size > cols
+      r = Term::ANSIColor.bold("[#{l}]") + "\n"
+      cpus.each do |c|
+        r += ("%.2f" % (c.utilisation * 100)).ljust(8)
+      end
+      rows << r
+    end
+    header = ''
+    0.upto(cols - 1) do |i| 
+      header += "CPU#{i}".ljust(8)
+    end
+    puts header
+    puts "-" * header.size
+    rows.each do |r|
+      puts r
+    end
+  end
+end

data/lib/domctl/commands/dom0_info.rb

@@ -0,0 +1,35 @@
+module Domctl
+  ################
+  # dom0_info
+  ################
+  Dom0InfoCommand = Proc.new do
+    def print_dom0_info(h)
+      puts "Label:             #{h.label}"
+      puts "Memory Free:       #{Pangea::Util.humanize_bytes(h.metrics.memory_free)}"
+      puts "Resident VMs:      #{h.resident_vms.size}"
+      puts "Scheduler Policy:  #{h.sched_policy}"
+      puts "CPUs:              #{h.cpus.size}"
+      puts "Xen Version:       #{h.software_version['Xen']}"
+      puts "Arch:              #{h.software_version['machine']}"
+      puts "Kernel Version:    #{h.software_version['release']}"
+      print "CPUs: "
+      h.cpus.each do |c|
+        print "%.2f  " % (c.utilisation * 100)
+      end
+      puts
+    end
+    dom0 = DOMCTL_COMMANDS[:dom0_info][:args][0]
+    if dom0.nil?
+      $stderr.puts DOMCTL_COMMANDS[:dom0_info][:help]
+      exit 1
+    end
+    dom0.strip.chomp!
+    settings = Domctl::Config.cluster_nodes[dom0] 
+    begin
+      h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+      print_dom0_info(h)
+    rescue Exception
+      puts "Error connecting to host #{node}. Skipping."
+    end
+  end
+end

data/lib/domctl/commands/domu_info.rb

@@ -0,0 +1,55 @@
+module Domctl
+  ################
+  # domu_info
+  ################
+  DomuInfoCommand = Proc.new do
+    def print_vm_status(vm)
+      puts "Dom ID:            #{vm.domid}"
+      puts "Max Mem:           #{Pangea::Util::humanize_bytes(vm.dyn_max_mem)}"
+      puts "Min Mem:           #{Pangea::Util::humanize_bytes(vm.dyn_min_mem)}"
+      puts "Power State:       #{vm.power_state}"
+      puts "Resident On:       #{vm.resident_on.label}"
+      puts "Actions:"
+      puts "  after crash:       #{vm.actions_after_crash}"
+      puts "  after reboot:      #{vm.actions_after_reboot}"
+      puts "  after shutdown:    #{vm.actions_after_shutdown}"
+    end
+    args = DOMCTL_COMMANDS[:domu_info][:args][0]
+    if args.nil?
+      $stderr.puts DOMCTL_COMMANDS[:domu_info][:help]
+      exit 1
+    end
+    args.strip.chomp!
+    found = false
+    # dom0:domU notation
+    if args =~ /^.*:.*$/
+      host, domu = args.split(':')
+      settings = Domctl::Config.cluster_nodes[host]
+      h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+      h.resident_vms.each do |vm|
+        if vm.label == domu
+          found = true
+          print_vm_status(vm)
+        end
+      end
+      puts "DomU #{domu} not found in #{host}" if not found
+    else
+      domu = args
+      puts "Searching..."
+      Domctl::Config.cluster_nodes.each do |node, settings|
+        begin
+          h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+        rescue Exception
+          puts "Error connecting to host #{node}. Skipping."
+        end
+        h.resident_vms.each do |vm|
+          if vm.label == domu
+            found = true
+            print_vm_status(vm)
+          end
+        end
+      end
+      puts "DomU #{domu} not found" if not found
+    end
+  end
+end

data/lib/domctl/commands/farm_info.rb

@@ -0,0 +1,24 @@
+module Domctl
+  ################
+  # farm_info
+  # ##############
+  FarmInfoCommand = Proc.new do
+    puts "Gathering Info..."
+    Domctl::Config.each_host do |h|
+      puts h.label
+      puts "-------"
+      metrics = h.metrics
+      mfree = Pangea::Util.humanize_bytes(metrics.memory_free)
+      mtotal = Pangea::Util.humanize_bytes(metrics.memory_total)
+      puts "Resident VMs: #{h.resident_vms.size}"
+      puts "Mem Free: #{mfree}  Mem Total: #{mtotal}"
+      cpus = h.cpus.sort { |a,b| a.number <=> b.number }
+      print "CPUs: "
+      cpus.each do |c|
+        print "%.2f  " % (c.utilisation * 100)
+      end
+      puts
+      puts
+    end
+  end
+end

data/lib/domctl/commands/help.rb

@@ -0,0 +1,30 @@
+module Domctl
+  ################
+  # help 
+  # ##############
+  HelpCommand = Proc.new do
+  puts """
+  domctl #{Domctl::VERSION}
+
+  Usage: #{File.basename(__FILE__)} command [arguments...]
+
+    Available commands:
+
+    help                          print this help or the help associated
+                                  to a command
+    list_running                  list all running domUs in the specified dom0
+    locate_domu                   find the dom0 hosting the specified domU
+    show_vifs                     list the VIFs from a given domU
+    domu_info                     print DomU info
+    dom0_info                     print Dom0 info
+    recent_domus                  print the last 10 domus created
+    oldest_domus                  print the first 10 domus created
+    mem_info                      print the memory available in a host
+    farm_info                     print statistics from all the Hosts 
+    cpu_utilisation               CPU utilisation from all the Hosts 
+
+  Type domctl help <command> to get specific command help.
+
+  """
+  end
+end

data/lib/domctl/commands/list_running.rb

@@ -0,0 +1,58 @@
+module Domctl
+  ################
+  # list_running
+  # ##############
+  ListRunningCommand = Proc.new do
+    node = DOMCTL_COMMANDS[:list_running][:args][0]
+    if node.nil?
+      $stderr.puts DOMCTL_COMMANDS[:list_running][:help]
+      exit 1
+    end
+    if node == 'all'
+      Domctl::Config.each_host do |h|
+        puts
+        header = 'label'.ljust(30) + 'memory'.ljust(15) + 'power state'.ljust(15) + 'cpus'
+        puts "[#{h.label}]".rjust(header.size)
+        puts header
+        puts "-" * header.size
+        h.resident_vms.each do |vm|
+            label = vm.label
+            next if vm.is_control_domain?
+            print "#{label}".ljust(30) 
+            metrics = vm.metrics
+            m = Pangea::Util.humanize_bytes(metrics.memory_actual)
+            print m.ljust(15) 
+            print vm.power_state.to_s.ljust(15) 
+            print metrics.vcpus_number
+            puts
+        end
+      end
+    else
+      if not Domctl::Config.node_defined?(node)
+        $stderr.puts "ERROR: Xen host not defined in #{Domctl::Config.config_file}"
+        exit 1
+      end
+      settings = Domctl::Config.cluster_nodes[node]
+      begin
+        h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+        header = 'label'.ljust(30) + 'memory'.ljust(15) + 'power state'.ljust(15) + 'cpus'
+        puts header
+        puts "-" * header.size
+        h.resident_vms.each do |vm|
+            label = vm.label
+            next if vm.is_control_domain?
+            print "#{label}".ljust(30) 
+            metrics = vm.metrics
+            m = Pangea::Util.humanize_bytes(metrics.memory_actual)
+            print m.ljust(15) 
+            print vm.power_state.to_s.ljust(15) 
+            print metrics.vcpus_number
+            puts
+        end
+      rescue Exception => e
+        puts e.message
+        puts "Error connecting to host #{node}. Skipping."
+      end
+    end
+  end
+end

data/lib/domctl/commands/locate_domu.rb

@@ -0,0 +1,30 @@
+module Domctl
+  ################
+  # locate_domu 
+  # ##############
+  LocateDomuCommand = Proc.new do
+    domus = []
+    args = DOMCTL_COMMANDS[:locate_domu][:args]
+    if args.nil?
+      $stderr.puts DOMCTL_COMMANDS[:locate_domu][:help]
+      exit 1
+    end
+    print "Searching"
+    Domctl::Config.cluster_nodes.sort.each do |node, settings|
+      begin
+        h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+      rescue Exception
+        puts "Error connecting to host #{node}. Skipping."
+      end
+      h.resident_vms.each do |vm|
+        if vm.label =~ /^.*#{args}.*$/
+          domus << "#{node}: #{vm.label}" 
+        end
+      end
+      print '.'
+    end
+    puts
+    puts " Not found." if domus.empty?
+    domus.each { |d| puts d }
+  end
+end

data/lib/domctl/commands/mem_info.rb

@@ -0,0 +1,29 @@
+module Domctl
+  ################
+  # mem_info
+  # ##############
+  MemInfoCommand = Proc.new do
+    node = DOMCTL_COMMANDS[:mem_info][:args][0]
+    if node.nil?
+      Domctl::Config.each_host do |h|
+        mfree = Pangea::Util.humanize_bytes(h.metrics.memory_free)
+        mtotal = Pangea::Util.humanize_bytes(h.metrics.memory_total)
+        print "#{h.label}".ljust(30)
+        print "#{mfree} free".ljust(15)
+        puts "#{mtotal} available"
+      end
+    else
+      settings = Domctl::Config.cluster_nodes[node]
+      begin
+        h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+        mfree = Pangea::Util.humanize_bytes(h.metrics.memory_free)
+        mtotal = Pangea::Util.humanize_bytes(h.metrics.memory_total)
+        print "#{h.label}".ljust(30)
+        print "#{mfree} free".ljust(15)
+        puts "#{mtotal} available"
+      rescue Exception
+        puts "Error connecting to host #{node}. Skipping."
+      end
+    end
+  end
+end

data/lib/domctl/commands/oldest_domus.rb

@@ -0,0 +1,16 @@
+module Domctl
+  OldestDomusCommand = Proc.new do
+    oldest = []
+    print 'Working '
+    Domctl::Config.each_host do |h|
+      print '.'
+      h.resident_vms.each do |vm|
+        oldest << [vm.label, vm.metrics.start_time] if vm.label != 'Domain-0'
+      end
+    end
+    puts ' done.'
+    oldest.sort { |a,b| a[1] <=> b[1] }[0..9].each do |label, date|
+      puts "#{label}".ljust(30) + date.to_s
+    end
+  end
+end

data/lib/domctl/commands/recent_domus.rb

@@ -0,0 +1,16 @@
+module Domctl
+  RecentDomusCommand = Proc.new do
+    recent = []
+    print 'Working '
+    Domctl::Config.each_host do |h|
+      print '.'
+      h.resident_vms.each do |vm|
+        recent << [vm.label, vm.metrics.start_time] if vm.label != 'Domain-0'
+      end
+    end
+    puts ' done.'
+    recent.sort { |a,b| a[1] <=> b[1] }[-10..-1].each do |label, date|
+      puts "#{label}".ljust(30) + date.to_s
+    end
+  end
+end

data/lib/domctl/commands/show_vifs.rb

@@ -0,0 +1,57 @@
+module Domctl
+  ################
+  # show_vifs
+  # ##############
+  ShowVifsCommand = Proc.new do
+    def print_vif(vif)
+      puts "Device:      #{vif.device}"
+      puts "MAC Address: #{vif.mac}"
+      metrics = vif.metrics
+      puts "KBits/s IN:  #{metrics.io_read_kbs}"
+      puts "KBits/s OUT: #{metrics.io_write_kbs}"
+    end
+    found = false
+    args = DOMCTL_COMMANDS[:show_vifs][:args][0]
+    if args.nil?
+      $stderr.puts DOMCTL_COMMANDS[:show_vifs][:help]
+      exit 1
+    end
+    if args =~ /^.*:.*$/
+      host, domu = args.split(':')
+      Domctl::Config.exit_if_not_defined(host)
+      settings = Domctl::Config.cluster_nodes[host]
+      h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+      h.resident_vms.each do |vm|
+        if vm.label == domu
+          found = true
+          puts "#{vm.label}"
+          puts "------------------"
+          vm.vifs.each do |vif|
+            print_vif(vif)
+          end
+        end
+      end
+      puts "DomU #{domu} not found in #{host}" if not found
+    else
+      puts "Searching..."
+      Domctl::Config.cluster_nodes.each do |node, settings|
+        begin
+          h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+        rescue Exception
+          puts "Error connecting to host #{node}. Skipping."
+        end
+        h.resident_vms.each do |vm|
+          if vm.label == args
+            found = true
+            puts "#{vm.label}"
+            puts "------------------"
+            vm.vifs.each do |vif|
+              print_vif(vif)
+            end
+          end
+        end
+      end
+    end
+    puts "#{args} not found." if not found
+  end
+end

data/lib/domctl/config.rb

@@ -0,0 +1,78 @@
+module Domctl
+  class Config
+    def self.cluster_nodes
+      yaml = YAML.load_file(self.config_file)
+      yaml['cluster']
+    end
+
+    def self.validate
+      if not File.exist?(self.config_file)
+        self.create_sample_config
+        $stderr.puts
+        $stderr.puts "domctl config file does not exist.\n"
+        $stderr.puts "I have created an example one for you (#{config_file}). Configure it first."
+        $stderr.puts
+        exit 1
+      end
+      yaml = YAML.load_file(self.config_file)
+      if not yaml or yaml['cluster'].nil? or not yaml['cluster'].is_a?(Hash)
+        $stderr.puts
+        $stderr.puts "Invalid config file found.\n"
+        $stderr.puts
+        exit 1
+      end
+    end
+
+    def self.create_sample_config
+      if not File.exist?(self.config_file)
+        File.open(self.config_file, 'w') do |f|
+          cfg = { 'cluster' => {
+                    'xen0' => {
+                      'url' => 'http://xen0.example.net:9363',
+                      'username' => 'foo',
+                      'password' => 'bar'
+                    },
+                    'xen1' => {
+                      'url' => 'http://xen1.example.net:9363',
+                      'username' => 'foo',
+                      'password' => 'bar'
+                    }
+                  }
+          }
+          YAML.dump(cfg, f)
+        end
+      end
+    end
+
+    def self.each_host
+      cluster_nodes.sort.each do |node, settings|
+        begin
+          h = Pangea::Host.connect(settings['url'], settings['username'], settings['password'])
+          yield h
+        rescue Exception
+          puts "Error connecting to host #{node}. Skipping."
+        end
+      end
+    end
+
+    def self.exit_if_not_defined(node)
+      settings = Domctl::Config.cluster_nodes[node]
+      if settings.nil?
+        $stderr.puts "ERROR: Xen host not defined in #{Domctl::Config.config_file}"
+        exit 1
+      end
+    end
+    def self.node_defined?(node)
+      settings = Domctl::Config.cluster_nodes[node]
+      if settings.nil?
+        return false
+      end
+      true
+    end
+
+    def self.config_file
+      "#{ENV['HOME']}/.domctlrc"
+    end
+
+  end
+end

data/scripts/devrelease

@@ -0,0 +1,4 @@
+#!/bin/sh
+sh scripts/newrelease
+rake publish_dev_gem
+

data/scripts/newrelease

@@ -0,0 +1,7 @@
+#!/bin/sh
+VERSION=0.2.`ruby -e 'puts Time.now.strftime("%Y%m%d%H%M%S")'`
+echo $VERSION
+sed -i bak "s/VERSION .*$/VERSION = \"$VERSION\"/" lib/domctl.rb
+rm lib/domctl.rbbak
+rm pkg/*.gem
+rake gem

data/scripts/publish_release

@@ -0,0 +1,4 @@
+#!/bin/sh
+sh scripts/newrelease
+rake publish_gem
+

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+name: rubiojr-domctl
+version: !ruby/object:Gem::Version 
+  version: 0.2.20090414130028
+platform: ruby
+authors: 
+- Sergio RubioSergio Rubio
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-04-14 00:00:00 -07:00
+default_executable: domctl
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: pangea
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "0.1"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: term-ansicolor
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "1.0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.12.1
+    version: 
+description: Xen Cluster Management Tool
+email: sergio@rubio.namesergio@rubio.name
+executables: 
+- domctl
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/domctl
+- domctl.gemspec
+- lib/domctl.rb
+- lib/domctl/commands.rb
+- lib/domctl/commands/cluster_nodes.rb
+- lib/domctl/commands/cpu_utilisation.rb
+- lib/domctl/commands/dom0_info.rb
+- lib/domctl/commands/domu_info.rb
+- lib/domctl/commands/farm_info.rb
+- lib/domctl/commands/help.rb
+- lib/domctl/commands/list_running.rb
+- lib/domctl/commands/locate_domu.rb
+- lib/domctl/commands/mem_info.rb
+- lib/domctl/commands/oldest_domus.rb
+- lib/domctl/commands/recent_domus.rb
+- lib/domctl/commands/show_vifs.rb
+- lib/domctl/config.rb
+- scripts/devrelease
+- scripts/newrelease
+- scripts/publish_release
+has_rdoc: true
+homepage: http://github.com/rubiojr/domctl
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: domctl
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Manage a cluster of Xen hosts
+test_files: []
+