erlbox 1.5.1 → 1.6.0

data/VERSION.yml

@@ -1,4 +1,4 @@
 --- 
+:patch: 0
 :major: 1
-:minor: 5
-:patch: 1
+:minor: 6

data/erlbox.gemspec

@@ -2,11 +2,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{erlbox}
-  s.version = "1.5.1"
+  s.version = "1.6.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Phillip Toland"]
-  s.date = %q{2009-06-22}
+  s.date = %q{2009-07-27}
   s.default_executable = %q{erlbox}
   s.description = %q{Rake tasks and helper scripts for building Erlang applications.}
   s.email = %q{phil.toland@gmail.com}
@@ -35,15 +35,21 @@ Gem::Specification.new do |s|
      "lib/erlbox/install.rb",
      "lib/erlbox/recurse.rb",
      "lib/erlbox/release.rb",
+     "lib/erlbox/reltools/erl.sh",
+     "lib/erlbox/reltools/make-rel",
+     "lib/erlbox/reltools/nodetool",
+     "lib/erlbox/reltools/runner",
+     "lib/erlbox/reltools/runner.erb",
      "lib/erlbox/snmp.rb",
      "lib/erlbox/test.rb",
      "lib/erlbox/utils.rb"
   ]
+  s.has_rdoc = false
   s.homepage = %q{http://github.com/toland/erlbox}
   s.rdoc_options = ["--charset=UTF-8"]
   s.require_paths = ["lib"]
   s.rubyforge_project = %q{erlbox}
-  s.rubygems_version = %q{1.3.2}
+  s.rubygems_version = %q{1.3.5}
   s.summary = %q{Erlang Toolbox}
 
   if s.respond_to? :specification_version then

data/lib/erlbox/release.rb

@@ -22,51 +22,146 @@
 ## THE SOFTWARE.
 ##
 ## -------------------------------------------------------------------
+require 'erb'
 require 'rake/clean'
+require 'erlbox/utils'
+require 'yaml'
 include FileUtils
 
-if !defined?(REL_APPNAME)
-  fail "The variable REL_APPNAME must be defined"
-end
+def build_node(nodefile)
+  # Load the YAML descriptor
+  node_desc = load_node_yaml(nodefile)
 
-verbose false
+  # Pull out vars we'll need often
+  relname = node_desc['release']
+  relvers = node_desc['version']
+  relid = "#{relname}-#{relvers}"
+  erts_vsn = erts_version()
 
-CLEAN.include FileList["#{REL_APPNAME}*"]
+  # Merge list of apps into a space separated string
+  apps = node_desc['apps'].join(' ')
 
-REL_APPS = %w( runtime_tools )
-REL_VERSION  = `cat vers/#{REL_APPNAME}.version`.strip
-REL_FULLNAME = "#{REL_APPNAME}-#{REL_VERSION}"
+  # Run the make-rel script -- this will yield the following files:
+  # <relname>-<relver>.[boot, rel, script, .tar.gz]
+  reltools_dir = File.join(File.dirname(__FILE__), "reltools")
+  script = File.join(reltools_dir, "make-rel")
+  cmd = "#{script} #{relname} #{relvers} #{node_desc['code_path']} #{apps}"
+  sh cmd
 
-ERTS_VSN = `scripts/get-erts-vsn`.strip
+  # Unpack the systool generated tarball
+  FileUtils.remove_dir(relname, force = true)
+  FileUtils.mkdir(relname)
+  sh "tar -xzf #{relid}.tar.gz -C #{relname}"
 
-directory REL_APPNAME
+  # Cleanup interstitial files from systools
+  FileUtils.remove(["#{relid}.boot", "#{relid}.script", "#{relid}.rel", "#{relid}.tar.gz"])
 
+  # Create release file
+  File.open("#{relname}/releases/start_erl.data", 'w') { |f| f.write("#{erts_vsn} #{relvers}\n") }
 
-task :build_app do
-  cd "../apps" do
-    sh "rake"
+  # Copy overlay into place (if present)
+  if node_desc.has_key?('overlay')
+    sh "cp -R #{node_desc['overlay']}/* #{relname}" # Had issues with FileUtils.cp_r doing wrong thing
   end
-end
 
-desc "Run the make-rel script"
-task :make_rel do
-  sh "scripts/make-rel #{REL_APPNAME} #{REL_VERSION} #{REL_APPS.join(' ')}"
+  # Remove any files from the erts bin/ that are scripts -- we want only executables
+  erts_bin = File.join(relname, "erts-" + erts_vsn, "bin")
+  sh "rm -f `file #{erts_bin}/* |grep Bourne|awk -F: '{print $1}'`"
+
+  # Copy nodetool into erts-<vsn>/bin 
+  FileUtils.cp(File.join(reltools_dir, "nodetool"), erts_bin)
+
+  # Copy our custom erl.sh and the necessary .boot file into erts-<vsn>/bin. This is necessary
+  # to enable escript to work properly
+  FileUtils.cp(File.join(reltools_dir, "erl.sh"), File.join(erts_bin, "erl"))
+  FileUtils.cp(File.join(erl_root(), "bin", "start.boot"), File.join(erts_bin, "erl.boot"))
+
+  # Create any requested empty-dirs
+  if node_desc.has_key?('empty_dirs')
+    node_desc['empty_dirs'].each { |d| FileUtils.mkdir_p(File.join(relname, d)) }
+  end
+
+  # Make sure bin directory exists and copy the runner
+  FileUtils.mkdir_p File.join(relname, "bin")
+  cp File.join(reltools_dir, "runner"), File.join(relname, "bin", relname)
+  chmod 0755, File.join(relname, "bin", relname)
+  
 end
 
-task :prepare => [REL_APPNAME, :make_rel] do
-  sh "tar -xzf #{REL_FULLNAME}.tar.gz -C #{REL_APPNAME}"
-  rm "#{REL_FULLNAME}.tar.gz"
 
-  sh %Q(echo "#{ERTS_VSN} #{REL_VERSION}" > #{REL_APPNAME}/releases/start_erl.data)
-  cp_r Dir.glob("overlays/#{REL_APPNAME}/*"), REL_APPNAME
+def load_node_yaml(file)
+  # Load the YAML file
+  filename = File.expand_path(file)
+  fail "Node descriptor #{filename} does not exit!" if not File.exist?(filename)
+  node = YAML::load(File.read(filename))
+
+  # Make sure a release name and version are specified
+  if !node.has_key?('release') or !node.has_key?('version')
+    fail "Node descriptor must have a release and version specified."
+  end
+
+  # Make sure code path is swathed with quotes so that wildcards won't get processed by
+  # shell
+  if node.has_key?('code_path')
+    node['code_path'] = "\'#{node['code_path']}\'"
+  else
+    # If no code path is specified set an empty one
+    node['code_path'] = '""'
+  end
+
+  return node
 end
 
-desc "Stage the application into a directory"
-task :stage => [:clean, :build_app, :prepare]
 
-desc "Create a tarball from the staged application"
-task :release => :stage do
-  mv REL_APPNAME, REL_FULLNAME
-  sh "tar -cjf #{REL_FULLNAME}-#{RUBY_PLATFORM}.tar.bz2 #{REL_FULLNAME}"
-  rm_rf REL_FULLNAME
+## Setup a series of dynamic targets, based on the information available in the .node file.
+FileList['*.node'].each do |src|
+  name = src.pathmap("%X")
+  node_desc = load_node_yaml(src)
+
+  if node_desc != nil
+    relname = node_desc['release']
+    relvers = node_desc['version']
+    target = "#{relname}/releases/#{relname}-#{relvers}.rel"
+    deps_target = "#{relname}:deps"
+
+    # Setup an empty deps target -- caller can override with their own definition
+    # to do something useful
+    desc "Build dependencies for #{relname} node"
+    task deps_target
+
+    # Construct task with base node name -- depends on the .rel file
+    desc "Builds #{relname} node"
+    task name => deps_target
+    task name => target
+
+    # .rel file is used for detecting if .node file changes and forcing a rebuild
+    file target => [src] do
+      build_node(src)
+    end
+
+    # Add release target (creates a tarball)
+    desc "Package #{relname} into a tarball"
+    task "#{name}:package" => [name] do
+      mv(name, "#{relname}-#{relvers}")
+      sh "tar -cjf #{relname}-#{relvers}-#{RUBY_PLATFORM}.tar.bz2 #{relname}-#{relvers}"
+      rm_rf("#{relname}-#{relvers}")
+    end
+
+    # Add cleanup target
+    desc "Clean #{relname} node"
+    task "#{name}:clean" do
+        FileUtils.remove_dir "#{relname}", true
+        FileUtils.remove Dir.glob("#{relname}-#{relvers}.*")
+      end
+
+    # Register cleanup stuff with clobber
+    CLOBBER.include << "#{relname}" << "#{relname}-#{relvers}.*"
+  end
 end
+
+# task :build_app do
+#   cd "../apps" do
+#     sh "rake"
+#   end
+# end
+

data/lib/erlbox/reltools/erl.sh

@@ -0,0 +1,20 @@
+#!/bin/sh
+
+RUNNER_BASE_DIR=`pwd`
+
+# Parse out release and erts info
+START_ERL=`cat $RUNNER_BASE_DIR/releases/start_erl.data`
+ERTS_VSN=${START_ERL% *}
+APP_VSN=${START_ERL#* }
+
+ROOTDIR=$RUNNER_BASE_DIR
+BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
+EMU=beam
+PROGNAME=`echo $0 | sed 's/.*\///'`
+CMD="$BINDIR/erlexec"
+export EMU
+export ROOTDIR
+export BINDIR
+export PROGNAME
+
+exec $CMD -boot $ROOTDIR/erts-$ERTS_VSN/bin/erl ${1+"$@"}

data/lib/erlbox/reltools/make-rel

@@ -0,0 +1,108 @@
+#!/usr/bin/env escript
+%% -*- erlang -*-
+
+main([RelName, RelVer, CodePath | AppNames]) ->
+    %% Convert the app names into atom
+    Apps = [list_to_atom(A) || A <- AppNames],
+    case Apps of
+        [] ->
+            io:format("No applications provided for release!\n"),
+            halt(1);
+        _ ->
+            ok
+    end,
+
+    %% Setup code path so we can see all the apps
+    update_path(CodePath),
+
+    %% Identify dependencies across all apps
+    Deps = get_all_deps(Apps),
+
+    %% Get version info for all deps
+    DepVers = get_all_vers(Deps),
+
+    %% Validate modules for each dep
+    check_modules(Deps),
+
+    %% Determine the erts version
+    ErtsVsn = erlang:system_info(version),
+    
+    %% Generate the tuple for the release file
+    RelTuple = {release, {RelName, RelVer},  {erts, ErtsVsn}, DepVers},
+    
+    %% Write the .rel file
+    RelId = rel_id(RelName, RelVer),
+    {ok, F} = file:open([RelId, ".rel"], [write]),
+    ok = io:fwrite(F, "~p.\n", [RelTuple]),
+
+    %% Generate the boot script
+    ok = systools:make_script(RelId, [no_module_tests]),
+
+    %% Construct the tar
+    ok = systools:make_tar(RelId, [no_module_tests, {dirs, [mibs, src, include]}, {erts, code:root_dir()}]).
+
+
+update_path(CodePath) ->
+    case re:split(CodePath, ":", [{return, list}]) of
+        [[]] ->
+            ok;
+        Components ->
+            [ok = code:add_pathsa(filelib:wildcard(C)) || C <- Components]
+    end.
+
+get_all_vers(Apps) ->
+    [ {A, get_app_key(A, vsn)} || A <- Apps ].
+                  
+get_app_key(App, Key) ->    
+    application:load(App),
+    case application:get_key(App, Key) of
+        {ok, Value} ->
+            Value;
+        _Error ->
+            io:format("Error getting key ~p for app: ~p\n", [Key, App]),
+            halt(1)
+    end.
+
+get_all_deps(Apps) -> 
+    Deps = get_deps(Apps, []),
+
+    %% Consolidate the list so that there are no dups
+    sets:to_list(sets:from_list(lists:flatten([Apps | Deps]))).
+
+
+get_deps([], Acc) ->
+    Acc;
+get_deps([App | Rest], Acc) -> 
+    Apps = get_app_key(App, applications),
+    Deps = get_deps(Apps, Apps),
+    get_deps(Rest, [Deps | Acc]).
+
+
+format(Str, Args) ->
+    lists:flatten(io_lib:format(Str, Args)).
+
+
+rel_id(RelName, RelVer) ->
+    format("~s-~s", [RelName, RelVer]).
+
+
+check_modules([]) ->
+    ok;
+check_modules([App | Rest]) ->
+    ModuleSet = ordsets:from_list(get_app_key(App, modules)),
+    Beams = filelib:wildcard(filename:join(code:lib_dir(App, ebin), "*.beam")),
+    BeamSet = ordsets:from_list([list_to_atom(filename:basename(F, ".beam")) || F <- Beams]),
+    case ordsets:subtract(BeamSet, ModuleSet) of
+        [] ->
+            ok;
+        MissingModules ->
+            [io:format("WARNING: ~s.app does not list ~s.beam as a module\n", [App, M]) || M <- MissingModules]
+    end,
+
+    case ordsets:subtract(ModuleSet, BeamSet) of
+        [] ->
+            ok;
+        MissingBeams ->
+            [io:format("WARNING: ~s.app does not have a ~s.beam\n", [App, B]) || B <- MissingBeams]
+    end,
+    check_modules(Rest).

data/lib/erlbox/reltools/nodetool

@@ -0,0 +1,79 @@
+#!/usr/bin/env escript
+%% -*- erlang -*-
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%% Copyright (c) 2008 The Hive.  All rights reserved.
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode} = process_args(Args, [], undefined),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case net_adm:ping(TargetNode) of
+        pong -> 
+            ok;
+        pang -> 
+            io:format("Node ~p not responding to pings.\n", [TargetNode]),
+            halt(1)
+    end,
+
+    case RestArgs of
+        ["ping"] ->
+            %% If we got this far, the node already responsed to a ping, so just dump
+            %% a "pong"
+            io:format("pong\n");
+        ["stop"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, stop, [], 60000)]);
+        ["restart"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, restart, [], 60000)]);
+        ["reboot"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, reboot, [], 60000)]);
+        ["rpc", Module, Function | RpcArgs] ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function), [RpcArgs], 60000) of
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]);
+                _ ->
+                    ok
+            end;
+        Other ->
+            io:format("Other: ~p\n", [Other]),
+            io:format("Usage: nodetool {ping|stop|restart|reboot}\n")
+    end,
+    net_kernel:stop().
+    
+process_args([], Acc, TargetNode) ->
+    {lists:reverse(Acc), TargetNode};
+process_args(["-setcookie", Cookie | Rest], Acc, TargetNode) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode);
+process_args(["-name", TargetName | Rest], Acc, _) ->
+    ThisNode = append_node_suffix(TargetName, "_maint_"),
+    {ok, _} = net_kernel:start([ThisNode, longnames]),
+    process_args(Rest, Acc, nodename(TargetName));
+process_args(["-sname", TargetName | Rest], Acc, _) ->
+    ThisNode = append_node_suffix(TargetName, "_maint_"),
+    {ok, _} = net_kernel:start([ThisNode, shortnames]),
+    process_args(Rest, Acc, nodename(TargetName));
+process_args([Arg | Rest], Acc, Opts) ->
+    process_args(Rest, [Arg | Acc], Opts).
+
+
+nodename(Name) ->
+    case string:tokens(Name, "@") of
+        [_Node, _Host] ->
+            list_to_atom(Name);
+        [Node] ->
+            [_, Host] = string:tokens(atom_to_list(node()), "@"),
+            list_to_atom(lists:concat([Node, "@", Host]))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case string:tokens(Name, "@") of
+        [Node, Host] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid(), "@", Host]));
+        [Node] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid()]))
+    end.

