module Graphics:sig
..end
typephase =
[ `Connect | `Disconnect | `Initialize | `Unknown of int ]
type
t = {
|
phase : |
(* |
the phase of the connection
| *) |
|
local : |
(* |
the local server address
| *) |
|
remote : |
(* |
the remote client address
| *) |
|
auth_scheme : |
(* |
the authentication scheme activated
| *) |
|
subject : |
(* |
the authenticated subject (user)
| *) |
val to_string : t -> string