poolparty 0.2.69 → 0.2.84

data/bin/cloud-spec

@@ -0,0 +1,40 @@
+#!/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}")      
+        # hide_output {launch_and_configure_master!}
+        print_with_nice_printer("Waiting for cloud to provision")
+        
+      end
+    end
+  end
+  
+end

data/bin/cloud-start

@@ -4,12 +4,13 @@ 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('-d', '--daemonize', 'Daemonize starting the cloud')    { optioner.daemon true }
+  optioner.cloudnames
+  optioner.daemonizeable
 end
 
 o.loaded_clouds.each do |cloud|
   with_cloud(cloud) do
+    setup_dev
     vputs header("Starting cloud #{name}")
     vputs "#{list_of_running_instances.size} running instances (#{minimum_instances} - #{maximum_instances})"
     # if list_of_running_instances.size <= 1
@@ -18,7 +19,8 @@ o.loaded_clouds.each do |cloud|
       #   puts("\tNot launching while in testing mode")
       # else
         vputs "Launching and configuring the master"
-        daemon ? daemonize {launch_and_configure_master!} : launch_and_configure_master!
+        @cl = self
+        daemon ? daemonize {@cl.launch_and_configure_master!} : launch_and_configure_master!
       # end
     # end
     when_no_pending_instances do

data/bin/server-clean-cert-for

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

@@ -18,7 +18,6 @@ include Remote
   with_cloud(cl, {:testing => o.testing}) do
     cmd = PoolParty::Remote::RemoteInstance.puppet_runner_command
     %x[#{cmd}] unless testing
-    puts cmd
   end  
   
 end

data/bin/server-start-client

@@ -18,7 +18,7 @@ o.loaded_clouds.each do |cloud|
       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)
+      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

data/bin/server-start-master

@@ -16,7 +16,7 @@ o.loaded_clouds.each do |cloud|
       
       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"}")    
+      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

data/bin/server-start-node

@@ -22,7 +22,7 @@ o.loaded_clouds.each do |cloud|
       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(" ")}")    
+      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

data/bin/server-update-hosts

@@ -9,7 +9,7 @@ end
 
 o.loaded_clouds.each do |cloud|
   with_cloud(cloud) do
-    puts "Cloud: #{name}"
+    vputs "Cloud: #{name}"
     
     new_hosts_listing = returning Array.new do |arr|
       
@@ -36,8 +36,9 @@ o.loaded_clouds.each do |cloud|
         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]
-          puts "ip: #{ip} for #{hostname}"
-          arr << PoolParty::Resources::Host.new(:name => hostname, :ip => Resolv::DNS.new.getaddress(ip).to_s, :alias => aliases).to_string
+          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
       

data/bin/server-write-new-nodes

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+require "rubygems"
+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    
+
+    new_nodes_file = "#{Base.manifest_path}/nodes/nodes.pp"
+            
+    str = returning Array.new do |arr|
+      arr << "node default { include poolparty }"
+      list_of_running_instances.each do |ri| 
+        arr << "node \"#{ri.name}\" inherits default {}"
+      end
+    end.join("\n")
+    
+    testing ? puts(str) : ::File.open(new_nodes_file, "w+") {|f| f << str }
+    
+  end
+end

data/generators/poolspec/USAGE

@@ -1,5 +1,5 @@
 Description:
-  Create a basic pool.spec template
+  Create a basic pool template
   
 Usage:
-  pool spec [name]
+  pool generate [name]

data/generators/poolspec/poolspec_generator.rb

@@ -21,7 +21,7 @@ class PoolspecGenerator < RubiGen::Base
       m.directory ''
       BASEDIRS.each { |path| m.directory path }
       
-      m.template "pool_spec_template.erb", "pool.spec"
+      m.template "pool_spec_template.erb", "#{@name}.pool"
       # Create stubs
       # m.template "template.rb",  "some_file_after_erb.rb"
       # m.template_copy_each ["template.rb", "template2.rb"]

data/lib/erlang/messenger/Makefile

@@ -0,0 +1,15 @@
+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