Browse files

Remove old experimental code for ebs

  • Loading branch information...
1 parent 2a2e40b commit 738b9c6a27d784e8c125771745be3c7a188d9572 @golange golange committed Nov 8, 2013
Showing with 0 additions and 29 deletions.
  1. +0 −29 erlang/gth.erl
View
29 erlang/gth.erl
@@ -106,7 +106,6 @@
new_cas_r2_mfc_detector/4, new_cas_r2_mfc_detector/5,
new_cas_r2_linesig_monitor/3, new_cas_r2_linesig_monitor/4,
new_connection/5, new_connection/6,
- new_ebs/2,
new_fr_monitor/3, new_fr_monitor/4,
new_fr_layer/3,
new_lapd_layer/6, new_lapd_layer/7,
@@ -180,7 +179,6 @@
-type hostname_or_address()::inet:hostname() | inet:ip_address().
-type job()::{'job', Id::string(), Owner::string(), Counters::keyval_list()}
- |{'job', Id::string(), Owner::string(), Modules::[string()]}
|{'job', Id::string(), Owner::string(), Tree::#resp_tuple{},
Counters::keyval_list()}.
@@ -360,12 +358,6 @@ new_connection(Pid, S_span, S_ts, D_IP, D_span, D_ts)
when is_pid(Pid), is_integer(S_ts), is_integer(D_ts) ->
gen_server:call(Pid, {new_connection, S_span, S_ts, D_IP, D_span, D_ts}).
-%% EBS is experimental and not formally supported. (Checked 2008-10-14)
--spec new_ebs(pid(), [string()]) -> id_or_error().
-new_ebs(Pid, IPs = [H|_])
- when is_pid(Pid), is_list(H) ->
- gen_server:call(Pid, {new_ebs, IPs}).
-
-spec new_lapd_layer(pid(),
Span::string(),
Timeslot::1..31,
@@ -901,12 +893,6 @@ handle_call({new_connection, S_span, S_ts, D_span, D_ts}, _From, State) ->
Reply = receive_job_id(State),
{reply, Reply, State};
-handle_call({new_ebs, IPs}, _From, State) ->
- M = [xml:tag("module", [{"ip_addr", IP}]) || IP <- IPs],
- send_xml(State, xml:new("ebs", [], M)),
- Reply = receive_job_id(State),
- {reply, Reply, State};
-
handle_call({new_fr_monitor, Span, Timeslots, Options},
{Pid, _tag}, State) ->
Reply = new_signalling_monitor(Pid, State, Span, Timeslots,
@@ -1282,14 +1268,6 @@ handle_call({update, "controller", Attrs}, _From, State) ->
Reply = expect_ok(State),
{reply, Reply, State};
-handle_call({update, ID = "ebsw"++_, IPs}, _From, State) ->
- send_xml(State, xml:tag("update", [],
- xml:tag("ebs", [{"id", ID}],
- [xml:tag("module", [{"ip_addr", IP}])
- || IP <- IPs]))),
- Reply = expect_ok(State),
- {reply, Reply, State};
-
handle_call({unmap, Name}, _From, State) ->
send_xml(State, xml:unmap(Name)),
Reply = expect_ok(State),
@@ -1493,13 +1471,6 @@ handle_gth_event(#resp_tuple{name=sync_message,
Pid ! {sync_message, self(), L},
State;
-handle_gth_event(#resp_tuple{name=ebs,
- attributes=[{"ip_addr", IP},
- {"reason", Reason}]},
- State = #state{resource_event_target = Pid}) ->
- Pid ! {ebs, self(), {IP, Reason}},
- State;
-
handle_gth_event(E = #resp_tuple{}, State) ->
%% This clause gets called if (a future version of) the GTH sends
%% an event this code doesn't understand. We ignore it but log the

0 comments on commit 738b9c6

Please sign in to comment.