fairchild-poolparty 1.1.5 → 1.2.12

data/lib/poolparty/helpers/display.rb

@@ -1,30 +0,0 @@
-module PoolParty
-  module Display
-    
-    def pool_describe(options={})
-      if pools.size > 0
-        pools.each do |k,v|
-          print v.pretty_print
-        end
-      else
-        pre = "\t"
-        clouds.each do |name, cl|
-          puts cl.pretty_name(pre*2, cl)
-          puts cl.pretty_options(pre*2, cl) #cl.pretty_print("#{pre}\t")
-        end
-      end
-
-      puts ""
-      pools.size
-    end
-        
-    def header(str="")
-      "*** #{str}"
-    end
-    
-    def subheader(str="")
-      "****** #{str}"
-    end
-    
-  end
-end

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

@@ -1,21 +0,0 @@
-require File.dirname(__FILE__) + "/remoter_base"
-
-class Object
-  def remote_bases
-    $remote_bases ||= []
-  end
-  # Register the remoter base in the remote_bases global store
-  def register_remote_base(*args)
-    args.each do |arg|
-      base_name = "#{arg}".downcase.to_sym
-      (remote_bases << base_name) unless remote_bases.include?(base_name)
-    end
-  end
-  alias :available_bases :remote_bases
-end
-
-Dir["#{File.dirname(__FILE__)}/remote_bases/*.rb"].each do |base| 
-  name = ::File.basename(base, ::File.extname(base))
-  require base
-  register_remote_base name
-end

data/lib/poolparty/plugins/chef_deploy.rb

@@ -1,58 +0,0 @@
-=begin rdoc
-  Chef deploy (ezmobius http://github.com/ezmobius/chef-deploy/tree/master)
-  
-  deploy "/data/#{app}" do
-    repo "git://github.com/engineyard/rack-app.git"
-    branch "HEAD"
-    user "ez"
-    enable_submodules true
-    migrate true
-    migration_command "rake db:migrate"
-    environment "production"
-    shallow_clone true
-    revision '0xbeadbeef'
-    action :deploy # or :rollback
-  end
-  
-=end
-module PoolParty
-  class ChefDeploy
-    
-    define_resource :chef_deploy_definition do
-      
-      default_options(
-                      :branch => "HEAD",
-                      :enable_submodules => true,
-                      :migrate => true,
-                      :environment => "production",
-                      :shallow_clone => true,
-                      :user => "www-data",
-                      :restart_command => "touch tmp/restart.txt",
-                      :migration_command => "rake db:migrate"
-                      )
-      def present
-        :deploy
-      end
-    end
-    
-    plugin :chef_deploy do
-                      
-      def loaded(o={})
-        raise "You must specify a git repo" unless repo?
-        has_chef_library :name => "chef-deploy/lib/chef-deploy.rb"        
-        has_chef_deploy_definition(options)
-      end
-      
-      def before_configure
-        configure_commands [
-          "mkdir -p /etc/chef/lib",
-          "cp -R /var/poolparty/dr_configure/etc/chef/lib /etc/chef"
-        ]
-        ::Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/../../../vendor/chef/chef-deploy", 
-                                "etc/chef/lib")
-      end
-      
-    end
-    
-  end
-end

data/lib/poolparty/plugins/dynomite.rb

@@ -1,14 +0,0 @@
-module PoolParty
-  class Base
-    plugin :dynomite do
-      
-      def enable
-        has_exec "install dynomite" do
-          command "git clone git://github.com/cliffmoon/dynomite.git && cd dynomite && git submodule init && git submodule update && rake"
-          not_if "which tcrtest"
-        end
-      end
-      
-    end
-  end
-end

data/lib/poolparty/plugins/nanite.rb

