lenses/cpanel.aug

   1 (*
   2 Module: CPanel
   3   Parses cpanel.config
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: Reference
   8   This lens parses cpanel.config files
   9
  10 About: License
  11    This file is licenced under the LGPL v2+, like the rest of Augeas.
  12
  13 About: Lens Usage
  14    To be documented
  15
  16 About: Configuration files
  17    This lens applies to cpanel.config files. See <filter>.
  18
  19 About: Examples
  20    The <Test_CPanel> file contains various examples and tests.
  21 *)
  22 module CPanel =
  23
  24 autoload xfm
  25
  26 (* View: kv
  27     A key-value pair, supporting flags and empty values *)
  28 let kv = [ key /[A-Za-z0-9:_.-]+/
  29          . (Sep.equal . store (Rx.space_in?))?
  30          . Util.eol ]
  31
  32 (* View: lns
  33     The <CPanel> lens *)
  34 let lns = (Util.comment | Util.empty | kv)*
  35
  36 (* View: filter *)
  37 let filter = incl "/var/cpanel/cpanel.config"
  38
  39 let xfm = transform lns filter