diff options
author | Magnus Feuer <mfeuer@jaguarlandrover.com> | 2015-06-24 13:04:04 -0700 |
---|---|---|
committer | Magnus Feuer <mfeuer@jaguarlandrover.com> | 2015-06-24 13:04:04 -0700 |
commit | 9549bb4d755619624eb10b0549c851c8af8aae7b (patch) | |
tree | a8301176fb139e51fba62b9a5fba8d12c80f2618 | |
parent | aa0a10a167789e93e133d6f07c0222e709e7ff68 (diff) | |
download | rvi_core-9549bb4d755619624eb10b0549c851c8af8aae7b.tar.gz |
Fault searching bt disconnect scenario
-rw-r--r-- | components/dlink_bt/src/dlink_bt_rpc.erl | 6 | ||||
-rw-r--r-- | components/service_edge/src/service_edge_rpc.erl | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/components/dlink_bt/src/dlink_bt_rpc.erl b/components/dlink_bt/src/dlink_bt_rpc.erl index 646a72b..7edc948 100644 --- a/components/dlink_bt/src/dlink_bt_rpc.erl +++ b/components/dlink_bt/src/dlink_bt_rpc.erl @@ -477,7 +477,7 @@ handle_socket(FromPid, SetupBTAddr, SetupChannel, closed, CompSpec) -> %% Get all service records associated with the given connection LostSvcNameList = get_services_by_connection(FromPid), - ?info("Will delete services ~n", [ LostSvcNameList]), + ?info("Will delete services: ~p~n", [ LostSvcNameList]), delete_connection(FromPid), @@ -486,13 +486,13 @@ handle_socket(FromPid, SetupBTAddr, SetupChannel, closed, CompSpec) -> fun(SvcName) -> case get_connections_by_service(SvcName) of [] -> - ?info("correct"), + ?info("No connection"), service_discovery_rpc: unregister_services(CompSpec, [SvcName], ?MODULE); _ -> - ?info("correct"), + ?info("connection"), service_discovery_rpc: unregister_services(CompSpec, [SvcName], diff --git a/components/service_edge/src/service_edge_rpc.erl b/components/service_edge/src/service_edge_rpc.erl index 60dbca9..ccac474 100644 --- a/components/service_edge/src/service_edge_rpc.erl +++ b/components/service_edge/src/service_edge_rpc.erl @@ -445,11 +445,13 @@ handle_call(Other, _From, St) -> handle_cast({rvi, service_available, [SvcName, _DataLinkModule] }, St) -> + ?debug("service_edge_rpc: Service available: ~p:", [ SvcName]), announce_service_availability(available, SvcName), { noreply, St }; handle_cast({rvi, service_unavailable, [SvcName, _DataLinkModule] }, St) -> + ?debug("service_edge_rpc: Service unavailable: ~p:", [ SvcName]), announce_service_availability(unavailable, SvcName), { noreply, St }; @@ -603,7 +605,7 @@ dispatch_to_local_service([ $w, $s, $: | WSPidStr], message, ?debug("service_edge:dispatch_to_local_service(message, websock): Done"), ok; -dispatch_to_local_service([ $w, $s, $: | WSPidStr], message, Other) -> +dispatch_to_local_service([ $w, $s, $: | _WSPidStr], message, Other) -> ?warning("service_edge:dispatch_to_local_service(message/alt, websock): UNKNOWN: ~p", [Other]), ok; @@ -679,7 +681,7 @@ announce_service_availability(Available, SvcName) -> [] -> [] end, ets:foldl(fun(Term, _Acc) -> - io:format("~p: ~p~n", [ ?SERVICE_TABLE, Term]), + ?debug("~p: ~p~n", [ ?SERVICE_TABLE, Term]), ok end, ok, ?SERVICE_TABLE), ?debug("announce: service: ~p", [ SvcName]), |