@@ -1,41 +0,0 @@
-module PoolParty
-  class Nanite
-    
-    plugin :nanite do
-      
-      def loaded(o={}, &block)
-        has_package "erlang"
-
-        # TODO: change this with has_gem_package
-        has_exec "install nanite rubygem" do
-          command "cd ~ && git clone git://github.com/ezmobius/nanite.git && cd nanite/ && rake gem && gem install pkg/nanite*.gem"
-          not_if "gem list -l | grep nanite"
-        end
-
-        has_gem_package "eventmachine"
-        has_gem_package "amqp"
-
-        has_package "python"
-
-        has_exec "install easy_install" do
-          command "cd ~ && wget http://pypi.python.org/packages/2.5/s/setuptools/setuptools-0.6c9-py2.5.egg && sh setuptools-0.6c9-py2.5.egg"
-          not_if "which easy_install"
-        end
-
-        has_exec "install simplejson" do
-          command "cd ~ && easy_install simplejson"
-        end
-
-        has_exec "install rabbitmq" do
-          command "cd ~ && wget http://www.rabbitmq.com/releases/rabbitmq-server/v1.5.3/rabbitmq-server-1.5.3.tar.gz && cd /usr/local/lib/erlang/lib && tar -zxf ~/rabbitmq-server-1.5.3.tar.gz && cd rabbitmq-server-1.5.3 && make"
-          not_if "which easy_install"
-        end
-        
-        has_gem_package "ezmobius-nanite"
-        
-      end
-            
-    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/plugins/tokyo_tyrant.rb

@@ -1,23 +0,0 @@
-module PoolParty
-  class Base
-    plugin :tokyo_tyrant do
-      
-      def enable
-        has_package "build-essential"
-        has_package "zlib1g-dev"
-        has_package "libbz2-dev"
-        has_gem_package "rufus-tokyo"
-        
-        has_exec "install tokyo-cabinet" do
-          command "cd ~ && git clone git://github.com/etrepum/tokyo-cabinet.git && cd tokyo-cabinet/ && ./configure && make && make install && cd ~"
-          not_if "which tcrtest"
-        end
-        has_exec "install tokyo-tyrant" do
-          command "cd ~ && git clone git://github.com/etrepum/tokyo-tyrant.git && cd tokyo-tyrant/ && ./configure && make && make install && cd ~"
-          not_if "which ttserver"
-        end
-      end
-      
-    end
-  end
-end

data/lib/poolparty/poolparty/plugin_model.rb