data/lib/erlbox/reltools/runner

@@ -0,0 +1,130 @@
+#!/bin/sh
+
+RUNNER_BASE_DIR=.
+
+# If the base directory is specified as current directory, resolve to 
+# fully qualified path
+if [ "$RUNNER_BASE_DIR" == "." ]; then
+    RUNNER_BASE_DIR=`pwd`
+fi
+
+RUNNER_ETC_DIR=$RUNNER_BASE_DIR/etc
+RUNNER_LOG_DIR=$RUNNER_BASE_DIR/log
+RUNNER_USER=
+
+# Make sure this script is running as the appropriate user
+if [ ! -z "$RUNNER_USER" ] && [ `whoami` != "$RUNNER_USER" ]; then
+    exec sudo -u $RUNNER_USER -i $0 $@
+fi
+
+# Make sure log directory exists
+mkdir -p $RUNNER_LOG_DIR
+
+# Extract the target node name from node.args
+NAME_ARG=`grep -e '-[s]*name' $RUNNER_ETC_DIR/node.args`
+if [ -z "$NAME_ARG" ]; then
+    echo "node.args needs to have either -name or -sname parameter."
+    exit 1
+fi
+
+# Extract the target cookie
+COOKIE_ARG=`grep -e '-setcookie' $RUNNER_ETC_DIR/node.args`
+if [ -z "$COOKIE_ARG" ]; then
+    echo "node.args needs to have a -setcookie parameter."
+    exit 1
+fi
+
+# Identify the script name
+SCRIPT=`basename $0`
+
+# Parse out release and erts info
+START_ERL=`cat $RUNNER_BASE_DIR/releases/start_erl.data`
+ERTS_VSN=${START_ERL% *}
+APP_VSN=${START_ERL#* }
+
+# Add ERTS bin dir to our path
+ERTS_PATH=$RUNNER_BASE_DIR/erts-$ERTS_VSN/bin
+
+# Setup command to control the node
+NODETOOL="$ERTS_PATH/escript $ERTS_PATH/nodetool $NAME_ARG $COOKIE_ARG"
+
+# Check the first argument for instructions
+case "$1" in
+    start)
+        # Make sure there is not already a node running
+        RES=`$NODETOOL ping`
+        if [ "$RES" == "pong" ]; then
+            echo "Node is already running!"
+            exit 1
+        fi
+        export HEART_COMMAND="$RUNNER_BASE_DIR/bin/$SCRIPT start"
+        $ERTS_PATH/run_erl -daemon /tmp/ $RUNNER_LOG_DIR "exec $RUNNER_BASE_DIR/bin/$SCRIPT console" 2>&1
+        ;;
+
+    stop)
+        # Wait for the node to completely stop...
+        PID=`ps -ef|grep "$RUNNER_BASE_DIR/.*/[b]eam.smp|awk '{print $2}'"`
+        $NODETOOL stop
+        while `kill -0 $PID 2>/dev/null`;
+        do
+             sleep 1
+        done
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        $NODETOOL restart
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        $NODETOOL reboot
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        $NODETOOL ping
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        RES=`$NODETOOL ping`
+        if [ "$RES" != "pong" ]; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        $ERTS_PATH/to_erl $@
+        ;;
+
+    console)
+        # Setup beam-required vars
+        ROOTDIR=$RUNNER_BASE_DIR
+        BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
+        EMU=beam
+        PROGNAME=`echo $0 | sed 's/.*\///'`
+        CMD="$BINDIR/erlexec -boot $RUNNER_BASE_DIR/releases/$APP_VSN/start -embedded -config $RUNNER_ETC_DIR/app.config -args_file $RUNNER_ETC_DIR/node.args"
+        export EMU
+        export ROOTDIR
+        export BINDIR
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $CMD"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        logger -t "$SCRIPT[$$]" "Starting up"
+
+        # Start the VM
+        exec $CMD
+        ;;
+
+    *)
+        echo "Usage: $SCRIPT {start|stop|restart|reboot|ping|console|attach}"
+        exit 1
+        ;;
+esac
+
+exit 0

