(* Module: NutUpssetConf Parses @CONFPATH@/upsset.conf Author: Raphael Pinson Frederic Bohe About: License This file is licensed under the GPL. About: Lens Usage Sample usage of this lens in augtool * Print the string declaring secured cgi directory: > print /files@CONFPATH@/upsset.conf/auth About: Configuration files This lens applies to @CONFPATH@/upsset.conf. See . *) module NutUpssetConf = autoload upsset_xfm (************************************************************************ * Group: UPSSET.CONF *************************************************************************) (* general *) let sep_spc = Util.del_opt_ws "" let eol = Util.eol let comment = Util.comment let empty = Util.empty let upsset_key_word = "I_HAVE_SECURED_MY_CGI_DIRECTORY" let upsset_key = [ label "auth" . sep_spc . store upsset_key_word . eol ] let upsset_lns = (upsset_key|comment|empty)* let upsset_filter = ( incl "@CONFPATH@/upsset.conf" ) . Util.stdexcl let upsset_xfm = transform upsset_lns upsset_filter