fairchild-poolparty 1.1.3

data/History.txt

@@ -0,0 +1,35 @@
+== 1.0.0 2009-1-20
+	* Released 1.0 at CitrusByte
+	* Party
+	
+== 0.2.77 2008-12-5
+  * Added heartbeat failover
+
+== 0.2.72 
+  * Added specs to spec cloud
+  
+== 0.2.6 2008-10-14
+  * Maintaining the cloud
+  
+== 0.2 2008-09-02
+  * Finished new syntax rewrite
+  
+== 0.1.2 2008-08-05
+  * Added development tasks for easy setup
+  * Updated Scheduler to include ThreadPool for threaded safety
+  * Added poolnotify
+  * Updating gem on github
+  * Changed configuration style to rsync all files across every instance
+  * Moved configuration back to a configure scrip
+  * Added in vlad configuration
+  * Added plugin ability to install custom software
+  * Updated configuration style
+  * Added cloud_list to pool
+  * Changed listing of the clouds through pool       
+  * Added plugin_manager
+  * Moved remoting to rake remote task (from vlad)
+  * Changed configuration from instance-based to cloud-based
+  * Updated source
+  * Plugin support
+  * Cleaned up base
+  * Extensible monitoring

data/License.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Ari Lerner
+
+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/PostInstall.txt

@@ -0,0 +1,19 @@
+Get ready to jump in the pool, you just installed PoolParty! (Updated at 19:34 03/02/09)
+
+To get started, run the generator:
+
+  pool spec <name>
+
+Please check out the documentation for any questions or check out the google groups at
+  http://groups.google.com/group/poolpartyrb
+
+More tutorials can be found at 
+  http://poolpartyrb.com
+
+Don't forget to check out the plugin tutorial @ http://poolpartyrb.com to extend PoolParty for your needs!
+
+For more information, check http://PoolPartyrb.com or visit us on IRC at:
+  irc.freenode.net
+  #poolpartyrb
+
+*** Ari Lerner @ <arilerner@mac.com> ***

data/README.txt

@@ -0,0 +1,77 @@
+= PoolParty
+
+http://poolpartyrb.com
+
+== DESCRIPTION:
+
+PoolParty makes it easy and simple to configure any cloud of computers. In clear language, describe your cloud
+with language such as:
+
+pool :cloud do
+ cloud :app do
+  apache do
+   has_virtualhost(:name => "/var/www/sites/poolpartyrb.com")
+  end
+ end
+end
+
+== FEATURES/PROBLEMS:
+
+* Written in Ruby and Erlang
+* Written from the ground up to be extensible with plugins
+* Easy git-style commands to communicate with your clouds
+* Much much more
+
+== SYNOPSIS:
+
+PoolParty is written with the intention of being as application-agnostic as possible. It installs only the basic 
+required software to glue the cloud together on the instances as listed below.
+
+PoolParty is easily configuration. In fact, it makes little assumptions about your development environment and allows 
+several options on how to begin configuring the cloud.
+
+== REQUIREMENTS:
+
+Ruby
+Erlang
+
+== INSTALL:
+
+sudo gem install auser-poolparty
+
+== TODO:
+* Update hot reloading of puppet (force-reload?)
+* Add pingback for nodes to master when failure occurs
+* Add become master for the nodes
+* Add hot reload to haproxy while reconfiguring
+* Replace services with Runit
+* Refactor provisioning to use erlang
+* Add queuing of tasks on the messenger
+* Add syntax checker on the manifests
+* Move in collectd support
+* Remove master-slave protocol
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2008 Ari Lerner
+
+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,45 @@
+require 'config/requirements'
+require 'config/jeweler' # setup gem configuration
+
+Dir['tasks/**/*.rake'].each { |rake| load rake }
+
+desc "Clean tmp directory"
+task :clean_tmp do |t|
+  FileUtils.rm_rf("#{File.dirname(__FILE__)}/Manifest.txt") if ::File.exists?("#{File.dirname(__FILE__)}/Manifest.txt") 
+  FileUtils.touch("#{File.dirname(__FILE__)}/Manifest.txt")
+  %w(logs tmp).each do |dir|
+    FileUtils.rm_rf("#{File.dirname(__FILE__)}/#{dir}") if ::File.exists?("#{File.dirname(__FILE__)}/#{dir}")
+  end
+end
+
+desc "Remove the pkg directory"
+task :clean_pkg do |t|
+  %w(pkg).each do |dir|
+    FileUtils.rm_rf("#{File.dirname(__FILE__)}/#{dir}") if ::File.exists?("#{File.dirname(__FILE__)}/#{dir}")
+  end
+end
+
+desc "Packge with timestamp"
+task :update_timestamp do
+  data = open("PostInstall.txt").read
+  str = "Updated at #{Time.now.strftime("%H:%M %D")}"
+  
+  if data.scan(/Updated at/).empty?
+    data = data ^ {:updated_at => str}    
+  else
+    data = data.gsub(/just installed PoolParty\!(.*)$/, "just installed PoolParty! (#{str})")
+  end
+  ::File.open("PostInstall.txt", "w+") {|f| f << data }
+end
+
+namespace :gem do
+  task(:build).prerequisites.unshift :gemspec # Prepend the gemspec generation
+  
+  desc "Build the gem only if the specs pass"
+  task :test_then_build => [:spec, :build]
+  
+  desc "Build and install the gem only if the specs pass"
+  task :test_then_install => [:spec, :install]
+end
+
+task :release => [:update_timestamp]

