Blame lenses/cpanel.aug

Packit Service a2ae7a
(*
Packit Service a2ae7a
Module: CPanel
Packit Service a2ae7a
  Parses cpanel.config
Packit Service a2ae7a
Packit Service a2ae7a
Author: Raphael Pinson <raphink@gmail.com>
Packit Service a2ae7a
Packit Service a2ae7a
About: Reference
Packit Service a2ae7a
  This lens parses cpanel.config files
Packit Service a2ae7a
Packit Service a2ae7a
About: License
Packit Service a2ae7a
   This file is licenced under the LGPL v2+, like the rest of Augeas.
Packit Service a2ae7a
Packit Service a2ae7a
About: Lens Usage
Packit Service a2ae7a
   To be documented
Packit Service a2ae7a
Packit Service a2ae7a
About: Configuration files
Packit Service a2ae7a
   This lens applies to cpanel.config files. See <filter>.
Packit Service a2ae7a
Packit Service a2ae7a
About: Examples
Packit Service a2ae7a
   The <Test_CPanel> file contains various examples and tests.
Packit Service a2ae7a
*)
Packit Service a2ae7a
module CPanel =
Packit Service a2ae7a
Packit Service a2ae7a
autoload xfm
Packit Service a2ae7a
Packit Service a2ae7a
(* View: kv
Packit Service a2ae7a
    A key-value pair, supporting flags and empty values *)
Packit Service a2ae7a
let kv = [ key /[A-Za-z0-9:_.-]+/
Packit Service a2ae7a
         . (Sep.equal . store (Rx.space_in?))?
Packit Service a2ae7a
         . Util.eol ]
Packit Service a2ae7a
Packit Service a2ae7a
(* View: lns
Packit Service a2ae7a
    The <CPanel> lens *)
Packit Service a2ae7a
let lns = (Util.comment | Util.empty | kv)* 
Packit Service a2ae7a
Packit Service a2ae7a
(* View: filter *)
Packit Service a2ae7a
let filter = incl "/var/cpanel/cpanel.config"
Packit Service a2ae7a
Packit Service a2ae7a
let xfm = transform lns filter