poolparty 0.0.4 → 0.2.6

data/bin/cloud-add-keypair

@@ -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|
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@location = o.location ? o.location : "remote"
+
+include Remote
+
+@clouds = o.cloudname ? [cloud(o.cloudname.downcase.to_sym)] : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:location => @location}) do
+    logger.info header("Creating keypair for #{name}")
+    create_keypair unless testing
+  end  
+  
+end

data/bin/cloud-configure

@@ -0,0 +1,31 @@
+#!/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('-c [master|slaves|all]', '--class [master|slaves|all]', 'Provision class (default: all)')    { |c| optioner.provision_class c }
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@provision_class = o.provision_class || "all"
+
+include Remote
+
+@clouds = o.cloudname ? {:cloud => cloud(o.cloudname.downcase.to_sym)} : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:testing => o.testing, :location => @location, :provision_class => @provision_class}) do
+    
+    hide_output do
+      if provision_class == "master" || provision_class == "all"
+        Provisioner.configure_master(self, testing)
+      end
+      if provision_class == "slave" || provision_class == "all"
+        Provisioner.configure_slaves(self, testing)
+      end
+    end    
+    clear_base_directory unless testing
+  end    
+end

data/bin/cloud-contract

@@ -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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@testing = o.testing
+
+include Remote
+
+begin
+  @cloud = cloud(o.cloudname.downcase.to_sym)
+rescue
+  puts "Cloud name required. Please specify it with -n name"
+  exit(0)
+end
+
+with_cloud(@cloud, {:testing => @testing}) 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

data/bin/cloud-expand

@@ -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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@testing = o.testing
+
+include Remote
+
+begin
+  @cloud = cloud(o.cloudname.downcase.to_sym)
+rescue
+  puts "Cloud name required. Please specify it with -n name"
+  exit(0)
+end
+
+with_cloud(@cloud, {:testing => @testing}) do
+  puts header("Expanding cloud #{name}")
+  puts "#{list_of_running_instances.size} running instances of #{maximum_instances} possible instances"
+  puts testing ? "Not expanding (test mode)" : "Expanding the cloud"
+  expand_cloud_if_necessary( !testing )
+end

data/bin/cloud-list

@@ -0,0 +1,32 @@
+#!/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('-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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@location = o.location ? o.location : "remote"
+
+include Remote
+
+@clouds = o.cloudname ? [cloud(o.cloudname.downcase.to_sym)] : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:location => @location}) do
+    puts header("Listing cloud #{name}")
+    puts subheader("Active instances")
+    puts list_of_running_instances.map{|a| a.to_s}.join("\n")
+    puts ""
+    if list_of_pending_instances.size > 0
+      puts subheader("Pending instances")
+      puts list_of_pending_instances.map{|a| a.to_s}.join("\n")
+    end
+  end  
+  
+end

data/bin/cloud-maintain

@@ -0,0 +1,36 @@
+#!/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('-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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@location = o.location ? o.location : "remote"
+
+include Remote
+
+@clouds = o.cloudname ? [cloud(o.cloudname.downcase.to_sym)] : clouds
+
+@clouds.each do |name, cloud|
+
+  with_cloud(cloud, {:location => @location, :testing => o.testing}) do
+    logger.info header("Maintaining cloud #{name}")
+    if !minimum_number_of_instances_are_running?
+      logger.warn "#{list_of_running_instances.size} running instances of between #{minimum_instances} and #{maximum_instances}"
+      logger.warn "Launching new instance"
+      expand_cloud_if_necessary( !testing )
+    elsif !maximum_number_of_instances_are_not_running?
+      logger.warn "#{list_of_running_instances.size} running instances of between #{minimum_instances} and #{maximum_instances}"
+      logger.warn "Shutting down non-master instance"
+      contract_cloud_if_necessary( !testing )
+    else
+      logger.info "Cloud is maintained"
+    end    
+  end  
+
+end

data/bin/cloud-osxcopy

@@ -0,0 +1,22 @@
+#!/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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@location = o.location ? o.location : "remote"
+
+include Remote
+
+@clouds = o.cloudname ? [cloud(o.cloudname.downcase.to_sym)] : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:location => @location}) do
+    Kernel.system "echo #{master.ip.chomp} | pbcopy"
+  end
+  
+end

data/bin/cloud-provision

@@ -0,0 +1,31 @@
+#!/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('-c [master|slaves|all]', '--class [master|slaves|all]', 'Provision class (default: all)')    { |c| optioner.provision_class c }
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@provision_class = o.provision_class || "all"
+
+include Remote
+
+@clouds = o.cloudname ? {:cloud => cloud(o.cloudname.downcase.to_sym)} : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:testing => o.testing, :location => @location, :provision_class => @provision_class}) do
+        
+    if provision_class == "master" || provision_class == "all"
+      Provisioner.provision_master(self, testing)
+    end
+    if provision_class == "slave" || provision_class == "all"
+      Provisioner.provision_slaves(self, testing)
+    end
+
+    clear_base_directory unless testing
+  end    
+end

data/bin/cloud-refresh