data/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:patch: 3
+:major: 1
+:minor: 1

data/bin/cloud

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+# name = ARGV.select {|arg| arg if Binary.available_binaries_for("cloud").include?(arg) }.first
+name = ARGV.shift if Binary.available_binaries_for("cloud").include?(ARGV.first)
+# If the options include -h and they don't include a valid command, then we can just pass the 
+# original options back, but if they do contain a binary, we don't want -h getting through to 
+# these options, so we'll strip it if it's included
+DUP_ARG = ARGV.dup
+new_args = DUP_ARG.map {|arg| DUP_ARG.delete(arg) unless help_array.include?(arg) || Binary.available_binaries_for("cloud").include?(arg) }
+new_args = new_args.reject {|arg| Binary.available_binaries_for("cloud").include?(arg) }.empty? ? ARGV : (name ? (help_array.each {|arg| DUP_ARG.delete(arg)}; DUP_ARG) : DUP_ARG)
+
+# Let's make sure if no command is passed in that we show the help message
+new_args.push("-h") unless name
+
+o = PoolParty::Optioner.new(new_args, {:extra_help => "\nCloud actions\n#{Binary.list_binaries_for("cloud")}\n\n", :abstract => true}) do |opts, optioner|  
+  opts.on('-n cloudname', '--name name', 'Address this cloud')    { |c| optioner.cloudname c }
+end
+
+program_name = "#{File.basename($0)}-#{name}"
+program_location = File.join(Binary.binary_directory, program_name)
+
+command_line = "#{program_location}"
+
+# Run it from the command-line first
+if Binary.available_binaries_for("cloud").include?(name)
+  system command_line, *new_args
+else
+  puts "Unknown poolparty binary: #{name}"
+end

data/bin/cloud-bootstrap

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolparty/provision/boot_strapper"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n cloudname', '--name name', 'Start cloud by this name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cld|
+  # If an IP or DNS name is given, bootstrap that node, otherwise, bootstrap all running nodes.
+  nodes = !o.unflagged_args.empty? ?  o.unflagged_args : cld.running_instance_ips
+  if nodes.empty?
+    puts "No nodes to bootstrap"
+  else
+    nodes.each do |address|
+      puts "\nBootStrapping: #{address}\n--------------------"
+      ::PoolParty::Provision::BootStrapper.new address, {:full_keypair_path => cld.keypair.full_filepath, :cloud => cld}
+    end
+  end
+end

data/bin/cloud-configure

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+# require "poolpartycl"
+
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n cloudname', '--name name', 'Start cloud by this name')    { |c| optioner.cloudname c }
+  opts.on('-i num', '--num i', 'Instance number')    { |i| optioner.inst_num i.to_i }
+end
+
+o.loaded_clouds.each do |cld|
+  # If an IP or DNS name is given, bootstrap that node, otherwise, bootstrap all running nodes.
+  nodes = !o.unflagged_args.empty? ?  o.unflagged_args : cld.remote_instances_list.collect {|inst| inst.ip if inst.running? }.compact
+  if nodes.empty?
+    puts "No nodes to configure"
+  else
+    if o.inst_num?
+      ::PoolParty::Provision::DrConfigure.new( nodes[o.inst_num], :full_keypair_path => cld.keypair.full_filepath,  :cloud => cld )
+    else
+      nodes.each do |address|
+        puts "Configuring: #{address}"
+        ::PoolParty::Provision::DrConfigure.new( address, :full_keypair_path => cld.keypair.full_filepath,  :cloud => cld )
+      end
+    end
+  end
+end
+

data/bin/cloud-console

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/poolparty.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/poolpartycl.rb'}"
+puts "Loading PoolParty console..."
+
+exec "#{irb} #{libs} --simple-prompt"

