auser-poolparty 1.1.7 → 1.2.0

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/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/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/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/net/messenger.rb

@@ -1,57 +0,0 @@
-# TODO: Deprecate this file
-
-=begin rdoc
-  The connection to the messenger from poolparty, the client.
-  
-  This class will setup a socket connection to the master's client
-  at the messenger_client_port
-=end
-module PoolParty
-  module Messenger
-    def with_socket(testing=false, &block)
-      host = testing ? "localhost" : (master.ip)
-      vputs "Pinging #{host} with the messenger"
-      socket = TCPSocket.open(host, Default.messenger_client_port)
-      out = yield(socket)
-      socket.close
-      out
-    end
-    # TODO: Fix cookie setting
-    def self.erl_command(hostname, extra="", min_ports=7000, max_ports=7050)
-      command_line_opts = "-cookie -pa #{append_dir}/ebin -kernel inet_dist_listen_min #{min_ports} inet_dist_listen_max #{max_ports} -sname #{hostname}"
-      
-      "erl #{command_line_opts} #{extra}"
-    end
-    
-    def self.append_dir
-      ::File.expand_path(::File.join( ::File.dirname(__FILE__), "..", "..", "erlang/messenger" ))
-    end
-    
-    def messenger_send!(msg="get_current_load cpu", testing=false)
-      with_socket(testing) do |sock|
-        sock.send(msg, 0)
-        @str = sock.recv(2000)
-      end
-      vputs "Received #{@str} from #{msg}"
-      @str
-    end
-    
-    def messenger_cast!(msg="force_reconfig")
-      with_socket do |sock|
-        sock.send(msg, 0)
-      end
-    end
-    
-    def self.messenger_send!(cmd="", testing=false)      
-      command = Messenger.erl_command("client#{Time.now.to_i}", "-s pm_client -run pm_client #{cmd} -s erlang halt -noshell")
-      testing ? command : %x[#{command}]
-    end
-    
-    # Helper methods
-    def self.startup_remote_messenger(hostname, testing=false)
-      # messenger_send!("")
-      # testing ? command : %x[#{command}]
-    end
-    
-  end
-end

data/lib/poolparty/plugins/rsyncmirror.rb

@@ -1,28 +0,0 @@
-module PoolParty    
-  class Rsyncmirror
-        
-    virtual_resource(:rsyncmirror) do
-      
-      def loaded(opts={})
-        execute_on_node do
-          @dir = dir || name
-          has_exec(opts.merge({:command => "#{cloud.remote_rsync_command} --no-implied-dirs --delete-excluded #{Default.user}@master:#{@dir}/ #{@dir}/".safe_quote, :name => "rsync-#{name}"}))
-        end
-      end
-            
-      # Since git is not a native type, we have to say which core resource
-      # it is using to be able to require it
-      def class_type_name
-        "exec"
-      end
-      
-      # Because we are requiring an exec, instead of a built-in package of the git, we have to overload
-      # the to_s method and prepend it with the same name as above
-      def key
-        "rsync-#{name}"
-      end
-      
-    end
-    
-  end
-end

data/lib/poolparty/services/conditional.rb

@@ -1,46 +0,0 @@
-module PoolParty
-  def working_conditional
-    @working_conditional ||= []
-  end
-  
-  def case_of o, &block
-    c = Conditional.new({:name => "case_of_#{o}", :attribute => o}, &block)
-    add_service c
-    c
-  end
-  
-  class Conditional < PoolParty::Service
-    default_options({})
-    
-    def initialize(opts={}, &block)
-      super(opts, &block)
-      dsl_options(opts)
-      options.freeze
-    end
-    
-    def when_is o, &block
-      add(o, &block)
-    end  
-    def otherwise &block
-      add(nil, &block)
-    end
-    
-    def add(o, &block)
-      service = PoolParty::Service.new(&block)
-      obj = (o ? o : :default).to_sym
-      when_statements.merge!({obj => service})
-    end
-    
-    def when_statements
-      @when_statement ||= {}
-    end
-    def to_properties_hash
-      {
-        :options => {:variable => (dsl_options.attribute)},
-        :resources => {},
-        :services => {:control_statements => when_statements}
-      }
-    end
-  end
-  
-end

data/lib/poolparty/spec.rb

@@ -1,31 +0,0 @@
-["core", "spec"].each do |dir|
-  Dir[File.join(File.dirname(__FILE__), "spec", dir, "*.rb")].each {|f| require f}
-end
-
-class TestCloudClass < PoolParty::Cloud::Cloud
-  def build_test_manifest    
-    returning Array.new do |arr|
-      
-      services.each do |service|
-        service.options.merge!(:name => service.name)
-        classpackage_with_self(service)
-      end
-      
-      global_classpackages.each do |cls|
-        arr << cls.to_string
-      end
-      
-    end.join("\n")
-  end
-end
-
-def new_test_cloud(&block)  
-  TestCloudClass.new(:test_cloud, &block)
-end
-
-def load_test_cloud(name, poolfile=nil)  
-  PoolParty::Script.inflate_file poolfile
-  blk = cloud(name).stored_block.dup
-  PoolParty::Pool.reset!
-  new_test_cloud &blk
-end