poolparty 0.2.84 → 1.2.2

data/bin/pool-init

@@ -1,28 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'rubygems'
-require 'rubigen'
-
-# First, let's generate the spec
-if %w(-V --version).include? ARGV.first
-  require 'poolspec/version'
-  puts "#{File.basename($0)} #{Poolspec::VERSION::STRING}"
-  exit(0)
-end
-
-name = ARGV.first
-
-puts "Creating pool named #{name}"
-`pool generate #{name}`
-
-# Now add the keypairs for the pool based on the default pool name and cloud name
-
-@pool = load_pool(self.spec || Binary.get_existing_spec_location)
-@clouds = [@pool.cloud("#{name}_app")]
-
-@clouds.each do |cloud|  
-  with_cloud(cloud) do
-    vputs header("Creating keypair for #{name}")
-    create_keypair unless testing
-  end  
-end

data/bin/pool-list

@@ -1,30 +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('-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
-
-o.loaded_pools.each do |pool|
-  with_pool(pool) do
-    puts header("Listing pool #{name}")
-    clouds.each do |name, cloud|
-      puts subheader("Cloud: #{name} (#{cloud.keypair})")
-      with_cloud(cloud) 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
-  end
-end

data/bin/pool-start

@@ -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('-p poolname', '--pool name', 'Start pool by this name')    { |p| optioner.poolname p }
-end
-
-o.loaded_pools.each do |pl|
-  
-  with_pool(pl) do
-    puts subheader("Pool: #{pl.name}")
-    
-    pool_clouds.each do |cl|
-      vputs subheader("Cloud: #{cl.name}")
-      
-      cl.launch_and_configure_master!
-      when_no_pending_instances do
-        puts open(::File.join(File.dirname(__FILE__), "..", "lib", "poolparty", "config", "postlaunchmessage.txt")).read ^ {:master_ip => cl.master.ip.chomp}
-        clear_base_directory unless testing
-      end
-    end
-  end
-  
-end

data/bin/server-build-messenger

@@ -1,27 +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
-
-out = %x[#{cmd.runnable}]

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, Base.messenger_client_port).messenger_send!("clear_cert_for #{cloud.for}")
-end

data/bin/server-list-responding

@@ -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', 'Cloud name')    { |c| optioner.cloudname c }
-end
-
-load_pool(o.spec || Binary.get_existing_spec_location)
-
-@ctype = (o.classname || "name").downcase.to_sym
-
-include Remote
-
-@clouds = o.cloudname ? [cloud(o.cloudname.downcase.to_sym)] : clouds
-
-@clouds.each do |name, cloud|
-  
-  with_cloud(cloud, {:location => @location, :ctype => @ctype}) do
-    puts "#{list_of_running_instances.map{|a| "#{a.send ctype}" }.join("\t")}"
-  end  
-  
-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", "-setcookie #{generate_unique_cookie_string} -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", "-setcookie #{generate_unique_cookie_string} -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, "-setcookie #{generate_unique_cookie_string} -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 list_of_running_instances
-      
-      list_of_running_instances.each do |ri|
-        vputs ri.hosts_file_listing_for(self)
-        arr << ri.hosts_file_listing_for(self)
-      end
-      other_clouds.each do |other|
-        other.list_of_running_instances.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 = "#{Base.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/erlang/messenger/Emakefile

@@ -1 +0,0 @@
-{"src/*", [debug_info, {outdir, "ebin"}, {i,"include"}]}.

data/lib/erlang/messenger/Makefile

@@ -1,15 +0,0 @@
-all: code
-
-code: clean
-	rake compile
-
-clean:
-	rake clean
-
-package-debian: code
-	mkdir -p project_name/usr/lib/erlang/lib/project_name/ebin/ && cp source_file_name.beam project_name/usr/lib/erlang/lib/project_name/ebin/source_file_name.beam
-	mkdir -p project_name/DEBIAN/ && cp control project_name/DEBIAN/control
-	dpkg -b project_name project_name.deb
-
-install-debian: package-debian
-	dpkg -i project_name.deb

data/lib/erlang/messenger/README

@@ -1,5 +0,0 @@
-Empty Erlang Project
-
-TODO
-* Refactor the test runner to only require one function for a test file
-

data/lib/erlang/messenger/Rakefile

@@ -1,72 +0,0 @@
-require 'rake/clean'
-
-INCLUDE = "include"
-ERLC_FLAGS = "-I#{INCLUDE} +warn_unused_vars +warn_unused_import"
-
-SRC = FileList['src/*.erl']
-OBJ = SRC.pathmap("%{src,ebin}X.beam")
-CLEAN.include("ebin/*.beam")
-
-directory 'ebin'
-
-rule ".beam" =>  ["%{ebin,src}X.erl"] do |t|
-  sh "erlc -pa ebin -W #{ERLC_FLAGS} -o ebin #{t.source}"
-end
-
-task :compile => ['ebin'] + OBJ
-task :dcompile do
-  Dir["#{::File.dirname(__FILE__)}/src/*.erl"].each do |t|
-    Kernel.system "erlc -pa ebin -W #{ERLC_FLAGS} -Ddebug -o ebin #{t}"
-  end  
-end
-
-task :default => :compile
-
-task :run_tests => [:compile] do
-  puts "Modules under test:"
-  OBJ.each do |obj|
-    obj[%r{.*/(.*).beam}]
-    mod = $1
-    test_output = `erl -pa ebin -run #{mod} test -run init stop`
-
-    if /\*failed\*/ =~ test_output
-      test_output[/(Failed.*Aborted.*Skipped.*Succeeded.*$)/]
-    else
-      test_output[/1>\s*(.*)\n/]
-    end
-
-    puts "#{mod}: #{$1}"
-  end
-end
-
-desc "Clean the beams from the ebin directory"
-task :clean do
-  cmd = "rm ebin/*.beam"
-  Kernel.system cmd
-end
-
-desc "Recompile the sources"
-task :recompile => [:clean, :compile]
-
-desc "Compile all the sources"
-task :compile => ['ebin'] + OBJ
-
-desc "Rebuild the boot scripts"
-task :build_boot_scripts => [:recompile] do
-  puts "Rebuilding boot scripts"
-  @version = "0.1"
-  cmd = "erl -pa ./ebin/ -run pm_packager recompile_scripts #{@version} -run init stop -noshell"
-  Kernel.system cmd
-end
-
-desc "Rebuild and repackage"
-task :repackage => [:build_boot_scripts] do  
-  cmd = "erl -pa ./ebin -s pm_packager start -s init stop"
-  Kernel.system cmd
-end
-
-desc "Install messenger"
-task :install_messenger do
-  cmd = "erl -pa ./ebin/ -run pm_packager install_messenger #{@version} -run init stop -noshell"
-  Kernel.system cmd
-end

data/lib/erlang/messenger/control

@@ -1,11 +0,0 @@
-Package: poolparty_messenger
-Version: 0.1
-Section: poolparty
-Priority: optional
-Architecture: all
-Essential: no
-Depends: erlang
-Installed-Size: 1024
-Maintainer: Ari Lerner <arilerner@mac.com>
-Provides: poolparty_messenger
-Description: PoolParty Messenger

data/lib/erlang/messenger/ebin/client.app

@@ -1,19 +0,0 @@
-{application, client,
-  [
-		% Quick description of the server
-		{description, "Client Server for PoolParty"},
-		% Version
-		{vsn, "0.1"},
-		% All modules used by the application.  
-		{modules, [client_app, pm_client, client_server, pm_client_supervisor, utils]},
-		% All the registered names in the application
-		{registered, [client_server, pm_client_supervisor]},
-		% These must be started for application to run
-		{applications, [kernel, stdlib]},
-		% Environment vars
-		{env, []},
-		% Module and Args used to start
-		{mod, {client_app, []}},
-		{start_phases, []}
-	]
-}.