Module Globals

module Globals: sig .. end

Some things that didn't fit in elsewhere

val backend : string Pervasives.ref

val debug : bool Pervasives.ref

val vsys_version : string

val nochroot : bool Pervasives.ref

val conffile : string Pervasives.ref

val pid_filepath : string Pervasives.ref

val log_filepath : string Pervasives.ref

val failsafe : bool Pervasives.ref

val logfd : Pervasives.out_channel

val logprint : ('a, Pervasives.out_channel, unit, unit, unit, unit) format6 -> 'a

val debprint : (unit, Pervasives.out_channel, unit, unit, unit, unit) format6 -> unit

val print : ('a, Pervasives.out_channel, unit, unit, unit, unit) format6 -> 'a

type result =

`\|`	`Success`
`\|`	`Failed`

type fname_and_fd = string option * Unix.file_descr

type relpath =

`\|`	`Relpath of string`

exception Bad_path

exception Bug