Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5cba00e9e6
Fetching contributors…

Cannot retrieve contributors at this time

file 20 lines (15 sloc) 0.374 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
(*
* (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

  
Something went wrong with that request. Please try again.