Current File : //usr/share/augeas/lenses/dist/thttpd.aug
(*
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
Mini Shell