mirror of https://github.com/nealey/irc-bot
31 lines
614 B
OCaml
31 lines
614 B
OCaml
module String_map =
|
|
Map.Make (struct
|
|
type t = string
|
|
let compare = compare
|
|
end)
|
|
|
|
type client = Iobuf.t * Irc.nuhost
|
|
|
|
type t = {name: string;
|
|
modes: string ref;
|
|
clients: client String_map.t}
|
|
|
|
let modes = "aimnqpsrtklb"
|
|
|
|
let channels = String_map.empty
|
|
|
|
let is_channel_name name =
|
|
match name.[0] with
|
|
| '#' | '&' | '!' | '+' ->
|
|
true
|
|
| _ ->
|
|
false
|
|
|
|
let has_mode chan mode =
|
|
String.contains !(chan.modes) mode
|
|
|
|
let handle_command iobuf (nick, username, hostname) cmd =
|
|
match (Command.as_tuple cmd) with
|
|
| _ ->
|
|
()
|