data/bin/cloud-contract

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cl|
+  with_cloud(cl) do
+    puts header("Contracting cloud #{name}")
+    puts "#{list_of_running_instances.size} running instances (#{minimum_instances} minimum instances)"
+    puts testing ? "Not contracting (test mode)" : "Contracting the cloud if possible"
+    contract_cloud_if_necessary( !testing )
+  end
+end

data/bin/cloud-expand

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Expand the cloud on this name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cloud|
+
+  with_cloud(cloud) do
+    vputs header("Expanding cloud #{name}")
+    vputs "#{list_of_running_instances.size} running instances of #{maximum_instances} possible instances"
+    vputs testing ? "Not expanding (test mode)" : "Expanding the cloud"
+    expand_cloud_if_necessary( !testing )
+  end
+  
+end

data/bin/cloud-handle-load

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cloud|
+
+  with_cloud(cloud) do
+    vputs header("Load handling cloud #{name}")
+    vputs "can_expand_cloud: #{can_contract_cloud?}"
+    if can_expand_cloud?
+      vputs "Expanding cloud based on load"
+      log.debug "Expanding cloud based on load"
+      log.debug rules_values
+      expand_cloud_if_necessary
+    elsif can_contract_cloud?
+      vputs "Contracting cloud based on load"
+      log.debug rules_values
+      contract_cloud_if_necessary
+    end
+  end
+
+end

data/bin/cloud-list

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-f [remote|local]', '--from [remote|local]', 'Remote or local (default: local)')    { |o| optioner.location o }
+  opts.on('-r', '--remote', 'Remote listing')    { optioner.location "remote" }
+  opts.on('-l', '--local', 'Local listing')    { optioner.location "local" }
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cld|
+  
+  puts header("Listing cloud #{cld.name}")
+  
+  puts subheader("Active instances")
+  puts cld.list_of_running_instances.map{|a| a.to_s}.join("\n")
+    
+  if cld.list_of_pending_instances.size > 0
+    puts subheader("Pending instances")
+    puts cld.list_of_pending_instances.map{|a| a.to_s}.join("\n")
+  end
+end

data/bin/cloud-osxcopy

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Copy the master ip for this cloud')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cld|
+  
+  node = cld.list_of_running_instances.first
+  ip = node.ip
+  puts "ip: #{ip}"
+  Kernel.system "echo #{ip} | pbcopy"
+  
+end

data/bin/cloud-provision

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolparty/provision/boot_strapper"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n cloudname', '--name name', 'Start cloud by this name')    { |c| optioner.cloudname c }
+  opts.on('-i num', '--num i', 'Instance number')    { |i| optioner.inst_num i.to_i }
+end
+
+o.loaded_clouds.each do |cld|
+  # If an IP or DNS name is given, bootstrap that node, otherwise, bootstrap all running nodes.
+  nodes = !o.unflagged_args.empty? ?  o.unflagged_args : cld.remote_instances_list.collect {|inst| inst.ip if inst.running? }.compact
+  if nodes.empty?
+    puts "No nodes to bootstrap"
+  else
+    if o.inst_num?
+      ::PoolParty::Provision::BootStrapper.new( nodes[o.inst_num], :full_keypair_path => cld.keypair.full_filepath, :cloud => cld )
+      ::PoolParty::Provision::DrConfigure.new( nodes[o.inst_num], :full_keypair_path => cld.keypair.full_filepath,  :cloud => cld )
+    else
+      nodes.each do |address|
+        puts "bootstrapping: #{address}"
+        ::PoolParty::Provision::BootStrapper.new( address, :full_keypair_path => cld.keypair.full_filepath, :cloud => cld )
+        ::PoolParty::Provision::DrConfigure.new( address, :full_keypair_path => cld.keypair.full_filepath, 
+                                                          :cloud => cld )
+      end
+    end
+  end
+end
+

data/bin/cloud-rsync

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV, {:extra_help => "\nUsage: cloud [options] rsync source target\n\n"}) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+  opts.on('-i num', '--id num', 'Instance num to ssh (default: 0)')    { |i| optioner.num i }
+end
+
+@instance_number = (o.num || 0 ).to_i
+
+if o.unflagged_args.length > 1
+  @target = o.unflagged_args.pop
+  @source = o.unflagged_args.pop  
+else
+  @source = o.unflagged_args.pop
+  @target = ''
+end
+
+o.loaded_clouds.each do |cloud|
+  
+  with_cloud(cloud, {:source=>@source, :target=>@target, :instance_number=>@instance_number }) do
+    puts header("rsyncing")
+    rsync_to source, target, instance_number
+  end
+  
+end

data/bin/cloud-run

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+@cmd = ARGV[-1]
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+  opts.on('-i num', '--id num', 'Instance num to ssh (default: 0)')    { |i| optioner.num i }
+  opts.on('-c command', '--command command', 'Command to run on the instance')    { |c| optioner.command c }
+end
+
+@cmd = o.command if (o.command)
+
+o.loaded_clouds.each do |cl|
+  @cloud.run_command_on_instance_number( @cmd, o.num.to_i || 0 ) if @cloud
+end

