用shell脚本控制Erlang Application的启动和停止

最新推荐文章于 2024-01-30 21:36:39 发布

linhaibo

最新推荐文章于 2024-01-30 21:36:39 发布

阅读量270

点赞数

文章标签：脚本 Erlang

一般就用下面两个参数

./server.sh init

./server.sh shutdown

shell脚本我不是很熟，看看各位有没有改进的地方

#!/bin/sh

##
## usage server.sh {init|start|stop|shutdown}
## First run,use init,create NODE
##

ERL=/usr/local/erlang/bin/erl
PA=/game/game_chat_server

export HEART_COMMAND=" $PA/server.sh start"

case $1 in

init)
    echo "Init Starting Server..."
    $ERL -boot game_server-1 -config sasl -sname chatserver01 \
         -detached
    ;;

start)
    echo "Starting Server..."
    $ERL -noshell -sname manage \
           -eval 'server_manage:start("chatserver01@NBCTC-5-160","game_chat_server")' \
           -s init stop
    ;;
stop)
    echo "Stopping Server..."
    $ERL -noshell -sname manage \
           -eval 'server_manage:stop("chatserver01@NBCTC-5-160","game_chat_server")' \
           -s init stop
    ;;

shutdown)
    echo "Shutdown Server..."
    $ERL -noshell -sname manage \
           -eval 'server_manage:shutdown("chatserver01@NBCTC-5-160","game_chat_server")' \
           -s init stop
    ;;

*)
echo "Usage: $0 {init|start|stop|shutdown}"
exit 1
esac

exit 0

发现命令行 -s MODDULE Fun arg 这样的方式不好使，就改成 -eval的了

server_manage.erl 代码：

-module(server_manage).
-export([start/2,stop/2,shutdown/2]).

start(Node,Service) ->
    rpc:call(list_to_atom(Node),application,start,[list_to_atom(Service)]),
    io:format("~p:~p ok~n",[Node,Service]).
stop(Node,Service)  ->
    rpc:call(list_to_atom(Node),application,stop,[list_to_atom(Service)]),
    io:format("~p:~p ok~n",[Node,Service]).
shutdown(Node,Service)  ->
    rpc:call(list_to_atom(Node),application,stop,[list_to_atom(Service)]),
    rpc:call(list_to_atom(Node),init,stop,[]),
    io:format("~p:~p ok~n",[Node,Service]).