From 09a80c09dfa4b7d6ba94b5bbd3825da02fd17aa5 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Tue, 8 May 2012 23:37:33 +0200
Subject: sg_as_sup: introduc get_as_fsm_name/1

---
 src/sg_as_sup.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/sg_as_sup.erl b/src/sg_as_sup.erl
index ee5f06c..6a2f2f2 100644
--- a/src/sg_as_sup.erl
+++ b/src/sg_as_sup.erl
@@ -37,8 +37,10 @@
 
 -export([init/1, start_link/2]).
 
+-export([get_as_fsm_name/1]).
+
 init([Name, Options]) ->
-	AsName = list_to_atom("sg_as_" ++ Name ++ "_fsm"),
+	AsName = get_as_fsm_name(Name),
 	StartArgs = [{local, AsName}, xua_as_fsm, [self()], Options],
 	StartFunc = {gen_fsm, start_link, StartArgs},
 	ChildSpec = {as_fsm, StartFunc, permanent, 4000, worker, [xua_as_fsm]},
@@ -50,3 +52,6 @@ init([Name, Options]) ->
 
 start_link(Name, Options) ->
 	supervisor:start_link(?MODULE, [Name, Options]).
+
+get_as_fsm_name(Name) ->
+	list_to_atom("sg_as_" ++ Name ++ "_fsm").
-- 
cgit v1.2.3