data/bin/cloud-setup-dev

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Setup development environment for cloud named')    { |c| optioner.cloudname c }
+end
+  
+o.loaded_clouds.each do |cld|
+  
+  if cld.remote_instances_list.empty?
+    puts "Your cloud is not running"
+  else
+    str =<<-EOE
+    Host #{cld.name}-master
+      User        #{cld.user}
+      Hostname    #{cld.remote_instances_list.first.ip}
+      IdentityFile    #{cld.keypair}
+    EOE
+  
+    puts "Enter the following in your .ssh/config file"
+    puts str
+  end
+end

data/bin/cloud-show

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cld|
+    
+  print_with_nice_printer "Cloud: #{cld.name}", [
+    "instances #{cld.minimum_instances}..#{cld.maximum_instances}",
+    "keypair #{cld.keypair}"
+  ] do |printer|    
+    if cld.list_of_running_instances.size > 0
+      printer.empty
+      printer.center("Active instances")
+      printer << cld.list_of_running_instances.map{|a| a.ip.strip }.join("\n")
+    end
+    if cld.list_of_pending_instances.size > 0
+      printer.empty
+      printer.center "Pending instances"
+      printer << cld.list_of_pending_instances.map{|a| a.to_s}.join("\n")
+    end
+    printer.empty
+  end
+end

data/bin/cloud-spec

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+available_tests = {
+  :launch => "Launches a cloud and ensures it is accessible at port 80"
+}
+
+available_tests_string = available_tests.map {|k,v| "#{k}: #{v}"}.join("\n")
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|  
+  optioner.cloudnames
+  optioner.daemonizeable
+  opts.on('--type type', 
+    "Run type of test. Available tests: #{available_tests_string} (default: launch)")    { |c| optioner.testtype c }
+end
+
+o.loaded_clouds.each do |cloud|
+  with_cloud(cloud) do
+    puts "Are you sure you want to live test?"
+    body = ["Normal charges for running instances will apply"]
+    body << "as this will run instances"
+    body.each {|st| puts "\t#{st}"}
+    print "(y|n): "
+    input = gets.downcase.chomp
+    do_test = input.downcase == "y" ? true : false
+    if do_test
+      case testtype
+      when "launch"
+      when nil
+        print_with_nice_printer("Starting live specing cloud #{name}")
+        puts "TODO:  this isn't implented yet."
+        # hide_output {launch_and_configure_master!}
+        print_with_nice_printer("Waiting for cloud to provision")
+        
+      end
+    end
+  end
+  
+end

data/bin/cloud-ssh

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  optioner.options( :num => 0 )
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+  opts.on('-i num', '--id num', 'Instance num to ssh (default: 0)')    { |i| optioner.inst_num i.to_i }
+end
+load_pool(o.spec? ? o.spec : Binary.get_existing_spec_location)
+
+@cloud = o.loaded_clouds.first
+nodes = @cloud.list_of_running_instances
+
+puts nodes.map {|a| a.to_s}.join("\n")
+
+if !nodes.empty?
+  n = o.inst_num? ? o.inst_num : 0
+  @cloud.ssh_into( nodes[n].ip ) if @cloud
+else
+  puts "No running instances can be found"
+end

data/bin/cloud-start

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n cloudname', '--name name', 'Start cloud by this name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cld|
+  if cld.list_of_running_instances.size.zero?
+    puts header("Starting cloud #{cld.name}")
+    puts "#{cld.list_of_running_instances.size} running instances (#{cld.minimum_instances} - #{cld.maximum_instances})"
+    
+    cld.launch_instance! do |node|
+      ::PoolParty::Provision::BootStrapper.new(node.ip, :full_keypair_path => cld.keypair.full_filepath, :cloud => cld)
+      ::PoolParty::Provision::DrConfigure.new(node.ip,  :full_keypair_path => cld.keypair.full_filepath, :cloud => cld)
+      
+      puts <<-EOM
+        Your cloud has started. Your ip is #{node.ip}
+      EOM
+    end
+  
+  else
+    puts <<-EOE
+      Your cloud is already running.
+    EOE
+  end
+end

data/bin/cloud-stats

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+  opts.on('-n name', '--name name', 'Stats for cloud name')    { |c| optioner.cloudname c }
+end
+
+o.loaded_clouds.each do |cloud|
+
+  with_cloud(cloud) do
+    puts header("#{name.to_s.capitalize} cloud stats")
+    run_command_on(". /etc/profile && server-show-stats", master)
+  end
+
+end