Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 20 lines (14 sloc) 0.342 kb
f80f254b »
2009-12-02 More or less working scheme for hooks, not completed
1 (*
08aac6ad »
2011-11-26 Remove email
2 * (c) 2004-2010 Anastasia Gornostaeva
f80f254b »
2009-12-02 More or less working scheme for hooks, not completed
3 *)
4
566b787a »
2009-12-08 Complete to previous commit
5 open JID
f80f254b »
2009-12-02 More or less working scheme for hooks, not completed
6
6094feee »
2011-10-09 updated to xmpp library
7 let acls : ((JID.t * string) list) ref = ref []
f80f254b »
2009-12-02 More or less working scheme for hooks, not completed
8
9 let check_access jid classname =
10 if classname = "" then
11 true
12 else
13 List.exists
14 (fun (jid', name) ->
15 (name = classname &&
16 jid'.lnode = jid.lnode && jid'.ldomain = jid.ldomain)
17 ) !acls
18
19
Something went wrong with that request. Please try again.