xua_as_fsm: fix use of lists:all/2 and introduc create_asp/2
diff --git a/src/xua_as_fsm.erl b/src/xua_as_fsm.erl
index 0b04f76..6421cce 100644
--- a/src/xua_as_fsm.erl
+++ b/src/xua_as_fsm.erl
@@ -44,6 +44,9 @@
% states in this FSM
-export([as_down/2, as_inactive/2, as_active/2, as_pending/2]).
+% exported API
+-export([create_asp/2]).
+
% Timeouts in milliseconds
-define(T_R_TIMEOUT, 2*60*100).
@@ -54,6 +57,10 @@
asp_list
}).
+create_asp(Name, AspFsmArgs) ->
+ AsFsmName = sg_as_sup:get_as_fsm_name(Name),
+ gen_fsm:sync_send_all_state_event(AsFsmName, {create_asp, AspFsmArgs}).
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% gen_fsm callbacks
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -225,7 +232,7 @@
check_any_other_asp_not_down(LoopDat, AspPid) ->
ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
StateList = build_asp_state_list(ListWithoutMe),
- not lists:all('ASP_DOWN', StateList).
+ not lists:all(fun(E) -> E == 'ASP_DOWN' end, StateList).
check_any_other_asp_in_state(State, LoopDat, AspPid) ->
ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),