radetsky

#!/bin/sh
if [ "$#" -eq 1 ]; then stdinmsg=$(cat); fi
exec <"$0" || exit; read v; read v; read v; exec /usr/bin/osascript - "$@" "$stdinmsg"; exit

-- another way of waiting until an app is running
on waitUntilRunning(appname, delaytime)
    repeat until my appIsRunning(appname)
        tell application "Messages" to close window 1
        delay delaytime
    end repeat

radetsky

%% Author: Alex Radetsky <rad@pearlpbx.com>
%% Module: Simple SMPP Server on Erlang, gen_fsm, ranch, smpp34pdu. 
%% It always authorize bind_transceiver and receives submit_sm  

-module(smpp_protocol).
-behaviour(gen_fsm).
-behaviour(ranch_protocol).
 
-include_lib("smpp34pdu/include/smpp34pdu.hrl").