40 lines
2.3 KiB
OCaml
40 lines
2.3 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* whitelister : a Whitelister Policy Daemon for Postfix *)
|
||
|
|
(* ~~~~~~~~~~~ *)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (C) 2005 AAEGE.org *)
|
||
|
|
(* Author : Pierre Habouzit <pierre.habouzit@m4x.org> *)
|
||
|
|
(* ____________________________________________________________________ *)
|
||
|
|
(* *)
|
||
|
|
(* This program is free software; you can redistribute it and/or modify *)
|
||
|
|
(* it under the terms of the GNU General Public License as published by *)
|
||
|
|
(* the Free Software Foundation; either version 2 of the License, or *)
|
||
|
|
(* (at your option) any later version. *)
|
||
|
|
(* *)
|
||
|
|
(* This program is distributed in the hope that it will be useful, *)
|
||
|
|
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
|
||
|
|
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
|
||
|
|
(* GNU General Public License for more details. *)
|
||
|
|
(* *)
|
||
|
|
(* You should have received a copy of the GNU General Public License *)
|
||
|
|
(* along with this program; if not, write to the Free Software *)
|
||
|
|
(* Foundation, Inc., *)
|
||
|
|
(* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
val string_of_sockaddr : Unix.sockaddr -> string
|
||
|
|
val unix_do : ('a -> 'b) -> 'a -> 'b
|
||
|
|
|
||
|
|
val pidfile_open : string -> unit
|
||
|
|
val pidfile_write : unit -> unit
|
||
|
|
val pidfile_close : unit -> unit
|
||
|
|
|
||
|
|
val drop_privs : string * string -> unit
|
||
|
|
|
||
|
|
val bind_to_sock : Unix.sockaddr -> Unix.file_descr
|
||
|
|
val double_fork : ('a -> unit) -> 'a -> unit
|
||
|
|
val daemonize : string * string -> ('a -> unit) -> 'a -> unit
|
||
|
|
|