auser-poolparty 0.2.55 → 0.2.56

data/bin/cloud-refresh

@@ -10,10 +10,7 @@ end
 o.loaded_clouds.each do |cloud|
   
   with_cloud(cloud) do
-    cmd = <<-EOE
-puppetrun --host #{list_of_node_names.join(", --host ")}
-    EOE
-    run_command_on(cmd.runnable, master)
+    reconfigure_cloud!("force_reconfig")
   end
   
 end

data/lib/erlang/messenger/include/defines.hrl

@@ -1,6 +1,6 @@
 % Includes file for the PoolParty Messenger
 
-% -define(debug, true).
+-define(debug, true).
 
 -ifdef(debug).
 

data/lib/erlang/messenger/pm_client_rel-0.1.script

@@ -1,4 +1,4 @@
-%% script generated at {2008,11,11} {20,31,50}
+%% script generated at {2008,11,12} {12,32,15}
 {script,
     {"client","0.1"},
     [{preLoaded,

data/lib/erlang/messenger/pm_master_rel-0.1.script

@@ -1,4 +1,4 @@
-%% script generated at {2008,11,11} {20,31,50}
+%% script generated at {2008,11,12} {12,32,15}
 {script,
     {"master","0.1"},
     [{preLoaded,

data/lib/erlang/messenger/pm_node_rel-0.1.script

@@ -1,4 +1,4 @@
-%% script generated at {2008,11,11} {20,31,50}
+%% script generated at {2008,11,12} {12,32,15}
 {script,
     {"node","0.1"},
     [{preLoaded,

data/lib/erlang/messenger/src/client_server.erl

@@ -4,6 +4,7 @@
 -export ([start/0]).
 
 -define (RECONNECT_TIMEOUT, 10000).
+-define (CAST_MESSAGES, [force_reconfig]).
 
 start() -> 	
 	utils:start_timer(client_timer, ?UPDATE_TIME, fun() -> client_server:connect_to_master() end),
@@ -14,14 +15,16 @@ master_server() -> global:whereis_name(pm_master).
 loop(Socket) ->
     case gen_tcp:recv(Socket, 0) of
         {ok, Data} ->						
-						?TRACE("received", [master_server(), erlang:binary_to_list(Data)]),
 						% Args = [Item || K <- string:tokens(erlang:binary_to_list(Data), " "), Item <- erlang:list_to_atom(K)],
 						[Meth|Args] = string:tokens(erlang:binary_to_list(Data), " "),
-						?TRACE("received", [Meth, Args]),
-						Output = gen_server:call(master_server(), {erlang:list_to_atom(Meth), Args}),
-						?TRACE("received from gen_server", [Output]),
-						send_back_appropriate_response(Socket, Output),
-						?TRACE("posted", [Output]),
+						case lists:member(erlang:list_to_atom(Meth), ?CAST_MESSAGES) of
+							true ->
+								?TRACE("Received cast message", [Meth]);
+							_ ->
+								Output = gen_server:call(master_server(), {erlang:list_to_atom(Meth), Args}),
+								send_back_appropriate_response(Socket, Output),
+								?TRACE("posted", [Output])
+						end,
             loop(Socket);
         {error, closed} ->
             ok

data/lib/poolparty/net/messenger.rb

@@ -30,6 +30,12 @@ module PoolParty
       @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}]
@@ -54,8 +60,8 @@ module PoolParty
         nodes.split(" ").map {|a| a.split(/@/)[-1] }
       end
       
-      def reconfigure_cloud!
-        messenger_send!("reconfigure_cloud")
+      def reconfigure_cloud!(msg="force_reconfig")
+        messenger_cast!(msg)
       end
     end
   end

data/lib/poolparty/version.rb

@@ -2,7 +2,7 @@ module PoolParty
   module VERSION #:nodoc:
     MAJOR = 0
     MINOR = 2
-    TINY  = 55
+    TINY  = 56
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

data/poolparty.gemspec

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: poolparty
 version: !ruby/object:Gem::Version 
-  version: 0.2.55
+  version: 0.2.56
 platform: ruby
 authors: 
 - Ari Lerner

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: auser-poolparty
 version: !ruby/object:Gem::Version 
-  version: 0.2.55
+  version: 0.2.56
 platform: ruby
 authors: 
 - Ari Lerner