Kill an Erlang process by node name

ekill

#!/bin/sh

# Kill an Erlang process by node name
#
# e.g.: ekill my_node

# Check usage
if [ -z "$1" ]; then
  echo "Usage: `basename $0` NODE_NAME"
  exit 1
fi

# Fetch input parameters
name="$1"

# Kill the Erlang process corresponding to a given node name
port=`epmd -names | awk -v name=$name '$2==name {print $5}'`
if [ -z "$port" ]; then
  echo "ERROR: Node name not found: $1"
  exit 1
else
  pid=`lsof -i TCP:$port -s TCP:LISTEN | tail -n +2 | awk '{print $2}'`
  kill $pid
  exit 0
fi