Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 5cba00e9e6
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (15 sloc) 0.374 kB
(*
* (c) 2004-2010 Anastasia Gornostaeva. <ermine@ermine.pp.ru>
*)
open JID
open Hooks
let acls : ((jid * string) list) ref = ref []
let check_access jid classname =
if classname = "" then
true
else
List.exists
(fun (jid', name) ->
(name = classname &&
jid'.lnode = jid.lnode && jid'.ldomain = jid.ldomain)
) !acls
Jump to Line
Something went wrong with that request. Please try again.