Module Awa.ServerSource

Sourcetype event =
  1. | Channel_exec of int32 * string
  2. | Channel_data of int32 * Cstruct.t
  3. | Channel_eof of int32
  4. | Disconnected of string
Sourcetype t = {
  1. client_version : string option;
  2. server_version : string;
  3. client_kexinit : Ssh.kexinit option;
  4. server_kexinit : Ssh.kexinit;
  5. neg_kex : Kex.negotiation option;
  6. host_key : Hostkey.priv;
  7. session_id : Cstruct.t option;
  8. keys_ctos : Kex.keys;
  9. keys_stoc : Kex.keys;
  10. new_keys_ctos : Kex.keys option;
  11. new_keys_stoc : Kex.keys option;
  12. keying : bool;
  13. key_eol : Mtime.t option;
  14. expect : Ssh.message_id option;
  15. auth_state : Auth.state;
  16. user_db : Auth.db;
  17. channels : Channel.db;
  18. ignore_next_packet : bool;
}
Sourceval guard_msg : t -> Ssh.message -> (unit, string) result
Sourceval make : Hostkey.priv -> Auth.db -> t * Ssh.message list
Sourceval of_new_keys_ctos : t -> (t, string) result
Sourceval of_new_keys_stoc : t -> (t, string) result
Sourceval rekey : t -> (t * Ssh.message) option
Sourceval should_rekey : t -> Mtime.t -> bool
Sourceval maybe_rekey : t -> Mtime.t -> (t * Ssh.message) option
Sourceval pop_msg2 : t -> Cstruct.t -> (t * Ssh.message option * Cstruct.t, string) result
Sourceval make_noreply : 'a -> ('a * 'b list * 'c option, 'd) result
Sourceval make_reply : 'a -> 'b -> ('a * 'b list * 'c option, 'd) result
Sourceval make_replies : 'a -> 'b -> ('a * 'b * 'c option, 'd) result
Sourceval make_event : 'a -> 'b -> ('a * 'c list * 'b option, 'd) result
Sourceval make_reply_with_event : 'a -> 'b -> 'c -> ('a * 'b list * 'c option, 'd) result
Sourceval make_disconnect : 'a -> Ssh.disconnect_code -> string -> ('a * Ssh.message list * event option, 'b) result
Sourceval input_userauth_request : t -> string -> string -> Ssh.auth_method -> (t * Ssh.message list * event option, string) result
Sourceval input_channel_open : t -> int32 -> int32 -> int32 -> Ssh.channel_open -> (t * Ssh.message list * 'a option, 'b) result
Sourceval input_channel_request : t -> Channel.Channel_map.key -> bool -> Ssh.channel_request -> (t * Ssh.message list * event option, 'a) result
Sourceval input_msg : t -> Ssh.message -> Mtime.t -> (t * Ssh.message list * event option, string) result
Sourceval output_msg : t -> Ssh.message -> (t * Cstruct.t, string) result
Sourceval output_channel_data : t -> Channel.Channel_map.key -> Cstruct_sexp.t -> (t * Ssh.message list, string) result