(* -*- coding: utf-8 -*-
Module: PuppetFileserver
  Parses /etc/puppet/fileserver.conf used by puppetmasterd daemon.

Author: Frédéric Lespez <frederic.lespez@free.fr>

About: Reference
  This lens tries to keep as close as possible to puppet documentation
  for this file:
  http://docs.puppetlabs.com/guides/file_serving.html

About: License
  This file is licensed under the LGPL v2+, like the rest of Augeas.

About: Lens Usage
  Sample usage of this lens in augtool

    * Create a new mount point
      > ins test_mount after /files/etc/puppet/fileserver.conf/*[last()]
      > defvar test_mount /files/etc/puppet/fileserver.conf/test_mount
      > set $test_mount/path /etc/puppet/files
      > set $test_mount/allow *.example.com
      > ins allow after $test_mount/*[last()]
      > set $test_mount/allow[last()] server.domain.com
      > set $test_mount/deny dangerous.server.com
    * List the definition of a mount point
      > print /files/etc/puppet/fileserver.conf/files
    * Remove a mount point
      > rm /files/etc/puppet/fileserver.conf/test_mount

About: Configuration files
  This lens applies to /etc/puppet/fileserver.conf. See <filter>.
*)


module PuppetFileserver =
  autoload xfm

(************************************************************************
 * Group:                 USEFUL PRIMITIVES
 *************************************************************************)

(* Group: INI File settings *)

(* Variable: eol *)
let eol = IniFile.eol

(* Variable: sep
  Only treat one space as the sep, extras are stripped by IniFile *)
let sep = Util.del_str " "

(*
Variable: comment
  Only supports "#" as commentary
*)
let comment = IniFile.comment "#" "#"

(*
Variable: entry_re
  Regexp for possible <entry> keyword (path, allow, deny)
*)
let entry_re = /path|allow|deny/


(************************************************************************
 * Group:                 ENTRY
 *************************************************************************)

(*
View: entry
  - It might be indented with an arbitrary amount of whitespace
  - It does not have any separator between keywords and their values
  - It can only have keywords with the following values (path, allow, deny)
*)
let entry = IniFile.indented_entry entry_re sep comment


(************************************************************************
 * Group:                      RECORD
 *************************************************************************)

(* Group: Title definition *)

(*
View: title
  Uses standard INI File title
*)
let title = IniFile.indented_title IniFile.record_re

(*
View: title
  Uses standard INI File record
*)
let record = IniFile.record title entry


(************************************************************************
 * Group:                      LENS
 *************************************************************************)

(*
View: lns
  Uses standard INI File lens
*)
let lns = IniFile.lns record comment

(* Variable: filter *)
let filter = (incl "/etc/puppet/fileserver.conf"
             .incl "/usr/local/etc/puppet/fileserver.conf"
             .incl "/etc/puppetlabs/puppet/fileserver.conf")

let xfm = transform lns filter