(*

Module: Thttpd

  Parses Thttpd's configuration files

Author: Marc Fournier <marc.fournier@camptocamp.com>

About: Reference

    This lens is based on Thttpd's default thttpd.conf file.

About: Usage Example

(start code)

    augtool> get /files/etc/thttpd/thttpd.conf/port

    /files/etc/thttpd/thttpd.conf/port = 80

    augtool> set /files/etc/thttpd/thttpd.conf/port 8080

    augtool> save

    Saved 1 file(s)

(end code)

   The <Test_Thttpd> file also contains various examples.

About: License

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

*)

module Thttpd =

autoload xfm

let comment     = Util.comment

let comment_eol = Util.comment_generic /[ \t]*[#][ \t]*/ " # "

let empty       = Util.empty

let eol         = Util.del_str "\n"

let bol         = Util.del_opt_ws ""

let kvkey       = /(port|dir|data_dir|user|cgipat|throttles|host|logfile|pidfile|charset|p3p|max_age)/

let flag        = /(no){0,1}(chroot|symlinks|vhost|globalpasswd)/

let val         = /[^\n# \t]*/

let kventry     = key kvkey . Util.del_str "=" . store val

let flagentry   = key flag

let kvline      = [ bol . kventry . (eol|comment_eol) ]

let flagline    = [ bol . flagentry . (eol|comment_eol) ]

let lns         = (kvline|flagline|comment|empty)*

let filter      = incl "/etc/thttpd/thttpd.conf"

let xfm         = transform lns filter