|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /usr/share/augeas/lenses/dist/ |
Upload File : |
(*
Cyrus_Imapd module for Augeas
Author: Free Ekanayaka <free@64studio.com>
*)
module Cyrus_Imapd =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let indent = del /[ \t]*(\n[ \t]+)?/ " "
let comment = Util.comment
let empty = Util.empty
let eq = del /[ \t]*:/ ":"
let word = /[A-Za-z0-9_.-]+/
(* The value of a parameter, after the '=' sign. Postfix allows that
* lines are continued by starting continuation lines with spaces.
* The definition needs to make sure we don't add indented comment lines
* into values *)
let value =
let chr = /[^# \t\n]/ in
let any = /.*/ in
let line = (chr . any* . chr | chr) in
let lines = line . (/\n[ \t]+/ . line)* in
store lines
(************************************************************************
* ENTRIES
*************************************************************************)
let entry = [ key word . eq . (indent . value)? . eol ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry) *
let filter = (incl "/etc/imapd.conf")
. (incl "/etc/imap/*.conf")
. Util.stdexcl
let xfm = transform lns filter