@@ -0,0 +1,26 @@
+#!/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
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@provision_class = o.provision_class || "all"
+
+include Remote
+
+@clouds = o.cloudname ? {:cloud => cloud(o.cloudname.downcase.to_sym)} : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:testing => o.testing}) do
+    cmd = <<-EOE
+puppetrun --host #{list_of_node_names.join(", --host ")}
+    EOE
+    run_command_on(cmd.runnable, master)
+  end
+  
+end

data/bin/cloud-ssh

@@ -0,0 +1,18 @@
+#!/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 }
+  opts.on('-i num', '--id num', 'Instance num to ssh (default: 0)')    { |i| optioner.num i }
+end
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+unless o.cloudname && clouds.keys.size > 1
+  @cloud = cloud(o.cloudname.downcase.to_sym)
+else
+  puts "Error: You must indicate a cloud from which your instance is from"
+  exit(0)
+end
+
+instance = @cloud.ssh_into_instance_number( o.num.to_i || 0 )

data/bin/cloud-start

@@ -0,0 +1,32 @@
+#!/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('-c cloudname', '--cloud name', 'Start cloud by this name')    { |c| optioner.cloudname c }
+end
+
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@testing = o.testing
+
+@clouds = o.cloudname ? {:cloud => cloud(o.cloudname.downcase.to_sym)} : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:testing => @testing}) do
+    puts header("Starting cloud")
+    puts "#{list_of_running_instances.size} running instances (#{minimum_instances} - #{maximum_instances})"
+    if (minimum_instances - list_of_running_instances.size) > 0
+      puts "Starting the master instance"    
+      if testing
+        puts("\tNot launching while in testing mode")
+      else
+        launch_and_configure_master!
+        # run_command_on("puppetd --test", master)
+      end
+    end
+    clear_base_directory unless testing
+  end
+  
+end

data/bin/cloud-terminate

@@ -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|
+  opts.on('-c [master|slaves|all]', '--class [master|slaves|all]', 'Provision class (default: all)')    { |c| optioner.provision_class c }
+  opts.on('-n name', '--name name', 'Listing for cloud name')    { |c| optioner.cloudname c }
+end
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@clouds = o.cloudname ? {:cloud => cloud(o.cloudname.downcase.to_sym)} : clouds
+
+@clouds.each do |name, cloud|
+  
+  with_cloud(cloud, {:testing => o.testing, :location => @location, :provision_class => @provision_class}) do
+    
+    list_of_running_instances.each do |inst|
+      puts "Shutting down #{inst.instance_id}"
+      terminate_instance!(inst.instance_id)
+    end
+    
+  end    
+end

data/bin/pool

@@ -1,33 +1,31 @@
 #!/usr/bin/ruby
-require 'rubygems'
-require 'pool_party'
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
 
-# Set defaults
-list = PoolParty::Optioner.parse(ARGV.dup)
-options = PoolParty::Application.options(ARGV.dup)
-master = PoolParty::Master.new
-
-# if list.empty?
-#   puts "Usage: pool [options] {start|stop|list|maintain}"
-#   exit
+# Get the git-style program action
+# o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
+#   opts.on('-n [name]','--name [name]', 'Binary to run')    { |o| optioner.name o }
 # end
 
-case list[0]
-when "start"
-  PoolParty.message "Starting cloud"
-  master.start_cloud!
-when "stop"
-  PoolParty.message "Stopping cloud"
-  master.request_termination_of_all_instances  
-when "list"
-  puts master.list
-when "maintain"
-  PoolParty.message "Maintaining cloud"
-  master.start_monitor!
-when "restart"
-  PoolParty.message "Restarting cloud"
-  master.request_termination_of_all_instances
-  master.start_cloud!
+name = ARGV.shift
+
+# If there was no program action given
+if !name || name == "-h" || name == "--help"
+  puts "Usage: pool <specfile> <action> <options>"
+  puts "Pool actions:"
+  puts Binary.list_binaries_for("pool")
+  exit
+end
+
+program_name = "#{File.basename($0)}-#{name}"
+program_location = File.join(Binary.binary_directory, program_name)
+
+command_line = "#{program_location} #{ARGV.join(" ")}"
+
+# Run it from the command-line first
+if Binary.available_binaries_for("pool").include?(name)
+  Kernel.exec "#{command_line}"
 else
-  puts master.list
+  puts "Unknown poolparty binary: #{program_name}"
 end

data/bin/pool-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/pool-describe

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "poolparty"
+require "poolpartycl"
+
+o = PoolParty::Optioner.new(ARGV)
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+puts pool_describe

data/bin/pool-list

@@ -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('-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 pool name')    { |p| optioner.poolname p }
+end
+load_pool(o.spec || Binary.get_existing_spec_location)
+
+@location = o.location ? o.location : "remote"
+
+include Remote
+
+@pools = o.poolname ? [pool(o.poolname.downcase.to_sym)] : pools
+
+@pools.each do |name, pool|
+  with_pool(pool, {:location => @location}) do
+    puts header("Listing pool #{name}")
+    clouds.each do |name, cloud|
+      puts subheader("Cloud: #{name}")
+      out = location == "remote" ? cloud.list_from_remote({:cache => true}).map{|a| a.to_s} : cloud.list_from_local.map{|a| a.to_s}
+      puts out
+    end
+  end
+end