data/lib/erlbox/reltools/runner.erb

@@ -0,0 +1,130 @@
+#!/bin/sh
+
+RUNNER_BASE_DIR=<%= runner_base_dir %>
+
+# If the base directory is specified as current directory, resolve to 
+# fully qualified path
+if [ "$RUNNER_BASE_DIR" == "." ]; then
+    RUNNER_BASE_DIR=`pwd`
+fi
+
+RUNNER_ETC_DIR=<%= runner_etc_dir %>
+RUNNER_LOG_DIR=<%= runner_log_dir %>
+RUNNER_USER=<%= runner_user %>
+
+# Make sure this script is running as the appropriate user
+if [ ! -z "$RUNNER_USER"] && [ `whoami` != "$RUNNER_USER" ]; then
+    exec sudo -u $RUNNER_USER -i $0 $@
+fi
+
+# Make sure log directory exists
+mkdir -p $RUNNER_LOG_DIR
+
+# Extract the target node name from node.args
+NAME_ARG=`grep -e '-[s]*name' $RUNNER_ETC_DIR/node.args`
+if [ -z "$NAME_ARG" ]; then
+    echo "node.args needs to have either -name or -sname parameter."
+    exit 1
+fi
+
+# Extract the target cookie
+COOKIE_ARG=`grep -e '-setcookie' $RUNNER_ETC_DIR/node.args`
+if [ -z "$COOKIE_ARG" ]; then
+    echo "node.args needs to have a -setcookie parameter."
+    exit 1
+fi
+
+# Identify the script name
+SCRIPT=`basename $0`
+
+# Parse out release and erts info
+START_ERL=`cat $RUNNER_BASE_DIR/releases/start_erl.data`
+ERTS_VSN=${START_ERL% *}
+APP_VSN=${START_ERL#* }
+
+# Add ERTS bin dir to our path
+ERTS_PATH=$RUNNER_BASE_DIR/erts-$ERTS_VSN/bin
+
+# Setup command to control the node
+NODETOOL="$ERTS_PATH/escript $ERTS_PATH/nodetool $NAME_ARG $COOKIE_ARG"
+
+# Check the first argument for instructions
+case "$1" in
+    start)
+        # Make sure there is not already a node running
+        RES=`$NODETOOL ping`
+        if [ "$RES" == "pong" ]; then
+            echo "Node is already running!"
+            exit 1
+        fi
+        export HEART_COMMAND="$RUNNER_BASE_DIR/bin/$SCRIPT start"
+        $ERTS_PATH/run_erl -daemon /tmp/ $RUNNER_LOG_DIR "exec $RUNNER_BASE_DIR/bin/$SCRIPT console" 2>&1
+        ;;
+
+    stop)
+        # Wait for the node to completely stop...
+        PID=`ps -ef|grep "$RUNNER_BASE_DIR/.*/[b]eam.smp|awk '{print $2}'"`
+        $NODETOOL stop
+        while `kill -0 $PID 2>/dev/null`;
+        do
+             sleep 1
+        done
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        $NODETOOL restart
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        $NODETOOL reboot
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        $NODETOOL ping
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        RES=`$NODETOOL ping`
+        if [ "$RES" != "pong" ]; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        $ERTS_PATH/to_erl $@
+        ;;
+
+    console)
+        # Setup beam-required vars
+        ROOTDIR=$RUNNER_BASE_DIR
+        BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
+        EMU=beam
+        PROGNAME=`echo $0 | sed 's/.*\///'`
+        CMD="$BINDIR/erlexec -boot $RUNNER_BASE_DIR/releases/$APP_VSN/start -embedded -config $RUNNER_ETC_DIR/app.config -args_file $RUNNER_ETC_DIR/node.args"
+        export EMU
+        export ROOTDIR
+        export BINDIR
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $CMD"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        logger -t "$SCRIPT[$$]" "Starting up"
+
+        # Start the VM
+        exec $CMD
+        ;;
+
+    *)
+        echo "Usage: $SCRIPT {start|stop|restart|reboot|ping|console|attach}"
+        exit 1
+        ;;
+esac
+
+exit 0

