Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F140632
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Award Token
Flag For Later
Size
2 KB
Referenced Files
None
Subscribers
None
View Options
diff --git a/debug_server.exs b/debug_server.exs
index 1de1e63..872fd30 100644
--- a/debug_server.exs
+++ b/debug_server.exs
@@ -1,72 +1,82 @@
require Logger
Application.ensure_started(:cacophony)
Application.ensure_all_started(:ranch)
alias Cacophony.Message
defmodule DebugServer do
def handle_message(%Message.BindRequest{} = request, state) do
bind_dn = request.dn != "" && request.dn || "cn=anonymous"
state = put_in(state, [:dn], bind_dn)
response = %Message.BindResponse{
id: request.id,
result_code: :success,
matched_dn: state.dn
}
{:ok, response, state}
end
def handle_message(%Message.UnbindRequest{}, _state), do: :noreply
def handle_message(%Message.WhoAmIRequest{} = request, %{dn: dn} = state) do
"cn=" <> authzid = dn
response = %Message.WhoAmIResponse{
id: request.id,
matched_dn: dn,
result_code: :success,
- authzid: "#{authzid}@example.com"
+ authzid: "u:#{authzid}@example.com"
+ }
+
+ {:ok, response, state}
+ end
+
+ def handle_message(%Message.SearchRequest{} = request, state) do
+ response = %Message.SearchResultDone{
+ id: request.id,
+ matched_dn: "",
+ result_code: :success
}
{:ok, response, state}
end
def handle_message(_message), do: {:error, :badmatch}
end
defmodule DebugListener do
def start_link(_opts) do
:ranch.start_listener(make_ref(), :ranch_tcp, [{:port, 6389}], Cacophony.Server, [mod: DebugServer])
end
def child_spec(_) do
%{id: __MODULE__, start: {__MODULE__, :start_link, [[]]}}
end
end
defmodule DebugSupervisor do
use Supervisor
def start_link(opts) do
Supervisor.start_link(__MODULE__, :ok, opts)
end
@impl true
def init(:ok) do
children = [DebugListener]
Supervisor.init(children, strategy: :one_for_one)
end
end
{:ok, pid} = DebugSupervisor.start_link([])
ref = Process.monitor(pid)
Logger.info("Debugging server started on port 6389.")
receive do
{:DOWN, ^ref, _, _, _} -> Process.exit()
end
File Metadata
Details
Attached
Mime Type
text/x-diff
Expires
Mon, Jan 20, 9:12 PM (1 d, 13 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
55596
Default Alt Text
(2 KB)
Attached To
Mode
R11 cacophony
Attached
Detach File
Event Timeline
Log In to Comment