관리-도구

편집 파일: 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