data/lib/erlbox/utils.rb

@@ -58,6 +58,13 @@ def erl_run(script, args = "", extra_args = {})
   `#{cmd} -eval '#{script}' -s erlang halt #{args} -noshell 2>&1`.strip
 end
 
+def erts_version()
+  script = <<-ERL
+      io:format("~s\n", [erlang:system_info(version)]).
+      ERL
+  erl_run(script)
+end
+
 def erl_where(lib, dir = 'include')
   script = <<-ERL
       io:format("~s\n", [filename:join(code:lib_dir(#{lib}), #{dir})])
@@ -65,6 +72,13 @@ def erl_where(lib, dir = 'include')
   erl_run(script)
 end
 
+def erl_root()
+  script = <<-ERL
+     io:format("~s\n", [code:root_dir()])
+     ERL
+  erl_run(script)
+end
+
 def erl_app_version(app, extra_args = {})
   script = <<-ERL
      ok = application:load(#{app}),

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: erlbox
 version: !ruby/object:Gem::Version 
-  version: 1.5.1
+  version: 1.6.0
 platform: ruby
 authors: 
 - Phillip Toland
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-06-22 00:00:00 -05:00
+date: 2009-07-27 00:00:00 -05:00
 default_executable: erlbox
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -50,6 +50,11 @@ files:
 - lib/erlbox/install.rb
 - lib/erlbox/recurse.rb
 - lib/erlbox/release.rb
+- lib/erlbox/reltools/erl.sh
+- lib/erlbox/reltools/make-rel
+- lib/erlbox/reltools/nodetool
+- lib/erlbox/reltools/runner
+- lib/erlbox/reltools/runner.erb
 - lib/erlbox/snmp.rb
 - lib/erlbox/test.rb
 - lib/erlbox/utils.rb
@@ -77,7 +82,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: erlbox
-rubygems_version: 1.3.2
+rubygems_version: 1.3.5
 signing_key: 
 specification_version: 3
 summary: Erlang Toolbox