fairchild-poolparty 1.1.5 → 1.2.12

data/bin/cloud-handle-load

@@ -1,27 +0,0 @@
-#!/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-rsync

@@ -1,28 +0,0 @@
-#!/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-spec

@@ -1,41 +0,0 @@
-#!/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/messenger-get-current-nodes

@@ -1,14 +0,0 @@
-#!/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|
-  # @nodes = cloud.messenger_send!("get_current_nodes")
-  # @nodes = @nodes.split(" ").map {|a| a.split(/@/)[-1] }
-  puts cloud.get_current_nodes.join(" ")
-end

data/bin/server-become-master

@@ -1,24 +0,0 @@
-#!/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)
-
-include Remote
-
-@clouds = extract_cloud_from_options o
-
-@clouds.each do |cl|
-  
-  with_cloud(cl, {:testing => o.testing}) do
-    cmd = "hostname master && #{PoolParty::Remote::RemoteInstance.dependency_resolver_comand}"
-    %x[#{cmd}] unless testing
-    after_launch_master
-  end  
-  
-end

data/bin/server-build-messenger

@@ -1,28 +0,0 @@
-#!/usr/bin/env ruby
-$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
-require "poolparty"
-require "poolpartycl"
-
-root_dir = ::File.expand_path( ::File.join(::File.dirname(__FILE__), "..", "lib/erlang/messenger/ebin") )
-
-o = PoolParty::Optioner.new(ARGV) do |opts, optioner|
-end
-
-INCLUDE = "include"
-ERLC_FLAGS = "-I#{INCLUDE}"
-@version = "0.1"
-
-# erl -pa ./ebin/ -run pm_packager recompile_scripts #{@version} -run init stop -noshell
-# erlc -pa ./ebin -o ebin ./src/*.erl
-# erl -pa ./ebin -s pm_packager start -s init stop
-cmd =<<-EOE
-  cd #{root_dir}
-  rake recompile
-  rake build_boot_scripts
-EOE
-
-vputs "** Building messenger **", o
-vputs "Running command #{cmd.runnable}", o
-
-beams_not_running = %x[ps aux | grep beam | grep master | grep -v grep].empty?
-out = %x[#{cmd.runnable}] if beams_not_running

data/bin/server-clean-cert-for

@@ -1,15 +0,0 @@
-#!/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', 'For cloud name')    { |c| optioner.cloudname c }
-  opts.on('-f name', '--for name', 'Clear the cert for')    { |f| optioner.for f }
-end
-
-o.loaded_clouds.each do |cloud|
-  # @nodes = cloud.messenger_send!("get_current_nodes")
-  # @nodes = @nodes.split(" ").map {|a| a.split(/@/)[-1] }  
-  PoolParty::Ruberl::Base.new(cloud.master, Default.messenger_client_port).messenger_send!("clear_cert_for #{cloud.for}")
-end

data/bin/server-provision

@@ -1,32 +0,0 @@
-#!/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('-p', '--slave', 'Provision slave (default: false)')    { optioner.provision_slave true }
-  opts.on('-i num', '--id num', 'Instance num to provision')    { |i| optioner.instance_number i }
-end
-
-o.loaded_clouds.each do |cloud|
-
-  with_cloud(cloud) do
-    setup_dev
-    instance_num = instance_number.to_i if instance_number
-    
-    if instance_num
-      @instance = get_instance_by_number( instance_num )
-      instance_num == 0 ? provisioner_for(master).install(testing) : provisioner_for(@instance).install(testing)
-    else
-      if provision_slave
-        vputs "Provisioning slaves"
-        verbose ? provisioner_for(nil).install(testing) : hide_output { provisioner_for(nil).install(testing) }
-      else
-        vputs "Provisioning master"
-        verbose ? provisioner_for(master).install(testing) : hide_output { provisioner_for(master).install(testing) }
-      end
-    end
-  end
-
-end

data/bin/server-start-agent

@@ -1,15 +0,0 @@
-#!/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', 'Host name')    { |h| optioner.hostname h }
-  opts.on('-k', '--kill', 'Kill the server')    { optioner.kill true }
-end
-
-o.loaded_clouds.each do |cloud|
-    
-  PoolParty::Agent.run_for cloud
-  
-end

data/bin/server-start-client

@@ -1,29 +0,0 @@
-#!/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', 'Host name')    { |h| optioner.hostname h }
-end
-
-o.loaded_clouds.each do |cloud|
-  
-  with_cloud(cloud) do
-        
-    # ruby /var/lib/gems/1.8/bin/server-start-client    
-    already_running = %x[ps aux | grep beam | grep -v grep | grep client]
-    if already_running.chomp.empty?
-      
-      boot_file = "#{Messenger.append_dir}/pm_client_rel-0.1"
-
-      Kernel.system "cd #{Messenger.append_dir} && rake build_boot_scripts"  unless ::File.file?("#{boot_file}.boot") || testing    
-      command = Messenger.erl_command("client", "-boot #{boot_file} #{noshell ? "" : "-detached -heart -noshell"}", 7049, 7050)
-      vputs "Running #{command}"
-      
-      Kernel.system "export HOME=/root && #{command}" unless testing
-    end
-  end  
-  
-end
-

data/bin/server-start-master

@@ -1,26 +0,0 @@
-#!/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', 'Host name')    { |h| optioner.hostname h }
-end
-
-o.loaded_clouds.each do |cloud|
-  
-  with_cloud(cloud) do
-            
-    already_running = %x[ps aux | grep beam | grep -v grep | grep master]        
-    if already_running.chomp.empty?    
-      
-      boot_file = "#{Messenger.append_dir}/pm_master_rel-0.1"
-      Kernel.system ". /etc/profile && server-build-messenger"  unless ::File.file?("#{boot_file}.boot") || testing    
-      command = Messenger.erl_command("master", "-boot #{boot_file} #{noshell ? "" : "-noshell -detached -heart"}")    
-      vputs "Running #{command}"
-      
-      Kernel.system "export HOME=/root && #{command}" unless testing
-    end
-  end  
-  
-end

data/bin/server-start-node

@@ -1,32 +0,0 @@
-#!/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', 'Host name')    { |h| optioner.hostname h }
-  opts.on('-l', '--no-shell', 'No shell') {optioner.noshell true}
-end
-
-available_monitors = PoolParty::Monitors.available_monitors
-
-@hostname = o.hostname ? o.hostname : `hostname`.chomp
-@hostname = "node0" if @hostname == "master" # Quick fix to make sure we have a node running on the master as well
-
-o.loaded_clouds.each do |cloud|
-  
-  with_cloud(cloud, {:hostname => @hostname}) do
-    # TODO: Change this to be app specfic    
-    already_running = %x[ps aux | grep beam | grep -v grep | grep node]
-    if already_running.chomp.empty?    
-      boot_file = "#{Messenger.append_dir}/pm_node_rel-0.1"
-
-      Kernel.system ". /etc/profile && server-build-messenger"  unless ::File.file?("#{boot_file}.boot") || testing
-      command = Messenger.erl_command(hostname, "-boot #{boot_file} #{noshell ? "" : "-noshell -detached -heart"} -- #{available_monitors.join(" ")}")    
-      vputs "Running #{command}"
-      
-      Kernel.system "export HOME=/root && #{command}" unless testing
-    end
-  end  
-  
-end

data/bin/server-stop-client

@@ -1,3 +0,0 @@
-#!/bin/sh
-
-ps aux | grep -v grep | grep client_service | awk '{print $2}' | xargs kill

data/bin/server-stop-master

@@ -1,3 +0,0 @@
-#!/bin/sh
-
-ps aux | grep -v grep | grep pm_master | awk '{print $2}' | xargs kill

data/bin/server-stop-node

@@ -1,3 +0,0 @@
-#!/bin/sh
-
-ps aux | grep -v grep | grep pm_node | awk '{print $2}' | xargs kill

data/bin/server-update-hosts

@@ -1,49 +0,0 @@
-#!/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', 'Update hosts for local pool named [name]')    { |p| optioner.cloudname p }
-end
-
-o.loaded_clouds.each do |cloud|
-  with_cloud(cloud) do
-    vputs "Cloud: #{name}"
-    
-    new_hosts_listing = returning Array.new do |arr|
-      
-      puts nodes(:status => "running")
-      
-      nodes(:status => "running").each do |ri|
-        vputs ri.hosts_file_listing_for(self)
-        arr << ri.hosts_file_listing_for(self)
-      end
-      other_clouds.each do |other|
-        other.nodes(:status => "running").each do |ri|
-          vputs ri.hosts_file_listing_for(self)
-          arr << ri.hosts_file_listing_for(self)
-        end
-      end
-    end.join("\n")
-    
-    if testing
-      puts new_hosts_listing
-    else
-      new_hosts_file = "#{Default.manifest_path}/classes/hosts.pp"
-      
-      arr = returning Array.new do |arr|
-        new_hosts_listing.split(/\n/).each do |line|
-          parts = line.split(/\t/).map {|a| a.chomp }
-          ip,hostname,aliases = parts[0], parts[1], parts[2..-1]
-          vputs "ip: #{ip} for #{hostname} as #{aliases}"
-          h = PoolParty::Resources::Host.new(:name => hostname, :ip => Resolv::DNS.new.getaddress(ip).to_s, :alias => aliases)
-          arr << h.to_string
-        end
-      end
-      
-      ::File.open(new_hosts_file, "w+") {|f| f << arr.join("\n") }
-    end
-    
-  end
-end

data/examples/poolparty.rb

@@ -1,12 +0,0 @@
-# Poolparty spec
-
-pool :poolparty do
-  
-  instances 2..5
-    
-  cloud :app do
-    keypair "auser"
-    ami "ami-4bb05422"
-  end
-  
-end

data/lib/poolparty/base_packages/heartbeat.rb

@@ -1,58 +0,0 @@
-module PoolParty
-  class Base
-    plugin :poolparty_base_heartbeat do
-      
-      def enable        
-        # execute_on_master do
-        has_package({:name => "heartbeat-2"})
-        has_package({:name => "heartbeat-2-dev"})
-        
-        has_service("heartbeat")
-      
-        # has_service(:name => "heartbeat", :hasstatus => true, :hasrestart => true)
-        # has_directory(:name => "/etc/ha.d")
-        # 
-        # has_remotefile(:name => "/etc/ha.d/ha.cf") do
-        #   mode 444
-        #   notify service(:name => "heartbeat")
-        #   template "ha.cf"
-        # end
-        # 
-        # has_remotefile(:name => "/etc/ha.d/logd.cf") do
-        #   mode 600
-        #   notify service(:name => "heartbeat")
-        #   template File.join(File.dirname(__FILE__), "..", "templates/logd.cf")
-        # end
-        # 
-        # has_exec(:name => "heartbeat-update-cib", :command => "/usr/sbin/cibadmin -R -x /etc/ha.d/cib.xml", :refreshonly => true)
-        #     
-        # has_remotefile(:name => "/etc/ha.d/authkeys") do
-        #   mode 600
-        #   notify service(:name => "heartbeat")
-        #   template File.join(File.dirname(__FILE__), "..", "templates/authkeys")
-        # end
-        #     
-        # has_remotefile(:name => "/etc/ha.d/cib.xml") do
-        #   mode 444
-        #   notify exec(:name => "heartbeat-update-cib")
-        #   template File.join(File.dirname(__FILE__), "..", "templates/cib.xml")
-        # end
-        # 
-        # has_remotefile(:name => "/etc/ha.d/haresources") do
-        #   mode 644
-        #   template File.join(File.dirname(__FILE__), "..", "templates/haresources")
-        # end
-        # # end
-        # 
-        # # variables for the templates
-        # has_variable(:name => "ha_nodenames", :value => "generate('/usr/bin/env', '/usr/bin/server-list-active', '-c', 'name', '-n', '#{cloud.name}')")
-        # has_variable(:name => "ha_node_ips",  :value => "generate('/usr/bin/env', '/usr/bin/server-list-active', '-c', 'ip', '-n', '#{cloud.name}')")
-        # 
-        # has_variable({:name => "ha_timeout",  :value => (self.respond_to?(:timeout) ? timeout : "5s")})
-        # has_variable({:name => "ha_port", :value => (self.respond_to?(:port) ? port : Default.port)})
-          
-      end
-
-    end  
-  end
-end

data/lib/poolparty/base_packages/runit.rb

@@ -1,21 +0,0 @@
-=begin rdoc
-  Runit beginning
-  NOT IMPLEMENTED YET
-=end
-module PoolParty
-  class Base
-    plugin :poolparty_base_runit do
-      
-      def enable
-        unless enabled
-          has_file(:name => "inittab", :path => "/etc/inittab", :mode => 0644, :owner => "root", :group => "root")
-          has_package(:name => "runit", :ensures => "latest", :requires => get_file("inittab"))
-          has_exec(:name => "/sbin/start runsvdir", :cwd => "/var/service")
-          # has_remotefile(:name => "/etc/event.d/runsvdir", :notify => get_exec("/sbin/start runsvdir"))
-          enabled true
-        end          
-      end
-      
-    end
-  end
-end

data/lib/poolparty/capistrano/cloud_tasks.rb

@@ -1,10 +0,0 @@
-Capistrano::Configuration.instance(:must_exist).load do
-  namespace(:cloud_tasks) do    
-    desc "List running clouds"
-    task :list do
-      cmd = "cloud-list -n #{cloud.name}"
-      puts cmd
-      # %x[cmd]
-    end
-  end
-end

data/lib/poolparty/capistrano.rb

@@ -1,54 +0,0 @@
-$:.unshift(File.join(File.dirname(__FILE__)))
-require "poolparty"
-require "poolpartycl"
-
-module PoolParty
-  module Capistrano
-    
-    $cap_clouds = {}
-    
-    def set_poolparty_file(file)
-      load_pool file
-    end
-    
-    def set_cloud(name)
-      cld = PoolParty::Cloud.cloud(name)
-      if cld && !cloud_retrieved_already?
-        $cap_clouds[name] = cld
-        @cloud = cld
-        instance_eval <<-EOE
-  ssh_options[:keys] = [ '#{cld.full_keypair_path}' ]
-  set :user, '#{cld.user}'
-  set :username, "#{cld.user}"
-  ssh_options[:forward_agent] = true
-  EOE
-      end
-      cld
-    end
-    
-    def cloud_retrieved_already?
-      $cap_clouds.key?(name)
-    end
-    def get_cloud(name)
-      set_cloud(name)
-    end
-    
-    # Get the master ip for the cloud to set in the deploy.rb file
-    def cloud_master(name)
-      get_cloud(name).ip
-    end
-    
-    def set_role_for_all_instances(role, name)
-      ips = get_cloud(name).nodes(:status => "running").map {|ri| ri.ip }
-      ips.each {|ip| send :role, role.to_sym, "#{ip}"}
-    end
-  end
-end
-
-module Capistrano
-  class Configuration
-    include ::PoolParty::Capistrano
-        
-    # Dir["#{::File.dirname(__FILE__)}/capistrano/*.rb"].each {|f| pload f }
-  end
-end

data/lib/poolparty/config/postlaunchmessage.txt

@@ -1,5 +0,0 @@
-Your cloud is launching
------------------------
-Your master's ip address is: :master_ip
-
-Depending on how your cloud is setup, this process may take a while.

data/lib/poolparty/core/metaid.rb

@@ -1,15 +0,0 @@
-class Object
-  # The hidden singleton lurks behind everyone
-  def metaclass; class << self; self; end; end
-  def meta_eval &blk; metaclass.instance_eval &blk; end
-
-  # Adds methods to a metaclass
-  def meta_def name, &blk
-    meta_eval { define_method name, &blk }
-  end
-
-  # Defines an instance method within a class
-  def class_def name, &blk
-    class_eval { define_method name, &blk }
-  end
-end

data/lib/poolparty/core/module.rb

@@ -1,40 +0,0 @@
-# Module overloads
-class Module
-  # Gives us alias_method_chain from rails
-  def alias_method_chain(target, feature)
-    aliased_target, punctuation = target.to_s.sub(/([?!=])$/, ''), $1
-    yield(aliased_target, punctuation) if block_given?
-
-    with_method, without_method = "#{aliased_target}_with_#{feature}#{punctuation}", "#{aliased_target}_without_#{feature}#{punctuation}"
-
-    alias_method without_method, target
-    alias_method target, with_method
-
-    case
-      when public_method_defined?(without_method)
-        public target
-      when protected_method_defined?(without_method)
-        protected target
-      when private_method_defined?(without_method)
-        private target
-    end
-  end
-  def attr_accessor_with_default( *syms, &block )
-    raise 'Default value in block required' unless block
-    syms.each do | sym |
-      module_eval do
-        attr_writer( sym )
-        define_method( sym ) do | |
-          class << self; self; end.class_eval do
-            attr_reader( sym )
-          end
-          instance_variables.include?("@#{sym}") ? instance_variable_get( "@#{sym}" ) : instance_variable_set( "@#{sym}", block.call )
-        end
-      end
-    end
-    nil
-  end
-  def instance_variables_from_hash(h={})
-    h.each {|k,v| instance_eval "@#{k} = #{v}"}
-  end
-end

data/lib/poolparty/extra/deployments.rb

@@ -1,31 +0,0 @@
-#TODO: Reimplement
-module PoolParty
-  module Extra
-    class Deployments        
-
-        def self.include_deployment(filename)
-          return nil unless ::File.file? filename
-          name = ::File.basename(filename, ::File.extname(filename))
-          contents = open(filename).read
-
-          plugin_klass = PoolParty::PluginModel::PluginModel.new(name)
-          plugin_klass.class_eval <<-EOE
-            def enable
-              puts "Called enable"
-              #{contents}
-            end
-          EOE
-          plugin_klass
-        end
-        
-        def self.include_deployments(dir)
-          return nil unless ::File.directory? dir
-          Dir["#{dir}/*"].each do |fi|
-            include_deployment fi
-          end
-          dir
-        end
-        
-    end    
-  end
-end