@@ -1,45 +0,0 @@
-require File.join(File.dirname(__FILE__), "resource")
-
-module PoolParty    
-  module PluginModel
-    
-    def plugin(name=:plugin, cloud=nil, &block)
-      plugins[name] ||= PluginModel.new(name, &block)
-    end
-    alias_method :register_plugin, :plugin
-    
-    def plugins
-      $plugins ||= {}
-    end
-    
-    class PluginModel
-      attr_accessor :klass
-      
-      def initialize(name,&block)        
-        symc = "#{name}".top_level_class.camelcase
-        klass = symc.class_constant(PoolParty::Plugin::Plugin, {:preserve => true}, &block)
-        
-        lowercase_class_name = symc.downcase
-        # Store the name of the class for pretty printing later
-        # klass.name = name
-        # Add the plugin definition to the cloud as an instance method
-        meth = <<-EOM
-          def #{lowercase_class_name}(opts={}, &block)
-            i = plugin_store.select {|i| i if i.class == #{lowercase_class_name.camelcase}Class }.first if plugin_store
-            if i
-              i
-            else              
-              inst = #{lowercase_class_name.camelcase}Class.new(opts, parent, &block)
-              plugin_store << inst if plugin_store
-              inst
-            end
-          end
-        EOM
-
-        PoolParty::Cloud::Cloud.class_eval meth
-      end
-      
-    end
-    
-  end
-end

data/lib/poolparty/resources/host.rb

@@ -1,16 +0,0 @@
-module PoolParty    
-  module Resources
-        
-    class Host < Resource
-            
-      default_options({
-      })
-      
-      def aka(i=nil)
-        i ? options[:alias] = i : options[:alias]
-      end
-            
-    end
-    
-  end
-end

data/lib/poolparty/resources/sshkey.rb

@@ -1,27 +0,0 @@
-module PoolParty    
-  module Resources
-    
-    class Sshkey < Resource
-      
-      def initialize(opts={}, extra_opts={}, &block)
-        super(opts, extra_opts, &block)
-        @key = Key.new(keypath? ? keypath : nil)
-        options[:key] = @key.content
-      end
-      
-      def name(i=nil)
-        if i
-          options[:name] = i
-        else
-          options[:name] ? options[:name] : ::File.basename(@key.full_filepath)
-        end
-      end
-      
-      def enctype(i=nil)
-        i ? options[:type] = i : options[:type]
-      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/core/string.rb

@@ -1,18 +0,0 @@
-class String
-  def grab_entry_for(type, name)
-    begin      
-      matches = self.match(/#{type}(.*)\{(.*)"#{name}":(.*)(#{_allowed})*\}/)[0]
-    rescue
-      ""
-    end
-  end
-  def _allowed
-    /[ \$\._\*\-\[\]\n\t\\\/&,\(\)"',|:=\>\<A-Za-z0-9]/
-  end
-  def _grab_key_value_for(type, name, key)
-    grab_entry_for(type, name).scan(/#{key}[ =>]*(.*)[,?]?$/).flatten.first rescue ""
-  end
-  def grab_key_value_for(ty, name, key)
-    _grab_key_value_for(ty,name,key).gsub(/,/, '') rescue ""
-  end
-end

data/lib/poolparty/spec/matchers/a_spec_extensions_base.rb

@@ -1,26 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      # Mainly extensions, these methods are inherent in all of the matchers
-      # and are intended for helping parse the final manifest for spec'ing purposes.
-      class SpecExtensionsBase
-        def ensured_as(ensured="present")
-          str = "ensure => '#{ensured}'"
-          !grab_entry.scan(/#{str}/).empty?
-        end
-        def is_present?
-          !grab_entry.empty? && is_valid_resource?
-        end
-        def grab_entry
-          @target.grab_entry_for(type, @expected)
-        end
-        def type
-          "file"
-        end
-        def is_valid_resource?
-          grab_entry.split(/\n/).select {|l| nil unless l.match(/(.*)=>([\n\t ]*),$/) }.empty?
-        end
-      end
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_cron.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveCron < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have cron #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have cron #{@expected}"
-        end
-        def type
-          "cron"
-        end
-      end
-    end
-    def have_cron(name, extra="")
-      SpecExtensions::HaveCron.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_deploydirectory.rb

@@ -1,15 +0,0 @@
-module PoolParty
-  class SpecCore
-    # dynamic_matcher_for(:deploydirectory) do
-    #   it "should have the directory" do
-    #     @manifest.should have_directory(@to)
-    #   end
-    #   it "should have the rsyncmirror" do
-    #     @manifest.should have_rsyncmirror("deploydirectory-#{@to}")
-    #   end
-    #   it "should have the exec to unpack the archive" do
-    #     @manifest.should have_exec("deploy-directory-#{@to}")
-    #   end
-    # end
-  end
-end

data/lib/poolparty/spec/matchers/have_directory.rb

@@ -1,31 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveDirectory < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present? && is_a_directory?
-        end
-        def is_a_directory?
-          ensured_as("directory")
-        end
-        def failure_message
-          "expected #{@target.inspect} to have directory #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have directory #{@expected}"
-        end
-        def type
-          "file"
-        end
-      end
-    end
-    def have_directory(name, extra="")
-      SpecExtensions::HaveDirectory.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_exec.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveExec < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have exec #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have exec #{@expected}"
-        end
-        def type
-          "exec"
-        end
-      end
-    end
-    def have_exec(name, extra="")
-      SpecExtensions::HaveExec.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_file.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveFile < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have file #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have file #{@expected}"
-        end
-        def type
-          "file"
-        end
-      end
-    end
-    def have_file(name, extra="")
-      SpecExtensions::HaveFile.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_gempackage.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveGempackage < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have gempackage #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have gempackage #{@expected}"
-        end
-        def type
-          "exec"
-        end
-      end
-    end
-    def have_gempackage(name, extra="")
-      SpecExtensions::HaveGempackage.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_git.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveGit < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have git #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have git #{@expected}"
-        end
-        def type
-          "git"
-        end
-      end
-    end
-    def have_git(name, extra="")
-      SpecExtensions::HaveGit.new(name, extra)
-    end
-  end
-end

data/lib/poolparty/spec/matchers/have_host.rb

@@ -1,28 +0,0 @@
-module Spec
-  module Matchers
-    module SpecExtensions
-      class HaveHost < SpecExtensionsBase
-        def initialize(expected,extra="")
-          @expected = expected
-          @extra = extra
-        end
-        def matches?(target)
-          @target = target
-          is_present?
-        end
-        def failure_message
-          "expected #{@target.inspect} to have host #{@expected}"
-        end
-        def negative_failure_message
-          "expected #{@target.inspect} not to have host #{@expected}"
-        end
-        def type
-          "host"
-        end
-      end
-    end
-    def have_host(name, extra="")
-      SpecExtensions::HaveHost.new(name, extra)
-    end
-  end
-end