get_version()
{
    _response="$(erl_rpc 'eturnal_ctl' 'get_version' || :)"

    case $_response in
        '{ok,'*)
            echo "$_response" | sed 's/{ok, *"\(.*\)"}/\1/'
            exit 0
            ;;
        '{error,'*)
            echo "$_response" | sed 's/{error, *"\(.*\)"}/\1/' >&2
            exit 1
            ;;
        *)
            echo "Unknown error: '$_response'" >&2
            exit 1
            ;;
    esac
}

if [ $# -ge 1 ] && [ "x$1" = 'xhelp' ]
then
    echo "Usage: $REL_NAME version"
    echo "Print $REL_NAME's version string."
    exit 0
elif [ $# -eq 0 ]
then
    if erl_rpc 'erlang' 'is_alive' >'/dev/null' 2>&1
    then
        get_version
    else
        echo "1.12.2 (not running)"
        exit 0
    fi
else
    echo "Usage: $REL_NAME version" >&2
    exit 2
fi
