%% sample Erlang module to test the creation of slave nodes
%% Copyright (C) 2005 Romain Lenglet
%% 
%% This program is free software; you can redistribute it and/or
%% modify it under the terms of the GNU General Public License
%% as published by the Free Software Foundation; either version 2
%% of the License, or (at your option) any later version.
%% 
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public License
%% along with this program; if not, write to the Free Software
%% Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

-module(slavetest).
-export([start/1]).

start(Hostname) ->

    error_logger:info_msg("before starting slave node"),

    Args = lists:append([" -setcookie  ", atom_to_list(erlang:get_cookie())]),
    {ok, Node} = slave:start_link(Hostname, "some_slave_node_name", Args),

    error_logger:info_msg("before making a rpc to the slave node"),

    ok = rpc:call(Node, error_logger, info_msg, ["hello from the slave node!"]),

    error_logger:info_msg("everything was ok!").