Файловый менеджер - Редактировать - /var/www/html/augeas.zip
Ðазад
PK ! �(��� � lenses/dist/pg_hba.augnu �[��� (* Module: Pg_Hba Parses PostgreSQL's pg_hba.conf Author: Aurelien Bompard <aurelien@bompard.org> About: Reference The file format is described in PostgreSQL's documentation: http://www.postgresql.org/docs/current/static/auth-pg-hba-conf.html About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to pg_hba.conf. See <filter> for exact locations. *) module Pg_Hba = autoload xfm (* Group: Generic primitives *) let eol = Util.eol let word = Rx.neg1 (* Variable: ipaddr CIDR or ip+netmask *) let ipaddr = /[0-9a-fA-F:.]+(\/[0-9]+|[ \t]+[0-9.]+)/ (* Variable: hostname Hostname, FQDN or part of an FQDN possibly starting with a dot. Taken from the syslog lens. *) let hostname = /\.?[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?)*/ let comma_sep_list (l:string) = let lns = [ label l . store word ] in Build.opt_list lns Sep.comma (* Group: Columns definitions *) (* View: ipaddr_or_hostname *) let ipaddr_or_hostname = ipaddr | hostname (* View: database TODO: support for quoted strings *) let database = comma_sep_list "database" (* View: user TODO: support for quoted strings *) let user = comma_sep_list "user" (* View: address *) let address = [ label "address" . store ipaddr_or_hostname ] (* View: option part of <method> *) let option = let value_start = label "value" . Sep.equal in [ label "option" . store Rx.word . (Quote.quote_spaces value_start)? ] (* View: method can contain an <option> *) let method = [ label "method" . store /[A-Za-z][A-Za-z0-9]+/ . ( Sep.tab . option )* ] (* Group: Records definitions *) (* View: record_local when type is "local", there is no "address" field *) let record_local = [ label "type" . store "local" ] . Sep.tab . database . Sep.tab . user . Sep.tab . method (* Variable: remtypes non-local connection types *) let remtypes = "host" | "hostssl" | "hostnossl" (* View: record_remote *) let record_remote = [ label "type" . store remtypes ] . Sep.tab . database . Sep.tab . user . Sep.tab . address . Sep.tab . method (* View: record A sequence of <record_local> or <record_remote> entries *) let record = [ seq "entries" . (record_local | record_remote) . eol ] (* View: filter The pg_hba.conf conf file *) let filter = (incl "/var/lib/pgsql/data/pg_hba.conf" . incl "/var/lib/pgsql/*/data/pg_hba.conf" . incl "/var/lib/postgresql/*/data/pg_hba.conf" . incl "/etc/postgresql/*/*/pg_hba.conf" ) (* View: lns The pg_hba.conf lens *) let lns = ( record | Util.comment | Util.empty ) * let xfm = transform lns filter PK ! ;֣�/ / lenses/dist/cron.augnu �[��� (* Module: Cron Parses /etc/cron.d/*, /etc/crontab Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 crontab` where possible. 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 * Get the entry that launches '/usr/bin/ls' > match '/files/etc/crontab/entry[. = "/usr/bin/ls"]' About: Configuration files This lens applies to /etc/cron.d/* and /etc/crontab. See <filter>. *) module Cron = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Generic primitives *) (* Variable: eol *) let eol = Util.eol (* Variable: indent *) let indent = Util.indent (* Variable: comment *) let comment = Util.comment (* Variable: empty *) let empty = Util.empty (* Variable: num *) let num = /[0-9*][0-9\/,*-]*/ (* Variable: alpha *) let alpha = /[A-Za-z]{3}/ (* Variable: alphanum *) let alphanum = (num|alpha) . ("-" . (num|alpha))? (* Variable: entry_prefix *) let entry_prefix = /-/ (* Group: Separators *) (* Variable: sep_spc *) let sep_spc = Util.del_ws_spc (* Variable: sep_eq *) let sep_eq = Util.del_str "=" (************************************************************************ * Group: ENTRIES *************************************************************************) (************************************************************************ * View: shellvar * A shell variable in crontab *************************************************************************) let shellvar = let key_re = /[A-Za-z1-9_-]+(\[[0-9]+\])?/ - "entry" in let sto_to_eol = store /[^\n]*[^ \t\n]/ in [ key key_re . sep_eq . sto_to_eol . eol ] (* View: - prefix of an entry *) let prefix = [ label "prefix" . store entry_prefix ] (* View: minute *) let minute = [ label "minute" . store num ] (* View: hour *) let hour = [ label "hour" . store num ] (* View: dayofmonth *) let dayofmonth = [ label "dayofmonth" . store num ] (* View: month *) let month = [ label "month" . store alphanum ] (* View: dayofweek *) let dayofweek = [ label "dayofweek" . store alphanum ] (* View: user *) let user = [ label "user" . store Rx.word ] (************************************************************************ * View: time * Time in the format "minute hour dayofmonth month dayofweek" *************************************************************************) let time = [ label "time" . minute . sep_spc . hour . sep_spc . dayofmonth . sep_spc . month . sep_spc . dayofweek ] (* Variable: the valid values for schedules *) let schedule_re = "reboot" | "yearly" | "annually" | "monthly" | "weekly" | "daily" | "midnight" | "hourly" (************************************************************************ * View: schedule * Time in the format "@keyword" *************************************************************************) let schedule = [ label "schedule" . Util.del_str "@" . store schedule_re ] (************************************************************************ * View: entry * A crontab entry *************************************************************************) let entry = [ label "entry" . indent . prefix? . ( time | schedule ) . sep_spc . user . sep_spc . store Rx.space_in . eol ] (* * View: lns * The cron lens *) let lns = ( empty | comment | shellvar | entry )* (* Variable: filter *) let filter = incl "/etc/cron.d/*" . incl "/etc/crontab" . incl "/etc/crontabs/*" . excl "/etc/cron.d/at.allow" . excl "/etc/cron.d/at.deny" . excl "/etc/cron.d/cron.allow" . excl "/etc/cron.d/cron.deny" . Util.stdexcl let xfm = transform lns filter PK ! �Eī� � lenses/dist/fstab.augnu �[��� (* Parsing /etc/fstab *) module Fstab = autoload xfm let sep_tab = Sep.tab let sep_spc = Sep.space let comma = Sep.comma let eol = Util.eol let comment = Util.comment let empty = Util.empty let file = /[^# \t\n]+/ (* An option label can't contain comma, comment, equals, or space *) let optlabel = /[^,#= \n\t]+/ let spec = /[^,# \n\t][^ \n\t]*/ let comma_sep_list (l:string) = let value = [ label "value" . Util.del_str "=" . ( store Rx.neg1 )? ] in let lns = [ label l . store optlabel . value? ] in Build.opt_list lns comma let record = [ seq "mntent" . Util.indent . [ label "spec" . store spec ] . sep_tab . [ label "file" . store file ] . sep_tab . comma_sep_list "vfstype" . (sep_tab . comma_sep_list "opt" . (sep_tab . [ label "dump" . store /[0-9]+/ ] . ( sep_spc . [ label "passno" . store /[0-9]+/ ])? )? )? . Util.comment_or_eol ] let lns = ( empty | comment | record ) * let filter = incl "/etc/fstab" . incl "/etc/mtab" let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��PI I lenses/dist/xendconfsxp.augnu �[��� module Xendconfsxp = autoload xfm let spc1 = /[ \t\n]+/ let ws = del spc1 " " let lbrack = del /[ \t]*\([ \t\n]*/ "(" let rbrack = del /[ \t\n]*\)/ ")" let empty_line = [ del /[ \t]*\n/ "\n" ] let no_ws_comment = [ label "#comment" . del /#[ \t]*/ "# " . store /[^ \t]+[^\n]*/ . del /\n/ "\n" ] let standalone_comment = [ label "#scomment" . del /#/ "#" . store /.*/ . del /\n/ "\n" ] (* Minor bug: The initial whitespace is stored, not deleted. *) let ws_and_comment = ws . no_ws_comment (* Either a word or a quoted string *) let str_store = store /[A-Za-z0-9_.\/-]+|\"([^\"\\\\]|(\\\\.))*\"|'([^'\\\\]|(\\\\.))*'/ let str = [ label "string" . str_store ] let var_name = key Rx.word let rec thing = let array = [ label "array" . lbrack . Build.opt_list thing ws . ws_and_comment? . rbrack ] in let str = [ label "item" . str_store ] in str | array let sexpr = [ lbrack . var_name . ws . no_ws_comment? . thing . ws_and_comment? . rbrack ] let lns = ( empty_line | standalone_comment | sexpr ) * let filter = incl "xend-config.sxp" let xfm = transform lns filter PK ! � �� � " lenses/dist/reprepro_uploaders.augnu �[��� (* Module: Reprepro_Uploaders Parses reprepro's uploaders files Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 1 reprepro` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage See <lns>. About: Configuration files This lens applies to reprepro's uploaders files. About: Examples The <Test_Reprepro_Uploaders> file contains various examples and tests. *) module Reprepro_Uploaders = (* View: logic_construct_condition A logical construction for <condition> and <condition_list> *) let logic_construct_condition (kw:string) (lns:lens) = [ label kw . lns ] . [ Sep.space . key kw . Sep.space . lns ]* (* View: logic_construct_field A generic definition for <condition_field> *) let logic_construct_field (kw:string) (sep:string) (lns:lens) = [ label kw . lns ] . [ Build.xchgs sep kw . lns ]* (* View: condition_re A condition can be of several types: - source - byhand - sections - sections contain - binaries - binaries contain - architectures - architectures contain While the lens technically also accepts "source contain" and "byhand contain", these are not understood by reprepro. The "contain" types are built by adding a "contain" subnode. See the <condition_field> definition. *) let condition_re = "source" | "byhand" | "sections" | "binaries" | "architectures" | "distribution" (* View: condition_field A single condition field is an 'or' node. It may contain several values, listed in 'or' subnodes: > $reprepro/allow[1]/and/or = "architectures" > $reprepro/allow[1]/and/or/or[1] = "i386" > $reprepro/allow[1]/and/or/or[2] = "amd64" > $reprepro/allow[1]/and/or/or[3] = "all" *) let condition_field = let sto_condition = Util.del_str "'" . store /[^'\n]+/ . Util.del_str "'" in [ key "not" . Sep.space ]? . store condition_re . [ Sep.space . key "contain" ]? . Sep.space . logic_construct_field "or" "|" sto_condition (* View: condition A condition is an 'and' node, representing a union of <condition_fields>, listed under 'or' subnodes: > $reprepro/allow[1]/and > $reprepro/allow[1]/and/or = "architectures" > $reprepro/allow[1]/and/or/or[1] = "i386" > $reprepro/allow[1]/and/or/or[2] = "amd64" > $reprepro/allow[1]/and/or/or[3] = "all" *) let condition = logic_construct_condition "or" condition_field (* View: condition_list A list of <conditions>, inspired by Debctrl.dependency_list An upload condition list is either the wildcard '*', stored verbatim, or an intersection of conditions listed under 'and' subnodes: > $reprepro/allow[1]/and[1] > $reprepro/allow[1]/and[1]/or = "architectures" > $reprepro/allow[1]/and[1]/or/or[1] = "i386" > $reprepro/allow[1]/and[1]/or/or[2] = "amd64" > $reprepro/allow[1]/and[1]/or/or[3] = "all" > $reprepro/allow[1]/and[2] > $reprepro/allow[1]/and[2]/or = "sections" > $reprepro/allow[1]/and[2]/or/contain > $reprepro/allow[1]/and[2]/or/or = "main" *) let condition_list = store "*" | logic_construct_condition "and" condition (* View: by_key When a key is used to authenticate packages, the value can either be a key ID or "any": > $reprepro/allow[1]/by/key = "ABCD1234" > $reprepro/allow[2]/by/key = "any" *) let by_key = let any_key = [ store "any" . Sep.space . key "key" ] in let named_key = [ key "key" . Sep.space . store (Rx.word - "any") ] in value "key" . (any_key | named_key) (* View: by_group Authenticate packages by a groupname. > $reprepro/allow[1]/by/group = "groupname" *) let by_group = value "group" . [ key "group" . Sep.space . store Rx.word ] (* View: by <by> statements define who is allowed to upload. It can be simple keywords, like "anybody" or "unsigned", or a key ID, in which case a "key" subnode is added: > $reprepro/allow[1]/by/key = "ABCD1234" > $reprepro/allow[2]/by/key = "any" > $reprepro/allow[3]/by = "anybody" > $reprepro/allow[4]/by = "unsigned" *) let by = [ key "by" . Sep.space . ( store ("anybody"|"unsigned") | by_key | by_group ) ] (* View: allow An allow entry, e.g.: > $reprepro/allow[1] > $reprepro/allow[1]/and[1] > $reprepro/allow[1]/and[1]/or = "architectures" > $reprepro/allow[1]/and[1]/or/or[1] = "i386" > $reprepro/allow[1]/and[1]/or/or[2] = "amd64" > $reprepro/allow[1]/and[1]/or/or[3] = "all" > $reprepro/allow[1]/and[2] > $reprepro/allow[1]/and[2]/or = "sections" > $reprepro/allow[1]/and[2]/or/contain > $reprepro/allow[1]/and[2]/or/or = "main" > $reprepro/allow[1]/by = "key" > $reprepro/allow[1]/by/key = "ABCD1234" *) let allow = [ key "allow" . Sep.space . condition_list . Sep.space . by . Util.eol ] (* View: group A group declaration *) let group = let add = [ key "add" . Sep.space . store Rx.word ] in let contains = [ key "contains" . Sep.space . store Rx.word ] in let empty = [ key "empty" ] in let unused = [ key "unused" ] in [ key "group" . Sep.space . store Rx.word . Sep.space . (add | contains | empty | unused) . Util.eol ] (* View: entry An entry is either an <allow> statement or a <group> definition. *) let entry = allow | group (* View: lns The lens is made of <Util.empty>, <Util.comment> and <entry> lines *) let lns = (Util.empty|Util.comment|entry)* PK ! ��i�� � lenses/dist/multipath.augnu �[��� (* Process /etc/multipath.conf *) (* The lens is based on the multipath.conf(5) man page *) module Multipath = autoload xfm let comment = Util.comment let empty = Util.empty let dels = Util.del_str let eol = Util.eol let ws = del /[ \t]+/ " " let indent = del /[ \t]*/ "" (* We require that braces are always followed by a newline *) let obr = del /\{([ \t]*)\n/ "{\n" let cbr = del /[ \t]*}[ \t]*\n/ "}\n" (* Like Rx.fspath, but we disallow quotes at the beginning or end *) let fspath = /[^" \t\n]|[^" \t\n][^ \t\n]*[^" \t\n]/ let ikey (k:regexp) = indent . key k let section (n:regexp) (b:lens) = [ ikey n . ws . obr . (b|empty|comment)* . cbr ] let kv (k:regexp) (v:regexp) = [ ikey k . ws . del /"?/ "" . store v . del /"?/ "" . eol ] (* FIXME: it would be much more concise to write *) (* [ key k . ws . (bare | quoted) ] *) (* but the typechecker trips over that *) let qstr (k:regexp) = let delq = del /['"]/ "\"" in let bare = del /["']?/ "" . store /[^"' \t\n]+/ . del /["']?/ "" in let quoted = delq . store /.*[ \t].*/ . delq in [ ikey k . ws . bare . eol ] |[ ikey k . ws . quoted . eol ] (* Settings that can be changed in various places *) let common_setting = qstr "path_selector" |kv "path_grouping_policy" /failover|multibus|group_by_(serial|prio|node_name)/ |kv "path_checker" /tur|emc_clariion|hp_sw|rdac|directio|rdb|readsector0/ |kv "prio" /const|emc|alua|ontap|rdac|hp_sw|hds|random|weightedpath/ |qstr "prio_args" |kv "failback" (Rx.integer | /immediate|manual|followover/) |kv "rr_weight" /priorities|uniform/ |kv "flush_on_last_del" /yes|no/ |kv "user_friendly_names" /yes|no/ |kv "no_path_retry" (Rx.integer | /fail|queue/) |kv /rr_min_io(_q)?/ Rx.integer |qstr "features" |kv "reservation_key" Rx.word |kv "deferred_remove" /yes|no/ |kv "delay_watch_checks" (Rx.integer | "no") |kv "delay_wait_checks" (Rx.integer | "no") |kv "skip_kpartx" /yes|no/ (* Deprecated settings for backwards compatibility *) |qstr /(getuid|prio)_callout/ (* Settings not documented in `man multipath.conf` *) |kv /rr_min_io_rq/ Rx.integer |kv "udev_dir" fspath |qstr "selector" |kv "async_timeout" Rx.integer |kv "pg_timeout" Rx.word |kv "h_on_last_deleassign_maps" /yes|no/ |qstr "uid_attribute" |kv "hwtable_regex_match" /yes|no|on|off/ |kv "reload_readwrite" /yes|no/ let default_setting = common_setting |kv "polling_interval" Rx.integer |kv "max_polling_interval" Rx.integer |kv "multipath_dir" fspath |kv "find_multipaths" /yes|no/ |kv "verbosity" /[0-6]/ |kv "reassign_maps" /yes|no/ |kv "uid_attrribute" Rx.word |kv "max_fds" (Rx.integer|"max") |kv "checker_timeout" Rx.integer |kv "fast_io_fail_tmo" (Rx.integer|"off") |kv "dev_loss_tmo" (Rx.integer|"infinity") |kv "queue_without_daemon" /yes|no/ |kv "bindings_file" fspath |kv "wwids_file" fspath |kv "log_checker_err" /once|always/ |kv "retain_attached_hw_handler" /yes|no/ |kv "detect_prio" /yes|no/ |kv "hw_str_match" /yes|no/ |kv "force_sync" /yes|no/ |kv "config_dir" fspath |kv "missing_uev_wait_timeout" Rx.integer |kv "ignore_new_boot_devs" /yes|no/ |kv "retrigger_tries" Rx.integer |kv "retrigger_delay" Rx.integer |kv "new_bindings_in_boot" /yes|no/ (* A device subsection *) let device = let setting = qstr /vendor|product|product_blacklist|hardware_handler|alias_prefix/ |default_setting in section "device" setting (* The defaults section *) let defaults = section "defaults" default_setting (* The blacklist and blacklist_exceptions sections *) let blacklist = let setting = qstr /devnode|wwid|property/ |device in section /blacklist(_exceptions)?/ setting (* A multipath subsection *) let multipath = let setting = kv "wwid" (Rx.word|"*") |qstr "alias" |common_setting in section "multipath" setting (* The multipaths section *) let multipaths = section "multipaths" multipath (* The devices section *) let devices = section "devices" device let lns = (comment|empty|defaults|blacklist|devices|multipaths)* let xfm = transform lns (incl "/etc/multipath.conf" . incl "/etc/multipath/conf.d/*.conf") PK ! �j � � lenses/dist/iptables.augnu �[��� module Iptables = autoload xfm (* Module: Iptables Parse the iptables file format as produced by iptables-save. The resulting tree is fairly simple; in particular a rule is simply a long list of options/switches and their values (if any) This lens should be considered experimental *) let comment = Util.comment let empty = Util.empty let eol = Util.eol let spc = Util.del_ws_spc let dels = Util.del_str let chain_name = store /[A-Za-z0-9_-]+/ let chain = let policy = [ label "policy" . store /ACCEPT|DROP|REJECT|-/ ] in let counters_eol = del /[ \t]*(\[[0-9:]+\])?[ \t]*\n/ "\n" in [ label "chain" . dels ":" . chain_name . spc . policy . counters_eol ] let param (long:string) (short:string) = [ label long . spc . del (/--/ . long | /-/ . short) ("-" . short) . spc . store /(![ \t]*)?[^ \t\n!-][^ \t\n]*/ ] (* A negatable parameter, which can either be FTW ! --param arg or --param ! arg *) let neg_param (long:string) (short:string) = [ label long . [ spc . dels "!" . label "not" ]? . spc . del (/--/ . long | /-/ . short) ("-" . short) . spc . store /(![ \t]*)?[^ \t\n!-][^ \t\n]*/ ] let tcp_flags = let flags = /SYN|ACK|FIN|RST|URG|PSH|ALL|NONE/ in let flag_list (name:string) = Build.opt_list [label name . store flags] (dels ",") in [ label "tcp-flags" . spc . dels "--tcp-flags" . spc . flag_list "mask" . spc . flag_list "set" ] (* misses --set-counters *) let ipt_match = let any_key = /[a-zA-Z-][a-zA-Z0-9-]+/ - /protocol|source|destination|jump|goto|in-interface|out-interface|fragment|match|tcp-flags/ in let any_val = /([^" \t\n!-][^ \t\n]*)|"([^"\\\n]|\\\\.)*"/ in let any_param = [ [ spc . dels "!" . label "not" ]? . spc . dels "--" . key any_key . (spc . store any_val)? ] in (neg_param "protocol" "p" |neg_param "source" "s" |neg_param "destination" "d" |param "jump" "j" |param "goto" "g" |neg_param "in-interface" "i" |neg_param "out-interface" "o" |neg_param "fragment" "f" |param "match" "m" |tcp_flags |any_param)* let chain_action (n:string) (o:string) = [ label n . del (/--/ . n | o) o . spc . chain_name . ipt_match . eol ] let table_rule = chain_action "append" "-A" | chain_action "insert" "-I" | empty let table = [ del /\*/ "*" . label "table" . store /[a-z]+/ . eol . (chain|comment|table_rule)* . dels "COMMIT" . eol ] let lns = (comment|empty|table)* let xfm = transform lns (incl "/etc/sysconfig/iptables" . incl "/etc/sysconfig/iptables.save" . incl "/etc/iptables-save") PK ! Oe�� � lenses/dist/samba.augnu �[��� (* Samba module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man smb.conf(5) *) module Samba = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = del /[ \t]*=/ " =" let indent = del /[ \t]*/ " " (* Import useful INI File primitives *) let eol = IniFile.eol let empty = IniFile.empty let sto_to_comment = Util.del_opt_ws " " . store /[^;# \t\r\n][^;#\r\n]*[^;# \t\r\n]|[^;# \t\r\n]/ (************************************************************************ * ENTRY * smb.conf allows indented entries *************************************************************************) let entry_re = /[A-Za-z0-9_.-][A-Za-z0-9 _.:\*-]*[A-Za-z0-9_.\*-]/ let entry = let kw = entry_re in [ indent . key kw . sep . sto_to_comment? . (comment|eol) ] | comment (************************************************************************ * TITLE *************************************************************************) let title = IniFile.title_label "target" IniFile.record_label_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER *************************************************************************) let lns = IniFile.lns record comment let filter = (incl "/etc/samba/smb.conf") let xfm = transform lns filter PK ! ��� lenses/dist/postfix_main.augnu �[��� (* Postfix_Main module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: *) module Postfix_Main = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let indent = del /[ \t]*(\n[ \t]+)?/ " " let comment = Util.comment let empty = Util.empty let eq = del /[ \t]*=/ " =" let word = /[A-Za-z0-9_.-]+/ (* The value of a parameter, after the '=' sign. Postfix allows that * lines are continued by starting continuation lines with spaces. * The definition needs to make sure we don't add indented comment lines * into values *) let value = let chr = /[^# \t\n]/ in let any = /.*/ in let line = (chr . any* . chr | chr) in let lines = line . (/[ \t]*\n[ \t]+/ . line)* in store lines (************************************************************************ * ENTRIES *************************************************************************) let entry = [ key word . eq . (indent . value)? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/postfix/main.cf" . incl "/usr/local/etc/postfix/main.cf" let xfm = transform lns filter PK ! x��� � # lenses/dist/aptcacherngsecurity.augnu �[��� (* Module: AptCacherNGSecurity Lens for config files like the one found in /etc/apt-cacher-ng/security.conf About: License Copyright 2013 Erik B. Andersen; this file is licenced under the LGPL v2+. *) module AptCacherNGSecurity = autoload xfm (* Define a Username/PW pair *) let authpair = [ key /[^ \t:\/]*/ . del /:/ ":" . store /[^: \t\n]*/ ] (* Define a record. So far as I can tell, the only auth level supported is Admin *) let record = [ key "AdminAuth". del /[ \t]*:[ \t]*/ ": ". authpair . Util.del_str "\n"] (* Define the basic lens *) let lns = ( record | Util.empty | Util.comment )* let filter = incl "/etc/apt-cacher-ng/security.conf" . Util.stdexcl let xfm = transform lns filter PK ! /d��o o " lenses/dist/apt_update_manager.augnu �[��� (* Module: Apt_Update_Manager Parses files in /etc/update-manager Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to files in /etc/update-manager. See <filter>. About: Examples The <Test_Apt_Update_Manager> file contains various examples and tests. *) module Apt_Update_Manager = autoload xfm (* View: comment *) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default (* View: sep *) let sep = IniFile.sep IniFile.sep_re IniFile.sep_default (* View: title *) let title = IniFile.title Rx.word (* View: entry *) let entry = IniFile.entry Rx.word sep comment (* View: record *) let record = IniFile.record title entry (* View: lns *) let lns = IniFile.lns record comment (* Variable: filter *) let filter = incl "/etc/update-manager/meta-release" . incl "/etc/update-manager/release-upgrades" . incl "/etc/update-manager/release-upgrades.d/*" . Util.stdexcl let xfm = transform lns filter PK ! ~n��� � lenses/dist/activemq_conf.augnu �[��� (* Module: ActiveMQ_Conf ActiveMQ / FuseMQ conf module for Augeas Author: Brian Redbeard <redbeard@dead-city.org> About: Reference This lens ensures that conf files included in ActiveMQ /FuseMQ are properly handled by Augeas. About: License This file is licensed under the LGPL License. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/activemq.conf ... * Change ActiveMQ Home > set /files/etc/activemq.conf/ACTIVEMQ_HOME /usr/share/activemq Saving your file: > save About: Configuration files This lens applies to relevant conf files located in /etc/activemq/ and the file /etc/activemq.conf . See <filter>. *) module ActiveMQ_Conf = autoload xfm (* Variable: blank_val *) let blank_val = del /^\z/ (* View: entry *) let entry = Build.key_value_line Rx.word Sep.space_equal Quote.any_opt (* View: empty_entry *) let empty_entry = Build.key_value_line Rx.word Sep.equal Quote.dquote_opt_nil (* View: lns *) let lns = (Util.empty | Util.comment | entry | empty_entry )* (* Variable: filter *) let filter = incl "/etc/activemq.conf" . incl "/etc/activemq/*" . excl "/etc/activemq/*.xml" . excl "/etc/activemq/jmx.*" . excl "/etc/activemq/jetty-realm.properties" . excl "/etc/activemq/*.ts" . excl "/etc/activemq/*.ks" . excl "/etc/activemq/*.cert" . Util.stdexcl let xfm = transform lns filter PK ! �:f� � lenses/dist/openshift_config.augnu �[��� (* Module: OpenShift_Config Parses - /etc/openshift/broker.conf - /etc/openshift/broker-dev.conf - /etc/openshift/console.conf - /etc/openshift/console-dev.conf - /etc/openshift/node.conf - /etc/openshift/plugins.d/*.conf Author: Brian Redbeard <redbeard@dead-city.org> About: License This file is licenced under the LGPL v2+, conforming to the other components of Augeas. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/openshift ... * Change OpenShift domain > set /files/etc/openshift/broker.conf/CLOUD_DOMAIN ose.example.com Saving your file: > save About: Configuration files /etc/openshift/broker.conf - Configuration file for an OpenShift Broker running in production mode. /etc/openshift/broker-dev.conf - Configuration file for an OpenShift Broker running in development mode. /etc/openshift/console.conf - Configuration file for an OpenShift console running in production mode. /etc/openshift/console-dev.conf - Configuration file for an OpenShift console running in development mode. /etc/openshift/node.conf - Configuration file for an OpenShift node /etc/openshift/plugins.d/*.conf - Configuration files for OpenShift plugins (i.e. mcollective configuration, remote auth, dns updates) About: Examples The <Test_OpenShift_Config> file contains various examples and tests. *) module OpenShift_Config = autoload xfm (* Variable: blank_val *) let blank_val = del /["']{2}/ "\"\"" (* View: primary_entry *) let primary_entry = Build.key_value_line Rx.word Sep.equal Quote.any_opt (* View: empty_entry *) let empty_entry = Build.key_value_line Rx.word Sep.equal blank_val (* View: lns *) let lns = (Util.empty | Util.comment | primary_entry | empty_entry )* (* Variable: filter *) let filter = incl "/etc/openshift/broker.conf" . incl "/etc/openshift/broker-dev.conf" . incl "/etc/openshift/console.conf" . incl "/etc/openshift/resource_limits.conf" . incl "/etc/openshift/console-dev.conf" . incl "/etc/openshift/node.conf" . incl "/etc/openshift/plugins.d/*.conf" . incl "/var/www/openshift/broker/conf/broker.conf" . incl "/var/www/openshift/broker/conf/plugins.d/*.conf" . Util.stdexcl let xfm = transform lns filter (* vim: set ts=4 expandtab sw=4: *) PK ! (iAc c lenses/dist/util.augnu �[��� (* Module: Util Generic module providing useful primitives Author: David Lutterkort About: License This file is licensed under the LGPLv2+, like the rest of Augeas. *) module Util = (* Variable: del_str Delete a string and default to it Parameters: s:string - the string to delete and default to *) let del_str (s:string) = del s s (* Variable: del_ws Delete mandatory whitespace *) let del_ws = del /[ \t]+/ (* Variable: del_ws_spc Delete mandatory whitespace, default to single space *) let del_ws_spc = del_ws " " (* Variable: del_ws_tab Delete mandatory whitespace, default to single tab *) let del_ws_tab = del_ws "\t" (* Variable: del_opt_ws Delete optional whitespace *) let del_opt_ws = del /[ \t]*/ (* Variable: eol Delete end of line, including optional trailing whitespace *) let eol = del /[ \t]*\n/ "\n" (* Variable: doseol Delete end of line with optional carriage return, including optional trailing whitespace *) let doseol = del /[ \t]*\r?\n/ "\n" (* Variable: indent Delete indentation, including leading whitespace *) let indent = del /[ \t]*/ "" (* Group: Comment This is a general definition of comment It allows indentation for comments, removes the leading and trailing spaces of comments and stores them in nodes, except for empty comments which are ignored together with empty lines *) (* View: comment_generic_seteol Map comments and set default comment sign *) let comment_generic_seteol (r:regexp) (d:string) (eol:lens) = [ label "#comment" . del r d . store /([^ \t\r\n].*[^ \t\r\n]|[^ \t\r\n])/ . eol ] (* View: comment_generic Map comments and set default comment sign *) let comment_generic (r:regexp) (d:string) = comment_generic_seteol r d doseol (* View: comment Map comments into "#comment" nodes *) let comment = comment_generic /[ \t]*#[ \t]*/ "# " (* View: comment_noindent Map comments into "#comment" nodes, without indentation *) let comment_noindent = comment_generic /#[ \t]*/ "# " (* View: comment_eol Map eol comments into "#comment" nodes Add a space before # for end of line comments *) let comment_eol = comment_generic /[ \t]*#[ \t]*/ " # " (* View: comment_or_eol A <comment_eol> or <eol>, with an optional empty comment *) let comment_or_eol = comment_eol | (del /[ \t]*(#[ \t]*)?\n/ "\n") (* View: comment_multiline A C-style multiline comment *) let comment_multiline = let mline_re = (/[^ \t\r\n].*[^ \t\r\n]|[^ \t\r\n]/ - /.*\*\/.*/) in let mline = [ seq "mline" . del /[ \t\r\n]*/ "\n" . store mline_re ] in [ label "#mcomment" . del /[ \t]*\/\*/ "/*" . counter "mline" . mline . (eol . mline)* . del /[ \t\r\n]*\*\/[ \t]*\r?\n/ "\n*/\n" ] (* View: comment_c_style A comment line, C-style *) let comment_c_style = comment_generic /[ \t]*\/\/[ \t]*/ "// " (* View: comment_c_style_or_hash A comment line, C-style or hash *) let comment_c_style_or_hash = comment_generic /[ \t]*((\/\/)|#)[ \t]*/ "// " (* View: empty_generic A generic definition of <empty> Map empty lines, including empty comments *) let empty_generic (r:regexp) = [ del r "" . del_str "\n" ] (* Variable: empty_generic_re *) let empty_generic_re = /[ \t]*#?[ \t]*/ (* View: empty Map empty lines, including empty comments *) let empty = empty_generic empty_generic_re (* Variable: empty_c_style_re *) let empty_c_style_re = /[ \t]*((\/\/)|(\/\*[ \t]*\*\/))?[ \t]*/ (* View: empty_c_style Map empty lines, including C-style empty comment *) let empty_c_style = empty_generic empty_c_style_re (* View: empty_any Either <empty> or <empty_c_style> *) let empty_any = empty_generic (empty_generic_re | empty_c_style_re) (* View: empty_generic_dos A generic definition of <empty> with dos newlines Map empty lines, including empty comments *) let empty_generic_dos (r:regexp) = [ del r "" . del /\r?\n/ "\n" ] (* View: empty_dos *) let empty_dos = empty_generic_dos /[ \t]*#?[ \t]*/ (* View: Split *) (* Split (SEP . ELT)* into an array-like tree where each match for ELT *) (* appears in a separate subtree. The labels for the subtrees are *) (* consecutive numbers, starting at 0 *) let split (elt:lens) (sep:lens) = let sym = gensym "split" in counter sym . ( [ seq sym . sep . elt ] ) * (* View: delim *) let delim (op:string) = del (/[ \t]*/ . op . /[ \t]*/) (" " . op . " ") (* Group: Exclusions Variable: stdexcl Exclusion for files that are commonly not wanted/needed *) let stdexcl = (excl "*~") . (excl "*.rpmnew") . (excl "*.rpmsave") . (excl "*.dpkg-old") . (excl "*.dpkg-new") . (excl "*.dpkg-bak") . (excl "*.dpkg-dist") . (excl "*.augsave") . (excl "*.augnew") . (excl "*.bak") . (excl "*.old") . (excl "#*#") PK ! GA j j lenses/dist/jmxaccess.augnu �[��� (* Module: JMXAccess JMXAccess module for Augeas Author: Brian Redbeard <redbeard@dead-city.org> About: Reference This lens ensures that files included in JMXAccess are properly handled by Augeas. About: License This file is licensed under the LGPL License. About: Lens Usage Sample usage of this lens in augtool: * Create a new user > ins user after /files/etc/activemq/jmx.access > set /files/etc/activemq/jmx.password/user[last()]/username redbeard > set /files/etc/activemq/jmx.password/user[last()]/access readonly ... * Delete the user named sample_user > rm /files/etc/activemq/jmx.password/user[*][username = "sample_user"] Saving your file: > save About: Configuration files This lens applies to relevant conf files located in /etc/activemq/ The following views correspond to the related files: * access_entry: /etc/activemq/jmx.access See <filter>. *) module JMXAccess = autoload xfm (* View: access_entry *) let access_entry = [ label "user" . [ label "username" . store Rx.word ] . Sep.space . [ label "access" . store /(readonly|readwrite)/i ] . Util.eol ] (* View: lns *) let lns = ( Util.comment | Util.empty | access_entry )* (* Variable: filter *) let filter = incl "/etc/activemq/jmx.access" let xfm = transform lns filter PK ! !�ڱ lenses/dist/xinetd.augnu �[��� (* * Module: Xinetd * Parses xinetd configuration files * * The structure of the lens and allowed attributes are ripped directly * from xinetd's parser in xinetd/parse.c in xinetd's source checkout * The downside of being so precise here is that if attributes are added * they need to be added here, too. Writing a catchall entry, and getting * to typecheck correctly would be a huge pain. * * A really enterprising soul could tighten this down even further by * restricting the acceptable values for each attribute. * * Author: David Lutterkort *) module Xinetd = autoload xfm let opt_spc = Util.del_opt_ws " " let spc_equal = opt_spc . Sep.equal let op = ([ label "add" . opt_spc . Util.del_str "+=" ] |[ label "del" . opt_spc . Util.del_str "-=" ] | spc_equal) let value = store Rx.no_spaces let indent = del Rx.opt_space "\t" let attr_one (n:regexp) = Build.key_value n Sep.space_equal value let attr_lst (n:regexp) (op_eq: lens) = let value_entry = [ label "value" . value ] in Build.key_value n op_eq (opt_spc . Build.opt_list value_entry Sep.space)? let attr_lst_eq (n:regexp) = attr_lst n spc_equal let attr_lst_op (n:regexp) = attr_lst n op (* Variable: service_attr * Note: * It is much faster to combine, for example, all the attr_one * attributes into one regexp and pass that to a lens instead of * using lens union (attr_one "a" | attr_one "b"|..) because the latter * causes the type checker to work _very_ hard. *) let service_attr = attr_one (/socket_type|protocol|wait|user|group|server|instances/i |/rpc_version|rpc_number|id|port|nice|banner|bind|interface/i |/per_source|groups|banner_success|banner_fail|disable|max_load/i |/rlimit_as|rlimit_cpu|rlimit_data|rlimit_rss|rlimit_stack|v6only/i |/deny_time|umask|mdns|libwrap/i) (* redirect and cps aren't really lists, they take exactly two values *) |attr_lst_eq (/server_args|log_type|access_times|type|flags|redirect|cps/i) |attr_lst_op (/log_on_success|log_on_failure|only_from|no_access|env|passenv/i) let default_attr = attr_one (/instances|banner|bind|interface|per_source|groups/i |/banner_success|banner_fail|max_load|v6only|umask|mdns/i) |attr_lst_eq /cps/i (* really only two values, not a whole list *) |attr_lst_op (/log_type|log_on_success|log_on_failure|disabled/i |/no_access|only_from|passenv|enabled/i) (* View: body * Note: * We would really like to say "the body can contain any of a list * of a list of attributes, each of them at most once"; but that * would require that we build a lens that matches the permutation * of all attributes; with around 40 individual attributes, that's * not computationally feasible, even if we didn't have to worry * about how to write that down. The resulting regular expressions * would simply be prohibitively large. *) let body (attr:lens) = Build.block_newlines_spc (indent . attr . Util.eol) Util.comment (* View: includes * Note: * It would be nice if we could use the directories given in include and * includedir directives to parse additional files instead of hardcoding * all the places where xinetd config files can be found; but that is * currently not possible, and implementing that has a good amount of * hairy corner cases to consider. *) let includes = Build.key_value_line /include(dir)?/ Sep.space (store Rx.no_spaces) let service = let sto_re = /[^# \t\n\/]+/ in Build.key_value_line "service" Sep.space (store sto_re . body service_attr) let defaults = [ key "defaults" . body default_attr . Util.eol ] let lns = ( Util.empty | Util.comment | includes | defaults | service )* let filter = incl "/etc/xinetd.d/*" . incl "/etc/xinetd.conf" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �1�i8 8 lenses/dist/protocols.augnu �[��� (* Module: Protocols Parses /etc/protocols Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 protocols` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/protocols. See <filter>. About: Examples The <Test_Protocols> file contains various examples and tests. *) module Protocols = autoload xfm let protoname = /[^# \t\n]+/ (* View: entry *) let entry = let protocol = [ label "protocol" . store protoname ] in let number = [ label "number" . store Rx.integer ] in let alias = [ label "alias" . store protoname ] in [ seq "protocol" . protocol . Sep.space . number . (Sep.space . Build.opt_list alias Sep.space)? . Util.comment_or_eol ] (* View: lns The protocols lens *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/protocols" let xfm = transform lns filter PK ! U��?g g lenses/dist/httpd.augnu �[��� (* Apache HTTPD lens for Augeas Authors: David Lutterkort <lutter@redhat.com> Francis Giraldeau <francis.giraldeau@usherbrooke.ca> Raphael Pinson <raphink@gmail.com> About: Reference Online Apache configuration manual: http://httpd.apache.org/docs/trunk/ About: License This file is licensed under the LGPL v2+. About: Lens Usage Sample usage of this lens in augtool Apache configuration is represented by two main structures, nested sections and directives. Sections are used as labels, while directives are kept as a value. Sections and directives can have positional arguments inside values of "arg" nodes. Arguments of sections must be the firsts child of the section node. This lens doesn't support automatic string quoting. Hence, the string must be quoted when containing a space. Create a new VirtualHost section with one directive: > clear /files/etc/apache2/sites-available/foo/VirtualHost > set /files/etc/apache2/sites-available/foo/VirtualHost/arg "172.16.0.1:80" > set /files/etc/apache2/sites-available/foo/VirtualHost/directive "ServerAdmin" > set /files/etc/apache2/sites-available/foo/VirtualHost/*[self::directive="ServerAdmin"]/arg "admin@example.com" About: Configuration files This lens applies to files in /etc/httpd and /etc/apache2. See <filter>. *) module Httpd = autoload xfm (****************************************************************** * Utilities lens *****************************************************************) let dels (s:string) = del s s (* The continuation sequence that indicates that we should consider the * next line part of the current line *) let cont = /\\\\\r?\n/ (* Whitespace within a line: space, tab, and the continuation sequence *) let ws = /[ \t]/ | cont (* Any possible character - '.' does not match \n *) let any = /(.|\n)/ (* Any character preceded by a backslash *) let esc_any = /\\\\(.|\n)/ (* Newline sequence - both for Unix and DOS newlines *) let nl = /\r?\n/ (* Whitespace at the end of a line *) let eol = del (ws* . nl) "\n" (* deal with continuation lines *) let sep_spc = del ws+ " " let sep_osp = del ws* "" let sep_eq = del (ws* . "=" . ws*) "=" let nmtoken = /[a-zA-Z:_][a-zA-Z0-9:_.-]*/ let word = /[a-z][a-z0-9._-]*/i (* A complete line that is either just whitespace or a comment that only * contains whitespace *) let empty = [ del (ws* . /#?/ . ws* . nl) "\n" ] let indent = Util.indent (* A comment that is not just whitespace. We define it in terms of the * things that are not allowed as part of such a comment: * 1) Starts with whitespace * 2) Ends with whitespace, a backslash or \r * 3) Unescaped newlines *) let comment = let comment_start = del (ws* . "#" . ws* ) "# " in let unesc_eol = /[^\]?/ . nl in let w = /[^\t\n\r \\]/ in let r = /[\r\\]/ in let s = /[\t\r ]/ in (* * we'd like to write * let b = /\\\\/ in * let t = /[\t\n\r ]/ in * let x = b . (t? . (s|w)* ) in * but the definition of b depends on commit 244c0edd in 1.9.0 and * would make the lens unusable with versions before 1.9.0. So we write * x out which works in older versions, too *) let x = /\\\\[\t\n\r ]?[^\n\\]*/ in let line = ((r . s* . w|w|r) . (s|w)* . x*|(r.s* )?).w.(s*.w)* in [ label "#comment" . comment_start . store line . eol ] (* borrowed from shellvars.aug *) let char_arg_sec = /([^\\ '"\t\r\n>]|[^ '"\t\r\n>]+[^\\ \t\r\n>])|\\\\"|\\\\'|\\\\ / let char_arg_wl = /([^\\ '"},\t\r\n]|[^ '"},\t\r\n]+[^\\ '"},\t\r\n])/ let dquot = let no_dquot = /[^"\\\r\n]/ in /"/ . (no_dquot|esc_any)* . /"/ let dquot_msg = let no_dquot = /([^ \t"\\\r\n]|[^"\\\r\n]+[^ \t"\\\r\n])/ in /"/ . (no_dquot|esc_any)* . no_dquot let squot = let no_squot = /[^'\\\r\n]/ in /'/ . (no_squot|esc_any)* . /'/ let comp = /[<>=]?=/ (****************************************************************** * Attributes *****************************************************************) (* The arguments for a directive come in two flavors: quoted with single or * double quotes, or bare. Bare arguments may not start with a single or * double quote; since we also treat "word lists" special, i.e. lists * enclosed in curly braces, bare arguments may not start with those, * either. * * Bare arguments may not contain unescaped spaces, but we allow escaping * with '\\'. Quoted arguments can contain anything, though the quote must * be escaped with '\\'. *) let bare = /([^{"' \t\n\r]|\\\\.)([^ \t\n\r]|\\\\.)*[^ \t\n\r\\]|[^{"' \t\n\r\\]/ let arg_quoted = [ label "arg" . store (dquot|squot) ] let arg_bare = [ label "arg" . store bare ] (* message argument starts with " but ends at EOL *) let arg_dir_msg = [ label "arg" . store dquot_msg ] let arg_wl = [ label "arg" . store (char_arg_wl+|dquot|squot) ] (* comma-separated wordlist as permitted in the SSLRequire directive *) let arg_wordlist = let wl_start = dels "{" in let wl_end = dels "}" in let wl_sep = del /[ \t]*,[ \t]*/ ", " in [ label "wordlist" . wl_start . arg_wl . (wl_sep . arg_wl)* . wl_end ] let argv (l:lens) = l . (sep_spc . l)* (* the arguments of a directive. We use this once we have parsed the name * of the directive, and the space right after it. When dir_args is used, * we also know that we have at least one argument. We need to be careful * with the spacing between arguments: quoted arguments and word lists do * not need to have space between them, but bare arguments do. * * Apache apparently is also happy if the last argument starts with a double * quote, but has no corresponding closing duoble quote, which is what * arg_dir_msg handles *) let dir_args = let arg_nospc = arg_quoted|arg_wordlist in (arg_bare . sep_spc | arg_nospc . sep_osp)* . (arg_bare|arg_nospc|arg_dir_msg) let directive = [ indent . label "directive" . store word . (sep_spc . dir_args)? . eol ] let arg_sec = [ label "arg" . store (char_arg_sec+|comp|dquot|squot) ] let section (body:lens) = (* opt_eol includes empty lines *) let opt_eol = del /([ \t]*#?[ \t]*\r?\n)*/ "\n" in let inner = (sep_spc . argv arg_sec)? . sep_osp . dels ">" . opt_eol . ((body|comment) . (body|empty|comment)*)? . indent . dels "</" in let kword = key (word - /perl/i) in let dword = del (word - /perl/i) "a" in [ indent . dels "<" . square kword inner dword . del />[ \t\n\r]*/ ">\n" ] let perl_section = [ indent . label "Perl" . del /<perl>/i "<Perl>" . store /[^<]*/ . del /<\/perl>/i "</Perl>" . eol ] let rec content = section (content|directive) | perl_section let lns = (content|directive|comment|empty)* let filter = (incl "/etc/apache2/apache2.conf") . (incl "/etc/apache2/httpd.conf") . (incl "/etc/apache2/ports.conf") . (incl "/etc/apache2/conf.d/*") . (incl "/etc/apache2/conf-available/*.conf") . (incl "/etc/apache2/mods-available/*") . (incl "/etc/apache2/sites-available/*") . (incl "/etc/apache2/vhosts.d/*.conf") . (incl "/etc/httpd/conf.d/*.conf") . (incl "/etc/httpd/httpd.conf") . (incl "/etc/httpd/conf/httpd.conf") . (incl "/etc/httpd/conf.modules.d/*.conf") . Util.stdexcl let xfm = transform lns filter PK ! P��_� � lenses/dist/shells.augnu �[��� (* Module: Shells Parses /etc/shells Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 shells` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/shells. See <filter>. *) module Shells = autoload xfm let empty = Util.empty let comment = Util.comment let comment_or_eol = Util.comment_or_eol let shell = [ seq "shell" . store /[^# \t\n]+/ . comment_or_eol ] (* View: lns The shells lens *) let lns = ( empty | comment | shell )* (* Variable: filter *) let filter = incl "/etc/shells" let xfm = transform lns filter PK ! �Fc e e lenses/dist/collectd.augnu �[��� (* Module: Collectd Parses collectd configuration files Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 collectd.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to collectd configuration files. See <filter>. About: Examples The <Test_Collectd> file contains various examples and tests. *) module Collectd = autoload xfm (* View: lns Collectd is essentially Httpd-compliant configuration files *) let lns = Httpd.lns (* Variable: filter *) let filter = incl "/etc/collectd.conf" . incl "/etc/collectd/*.conf" . incl "/usr/share/doc/collectd/examples/collection3/etc/collection.conf" let xfm = transform lns filter PK ! �o|� � lenses/dist/odbc.augnu �[��� (* ODBC lens for Augeas Author: Marc Fournier <marc.fournier@camptocamp.com> odbc.ini and odbcinst.ini are standard INI files. *) module Odbc = autoload xfm (************************************************************************ * INI File settings * odbc.ini only supports "# as commentary and "=" as separator ************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" (************************************************************************ * ENTRY * odbc.ini uses standard INI File entries ************************************************************************) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * RECORD * odbc.ini uses standard INI File records ************************************************************************) let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER ************************************************************************) let lns = IniFile.lns record comment let filter = incl "/etc/odbc.ini" . incl "/etc/odbcinst.ini" let xfm = transform lns filter PK ! �� h h lenses/dist/oz.augnu �[��� (* Module: Oz Oz module for Augeas Author: Pat Riehecky <riehecky@fnal.gov> oz.cfg is a standard INI File. *) module Oz = autoload xfm (************************************************************************ * Group: INI File settings * avahi-daemon.conf only supports "# as commentary and "=" as separator *************************************************************************) (* View: comment *) let comment = IniFile.comment "#" "#" (* View: sep *) let sep = IniFile.sep "=" "=" (************************************************************************ * Group: Entry *************************************************************************) (* View: entry *) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * Group: Record *************************************************************************) (* View: title *) let title = IniFile.indented_title IniFile.record_re (* View: record *) let record = IniFile.record title entry (************************************************************************ * Group: Lens and filter *************************************************************************) (* View: lns *) let lns = IniFile.lns record comment (* View: filter *) let filter = (incl "/etc/oz/oz.cfg") let xfm = transform lns filter PK ! ��"� lenses/dist/systemd.augnu �[��� (* Module: Systemd Parses systemd unit files. Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to systemd.unit(5) and systemd.service(5) etc where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /lib/systemd/system/* and /etc/systemd/system/*. See <filter>. *) module Systemd = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: eol *) let eol = Util.eol (* View: eol_comment An <IniFile.comment> entry for standalone comment lines (; or #) *) let comment = IniFile.comment IniFile.comment_re "#" (* View: eol_comment An <IniFile.comment> entry for end of line comments (# only) *) let eol_comment = IniFile.comment "#" "#" (* View: sep An <IniFile.sep> entry *) let sep = IniFile.sep "=" "=" (* Variable: entry_single_kw *) let entry_single_kw = "Description" (* Variable: entry_command_kw *) let entry_command_kw = /Exec[A-Za-z][A-Za-z0-9._-]+/ (* Variable: entry_env_kw *) let entry_env_kw = "Environment" (* Variable: entry_multi_kw *) let entry_multi_kw = let forbidden = entry_single_kw | entry_command_kw | entry_env_kw in /[A-Za-z][A-Za-z0-9._-]+/ - forbidden (* Variable: value_single_re *) let value_single_re = /[^# \t\n\\][^#\n\\]*[^# \t\n\\]|[^# \t\n\\]/ (* View: sto_value_single Support multiline values with a backslash *) let sto_value_single = Util.del_opt_ws "" . store (value_single_re . (/\\\\\n/ . value_single_re)*) (* View: sto_value *) let sto_value = store /[^# \t\n]*[^# \t\n\\]/ (* Variable: value_sep Multi-value entries separated by whitespace or backslash and newline *) let value_sep = del /[ \t]+|[ \t]*\\\\[ \t]*\n[ \t]*/ " " (* Variable: value_cmd_re Don't parse @ and - prefix flags *) let value_cmd_re = /[^#@ \t\n\\-][^#@ \t\n\\-][^# \t\n\\]*/ (* Variable: env_key *) let env_key = /[A-Za-z0-9_]+(\[[0-9]+\])?/ (************************************************************************ * Group: ENTRIES *************************************************************************) (* Supported entry features, selected by key names: * multi-value space separated attrs (the default) * single-value attrs (Description) * systemd.service: Exec* attrs with flags, command and arguments * systemd.service: Environment NAME=arg *) (* View: entry_fn Prototype for our various key=value lines, with optional comment *) let entry_fn (kw:regexp) (val:lens) = [ key kw . sep . val . (eol_comment|eol) ] (* View: entry_value Store a value that doesn't contain spaces *) let entry_value = [ label "value" . sto_value ] (* View: entry_single Entry that takes a single value containing spaces *) let entry_single = entry_fn entry_single_kw [ label "value" . sto_value_single ]? (* View: entry_command Entry that takes a space separated set of values (the default) *) let entry_multi = entry_fn entry_multi_kw ( Util.del_opt_ws "" . Build.opt_list entry_value value_sep )? (* View: entry_command_flags Exec* flags "@" and "-". Order is important, see systemd.service(8) *) let entry_command_flags = let exit = [ label "ignoreexit" . Util.del_str "-" ] in let arg0 = [ label "arg0" . Util.del_str "@" ] in exit? . arg0? (* View: entry_command Entry that takes a command, arguments and the optional prefix flags *) let entry_command = let cmd = [ label "command" . store value_cmd_re ] in let arg = [ seq "args" . sto_value ] in let args = [ counter "args" . label "arguments" . (value_sep . arg)+ ] in entry_fn entry_command_kw ( entry_command_flags . cmd . args? )? (* View: entry_env Entry that takes a space separated set of ENV=value key/value pairs *) let entry_env = let envkv (env_val:lens) = key env_key . Util.del_str "=" . env_val (* bare has no spaces, and is optionally quoted *) in let bare = Quote.do_quote_opt (envkv (store /[^#'" \t\n]*[^#'" \t\n\\]/)?) in let bare_dqval = envkv (store /"[^#"\t\n]*[^#"\t\n\\]"/) in let bare_sqval = envkv (store /'[^#'\t\n]*[^#'\t\n\\]'/) (* quoted has at least one space, and must be quoted *) in let quoted = Quote.do_quote (envkv (store /[^#"'\n]*[ \t]+[^#"'\n]*/)) in let envkv_quoted = [ bare ] | [ bare_dqval ] | [ bare_sqval ] | [ quoted ] in entry_fn entry_env_kw ( Build.opt_list envkv_quoted value_sep ) (************************************************************************ * Group: LENS *************************************************************************) (* View: entry An <IniFile.entry> *) let entry = entry_single | entry_multi | entry_command | entry_env | comment (* View: include Includes another file at this position *) let include = [ key ".include" . Util.del_ws_spc . sto_value . (eol_comment|eol) ] (* View: title An <IniFile.title> *) let title = IniFile.title IniFile.record_re (* View: record An <IniFile.record> *) let record = IniFile.record title (entry|include) (* View: lns An <IniFile.lns> *) let lns = IniFile.lns record (comment|include) (* View: filter *) let filter = incl "/lib/systemd/system/*" . incl "/lib/systemd/system/*/*" . incl "/etc/systemd/system/*" . incl "/etc/systemd/system/*/*" . incl "/etc/systemd/logind.conf" . incl "/etc/sysconfig/*.systemd" . incl "/lib/systemd/network/*" . incl "/usr/local/lib/systemd/network/*" . incl "/etc/systemd/network/*" . excl "/lib/systemd/system/*.d" . excl "/etc/systemd/system/*.d" . excl "/lib/systemd/system/*.wants" . excl "/etc/systemd/system/*.wants" . Util.stdexcl let xfm = transform lns filter PK ! �~�0f f lenses/dist/opendkim.augnu �[��� module Opendkim = autoload xfm (* Inifile.comment is saner than Util.comment regarding spacing after the # *) let comment = Inifile.comment "#" "#" let eol = Util.eol let empty = Util.empty (* The Dataset spec is so broad as to encompass any string (particularly the degenerate 'single literal string' case of a comma separated list with only one item). So treat them as 'String' types, and it's up to the user to format them correctly. Given that many of the variants include file paths etc, it's impossible to validate for 'correctness' anyway *) let stringkv_rx = /ADSPAction|AuthservID|AutoRestartRate|BaseDirectory/ | /BogusKey|BogusPolicy|Canonicalization|ChangeRootDirectory/ | /DiagnosticDirectory|FinalPolicyScript|IdentityHeader|Include|KeyFile/ | /LDAPAuthMechanism|LDAPAuthName|LDAPAuthRealm|LDAPAuthUser/ | /LDAPBindPassword|LDAPBindUser|Minimum|Mode|MTACommand|Nameservers/ | /On-BadSignature|On-Default|On-DNSError|On-InternalError|On-KeyNotFound/ | /On-NoSignature|On-PolicyError|On-Security|On-SignatureError|PidFile/ | /ReplaceRules|ReportAddress|ReportBccAddress|ResolverConfiguration/ | /ScreenPolicyScript|SelectCanonicalizationHeader|Selector|SelectorHeader/ | /SenderMacro|SetupPolicyScript|SignatureAlgorithm|SMTPURI|Socket/ | /StatisticsName|StatisticsPrefix|SyslogFacility|TemporaryDirectory/ | /TestPublicKeys|TrustAnchorFile|UnprotectedKey|UnprotectedPolicy|UserID/ | /VBR-Certifiers|VBR-PurgeFields|VBR-TrustedCertifiers|VBR-Type/ | /BodyLengthDB|Domain|DontSignMailTo|ExemptDomains|ExternalIgnoreList/ | /InternalHosts|KeyTable|LocalADSP|MacroList|MTA|MustBeSigned|OmitHeaders/ | /OversignHeaders|PeerList|POPDBFile|RemoveARFrom|ResignMailTo/ | /SenderHeaders|SignHeaders|SigningTable|TrustSignaturesFrom/ let stringkv = key stringkv_rx . del /[ \t]+/ " " . store /[0-9a-zA-Z\/][^ \t\n#]+/ . eol let integerkv_rx = /AutoRestartCount|ClockDrift|DNSTimeout/ | /LDAPKeepaliveIdle|LDAPKeepaliveInterval|LDAPKeepaliveProbes|LDAPTimeout/ | /MaximumHeaders|MaximumSignaturesToVerify|MaximumSignedBytes|MilterDebug/ | /MinimumKeyBits|SignatureTTL|UMask/ let integerkv = key integerkv_rx . del /[ \t]+/ " " . store /[0-9]+/ . eol let booleankv_rx = /AddAllSignatureResults|ADSPNoSuchDomain/ | /AllowSHA1Only|AlwaysAddARHeader|AuthservIDWithJobID|AutoRestart/ | /Background|CaptureUnknownErrors|Diagnostics|DisableADSP/ | /DisableCryptoInit|DNSConnect|FixCRLF|IdentityHeaderRemove/ | /LDAPDisableCache|LDAPSoftStart|LDAPUseTLS|MultipleSignatures|NoHeaderB/ | /Quarantine|QueryCache|RemoveARAll|RemoveOldSignatures|ResolverTracing/ | /SelectorHeaderRemove|SendADSPReports|SendReports|SoftwareHeader/ | /StrictHeaders|StrictTestMode|SubDomains|Syslog|SyslogSuccess/ | /VBR-TrustedCertifiersOnly|WeakSyntaxChecks|LogWhy/ let booleankv = key booleankv_rx . del /[ \t]+/ " " . store /([Tt]rue|[Ff]alse|[Yy]es|[Nn]o|1|0)/ . eol let entry = [ integerkv ] | [ booleankv ] | [ stringkv ] let lns = (comment | empty | entry)* let xfm = transform lns (incl "/etc/opendkim.conf") PK ! �ɩF_ _ ! lenses/dist/mailscanner_rules.augnu �[��� (* Module: Mailscanner_rules Parses MailScanner rules files. Author: Andrew Colin Kissa <andrew@topdog.za.net> Baruwa Enterprise Edition http://www.baruwa.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to MailScanner rules files The format is described below: # NOTE: Fields are separated by TAB characters --- Important! # # Syntax is allow/deny/deny+delete/rename/rename to replacement-text/email-addresses, # then regular expression, # then log text, # then user report text. # The "email-addresses" can be a space or comma-separated list of email # addresses. If the rule hits, the message will be sent to these address(es) # instead of the original recipients. # If a rule is a "rename" rule, then the attachment filename will be renamed # according to the "Default Rename Pattern" setting in MailScanner.conf. # If a rule is a "rename" rule and the "to replacement-text" is supplied, then # the text matched by the regular expression in the 2nd field of the line # will be replaced with the "replacement-text" string. # For example, the rule # rename to .ppt \.pps$ Renamed .pps to .ppt Renamed .pps to .ppt # will find all filenames ending in ".pps" and rename them so they end in # ".ppt" instead. *) module Mailscanner_Rules = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = del /\n/ "\n" let ws = del /[\t]+/ "\t" let comment = Util.comment let empty = Util.empty let action = /allow|deny|deny\+delete|rename|rename[ ]+to[ ]+[^# \t\n]+|([A-Za-z0-9_+.-]+@[A-Za-z0-9_.-]+[, ]?)+/ let non_space = /[^# \t\n]+/ let non_tab = /[^\t\n]+/ let field (l:string) (r:regexp) = [ label l . store r ] (************************************************************************ * ENTRIES *************************************************************************) let entry = [ seq "rule" . field "action" action . ws . field "regex" non_tab . ws . field "log-text" non_tab . ws . field "user-report" non_tab . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry)* let filter = (incl "/etc/MailScanner/filename.rules.conf") . (incl "/etc/MailScanner/filetype.rules.conf") . (incl "/etc/MailScanner/archives.filename.rules.conf") . (incl "/etc/MailScanner/archives.filetype.rules.conf") let xfm = transform lns filter PK ! 4��� � lenses/dist/soma.augnu �[��� (* Soma module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man 5 soma.cfg *) module Soma = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let empty = Util.empty let sep_eq = del /[ \t]*=[ \t]*/ " = " let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ let word = /[A-Za-z0-9_.-]+/ (************************************************************************ * ENTRIES *************************************************************************) let entry = [ key word . sep_eq . sto_to_eol . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/somad/soma.cfg" let xfm = transform lns filter PK ! �F��g g lenses/dist/pagekite.augnu �[��� (* Module: Pagekite Parses /etc/pagekite.d/ Author: Michael Pimmer <blubb@fonfon.at> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. *) module Pagekite = autoload xfm (* View: lns *) (* Variables *) let equals = del /[ \t]*=[ \t]*/ "=" let neg2 = /[^# \n\t]+/ let neg3 = /[^# \:\n\t]+/ let eol = del /\n/ "\n" (* Match everything from here to eol, cropping whitespace at both ends *) let to_eol = /[^ \t\n](.*[^ \t\n])?/ (* A key followed by comma-separated values k: name of the key key_sep: separator between key and values value_sep: separator between values sto: store for values *) let key_csv_line (k:string) (key_sep:lens) (value_sep:lens) (sto:lens) = [ key k . key_sep . [ seq k . sto ] . [ seq k . value_sep . sto ]* . Util.eol ] (* entries for pagekite.d/10_account.rc *) let domain = [ key "domain" . equals . store neg2 . Util.comment_or_eol ] let frontend = Build.key_value_line ("frontend" | "frontends") equals (store Rx.neg1) let host = Build.key_value_line "host" equals (store Rx.ip) let ports = key_csv_line "ports" equals Sep.comma (store Rx.integer) let protos = key_csv_line "protos" equals Sep.comma (store Rx.word) (* entries for pagekite.d/20_frontends.rc *) let kitesecret = Build.key_value_line "kitesecret" equals (store Rx.space_in) let kv_frontend = Build.key_value_line ( "kitename" | "fe_certname" | "ca_certs" | "tls_endpoint" ) equals (store Rx.neg1) (* entries for services like 80_httpd.rc *) let service_colon = del /[ \t]*:[ \t]*/ " : " let service_on = [ key "service_on" . [ seq "service_on" . equals . [ label "protocol" . store neg3 ] . service_colon . [ label "kitename" . (store neg3) ] . service_colon . [ label "backend_host" . (store neg3) ] . service_colon . [ label "backend_port" . (store neg3) ] . service_colon . ( [ label "secret" . (store Rx.no_spaces) . Util.eol ] | eol ) ] ] let service_cfg = [ key "service_cfg" . equals . store to_eol . eol ] let flags = ( "defaults" | "isfrontend" | "abort_not_configured" | "insecure" ) let entries = Build.flag_line flags | domain | frontend | host | ports | protos | kv_frontend | kitesecret | service_on | service_cfg let lns = ( entries | Util.empty | Util.comment )* (* View: filter *) let filter = incl "/etc/pagekite.d/*.rc" . Util.stdexcl let xfm = transform lns filter PK ! ��{�} } lenses/dist/interfaces.augnu �[��� (* Interfaces module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man interfaces *) module Interfaces = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol (* Define separators *) (* a line can be extended across multiple lines by making the last *) (* character a backslash *) let sep_spc = del /([ \t]+|[ \t]*\\\\\n[ \t]*)/ " " (* Define fields *) let sto_to_eol = store /([^\\ \t\n].*[^\\ \t\n]|[^\\ \t\n])/ . eol let sto_to_spc = store /[^\\ \t\n]+/ (* Define comments and empty lines *) (* note that the comment definition from Util does not support *) (* splitting lines with a backlash *) let comment = Util.comment let empty = Util.empty (* Define tree stanza_ids *) let stanza_id (t:string) = key t . sep_spc . sto_to_spc let stanza_param (l:string) = [ sep_spc . label l . sto_to_spc ] (* Define reserved words and multi-value options *) let stanza_word = /(source(-directory)?|iface|auto|allow-[a-z-]+|mapping|bond-slaves|bridge-ports)/ (* Define stanza option indentation *) let stanza_indent = del /[ \t]*/ " " (* Define additional lines for multi-line stanzas *) let stanza_option = [ stanza_indent . key ( /[a-z0-9_-]+/ - stanza_word ) . sep_spc . sto_to_eol ] (* Define space-separated array *) let array (r:regexp) (t:string) = del r t . label t . counter t . [ sep_spc . seq t . sto_to_spc ]+ (************************************************************************ * AUTO *************************************************************************) let auto = [ array /(allow-)?auto/ "auto" . eol ] (************************************************************************ * GENERIC ALLOW *************************************************************************) let allow = [ key ( /allow-[a-z-]+/ - "allow-auto" ) . counter "allow_seq" . [ sep_spc . seq "allow_seq" . sto_to_spc ]+ . eol ] (************************************************************************ * MAPPING *************************************************************************) let mapping = [ stanza_id "mapping" . eol . (stanza_option|comment|empty)+ ] (************************************************************************ * IFACE *************************************************************************) let multi_option (t:string) = [ stanza_indent . array t t . eol ] let iface = [ Util.indent . stanza_id "iface" . stanza_param "family" . stanza_param "method" . eol . ( stanza_option | multi_option "bond-slaves" | multi_option "bridge-ports" | comment | empty )* ] (************************************************************************ * SOURCE *************************************************************************) let source = [ key "source" . sep_spc . sto_to_eol ] (************************************************************************ * SOURCE-DIRECTORY *************************************************************************) let source_directory = [ key "source-directory" . sep_spc . sto_to_eol ] (************************************************************************ * STANZAS *************************************************************************) (* The auto and hotplug stanzas always consist of one line only, while iface and mapping can spand along more lines. Comment nodes are inserted in the tree as direct children of the root node only when they come after an auto or hotplug stanza, otherwise they are considered part of an iface or mapping block *) let stanza_single = (auto|allow|source|source_directory) . (comment|empty)* let stanza_multi = iface|mapping (************************************************************************ * LENS & FILTER *************************************************************************) let lns = (comment|empty)* . (stanza_multi | stanza_single)* let filter = (incl "/etc/network/interfaces") . (incl "/etc/network/interfaces.d/*") . Util.stdexcl let xfm = transform lns filter PK ! ��Y� � lenses/dist/resolv.augnu �[��� (* Module: Resolv Parses /etc/resolv.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man resolv.conf` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/resolv.conf. See <filter>. *) module Resolv = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment *) let comment = Util.comment_generic /[ \t]*[;#][ \t]*/ "# " (* View: comment_eol *) let comment_eol = Util.comment_generic /[ \t]*[;#][ \t]*/ " # " (* View: empty *) let empty = Util.empty_generic_dos /[ \t]*[#;]?[ \t]*/ (************************************************************************ * Group: MAIN OPTIONS *************************************************************************) (* View: netmask A network mask for IP addresses *) let netmask = [ label "netmask" . Util.del_str "/" . store Rx.ip ] (* View: ipaddr An IP address or range with an optional mask *) let ipaddr = [label "ipaddr" . store Rx.ip . netmask?] (* View: nameserver A nameserver entry *) let nameserver = Build.key_value_line_comment "nameserver" Sep.space (store Rx.ip) comment_eol (* View: domain *) let domain = Build.key_value_line_comment "domain" Sep.space (store Rx.word) comment_eol (* View: search *) let search = Build.key_value_line_comment "search" Sep.space (Build.opt_list [label "domain" . store Rx.word] Sep.space) comment_eol (* View: sortlist *) let sortlist = Build.key_value_line_comment "sortlist" Sep.space (Build.opt_list ipaddr Sep.space) comment_eol (* View: lookup *) let lookup = let lookup_entry = Build.flag("bind"|"file"|"yp") in Build.key_value_line_comment "lookup" Sep.space (Build.opt_list lookup_entry Sep.space) comment_eol (* View: family *) let family = let family_entry = Build.flag("inet4"|"inet6") in Build.key_value_line_comment "family" Sep.space (Build.opt_list family_entry Sep.space) comment_eol (************************************************************************ * Group: SPECIAL OPTIONS *************************************************************************) (* View: ip6_dotint ip6-dotint option, which supports negation *) let ip6_dotint = let negate = [ del "no-" "no-" . label "negate" ] in [ negate? . key "ip6-dotint" ] (* View: options Options values *) let options = let options_entry = Build.key_value ("ndots"|"timeout"|"attempts") (Util.del_str ":") (store Rx.integer) | Build.flag ("debug"|"rotate"|"no-check-names" |"inet6"|"ip6-bytestring"|"edns0" |"single-request"|"single-request-reopen" |"no-tld-query"|"use-vc"|"no-reload") | ip6_dotint in Build.key_value_line_comment "options" Sep.space (Build.opt_list options_entry Sep.space) comment_eol (* View: entry *) let entry = nameserver | domain | search | sortlist | options | lookup | family (* View: lns *) let lns = ( empty | comment | entry )* (* Variable: filter *) let filter = (incl "/etc/resolv.conf") let xfm = transform lns filter PK ! � � � � lenses/dist/solaris_system.augnu �[��� (* Module: Solaris_System Parses /etc/system on Solaris Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to `man 4 system` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/system on Solaris. See <filter>. *) module Solaris_System = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES ************************************************************************) (* View: comment *) let comment = Util.comment_generic /[ \t]*\*[ \t]*/ "* " (* View: empty Map empty lines, including empty asterisk comments *) let empty = [ del /[ \t]*\*?[ \t]*\n/ "\n" ] (* View: sep_colon The separator for key/value entries *) let sep_colon = del /:[ \t]*/ ": " (* View: sep_moddir The separator of directories in a moddir search path *) let sep_moddir = del /[: ]+/ " " (* View: modpath Individual moddir search path entry *) let modpath = [ seq "modpath" . store /[^ :\t\n]+/ ] (* Variable: set_operator Valid set operators: equals, bitwise AND and OR *) let set_operators = /[=&|]/ (* View: set_value Sets an integer value or char pointer *) let set_value = [ label "value" . store Rx.no_spaces ] (************************************************************************ * Group: COMMANDS ************************************************************************) (* View: cmd_kv Function for simple key/value setting commands such as rootfs *) let cmd_kv (cmd:string) (value:regexp) = Build.key_value_line cmd sep_colon (store value) (* View: cmd_moddir The moddir command for specifying module search paths *) let cmd_moddir = Build.key_value_line "moddir" sep_colon (Build.opt_list modpath sep_moddir) (* View: set_var Loads the variable name from a set command, no module *) let set_var = [ label "variable" . store Rx.word ] (* View: set_var Loads the module and variable names from a set command *) let set_varmod = [ label "module" . store Rx.word ] . Util.del_str ":" . set_var (* View: set_sep_spc *) let set_sep_spc = Util.del_opt_ws " " (* View: cmd_set The set command for individual kernel/module parameters *) let cmd_set = [ key "set" . Util.del_ws_spc . ( set_var | set_varmod ) . set_sep_spc . [ label "operator" . store set_operators ] . set_sep_spc . set_value . Util.eol ] (************************************************************************ * Group: LENS ************************************************************************) (* View: lns *) let lns = ( empty | comment | cmd_moddir | cmd_kv "rootdev" Rx.fspath | cmd_kv "rootfs" Rx.word | cmd_kv "exclude" Rx.fspath | cmd_kv "include" Rx.fspath | cmd_kv "forceload" Rx.fspath | cmd_set )* (* Variable: filter *) let filter = (incl "/etc/system") let xfm = transform lns filter PK ! �f* lenses/dist/lightdm.augnu �[��� (* Module: Lightdm Lightdm module for Augeas for which parses /etc/lightdm/*.conf files which are standard INI file format. Author: David Salmen <dsalmen@dsalmen.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/lightdm/*.conf. See <filter>. About: Tests The tests/test_lightdm.aug file contains unit tests. *) module Lightdm = autoload xfm (************************************************************************ * INI File settings * * lightdm.conf only supports "# as commentary and "=" as separator *************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" (************************************************************************ * ENTRY * lightdm.conf uses standard INI File entries *************************************************************************) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * RECORD * lightdm.conf uses standard INI File records *************************************************************************) let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER * lightdm.conf uses standard INI File records *************************************************************************) let lns = IniFile.lns record comment let filter = (incl "/etc/lightdm/*.conf") let xfm = transform lns filter PK ! =�i� � lenses/dist/simplelines.augnu �[��� (* Module: Simplelines Parses simple lines conffiles Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files See <filter>. About: Examples The <Test_Simplelines> file contains various examples and tests. *) module Simplelines = autoload xfm (* View: line A simple, uncommented, line *) let line = let line_re = /[^# \t\n].*[^ \t\n]|[^# \t\n]/ in [ seq "line" . Util.indent . store line_re . Util.eol ] (* View: lns The simplelines lens *) let lns = (Util.empty | Util.comment | line)* (* Variable: filter *) let filter = incl "/etc/at.allow" . incl "/etc/at.deny" . incl "/etc/cron.allow" . incl "/etc/cron.deny" . incl "/etc/cron.d/at.allow" . incl "/etc/cron.d/at.deny" . incl "/etc/cron.d/cron.allow" . incl "/etc/cron.d/cron.deny" . incl "/etc/default/grub_installdevice" . incl "/etc/pam.d/allow.pamlist" . incl "/etc/hostname.*" let xfm = transform lns filter PK ! �UnO� � lenses/dist/grubenv.augnu �[��� (* Parsing /boot/grub/grubenv *) module GrubEnv = autoload xfm let eol = Util.del_str "\n" let comment = Util.comment let eq = Util.del_str "=" let value = /[^\\\n]*(\\\\(\\\\|\n)[^\\\n]*)*/ let word = /[A-Za-z_][A-Za-z0-9_]*/ let record = [ seq "target" . [ label "name" . store word ] . eq . [ label "value" . store value ] . eol ] let lns = ( comment | record ) * let xfm = transform lns (incl "/boot/grub/grubenv" . incl "/boot/grub2/grubenv") PK ! �<+�' ' lenses/dist/nslcd.augnu �[��� (* Module: Nslcd Parses /etc/nslcd.conf Author: Jose Plana <jplana@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 nslcd.conf` where possible. License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool: * get uid > get /files/etc/nslcd.conf/threads * set ldap URI > set /files/etc/nslcd.conf/uri "ldaps://x.y.z" * get cache values > get /files/etc/nslcd.conf/cache * change syslog level to debug > set /files/etc/nslcd.conf/log "syslog debug" * add/change filter for the passwd map > set /files/etc/nslcd.conf/filter/passwd "(objectClass=posixGroup)" * change the default search scope > set /files/etc/nslcd.conf/scope[count( * )] "subtree" * get the default search scope > get /files/etc/nslcd.conf/scope[count( * )] "subtree" * add/set a scope search value for a specific (host) map > set /files/etc/nslcd.conf/scope[host]/host "subtree" * get all default base search > match /files/etc/nslcd.conf/base[count( * ) = 0] * get the 3rd base search default value > get /files/etc/nslcd.conf/base[3] * add a new base search default value > set /files/etc/nslcd.conf/base[last()+1] "dc=example,dc=com" * change a base search default value to a new base value > set /files/etc/nslcd.conf/base[self::* = "dc=example,dc=com"] "dc=test,dc=com" * add/change a base search for a specific map (hosts) > set /files/etc/nslcd.conf/base[hosts]/hosts "dc=hosts,dc=example,dc=com" * add a base search for a specific map (passwd) > set /files/etc/nslcd.conf/base[last()+1]/passwd "dc=users,dc=example,dc=com" * remove all base search value for a map (rpc) > rm /files/etc/nslcd.conf/base/rpc * remove a specific search base value for a map (passwd) > rm /files/etc/nslcd.conf/base/passwd[self::* = "dc=users,dc=example,dc=com"] * get an attribute mapping value for a map > get /files/etc/nslcd.conf/map/passwd/homeDirectory * get all attribute values for a map > match /files/etc/nslcd.conf/map/passwd/* * set a specific attribute for a map > set /files/etc/nslcd.conf/map/passwd/homeDirectory "\"${homeDirectory:-/home/$uid}\"" * add/change a specific attribute for a map (a map that might not be defined before) > set /files/etc/nslcd.conf/map[shadow/userPassword]/shadow/userPassword "*" * remove an attribute for a specific map > rm /files/etc/nslcd.conf/map/shadow/userPassword * remove all attributes for a specific map > rm /files/etc/nslcd.conf/map/passwd/* About: Configuration files This lens applies to /etc/nslcd.conf. See <filter>. About: Examples The <Test_Nslcd> file contains various examples and tests. *) module Nslcd = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* View: eol *) let eol = Util.eol (* View: empty *) let empty = Util.empty (* View: spc *) let spc = Util.del_ws_spc (* View: comma *) let comma = Sep.comma (* View: comment *) let comment = Util.comment (* View: do_dquote *) let do_dquote = Quote.do_dquote (* View: opt_list *) let opt_list = Build.opt_list (* Group: Ldap related values Values that need to be parsed. *) (* Variable: ldap_rdn *) let ldap_rdn = /[A-Za-z][A-Za-z]+=[A-Za-z0-9_.-]+/ (* Variable: ldap_dn *) let ldap_dn = ldap_rdn . (/(,)?/ . ldap_rdn)* (* Variable: ldap_filter *) let ldap_filter = /\(.*\)/ (* Variable: ldap_scope *) let ldap_scope = /sub(tree)?|one(level)?|base/ (* Variable: map_names *) let map_names = /alias(es)?/ | /ether(s)?/ | /group/ | /host(s)?/ | /netgroup/ | /network(s)?/ | /passwd/ | /protocol(s)?/ | /rpc/ | /service(s)?/ | /shadow/ (* Variable: key_name *) let key_name = /[^ #\n\t\/][^ #\n\t\/]+/ (************************************************************************ * Group: CONFIGURATION ENTRIES *************************************************************************) (* Group: Generic definitions *) (* View: simple_entry The simplest configuration option a key spc value. As in `gid id` *) let simple_entry (kw:string) = Build.key_ws_value kw (* View: simple_entry_quoted_value Simple entry with quoted value *) let simple_entry_quoted_value (kw:string) = Build.key_value_line kw spc (do_dquote (store /.*/)) (* View simple_entry_opt_list_comma_value Simple entry that contains a optional list separated by commas *) let simple_entry_opt_list_value (kw:string) (lsep:lens) = Build.key_value_line kw spc (opt_list [ seq kw . store /[^, \t\n\r]+/ ] (lsep)) (* View: key_value_line_regexp A simple configuration option but specifying the regex for the value. *) let key_value_line_regexp (kw:string) (sto:regexp) = Build.key_value_line kw spc (store sto) (* View: mapped_entry A mapped configuration as in `filter MAP option`. *) let mapped_entry (kw:string) (sto:regexp) = [ key kw . spc . Build.key_value_line map_names spc (store sto) ] (* View: key_value_line_regexp_opt_map A mapped configuration but the MAP value is optional as in scope [MAP] value`. *) let key_value_line_regexp_opt_map (kw:string) (sto:regexp) = ( key_value_line_regexp kw sto | mapped_entry kw sto ) (* View: map_entry A map entry as in `map MAP ATTRIBUTE NEWATTRIBUTE`. *) let map_entry = [ key "map" . spc . [ key map_names . spc . [ key key_name . spc . store Rx.no_spaces ] ] .eol ] (* Group: Option definitions *) (* View: Base entry *) let base_entry = key_value_line_regexp_opt_map "base" ldap_dn (* View: Scope entry *) let scope_entry = key_value_line_regexp_opt_map "scope" ldap_scope (* View: Filter entry *) let filter_entry = mapped_entry "filter" ldap_filter (* View: entries All the combined entries. *) let entries = map_entry | base_entry | scope_entry | filter_entry | simple_entry "threads" | simple_entry "uid" | simple_entry "gid" | simple_entry_opt_list_value "uri" spc | simple_entry "ldap_version" | simple_entry "binddn" | simple_entry "bindpw" | simple_entry "rootpwmoddn" | simple_entry "rootpwmodpw" | simple_entry "sasl_mech" | simple_entry "sasl_realm" | simple_entry "sasl_authcid" | simple_entry "sasl_authzid" | simple_entry "sasl_secprops" | simple_entry "sasl_canonicalize" | simple_entry "krb5_ccname" | simple_entry "deref" | simple_entry "referrals" | simple_entry "bind_timelimit" | simple_entry "timelimit" | simple_entry "idle_timelimit" | simple_entry "reconnect_sleeptime" | simple_entry "reconnect_retrytime" | simple_entry "ssl" | simple_entry "tls_reqcert" | simple_entry "tls_cacertdir" | simple_entry "tls_cacertfile" | simple_entry "tls_randfile" | simple_entry "tls_ciphers" | simple_entry "tls_cert" | simple_entry "tls_key" | simple_entry "pagesize" | simple_entry_opt_list_value "nss_initgroups_ignoreusers" comma | simple_entry "nss_min_uid" | simple_entry "nss_nested_groups" | simple_entry "nss_getgrent_skipmembers" | simple_entry "nss_disable_enumeration" | simple_entry "validnames" | simple_entry "ignorecase" | simple_entry "pam_authz_search" | simple_entry_quoted_value "pam_password_prohibit_message" | simple_entry "reconnect_invalidate" | simple_entry "cache" | simple_entry "log" | simple_entry "pam_authc_ppolicy" (* View: lens *) let lns = (entries|empty|comment)+ (* View: filter *) let filter = incl "/etc/nslcd.conf" . Util.stdexcl let xfm = transform lns filter PK ! H��S� � lenses/dist/group.augnu �[��� (* Group module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man 5 group *) module Group = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let empty = Util.empty let dels = Util.del_str let colon = Sep.colon let comma = Sep.comma let sto_to_spc = store Rx.space_in let sto_to_col = Passwd.sto_to_col let word = Rx.word let password = /[A-Za-z0-9_.!*-]*/ let integer = Rx.integer (************************************************************************ * ENTRIES *************************************************************************) let user = [ label "user" . store word ] let user_list = Build.opt_list user comma let params = [ label "password" . store password . colon ] . [ label "gid" . store integer . colon ] . user_list? let entry = Build.key_value_line word colon params let nisdefault = let overrides = colon . [ label "password" . store password? . colon ] . [ label "gid" . store integer? . colon ] . user_list? in [ dels "+" . label "@nisdefault" . overrides? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|nisdefault) * let filter = incl "/etc/group" let xfm = transform lns filter PK ! ɜ�KM M lenses/dist/pam.augnu �[��� (* Module: Pam Parses /etc/pam.conf and /etc/pam.d/* service files Author: David Lutterkort <lutter@redhat.com> About: Reference This lens tries to keep as close as possible to `man pam.conf` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens autoloads /etc/pam.d/* for service specific files. See <filter>. It provides a lens for /etc/pam.conf, which is used in the PamConf module. *) module Pam = autoload xfm let eol = Util.eol let indent = Util.indent let space = del /([ \t]|\\\\\n)+/ " " (* For the control syntax of [key=value ..] we could split the key value *) (* pairs into an array and generate a subtree control/N/KEY = VALUE *) (* The valid control values if the [...] syntax is not used, is *) (* required|requisite|optional|sufficient|include|substack *) (* We allow more than that because this list is not case sensitive and *) (* to be more lenient with typos *) let control = /(\[[^]#\n]*\]|[a-zA-Z]+)/ let word = /([^# \t\n\\]|\\\\.)+/ (* Allowed types *) let types = /(auth|session|account|password)/i (* This isn't entirely right: arguments enclosed in [ .. ] can contain *) (* a ']' if escaped with a '\' and can be on multiple lines ('\') *) let argument = /(\[[^]#\n]+\]|[^[#\n \t\\][^#\n \t\\]*)/ let comment = Util.comment let comment_or_eol = Util.comment_or_eol let empty = Util.empty (* Not mentioned in the man page, but Debian uses the syntax *) (* @include module *) (* quite a bit *) let include = [ indent . Util.del_str "@" . key "include" . space . store word . eol ] (* Shared with PamConf *) let record = [ label "optional" . del "-" "-" ]? . [ label "type" . store types ] . space . [ label "control" . store control] . space . [ label "module" . store word ] . [ space . label "argument" . store argument ]* . comment_or_eol let record_svc = [ seq "record" . indent . record ] let lns = ( empty | comment | include | record_svc ) * let filter = incl "/etc/pam.d/*" . excl "/etc/pam.d/allow.pamlist" . excl "/etc/pam.d/README" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! o�0�� � lenses/dist/rancid.augnu �[��� (* Module: Rancid Parses RANCiD router database Author: Matt Dainty <matt@bodgit-n-scarper.com> About: Reference - man 5 router.db Each line represents a record consisting of a number of ';'-separated fields the first of which is the IP/Hostname of the device, followed by the type, its state and optionally a comment. *) module Rancid = autoload xfm let sep = Util.del_str ";" let field = /[^;#\n]+/ let comment = [ label "comment" . store /[^;#\n]*/ ] let eol = Util.del_str "\n" let record = [ label "device" . store field . sep . [ label "type" . store field ] . sep . [ label "state" . store field ] . ( sep . comment )? . eol ] let lns = ( Util.empty | Util.comment_generic /#[ \t]*/ "# " | record )* let filter = incl "/var/rancid/*/router.db" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��u� � lenses/dist/dput.augnu �[��� (* Dput module for Augeas Author: Raphael Pinson <raphink@gmail.com> Reference: dput uses Python's ConfigParser: http://docs.python.org/lib/module-ConfigParser.html *) module Dput = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let setting = "allow_dcut" | "allow_non-us_software" | "allow_unsigned_uploads" | "check_version" | "default_host_main" | "default_host_non-us" | "fqdn" | "hash" | "incoming" | "login" | "method" | "passive_ftp" | "post_upload_command" | "pre_upload_command" | "progress_indicator" | "run_dinstall" | "run_lintian" | "scp_compress" | "ssh_config_options" | "allowed_distributions" (************************************************************************ * "name: value" entries, with continuations in the style of RFC 822; * "name=value" is also accepted * leading whitespace is removed from values *************************************************************************) let entry = IniFile.entry setting sep comment (************************************************************************ * sections, led by a "[section]" header * We can't use titles as node names here since they could contain "/" * We remove #comment from possible keys * since it is used as label for comments * We also remove / as first character * because augeas doesn't like '/' keys (although it is legal in INI Files) *************************************************************************) let title = IniFile.title_label "target" IniFile.record_label_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = (incl "/etc/dput.cf") . (incl (Sys.getenv("HOME") . "/.dput.cf")) let xfm = transform lns filter PK ! �i( ( lenses/dist/schroot.augnu �[��� (* Module: Schroot Parses /etc/schroot/schroot.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 schroot.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/schroot/schroot.conf. See <filter>. *) module Schroot = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment An <IniFile.comment> entry *) let comment = IniFile.comment "#" "#" (* View: sep An <IniFile.sep> entry *) let sep = IniFile.sep "=" "=" (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: description Descriptions are special entries, which can have an optional lang parameter *) let description = let lang = [ Util.del_str "[" . label "lang" . store IniFile.entry_re . Util.del_str "]" ] in IniFile.entry_generic_nocomment (key "description" . lang?) sep "#" comment (* View: entry An <IniFile.entry>, or <description> *) let entry = IniFile.entry (IniFile.entry_re - "description") sep comment | description (* View: title An <IniFile.title> *) let title = IniFile.title IniFile.record_re (* View: record An <IniFile.record> *) let record = IniFile.record title entry (* View: lns An <IniFile.lns> *) let lns = IniFile.lns record comment (* View: filter *) let filter = (incl "/etc/schroot/schroot.conf") let xfm = transform lns filter PK ! ��uy� � lenses/dist/qpid.augnu �[��� (* Module: Qpid Parses Apache Qpid daemon/client configuration files Author: Andrew Replogle <areplogl@redhat.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Examples The <Test_Qpid> file contains various examples and tests. *) module Qpid = autoload xfm (* View: entry *) let entry = Build.key_value_line Rx.word Sep.equal (store Rx.space_in) (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/qpidd.conf" . incl "/etc/qpid/qpidc.conf" let xfm = transform lns filter PK ! ��#W W lenses/dist/gtkbookmarks.augnu �[��� (* Module: GtkBookmarks Parses $HOME/.gtk-bookmarks Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to $HOME/.gtk-bookmarks. See <filter>. About: Examples The <Test_GtkBookmarks> file contains various examples and tests. *) module GtkBookmarks = autoload xfm (* View: empty Comment are not allowed, even empty comments *) let empty = Util.empty_generic Rx.opt_space (* View: entry *) let entry = [ label "bookmark" . store Rx.no_spaces . (Sep.space . [ label "label" . store Rx.space_in ])? . Util.eol ] (* View: lns *) let lns = (empty | entry)* (* View: xfm *) let xfm = transform lns (incl (Sys.getenv("HOME") . "/.gtk-bookmarks")) PK ! Q,���? �? lenses/dist/squid.augnu �[��� (* Squid module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: the self-documented default squid.conf file *) module Squid = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let spc = Util.del_ws_spc let indent = Util.indent let word = /[A-Za-z0-9!_.-]+(\[[0-9]+\])?/ let sto_to_spc = store /[^# \t\n]+/ let sto_to_eol = store /([^# \t\n][^#\n]*[^# \t\n])|[^# \t\n]/ let comment = Util.comment let empty = Util.empty let comment_or_eol = Util.comment_or_eol let value (kw:string) = [ spc . label kw . sto_to_spc ] let value_space_in (kw:string) = [ spc . label kw . sto_to_eol ] let parameters = [ label "parameters" . counter "parameters" . [ spc . seq "parameters" . sto_to_spc ]+ ] (************************************************************************ * SPACEVARS SETTINGS *************************************************************************) let entry_re = "accept_filter" | "access_log" | "acl_uses_indirect_client" | "adaptation_access" | "adaptation_service_set" | "allow_underscore" | "always_direct" | "announce_file" | "announce_host" | "announce_period" | "announce_port" | "append_domain" | "as_whois_server" | "authenticate_cache_garbage_interval" | "authenticate_ip_shortcircuit_access" | "authenticate_ip_shortcircuit_ttl" | "authenticate_ip_ttl" | "authenticate_ttl" | "background_ping_rate" | "balance_on_multiple_ip" | "broken_posts" | "buffered_logs" | "cache" | "cache_dir" | "cache_dns_program" | "cache_effective_group" | "cache_effective_user" | "cache_log" | "cache_mem" | "cache_mgr" | "cachemgr_passwd" | "cache_peer" | "cache_peer_access" | "cache_peer_domain" | "cache_replacement_policy" | "cache_store_log" | "cache_swap_high" | "cache_swap_low" | "cache_swap_state" | "cache_vary" | "check_hostnames" | "chroot" | "client_db" | "client_lifetime" | "client_netmask" | "client_persistent_connections" | "clientside_tos" | "collapsed_forwarding" | "connect_timeout" | "coredump_dir" | "dead_peer_timeout" | "debug_options" | "delay_access" | "delay_class" | "delay_initial_bucket_level" | "delay_parameters" | "delay_pools" | "delay_pool_uses_indirect_client" | "deny_info" | "detect_broken_pconn" | "digest_bits_per_entry" | "digest_generation" | "digest_rebuild_chunk_percentage" | "digest_rebuild_period" | "digest_rewrite_period" | "digest_swapout_chunk_size" | "diskd_program" | "dns_children" | "dns_defnames" | "dns_nameservers" | "dns_retransmit_interval" | "dns_testnames" | "dns_timeout" | "dns_v4_fallback" | "ecap_enable" | "ecap_service" | "email_err_data" | "emulate_httpd_log" | "err_html_text" | "error_default_language" | "error_directory" | "error_log_languages" | "error_map" | "err_page_stylesheet" | "esi_parser" | "external_acl_type" | "external_refresh_check" | "follow_x_forwarded_for" | "forwarded_for" | "forward_log" | "forward_timeout" | "fqdncache_size" | "ftp_epsv_all" | "ftp_list_width" | "ftp_passive" | "ftp_sanitycheck" | "ftp_telnet_protocol" | "ftp_user" | "global_internal_static" | "half_closed_clients" | "header_access" | "header_replace" | "hierarchy_stoplist" | "high_memory_warning" | "high_page_fault_warning" | "high_response_time_warning" | "hostname_aliases" | "hosts_file" | "htcp_access" | "htcp_clr_access" | "htcp_port" | "http_accel_surrogate_remote" | "http_access2" | "httpd_accel_no_pmtu_disc" | "httpd_accel_surrogate_id" | "httpd_suppress_version_string" | "http_port" | "http_reply_access" | "https_port" | "icap_access" | "icap_class" | "icap_client_username_encode" | "icap_client_username_header" | "icap_connect_timeout" | "icap_default_options_ttl" | "icap_enable" | "icap_io_timeout" | "icap_persistent_connections" | "icap_preview_enable" | "icap_preview_size" | "icap_send_client_ip" | "icap_send_client_username" | "icap_service" | "icap_service_failure_limit" | "icap_service_revival_delay" | "icon_directory" | "icp_access" | "icp_hit_stale" | "icp_port" | "icp_query_timeout" | "ident_lookup_access" | "ident_timeout" | "ie_refresh" | "ignore_expect_100" | "ignore_ims_on_miss" | "ignore_unknown_nameservers" | "incoming_dns_average" | "incoming_http_average" | "incoming_icp_average" | "incoming_rate" | "ipcache_high" | "ipcache_low" | "ipcache_size" | "loadable_modules" | "location_rewrite_access" | "location_rewrite_children" | "location_rewrite_concurrency" | "location_rewrite_program" | "log_access" | "logfile_daemon" | "logfile_rotate" | "logformat" | "log_fqdn" | "log_icp_queries" | "log_ip_on_direct" | "log_mime_hdrs" | "log_uses_indirect_client" | "mail_from" | "mail_program" | "max_filedescriptors" | "maximum_icp_query_timeout" | "maximum_object_size" | "maximum_object_size_in_memory" | "maximum_single_addr_tries" | "max_open_disk_fds" | "max_stale" | "mcast_groups" | "mcast_icp_query_timeout" | "mcast_miss_addr" | "mcast_miss_encode_key" | "mcast_miss_port" | "mcast_miss_ttl" | "memory_pools" | "memory_pools_limit" | "memory_replacement_policy" | "mime_table" | "min_dns_poll_cnt" | "min_http_poll_cnt" | "min_icp_poll_cnt" | "minimum_direct_hops" | "minimum_direct_rtt" | "minimum_expiry_time" | "minimum_icp_query_timeout" | "minimum_object_size" | "miss_access" | "negative_dns_ttl" | "negative_ttl" | "neighbor_type_domain" | "netdb_filename" | "netdb_high" | "netdb_low" | "netdb_ping_period" | "never_direct" | "no_cache" | "nonhierarchical_direct" | "offline_mode" | "pconn_timeout" | "peer_connect_timeout" | "persistent_connection_after_error" | "persistent_request_timeout" | "pid_filename" | "pinger_enable" | "pinger_program" | "pipeline_prefetch" | "positive_dns_ttl" | "prefer_direct" | "qos_flows" | "query_icmp" | "quick_abort_max" | "quick_abort_min" | "quick_abort_pct" | "range_offset_limit" | "read_ahead_gap" | "read_timeout" | "redirector_bypass" | "referer_log" | "refresh_all_ims" | "refresh_stale_hit" | "relaxed_header_parser" | "reload_into_ims" | "reply_body_max_size" | "reply_header_access" | "reply_header_max_size" | "request_body_max_size" | "request_entities" | "request_header_access" | "request_header_max_size" | "request_timeout" | "retry_on_error" | "server_http11" | "server_persistent_connections" | "short_icon_urls" | "shutdown_lifetime" | "sleep_after_fork" | "snmp_access" | "snmp_incoming_address" | "snmp_outgoing_address" | "snmp_port" | "ssl_bump" | "ssl_engine" | "sslpassword_program" | "sslproxy_cafile" | "sslproxy_capath" | "sslproxy_cert_error" | "sslproxy_cipher" | "sslproxy_client_certificate" | "sslproxy_client_key" | "sslproxy_flags" | "sslproxy_options" | "sslproxy_version" | "ssl_unclean_shutdown" | "store_avg_object_size" | "store_dir_select_algorithm" | "store_objects_per_bucket" | "storeurl_access" | "storeurl_rewrite_children" | "storeurl_rewrite_concurrency" | "storeurl_rewrite_program" | "strip_query_terms" | "tcp_outgoing_address" | "tcp_outgoing_tos" | "tcp_recv_bufsize" | "test_reachability" | "udp_incoming_address" | "udp_outgoing_address" | "umask" | "unique_hostname" | "unlinkd_program" | "update_headers" | "uri_whitespace" | "url_rewrite_access" | "url_rewrite_bypass" | "url_rewrite_children" | "url_rewrite_concurrency" | "url_rewrite_host_header" | "url_rewrite_program" | "useragent_log" | "vary_ignore_expire" | "via" | "visible_hostname" | "wccp2_address" | "wccp2_assignment_method" | "wccp2_forwarding_method" | "wccp2_rebuild_wait" | "wccp2_return_method" | "wccp2_router" | "wccp2_service" | "wccp2_service_info" | "wccp2_weight" | "wccp_address" | "wccp_router" | "wccp_version" | "windows_ipaddrchangemonitor" | "zero_buffers" | "zph_local" | "zph_mode" | "zph_option" | "zph_parent" | "zph_sibling" let entry = indent . (Build.key_ws_value entry_re) (************************************************************************ * AUTH *************************************************************************) let auth_re = "auth_param" let auth = indent . [ key "auth_param" . value "scheme" . value "parameter" . (value_space_in "setting") ? . comment_or_eol ] (************************************************************************ * ACL *************************************************************************) let acl_re = "acl" let acl = indent . [ key acl_re . spc . [ key word . value "type" . value "setting" . parameters? . comment_or_eol ] ] (************************************************************************ * HTTP ACCESS *************************************************************************) let http_access_re = "http_access" | "upgrade_http0.9" | "broken_vary_encoding" let http_access = indent . [ key http_access_re . spc . [ key /allow|deny/ . spc . sto_to_spc . parameters? ] . comment_or_eol ] (************************************************************************ * REFRESH PATTERN *************************************************************************) let refresh_pattern_option_re = "override-expire" | "override-lastmod" | "reload-into-ims" | "ignore-reload" | "ignore-no-cache" | "ignore-no-store" | "ignore-must-revalidate" | "ignore-private" | "ignore-auth" | "refresh-ims" | "store-stale" let refresh_pattern = indent . [ key "refresh_pattern" . spc . [ label "case_insensitive" . Util.del_str "-i" . spc ]? . store /[^ \t\n]+/ . spc . [ label "min" . store Rx.integer ] . spc . [ label "percent" . store Rx.integer . Util.del_str "%" ] . spc . [ label "max" . store Rx.integer ] . (spc . Build.opt_list [ label "option" . store refresh_pattern_option_re ] spc)? . comment_or_eol ] (************************************************************************ * EXTENSION METHODS *************************************************************************) let extension_methods = indent . [ key "extension_methods" . spc . Build.opt_list [ seq "extension_method" . store Rx.word ] spc . comment_or_eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|auth|acl|http_access|refresh_pattern|extension_methods)* let filter = incl "/etc/squid/squid.conf" . incl "/etc/squid3/squid.conf" let xfm = transform lns filter PK ! �aG-/, /, lenses/dist/grub.augnu �[��� (* Module: Grub Parses grub configuration Author: David Lutterkort <lutter@redhat.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented *) module Grub = autoload xfm (* This only covers the most basic grub directives. Needs to be *) (* expanded to cover more (and more esoteric) directives *) (* It is good enough to handle the grub.conf on my Fedora 8 box *) (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: value_to_eol *) let value_to_eol = store /[^= \t\n][^\n]*[^= \t\n]|[^= \t\n]/ (* View: eol *) let eol = Util.eol (* View: spc *) let spc = Util.del_ws_spc (* View: opt_ws *) let opt_ws = Util.del_opt_ws "" (* View: dels *) let dels (s:string) = Util.del_str s (* View: eq *) let eq = dels "=" (* View: switch *) let switch (n:regexp) = dels "--" . key n (* View: switch_arg *) let switch_arg (n:regexp) = switch n . eq . store Rx.no_spaces (* View: value_sep *) let value_sep (dflt:string) = del /[ \t]*[ \t=][ \t]*/ dflt (* View: comment_re *) let comment_re = /([^ \t\n].*[^ \t\n]|[^ \t\n])/ - /# ## (Start|End) Default Options ##/ (* View: comment *) let comment = [ Util.indent . label "#comment" . del /#[ \t]*/ "# " . store comment_re . eol ] (* View: empty *) let empty = Util.empty (************************************************************************ * Group: USEFUL FUNCTIONS *************************************************************************) (* View: command *) let command (kw:regexp) (indent:string) = Util.del_opt_ws indent . key kw (* View: kw_arg *) let kw_arg (kw:regexp) (indent:string) (dflt_sep:string) = [ command kw indent . value_sep dflt_sep . value_to_eol . eol ] (* View: kw_boot_arg *) let kw_boot_arg (kw:regexp) = kw_arg kw "\t" " " (* View: kw_menu_arg *) let kw_menu_arg (kw:regexp) = kw_arg kw "" " " (* View: password_arg *) let password_arg = [ command "password" "" . (spc . [ switch "md5" ])? . (spc . [ switch "encrypted" ])? . spc . store (/[^ \t\n]+/ - /--[^ \t\n]+/) . (spc . [ label "file" . store /[^ \t\n]+/ ])? . eol ] (* View: kw_pres *) let kw_pres (kw:string) = [ opt_ws . key kw . eol ] (* View: error * Parse a line that looks almost like a valid setting, but isn't, * into an '#error' node. Any line that starts with letters, but not * anything matching kw, is considered an error line. * * Parameters: * kw:regexp - the valid keywords that are _not_ considered an * error *) let error (kw:regexp) = let not_kw = /[a-zA-Z]+/ - kw in [ label "#error" . Util.del_opt_ws "\t" . store (not_kw . /([^a-zA-Z\n].*[^ \t\n])?/) . eol ] (************************************************************************ * Group: BOOT ENTRIES *************************************************************************) (* View: device * This is a shell-only directive in upstream grub; the grub versions * in at least Fedora/RHEL use this to find devices for UEFI boot *) let device = [ command "device" "" . Sep.space . store /\([A-Za-z0-9_.-]+\)/ . spc . [ label "file" . value_to_eol ] . Util.eol ] (* View: color *) let color = (* Should we nail it down to exactly the color names that *) (* grub supports ? *) let color_name = store /[A-Za-z-]+/ in let color_spec = [ label "foreground" . color_name] . dels "/" . [ label "background" . color_name ] in [ opt_ws . key "color" . spc . [ label "normal" . color_spec ] . (spc . [ label "highlight" . color_spec ])? . eol ] (* View: serial *) let serial = [ command "serial" "" . [ spc . switch_arg /unit|port|speed|word|parity|stop|device/ ]* . eol ] (* View: terminal *) let terminal = [ command "terminal" "" . ([ spc . switch /dumb|no-echo|no-edit|silent/ ] |[ spc . switch_arg /timeout|lines/ ])* . [ spc . key /console|serial|hercules/ ]* . eol ] (* View: setkey *) let setkey = [ command "setkey" "" . ( spc . [ label "to" . store Rx.no_spaces ] . spc . [ label "from" . store Rx.no_spaces ] )? . eol ] (* View: menu_entry *) let menu_entry = kw_menu_arg "default" | kw_menu_arg "fallback" | kw_pres "hiddenmenu" | kw_menu_arg "timeout" | kw_menu_arg "splashimage" | kw_menu_arg "gfxmenu" | kw_menu_arg "foreground" | kw_menu_arg "background" | kw_menu_arg "verbose" | kw_menu_arg "boot" (* only for CLI, ignored in conf *) | serial | terminal | password_arg | color | device | setkey (* View: menu_error * Accept lines not matching menu_entry and stuff them into * '#error' nodes *) let menu_error = let kw = /default|fallback|hiddenmenu|timeout|splashimage|gfxmenu/ |/foreground|background|verbose|boot|password|title/ |/serial|setkey|terminal|color|device/ in error kw (* View: menu_setting * a valid menu setting or a line that looks like one but is an #error *) let menu_setting = menu_entry | menu_error (* View: title *) let title = del /title[ \t=]+/ "title " . value_to_eol . eol (* View: multiboot_arg * Permits a second form for Solaris multiboot kernels that * take a path (with a slash) as their first arg, e.g. * /boot/multiboot kernel/unix another=arg *) let multiboot_arg = [ label "@path" . store (Rx.word . "/" . Rx.no_spaces) ] (* View: kernel_args Parse the file name and args on a kernel or module line. *) let kernel_args = let arg = /[A-Za-z0-9_.$\+-]+/ - /type|no-mem-option/ in store /(\([a-z0-9,]+\))?\/[^ \t\n]*/ . (spc . multiboot_arg)? . (spc . [ key arg . (eq. store /([^ \t\n])*/)?])* . eol (* View: module_line Solaris extension adds module$ and kernel$ for variable interpolation *) let module_line = [ command /module\$?/ "\t" . spc . kernel_args ] (* View: map_line *) let map_line = [ command "map" "\t" . spc . [ label "from" . store /[()A-za-z0-9]+/ ] . spc . [ label "to" . store /[()A-za-z0-9]+/ ] . eol ] (* View: kernel *) let kernel = [ command /kernel\$?/ "\t" . (spc . ([switch "type" . eq . store /[a-z]+/] |[switch "no-mem-option"]))* . spc . kernel_args ] (* View: chainloader *) let chainloader = [ command "chainloader" "\t" . [ spc . switch "force" ]? . spc . store Rx.no_spaces . eol ] (* View: savedefault *) let savedefault = [ command "savedefault" "\t" . (spc . store Rx.integer)? . eol ] (* View: configfile *) let configfile = [ command "configfile" "\t" . spc . store Rx.no_spaces . eol ] (* View: boot_entry <boot> entries *) let boot_entry = let boot_arg_re = "root" | "initrd" | "rootnoverify" | "uuid" | "findroot" | "bootfs" (* Solaris extensions *) in kw_boot_arg boot_arg_re | kernel | chainloader | kw_pres "quiet" (* Seems to be a Ubuntu extension *) | savedefault | configfile | module_line | map_line | kw_pres "lock" | kw_pres "makeactive" | password_arg (* View: boot_error * Accept lines not matching boot_entry and stuff them into * '#error' nodes *) let boot_error = let kw = /lock|uuid|password|root|initrd|rootnoverify|findroot|bootfs/ |/configfile|chainloader|title|boot|quiet|kernel|module/ |/makeactive|savedefault|map/ in error kw (* View: boot_setting * a valid boot setting or a line that looks like one but is an #error *) let boot_setting = boot_entry | boot_error (* View: boot *) let boot = let line = ((boot_setting|comment)* . boot_setting)? in [ label "title" . title . line ] (************************************************************************ * Group: DEBIAN-SPECIFIC SECTIONS *************************************************************************) (* View: debian_header Header for a <debian>-specific section *) let debian_header = "## ## Start Default Options ##\n" (* View: debian_footer Footer for a <debian>-specific section *) let debian_footer = "## ## End Default Options ##\n" (* View: debian_comment_re *) let debian_comment_re = /([^ \t\n].*[^ \t\n]|[^ \t\n])/ - "## End Default Options ##" (* View: debian_comment A comment entry inside a <debian>-specific section *) let debian_comment = [ Util.indent . label "#comment" . del /##[ \t]*/ "## " . store debian_comment_re . eol ] (* View: debian_setting_re *) let debian_setting_re = "kopt" | "groot" | "alternative" | "lockalternative" | "defoptions" | "lockold" | "xenhopt" | "xenkopt" | "altoptions" | "howmany" | "memtest86" | "updatedefaultentry" | "savedefault" | "indomU" (* View: debian_entry *) let debian_entry = [ Util.del_str "#" . Util.indent . key debian_setting_re . del /[ \t]*=/ "=" . value_to_eol? . eol ] (* View: debian A debian-specific section, made of <debian_entry> lines *) let debian = [ label "debian" . del debian_header debian_header . (debian_comment|empty|debian_entry)* . del debian_footer debian_footer ] (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns *) let lns = (comment | empty | menu_setting | debian)* . (boot . (comment | empty | boot)*)? (* View: filter *) let filter = incl "/boot/grub/grub.conf" . incl "/boot/grub/menu.lst" . incl "/etc/grub.conf" . incl "/boot/efi/EFI/*/grub.conf" let xfm = transform lns filter PK ! Kh�� � lenses/dist/mailscanner.augnu �[��� (* Module: Mailscanner Parses MailScanner configuration files. Author: Andrew Colin Kissa <andrew@topdog.za.net> Baruwa Enterprise Edition http://www.baruwa.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to /etc/MailScanner/MailScanner.conf and files in /etc/MailScanner/conf.d/. See <filter>. *) module Mailscanner = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) let comment = Util.comment let empty = Util.empty let space = Sep.space let eol = Util.eol let non_eq = /[^ =\t\r\n]+/ let non_space = /[^# \t\n]/ let any = /.*/ let word = /[A-Za-z%][ :<>%A-Za-z0-9_.-]+[A-Za-z%2]/ let include_kw = /include/ let keys = word - include_kw let eq = del /[ \t]*=/ " =" let indent = del /[ \t]*(\n[ \t]+)?/ " " let line_value = store (non_space . any . non_space | non_space) (************************************************************************ * Group: Entries *************************************************************************) let include_line = Build.key_value_line include_kw space (store non_eq) let normal_line = [ key keys . eq . (indent . line_value)? . eol ] (************************************************************************ * Group: Lns and Filter *************************************************************************) let lns = (empty|include_line|normal_line|comment) * let filter = (incl "/etc/MailScanner/MailScanner.conf") . (incl "/etc/MailScanner/conf.d/*.conf") let xfm = transform lns filter PK ! n�ݨ � lenses/dist/lokkit.augnu �[��� module Lokkit = autoload xfm (* Module: Lokkit Parse the config file for lokkit from system-config-firewall *) let comment = Util.comment let empty = Util.empty let eol = Util.eol let spc = Util.del_ws_spc let dels = Util.del_str let eq = del /[ \t=]+/ "=" let token = store /[a-zA-Z0-9][a-zA-Z0-9-]*/ let long_opt (n:regexp) = [ dels "--" . key n . eq . token . eol ] let flag (n:regexp) = [ dels "--" . key n . eol ] let option (l:string) (s:string) = del ("--" . l | "-" . s) ("--" . l) . label l . eq let opt (l:string) (s:string) = [ option l s . token . eol ] (* trust directive -t <interface>, --trust=<interface> *) let trust = [ option "trust" "t" . store Rx.device_name . eol ] (* port directive -p <port>[-<port>]:<protocol>, --port=<port>[-<port>]:<protocol> *) let port = let portnum = store /[0-9]+/ in [ option "port" "p" . [ label "start" . portnum ] . (dels "-" . [ label "end" . portnum])? . dels ":" . [ label "protocol" . token ] . eol ] (* custom_rules directive --custom-rules=[<type>:][<table>:]<filename> *) let custom_rules = let types = store /ipv4|ipv6/ in let tables = store /mangle|nat|filter/ in let filename = store /[^ \t\n:=][^ \t\n:]*/ in [ dels "--custom-rules" . label "custom-rules" . eq . [ label "type" . types . dels ":" ]? . [ label "table" . tables . dels ":"]? . filename . eol ] (* forward_port directive --forward-port=if=<interface>:port=<port>:proto=<protocol>[:toport=<destination port>][:toaddr=<destination address>] *) let forward_port = let elem (n:string) (v:lens) = [ key n . eq . v ] in let ipaddr = store /[0-9.]+/ in let colon = dels ":" in [ dels "--forward-port" . label "forward-port" . eq . elem "if" token . colon . elem "port" token . colon . elem "proto" token . (colon . elem "toport" token)? . (colon . elem "toaddr" ipaddr)? . eol ] let entry = long_opt /selinux|selinuxtype|addmodule|removemodule|block-icmp/ |flag /enabled|disabled/ |opt "service" "s" |port |trust |opt "masq" "m" |custom_rules |forward_port let lns = (comment|empty|entry)* let xfm = transform lns (incl "/etc/sysconfig/system-config-firewall") PK ! r�y= lenses/dist/smbusers.augnu �[��� (* Module: SmbUsers Parses Samba username maps Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Examples The <Test_SmbUsers> file contains various examples and tests. *) module SmbUsers = autoload xfm (* View: entry *) let entry = let username = [ label "username" . store Rx.no_spaces ] in let usernames = Build.opt_list username Sep.space in Build.key_value_line Rx.word Sep.space_equal usernames (* View: lns *) let lns = (Util.empty | (Util.comment_generic /[ \t]*[#;][ \t]*/ "# ") | entry)* (* Variable: filter *) let filter = incl "/etc/samba/smbusers" . incl "/etc/samba/usermap.txt" let xfm = transform lns filter PK ! {l�H lenses/dist/xymon.augnu �[��� (* Xymon configuration By Jason Kincl - 2012 *) module Xymon = autoload xfm let empty = Util.empty let eol = Util.eol let word = Rx.word let space = Rx.space let ip = Rx.ip let del_ws_spc = Util.del_ws_spc let value_to_eol = store /[^ \t][^\n]+/ let eol_no_spc = Util.del_str "\n" let comment = Util.comment_generic /[ \t]*[;#][ \t]*/ "# " let include = [ key /include|dispinclude|netinclude|directory/ . del_ws_spc . value_to_eol . eol_no_spc ] let title = [ key "title" . del_ws_spc . value_to_eol . eol_no_spc ] (* Define host *) let tag = del_ws_spc . [ label "tag" . store /[^ \n\t]+/ ] let host_ip = [ label "ip" . store ip ] let host_hostname = [ label "fqdn" . store word ] let host_colon = del /[ \t]*#/ " #" let host = [ label "host" . host_ip . del space " " . host_hostname . host_colon . tag* . eol ] (* Define group-compress and group-only *) let group_extra = del_ws_spc . value_to_eol . eol_no_spc . (comment | empty | host | title)* let group = [ key "group" . group_extra ] let group_compress = [ key "group-compress" . group_extra ] let group_sorted = [ key "group-sorted" . group_extra ] let group_only_col = [ label "col" . store Rx.word ] let group_only_cols = del_ws_spc . group_only_col . ( Util.del_str "|" . group_only_col )* let group_only = [ key "group-only" . group_only_cols . group_extra ] (* Have to use namespacing because page's title overlaps plain title tag *) let page_name = store word let page_title = [ label "pagetitle" . del_ws_spc . value_to_eol . eol_no_spc ] let page_extra = del_ws_spc . page_name . (page_title | eol_no_spc) . (comment | empty | title | include | host)* . (group | group_compress | group_sorted | group_only)* let page = [ key /page|subpage/ . page_extra ] let subparent_parent = [ label "parent" . store word ] let subparent = [ key "subparent" . del_ws_spc . subparent_parent . page_extra ] let ospage = [ key "ospage" . del_ws_spc . store word . del_ws_spc . [ label "ospagetitle" . value_to_eol . eol_no_spc ] ] let lns = (empty | comment | include | host | title | ospage )* . (group | group_compress | group_sorted | group_only)* . (page | subparent)* let filter = incl "/etc/xymon/hosts.cfg" . incl "/etc/xymon/pages.cfg" let xfm = transform lns filter PK ! ��h6� � lenses/dist/json.augnu �[��� module Json = (* A generic lens for Json files *) (* Based on the following grammar from http://www.json.org/ *) (* Object ::= '{'Members ? '}' *) (* Members ::= Pair+ *) (* Pair ::= String ':' Value *) (* Array ::= '[' Elements ']' *) (* Elements ::= Value ( "," Value )* *) (* Value ::= String | Number | Object | Array | "true" | "false" | "null" *) (* String ::= "\"" Char* "\"" *) (* Number ::= /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/ *) let ws = del /[ \t\n]*/ "" let comment = Util.empty_c_style | Util.comment_c_style | Util.comment_multiline let comments = comment* . Sep.opt_space let comma = Util.del_str "," . comments let colon = Util.del_str ":" . comments let lbrace = Util.del_str "{" . comments let rbrace = Util.del_str "}" let lbrack = Util.del_str "[" . comments let rbrack = Util.del_str "]" (* This follows the definition of 'string' at https://www.json.org/ It's a little wider than what's allowed there as it would accept nonsensical \u escapes *) let str_store = Quote.dquote . store /([^\\"]|\\\\["\/bfnrtu\\])*/ . Quote.dquote let number = [ label "number" . store /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/ . comments ] let str = [ label "string" . str_store . comments ] let const (r:regexp) = [ label "const" . store r . comments ] let fix_value (value:lens) = let array = [ label "array" . lbrack . ( ( Build.opt_list value comma . rbrack . comments ) | (rbrack . ws) ) ] in let pair = [ label "entry" . str_store . ws . colon . value ] in let obj = [ label "dict" . lbrace . ( ( Build.opt_list pair comma. rbrace . comments ) | (rbrace . ws ) ) ] in (str | number | obj | array | const /true|false|null/) (* Process arbitrarily deeply nested JSON objects *) let rec rlns = fix_value rlns let lns = comments . rlns PK ! S��3 3 lenses/dist/fonts.augnu �[��� (* Module: Fonts Parses the /etc/fonts directory Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 fonts-conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to files in the /etc/fonts directory. See <filter>. About: Examples The <Test_Fonts> file contains various examples and tests. *) module Fonts = autoload xfm (* View: lns *) let lns = Xml.lns (* Variable: filter *) let filter = incl "/etc/fonts/fonts.conf" . incl "/etc/fonts/conf.avail/*" . incl "/etc/fonts/conf.d/*" . excl "/etc/fonts/*/README" . Util.stdexcl let xfm = transform lns filter PK ! *z9� � lenses/dist/strongswan.augnu �[��� (* Module: Strongswan Lens for parsing strongSwan configuration files Authors: Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi> About: Reference strongswan.conf(5), swanctl.conf(5) About: License This file is licensed under the LGPL v2+ *) module Strongswan = autoload xfm let ws = del /[\n\t ]*(#[\t ]*\n[\n\t ]*)*/ let rec conf = let keys = /[^\/.\{\}#\n\t ]+/ - /include/ in let lists = /(crl|oscp)_uris|(local|remote)_(addrs|ts)|vips|pools|(ca)?certs|pubkeys|groups|cert_policy|dns|nbns|dhcp|netmask|server|subnet|split_(in|ex)clude|interfaces_(ignore|use)|preferred/ in let proposals = /((ah|esp)_)?proposals/ in let name (pat:lens) (sep:string) = pat . Util.del_ws_spc . Util.del_str sep in let val = store /[^\n\t ].*/ . Util.del_str "\n" . ws "" in let sval = Util.del_ws_spc . val in let ival (pat:lens) (end:string) = Util.del_opt_ws " " . seq "item" . pat . Util.del_str end in let list (l:string) (k:regexp) (v:lens) = [ label l . name (store k) "=" . counter "item" . [ ival v "," ]* . [ ival v "\n" ] . ws "" ] in let alg = seq "alg" . store /[a-z0-9]+/ in ( [ Util.del_str "#" . label "#comment" . Util.del_opt_ws " " . val ] | [ key "include" . sval ] | [ name (key (keys - lists - proposals)) "=" . sval ] | list "#list" lists (store /[^\n\t ,][^\n,]*/) | list "#proposals" proposals (counter "alg" . [ alg ] . [ Util.del_str "-" . alg ]*) | [ name (key keys) "{" . ws "\n" . conf . Util.del_str "}" . ws "\n" ] )* let lns = ws "" . conf let xfm = transform lns ( incl "/etc/strongswan.d/*.conf" . incl "/etc/strongswan.d/**/*.conf" . incl "/etc/swanctl/conf.d/*.conf" . incl "/etc/swanctl/swanctl.conf" ) PK ! � ��k k lenses/dist/phpvars.augnu �[��� (* Phpvars module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: PHP syntax *) module Phpvars = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let empty = Util.empty_c_style let open_php = del /<\?(php)?[ \t]*\n/i "<?php\n" let close_php = del /([ \t]*(php)?\?>\n[ \t\n]*)?/i "php?>\n" let sep_eq = del /[ \t\n]*=[ \t\n]*/ " = " let sep_opt_spc = Sep.opt_space let sep_spc = Sep.space let sep_dollar = del /\$/ "$" let sep_scl = del /[ \t]*;/ ";" let chr_blank = /[ \t]/ let chr_nblank = /[^ \t\n]/ let chr_any = /./ let chr_star = /\*/ let chr_nstar = /[^* \t\n]/ let chr_slash = /\// let chr_nslash = /[^\/ \t\n]/ let chr_variable = /\$[A-Za-z0-9'"_:-]+/ let sto_to_scl = store (/([^ \t\n].*[^ \t\n;]|[^ \t\n;])/ - /.*;[ \t]*(\/\/|#).*/) (* " *) let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ (************************************************************************ * COMMENTS *************************************************************************) (* Both c-style and shell-style comments are valid Default to c-style *) let comment_one_line = Util.comment_generic /[ \t]*(\/\/|#)[ \t]*/ "// " let comment_eol = Util.comment_generic /[ \t]*(\/\/|#)[ \t]*/ " // " let comment = Util.comment_multiline | comment_one_line let eol_or_comment = eol | comment_eol (************************************************************************ * ENTRIES *************************************************************************) let simple_line (kw:regexp) (lns:lens) = [ key kw . lns . sep_scl . eol_or_comment ] let global = simple_line "global" (sep_opt_spc . sep_dollar . sto_to_scl) let assignment = let arraykey = [ label "@arraykey" . store /\[[][A-Za-z0-9'"_:-]+\]/ ] in (* " *) simple_line chr_variable (arraykey? . (sep_eq . sto_to_scl)) let variable = Util.indent . assignment let classvariable = Util.indent . del /(public|var)/ "public" . Util.del_ws_spc . assignment let include = simple_line "@include" (sep_opt_spc . sto_to_scl) let generic_function (kw:regexp) (lns:lens) = let lbracket = del /[ \t]*\([ \t]*/ "(" in let rbracket = del /[ \t]*\)/ ")" in simple_line kw (lbracket . lns . rbracket) let define = let variable_re = /[A-Za-z0-9'_:-]+/ in let quote = del /["']/ "'" in let sep_comma = del /["'][ \t]*,[ \t]*/ "', " in let sto_to_rbracket = store (/[^ \t\n][^\n]*[^ \t\n\)]|[^ \t\n\)]/ - /.*;[ \t]*(\/\/|#).*/) in generic_function "define" (quote . store variable_re . sep_comma . [ label "value" . sto_to_rbracket ]) let simple_function (kw:regexp) = let sto_to_rbracket = store (/[^ \t\n][^\n]*[^ \t\n\)]|[^ \t\n\)]/ - /.*;[ \t]*(\/\/|#).*/) in generic_function kw sto_to_rbracket let entry = Util.indent . ( global | include | define | simple_function "include" | simple_function "include_once" | simple_function "echo" ) let class = let classname = key /[A-Za-z0-9'"_:-]+/ in (* " *) del /class[ \t]+/ "class " . [ classname . Util.del_ws_spc . del "{" "{" . (empty|comment|entry|classvariable)* ] . del "}" "}" (************************************************************************ * LENS *************************************************************************) let lns = open_php . (empty|comment|entry|class|variable)* . close_php let filter = incl "/etc/squirrelmail/config.php" let xfm = transform lns filter PK ! 0x�bs s lenses/dist/xymon_alerting.augnu �[��� (* Module: Xymon_Alerting Parses xymon alerting files Author: Francois Maillard <fmaillard@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 alerts.cfg` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Not supported File inclusion are not followed About: Configuration files This lens applies to /etc/xymon/alerts.d/*.cfg and /etc/xymon/alerts.cfg. See <filter>. About: Examples The <Test_Xymon_Alerting> file contains various examples and tests. *) module Xymon_Alerting = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: store_word *) let store_word = store /[^ =\t\n#]+/ (* View: comparison The greater and lesser than operators *) let comparison = store /[<>]/ (* View: equal *) let equal = Sep.equal (* View: ws *) let ws = Sep.space (* View: eol *) let eol = Util.eol (* View: ws_or_eol *) let ws_or_eol = del /([ \t]+|[ \t]*\n[ \t]*)/ " " (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: include *) let include = [ key "include" . ws . store_word . eol ] (************************************************************************ * Group: MACRO DEFINITION *************************************************************************) (* View: macrodefinition A string that starts with $ and that is assigned something *) let macrodefinition = [ key /\$[^ =\t\n#\/]+/ . Sep.space_equal . store Rx.space_in . eol ] (* View: flag A flag value *) let flag (kw:string) = Build.flag kw (* View: kw_word A key=value value *) let kw_word (kw:regexp) = Build.key_value kw equal store_word (************************************************************************ * Group: FILTERS *************************************************************************) (* View: page The (ex)?page filter definition *) let page = kw_word /(EX)?PAGE/ (* View: group The (ex)?group filter definition *) let group = kw_word /(EX)?GROUP/ (* View: host The (ex)?host filter definition *) let host = kw_word /(EX)?HOST/ (* View: service The (ex)?service filter definition *) let service = kw_word /(EX)?SERVICE/ (* View: color The color filter definition *) let color = kw_word "COLOR" (* View: time The time filter definition *) let time = kw_word "TIME" (* View: duration The duration filter definition *) let duration = [ key "DURATION" . [ label "operator" . comparison ] . [ label "value" . store_word ] ] (* View: recover The recover filter definition *) let recover = flag "RECOVER" (* View: notice The notice filter definition *) let notice = flag "NOTICE" (* View: rule_filter Filters are made out of any of the above filter definitions *) let rule_filter = page | group | host | service | color | time | duration | recover | notice (* View: filters One or more filters *) let filters = [ label "filters" . Build.opt_list rule_filter ws ] (* View: filters_opt Zero, one or more filters *) let filters_opt = [ label "filters" . (ws . Build.opt_list rule_filter ws)? ] (* View: kw_word_filters_opt A <kw_word> entry with optional filters *) let kw_word_filters_opt (kw:string) = [ key kw . equal . store_word . filters_opt ] (* View: flag_filters_opt A <flag> with optional filters *) let flag_filters_opt (kw:string) = [ key kw . filters_opt ] (************************************************************************ * Group: RECIPIENTS *************************************************************************) (* View: mail The mail recipient definition *) let mail = [ key "MAIL" . ws . store_word . filters_opt ] (* View: script The script recipient definition *) let script = [ key "SCRIPT" . ws . [ label "script" . store_word ] . ws . [ label "recipient" . store_word ] . filters_opt ] (* View: ignore The ignore recipient definition *) let ignore = flag_filters_opt "IGNORE" (* View: format The format recipient definition *) let format = kw_word_filters_opt "FORMAT" (* View: repeat The repeat recipient definition *) let repeat = kw_word_filters_opt "REPEAT" (* View: unmatched The unmatched recipient definition *) let unmatched = flag_filters_opt "UNMATCHED" (* View: stop The stop recipient definition *) let stop = flag_filters_opt "STOP" (* View: macro The macro recipient definition *) let macro = [ key /\$[^ =\t\n#\/]+/ . filters_opt ] (* View: recipient Recipients are made out of any of the above recipient definitions *) let recipient = mail | script | ignore | format | repeat | unmatched | stop | macro let recipients = [ label "recipients" . Build.opt_list recipient ws_or_eol ] (************************************************************************ * Group: RULES *************************************************************************) (* View: rule Rules are made of rule_filter and then recipients sperarated by a whitespace *) let rule = [ seq "rules" . filters . ws_or_eol . recipients . eol ] (* View: lns The Xymon_Alerting lens *) let lns = ( rule | macrodefinition | include | empty | comment )* (* Variable: filter *) let filter = incl "/etc/xymon/alerts.d/*.cfg" . incl "/etc/xymon/alerts.cfg" . Util.stdexcl let xfm = transform lns filter PK ! )�U�� � lenses/dist/logrotate.augnu �[��� (* Logrotate module for Augeas *) (* Author: Raphael Pinson <raphink@gmail.com> *) (* Patches from: *) (* Sean Millichamp <sean@bruenor.org> *) (* *) (* Supported : *) (* - defaults *) (* - rules *) (* - (pre|post)rotate entries *) (* *) (* Todo : *) (* *) module Logrotate = autoload xfm let sep_spc = Sep.space let sep_val = del /[ \t]*=[ \t]*|[ \t]+/ " " let eol = Util.eol let num = Rx.relinteger let word = /[^,#= \n\t{}]+/ let filename = Quote.do_quote_opt (store /\/[^"',#= \n\t{}]+/) let size = num . /[kMG]?/ let indent = del Rx.opt_space "\t" (* define omments and empty lines *) let comment = Util.comment let empty = Util.empty (* Useful functions *) let list_item = [ sep_spc . key /[^\/+,# \n\t{}]+/ ] let select_to_eol (kw:string) (select:regexp) = [ label kw . store select ] let value_to_eol (kw:string) (value:regexp) = Build.key_value kw sep_val (store value) let flag_to_eol (kw:string) = Build.flag kw let list_to_eol (kw:string) = [ key kw . list_item+ ] (* Defaults *) let create = let mode = sep_spc . [ label "mode" . store num ] in let owner = sep_spc . [ label "owner" . store word ] in let group = sep_spc . [ label "group" . store word ] in [ key "create" . ( mode | mode . owner | mode . owner . group )? ] let su = let owner = sep_spc . [ label "owner" . store word ] in let group = sep_spc . [ label "group" . store word ] in [ key "su" . ( owner | owner . group )? ] let tabooext = [ key "tabooext" . ( sep_spc . store /\+/ )? . list_item+ ] let attrs = select_to_eol "schedule" /(hourly|daily|weekly|monthly|yearly)/ | value_to_eol "rotate" num | create | flag_to_eol "nocreate" | su | value_to_eol "include" word | select_to_eol "missingok" /(no)?missingok/ | select_to_eol "compress" /(no)?compress/ | select_to_eol "delaycompress" /(no)?delaycompress/ | select_to_eol "ifempty" /(not)?ifempty/ | select_to_eol "sharedscripts" /(no)?sharedscripts/ | value_to_eol "size" size | tabooext | value_to_eol "olddir" word | flag_to_eol "noolddir" | value_to_eol "mail" word | flag_to_eol "mailfirst" | flag_to_eol "maillast" | flag_to_eol "nomail" | value_to_eol "errors" word | value_to_eol "extension" word | select_to_eol "dateext" /(no)?dateext/ | value_to_eol "dateformat" word | flag_to_eol "dateyesterday" | value_to_eol "compresscmd" word | value_to_eol "uncompresscmd" word | value_to_eol "compressext" word | list_to_eol "compressoptions" | select_to_eol "copy" /(no)?copy/ | select_to_eol "copytruncate" /(no)?copytruncate/ | value_to_eol "maxage" num | value_to_eol "minsize" size | value_to_eol "maxsize" size | select_to_eol "shred" /(no)?shred/ | value_to_eol "shredcycles" num | value_to_eol "start" num (* Define hooks *) let hook_lines = let line_re = /.*/ - /[ \t]*endscript[ \t]*/ in store ( line_re . ("\n" . line_re)* )? . Util.del_str "\n" let hooks = let hook_names = /(pre|post)rotate|(first|last)action/ in [ key hook_names . eol . hook_lines? . del /[ \t]*endscript/ "\tendscript" ] (* Define rule *) let body = Build.block_newlines (indent . (attrs | hooks) . eol) Util.comment let rule = let filename_entry = [ label "file" . filename ] in let filename_sep = del /[ \t\n]+/ " " in let filenames = Build.opt_list filename_entry filename_sep in [ label "rule" . Util.indent . filenames . body . eol ] let lns = ( comment | empty | (attrs . eol) | rule )* let filter = incl "/etc/logrotate.d/*" . incl "/etc/logrotate.conf" . Util.stdexcl let xfm = transform lns filter PK ! ܍�� lenses/dist/inittab.augnu �[��� (* Parsing /etc/inittab *) module Inittab = autoload xfm let sep = Util.del_str ":" let eol = Util.del_str "\n" let id = /[^\/#:\n]{1,4}/ let value = /[^#:\n]*/ let comment = Util.comment|Util.empty let record = let field (name:string) = [ label name . store value ] in let process = [ label "process" . store /[^#\n]*/ ] in let eolcomment = [ label "#comment" . del /#[ \t]*/ "# " . store /([^ \t\n].*[^ \t\n]|[^ \t\n]?)/ ] in [ key id . sep . field "runlevels" . sep . field "action" . sep . process . eolcomment? . eol ] let lns = ( comment | record ) * let xfm = transform lns (incl "/etc/inittab") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �i� % % lenses/dist/fai_diskconfig.augnu �[��� (* Module: FAI_DiskConfig Parses disk_config files for FAI Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to the FAI wiki where possible: http://wiki.fai-project.org/wiki/Setup-storage#New_configuration_file_syntax About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Examples The <Test_FAI_DiskConfig> file contains various examples and tests. *) module FAI_DiskConfig = (* autoload xfm *) (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Generic primitives *) (* Variable: eol *) let eol = Util.eol (* Variable: space *) let space = Sep.space (* Variable: empty *) let empty = Util.empty (* Variable: comment *) let comment = Util.comment (* Variable: tag A generic tag beginning with a colon *) let tag (re:regexp) = [ Util.del_str ":" . key re ] (* Variable: generic_opt A generic key/value option *) let generic_opt (type:string) (kw:regexp) = [ key type . Util.del_str ":" . store kw ] (* Variable: generic_opt_list A generic key/list option *) let generic_opt_list (type:string) (kw:regexp) = [ key type . Util.del_str ":" . counter "locallist" . Build.opt_list [seq "locallist" . store kw] Sep.comma ] (************************************************************************ * Group: RECORDS *************************************************************************) (* Group: volume *) (* Variable: mountpoint_kw *) let mountpoint_kw = "-" (* do not mount *) | "swap" (* swap space *) (* fully qualified path; if :encrypt is given, the partition * will be encrypted, the key is generated automatically *) | /\/[^: \t\n]*/ (* Variable: encrypt encrypt tag *) let encrypt = tag "encrypt" (* Variable: mountpoint *) let mountpoint = [ label "mountpoint" . store mountpoint_kw (* encrypt is only for the fspath, but we parse it anyway *) . encrypt?] (* Variable: resize resize tag *) let resize = tag "resize" (* Variable: size_kw Regexps for size *) let size_kw = /[0-9]+[kMGTP%]?(-([0-9]+[kMGTP%]?)?)?/ | /-[0-9]+[kMGTP%]?/ (* Variable: size *) let size = [ label "size" . store size_kw . resize? ] (* Variable: filesystem_kw Regexps for filesystem *) let filesystem_kw = "-" | "swap" (* NOTE: Restraining this regexp would improve perfs *) | (Rx.no_spaces - ("-" | "swap")) (* mkfs.xxx must exist *) (* Variable: filesystem *) let filesystem = [ label "filesystem" . store filesystem_kw ] (* Variable: mount_option_value *) let mount_option_value = [ label "value" . Util.del_str "=" . store /[^,= \t\n]+/ ] (* Variable: mount_option Counting options *) let mount_option = [ seq "mount_option" . store /[^,= \t\n]+/ . mount_option_value? ] (* Variable: mount_options An array of <mount_option>s *) let mount_options = [ label "mount_options" . counter "mount_option" . Build.opt_list mount_option Sep.comma ] (* Variable: fs_option *) let fs_option = [ key /createopts|tuneopts/ . Util.del_str "=\"" . store /[^"\n]*/ . Util.del_str "\"" ] (* Variable: fs_options An array of <fs_option>s *) let fs_options = (* options to append to mkfs.xxx and to the filesystem-specific * tuning tool *) [ label "fs_options" . Build.opt_list fs_option Sep.space ] (* Variable: volume_full *) let volume_full (type:lens) (third_field:lens) = [ type . space . mountpoint .space (* The third field changes depending on types *) . third_field . space . filesystem . space . mount_options . (space . fs_options)? . eol ] (* Variable: name LVM volume group name *) let name = [ label "name" . store /[^\/ \t\n]+/ ] (* Variable: partition An optional partition number for <disk> *) let partition = [ label "partition" . Util.del_str "." . store /[0-9]+/ ] (* Variable: disk *) let disk = [ label "disk" . store /[^., \t\n]+/ . partition? ] (* Variable: vg_option An option for <volume_vg> *) let vg_option = [ key "pvcreateopts" . Util.del_str "=\"" . store /[^"\n]*/ . Util.del_str "\"" ] (* Variable: volume_vg *) let volume_vg = [ key "vg" . space . name . space . disk . (space . vg_option)? . eol ] (* Variable: spare_missing *) let spare_missing = tag /spare|missing/ (* Variable: disk_with_opt A <disk> with a spare/missing option for raids *) let disk_with_opt = [ label "disk" . store /[^:., \t\n]+/ . partition? . spare_missing* ] (* Variable: disk_list A list of <disk_with_opt>s *) let disk_list = Build.opt_list disk_with_opt Sep.comma (* Variable: type_label_lv *) let type_label_lv = label "lv" . [ label "vg" . store (/[^# \t\n-]+/ - "raw") ] . Util.del_str "-" . [ label "name" . store /[^ \t\n]+/ ] (* Variable: volume_tmpfs *) let volume_tmpfs = [ key "tmpfs" . space . mountpoint .space . size . space . mount_options . (space . fs_options)? . eol ] (* Variable: volume_lvm *) let volume_lvm = volume_full type_label_lv size (* lvm logical volume: vg name and lv name *) | volume_vg (* Variable: volume_raid *) let volume_raid = volume_full (key /raid[0156]/) disk_list (* raid level *) (* Variable: device *) let device = [ label "device" . store Rx.fspath ] (* Variable: volume_cryptsetup *) let volume_cryptsetup = volume_full (key ("swap"|"tmp"|"luks")) device (* Variable: volume *) let volume = volume_full (key "primary") size (* for physical disks only *) | volume_full (key "logical") size (* for physical disks only *) | volume_full (key "raw-disk") size (* Variable: volume_or_comment A succesion of <volume>s and <comment>s *) let volume_or_comment (vol:lens) = (vol|empty|comment)* . vol (* Variable: disk_config_entry *) let disk_config_entry (kw:regexp) (opt:lens) (vol:lens) = [ key "disk_config" . space . store kw . (space . opt)* . eol . (volume_or_comment vol)? ] (* Variable: lvmoption *) let lvmoption = (* preserve partitions -- always *) generic_opt "preserve_always" /[^\/, \t\n-]+-[^\/, \t\n-]+(,[^\/, \t\n-]+-[^\/, \t\n-]+)*/ (* preserve partitions -- unless the system is installed * for the first time *) | generic_opt "preserve_reinstall" /[^\/, \t\n-]+-[^\/, \t\n-]+(,[^\/, \t\n-]+-[^\/, \t\n-]+)*/ (* attempt to resize partitions *) | generic_opt "resize" /[^\/, \t\n-]+-[^\/, \t\n-]+(,[^\/, \t\n-]+-[^\/, \t\n-]+)*/ (* when creating the fstab, the key used for defining the device * may be the device (/dev/xxx), a label given using -L, or the uuid *) | generic_opt "fstabkey" /device|label|uuid/ (* Variable: raidoption *) let raidoption = (* preserve partitions -- always *) generic_opt_list "preserve_always" (Rx.integer | "all") (* preserve partitions -- unless the system is installed * for the first time *) | generic_opt_list "preserve_reinstall" Rx.integer (* when creating the fstab, the key used for defining the device * may be the device (/dev/xxx), a label given using -L, or the uuid *) | generic_opt "fstabkey" /device|label|uuid/ (* Variable: option *) let option = (* preserve partitions -- always *) generic_opt_list "preserve_always" (Rx.integer | "all") (* preserve partitions -- unless the system is installed for the first time *) | generic_opt_list "preserve_reinstall" Rx.integer (* attempt to resize partitions *) | generic_opt_list "resize" Rx.integer (* write a disklabel - default is msdos *) | generic_opt "disklabel" /msdos|gpt/ (* mark a partition bootable, default is / *) | generic_opt "bootable" Rx.integer (* do not assume the disk to be a physical device, use with xen *) | [ key "virtual" ] (* when creating the fstab, the key used for defining the device * may be the device (/dev/xxx), a label given using -L, or the uuid *) | generic_opt "fstabkey" /device|label|uuid/ | generic_opt_list "always_format" Rx.integer | generic_opt "sameas" Rx.fspath let cryptoption = [ key "randinit" ] (* Variable: disk_config *) let disk_config = let excludes = "lvm" | "raid" | "end" | /disk[0-9]+/ | "cryptsetup" | "tmpfs" in let other_label = Rx.fspath - excludes in disk_config_entry "lvm" lvmoption volume_lvm | disk_config_entry "raid" raidoption volume_raid | disk_config_entry "tmpfs" option volume_tmpfs | disk_config_entry "end" option volume (* there shouldn't be an option here *) | disk_config_entry /disk[0-9]+/ option volume | disk_config_entry "cryptsetup" cryptoption volume_cryptsetup | disk_config_entry other_label option volume (* Variable: lns The disk_config lens *) let lns = (disk_config|comment|empty)* (* let xfm = transform lns Util.stdexcl *) PK ! � B�� � lenses/dist/webmin.augnu �[��� (* Webmin module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: *) module Webmin = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let empty = Util.empty let sep_eq = del /=/ "=" let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ let word = /[A-Za-z0-9_.-]+/ (************************************************************************ * ENTRIES *************************************************************************) let entry = [ key word . sep_eq . sto_to_eol? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let wm_incl (n:string) = (incl ("/etc/webmin/" . n)) let filter = wm_incl "miniserv.conf" . wm_incl "ldap-useradmin/config" let xfm = transform lns filter PK ! �-�- - lenses/dist/yaml.augnu �[��� (* Module: Yaml Only valid for the following subset: > defaults: &anchor > repo1: master > > host: > # Inheritance > <<: *anchor > repo2: branch Author: Dimitar Dimitrov <mitkofr@yahoo.fr> *) module YAML = (* Group: helpers *) let dash = Util.del_str "-" let colon = Sep.colon let space = Sep.space let val = store Rx.word let eol = Util.eol let empty = Util.empty let comment = Util.comment_noindent (* View: indent the imposed indent is 2 spaces *) let indent = del /[ \t]+/ " " let mval = [ label "@mval" . Util.del_str "|-" . eol . [ label "@line" . indent . store Rx.space_in . eol ]+ ] (* View: inherit > <<: *anchor *) let _inherit = [ key "<<" . colon . space . Util.del_str "*" . val . eol ] let inherit = indent . _inherit . (indent . comment)* (* View: repo > { "repo" = "branch" } *) let _repo = [ key Rx.word . colon . space . (val | mval) . eol ] let repo = indent . _repo . (indent . comment)* (* View: anchor > &anchor *) let anchor = Util.del_str "&" . val (* View: entry > host: > # Inheritance > <<: *anchor > repo2: branch *) let entry = [ key Rx.word . colon . (space . anchor)? . eol . (indent . comment)* . ((inherit . (repo+)?) | repo+) ] (* View: top level sequence *) let sequence = [ label "@sequence" . counter "sequence" . dash . repo+ ] (* View: header *) let header = [ label "@yaml" . Util.del_str "---" . (Sep.space . store Rx.space_in)? . eol ] (* View: lns The yaml lens *) let lns = ((empty|comment)* . header)? . (sequence | entry | comment | empty)* PK ! fm9 lenses/dist/openshift_http.augnu �[��� (* Module: OpenShift_Http Parses HTTPD related files specific to openshift Author: Brian Redbeard <redbeard@dead-city.org> About: License This file is licenced under the LGPL v2+, conforming to the other components of Augeas. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/var/www/openshift About: Examples The <Test_OpenShift_Http> file contains various examples and tests. *) module OpenShift_Http = autoload xfm (* Variable: filter *) let filter = incl "/var/www/openshift/console/httpd/httpd.conf" . incl "/var/www/openshift/console/httpd/conf.d/*.conf" . incl "/var/www/openshift/broker/httpd/conf.d/*.conf" . incl "/var/www/openshift/broker/httpd/httpd.conf" . incl "/var/www/openshift/console/httpd/console.conf" . incl "/var/www/openshift/broker/httpd/broker.conf" . Util.stdexcl (* View: lns *) let lns = Httpd.lns let xfm = transform lns filter (* vim: set ts=4 expandtab sw=4: *) PK ! �5� � lenses/dist/yum.augnu �[��� (* Parsing yum's config files *) module Yum = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let empty = Util.empty let eol = IniFile.eol (************************************************************************ * ENTRY *************************************************************************) let list_entry (list_key:string) = let list_value = store /[^# \t\r\n,][^ \t\r\n,]*[^# \t\r\n,]|[^# \t\r\n,]/ in let list_sep = del /([ \t]*(,[ \t]*|\r?\n[ \t]+))|[ \t]+/ "\n\t" in [ key list_key . sep . Sep.opt_space . list_value ] . (list_sep . Build.opt_list [ label list_key . list_value ] list_sep)? . eol let entry_re = IniFile.entry_re - ("baseurl" | "gpgkey" | "exclude") let entry = IniFile.entry entry_re sep comment | empty let entries = let list_entry_elem (k:string) = list_entry k . entry* in entry* | entry* . Build.combine_three_opt (list_entry_elem "baseurl") (list_entry_elem "gpgkey") (list_entry_elem "exclude") (***********************************************************************a * TITLE *************************************************************************) let title = IniFile.title IniFile.record_re let record = [ title . entries ] (************************************************************************ * LENS & FILTER *************************************************************************) let lns = (empty | comment)* . record* let filter = (incl "/etc/yum.conf") . (incl "/etc/yum.repos.d/*.repo") . (incl "/etc/yum/yum-cron*.conf") . (incl "/etc/yum/pluginconf.d/*") . (excl "/etc/yum/pluginconf.d/versionlock.list") . (incl "/etc/dnf/dnf.conf") . (incl "/etc/dnf/automatic.conf") . (incl "/etc/dnf/plugins/*.conf") . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �m"�� � lenses/dist/stunnel.augnu �[��� (* Stunnel configuration file module for Augeas *) module Stunnel = autoload xfm let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep "=" "=" let setting = "chroot" | "compression" | "debug" | "EGD" | "engine" | "engineCtrl" | "fips" | "foreground" | "output" | "pid" | "RNDbytes" | "RNDfile" | "RNDoverwrite" | "service" | "setgid" | "setuid" | "socket" | "syslog" | "taskbar" | "accept" | "CApath" | "CAfile" | "cert" | "ciphers" | "client" | "connect" | "CRLpath" | "CRLfile" | "curve" | "delay" | "engineNum" | "exec" | "execargs" | "failover" | "ident" | "key" | "local" | "OCSP" | "OCSPflag" | "options" | "protocol" | "protocolAuthentication" | "protocolHost" | "protocolPassword" | "protocolUsername" | "pty" | "retry" | "session" | "sessiond" | "sni" | "sslVersion" | "stack" | "TIMEOUTbusy" | "TIMEOUTclose" | "TIMEOUTconnect" | "TIMEOUTidle" | "transparent" | "verify" let entry = IniFile.indented_entry setting sep comment let empty = IniFile.empty let title = IniFile.indented_title ( IniFile.record_re - ".anon" ) let record = IniFile.record title entry let rc_anon = [ label ".anon" . ( entry | empty )+ ] let lns = rc_anon? . record* let filter = (incl "/etc/stunnel/stunnel.conf") let xfm = transform lns filter PK ! ;E~~ ~ lenses/dist/inputrc.augnu �[��� (* Module: Inputrc Parses /etc/inputrc Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 3 readline` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/inputrc. See <filter>. About: Examples The <Test_Inputrc> file contains various examples and tests. *) module Inputrc = autoload xfm (* View: entry An inputrc mapping entry *) let entry = let mapping = [ label "mapping" . store /[A-Za-z0-9_."\*\/+\,\\-]+/ ] in [ label "entry" . Util.del_str "\"" . store /[^" \t\n]+/ . Util.del_str "\":" . Sep.space . mapping . Util.eol ] (* View: variable An inputrc variable declaration *) let variable = [ Util.del_str "set" . Sep.space . key (Rx.word - "entry") . Sep.space . store Rx.word . Util.eol ] (* View: condition An "if" declaration, recursive *) let rec condition = [ Util.del_str "$if" . label "@if" . Sep.space . store Rx.space_in . Util.eol . (Util.empty | Util.comment | condition | variable | entry)* . [ Util.del_str "$else" . label "@else" . Util.eol . (Util.empty | Util.comment | condition | variable | entry)* ] ? . Util.del_str "$endif" . Util.eol ] (* View: lns The inputrc lens *) let lns = (Util.empty | Util.comment | condition | variable | entry)* (* Variable: filter *) let filter = incl "/etc/inputrc" let xfm = transform lns filter PK ! ����� � lenses/dist/mysql.augnu �[��� (* MySQL module for Augeas *) (* Author: Tim Stoop <tim@kumina.nl> *) (* Heavily based on php.aug by Raphael Pinson *) (* <raphink@gmail.com> *) (* *) module MySQL = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re "#" let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let entry = let bare = Quote.do_dquote_opt_nil (store /[^#;" \t\r\n]+([ \t]+[^#;" \t\r\n]+)*/) in let quoted = Quote.do_dquote (store /[^"\r\n]*[#;]+[^"\r\n]*/) in [ Util.indent . key IniFile.entry_re . sep . Sep.opt_space . bare . (comment|IniFile.eol) ] | [ Util.indent . key IniFile.entry_re . sep . Sep.opt_space . quoted . (comment|IniFile.eol) ] | [ Util.indent . key IniFile.entry_re . store // . (comment|IniFile.eol) ] | comment (************************************************************************ * sections, led by a "[section]" header * We can't use titles as node names here since they could contain "/" * We remove #comment from possible keys * since it is used as label for comments * We also remove / as first character * because augeas doesn't like '/' keys (although it is legal in INI Files) *************************************************************************) let title = IniFile.indented_title_label "target" IniFile.record_label_re let record = IniFile.record title entry let includedir = Build.key_value_line /!include(dir)?/ Sep.space (store Rx.fspath) . (comment|IniFile.empty)* let lns = (comment|IniFile.empty)* . (record|includedir)* let filter = (incl "/etc/mysql/my.cnf") . (incl "/etc/mysql/conf.d/*.cnf") . (incl "/etc/my.cnf") . (incl "/etc/my.cnf.d/*.cnf") let xfm = transform lns filter PK ! i�݉ � lenses/dist/avahi.augnu �[��� (* Module: Avahi Avahi module for Augeas Author: Athir Nuaimi <athir@nuaimi.com> avahi-daemon.conf is a standard INI File. *) module Avahi = autoload xfm (************************************************************************ * Group: INI File settings * avahi-daemon.conf only supports "# as commentary and "=" as separator *************************************************************************) (* View: comment *) let comment = IniFile.comment "#" "#" (* View: sep *) let sep = IniFile.sep "=" "=" (************************************************************************ * Group: Entry *************************************************************************) (* View: entry *) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * Group: Record *************************************************************************) (* View: title *) let title = IniFile.indented_title IniFile.record_re (* View: record *) let record = IniFile.record title entry (************************************************************************ * Group: Lens and filter *************************************************************************) (* View: lns *) let lns = IniFile.lns record comment (* View: filter *) let filter = (incl "/etc/avahi/avahi-daemon.conf") let xfm = transform lns filter PK ! � �� � lenses/dist/slapd.augnu �[��� (* Slapd module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man slapd.conf(5), man slapd.access (5) *) module Slapd = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let spc = Util.del_ws_spc let sep = del /[ \t\n]+/ " " let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ let sto_to_spc = store /[^\\# \t\n]+/ let comment = Util.comment let empty = Util.empty (************************************************************************ * ACCESS TO *************************************************************************) let access_re = "access to" let control_re = "stop" | "continue" | "break" let what = [ spc . label "access" . store (/[^\\# \t\n]+/ - ("by" | control_re)) ] (* TODO: parse the control field, see man slapd.access (5) *) let control = [ spc . label "control" . store control_re ] let by = [ sep . key "by" . spc . sto_to_spc . what? . control? ] let access = [ key access_re . spc. sto_to_spc . by+ . eol ] (************************************************************************ * GLOBAL *************************************************************************) (* TODO: parse special field separately, see man slapd.conf (5) *) let global_re = "allow" | "argsfile" | "attributeoptions" | "attributetype" | "authz-policy" | "ldap" | "dn" | "concurrency" | "cron_max_pending" | "conn_max_pending_auth" | "defaultsearchbase" | "disallow" | "ditcontentrule" | "gentlehup" | "idletimeout" | "include" | "index_substr_if_minlen" | "index_substr_if_maxlen" | "index_substr_any_len" | "index_substr_any_step" | "localSSF" | "loglevel" | "moduleload" | "modulepath" | "objectclass" | "objectidentifier" | "password-hash" | "password-crypt-salt-format" | "pidfile" | "referral" | "replica-argsfile" | "replica-pidfile" | "replicationinterval" | "require" | "reverse-lookup" | "rootDSE" | "sasl-host" | "sasl-realm" | "sasl-secprops" | "schemadn" | "security" | "sizelimit" | "sockbuf_max_incoming " | "sockbuf_max_incoming_auth" | "threads" | "timelimit time" | "tool-threads" | "TLSCipherSuite" | "TLSCACertificateFile" | "TLSCACertificatePath" | "TLSCertificateFile" | "TLSCertificateKeyFile" | "TLSDHParamFile" | "TLSRandFile" | "TLSVerifyClient" | "TLSCRLCheck" | "backend" let global = Build.key_ws_value global_re (************************************************************************ * DATABASE *************************************************************************) (* TODO: support all types of database backend *) let database_hdb = "cachesize" | "cachefree" | "checkpoint" | "dbconfig" | "dbnosync" | "directory" | "dirtyread" | "idlcachesize" | "index" | "linearindex" | "lockdetect" | "mode" | "searchstack" | "shm_key" let database_re = "suffix" | "lastmod" | "limits" | "maxderefdepth" | "overlay" | "readonly" | "replica uri" | "replogfile" | "restrict" | "rootdn" | "rootpw" | "subordinate" | "syncrepl rid" | "updatedn" | "updateref" | database_hdb let database_entry = let val = Quote.double_opt in Build.key_value_line database_re Sep.space val let database = [ key "database" . spc . sto_to_eol . eol . (comment|empty|database_entry|access)* ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|global|access)* . (database)* let filter = incl "/etc/ldap/slapd.conf" . incl "/etc/openldap/slapd.conf" let xfm = transform lns filter PK ! z���� � lenses/dist/postfix_master.augnu �[��� (* Postfix_Master module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: *) module Postfix_Master = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let ws = del /[ \t\n]+/ " " let comment = Util.comment let empty = Util.empty let word = /[A-Za-z0-9_.:-]+/ let words = let char_start = /[A-Za-z0-9$!(){}=_.,:@-]/ in let char_end = char_start | /[]["\/]/ in let char_middle = char_end | " " in char_start . char_middle* . char_end let bool = /y|n|-/ let integer = /([0-9]+|-)\??/ let command = words . (/[ \t]*\n[ \t]+/ . words)* let field (l:string) (r:regexp) = [ label l . store r ] (************************************************************************ * ENTRIES *************************************************************************) let entry = [ key word . ws . field "type" /inet|unix(-dgram)?|fifo|pass/ . ws . field "private" bool . ws . field "unprivileged" bool . ws . field "chroot" bool . ws . field "wakeup" integer . ws . field "limit" integer . ws . field "command" command . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/postfix/master.cf" . incl "/usr/local/etc/postfix/master.cf" let xfm = transform lns filter PK ! ���� lenses/dist/trapperkeeper.augnu �[��� (* Module: Trapperkeeper Parses Trapperkeeper configuration files Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to Trapperkeeper webservice configuration files. See <filter>. About: Examples The <Test_Trapperkeeper> file contains various examples and tests. *) module Trapperkeeper = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: empty *) let empty = Util.empty (* View: comment *) let comment = Util.comment (* View: sep *) let sep = del /[ \t]*[:=]/ ":" (* View: sep_with_spc *) let sep_with_spc = sep . Sep.opt_space (************************************************************************ * Group: BLOCKS (FROM 1.2, FOR 0.10 COMPATIBILITY) *************************************************************************) (* Variable: block_ldelim_newlines_re *) let block_ldelim_newlines_re = /[ \t\n]+\{([ \t\n]*\n)?/ (* Variable: block_rdelim_newlines_re *) let block_rdelim_newlines_re = /[ \t]*\}/ (* Variable: block_ldelim_newlines_default *) let block_ldelim_newlines_default = "\n{\n" (* Variable: block_rdelim_newlines_default *) let block_rdelim_newlines_default = "}" (************************************************************************ * View: block_newline * A block enclosed in brackets, with newlines forced * and indentation defaulting to a tab. * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should not include <Util.empty>, * <Util.comment> or <Util.comment_noindent>, * should be indented and finish with an eol. ************************************************************************) let block_newlines (entry:lens) (comment:lens) = del block_ldelim_newlines_re block_ldelim_newlines_default . ((entry | comment) . (Util.empty | entry | comment)*)? . del block_rdelim_newlines_re block_rdelim_newlines_default (************************************************************************ * Group: ENTRY TYPES *************************************************************************) let opt_dquot (lns:lens) = del /"?/ "" . lns . del /"?/ "" (* View: simple *) let simple = [ Util.indent . label "@simple" . opt_dquot (store /[A-Za-z0-9_.\/-]+/) . sep_with_spc . [ label "@value" . opt_dquot (store /[^,"\[ \t\n]+/) ] . Util.eol ] (* View: array *) let array = let lbrack = Util.del_str "[" in let rbrack = Util.del_str "]" in let opt_space = del /[ \t]*/ "" in let comma = opt_space . Util.del_str "," . opt_space in let elem = [ seq "elem" . opt_dquot (store /[^,"\[ \t\n]+/) ] in let elems = counter "elem" . Build.opt_list elem comma in [ Util.indent . label "@array" . store Rx.word . sep_with_spc . lbrack . Sep.opt_space . (elems . Sep.opt_space)? . rbrack . Util.eol ] (* View: hash *) let hash (lns:lens) = [ Util.indent . label "@hash" . store Rx.word . sep . block_newlines lns Util.comment . Util.eol ] (************************************************************************ * Group: ENTRY *************************************************************************) (* Just for typechecking *) let entry_no_rec = hash (simple|array) (* View: entry *) let rec entry = hash (entry|simple|array) (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns *) let lns = (empty|comment)* . (entry . (empty|comment)*)* (* Variable: filter *) let filter = incl "/etc/puppetserver/conf.d/*" . incl "/etc/puppetlabs/puppetserver/conf.d/*" . Util.stdexcl let xfm = transform lns filter PK ! xe��� � lenses/dist/aptconf.augnu �[��� (* Module: AptConf Parses /etc/apt/apt.conf and /etc/apt/apt.conf.d/* Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 apt.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/apt/apt.conf and /etc/apt/apt.conf.d/*. See <filter>. *) module AptConf = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: eol And <Util.eol> end of line *) let eol = Util.eol (* View: empty A C-style empty line *) let empty = Util.empty_any (* View: indent An indentation *) let indent = Util.indent (* View: comment_simple A one-line comment, C-style *) let comment_simple = Util.comment_c_style_or_hash (* View: comment_multi A multiline comment, C-style *) let comment_multi = Util.comment_multiline (* View: comment A comment, either <comment_simple> or <comment_multi> *) let comment = comment_simple | comment_multi (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: name_re Regex for entry names *) let name_re = /[A-Za-z][A-Za-z-]*/ (* View: name_re_colons Regex for entry names with colons *) let name_re_colons = /[A-Za-z][A-Za-z:-]*/ (* View: entry An apt.conf entry, recursive WARNING: This lens exploits a put ambiguity since apt.conf allows for both APT { Clean-Installed { "true" } } and APT::Clean-Installed "true"; but we're choosing to map them the same way The recursive lens doesn't seem to care and defaults to the first item in the union. This is why the APT { Clean-Installed { "true"; } } form is listed first, since it supports all subnodes (which Dpkg::Conf) doesn't. Exchanging these two expressions in the union makes tests fails since the tree cannot be mapped back. This situation results in existing configuration being modified when the associated tree is modified. For example, changing the value of APT::Clean-Installed "true"; to "false" results in APT { Clean-Installed "false"; } (see unit tests) *) let rec entry_noeol = let value = Util.del_str "\"" . store /[^"\n]+/ . del /";?/ "\";" in let opt_eol = del /[ \t\n]*/ "\n" in let long_eol = del /[ \t]*\n+/ "\n" in let list_elem = [ opt_eol . label "@elem" . value ] in let eol_comment = del /([ \t\n]*\n)?/ "" . comment in [ key name_re . Sep.space . value ] | [ key name_re . del /[ \t\n]*\{/ " {" . ( (opt_eol . entry_noeol) | list_elem | eol_comment )* . del /[ \t\n]*\};?/ "\n};" ] | [ key name_re . Util.del_str "::" . entry_noeol ] let entry = indent . entry_noeol . eol (* View: include A file inclusion /!\ The manpage is not clear on the syntax *) let include = [ indent . key "#include" . Sep.space . store Rx.fspath . eol ] (* View: clear A list of variables to clear /!\ The manpage is not clear on the syntax *) let clear = let name = [ label "name" . store name_re_colons ] in [ indent . key "#clear" . Sep.space . Build.opt_list name Sep.space . eol ] (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns The apt.conf lens *) let lns = (empty|comment|entry|include|clear)* (* View: filter *) let filter = incl "/etc/apt/apt.conf" . incl "/etc/apt/apt.conf.d/*" . Util.stdexcl let xfm = transform lns filter PK ! �H y[ [ lenses/dist/authorized_keys.augnu �[��� (* Module: Authorized_Keys Parses SSH authorized_keys Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `man 5 authorized_keys` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to SSH authorized_keys. See <filter>. About: Examples The <Test_Authorized_Keys> file contains various examples and tests. *) module Authorized_Keys = autoload xfm (* View: option A key option *) let option = let kv_re = "command" | "environment" | "from" | "permitopen" | "principals" | "tunnel" in let flag_re = "cert-authority" | "no-agent-forwarding" | "no-port-forwarding" | "no-pty" | "no-user-rc" | "no-X11-forwarding" in let option_value = Util.del_str "\"" . store /((\\\\")?[^\\\n"]*)+/ . Util.del_str "\"" in Build.key_value kv_re Sep.equal option_value | Build.flag flag_re (* View: key_options A list of key <option>s *) let key_options = [ label "options" . Build.opt_list option Sep.comma ] (* View: key_type *) let key_type = let key_type_re = /ecdsa-sha2-nistp[0-9]+/ | /ssh-[a-z0-9]+/ in [ label "type" . store key_type_re ] (* View: key_comment *) let key_comment = [ label "comment" . store Rx.space_in ] (* View: authorized_key *) let authorized_key = [ label "key" . (key_options . Sep.space)? . key_type . Sep.space . store Rx.no_spaces . (Sep.space . key_comment)? . Util.eol ] (* View: lns The authorized_keys lens *) let lns = ( Util.empty | Util.comment | authorized_key)* (* Variable: filter *) let filter = incl (Sys.getenv("HOME") . "/.ssh/authorized_keys") let xfm = transform lns filter PK ! ���� � lenses/dist/anacron.augnu �[��� (* Module: Anacron Parses /etc/anacrontab Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 anacrontab` where possible. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/anacrontab. See <filter>. About: Examples The <Test_Anacron> file contains various examples and tests. *) module Anacron = autoload xfm (************************************************************************ * Group: ENTRIES *************************************************************************) (************************************************************************ * View: shellvar * A shell variable in crontab *************************************************************************) let shellvar = Cron.shellvar (* View: period *) let period = [ label "period" . store Rx.integer ] (* Variable: period_name_re The valid values for <period_name>. Currently only "monthly" *) let period_name_re = "monthly" (************************************************************************ * View: period_name * In the format "@keyword" *************************************************************************) let period_name = [ label "period_name" . Util.del_str "@" . store period_name_re ] (************************************************************************ * View: delay * The delay for an <entry> *************************************************************************) let delay = [ label "delay" . store Rx.integer ] (************************************************************************ * View: job_identifier * The job_identifier for an <entry> *************************************************************************) let job_identifier = [ label "job-identifier" . store Rx.word ] (************************************************************************ * View: entry * An anacrontab entry *************************************************************************) let entry = [ label "entry" . Util.indent . ( period | period_name ) . Sep.space . delay . Sep.space . job_identifier . Sep.space . store Rx.space_in . Util.eol ] (* * View: lns * The anacron lens *) let lns = ( Util.empty | Util.comment | shellvar | entry )* (* Variable: filter *) let filter = incl "/etc/anacrontab" let xfm = transform lns filter PK ! i�� � lenses/dist/dhclient.augnu �[��� (* Intefraces module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man dhclient.conf The only difference with the reference syntax is that this lens assumes that statements end with a new line, while the reference syntax allows new statements to be started right after the trailing ";" of the previous statement. This should not be a problem in real-life configuration files as statements get usually split across several lines, rather than merged in a single one. *) module Dhclient = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let comment_or_eol = Util.comment_or_eol let empty = Util.empty (* Define separators *) let sep_spc = del /[ \t\n]+/ " " let sep_scl = del /[ \t]*;/ ";" let sep_obr = del /[ \t\n]*\{\n]*/ " {\n" let sep_cbr = del /[ \t\n]*\}/ " }" let sep_com = del /[ \t\n]*,[ \t\n]*/ "," let sep_slh = del "\/" "/" let sep_col = del ":" ":" let sep_eq = del /[ \t]*=[ \t]*/ "=" (* Define basic types *) let word = /[A-Za-z0-9_.-]+(\[[0-9]+\])?/ (* Define fields *) (* TODO: there could be a " " in the middle of a value ... *) let sto_to_spc = store /[^\\#,;{}" \t\n]+|"[^\\#"\n]+"/ let sto_to_spc_noeval = store /[^=\\#,;{}" \t\n]|[^=\\#,;{}" \t\n][^\\#,;{}" \t\n]*|"[^\\#"\n]+"/ let sto_to_scl = store /[^ \t\n][^;\n]+[^ \t]|[^ \t;\n]+/ let rfc_code = [ key "code" . sep_spc . store word ] . sep_eq . [ label "value" . sto_to_scl ] let eval = [ label "#eval" . Sep.equal . sep_spc . sto_to_scl ] let sto_number = store /[0-9][0-9]*/ (************************************************************************ * SIMPLE STATEMENTS *************************************************************************) let stmt_simple_re = "timeout" | "retry" | "select-timeout" | "reboot" | "backoff-cutoff" | "initial-interval" | "do-forward-updates" | "reject" let stmt_simple = [ key stmt_simple_re . sep_spc . sto_to_spc . sep_scl . comment_or_eol ] (************************************************************************ * ARRAY STATEMENTS *************************************************************************) (* TODO: the array could also be empty, like in the request statement *) let stmt_array_re = "media" | "request" | "require" let stmt_array = [ key stmt_array_re . sep_spc . counter "stmt_array" . [ seq "stmt_array" . sto_to_spc ] . [ sep_com . seq "stmt_array" . sto_to_spc ]* . sep_scl . comment_or_eol ] (************************************************************************ * HASH STATEMENTS *************************************************************************) let stmt_hash_re = "send" | "option" let stmt_args = ( [ key word . sep_spc . sto_to_spc_noeval ] | [ key word . sep_spc . (rfc_code|eval) ] ) . sep_scl . comment_or_eol let stmt_hash = [ key stmt_hash_re . sep_spc . stmt_args ] let stmt_opt_mod_re = "append" | "prepend" | "default" | "supersede" let stmt_opt_mod = [ key stmt_opt_mod_re . sep_spc . stmt_args ] (************************************************************************ * BLOCK STATEMENTS *************************************************************************) let stmt_block_re = "interface" | "lease" | "alias" let stmt_block_opt_re = "interface" | "script" | "bootp" | "fixed-address" | "filename" | "server-name" | "medium" | "vendor option space" (* TODO: some options could take no argument like bootp *) let stmt_block_opt = [ key stmt_block_opt_re . sep_spc . sto_to_spc . sep_scl . comment_or_eol ] let stmt_block_date_re = "renew" | "rebind" | "expire" let stmt_block_date = [ key stmt_block_date_re . [ sep_spc . label "weekday" . sto_number ] . [ sep_spc . label "year" . sto_number ] . [ sep_slh . label "month" . sto_number ] . [ sep_slh . label "day" . sto_number ] . [ sep_spc . label "hour" . sto_number ] . [ sep_col . label "minute" . sto_number ] . [ sep_col . label "second" . sto_number ] . sep_scl . comment_or_eol ] let stmt_block_arg = sep_spc . sto_to_spc let stmt_block_entry = sep_spc . ( stmt_array | stmt_hash | stmt_opt_mod | stmt_block_opt | stmt_block_date ) let stmt_block = [ key stmt_block_re . stmt_block_arg? . sep_obr . stmt_block_entry+ . sep_cbr . comment_or_eol ] (************************************************************************ * LENS & FILTER *************************************************************************) let statement = (stmt_simple|stmt_opt_mod|stmt_array|stmt_hash|stmt_block) let lns = ( empty | comment | statement )* let filter = incl "/etc/dhcp3/dhclient.conf" . incl "/etc/dhcp/dhclient.conf" . incl "/etc/dhclient.conf" let xfm = transform lns filter PK ! It,�� � lenses/dist/pgbouncer.augnu �[��� (* Module: Pgbouncer Parses Pgbouncer ini configuration files. Author: Andrew Colin Kissa <andrew@topdog.za.net> Baruwa Enterprise Edition http://www.baruwa.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to /etc/pgbouncer.ini See <filter>. About: TODO Create a tree for the database options *) module Pgbouncer = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES ************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep "=" "=" let eol = Util.eol let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+|\*/) (************************************************************************ * Group: ENTRY *************************************************************************) let non_db_line = [ key entry_re . sep . IniFile.sto_to_eol? . eol ] let entry = non_db_line|comment let title = IniFile.title IniFile.record_re let record = IniFile.record title entry (****************************************************************** * Group: LENS AND FILTER ******************************************************************) let lns = IniFile.lns record comment (* Variable: filter *) let filter = incl "/etc/pgbouncer.ini" let xfm = transform lns filter PK ! JJ\qw w lenses/dist/cgconfig.augnu �[��� (* Module: cgconfig Parses /etc/cgconfig.conf Author: Ivana Hutarova Varekova <varekova@redhat.com> Raphael Pinson <raphink@gmail.com> About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool * print all mounted cgroups print /files/etc/cgconfig.conf/mount About: Configuration files This lens applies to /etc/cgconfig.conf. See <filter>. *) module Cgconfig = autoload xfm let indent = Util.indent let eol = Util.eol let comment = Util.comment let empty = Util.empty let id = /[a-zA-Z0-9_\/.-]+/ let name = /[^#= \n\t{}\/]+/ let cont_name = /(cpuacct|cpu|devices|ns|cpuset|memory|freezer|net_cls|blkio|hugetlb|perf_event)/ let role_name = /(admin|task)/ let id_name = /(uid|gid|fperm|dperm)/ let address = /[^#; \n\t{}]+/ let qaddress = address|/"[^#;"\n\t{}]+"/ let lbracket = del /[ \t\n]*\{/ " {" let rbracket = del /[ \t]*\}/ "}" let eq = indent . Util.del_str "=" . indent (****************************************** * Function to deal with abc=def; entries ******************************************) let key_value (key_rx:regexp) (val_rx:regexp) = [ indent . key key_rx . eq . store val_rx . indent . Util.del_str ";" ] (* Function to deal with bracketted entries *) let brack_entry_base (lnsa:lens) (lnsb:lens) = [ indent . lnsa . lbracket . lnsb . rbracket ] let brack_entry_key (kw:regexp) (lns:lens) = let lnsa = key kw in brack_entry_base lnsa lns let brack_entry (kw:regexp) (lns:lens) = let full_lns = (lns | comment | empty)* in brack_entry_key kw full_lns (****************************************** * control groups ******************************************) let permission_setting = key_value id_name address (* task setting *) let t_info = brack_entry "task" permission_setting (* admin setting *) let a_info = brack_entry "admin" permission_setting (* permissions setting *) let perm_info = let ce = (comment|empty)* in let perm_info_lns = ce . ((t_info . ce . (a_info . ce)?) |(a_info . ce . (t_info . ce)?))? in brack_entry_key "perm" perm_info_lns let variable_setting = key_value name qaddress (* controllers setting *) let controller_info = let lnsa = label "controller" . store cont_name in let lnsb = ( variable_setting | comment | empty ) * in brack_entry_base lnsa lnsb (* group { ... } *) let group_data = let lnsa = key "group" . Util.del_ws_spc . store id in let lnsb = ( perm_info | controller_info | comment | empty )* in brack_entry_base lnsa lnsb (************************************************* * mount point *************************************************) (* controller = mount_point; *) let mount_point = key_value name address (* mount { .... } *) let mount_data = brack_entry "mount" mount_point (**************************************************** * namespace ****************************************************) (* controller = cgroup; *) let namespace_instance = key_value name address (* namespace { .... } *) let namespace = brack_entry "namespace" namespace_instance let lns = ( comment | empty | mount_data | group_data | namespace )* let xfm = transform lns (incl "/etc/cgconfig.conf") PK ! �i� lenses/dist/limits.augnu �[��� (* Limits module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: /etc/security/limits.conf *) module Limits = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment_or_eol = Util.comment_or_eol let spc = Util.del_ws_spc let comment = Util.comment let empty = Util.empty let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ (************************************************************************ * ENTRIES *************************************************************************) let domain = label "domain" . store /[%@]?[A-Za-z0-9_.:-]+|\*/ let type_re = "soft" | "hard" | "-" let type = [ label "type" . store type_re ] let item_re = "core" | "data" | "fsize" | "memlock" | "nofile" | "rss" | "stack" | "cpu" | "nproc" | "as" | "maxlogins" | "maxsyslogins" | "priority" | "locks" | "sigpending" | "msgqueue" | "nice" | "rtprio" | "chroot" let item = [ label "item" . store item_re ] let value = [ label "value" . store /[A-Za-z0-9_.\/-]+/ ] let entry = [ domain . spc . type . spc . item . spc . value . comment_or_eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/security/limits.conf" . incl "/etc/security/limits.d/*.conf" let xfm = transform lns filter PK ! >n;R R lenses/dist/nsswitch.augnu �[��� (* Module: Nsswitch Parses /etc/nsswitch.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man nsswitch.conf` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/nsswitch.conf. See <filter>. *) module Nsswitch = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: sep_colon The separator for database entries *) let sep_colon = del /:[ \t]*/ ": " (* View: database_kw The database specification like `passwd', `shadow', or `hosts' *) let database_kw = Rx.word (* View: service The service specification like `files', `db', or `nis' *) let service = [ label "service" . store Rx.word ] (* View: reaction The reaction on lookup result like `[NOTFOUND=return]' TODO: Use case-insensitive regexps when ticket #147 is fixed. *) let reaction = let status_kw = /[Ss][Uu][Cc][Cc][Ee][Ss][Ss]/ | /[Nn][Oo][Tt][Ff][Oo][Uu][Nn][Dd]/ | /[Uu][Nn][Aa][Vv][Aa][Ii][Ll]/ | /[Tt][Rr][Yy][Aa][Gg][Aa][Ii][Nn]/ in let action_kw = /[Rr][Ee][Tt][Uu][Rr][Nn]/ | /[Cc][Oo][Nn][Tt][Ii][Nn][Uu][Ee]/ | /[Mm][Ee][Rr][Gg][Ee]/ in let negate = [ Util.del_str "!" . label "negate" ] in let reaction_entry = [ label "status" . negate? . store status_kw . Util.del_str "=" . [ label "action" . store action_kw ] ] in Util.del_str "[" . [ label "reaction" . (Build.opt_list reaction_entry Sep.space) ] . Util.del_str "]" (* View: database *) let database = [ label "database" . store database_kw . sep_colon . (Build.opt_list (service|reaction) Sep.space) . Util.comment_or_eol ] (* View: lns *) let lns = ( empty | comment | database )* (* Variable: filter *) let filter = (incl "/etc/nsswitch.conf") let xfm = transform lns filter PK ! �Y�� � lenses/dist/spacevars.augnu �[��� (* Spacevars module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man interfaces This is a generic lens for simple key/value configuration files where keys and values are separated by a sequence of spaces or tabs. *) module Spacevars = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let comment = Util.comment let empty = Util.empty (************************************************************************ * ENTRIES *************************************************************************) let entry = Build.key_ws_value /[A-Za-z0-9._-]+(\[[0-9]+\])?/ let flag = [ key /[A-Za-z0-9._-]+(\[[0-9]+\])?/ . Util.doseol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|flag)* let simple_lns = lns (* An alias for compatibility reasons *) (* configuration files that can be parsed without customizing the lens *) let filter = incl "/etc/havp/havp.config" . incl "/etc/ldap.conf" . incl "/etc/ldap/ldap.conf" . incl "/etc/libnss-ldap.conf" . incl "/etc/pam_ldap.conf" let xfm = transform lns filter PK ! ~�i&� � lenses/dist/monit.augnu �[��� (* Monit module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man monit (1), section "HOW TO MONITOR" "A monit control file consists of a series of service entries and global option statements in a free-format, token-oriented syntax. Comments begin with a # and extend through the end of the line. There are three kinds of tokens in the control file: grammar keywords, numbers and strings. On a semantic level, the control file consists of three types of statements: 1. Global set-statements A global set-statement starts with the keyword set and the item to configure. 2. Global include-statement The include statement consists of the keyword include and a glob string. 3. One or more service entry statements. A service entry starts with the keyword check followed by the service type" *) module Monit = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let spc = Sep.space let comment = Util.comment let empty = Util.empty let sto_to_spc = store Rx.space_in let sto_no_spc = store Rx.no_spaces let word = Rx.word let value = Build.key_value_line word spc sto_to_spc (************************************************************************ * ENTRIES *************************************************************************) (* set statement *) let set = Build.key_value "set" spc value (* include statement *) let include = Build.key_value_line "include" spc sto_to_spc (* service statement *) let service = Build.key_value "check" spc (Build.list value spc) let entry = (set|include|service) (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/monit/monitrc" . incl "/etc/monitrc" let xfm = transform lns filter PK ! O� �O O lenses/dist/tinc.augnu �[��� (* Module: Tinc Parses Tinc VPN configuration files Author: Thomas Weißschuh <thomas.weissschuh@amadeus.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Tinc = autoload xfm let no_spaces_no_equals = /[^ \t\r\n=]+/ let assign = del (/[ \t]*[= ][ \t]*/) " = " let del_str = Util.del_str let entry = Build.key_value_line /[A-Za-z]+/ assign (store no_spaces_no_equals) let key_section_start = "-----BEGIN RSA PUBLIC KEY-----\n" let key_section_end = "\n-----END RSA PUBLIC KEY-----" (* the last line does not include a newline *) let base_64 = /[A-Za-z0-9+\/=\n]+[A-Za-z0-9+\/=]/ let key_section = del_str key_section_start . (label "#key" . store base_64) . del_str key_section_end (* we only support a single key section *) let lns = (Util.comment | Util.empty | entry) * . [(key_section . Util.empty *)]? let filter = incl "/etc/tinc.conf" . incl "/etc/tinc/*/tinc.conf" . incl "/etc/tinc/hosts/*" . incl "/etc/tinc/*/hosts/*" let xfm = transform lns filter PK ! ��K�l l lenses/dist/device_map.augnu �[��� (* Parsing grub's device.map *) module Device_map = autoload xfm let sep_tab = Sep.tab let eol = Util.eol let fspath = Rx.fspath let del_str = Util.del_str let comment = Util.comment let empty = Util.empty let dev_name = /(h|f|c)d[0-9]+(,[0-9a-zA-Z]+){0,2}/ let dev_hex = Rx.hex let dev_dec = /[0-9]+/ let device = del_str "(" . key ( dev_name | dev_hex | dev_dec ) . del_str ")" let map = [ device . sep_tab . store fspath . eol ] let lns = ( empty | comment | map ) * let xfm = transform lns (incl "/boot/*/device.map") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! u ��Z Z lenses/dist/nagioscfg.augnu �[��� (* Module: NagiosConfig Parses /etc/{nagios{3,},icinga}/*.cfg Authors: Sebastien Aperghis-Tramoni <sebastien@aperghis.net> Raphaël Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/{nagios{3,},icinga}/*.cfg. See <filter>. *) module NagiosCfg = autoload xfm (************************************************************************ * Group: Utility variables/functions ************************************************************************) (* View: param_def define a field *) let param_def = let space_in = /[^ \t\n][^\n=]*[^ \t\n]|[^ \t\n]/ in key /[A-Za-z0-9_]+/ . Sep.opt_space . Sep.equal . Sep.opt_space . store space_in (* View: macro_def Macro line, as used in resource.cfg *) let macro_def = let macro = /\$[A-Za-z0-9]+\$/ in let macro_decl = Rx.word | Rx.fspath in key macro . Sep.space_equal . store macro_decl (************************************************************************ * Group: Entries ************************************************************************) (* View: param Params can have sub params *) let param = [ Util.indent . param_def . [ Sep.space . param_def ]* . Util.eol ] (* View: macro *) let macro = [ Util.indent . macro_def . Util.eol ] (************************************************************************ * Group: Lens ************************************************************************) (* View: entry Define the accepted entries, such as param for regular configuration files, and macro for resources.cfg .*) let entry = param | macro (* View: lns main structure *) let lns = ( Util.empty | Util.comment | entry )* (* View: filter *) let filter = incl "/etc/nagios3/*.cfg" . incl "/etc/nagios/*.cfg" . incl "/etc/icinga/*.cfg" . excl "/etc/nagios3/commands.cfg" . excl "/etc/nagios/commands.cfg" . excl "/etc/nagios/nrpe.cfg" . incl "/etc/icinga/commands.cfg" let xfm = transform lns filter PK ! ]�e� lenses/dist/htpasswd.augnu �[��� (* Module: Htpasswd Parses htpasswd and rsyncd.secrets files Author: Marc Fournier <marc.fournier@camptocamp.com> About: Reference This lens is based on examples in htpasswd(1) and rsyncd.conf(5) About: Usage Example (start code) augtool> set /augeas/load/Htpasswd/lens "Htpasswd.lns" augtool> set /augeas/load/Htpasswd/incl "/var/www/.htpasswd" augtool> load augtool> get /files/var/www/.htpasswd/foo /files/var/www/.htpasswd/foo = $apr1$e2WS6ARQ$lYhqy9CLmwlxR/07TLR46. augtool> set /files/var/www/.htpasswd/foo bar augtool> save Saved 1 file(s) $ cat /var/www/.htpasswd foo:bar (end code) About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Htpasswd = autoload xfm let entry = Build.key_value_line Rx.word Sep.colon (store Rx.space_in) let lns = (Util.empty | Util.comment | entry)* let filter = incl "/etc/httpd/htpasswd" . incl "/etc/apache2/htpasswd" . incl "/etc/rsyncd.secrets" let xfm = transform lns filter PK ! ai�u # lenses/dist/postfix_passwordmap.augnu �[��� (* Module: Postfix_Passwordmap Parses /etc/postfix/*passwd Author: Anton Baranov <abaranov@linuxfoundation.org> About: Reference This lens tries to keep as close as possible to `man 5 postconf` and http://www.postfix.org/SASL_README.html#client_sasl_enable where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/postfix/*passwd. See <filter>. About: Examples The <Test_Postfix_Passwordmap> file contains various examples and tests. *) module Postfix_Passwordmap = autoload xfm (* View: space_or_eol *) let space_or_eol = del /([ \t]*\n)?[ \t]+/ " " (* View: word *) let word = store /[A-Za-z0-9@_\+\*.-]+/ (* View: colon *) let colon = Sep.colon (* View: username *) let username = [ label "username" . word ] (* View: password *) let password = [ label "password" . (store Rx.space_in)? ] (* View: record *) let record = [ label "pattern" . store /\[?[A-Za-z0-9@\*.-]+\]?(:?[A-Za-z0-9]*)*/ . space_or_eol . username . colon . password . Util.eol ] (* View: lns *) let lns = (Util.empty | Util.comment | record)* (* Variable: filter *) let filter = incl "/etc/postfix/*passwd" . incl "/usr/local/etc/postfix/*passwd" let xfm = transform lns filter PK ! B�K�g g lenses/dist/fuse.augnu �[��� (* Module: Fuse Parses /etc/fuse.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/fuse.conf. See <filter>. About: Examples The <Test_Fuse> file contains various examples and tests. *) module Fuse = autoload xfm (* Variable: equal *) let equal = del /[ \t]*=[ \t]*/ " = " (* View: mount_max *) let mount_max = Build.key_value_line "mount_max" equal (store Rx.integer) (* View: user_allow_other *) let user_allow_other = Build.flag_line "user_allow_other" (* View: lns The fuse.conf lens *) let lns = ( Util.empty | Util.comment | mount_max | user_allow_other )* (* Variable: filter *) let filter = incl "/etc/fuse.conf" let xfm = transform lns filter PK ! �� � lenses/dist/tuned.augnu �[��� (* Module: Tuned Parses Tuned's configuration files Author: Pat Riehecky <riehecky@fnal.gov> About: Reference This lens is based on tuned's tuned-main.conf About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Tuned = autoload xfm let lns = Simplevars.lns let filter = incl "/etc/tuned/tuned-main.conf" let xfm = transform lns filter PK ! �^�C C lenses/dist/postfix_virtual.augnu �[��� (* Module: Postfix_Virtual Parses /etc/postfix/virtual Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `man 5 virtual` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/postfix/virtual. See <filter>. About: Examples The <Test_Postfix_Virtual> file contains various examples and tests. *) module Postfix_Virtual = autoload xfm (* Variable: space_or_eol_re *) let space_or_eol_re = /([ \t]*\n)?[ \t]+/ (* View: space_or_eol *) let space_or_eol (sep:regexp) (default:string) = del (space_or_eol_re? . sep . space_or_eol_re?) default (* View: word *) let word = store /[A-Za-z0-9@\*.+=_-]+/ (* View: comma *) let comma = space_or_eol "," ", " (* View: destination *) let destination = [ label "destination" . word ] (* View: record *) let record = let destinations = Build.opt_list destination comma in [ label "pattern" . word . space_or_eol Rx.space " " . destinations . Util.eol ] (* View: lns *) let lns = (Util.empty | Util.comment | record)* (* Variable: filter *) let filter = incl "/etc/postfix/virtual" . incl "/usr/local/etc/postfix/virtual" let xfm = transform lns filter PK ! ��)� � lenses/dist/pamconf.augnu �[��� (* Module: PamConf Parses /etc/pam.conf files Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to `man pam.conf` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/pam.conf. See <filter>. *) module PamConf = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) let indent = Util.indent let comment = Util.comment let empty = Util.empty let include = Pam.include let service = Rx.word (************************************************************************ * Group: LENSES *************************************************************************) let record = [ seq "record" . indent . [ label "service" . store service ] . Sep.space . Pam.record ] let lns = ( empty | comment | include | record ) * let filter = incl "/etc/pam.conf" let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �:& % lenses/dist/openshift_quickstarts.augnu �[��� (* Module: OpenShift_Quickstarts Parses - /etc/openshift/quickstarts.json Author: Brian Redbeard <redbeard@dead-city.org> About: License This file is licenced under the LGPL v2+, conforming to the other components of Augeas. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/openshift/quickstarts.json ... * Delete the quickstart named WordPress > rm /files/etc/openshift/quickstarts.json/array/dict[*]/entry/dict/entry[*][string = 'WordPress']/../../../ Saving your file: > save About: Configuration files /etc/openshift/quickstarts.json - Quickstarts available via the OpenShift Console. About: Examples The <Test_OpenShift_Quickstarts> file contains various examples and tests. *) module OpenShift_Quickstarts = autoload xfm (* View: lns *) let lns = Json.lns (* Variable: filter *) let filter = incl "/etc/openshift/quickstarts.json" let xfm = transform lns filter (* vim: set ts=4 expandtab sw=4: *) PK ! ��gk� � lenses/dist/clamav.augnu �[��� (* Module: ClamAV Parses ClamAV clamd and freshclam configuration files. Author: Andrew Colin Kissa <andrew@topdog.za.net> Baruwa Enterprise Edition http://www.baruwa.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to /etc/clamd.conf, /etc/freshclam.conf and files in /etc/clamd.d. See <filter>. *) module Clamav = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES ************************************************************************) let word = /[A-Za-z][A-Za-z0-9]+/ let comment = Util.comment let some_value = Sep.space . store Rx.space_in (************************************************************************ * Group: Entry ************************************************************************) let example_entry = [ key "Example" . Util.eol ] let clamd_entry = [ key word . some_value . Util.eol ] (****************************************************************** * Group: LENS AND FILTER ******************************************************************) (************************************************************************ * View: Lns ************************************************************************) let lns = (Util.empty | example_entry | clamd_entry | comment )* (* Variable: filter *) let filter = (incl "/etc/clamd.conf") . (incl "/etc/freshclam.conf") . (incl "/etc/clamd.d/*.conf") . (incl "/etc/clamav/clamd.conf") . (incl "/etc/clamav/freshclam.conf") . (incl "/etc/clamav/clamd.d/*.conf") let xfm = transform lns filter PK ! �-յ$ $ lenses/dist/mke2fs.augnu �[��� (* Module: Mke2fs Parses /etc/mke2fs.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 mke2fs.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/mke2fs.conf. See <filter>. *) module Mke2fs = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment *) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default (* View: sep *) let sep = IniFile.sep /=[ \t]*/ "=" (* View: empty *) let empty = IniFile.empty (* View: boolean The configuration parser of e2fsprogs recognizes different values for booleans, so list all the recognized values *) let boolean = ("y"|"yes"|"true"|"t"|"1"|"on"|"n"|"no"|"false"|"nil"|"0"|"off") (* View: fspath *) let fspath = /[^ \t\n"]+/ (************************************************************************ * Group: RECORD TYPES *************************************************************************) (* View: entry A generic entry for lens lns *) let entry (kw:regexp) (lns:lens) = Build.key_value_line kw sep lns (* View: list_sto A list of values with given lens *) let list_sto (kw:regexp) (lns:lens) = entry kw (Quote.do_dquote_opt_nil (Build.opt_list [lns] Sep.comma)) (* View: entry_sto Store a regexp as entry value *) let entry_sto (kw:regexp) (val:regexp) = entry kw (Quote.do_dquote_opt_nil (store val)) | entry kw (Util.del_str "\"\"") (************************************************************************ * Group: COMMON ENTRIES *************************************************************************) (* View: common_entries_list Entries with a list value *) let common_entries_list = ("base_features"|"default_features"|"default_mntopts") (* View: common_entries_int Entries with an integer value *) let common_entries_int = ("cluster_size"|"flex_bg_size"|"force_undo" |"inode_ratio"|"inode_size"|"num_backup_sb") (* View: common_entries_bool Entries with a boolean value *) let common_entries_bool = ("auto_64-bit_support"|"discard" |"enable_periodic_fsck"|"lazy_itable_init" |"lazy_journal_init"|"packed_meta_blocks") (* View: common_entries_string Entries with a string value *) let common_entries_string = ("encoding"|"journal_location") (* View: common_entries_double Entries with a double value *) let common_entries_double = ("reserved_ratio") (* View: common_entry Entries shared between <defaults> and <fs_types> sections *) let common_entry = list_sto common_entries_list (key Rx.word) | entry_sto common_entries_int Rx.integer | entry_sto common_entries_bool boolean | entry_sto common_entries_string Rx.word | entry_sto common_entries_double Rx.decimal | entry_sto "blocksize" ("-"? . Rx.integer) | entry_sto "hash_alg" ("legacy"|"half_md4"|"tea") | entry_sto "errors" ("continue"|"remount-ro"|"panic") | list_sto "features" ([del /\^/ "^" . label "disable"]? . key Rx.word) | list_sto "options" (key Rx.word . Util.del_str "=" . store Rx.word) (************************************************************************ * Group: DEFAULTS SECTION *************************************************************************) (* View: defaults_entry Possible entries under the <defaults> section *) let defaults_entry = entry_sto "fs_type" Rx.word | entry_sto "undo_dir" fspath (* View: defaults_title Title for the <defaults> section *) let defaults_title = IniFile.title "defaults" (* View: defaults A defaults section *) let defaults = IniFile.record defaults_title ((Util.indent . (defaults_entry|common_entry)) | comment) (************************************************************************ * Group: FS_TYPES SECTION *************************************************************************) (* View: fs_types_record Fs group records under the <fs_types> section *) let fs_types_record = [ label "filesystem" . Util.indent . store Rx.word . del /[ \t]*=[ \t]*\{[ \t]*\n/ " = {\n" . ((Util.indent . common_entry) | empty | comment)* . del /[ \t]*\}[ \t]*\n/ " }\n" ] (* View: fs_types_title Title for the <fs_types> section *) let fs_types_title = IniFile.title "fs_types" (* View: fs_types A fs_types section *) let fs_types = IniFile.record fs_types_title (fs_types_record | comment) (************************************************************************ * Group: OPTIONS SECTION *************************************************************************) (* View: options_entries_int Entries with an integer value *) let options_entries_int = ("proceed_delay"|"sync_kludge") (* View: options_entries_bool Entries with a boolean value *) let options_entries_bool = ("old_bitmaps") (* View: options_entry Possible entries under the <options> section *) let options_entry = entry_sto options_entries_int Rx.integer | entry_sto options_entries_bool boolean (* View: defaults_title Title for the <options> section *) let options_title = IniFile.title "options" (* View: options A options section *) let options = IniFile.record options_title ((Util.indent . options_entry) | comment) (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns The mke2fs lens *) let lns = (empty|comment)* . (defaults|fs_types|options)* (* Variable: filter *) let filter = incl "/etc/mke2fs.conf" let xfm = transform lns filter PK ! �UZ��6 �6 lenses/dist/chrony.augnu �[��� (* Module: Chrony Parses the chrony config file Author: Pat Riehecky <riehecky@fnal.gov> About: Reference This lens tries to keep as close as possible to chrony config syntax See http://chrony.tuxfamily.org/manual.html#Configuration-file About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/chrony.conf See <filter>. *) module Chrony = autoload xfm (************************************************************************ * Group: Import provided expressions ************************************************************************) (* View: empty *) let empty = Util.empty (* View: eol *) let eol = Util.eol (* View: space *) let space = Sep.space (* Variable: email_addr *) let email_addr = Rx.email_addr (* Variable: word *) let word = Rx.word (* Variable: integer *) let integer = Rx.relinteger (* Variable: decimal *) let decimal = Rx.reldecimal (* Variable: ip *) let ip = Rx.ip (* Variable: path *) let path = Rx.fspath (************************************************************************ * Group: Create required expressions ************************************************************************) (* Variable: number *) let number = integer | decimal | decimal . /[eE]/ . integer (* Variable: address_re *) let address_re = Rx.ip | Rx.hostname (* View: comment from 4.2.1 of the upstream doc Chrony comments start with: ! ; # or % and must be on their own line *) let comment = Util.comment_generic /[ \t]*[!;#%][ \t]*/ "# " (* Variable: no_space No spaces or comment characters *) let no_space = /[^ \t\r\n!;#%]+/ (* Variable: cmd_options Server/Peer/Pool options with values *) let cmd_options = "asymmetry" | "filter" | "key" | /maxdelay((dev)?ratio)?/ | /(min|max)poll/ | /(min|max)samples/ | "maxsources" | "mindelay" | "offset" | "polltarget" | "port" | "presend" | "version" (* Variable: cmd_flags Server/Peer/Pool options without values *) let cmd_flags = "auto_offline"|"iburst"|"noselect"|"offline"|"prefer" |"require"|"trust"|"xleave"|"burst"|"nts" (* Variable: ntp_source Server/Peer/Pool key names *) let ntp_source = "server"|"peer"|"pool" (* Variable: allowdeny_types Key names for access configuration *) let allowdeny_types = "allow"|"deny"|"cmdallow"|"cmddeny" (* Variable: hwtimestamp_options HW timestamping options with values *) let hwtimestamp_options = "minpoll"|"precision"|"rxcomp"|"txcomp" |"minsamples"|"maxsamples"|"rxfilter" (* Variable: hwtimestamp_flags HW timestamping options without values *) let hwtimestamp_flags = "nocrossts" (* Variable: local_options local options with values *) let local_options = "stratum"|"distance" (* Variable: local_flags local options without values *) let local_flags = "orphan" (* Variable: ratelimit_options Rate limiting options with values *) let ratelimit_options = "interval"|"burst"|"leak" (* Variable: refclock_options refclock options with values *) let refclock_options = "refid"|"lock"|"poll"|"dpoll"|"filter"|"rate" |"minsamples"|"maxsamples"|"offset"|"delay" |"precision"|"maxdispersion"|"stratum"|"width" (* Variable: refclock_flags refclock options without values *) let refclock_flags = "noselect"|"pps"|"prefer"|"require"|"tai"|"trust" (* Variable: flags Options without values *) let flags = "dumponexit" | "generatecommandkey" | "lock_all" | "manual" | "noclientlog" | "nosystemcert" | "rtconutc" | "rtcsync" (* Variable: log_flags log has a specific options list *) let log_flags = "measurements"|"rawmeasurements"|"refclocks"|"rtc" |"statistics"|"tempcomp"|"tracking" (* Variable: simple_keys Options with single values *) let simple_keys = "acquisitionport" | "authselectmode" | "bindacqaddress" | "bindaddress" | "bindcmdaddress" | "bindacqdevice" | "bindcmddevice" | "binddevice" | "clientloglimit" | "clockprecision" | "combinelimit" | "commandkey" | "cmdport" | "corrtimeratio" | "driftfile" | "dscp" | "dumpdir" | "hwclockfile" | "include" | "keyfile" | "leapsecmode" | "leapsectz" | "linux_freq_scale" | "linux_hz" | "logbanner" | "logchange" | "logdir" | "maxclockerror" | "maxdistance" | "maxdrift" | "maxjitter" | "maxsamples" | "maxslewrate" | "maxntsconnections" | "maxupdateskew" | "minsamples" | "minsources" | "nocerttimecheck" | "ntsdumpdir" | "ntsntpserver" | "ntsport" | "ntsprocesses" | "ntsrefresh" | "ntsrotate" | "ntsservercert" | "ntsserverkey" | "ntstrustedcerts" | "ntpsigndsocket" | "pidfile" | "port" | "reselectdist" | "rtcautotrim" | "rtcdevice" | "rtcfile" | "sched_priority" | "stratumweight" | "user" (************************************************************************ * Group: Make some sub-lenses for use in later lenses ************************************************************************) (* View: host_flags *) let host_flags = [ space . key cmd_flags ] (* View: host_options *) let host_options = [ space . key cmd_options . space . store number ] (* View: log_flag_list *) let log_flag_list = [ space . key log_flags ] (* View: store_address *) let store_address = [ label "address" . store address_re ] (************************************************************************ * Group: Lenses for parsing out sections ************************************************************************) (* View: all_flags options without any arguments *) let all_flags = [ Util.indent . key flags . eol ] (* View: kv options with only one arg can be directly mapped to key = value *) let kv = [ Util.indent . key simple_keys . space . (store no_space) . eol ] (* Property: Options with multiple values Each of these gets their own parsing block - server|peer|pool <address> <options> - allow|deny|cmdallow|cmddeny [all] [<address[/subnet]>] - log <options> - broadcast <interval> <address> <optional port> - fallbackdrift <min> <max> - hwtimestamp <interface> <options> - initstepslew <threshold> <addr> <optional extra addrs> - local <options> - mailonchange <emailaddress> <threshold> - makestep <threshold> <limit> - maxchange <threshold> <delay> <limit> - ratelimit|cmdratelimit|ntsratelimit <options> - refclock <driver> <parameter> <options> - smoothtime <maxfreq> <maxwander> <options> - tempcomp <sensorfile> <interval> (<t0> <k0> <k1> <k2> | <pointfile> ) - confdir|sourcedir <directories> *) (* View: host_list Find all NTP sources and their flags/options *) let host_list = [ Util.indent . key ntp_source . space . store address_re . ( host_flags | host_options )* . eol ] (* View: allowdeny allow/deny/cmdallow/cmddeny has a specific syntax *) let allowdeny = [ Util.indent . key allowdeny_types . [ space . key "all" ]? . ( space . store ( no_space - "all" ) )? . eol ] (* View: log_list log has a specific options list *) let log_list = [ Util.indent . key "log" . log_flag_list+ . eol ] (* View: bcast broadcast has specific syntax *) let bcast = [ Util.indent . key "broadcast" . space . [ label "interval" . store integer ] . space . store_address . ( space . [ label "port" . store integer ] )? . eol ] (* View: bcast confdir and sourcedir have specific syntax *) let dir_list = [ Util.indent . key /(conf|source)dir/ . [ label "directory" . space . store no_space ]+ . eol ] (* View: fdrift fallbackdrift has specific syntax *) let fdrift = [ Util.indent . key "fallbackdrift" . space . [ label "min" . store integer ] . space . [ label "max" . store integer ] . eol ] (* View: hwtimestamp hwtimestamp has specific syntax *) let hwtimestamp = [ Util.indent . key "hwtimestamp" . space . [ label "interface" . store no_space ] . ( space . ( [ key hwtimestamp_flags ] | [ key hwtimestamp_options . space . store no_space ] ) )* . eol ] (* View: istepslew initstepslew has specific syntax *) let istepslew = [ Util.indent . key "initstepslew" . space . [ label "threshold" . store number ] . ( space . store_address )+ . eol ] (* View: local local has specific syntax *) let local = [ Util.indent . key "local" . ( space . ( [ key local_flags ] | [ key local_options . space . store no_space ] ) )* . eol ] (* View: email mailonchange has specific syntax *) let email = [ Util.indent . key "mailonchange" . space . [ label "emailaddress" . store email_addr ] . space . [ label "threshold" . store number ] . eol ] (* View: makestep makestep has specific syntax *) let makestep = [ Util.indent . key "makestep" . space . [ label "threshold" . store number ] . space . [ label "limit" . store integer ] . eol ] (* View: maxchange maxchange has specific syntax *) let maxchange = [ Util.indent . key "maxchange" . space . [ label "threshold" . store number ] . space . [ label "delay" . store integer ] . space . [ label "limit" . store integer ] . eol ] (* View: ratelimit ratelimit/cmdratelimit has specific syntax *) let ratelimit = [ Util.indent . key /(cmd|nts)?ratelimit/ . [ space . key ratelimit_options . space . store no_space ]* . eol ] (* View: refclock refclock has specific syntax *) let refclock = [ Util.indent . key "refclock" . space . [ label "driver" . store word ] . space . [ label "parameter" . store no_space ] . ( space . ( [ key refclock_flags ] | [ key refclock_options . space . store no_space ] ) )* . eol ] (* View: smoothtime smoothtime has specific syntax *) let smoothtime = [ Util.indent . key "smoothtime" . space . [ label "maxfreq" . store number ] . space . [ label "maxwander" . store number ] . ( space . [ key "leaponly" ] )? . eol ] (* View: tempcomp tempcomp has specific syntax *) let tempcomp = [ Util.indent . key "tempcomp" . space . [ label "sensorfile" . store path ] . space . [ label "interval" . store number ] . space . ( [ label "t0" . store number ] . space . [ label "k0" . store number ] . space . [ label "k1" . store number ] . space . [ label "k2" . store number ] | [ label "pointfile" . store path ] ) . eol ] (************************************************************************ * Group: Final lense summary ************************************************************************) (* View: settings * All supported chrony settings *) let settings = host_list | allowdeny | log_list | bcast | fdrift | istepslew | local | email | makestep | maxchange | refclock | smoothtime | dir_list | hwtimestamp | ratelimit | tempcomp | kv | all_flags (* * View: lns * The crony lens *) let lns = ( empty | comment | settings )* (* View: filter * The files parsed by default *) let filter = incl "/etc/chrony.conf" let xfm = transform lns filter PK ! �x�� � lenses/dist/desktop.augnu �[��� (* Module: Desktop Desktop module for Augeas (.desktop files) Author: Raphael Pinson <raphink@gmail.com> About: Lens Usage This lens is made to provide a lens for .desktop files for augeas Reference: Freedesktop.org http://standards.freedesktop.org/desktop-entry-spec/desktop-entry-spec-latest.html About: License This file is licenced under the LGPL v2+, like the rest of Augeas. *) module Desktop = (* We don't load this lens by default Since a lot of desktop files contain unicode characters which we can't parse *) (* autoload xfm *) (* Comments can be only of # type *) let comment = IniFile.comment "#" "#" (* TITLE * These represents sections of a desktop file * Example : [DesktopEntry] *) let title = IniFile.title IniFile.record_re let sep = IniFile.sep "=" "=" let setting = /[A-Za-z0-9_.-]+([][@A-Za-z0-9_.-]+)?/ (* Variable: sto_to_comment Store until comment *) let sto_to_comment = Sep.opt_space . store /[^# \t\r\n][^#\r\n]*[^# \t\r\n]|[^# \t\r\n]/ (* Entries can have comments at their end and so they are modified to represent as such *) let entry = [ key setting . sep . sto_to_comment? . (comment|IniFile.eol) ] | comment let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = ( incl "/usr/share/applications/*.desktop" . incl "/usr/share/applications/screensavers/*.desktop" ) let xfm = transform lns filter PK ! ��%q�S �S lenses/dist/dhcpd.augnu �[��� (* Module: Dhcpd BIND dhcp 3 server configuration module for Augeas Author: Francis Giraldeau <francis.giraldeau@usherbrooke.ca> About: Reference Reference: manual of dhcpd.conf and dhcp-eval Follow dhclient module for tree structure About: License This file is licensed under the GPL. About: Lens Usage Sample usage of this lens in augtool Directive without argument. Set this dhcpd server authoritative on the domain. > clear /files/etc/dhcp3/dhcpd.conf/authoritative Directives with integer or string argument. Set max-lease-time to one hour: > set /files/etc/dhcp3/dhcpd.conf/max-lease-time 3600 Options are declared as a list, even for single values. Set the domain of the network: > set /files/etc/dhcp3/dhcpd.conf/option/domain-name/arg example.org Set two name server: > set /files/etc/dhcp3/dhcpd.conf/option/domain-name-servers/arg[1] foo.example.org > set /files/etc/dhcp3/dhcpd.conf/option/domain-name-servers/arg[2] bar.example.org Create the subnet 172.16.0.1 with 10 addresses: > clear /files/etc/dhcp3/dhcpd.conf/subnet[last() + 1] > set /files/etc/dhcp3/dhcpd.conf/subnet[last()]/network 172.16.0.0 > set /files/etc/dhcp3/dhcpd.conf/subnet[last()]/netmask 255.255.255.0 > set /files/etc/dhcp3/dhcpd.conf/subnet[last()]/range/from 172.16.0.10 > set /files/etc/dhcp3/dhcpd.conf/subnet[last()]/range/to 172.16.0.20 Create a new group "foo" with one static host. Nodes type and address are ordered. > ins group after /files/etc/dhcp3/dhcpd.conf/subnet[network='172.16.0.0']/*[last()] > set /files/etc/dhcp3/dhcpd.conf/subnet[network='172.16.0.0']/group[last()]/host foo > set /files/etc/dhcp3/dhcpd.conf/subnet[network='172.16.0.0']/group[host='foo']/host/hardware/type "ethernet" > set /files/etc/dhcp3/dhcpd.conf/subnet[network='172.16.0.0']/group[host='foo']/host/hardware/address "00:00:00:aa:bb:cc" > set /files/etc/dhcp3/dhcpd.conf/subnet[network='172.16.0.0']/group[host='foo']/host/fixed-address 172.16.0.100 About: Configuration files This lens applies to /etc/dhcpd3/dhcpd.conf. See <filter>. *) module Dhcpd = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let dels (s:string) = del s s let eol = Util.eol let comment = Util.comment let empty = Util.empty let indent = Util.indent let eos = comment? (* Define separators *) let sep_spc = del /[ \t]+/ " " let sep_osp = del /[ \t]*/ "" let sep_scl = del /[ \t]*;([ \t]*\n)*/ ";\n" let sep_obr = del /[ \t\n]*\{([ \t]*\n)*/ " {\n" let sep_cbr = del /[ \t]*\}([ \t]*\n)*/ "}\n" let sep_com = del /[ \t\n]*,[ \t\n]*/ ", " let sep_slh = del "\/" "/" let sep_col = del ":" ":" let sep_eq = del /[ \t\n]*=[ \t\n]*/ "=" let scl = del ";" ";" (* Define basic types *) let word = /[A-Za-z0-9_.-]+(\[[0-9]+\])?/ let ip = Rx.ipv4 (* Define fields *) (* adapted from sysconfig.aug *) (* Chars allowed in a bare string *) let bchar = /[^ \t\n"'\\{}#,()\/]|\\\\./ let qchar = /["']/ (* " *) (* We split the handling of right hand sides into a few cases: * bare - strings that contain no spaces, optionally enclosed in * single or double quotes * dquot - strings that contain at least one space, apostrophe or slash * which must be enclosed in double quotes * squot - strings that contain an unescaped double quote *) let bare = del qchar? "" . store (bchar+) . del qchar? "" let quote = Quote.do_quote (store (bchar* . /[ \t'\/]/ . bchar*)+) let dquote = Quote.do_dquote (store (bchar+)) (* these two are for special cases. bare_to_scl is for any bareword that is * space or semicolon terminated. dquote_any allows almost any character in * between the quotes. *) let bare_to_scl = Quote.do_dquote_opt (store /[^" \t\n;]+/) let dquote_any = Quote.do_dquote (store /[^"\n]*[ \t]+[^"\n]*/) let sto_to_spc = store /[^\\#,;\{\}" \t\n]+|"[^\\#"\n]+"/ let sto_to_scl = store /[^ \t;][^;\n=]+[^ \t;]|[^ \t;=]+/ let sto_number = store /[0-9][0-9]*/ (************************************************************************ * NO ARG STATEMENTS *************************************************************************) let stmt_noarg_re = "authoritative" | "primary" | "secondary" let stmt_noarg = [ indent . key stmt_noarg_re . sep_scl . eos ] (************************************************************************ * INT ARG STATEMENTS *************************************************************************) let stmt_integer_re = "default-lease-time" | "max-lease-time" | "min-lease-time" | /lease[ ]+limit/ | "port" | /peer[ ]+port/ | "max-response-delay" | "max-unacked-updates" | "mclt" | "split" | /load[ ]+balance[ ]+max[ ]+seconds/ | "max-lease-misbalance" | "max-lease-ownership" | "min-balance" | "max-balance" | "adaptive-lease-time-threshold" | "dynamic-bootp-lease-length" | "local-port" | "min-sec" | "omapi-port" | "ping-timeout" | "remote-port" let stmt_integer = [ indent . key stmt_integer_re . sep_spc . sto_number . sep_scl . eos ] (************************************************************************ * STRING ARG STATEMENTS *************************************************************************) let stmt_string_re = "ddns-update-style" | "ddns-updates" | "ddns-hostname" | "ddns-domainname" | "ddns-rev-domainname" | "log-facility" | "server-name" | "fixed-address" | /failover[ ]+peer/ | "use-host-decl-names" | "next-server" | "address" | /peer[ ]+address/ | "type" | "file" | "algorithm" | "secret" | "key" | "include" | "hba" | "boot-unknown-clients" | "db-time-format" | "do-forward-updates" | "dynamic-bootp-lease-cutoff" | "get-lease-hostnames" | "infinite-is-reserved" | "lease-file-name" | "local-address" | "one-lease-per-client" | "pid-file-name" | "ping-check" | "server-identifier" | "site-option-space" | "stash-agent-options" | "update-conflict-detection" | "update-optimization" | "update-static-leases" | "use-host-decl-names" | "use-lease-addr-for-default-route" | "vendor-option-space" | "primary" | "omapi-key" let stmt_string_tpl (kw:regexp) (l:lens) = [ indent . key kw . sep_spc . l . sep_scl . eos ] let stmt_string = stmt_string_tpl stmt_string_re bare | stmt_string_tpl stmt_string_re quote | stmt_string_tpl "filename" dquote (************************************************************************ * RANGE STATEMENTS *************************************************************************) let stmt_range = [ indent . key "range" . sep_spc . [ label "flag" . store /dynamic-bootp/ . sep_spc ]? . [ label "from" . store ip . sep_spc ]? . [ label "to" . store ip ] . sep_scl . eos ] (************************************************************************ * HARDWARE STATEMENTS *************************************************************************) let stmt_hardware = [ indent . key "hardware" . sep_spc . [ label "type" . store /ethernet|tokenring|fddi/ ] . sep_spc . [ label "address" . store /[a-fA-F0-9:-]+/ ] . sep_scl . eos ] (************************************************************************ * SET STATEMENTS *************************************************************************) let stmt_set = [ indent . key "set" . sep_spc . store word . sep_spc . Sep.equal . sep_spc . [ label "value" . sto_to_scl ] . sep_scl . eos ] (************************************************************************ * OPTION STATEMENTS *************************************************************************) (* The general case is considering options as a list *) let stmt_option_value = /((array of[ \t]+)?(((un)?signed[ \t]+)?integer (8|16|32)|string|ip6?-address|boolean|domain-list|text)|encapsulate [A-Za-z0-9_.-]+)/ let stmt_option_list = ([ label "arg" . bare ] | [ label "arg" . quote ]) . ( sep_com . ([ label "arg" . bare ] | [ label "arg" . quote ]))* let del_trail_spc = del /[ \t\n]*/ "" let stmt_record = counter "record" . Util.del_str "{" . sep_spc . ([seq "record" . store stmt_option_value . sep_com]* . [seq "record" . store stmt_option_value . del_trail_spc])? . Util.del_str "}" let stmt_option_code = [ label "label" . store word . sep_spc ] . [ key "code" . sep_spc . store word ] . sep_eq . ([ label "type" . store stmt_option_value ] |[ label "record" . stmt_record ]) let stmt_option_basic = [ key word . sep_spc . stmt_option_list ] let stmt_option_extra = [ key word . sep_spc . store /true|false/ . sep_spc . stmt_option_list ] let stmt_option_body = stmt_option_basic | stmt_option_extra let stmt_option1 = [ indent . key "option" . sep_spc . stmt_option_body . sep_scl . eos ] let stmt_option2 = [ indent . dels "option" . label "rfc-code" . sep_spc . stmt_option_code . sep_scl . eos ] let stmt_option = stmt_option1 | stmt_option2 (************************************************************************ * SUBCLASS STATEMENTS *************************************************************************) (* this statement is not well documented in the manual dhcpd.conf we support basic use case *) let stmt_subclass = [ indent . key "subclass" . sep_spc . ( [ label "name" . bare_to_scl ]|[ label "name" . dquote_any ] ) . sep_spc . ( [ label "value" . bare_to_scl ]|[ label "value" . dquote_any ] ) . sep_scl . eos ] (************************************************************************ * ALLOW/DENY STATEMENTS *************************************************************************) (* We have to use special key for allow/deny members of to avoid ambiguity in the put direction *) let allow_deny_re = /unknown(-|[ ]+)clients/ | /known(-|[ ]+)clients/ | /all[ ]+clients/ | /dynamic[ ]+bootp[ ]+clients/ | /authenticated[ ]+clients/ | /unauthenticated[ ]+clients/ | "bootp" | "booting" | "duplicates" | "declines" | "client-updates" | "leasequery" let stmt_secu_re = "allow" | "deny" let del_allow = del /allow[ ]+members[ ]+of/ "allow members of" let del_deny = del /deny[ \t]+members[ \t]+of/ "deny members of" (* bare is anything but whitespace, quote marks or semicolon. * technically this should be locked down to mostly alphanumerics, but the * idea right now is just to make things work. Also ideally I would use * dquote_space but I had a whale of a time with it. It doesn't like * semicolon termination and my attempts to fix that led me to 3 hours of * frustration and back to this :) *) let stmt_secu_tpl (l:lens) (s:string) = [ indent . l . sep_spc . label s . bare_to_scl . sep_scl . eos ] | [ indent . l . sep_spc . label s . dquote_any . sep_scl . eos ] let stmt_secu = [ indent . key stmt_secu_re . sep_spc . store allow_deny_re . sep_scl . eos ] | stmt_secu_tpl del_allow "allow-members-of" | stmt_secu_tpl del_deny "deny-members-of" (************************************************************************ * MATCH STATEMENTS *************************************************************************) let sto_com = /[^ \t\n,\(\)][^,\(\)]*[^ \t\n,\(\)]|[^ \t\n,\(\)]+/ | word . /[ \t]*\([^)]*\)/ (* this is already the most complicated part of this module and it's about to * get worse. match statements can be way more complicated than this * * examples: * using or: * match if ((option vendor-class-identifier="Banana Bready") or (option vendor-class-identifier="Cherry Sunfire")); * unneeded parenthesis: * match if (option vendor-class-identifier="Hello"); * * and of course the fact that the above two rules used one of infinately * many potential options instead of a builtin function. *) (* sto_com doesn't support quoted strings as arguments. It also doesn't support single arguments (needs to match a comma) It will need to be updated for lcase, ucase and log to be workable. it also doesn't support no arguments, so gethostbyname() doesn't work. option and config-option are considered operators. They should be matched in stmt_entry but also available under "match if" and "if" conditionals leased-address, host-decl-name, both take no args and return a value. We might need to treat them as variable names in the parser. things like this may be near-impossible to parse even with recursion because we have no way of knowing when or if a subfunction takes arguments set ClientMac = binary-to-ascii(16, 8, ":", substring(hardware, 1, 6)); even if we could parse it, they could get arbitrarily complicated like: binary-to-ascii(16, 8, ":", substring(hardware, 1, 6) and substring(hardware, 2, 3)); so at some point we may need to programmatically knock it off and tell people to put weird stuff in an include file that augeas doesn't parse. the other option is to change the API to not parse the if statement at all, just pull in the conditional as a string. *) let fct_re = "substring" | "binary-to-ascii" | "suffix" | "lcase" | "ucase" | "gethostbyname" | "packet" | "concat" | "reverse" | "encode-int" | "extract-int" | "lease-time" | "client-state" | "exists" | "known" | "static" | "pick-first-value" | "log" | "execute" (* not needs to be different because it's a negation of whatever happens next *) let op_re = "~="|"="|"~~"|"and"|"or" let fct_args = [ label "args" . dels "(" . sep_osp . ([ label "arg" . store sto_com ] . [ label "arg" . sep_com . store sto_com ]+) . sep_osp . dels ")" ] let stmt_match_ifopt = [ dels "if" . sep_spc . key "option" . sep_spc . store word . sep_eq . ([ label "value" . bare_to_scl ]|[ label "value" . dquote_any ]) ] let stmt_match_func = [ store fct_re . sep_osp . label "function" . fct_args ] . sep_eq . ([ label "value" . bare_to_scl ]|[ label "value" . dquote_any ]) let stmt_match_pfv = [ label "function" . store "pick-first-value" . sep_spc . dels "(" . sep_osp . [ label "args" . [ label "arg" . store sto_com ] . [ sep_com . label "arg" . store sto_com ]+ ] . dels ")" ] let stmt_match_tpl (l:lens) = [ indent . key "match" . sep_spc . l . sep_scl . eos ] let stmt_match = stmt_match_tpl (dels "if" . sep_spc . stmt_match_func | stmt_match_pfv | stmt_match_ifopt) (************************************************************************ * BLOCK STATEMENTS *************************************************************************) (* Blocks doesn't support comments at the end of the closing bracket *) let stmt_entry = stmt_secu | stmt_option | stmt_hardware | stmt_range | stmt_string | stmt_integer | stmt_noarg | stmt_match | stmt_subclass | stmt_set | empty | comment let stmt_block_noarg_re = "pool" | "group" let stmt_block_noarg (body:lens) = [ indent . key stmt_block_noarg_re . sep_obr . body* . sep_cbr ] let stmt_block_arg_re = "host" | "class" | "shared-network" | /failover[ ]+peer/ | "zone" | "group" | "on" let stmt_block_arg (body:lens) = ([ indent . key stmt_block_arg_re . sep_spc . dquote_any . sep_obr . body* . sep_cbr ] |[ indent . key stmt_block_arg_re . sep_spc . bare_to_scl . sep_obr . body* . sep_cbr ] |[ indent . del /key/ "key" . label "key_block" . sep_spc . dquote_any . sep_obr . body* . sep_cbr . del /(;([ \t]*\n)*)?/ "" ] |[ indent . del /key/ "key" . label "key_block" . sep_spc . bare_to_scl . sep_obr . body* . sep_cbr . del /(;([ \t]*\n)*)?/ "" ]) let stmt_block_subnet (body:lens) = [ indent . key "subnet" . sep_spc . [ label "network" . store ip ] . sep_spc . [ key "netmask" . sep_spc . store ip ] . sep_obr . body* . sep_cbr ] let conditional (body:lens) = let condition = /[^{ \r\t\n][^{\n]*[^{ \r\t\n]|[^{ \t\n\r]/ in let elsif = [ indent . Build.xchgs "elsif" "@elsif" . sep_spc . store condition . sep_obr . body* . sep_cbr ] in let else = [ indent . Build.xchgs "else" "@else" . sep_obr . body* . sep_cbr ] in [ indent . Build.xchgs "if" "@if" . sep_spc . store condition . sep_obr . body* . sep_cbr . elsif* . else? ] let all_block (body:lens) = let lns1 = stmt_block_subnet body in let lns2 = stmt_block_arg body in let lns3 = stmt_block_noarg body in let lns4 = conditional body in (lns1 | lns2 | lns3 | lns4 | stmt_entry) let rec lns_staging = stmt_entry|all_block lns_staging let lns = (lns_staging)* let filter = incl "/etc/dhcp3/dhcpd.conf" . incl "/etc/dhcp/dhcpd.conf" . incl "/etc/dhcpd.conf" let xfm = transform lns filter PK ! u���# # lenses/dist/dpkg.augnu �[��� (* Module: Dpkg Parses /etc/dpkg/dpkg.cfg Author: Robin Lee Powell <rlpowell@digitalkingdom.org> About: License This file, and the attendant test_dpgk.aug, are explicitly placed in the public domain. About: Description dpkg.cfg is a simple list of options, the same ones as the command line options, with or without a value. The tree is a list of either comments or option/value pairs by name. Use "set" to set an option with a value, and "clear" for a bare option. About: Usage Example (start code) $ augtool -n augtool> ls /files/etc/dpkg/dpkg.cfg #comment[1] = dpkg configuration file #comment[2] = This file can contain default options for dpkg. All command-line #comment[3] = options are allowed. Values can be specified by putting them after #comment[4] = the option, separated by whitespace and/or an `=' sign. #comment[5] = Do not enable debsig-verify by default; since the distribution is not using #comment[6] = embedded signatures, debsig-verify would reject all packages. no-debsig = (none) #comment[7] = Log status changes and actions to a file. log = /var/log/dpkg.log augtool> get /files/etc/dpkg/dpkg.cfg/no-debsig /files/etc/dpkg/dpkg.cfg/no-debsig (none) augtool> get /files/etc/dpkg/dpkg.cfg/log /files/etc/dpkg/dpkg.cfg/log = /var/log/dpkg.log augtool> clear /files/etc/dpkg/dpkg.cfg/testopt augtool> set /files/etc/dpkg/dpkg.cfg/testopt2 test augtool> save Saved 1 file(s) augtool> $ cat /etc/dpkg/dpkg.cfg.augnew # dpkg configuration file # # This file can contain default options for dpkg. All command-line # options are allowed. Values can be specified by putting them after # the option, separated by whitespace and/or an `=' sign. # # Do not enable debsig-verify by default; since the distribution is not using # embedded signatures, debsig-verify would reject all packages. no-debsig # Log status changes and actions to a file. log /var/log/dpkg.log testopt testopt2 test (end code) *) module Dpkg = autoload xfm let sep_tab = Util.del_ws_tab let sep_spc = Util.del_ws_spc let eol = del /[ \t]*\n/ "\n" let comment = Util.comment let empty = Util.empty let word = /[^,# \n\t]+/ let keyword = /[^,# \n\t\/]+/ (* View: record Keyword, followed by optional whitespace and value, followed by EOL. The actual file specification doesn't require EOL, but the likelihood of the file not having one is pretty slim, and this way things we add have EOL. *) let record = [ key keyword . (sep_spc . store word)? . eol ] (* View: lns Any number of empty lines, comments, and records. *) let lns = ( empty | comment | record ) * let xfm = transform lns (incl "/etc/dpkg/dpkg.cfg") PK ! ����U U lenses/dist/access.augnu �[��� (* Module: Access Parses /etc/security/access.conf Author: Lorenzo Dalrio <lorenzo.dalrio@gmail.com> About: Reference Some examples of valid entries can be found in access.conf or "man access.conf" 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 * Add a rule to permit login of all users from local sources (tty's, X, cron) > set /files/etc/security/access.conf[0] + > set /files/etc/security/access.conf[0]/user ALL > set /files/etc/security/access.conf[0]/origin LOCAL About: Configuration files This lens applies to /etc/security/access.conf. See <filter>. About: Examples The <Test_Access> file contains various examples and tests. *) module Access = autoload xfm (* Group: Comments and empty lines *) (* Variable: comment *) let comment = Util.comment (* Variable: empty *) let empty = Util.empty (* Group: Useful primitives *) (* Variable: colon * this is the standard field separator " : " *) let colon = del (Rx.opt_space . ":" . Rx.opt_space) " : " (************************************************************************ * Group: ENTRY LINE *************************************************************************) (* View: access * Allow (+) or deny (-) access *) let access = label "access" . store /[+-]/ (* Variable: identifier_re Regex for user/group identifiers *) let identifier_re = /[A-Za-z0-9_.\\-]+/ (* View: user_re * Regex for user/netgroup fields *) let user_re = identifier_re - /[Ee][Xx][Cc][Ee][Pp][Tt]/ (* View: user * user can be a username, username@hostname or a group *) let user = [ label "user" . ( store user_re | store Rx.word . Util.del_str "@" . [ label "host" . store Rx.word ] ) ] (* View: group * Format is (GROUP) *) let group = [ label "group" . Util.del_str "(" . store identifier_re . Util.del_str ")" ] (* View: netgroup * Format is @NETGROUP[@@NISDOMAIN] *) let netgroup = [ label "netgroup" . Util.del_str "@" . store user_re . [ label "nisdomain" . Util.del_str "@@" . store Rx.word ]? ] (* View: user_list * A list of users or netgroups to apply the rule to *) let user_list = Build.opt_list (user|group|netgroup) Sep.space (* View: origin_list * origin_list can be a single ipaddr/originname/domain/fqdn or a list of those values *) let origin_list = let origin_re = Rx.no_spaces - /[Ee][Xx][Cc][Ee][Pp][Tt]/ in Build.opt_list [ label "origin" . store origin_re ] Sep.space (* View: except * The except operator makes it possible to write very compact rules. *) let except (lns:lens) = [ label "except" . Sep.space . del /[Ee][Xx][Cc][Ee][Pp][Tt]/ "EXCEPT" . Sep.space . lns ] (* View: entry * A valid entry line * Definition: * > entry ::= access ':' user ':' origin_list *) let entry = [ access . colon . user_list . (except user_list)? . colon . origin_list . (except origin_list)? . Util.eol ] (************************************************************************ * Group: LENS & FILTER *************************************************************************) (* View: lns The access.conf lens, any amount of * <empty> lines * <comments> * <entry> *) let lns = (comment|empty|entry) * (* Variable: filter *) let filter = incl "/etc/security/access.conf" (* xfm *) let xfm = transform lns filter PK ! ނ�� � lenses/dist/logwatch.augnu �[��� (* Logwatch module for Augeas Author: Francois Lebel <francois@flebel.com> Based on the dnsmasq lens written by Free Ekanayaka. Reference: man logwatch (8) "Format is one option per line, legal options are the same as the long options legal on the command line. See "logwatch.pl --help" or "man 8 logwatch" for details." *) module Logwatch = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let spc = Util.del_ws_spc let comment = Util.comment let empty = Util.empty let sep_eq = del / = / " = " let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ (************************************************************************ * ENTRIES *************************************************************************) let entry_re = /[A-Za-z0-9._-]+/ let entry = [ key entry_re . sep_eq . sto_to_eol . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/logwatch/conf/logwatch.conf" . excl ".*" . Util.stdexcl let xfm = transform lns filter PK ! ��a\ \ lenses/dist/networks.augnu �[��� (* Module: Networks Parses /etc/networks Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 networks` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/networks. See <filter>. *) module Networks = autoload xfm (* View: ipv4 A network IP, trailing .0 may be omitted *) let ipv4 = let dot = "." in let digits = /(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/ in digits . (dot . digits . (dot . digits . (dot . digits)?)?)? (*View: entry *) let entry = let alias = [ seq "alias" . store Rx.word ] in [ seq "network" . counter "alias" . [ label "name" . store Rx.word ] . [ Sep.space . label "number" . store ipv4 ] . [ Sep.space . label "aliases" . Build.opt_list alias Sep.space ]? . (Util.eol|Util.comment) ] (* View: lns *) let lns = ( Util.empty | Util.comment | entry )* (* View: filter *) let filter = incl "/etc/networks" let xfm = transform lns filter PK ! �&#E+ + lenses/dist/fail2ban.augnu �[��� (* Fail2ban module for Augeas *) (* Author: Nicolas Gif <ngf18490@pm.me> *) (* Heavily based on DPUT module by Raphael Pinson *) (* <raphink@gmail.com> *) (* *) module Fail2ban = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default (************************************************************************ * "name: value" entries, with continuations in the style of RFC 822; * "name=value" is also accepted * leading whitespace is removed from values *************************************************************************) let entry = IniFile.entry IniFile.entry_re sep comment (************************************************************************ * sections, led by a "[section]" header * We can't use titles as node names here since they could contain "/" * We remove #comment from possible keys * since it is used as label for comments * We also remove / as first character * because augeas doesn't like '/' keys (although it is legal in INI Files) *************************************************************************) let title = IniFile.title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = (incl "/etc/fail2ban/fail2ban.conf") . (incl "/etc/fail2ban/jail.conf") . (incl "/etc/fail2ban/jail.local") . (incl "/etc/fail2ban/fail2ban.d/*.conf") . (incl "/etc/fail2ban/jail.d/*.conf") let xfm = transform lns filter PK ! 0.E� � lenses/dist/memcached.augnu �[��� (* Module: Memcached Parses Memcached's configuration files Author: Marc Fournier <marc.fournier@camptocamp.com> About: Reference This lens is based on Memcached's default memcached.conf file. About: Usage Example (start code) augtool> get /files/etc/memcached.conf/u /files/etc/memcached.conf/u = nobody augtool> set /files/etc/memcached.conf/m 128 augtool> save Saved 1 file(s) (end code) The <Test_Memcached> file also contains various examples. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Memcached = autoload xfm let comment = Util.comment let comment_eol = Util.comment_generic /[#][ \t]*/ "# " let option = /[a-zA-Z]/ let val = /[^# \n\t]+/ let empty = Util.empty let eol = Util.del_str "\n" let entry = [ Util.del_str "-" . key option . ( Util.del_ws_spc . (store val) )? . del /[ \t]*/ "" . (eol|comment_eol) ] let logfile = Build.key_value_line_comment "logfile" Sep.space (store val) comment let lns = ( entry | logfile | comment | empty )* let filter = incl "/etc/memcached.conf" . incl "/etc/memcachedb.conf" let xfm = transform lns filter PK ! $J��� � lenses/dist/shellvars_list.augnu �[��� (* Generic lens for shell-script config files like the ones found *) (* in /etc/sysconfig, where a string needs to be split into *) (* single words. *) module Shellvars_list = autoload xfm let eol = Util.eol let key_re = /[A-Za-z0-9_]+/ let eq = Util.del_str "=" let comment = Util.comment let comment_or_eol = Util.comment_or_eol let empty = Util.empty let indent = Util.indent let sqword = /[^ '\t\n]+/ let dqword = /([^ "\\\t\n]|\\\\.)+/ let uqword = /([^ `"'\\\t\n]|\\\\.)+/ let bqword = /`[^`\n]*`/ let space_or_nl = /[ \t\n]+/ let space_or_cl = space_or_nl | Rx.cl (* lists values of the form ... val1 val2 val3 ... *) let list (word:regexp) (sep:regexp) = let list_value = store word in indent . [ label "value" . list_value ] . [ del sep " " . label "value" . list_value ]* . indent (* handle single quoted lists *) let squote_arr = [ label "quote" . store /'/ ] . (list sqword space_or_nl)? . del /'/ "'" (* similarly handle double quoted lists *) let dquote_arr = [ label "quote" . store /"/ ] . (list dqword space_or_cl)? . del /"/ "\"" (* handle unquoted single value *) let unquot_val = [ label "quote" . store "" ] . [ label "value" . store (uqword+ | bqword)]? (* lens for key value pairs *) let kv = [ key key_re . eq . ( (squote_arr | dquote_arr) . comment_or_eol | unquot_val . eol ) ] let lns = ( comment | empty | kv )* let filter = incl "/etc/sysconfig/bootloader" . incl "/etc/sysconfig/kernel" let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��L L lenses/dist/jaas.augnu �[��� (* Module Jaas *) (* Original Author: Simon Vocella <voxsim@gmail.com> *) (* Updated by: Steve Shipway <steve@steveshipway.org> *) (* Changes: allow comments within Modules, allow optionless flags, *) (* allow options without linebreaks, allow naked true/false options *) (* Trailing ';' terminator should not be included in option value *) (* Note: requires latest Util.aug for multiline comments to work *) module Jaas = autoload xfm let space_equal = del (/[ \t]*/ . "=" . /[ \t]*/) (" = ") let lbrace = del (/[ \t\n]*\{[ \t]*\n/) " {\n" let rbrace = del (/[ \t]*}[ \t]*;/) " };" let word = /[A-Za-z0-9_.-]+/ let wsnl = del (/[ \t\n]+/) ("\n") let endflag = del ( /[ \t]*;/ ) ( ";" ) let value_re = let value_squote = /'[^\n']*'/ in let value_dquote = /"[^\n"]*"/ in let value_tf = /(true|false)/ in value_squote | value_dquote | value_tf let moduleOption = [ wsnl . key word . space_equal . (store value_re) ] let moduleSuffix = ( moduleOption | Util.eol . Util.comment_c_style | Util.comment_multiline ) let flag = [ Util.del_ws_spc . label "flag" . (store word) . moduleSuffix* . endflag ] let loginModuleClass = [( Util.del_opt_ws "" . label "loginModuleClass" . (store word) . flag ) ] let content = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModuleClass)* let loginModule = [Util.del_opt_ws "" . label "login" . (store word . lbrace) . (content . rbrace)] let lns = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModule)* let filter = incl "/opt/shibboleth-idp/conf/login.config" let xfm = transform lns filter PK ! ߣ�e8 8 lenses/dist/cpanel.augnu �[��� (* Module: CPanel Parses cpanel.config Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens parses cpanel.config files About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to cpanel.config files. See <filter>. About: Examples The <Test_CPanel> file contains various examples and tests. *) module CPanel = autoload xfm (* View: kv A key-value pair, supporting flags and empty values *) let kv = [ key /[A-Za-z0-9:_.-]+/ . (Sep.equal . store (Rx.space_in?))? . Util.eol ] (* View: lns The <CPanel> lens *) let lns = (Util.comment | Util.empty | kv)* (* View: filter *) let filter = incl "/var/cpanel/cpanel.config" let xfm = transform lns filter PK ! d�ɒ� � lenses/dist/aliases.augnu �[��� (* Module: Aliases Parses /etc/aliases Author: David Lutterkort <lutter@redhat.com> About: Reference This lens tries to keep as close as possible to `man 5 aliases` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage See <lns>. About: Configuration files This lens applies to /etc/aliases. About: Examples The <Test_Aliases> file contains various examples and tests. *) module Aliases = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: basic tokens *) (* Variable: word *) let word = /[^|", \t\n]+/ (* Variable: name *) let name = /([^ \t\n#:|@]+|"[^"|\n]*")/ (* " make emacs calm down *) (* Variable: command * a command can contain spaces, if enclosed in double quotes, the case * without spaces is taken care with <word> *) let command = /(\|([^", \t\n]+|"[^"\n]+"))|("\|[^"\n]+")/ (* Group: Comments and empty lines *) (* View: eol *) let eol = Util.eol (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* Group: separators *) (* View: colon * Separation between the alias and it's destinations *) let colon = del /[ \t]*:[ \t]*/ ":\t" (* View: comma * Separation between multiple destinations *) let comma = del /[ \t]*,[ \t]*(\n[ \t]+)?/ ", " (* Group: alias *) (* View: destination * Can be either a word (no spaces included) or a command with spaces *) let destination = ( word | command ) (* View: value_list * List of destinations *) let value_list = Build.opt_list ([ label "value" . store destination]) comma (* View: alias * a name with one or more destinations *) let alias = [ seq "alias" . [ label "name" . store name ] . colon . value_list ] . eol (* View: lns *) let lns = (comment | empty | alias)* let xfm = transform lns (incl "/etc/aliases") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��)�Y Y lenses/dist/php.augnu �[��� (* PHP module for Augeas *) (* Author: Raphael Pinson <raphink@gmail.com> *) (* *) module PHP = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let empty = IniFile.empty (************************************************************************ * ENTRY * * We have to remove the keyword "section" from possible entry keywords * otherwise it would lead to an ambiguity with the "section" label * since PHP allows entries outside of sections. *************************************************************************) let entry = let word = IniFile.entry_re in let entry_re = word . ( "[" . word . "]" )? in IniFile.indented_entry entry_re sep comment (************************************************************************ * TITLE * * We use IniFile.title_label because there can be entries * outside of sections whose labels would conflict with section names *************************************************************************) let title = IniFile.title ( IniFile.record_re - ".anon" ) let record = IniFile.record title entry let record_anon = [ label ".anon" . ( entry | empty )+ ] (************************************************************************ * LENS & FILTER * There can be entries before any section * IniFile.entry includes comment management, so we just pass entry to lns *************************************************************************) let lns = record_anon? . record* let filter = (incl "/etc/php*/*/*.ini") . (incl "/etc/php/*/*/*.ini") . (incl "/etc/php.ini") . (incl "/etc/php.d/*.ini") (* PHPFPM Support *) . (incl "/etc/php*/fpm/pool.d/*.conf") . (incl "/etc/php/*/fpm/pool.d/*.conf") (* Zend Community edition *) . (incl "/usr/local/zend/etc/php.ini") . (incl "/usr/local/zend/etc/conf.d/*.ini") . Util.stdexcl let xfm = transform lns filter PK ! �w�� � lenses/dist/bootconf.augnu �[��� (* Module: BootConf Parses (Open)BSD-stype /etc/boot.conf Author: Jasper Lievisse Adriaanse <jasper@jasper.la> About: Reference This lens is used to parse the second-stage bootstrap configuration file, /etc/boot.conf as found on OpenBSD. The format is largely MI, with MD parts included: http://www.openbsd.org/cgi-bin/man.cgi?query=boot.conf&arch=i386 About: Usage Example To be documented About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/boot.conf. See <filter>. *) module BootConf = autoload xfm (************************************************************************ * Utility variables/functions ************************************************************************) (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: eol *) let eol = Util.eol (* View: fspath *) let fspath = Rx.fspath (* View: space *) let space = Sep.space (* View: word *) let word = Rx.word (************************************************************************ * View: key_opt_value_line * A subnode with a keyword, an optional part consisting of a separator * and a storing lens, and an end of line * * Parameters: * kw:regexp - the pattern to match as key * sto:lens - the storing lens ************************************************************************) let key_opt_value_line (kw:regexp) (sto:lens) = [ key kw . (space . sto)? . eol ] (************************************************************************ * Commands ************************************************************************) (* View: single_command single command such as 'help' or 'time' *) let single_command = let line_re = /help|time|reboot/ in [ Util.indent . key line_re . eol ] (* View: ls ls [directory] *) let ls = Build.key_value_line "ls" space (store fspath) let set_cmd = "addr" | "debug" | "device" | "howto" | "image" | "timeout" | "tty" (* View: set set [varname [value]] *) let set = Build.key_value "set" space (key_opt_value_line set_cmd (store Rx.space_in)) (* View: stty stty [device [speed]] *) let stty = let device = [ label "device" . store fspath ] in let speed = [ label "speed" . store Rx.integer ] in key_opt_value_line "stty" (device . (space . speed)?) (* View: echo echo [args] *) let echo = Build.key_value_line "echo" space (store word) (* View: boot boot [image [-acds]] XXX: the last arguments are not always needed, so make them optional *) let boot = let image = [ label "image" . store fspath ] in let arg = [ label "arg" . store word ] in Build.key_value_line "boot" space (image . space . arg) (* View: machine machine [command] *) let machine = let machine_entry = Build.key_value ("comaddr"|"memory") space (store word) | Build.flag ("diskinfo"|"regs") in Build.key_value_line "machine" space (Build.opt_list machine_entry space) (************************************************************************ * Lens ************************************************************************) (* View: command *) let command = boot | echo | ls | machine | set | stty (* View: lns *) let lns = ( empty | comment | command | single_command )* (* Variable: filter *) let filter = (incl "/etc/boot.conf") let xfm = transform lns filter PK ! {� �� � lenses/dist/modules.augnu �[��� (* Module: Modules Parses /etc/modules About: Reference This lens tries to keep as close as possible to `man 5 modules` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/modules. See <filter>. *) module Modules = autoload xfm (* View: word *) let word = /[^#, \n\t\/]+/ (* View: sto_line *) let sto_line = store /[^# \t\n].*[^ \t\n]|[^# \t\n]/ (* View: record *) let record = [ key word . (Util.del_ws_tab . sto_line)? . Util.eol ] (* View: lns *) let lns = ( Util.empty | Util.comment | record ) * (* View: filter *) let filter = incl "/etc/modules" let xfm = transform lns filter PK ! 1�/�O O lenses/dist/toml.augnu �[��� (* Module: Toml Parses TOML files Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference https://github.com/mojombo/toml/blob/master/README.md About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to TOML files. About: Examples The <Test_Toml> file contains various examples and tests. *) module Toml = (* Group: base definitions *) (* View: comment A simple comment *) let comment = IniFile.comment "#" "#" (* View: empty An empty line *) let empty = Util.empty_dos (* View: eol An end of line *) let eol = Util.doseol (* Group: value entries *) let bare_re_noquot = (/[^][", \t\r\n]/ - "#") let bare_re = (/[^][,\r=]/ - "#")+ let no_quot = /[^]["\r\n]*/ let bare = Quote.do_dquote_opt_nil (store (bare_re_noquot . (bare_re* . bare_re_noquot)?)) let quoted = Quote.do_dquote (store (/[^"]/ . "#"* . /[^"]/)) let ws = del /[ \t\n]*/ "" let space_or_empty = [ del /[ \t\n]+/ " " ] let comma = Util.del_str "," . (space_or_empty | comment)? let lbrace = Util.del_str "{" . (space_or_empty | comment)? let rbrace = Util.del_str "}" let lbrack = Util.del_str "[" . (space_or_empty | comment)? let rbrack = Util.del_str "]" (* This follows the definition of 'string' at https://www.json.org/ It's a little wider than what's allowed there as it would accept nonsensical \u escapes *) let triple_dquote = Util.del_str "\"\"\"" let str_store = Quote.dquote . store /([^\\"]|\\\\["\/bfnrtu\\])*/ . Quote.dquote let str_store_multi = triple_dquote . eol . store /([^\\"]|\\\\["\/bfnrtu\\])*/ . del /\n[ \t]*/ "\n" . triple_dquote let str_store_literal = Quote.squote . store /([^\\']|\\\\['\/bfnrtu\\])*/ . Quote.squote let integer = let base10 = /[+-]?[0-9_]+/ in let hex = /0x[A-Za-z0-9]+/ in let oct = /0o[0-7]+/ in let bin = /0b[01]+/ in [ label "integer" . store (base10 | hex | oct | bin) ] let float = let n = /[0-9_]+/ in let pm = /[+-]?/ in let z = pm . n in let decim = "." . n in let exp = /[Ee]/ . z in let num = z . decim | z . exp | z . decim . exp in let inf = pm . "inf" in let nan = pm . "nan" in [ label "float" . store (num | inf | nan) ] let str = [ label "string" . str_store ] let str_multi = [ label "string_multi" . str_store_multi ] let str_literal = [ label "string_literal" . str_store_literal ] let bool (r:regexp) = [ label "bool" . store r ] let date_re = /[0-9]{4}-[0-9]{2}-[0-9]{2}/ let time_re = /[0-9]{1,2}:[0-9]{2}:[0-9]{2}(\.[0-9]+)?[A-Z]*/ let datetime = [ label "datetime" . store (date_re . /[T ]/ . time_re) ] let date = [ label "date" . store date_re ] let time = [ label "time" . store time_re ] let norec = str | str_multi | str_literal | integer | float | bool /true|false/ | datetime | date | time let array (value:lens) = [ label "array" . lbrack . ( ( Build.opt_list value comma . space_or_empty? . rbrack ) | rbrack ) ] let array_norec = array norec let rec array_rec = array (norec | array_rec) let entry_base (value:lens) = [ label "entry" . store Rx.word . Sep.space_equal . value ] let inline_table (value:lens) = [ label "inline_table" . lbrace . ( (Build.opt_list (entry_base value) comma . space_or_empty? . rbrace) | rbrace ) ] let entry = [ label "entry" . Util.indent . store Rx.word . Sep.space_equal . (norec | array_rec | inline_table (norec|array_norec)) . (eol | comment) ] (* Group: tables *) (* View: table_gen A generic table *) let table_gen (name:string) (lbrack:string) (rbrack:string) = let title = Util.indent . label name . Util.del_str lbrack . store /[^]\r\n.]+(\.[^]\r\n.]+)*/ . Util.del_str rbrack . eol in [ title . (entry|empty|comment)* ] (* View: table A table or array of tables *) let table = table_gen "table" "[" "]" | table_gen "@table" "[[" "]]" (* Group: lens *) (* View: lns The Toml lens *) let lns = (entry | empty | comment)* . table* PK ! �ƩI lenses/dist/termcap.augnu �[��� (* Module: Termcap Parses termcap capability database Author: Matt Dainty <matt@bodgit-n-scarper.com> About: Reference - man 5 termcap Each line represents a record consisting of a number of ':'-separated fields the first of which is the name or identifier for the record. The name can optionally be split by '|' and each subsequent value is considered an alias of the first. Records can be split across multiple lines with '\'. *) module Termcap = autoload xfm (* All termcap capabilities are two characters, optionally preceded by *) (* upto two periods and the only types are boolean, numeric or string *) let cfield = /\.{0,2}([a-zA-Z0-9]{2}|[@#%&*!][a-zA-Z0-9]|k;)(#?@|#[0-9]+|=([^:\\\\^]|\\\\[0-7]{3}|\\\\[:bBcCeEfFnNrRstT0\\^]|\^.)*)?/ let lns = ( Util.empty | Getcap.comment | Getcap.record cfield )* let filter = incl "/etc/termcap" . incl "/usr/share/misc/termcap" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! S��C C lenses/dist/iproute2.augnu �[��� module IPRoute2 = autoload xfm let empty = [ del /[ \t]*#?[ \t]*\n/ "\n" ] let id = Rx.hex | Rx.integer let record = [ key id . del /[ \t]+/ "\t" . store /[a-zA-Z0-9\/-]+/ . Util.comment_or_eol ] let lns = ( empty | Util.comment | record ) * let xfm = transform lns (incl "/etc/iproute2/*" . Util.stdexcl) PK ! �c��5 5 lenses/dist/properties.augnu �[��� (* Augeas module for editing Java properties files Author: Craig Dunn <craig@craigdunn.org> Limitations: - doesn't support \ alone on a line - values are not unescaped - multi-line properties are broken down by line, and can't be replaced with a single line See format info: http://docs.oracle.com/javase/6/docs/api/java/util/Properties.html#load(java.io.Reader) *) module Properties = (* Define some basic primitives *) let empty = Util.empty_generic_dos /[ \t]*[#!]?[ \t]*/ let eol = Util.doseol let hard_eol = del /\r?\n/ "\n" let sepch = del /([ \t]*(=|:)|[ \t])/ "=" let sepspc = del /[ \t]/ " " let sepch_ns = del /[ \t]*(=|:)/ "=" let sepch_opt = del /[ \t]*(=|:)?[ \t]*/ "=" let value_to_eol_ws = store /(:|=)[^\r\n]*[^ \t\r\n\\]/ let value_to_bs_ws = store /(:|=)[^\n]*[^\\\n]/ let value_to_eol = store /([^ \t\n:=][^\n]*[^ \t\r\n\\]|[^ \t\r\n\\:=])/ let value_to_bs = store /([^ \t\n:=][^\n]*[^\\\n]|[^ \t\n\\:=])/ let indent = Util.indent let backslash = del /[\\][ \t]*\n/ "\\\n" let opt_backslash = del /([\\][ \t]*\n)?/ "" let entry = /([^ \t\r\n:=!#\\]|[\\]:|[\\]=|[\\][\t ]|[\\][^\/\r\n])+/ let multi_line_entry = [ indent . value_to_bs? . backslash ] . [ indent . value_to_bs . backslash ] * . [ indent . value_to_eol . eol ] . value " < multi > " let multi_line_entry_ws = opt_backslash . [ indent . value_to_bs_ws . backslash ] + . [ indent . value_to_eol . eol ] . value " < multi_ws > " (* define comments and properties*) let bang_comment = [ label "!comment" . del /[ \t]*![ \t]*/ "! " . store /([^ \t\n].*[^ \t\r\n]|[^ \t\r\n])/ . eol ] let comment = ( Util.comment | bang_comment ) let property = [ indent . key entry . sepch . ( multi_line_entry | indent . value_to_eol . eol ) ] let property_ws = [ indent . key entry . sepch_ns . ( multi_line_entry_ws | indent . value_to_eol_ws . eol ) ] let empty_property = [ indent . key entry . sepch_opt . hard_eol ] let empty_key = [ sepch_ns . ( multi_line_entry | indent . value_to_eol . eol ) ] (* setup our lens and filter*) let lns = ( empty | comment | property_ws | property | empty_property | empty_key ) * PK ! � K� � lenses/dist/rabbitmq.augnu �[��� (* Module: Rabbitmq Parses Rabbitmq configuration files Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `http://www.rabbitmq.com/configure.html` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to Rabbitmq configuration files. See <filter>. About: Examples The <Test_Rabbitmq> file contains various examples and tests. *) module Rabbitmq = autoload xfm (* View: listeners A tcp/ssl listener *) let listeners = let value = Erlang.make_value Erlang.integer | Erlang.tuple Erlang.quoted Erlang.integer in Erlang.list /(tcp|ssl)_listeners/ value (* View: ssl_options (Incomplete) list of SSL options *) let ssl_options = let versions_list = Erlang.opt_list (Erlang.make_value Erlang.quoted) in let option = Erlang.value /((ca)?cert|key)file/ Erlang.path | Erlang.value "verify" Erlang.bare | Erlang.value "verify_fun" Erlang.boolean | Erlang.value /fail_if_no_peer_cert|reuse_sessions/ Erlang.boolean | Erlang.value "depth" Erlang.integer | Erlang.value "password" Erlang.quoted | Erlang.value "versions" versions_list in Erlang.list "ssl_options" option (* View: disk_free_limit *) let disk_free_limit = let value = Erlang.integer | Erlang.tuple Erlang.bare Erlang.decimal in Erlang.value "disk_free_limit" value (* View: log_levels *) let log_levels = let category = Erlang.tuple Erlang.bare Erlang.bare in Erlang.list "log_levels" category (* View: cluster_nodes Can be a tuple `(nodes, node_type)` or simple `nodes` *) let cluster_nodes = let nodes = Erlang.opt_list (Erlang.make_value Erlang.quoted) in let value = Erlang.tuple nodes Erlang.bare | nodes in Erlang.value "cluster_nodes" value (* View: cluster_partition_handling Can be single value or `{pause_if_all_down, [nodes], ignore | autoheal}` *) let cluster_partition_handling = let nodes = Erlang.opt_list (Erlang.make_value Erlang.quoted) in let value = Erlang.tuple3 Erlang.bare nodes Erlang.bare | Erlang.bare in Erlang.value "cluster_partition_handling" value (* View: tcp_listen_options *) let tcp_listen_options = let value = Erlang.make_value Erlang.bare | Erlang.tuple Erlang.bare Erlang.bare in Erlang.list "tcp_listen_options" value (* View: parameters Top-level parameters for the lens *) let parameters = listeners | ssl_options | disk_free_limit | log_levels | Erlang.value /vm_memory_high_watermark(_paging_ratio)?/ Erlang.decimal | Erlang.value "frame_max" Erlang.integer | Erlang.value "heartbeat" Erlang.integer | Erlang.value /default_(vhost|user|pass)/ Erlang.glob | Erlang.value_list "default_user_tags" Erlang.bare | Erlang.value_list "default_permissions" Erlang.glob | cluster_nodes | Erlang.value_list "server_properties" Erlang.bare | Erlang.value "collect_statistics" Erlang.bare | Erlang.value "collect_statistics_interval" Erlang.integer | Erlang.value_list "auth_mechanisms" Erlang.quoted | Erlang.value_list "auth_backends" Erlang.bare | Erlang.value "delegate_count" Erlang.integer | Erlang.value_list "trace_vhosts" Erlang.bare | tcp_listen_options | Erlang.value "hipe_compile" Erlang.boolean | Erlang.value "msg_store_index_module" Erlang.bare | Erlang.value "backing_queue_module" Erlang.bare | Erlang.value "msg_store_file_size_limit" Erlang.integer | Erlang.value /queue_index_(max_journal_entries|embed_msgs_below)/ Erlang.integer | cluster_partition_handling | Erlang.value /(ssl_)?handshake_timeout/ Erlang.integer | Erlang.value "channel_max" Erlang.integer | Erlang.value_list "loopback_users" Erlang.glob | Erlang.value "reverse_dns_lookups" Erlang.boolean | Erlang.value "cluster_keepalive_interval" Erlang.integer | Erlang.value "mnesia_table_loading_timeout" Erlang.integer (* View: rabbit The rabbit <Erlang.application> config *) let rabbit = Erlang.application "rabbit" parameters (* View: lns A top-level <Erlang.config> *) let lns = Erlang.config rabbit (* Variable: filter *) let filter = incl "/etc/rabbitmq/rabbitmq.config" let xfm = transform lns filter PK ! ���J J lenses/dist/getcap.augnu �[��� (* Module: Getcap Parses generic termcap-style capability databases Author: Matt Dainty <matt@bodgit-n-scarper.com> About: Reference - man 3 getcap - man 5 login.conf - man 5 printcap Each line represents a record consisting of a number of ':'-separated fields the first of which is the name or identifier for the record. The name can optionally be split by '|' and each subsequent value is considered an alias of the first. Records can be split across multiple lines with '\'. See also the Rtadvd and Termcap modules which contain slightly more specific grammars. *) module Getcap = autoload xfm (* Comments cannot have any leading characters *) let comment = Util.comment_generic /#[ \t]*/ "# " let nfield = /[^#:\\\\\t\n|][^:\\\\\t\n|]*/ (* field must not contain ':' *) let cfield = /[a-zA-Z0-9-]+([%^$#\\]?@|[%^$#\\=]([^:\\\\^]|\\\\[0-7]{1,3}|\\\\[bBcCeEfFnNrRtT\\^]|\^.)*)?/ let csep = del /:([ \t]*\\\\\n[ \t]*:)?/ ":\\\n\t:" let nsep = Util.del_str "|" let name = [ label "name" . store nfield ] let capability (re:regexp) = [ label "capability" . store re ] let record (re:regexp) = [ label "record" . name . ( nsep . name )* . ( csep . capability re )* . Sep.colon . Util.eol ] let lns = ( Util.empty | comment | record cfield )* let filter = incl "/etc/login.conf" . incl "/etc/printcap" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��@_� � lenses/dist/krb5.augnu �[��� module Krb5 = autoload xfm let comment = Inifile.comment IniFile.comment_re "#" let empty = Inifile.empty let eol = Inifile.eol let dels = Util.del_str let indent = del /[ \t]*/ "" let comma_or_space_sep = del /[ \t,]{1,}/ " " let eq = del /[ \t]*=[ \t]*/ " = " let eq_openbr = del /[ \t]*=[ \t\n]*\{[ \t]*\n/ " = {\n" let closebr = del /[ \t]*\}/ "}" (* These two regexps for realms and apps are not entirely true - strictly speaking, there's no requirement that a realm is all upper case and an application only uses lowercase. But it's what's used in practice. Without that distinction we couldn't distinguish between applications and realms in the [appdefaults] section. *) let include_re = /include(dir)?/ let realm_re = /[A-Z0-9][.a-zA-Z0-9-]*/ let realm_anycase_re = /[A-Za-z0-9][.a-zA-Z0-9-]*/ let app_re = /[a-z][a-zA-Z0-9_]*/ let name_re = /[.a-zA-Z0-9_-]+/ - include_re let value_br = store /[^;# \t\r\n{}]+/ let value = store /[^;# \t\r\n]+/ let entry (kw:regexp) (sep:lens) (value:lens) (comment:lens) = [ indent . key kw . sep . value . (comment|eol) ] | comment let subsec_entry (kw:regexp) (sep:lens) (comment:lens) = ( entry kw sep value_br comment ) | empty let simple_section (n:string) (k:regexp) = let title = Inifile.indented_title n in let entry = entry k eq value comment in Inifile.record title entry let record (t:string) (e:lens) = let title = Inifile.indented_title t in Inifile.record title e let v4_name_convert (subsec:lens) = [ indent . key "v4_name_convert" . eq_openbr . subsec* . closebr . eol ] (* For the enctypes this appears to be a list of the valid entries: c4-hmac arcfour-hmac aes128-cts rc4-hmac arcfour-hmac-md5 des3-cbc-sha1 des-cbc-md5 des-cbc-crc *) let enctype_re = /[a-zA-Z0-9-]{3,}/ let enctypes = /permitted_enctypes|default_tgs_enctypes|default_tkt_enctypes/i (* An #eol label prevents ambiguity between "k = v1 v2" and "k = v1\n k = v2" *) let enctype_list (nr:regexp) (ns:string) = indent . del nr ns . eq . Build.opt_list [ label ns . store enctype_re ] comma_or_space_sep . (comment|eol) . [ label "#eol" ] let libdefaults = let option = entry (name_re - ("v4_name_convert" |enctypes)) eq value comment in let enctype_lists = enctype_list /permitted_enctypes/i "permitted_enctypes" | enctype_list /default_tgs_enctypes/i "default_tgs_enctypes" | enctype_list /default_tkt_enctypes/i "default_tkt_enctypes" in let subsec = [ indent . key /host|plain/ . eq_openbr . (subsec_entry name_re eq comment)* . closebr . eol ] in record "libdefaults" (option|enctype_lists|v4_name_convert subsec) let login = let keys = /krb[45]_get_tickets|krb4_convert|krb_run_aklog/ |/aklog_path|accept_passwd/ in simple_section "login" keys let appdefaults = let option = entry (name_re - ("realm" | "application")) eq value_br comment in let realm = [ indent . label "realm" . store realm_re . eq_openbr . (option|empty)* . closebr . eol ] in let app = [ indent . label "application" . store app_re . eq_openbr . (realm|option|empty)* . closebr . eol] in record "appdefaults" (option|realm|app) let realms = let simple_option = /kdc|admin_server|database_module|default_domain/ |/v4_realm|auth_to_local(_names)?|master_kdc|kpasswd_server/ |/admin_server|ticket_lifetime|pkinit_(anchors|identities|identity|pool)/ |/krb524_server/ in let subsec_option = /v4_instance_convert/ in let option = subsec_entry simple_option eq comment in let subsec = [ indent . key subsec_option . eq_openbr . (subsec_entry name_re eq comment)* . closebr . eol ] in let v4subsec = [ indent . key /host|plain/ . eq_openbr . (subsec_entry name_re eq comment)* . closebr . eol ] in let realm = [ indent . label "realm" . store realm_anycase_re . eq_openbr . (option|subsec|(v4_name_convert v4subsec))* . closebr . eol ] in record "realms" (realm|comment) let domain_realm = simple_section "domain_realm" name_re let logging = let keys = /kdc|admin_server|default/ in let xchg (m:regexp) (d:string) (l:string) = del m d . label l in let xchgs (m:string) (l:string) = xchg m m l in let dest = [ xchg /FILE[=:]/ "FILE=" "file" . value ] |[ xchgs "STDERR" "stderr" ] |[ xchgs "CONSOLE" "console" ] |[ xchgs "DEVICE=" "device" . value ] |[ xchgs "SYSLOG" "syslog" . ([ xchgs ":" "severity" . store /[A-Za-z0-9]+/ ]. [ xchgs ":" "facility" . store /[A-Za-z0-9]+/ ]?)? ] in let entry = [ indent . key keys . eq . dest . (comment|eol) ] | comment in record "logging" entry let capaths = let realm = [ indent . key realm_re . eq_openbr . (entry realm_re eq value_br comment)* . closebr . eol ] in record "capaths" (realm|comment) let dbdefaults = let keys = /database_module|ldap_kerberos_container_dn|ldap_kdc_dn/ |/ldap_kadmind_dn|ldap_service_password_file|ldap_servers/ |/ldap_conns_per_server/ in simple_section "dbdefaults" keys let dbmodules = let subsec_key = /database_name|db_library|disable_last_success/ |/disable_lockout|ldap_conns_per_server|ldap_(kdc|kadmind)_dn/ |/ldap_(kdc|kadmind)_sasl_mech|ldap_(kdc|kadmind)_sasl_authcid/ |/ldap_(kdc|kadmind)_sasl_authzid|ldap_(kdc|kadmind)_sasl_realm/ |/ldap_kerberos_container_dn|ldap_servers/ |/ldap_service_password_file|mapsize|max_readers|nosync/ |/unlockiter/ in let subsec_option = subsec_entry subsec_key eq comment in let key = /db_module_dir/ in let option = entry key eq value comment in let realm = [ indent . label "realm" . store realm_re . eq_openbr . (subsec_option)* . closebr . eol ] in record "dbmodules" (option|realm) (* This section is not documented in the krb5.conf manpage, but the Fermi example uses it. *) let instance_mapping = let value = dels "\"" . store /[^;# \t\r\n{}]*/ . dels "\"" in let map_node = label "mapping" . store /[a-zA-Z0-9\/*]+/ in let mapping = [ indent . map_node . eq . [ label "value" . value ] . (comment|eol) ] in let instance = [ indent . key name_re . eq_openbr . (mapping|comment)* . closebr . eol ] in record "instancemapping" instance let kdc = simple_section "kdc" /profile/ let pam = simple_section "pam" name_re let plugins = let interface_option = subsec_entry name_re eq comment in let interface = [ indent . key name_re . eq_openbr . (interface_option)* . closebr . eol ] in record "plugins" (interface|comment) let includes = Build.key_value_line include_re Sep.space (store Rx.fspath) let include_lines = includes . (comment|empty)* let lns = (comment|empty)* . (libdefaults|login|appdefaults|realms|domain_realm |logging|capaths|dbdefaults|dbmodules|instance_mapping|kdc|pam|include_lines |plugins)* let filter = (incl "/etc/krb5.conf.d/*.conf") . (incl "/etc/krb5.conf") let xfm = transform lns filter PK ! �ن/ lenses/dist/cachefilesd.augnu �[��� (* Module: Cachefilesd Parses /etc/cachefilesd.conf Author: Pat Riehecky <riehecky@fnal.gov> About: Reference This lens tries to keep as close as possible to `man 5 cachefilesd.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage See <lns>. About: Configuration files This lens applies to /etc/cachefilesd.conf. About: Examples The <Test_Cachefilesd> file contains various examples and tests. *) module Cachefilesd = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* View: eol *) let eol = Util.eol (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* Group: separators *) (* View: space * Separation between key and value *) let space = Util.del_ws_spc (* View: colon * Separation between selinux attributes *) let colon = Sep.colon (* Group: entries *) (* View: entry_key * The key for an entry in the config file *) let entry_key = Rx.word (* View: entry_value * The value for an entry may contain all sorts of things *) let entry_value = /[A-Za-z0-9_.-:%]+/ (* View: nocull * The nocull key has different syntax than the rest *) let nocull = /nocull/i (* Group: config *) (* View: cacheconfig * This is a simple "key value" setup *) let cacheconfig = [ key (entry_key - nocull) . space . store entry_value . eol ] (* View: nocull * This is a either present, and therefore active or missing and * not active *) let nocull_entry = [ key nocull . eol ] (* View: lns *) let lns = (empty | comment | cacheconfig | nocull_entry)* let xfm = transform lns (incl "/etc/cachefilesd.conf") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �=�� � lenses/dist/pythonpaste.augnu �[��� (* Python paste config file lens for Augeas Author: Dan Prince <dprince@redhat.com> *) module PythonPaste = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let eol = Util.eol (************************************************************************ * ENTRY *************************************************************************) let url_entry = /\/[\/A-Za-z0-9.-_]* ?[:|=] [A-Za-z0-9.-_]+/ let set_kw = [ Util.del_str "set" . Util.del_ws_spc . label "@set" ] let no_inline_comment_entry (kw:regexp) (sep:lens) (comment:lens) = [ set_kw? . key kw . sep . IniFile.sto_to_eol? . eol ] | comment | [ seq "urls" . store url_entry . eol ] let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+/ ) let entry = no_inline_comment_entry entry_re sep comment (************************************************************************ * RECORD *************************************************************************) let title = IniFile.title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER *************************************************************************) let lns = IniFile.lns record comment let filter = ((incl "/etc/glance/*.ini") . (incl "/etc/keystone/keystone.conf") . (incl "/etc/nova/api-paste.ini") . (incl "/etc/swift/swift.conf") . (incl "/etc/swift/proxy-server.conf") . (incl "/etc/swift/account-server/*.conf") . (incl "/etc/swift/container-server/*.conf") . (incl "/etc/swift/object-server/*.conf")) let xfm = transform lns filter PK ! �C� � lenses/dist/aptsources.augnu �[��� (* Module: Aptsources Parsing /etc/apt/sources.list *) module Aptsources = autoload xfm (************************************************************************ * Group: Utility variables/functions ************************************************************************) (* View: sep_ws *) let sep_ws = Sep.space (* View: eol *) let eol = Util.del_str "\n" (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: word *) let word = /[^][# \n\t]+/ (* View: uri *) let uri = let protocol = /[a-z+]+:/ in let path = /\/[^] \t]*/ in let path_brack = /\[[^]]+\]\/?/ in protocol? . path | protocol . path_brack (************************************************************************ * Group: Keywords ************************************************************************) (* View: record *) let record = let option_sep = [ label "operation" . store /[+-]/]? . Sep.equal in let option = Build.key_value /arch|trusted/ option_sep (store Rx.word) in let options = [ label "options" . Util.del_str "[" . Sep.opt_space . Build.opt_list option Sep.space . Sep.opt_space . Util.del_str "]" . sep_ws ] in [ Util.indent . seq "source" . [ label "type" . store word ] . sep_ws . options? . [ label "uri" . store uri ] . sep_ws . [ label "distribution" . store word ] . [ label "component" . sep_ws . store word ]* . del /[ \t]*(#.*)?/ "" . eol ] (************************************************************************ * Group: Lens ************************************************************************) (* View: lns *) let lns = ( comment | empty | record ) * (* View: filter *) let filter = (incl "/etc/apt/sources.list") . (incl "/etc/apt/sources.list.d/*") . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! u��� � lenses/dist/bbhosts.augnu �[��� (* BB-hosts module for Augeas *) (* Author: Raphael Pinson <raphink@gmail.com> *) (* *) (* Supported : *) (* *) (* Todo : *) (* *) module BBhosts = autoload xfm (* Define useful shortcuts *) let eol = Util.eol let eol_no_spc = Util.del_str "\n" let sep_spc = Sep.space let sep_opt_spc = Sep.opt_space let word = store /[^|;# \n\t]+/ let value_to_eol = store /[^ \t][^\n]+/ let ip = store Rx.ipv4 let url = store /https?:[^# \n\t]+/ let word_cont = store /[^;# \n\t]+/ (* Define comments and empty lines *) let comment = Util.comment let empty = Util.empty (* Define host *) let host_ip = [ label "ip" . ip ] let host_fqdn = [ label "fqdn" . sep_spc . word ] let host_test_url = [ label "url" . url ] let host_test_cont (kw:string) = [ store /!?/ . key kw . (Util.del_str ";" . [ label "url" . word_cont ] . (Util.del_str ";" . [ label "keyword" . word ])? )? ] (* DOWNTIME=[columns:]day:starttime:endtime:cause[,day:starttime:endtime:cause] *) let host_test_downtime = let probe = [ label "probe" . store (Rx.word | "*") ] in let probes = Build.opt_list probe Sep.comma in let day = [ label "day" . store (Rx.word | "*") ] in let starttime = [ label "starttime" . store Rx.integer ] in let endtime = [ label "endtime" . store Rx.integer ] in let cause = [ label "cause" . Util.del_str "\"" . store /[^"]*/ . Util.del_str "\"" ] in [ key "DOWNTIME" . Sep.equal . (probes . Sep.colon)? . day . Sep.colon . starttime . Sep.colon . endtime . Sep.colon . cause ] let host_test_flag_value = [ label "value" . Util.del_str ":" . store Rx.word ] let host_test_flag (kw:regexp) = [ store /!?/ . key kw . host_test_flag_value? ] let host_test = host_test_cont "cont" | host_test_cont "contInsecure" | host_test_cont "dns" | host_test_flag "BBDISPLAY" | host_test_flag "BBNET" | host_test_flag "BBPAGER" | host_test_flag "CDB" | host_test_flag "GTM" | host_test_flag "XYMON" | host_test_flag "ajp13" | host_test_flag "bbd" | host_test_flag "clamd" | host_test_flag "cupsd" | host_test_flag "front" | host_test_flag /ftps?/ | host_test_flag /imap[2-4s]?/ | host_test_flag /ldaps?/ | host_test_flag /nntps?/ | host_test_flag "noconn" | host_test_flag "nocont" | host_test_flag "noping" | host_test_flag "notrends" | host_test_flag "oratns" | host_test_flag /pop-?[2-3]?s?/ | host_test_flag "qmqp" | host_test_flag "qmtp" | host_test_flag "rsync" | host_test_flag /smtps?/ | host_test_flag "spamd" | host_test_flag /ssh[1-2]?/ | host_test_flag /telnets?/ | host_test_flag "vnc" | host_test_url | host_test_downtime let host_test_list = Build.opt_list host_test sep_spc let host_opts = [ label "probes" . sep_spc . Util.del_str "#" . (sep_opt_spc . host_test_list)? ] let host = [ label "host" . host_ip . host_fqdn . host_opts . eol ] (* Define group-compress and group-only *) let group_compress = [ key /group(-compress)?/ . (sep_spc . value_to_eol)? . eol_no_spc . ( comment | empty | host)* ] let group_only_col = [ label "col" . word ] let group_only_cols = sep_spc . group_only_col . ( Util.del_str "|" . group_only_col )* let group_only = [ key "group-only" . group_only_cols . sep_spc . value_to_eol . eol_no_spc . ( comment | empty | host)* ] (* Define page *) let page_title = [ label "title" . sep_spc . value_to_eol ] let page = [ key "page" . sep_spc . word . page_title? . eol_no_spc . ( comment | empty | host )* . ( group_compress | group_only )* ] (* Define lens *) let lns = (comment | empty)* . page* let filter = incl "/etc/bb/bb-hosts" let xfm = transform lns filter PK ! ǒU�� � lenses/dist/vsftpd.augnu �[��� (* Parse vsftpd.conf *) module Vsftpd = autoload xfm (* The code in parseconf.c does not seem to allow for trailing whitespace *) (* in the config file *) let eol = Util.del_str "\n" let empty = Util.empty let comment = Util.comment let bool_option_re = /anonymous_enable|isolate|isolate_network|local_enable|pasv_enable|port_enable|chroot_local_user|write_enable|anon_upload_enable|anon_mkdir_write_enable|anon_other_write_enable|chown_uploads|connect_from_port_20|xferlog_enable|dirmessage_enable|anon_world_readable_only|async_abor_enable|ascii_upload_enable|ascii_download_enable|one_process_model|xferlog_std_format|pasv_promiscuous|deny_email_enable|chroot_list_enable|setproctitle_enable|text_userdb_names|ls_recurse_enable|log_ftp_protocol|guest_enable|userlist_enable|userlist_deny|use_localtime|check_shell|hide_ids|listen|port_promiscuous|passwd_chroot_enable|no_anon_password|tcp_wrappers|use_sendfile|force_dot_files|listen_ipv6|dual_log_enable|syslog_enable|background|virtual_use_local_privs|session_support|download_enable|dirlist_enable|chmod_enable|secure_email_list_enable|run_as_launching_user|no_log_lock|ssl_enable|allow_anon_ssl|force_local_logins_ssl|force_local_data_ssl|ssl_sslv2|ssl_sslv3|ssl_tlsv1|tilde_user_enable|force_anon_logins_ssl|force_anon_data_ssl|mdtm_write|lock_upload_files|pasv_addr_resolve|debug_ssl|require_cert|validate_cert|require_ssl_reuse|allow_writeable_chroot|seccomp_sandbox/ let uint_option_re = /accept_timeout|connect_timeout|local_umask|anon_umask|ftp_data_port|idle_session_timeout|data_connection_timeout|pasv_min_port|pasv_max_port|anon_max_rate|local_max_rate|listen_port|max_clients|file_open_mode|max_per_ip|trans_chunk_size|delay_failed_login|delay_successful_login|max_login_fails|chown_upload_mode/ let str_option_re = /secure_chroot_dir|ftp_username|chown_username|xferlog_file|vsftpd_log_file|message_file|nopriv_user|ftpd_banner|banned_email_file|chroot_list_file|pam_service_name|guest_username|userlist_file|anon_root|local_root|banner_file|pasv_address|listen_address|user_config_dir|listen_address6|cmds_allowed|hide_file|deny_file|user_sub_token|email_password_file|rsa_cert_file|dsa_cert_file|ssl_ciphers|rsa_private_key_file|dsa_private_key_file|ca_certs_file/ let bool_value_re = /[yY][eE][sS]|[tT][rR][uU][eE]|1|[nN][oO]|[fF][aA][lL][sS][eE]|0/ let option (k:regexp) (v:regexp) = [ key k . Util.del_str "=" . store v . eol ] let bool_option = option bool_option_re bool_value_re let str_option = option str_option_re /[^\n]+/ let uint_option = option uint_option_re /[0-9]+/ let lns = (bool_option|str_option|uint_option|comment|empty)* let filter = (incl "/etc/vsftpd.conf") . (incl "/etc/vsftpd/vsftpd.conf") let xfm = transform lns filter PK ! �� lenses/dist/subversion.augnu �[��� (* Module: Subversion Parses subversion's INI files Authors: Marc Fournier <marc.fournier@camptocamp.com> Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Examples The <Test_Subversion> file contains various examples and tests. *) module Subversion = autoload xfm (************************************************************************ * Group: INI File settings * * subversion only supports comments starting with "#" * *************************************************************************) (* View: comment *) let comment = IniFile.comment_noindent "#" "#" (* View: empty An empty line or a non-indented empty comment *) let empty = IniFile.empty_noindent (* View: sep *) let sep = IniFile.sep IniFile.sep_default IniFile.sep_default (************************************************************************ * Group: ENTRY * * subversion doesn't support indented entries * *************************************************************************) (* Variable: comma_list_re *) let comma_list_re = "password-stores" (* Variable: space_list_re *) let space_list_re = "global-ignores" | "preserved-conflict-file-exts" (* Variable: std_re *) let std_re = /[^ \t\r\n\/=#]+/ - (comma_list_re | space_list_re) (* View: entry_std A standard entry Similar to a <IniFile.entry_multiline_nocomment> entry, but allows ';' *) let entry_std = IniFile.entry_multiline_generic (key std_re) sep "#" comment IniFile.eol (* View: entry *) let entry = let comma_list_re = "password-stores" in let space_list_re = "global-ignores" | "preserved-conflict-file-exts" in let std_re = /[^ \t\r\n\/=#]+/ - (comma_list_re | space_list_re) in entry_std | IniFile.entry_list_nocomment comma_list_re sep Rx.word Sep.comma | IniFile.entry_list_nocomment space_list_re sep Rx.no_spaces (del /(\r?\n)?[ \t]+/ " ") (************************************************************************ * Group: TITLE * * subversion doesn't allow anonymous entries (outside sections) * *************************************************************************) (* View: title *) let title = IniFile.title IniFile.entry_re (* View: record Use the non-indented <empty> *) let record = IniFile.record_noempty title (entry|empty) (************************************************************************ * Group: LENS & FILTER *************************************************************************) (* View: lns *) let lns = IniFile.lns record comment (* Variable: filter *) let filter = incl "/etc/subversion/config" . incl "/etc/subversion/servers" let xfm = transform lns filter PK ! �j2XV V lenses/dist/rtadvd.augnu �[��� (* Module: Rtadvd Parses rtadvd configuration file Author: Matt Dainty <matt@bodgit-n-scarper.com> About: Reference - man 5 rtadvd.conf Each line represents a record consisting of a number of ':'-separated fields the first of which is the name or identifier for the record. The name can optionally be split by '|' and each subsequent value is considered an alias of the first. Records can be split across multiple lines with '\'. *) module Rtadvd = autoload xfm let empty = Util.empty (* field must not contain ':' unless quoted *) let cfield = /[a-zA-Z0-9-]+(#?@|#[0-9]+|=("[^"]*"|[^:"]*))?/ let lns = ( empty | Getcap.comment | Getcap.record cfield )* let filter = incl "/etc/rtadvd.conf" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! C�{�, , lenses/dist/modules_conf.augnu �[��� (* Module: Modules_conf Parses /etc/modules.conf and /etc/conf.modules Based on the similar Modprobe lens Not all directives currently listed in modules.conf(5) are currently supported. *) module Modules_conf = autoload xfm let comment = Util.comment let empty = Util.empty let eol = Util.eol | Util.comment (* Basic file structure is the same as modprobe.conf *) let sto_to_eol = Modprobe.sto_to_eol let sep_space = Modprobe.sep_space let path = [ key "path" . Util.del_str "=" . sto_to_eol . eol ] let keep = [ key "keep" . eol ] let probeall = Build.key_value_line_comment "probeall" sep_space sto_to_eol comment let entry = Modprobe.alias | Modprobe.options | Modprobe.kv_line_command /install|pre-install|post-install/ | Modprobe.kv_line_command /remove|pre-remove|post-remove/ | keep | path | probeall let lns = (comment|empty|entry)* let filter = (incl "/etc/modules.conf") . (incl "/etc/conf.modules") let xfm = transform lns filter PK ! �av~ ~ lenses/dist/pbuilder.augnu �[��� (* Module: Pbuilder Parses /etc/pbuilderrc, /etc/pbuilder/pbuilderrc Author: Raphael Pinson <raphink@gmail.com> About: Reference Pbuilderrc is a standard shellvars file. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/pbuilderrc and /etc/pbuilder/pbuilderrc. See <filter>. *) module Pbuilder = autoload xfm (* View: filter The pbuilder conffiles *) let filter = incl "/etc/pbuilder/pbuilderrc" . incl "/etc/pbuilderrc" (* View: lns The pbuilder lens *) let lns = Shellvars.lns let xfm = transform lns filter PK ! ��� � lenses/dist/authinfo2.augnu �[��� (* Authinfo2 module for Augeas *) (* Author: Nicolas Gif <ngf18490@pm.me> *) (* Heavily based on DPUT module by Raphael Pinson *) (* <raphink@gmail.com> *) (* *) module Authinfo2 = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re "#" let sep = IniFile.sep IniFile.sep_re ":" (************************************************************************ * ENTRY *************************************************************************) let entry = IniFile.entry_generic_nocomment (key IniFile.entry_re) sep IniFile.comment_re comment (************************************************************************ * TITLE & RECORD *************************************************************************) let title = IniFile.title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER *************************************************************************) let lns = IniFile.lns record comment let filter = (incl (Sys.getenv("HOME") . "/.s3ql/authinfo2")) let xfm = transform lns filter PK ! +��y� � lenses/dist/sysconfig.augnu �[��� (* Variation of the Shellvars lens *) (* Supports only what's needed to handle sysconfig files *) (* Modified to strip quotes. In the put direction, add double quotes *) (* around values that need them *) (* To keep things simple, we also do not support shell variable arrays *) module Sysconfig = let eol = Shellvars.eol let semicol_eol = Shellvars.semicol_eol let key_re = Shellvars.key_re let eq = Util.del_str "=" let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n" let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ "# " eol_for_comment let comment_or_eol = Shellvars.comment_or_eol let empty = Util.empty let bchar = /[^; \t\n"'\\]|\\\\./ (* " Emacs, relax *) let qchar = /["']/ (* " Emacs, relax *) (* We split the handling of right hand sides into a few cases: * bare - strings that contain no spaces, optionally enclosed in * single or double quotes * quot - strings that must be enclosed in single or double quotes * dquot - strings that contain at least one space or apostrophe, * which must be enclosed in double quotes * squot - strings that contain an unescaped double quote *) let bare = Quote.do_quote_opt (store bchar+) let quot = let word = bchar* . /[; \t]/ . bchar* in Quote.do_quote (store word+) let dquot = let char = /[^"\\]|\\\\./ in (* " *) let word = char* . "'" . char* in Quote.do_dquote (store word+) let squot = (* We do not allow escaped double quotes in single quoted strings, as *) (* that leads to a put ambiguity with bare, e.g. for the string '\"'. *) let char = /[^'\\]|\\\\[^"]/ in (* " *) let word = char* . "\"" . char* in Quote.do_squote (store word+) let kv (value:lens) = let export = Shellvars.export in let indent = Util.del_opt_ws "" in [ indent . export? . key key_re . eq . value . comment_or_eol ] let assign = let nothing = del /(""|'')?/ "" . value "" in kv nothing | kv bare | kv quot | kv dquot | kv squot let var_action = Shellvars.var_action let unset = [ var_action "unset" . comment_or_eol ] let bare_export = [ var_action "export" . comment_or_eol ] let source = [ Shellvars.source . comment_or_eol ] let lns = empty* . (comment | source | assign | unset | bare_export)* (* Examples: abc -> abc -> abc "abc" -> abc -> abc "a b" -> a b -> "a b" 'a"b' -> a"b -> 'a"b' *) PK ! ����\ \ lenses/dist/modprobe.augnu �[��� (* Module: Modprobe Parses /etc/modprobe.conf and /etc/modprobe.d/* Original Author: David Lutterkort <lutter@redhat.com> Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 modprobe.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/modprobe.conf and /etc/modprobe.d/*. See <filter>. *) module Modprobe = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: sep_space *) let sep_space = del /([ \t]|(\\\\\n))+/ " " (* View: sto_no_spaces *) let sto_no_spaces = store /[^# \t\n\\\\]+/ (* View: sto_no_colons *) let sto_no_colons = store /[^:# \t\n\\\\]+/ (* View: sto_to_eol *) let sto_to_eol = store /(([^# \t\n\\\\][^#\n\\\\]*[ \t]*\\\\[ \t]*\n[ \t]*)*([^# \t\n\\\\][^#\n\\\\]*[^# \t\n\\\\]|[^# \t\n\\\\])|[^# \t\n\\\\])/ (* View: alias *) let alias = let modulename = [ label "modulename" . sto_no_spaces ] in Build.key_value_line_comment "alias" sep_space (sto_no_spaces . sep_space . modulename) comment (************************************************************************ * Group: ENTRY TYPES *************************************************************************) (* View: options *) let options = let opt_value = /[^#" \t\n\\\\]+|"[^#"\n\\\\]*"/ in let option = [ key Rx.word . (del /[ \t]*=[ \t]*/ "=" . store opt_value)? ] in [ key "options" . sep_space . sto_no_spaces . (sep_space . option)* . Util.comment_or_eol ] (* View: install_remove *) let kv_line_command (kw:regexp) = let command = [ label "command" . sto_to_eol ] in [ key kw . sep_space . sto_no_spaces . sep_space . command . Util.comment_or_eol ] (* View: blacklist *) let blacklist = Build.key_value_line_comment "blacklist" sep_space sto_no_spaces comment (* View: config *) let config = Build.key_value_line_comment "config" sep_space (store /binary_indexes|yes|no/) comment (* View: softdep *) let softdep = let premod = [ label "pre" . sep_space . sto_no_colons ] in let pre = sep_space . Util.del_str "pre:" . premod+ in let postmod = [ label "post" . sep_space . sto_no_colons ] in let post = sep_space . Util.del_str "post:" . postmod+ in [ key "softdep" . sep_space . sto_no_colons . pre? . post? . Util.comment_or_eol ] (* View: entry *) let entry = alias | options | kv_line_command /install|remove/ | blacklist | config | softdep (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns *) let lns = (comment|empty|entry)* (* View: filter *) let filter = (incl "/etc/modprobe.conf") . (incl "/etc/modprobe.d/*"). (incl "/etc/modprobe.conf.local"). Util.stdexcl let xfm = transform lns filter PK ! �N@�' ' lenses/dist/aptpreferences.augnu �[��� (* Module: AptPreferences Apt/preferences module for Augeas Author: Raphael Pinson <raphael.pinson@camptocamp.com> *) module AptPreferences = autoload xfm (************************************************************************ * Group: Entries ************************************************************************) (* View: colon *) let colon = del /:[ \t]*/ ": " (* View: pin_gen A generic pin Parameters: lbl:string - the label *) let pin_gen (lbl:string) = store lbl . [ label lbl . Sep.space . store Rx.no_spaces ] (* View: pin_keys *) let pin_keys = let space_in = store /[^, \r\t\n][^,\n]*[^, \r\t\n]|[^, \t\n\r]/ in Build.key_value /[aclnov]/ Sep.equal space_in (* View: pin_options *) let pin_options = let comma = Util.delim "," in store "release" . Sep.space . Build.opt_list pin_keys comma (* View: version_pin *) let version_pin = pin_gen "version" (* View: origin_pin *) let origin_pin = pin_gen "origin" (* View: pin *) let pin = let pin_value = pin_options | version_pin | origin_pin in Build.key_value_line "Pin" colon pin_value (* View: entries *) let entries = Build.key_value_line ("Explanation"|"Package"|"Pin-Priority") colon (store Rx.space_in) | pin | Util.comment (* View: record *) let record = [ seq "record" . entries+ ] (************************************************************************ * Group: Lens ************************************************************************) (* View: lns *) let lns = Util.empty* . (Build.opt_list record Util.eol+ . Util.empty*)? (* View: filter *) let filter = incl "/etc/apt/preferences" . incl "/etc/apt/preferences.d/*" . Util.stdexcl let xfm = transform lns filter PK ! �r� � lenses/dist/ldif.augnu �[��� (* Module: Ldif Parses the LDAP Data Interchange Format (LDIF) Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to RFC2849 <http://tools.ietf.org/html/rfc2849> and OpenLDAP's ldif(5) About: Licence This file is licensed under the LGPLv2+, like the rest of Augeas. *) module Ldif = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES ************************************************************************) (* View: comment *) let comment = Util.comment_generic /#[ \t]*/ "# " (* View: empty Map empty lines, including empty comments *) let empty = [ del /#?[ \t]*\n/ "\n" ] (* View: eol Only eol, don't include whitespace *) let eol = Util.del_str "\n" (* View: sep_colon The separator for attributes and values *) let sep_colon = del /:[ \t]*/ ": " (* View: sep_base64 The separator for attributes and base64 encoded values *) let sep_base64 = del /::[ \t]*/ ":: " (* View: sep_url The separator for attributes and URL-sourced values *) let sep_url = del /:<[ \t]*/ ":< " (* Variable: ldapoid_re Format of an LDAP OID from RFC 2251 *) let ldapoid_re = /[0-9][0-9\.]*/ (* View: sep_modspec Separator between modify operations *) let sep_modspec = Util.del_str "-" . eol (************************************************************************ * Group: BASIC ATTRIBUTES ************************************************************************) (* Different types of values, all permitting continuation where the next line begins with whitespace *) let attr_safe_string = let line = /[^ \t\n:<][^\n]*/ in let lines = line . (/\n[ \t]+[^ \t\n][^\n]*/)* in sep_colon . store lines let attr_base64_string = let line = /[a-zA-Z0-9=+]+/ in let lines = line . (/\n[ \t]+/ . line)* in sep_base64 . [ label "@base64" . store lines ] let attr_url_string = let line = /[^ \t\n][^\n]*/ in let lines = line . (/\n[ \t]+/ . line)* in sep_url . [ label "@url" . store lines ] let attr_intflag = sep_colon . store /0|1/ (* View: attr_version version-spec = "version:" FILL version-number *) let attr_version = Build.key_value_line "version" sep_colon (store /[0-9]+/) (* View: attr_dn dn-spec = "dn:" (FILL distinguishedName / ":" FILL base64-distinguishedName) *) let attr_dn = del /dn/i "dn" . ( attr_safe_string | attr_base64_string ) . eol (* View: attr_type AttributeType = ldap-oid / (ALPHA *(attr-type-chars)) *) let attr_type = ldapoid_re | /[a-zA-Z][a-zA-Z0-9-]*/ - /dn/i - /changeType/i - /include/i (* View: attr_option options = option / (option ";" options) *) let attr_option = Util.del_str ";" . [ label "@option" . store /[a-zA-Z0-9-]+/ ] (* View: attr_description Attribute name, possibly with options *) let attr_description = key attr_type . attr_option* (* View: attr_val_spec Generic attribute with a value *) let attr_val_spec = [ attr_description . ( attr_safe_string | attr_base64_string | attr_url_string ) . eol ] (* View: attr_changetype Parameters: t:regexp - value of changeType *) let attr_changetype (t:regexp) = key /changeType/i . sep_colon . store t . eol (* View: attr_modspec *) let attr_modspec = key /add|delete|replace/ . sep_colon . store attr_type . attr_option* . eol (* View: attr_dn_value Parses an attribute line with a DN on the RHS Parameters: k:regexp - match attribute name as key *) let attr_dn_value (k:regexp) = [ key k . ( attr_safe_string | attr_base64_string ) . eol ] (* View: sep_line *) let sep_line = empty | comment (* View: attr_include OpenLDAP extension, must be separated by blank lines *) let attr_include = eol . [ key "include" . sep_colon . store /[^ \t\n][^\n]*/ . eol . comment* . eol ] (* View: sep_record *) let sep_record = ( sep_line | attr_include )* (************************************************************************ * Group: LDIF CONTENT RECORDS ************************************************************************) (* View: ldif_attrval_record ldif-attrval-record = dn-spec SEP 1*attrval-spec *) let ldif_attrval_record = [ seq "record" . attr_dn . ( sep_line* . attr_val_spec )+ ] (* View: ldif_content ldif-content = version-spec 1*(1*SEP ldif-attrval-record) *) let ldif_content = [ label "@content" . ( sep_record . attr_version )? . ( sep_record . ldif_attrval_record )+ . sep_record ] (************************************************************************ * Group: LDIF CHANGE RECORDS ************************************************************************) (* View: change_add change-add = "add" SEP 1*attrval-spec *) let change_add = [ attr_changetype "add" ] . ( sep_line* . attr_val_spec )+ (* View: change_delete change-delete = "add" SEP 1*attrval-spec *) let change_delete = [ attr_changetype "delete" ] (* View: change_modspec change-modspec = add/delete/replace: AttributeDesc SEP *attrval-spec "-" *) let change_modspec = attr_modspec . ( sep_line* . attr_val_spec )* (* View: change_modify change-modify = "modify" SEP *mod-spec *) let change_modify = [ attr_changetype "modify" ] . ( sep_line* . [ change_modspec . sep_line* . sep_modspec ] )+ (* View: change_modrdn ("modrdn" / "moddn") SEP newrdn/newsuperior/deleteoldrdn *) let change_modrdn = let attr_deleteoldrdn = [ key "deleteoldrdn" . attr_intflag . eol ] in let attrs_modrdn = attr_dn_value "newrdn" | attr_dn_value "newsuperior" | attr_deleteoldrdn in [ attr_changetype /modr?dn/ ] . ( sep_line | attrs_modrdn )* . attrs_modrdn (* View: change_record changerecord = "changetype:" FILL (changeadd/delete/modify/moddn) *) let change_record = ( change_add | change_delete | change_modify | change_modrdn) (* View: change_control "control:" FILL ldap-oid 0*1(1*SPACE ("true" / "false")) 0*1(value-spec) *) let change_control = let attr_criticality = [ Util.del_ws_spc . label "criticality" . store /true|false/ ] in let attr_ctrlvalue = [ label "value" . (attr_safe_string | attr_base64_string | attr_url_string ) ] in [ key "control" . sep_colon . store ldapoid_re . attr_criticality? . attr_ctrlvalue? . eol ] (* View: ldif_change_record ldif-change-record = dn-spec SEP *control changerecord *) let ldif_change_record = [ seq "record" . attr_dn . ( ( sep_line | change_control )* . change_control )? . sep_line* . change_record ] (* View: ldif_changes ldif-changes = version-spec 1*(1*SEP ldif-change-record) *) let ldif_changes = [ label "@changes" . ( sep_record . attr_version )? . ( sep_record . ldif_change_record )+ . sep_record ] (************************************************************************ * Group: LENS ************************************************************************) (* View: lns *) let lns = sep_record | ldif_content | ldif_changes let filter = incl "/etc/openldap/schema/*.ldif" let xfm = transform lns filter PK ! �0��u u lenses/dist/debctrl.augnu �[��� (* Module: debctrl Parses ./debian/control Author: Dominique Dumont domi.dumont@free.fr or dominique.dumont@hp.com About: Reference http://augeas.net/page/Create_a_lens_from_bottom_to_top http://www.debian.org/doc/debian-policy/ch-controlfields.html About: License This file is licensed under the LGPL v2+. About: Lens Usage Since control file is not a system configuration file, you will have to use augtool -r option to point to 'debian' directory. Run augtool: $ augtool -r debian Sample usage of this lens in augtool: * Get the value stored in control file > print /files/control ... Saving your file: > save *) module Debctrl = autoload xfm let eol = Util.eol let del_ws_spc = del /[\t ]*/ " " let hardeol = del /\n/ "\n" let del_opt_ws = del /[\t ]*/ "" let colon = del /:[ \t]*/ ": " let simple_entry (k:regexp) = let value = store /[^ \t][^\n]+/ in [ key k . colon . value . hardeol ] let cont_line = del /\n[ \t]+/ "\n " let comma = del /,[ \t]*/ ", " let sep_comma_with_nl = del /[ \t\n]*,[ \t\n]*/ ",\n " (*= del_opt_ws . cont_line* . comma . cont_line**) let email = store ( /([A-Za-z]+ )+<[^\n>]+>/ | /[^\n,\t<> ]+/ ) let multi_line_array_entry (k:regexp) (v:lens) = [ key k . colon . [ counter "array" . seq "array" . v ] . [ seq "array" . sep_comma_with_nl . v ]* . hardeol ] (* dependency stuff *) let version_depends = [ label "version" . [ del / *\( */ " ( " . label "relation" . store /[<>=]+/ ] . [ del_ws_spc . label "number" . store ( /[a-zA-Z0-9_.-]+/ | /\$\{[a-zA-Z0-9:]+\}/ ) . del / *\)/ " )" ] ] let arch_depends = [ label "arch" . [ del / *\[ */ " [ " . label "prefix" . store /!?/ ] . [ label "name" . store /[a-zA-Z0-9_.-]+/ . del / *\]/ " ]" ] ] let package_depends = [ key ( /[a-zA-Z0-9_-]+/ | /\$\{[a-zA-Z0-9:]+\}/ ) . ( version_depends | arch_depends ) * ] let dependency = [ label "or" . package_depends ] . [ label "or" . del / *\| */ " | " . package_depends ] * let dependency_list (field:regexp) = [ key field . colon . [ label "and" . dependency ] . [ label "and" . sep_comma_with_nl . dependency ]* . eol ] (* source package *) let uploaders = multi_line_array_entry /Uploaders/ email let simple_src_keyword = "Source" | "Section" | "Priority" | "Standards\-Version" | "Homepage" | /Vcs\-Svn/ | /Vcs\-Browser/ | "Maintainer" | "DM-Upload-Allowed" | /XS?-Python-Version/ let depend_src_keywords = /Build\-Depends/ | /Build\-Depends\-Indep/ let src_entries = ( simple_entry simple_src_keyword | uploaders | dependency_list depend_src_keywords ) * (* package paragraph *) let multi_line_entry (k:string) = let line = /.*[^ \t\n].*/ in [ label k . del / / " " . store line . hardeol ] * let description = [ key "Description" . colon . [ label "summary" . store /[a-zA-Z][^\n]+/ . hardeol ] . multi_line_entry "text" ] (* binary package *) let simple_bin_keywords = "Package" | "Architecture" | "Section" | "Priority" | "Essential" | "Homepage" | "XB-Python-Version" let depend_bin_keywords = "Depends" | "Recommends" | "Suggests" | "Provides" let bin_entries = ( simple_entry simple_bin_keywords | dependency_list depend_bin_keywords ) + . description (* The whole stuff *) let lns = [ label "srcpkg" . src_entries ] . [ label "binpkg" . hardeol+ . bin_entries ]+ . eol* (* lens must be used with AUG_ROOT set to debian package source directory *) let xfm = transform lns (incl "/control") PK ! �)ĺ�* �* lenses/dist/keepalived.augnu �[��� (* Module: Keepalived Parses /etc/keepalived/keepalived.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 keepalived.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/keepalived/keepalived.conf. See <filter>. About: Examples The <Test_Keepalived> file contains various examples and tests. *) module Keepalived = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* View: indent *) let indent = Util.indent (* View: eol *) let eol = Util.eol (* View: opt_eol *) let opt_eol = del /[ \t]*\n?/ " " (* View: sep_spc *) let sep_spc = Sep.space (* View: comment Map comments in "#comment" nodes *) let comment = Util.comment_generic /[ \t]*[#!][ \t]*/ "# " (* View: comment_eol Map comments at eol *) let comment_eol = Util.comment_generic /[ \t]*[#!][ \t]*/ " # " (* View: comment_or_eol A <comment_eol> or <eol> *) let comment_or_eol = comment_eol | (del /[ \t]*[#!]?\n/ "\n") (* View: empty Map empty lines *) let empty = Util.empty (* View: sto_email_addr *) let sto_email_addr = store Rx.email_addr (* Variable: word *) let word = Rx.word (* Variable: word_slash *) let word_slash = word | "/" (* View: sto_word *) let sto_word = store word (* View: sto_num *) let sto_num = store Rx.relinteger (* View: sto_ipv6 *) let sto_ipv6 = store Rx.ipv6 (* View: sto_to_eol *) let sto_to_eol = store /[^#! \t\n][^#!\n]*[^#! \t\n]|[^#! \t\n]/ (* View: field *) let field (kw:regexp) (sto:lens) = indent . Build.key_value_line_comment kw sep_spc sto comment_eol (* View: flag A single word *) let flag (kw:regexp) = [ indent . key kw . comment_or_eol ] (* View: ip_port An IP <space> port pair *) let ip_port = [ label "ip" . sto_word ] . sep_spc . [ label "port" . sto_num ] (* View: lens_block A generic block with a title lens. The definition is very similar to Build.block_newlines but uses a different type of <comment>. *) let lens_block (title:lens) (sto:lens) = [ indent . title . Build.block_newlines sto comment . eol ] (* View: block A simple block with just a block title *) let block (kw:regexp) (sto:lens) = lens_block (key kw) sto (* View: named_block A block with a block title and name *) let named_block (kw:string) (sto:lens) = lens_block (key kw . sep_spc . sto_word) sto (* View: named_block_arg_title A title lens for named_block_arg *) let named_block_arg_title (kw:string) (name:string) (arg:string) = key kw . sep_spc . [ label name . sto_word ] . sep_spc . [ label arg . sto_word ] (* View: named_block_arg A block with a block title, a name and an argument *) let named_block_arg (kw:string) (name:string) (arg:string) (sto:lens) = lens_block (named_block_arg_title kw name arg) sto (************************************************************************ * Group: GLOBAL CONFIGURATION *************************************************************************) (* View: email A simple email address entry *) let email = [ indent . label "email" . sto_email_addr . comment_or_eol ] (* View: global_defs_field Possible fields in the global_defs block *) let global_defs_field = let word_re = "smtp_server"|"lvs_id"|"router_id"|"vrrp_mcast_group4" in let ipv6_re = "vrrp_mcast_group6" in let num_re = "smtp_connect_timeout" in block "notification_email" email | field "notification_email_from" sto_email_addr | field word_re sto_word | field num_re sto_num | field ipv6_re sto_ipv6 (* View: global_defs A global_defs block *) let global_defs = block "global_defs" global_defs_field (* View: prefixlen A prefix for IP addresses *) let prefixlen = [ label "prefixlen" . Util.del_str "/" . sto_num ] (* View: ipaddr An IP address or range with an optional mask *) let ipaddr = label "ipaddr" . store /[0-9.-]+/ . prefixlen? (* View: ipdev A device for IP addresses *) let ipdev = [ key "dev" . sep_spc . sto_word ] (* View: static_ipaddress_field The whole string is fed to ip addr add. You can truncate the string anywhere you like and let ip addr add use defaults for the rest of the string. To be refined with fields according to `ip addr help`. *) let static_ipaddress_field = [ indent . ipaddr . (sep_spc . ipdev)? . comment_or_eol ] (* View: static_routes_field src $SRC_IP to $DST_IP dev $SRC_DEVICE *) let static_routes_field = [ indent . label "route" . [ key "src" . sto_word ] . sep_spc . [ key "to" . sto_word ] . sep_spc . [ key "dev" . sto_word ] . comment_or_eol ] (* View: static_routes *) let static_routes = block "static_ipaddress" static_ipaddress_field | block "static_routes" static_routes_field (* View: global_conf A global configuration entry *) let global_conf = global_defs | static_routes (************************************************************************ * Group: VRRP CONFIGURATION *************************************************************************) (*View: vrrp_sync_group_field *) let vrrp_sync_group_field = let to_eol_re = /notify(_master|_backup|_fault)?/ in let flag_re = "smtp_alert" in field to_eol_re sto_to_eol | flag flag_re | block "group" [ indent . key word . comment_or_eol ] (* View: vrrp_sync_group *) let vrrp_sync_group = named_block "vrrp_sync_group" vrrp_sync_group_field (* View: vrrp_instance_field *) let vrrp_instance_field = let word_re = "state" | "interface" | "lvs_sync_daemon_interface" in let num_re = "virtual_router_id" | "priority" | "advert_int" | /garp_master_(delay|repeat|refresh|refresh_repeat)/ in let to_eol_re = /notify(_master|_backup|_fault)?/ | /(mcast|unicast)_src_ip/ in let flag_re = "smtp_alert" | "nopreempt" | "ha_suspend" | "debug" | "use_vmac" | "vmac_xmit_base" | "native_ipv6" | "dont_track_primary" | "preempt_delay" in field word_re sto_word | field num_re sto_num | field to_eol_re sto_to_eol | flag flag_re | block "authentication" ( field /auth_(type|pass)/ sto_word ) | block "virtual_ipaddress" static_ipaddress_field | block /track_(interface|script)/ ( flag word ) | block "unicast_peer" static_ipaddress_field (* View: vrrp_instance *) let vrrp_instance = named_block "vrrp_instance" vrrp_instance_field (* View: vrrp_script_field *) let vrrp_script_field = let num_re = "interval" | "weight" | "fall" | "raise" in let to_eol_re = "script" in field to_eol_re sto_to_eol | field num_re sto_num (* View: vrrp_script *) let vrrp_script = named_block "vrrp_script" vrrp_script_field (* View: vrrpd_conf contains subblocks of VRRP synchronization group(s) and VRRP instance(s) *) let vrrpd_conf = vrrp_sync_group | vrrp_instance | vrrp_script (************************************************************************ * Group: REAL SERVER CHECKS CONFIGURATION *************************************************************************) (* View: tcp_check_field *) let tcp_check_field = let word_re = "bindto" in let num_re = /connect_(timeout|port)/ in field word_re sto_word | field num_re sto_num (* View: misc_check_field *) let misc_check_field = let flag_re = "misc_dynamic" in let num_re = "misc_timeout" in let to_eol_re = "misc_path" in field num_re sto_num | flag flag_re | field to_eol_re sto_to_eol (* View: smtp_host_check_field *) let smtp_host_check_field = let word_re = "connect_ip" | "bindto" in let num_re = "connect_port" in field word_re sto_word | field num_re sto_num (* View: smtp_check_field *) let smtp_check_field = let word_re = "connect_ip" | "bindto" in let num_re = "connect_timeout" | "retry" | "delay_before_retry" in let to_eol_re = "helo_name" in field word_re sto_word | field num_re sto_num | field to_eol_re sto_to_eol | block "host" smtp_host_check_field (* View: http_url_check_field *) let http_url_check_field = let word_re = "digest" in let num_re = "status_code" in let to_eol_re = "path" in field word_re sto_word | field num_re sto_num | field to_eol_re sto_to_eol (* View: http_check_field *) let http_check_field = let num_re = /connect_(timeout|port)/ | "nb_get_retry" | "delay_before_retry" in field num_re sto_num | block "url" http_url_check_field (* View: real_server_field *) let real_server_field = let num_re = "weight" in let flag_re = "inhibit_on_failure" in let to_eol_re = /notify_(up|down)/ in field num_re sto_num | flag flag_re | field to_eol_re sto_to_eol | block "TCP_CHECK" tcp_check_field | block "MISC_CHECK" misc_check_field | block "SMTP_CHECK" smtp_check_field | block /(HTTP|SSL)_GET/ http_check_field (************************************************************************ * Group: LVS CONFIGURATION *************************************************************************) (* View: virtual_server_field *) let virtual_server_field = let num_re = "delay_loop" | "persistence_timeout" | "quorum" | "hysteresis" in let word_re = /lb_(algo|kind)/ | "nat_mask" | "protocol" | "persistence_granularity" | "virtualhost" in let flag_re = "ops" | "ha_suspend" | "alpha" | "omega" in let to_eol_re = /quorum_(up|down)/ in let ip_port_re = "sorry_server" in field num_re sto_num | field word_re sto_word | flag flag_re | field to_eol_re sto_to_eol | field ip_port_re ip_port | named_block_arg "real_server" "ip" "port" real_server_field (* View: virtual_server *) let virtual_server = named_block_arg "virtual_server" "ip" "port" virtual_server_field (* View: virtual_server_group_field *) let virtual_server_group_field = [ indent . label "vip" . [ ipaddr ] . sep_spc . [ label "port" . sto_num ] . comment_or_eol ] (* View: virtual_server_group *) let virtual_server_group = named_block "virtual_server_group" virtual_server_group_field (* View: lvs_conf contains subblocks of Virtual server group(s) and Virtual server(s) *) let lvs_conf = virtual_server | virtual_server_group (* View: lns The keepalived lens *) let lns = ( empty | comment | global_conf | vrrpd_conf | lvs_conf )* (* Variable: filter *) let filter = incl "/etc/keepalived/keepalived.conf" let xfm = transform lns filter PK ! �N�Q� � lenses/dist/cobblermodules.augnu �[��� module CobblerModules = autoload xfm let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let entry = IniFile.entry IniFile.entry_re sep comment let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = (incl "/etc/cobbler/modules.conf") let xfm = transform lns filter PK ! �(e�� � lenses/dist/rsyncd.augnu �[��� (* Rsyncd module for Augeas Author: Marc Fournier <marc.fournier@camptocamp.com> Reference: man rsyncd.conf(5) *) module Rsyncd = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re "#" let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let indent = del /[ \t]*/ " " (* Import useful INI File primitives *) let eol = IniFile.eol let empty = IniFile.empty let sto_to_comment = Util.del_opt_ws " " . store /[^;# \t\n][^;#\n]*[^;# \t\n]|[^;# \t\n]/ (************************************************************************ * ENTRY * rsyncd.conf allows indented entries, but by default entries outside * sections are unindented *************************************************************************) let entry_re = /[A-Za-z0-9_.-][A-Za-z0-9 _.-]*[A-Za-z0-9_.-]/ let entry = IniFile.indented_entry entry_re sep comment (************************************************************************ * RECORD & TITLE * We use IniFile.title_label because there can be entries * outside of sections whose labels would conflict with section names *************************************************************************) let title = IniFile.indented_title ( IniFile.record_re - ".anon" ) let record = IniFile.record title entry let record_anon = [ label ".anon" . ( entry | empty )+ ] (************************************************************************ * LENS & FILTER * There can be entries before any section * IniFile.entry includes comment management, so we just pass entry to lns *************************************************************************) let lns = record_anon? . record* let filter = (incl "/etc/rsyncd.conf") let xfm = transform lns filter PK ! �30 lenses/dist/rsyslog.augnu �[��� (* Module: Rsyslog Parses /etc/rsyslog.conf Author: Raphael Pinson <raphael.pinsons@camptocamp.com> About: Reference This lens tries to keep as close as possible to `man 5 rsyslog.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/rsyslog.conf. See <filter>. About: Examples The <Test_Rsyslog> file contains various examples and tests. *) module Rsyslog = autoload xfm let macro_rx = /[^,# \n\t][^#\n]*[^,# \n\t]|[^,# \n\t]/ let macro = [ key /$[A-Za-z0-9]+/ . Sep.space . store macro_rx . Util.comment_or_eol ] let config_object_param = [ key /[A-Za-z.]+/ . Sep.equal . Quote.dquote . store /[^"]+/ . Quote.dquote ] (* Inside config objects, we allow embedded comments; we don't surface them * in the tree though *) let config_sep = del /[ \t]+|[ \t]*#.*\n[ \t]*/ " " let config_object = [ key /action|global|input|module|parser|timezone|include/ . Sep.lbracket . config_object_param . ( config_sep . config_object_param )* . Sep.rbracket . Util.comment_or_eol ] (* View: users Map :omusrmsg: and a list of users, or a single * *) let omusrmsg = Util.del_str ":omusrmsg:" . Syslog.label_opt_list_or "omusrmsg" (store Syslog.word) Syslog.comma "*" (* View: file_tmpl File action with a specified template *) let file_tmpl = Syslog.file . [ label "template" . Util.del_str ";" . store Rx.word ] let dynamic = [ Util.del_str "?" . label "dynamic" . store Rx.word ] let namedpipe = Syslog.pipe . Sep.space . [ label "pipe" . store Syslog.file_r ] let action = Syslog.action | omusrmsg | file_tmpl | dynamic | namedpipe (* Cannot use syslog program because rsyslog does not suppport #! *) let program = [ label "program" . Syslog.bang . ( Syslog.opt_plus | [ Build.xchgs "-" "reverse" ] ) . Syslog.programs . Util.eol . Syslog.entries ] (* Cannot use syslog hostname because rsyslog does not suppport #+/- *) let hostname = [ label "hostname" . ( Syslog.plus | [ Build.xchgs "-" "reverse" ] ) . Syslog.hostnames . Util.eol . Syslog.entries ] (* View: actions *) let actions = let prop_act = [ label "action" . action ] in let act_sep = del /[ \t]*\n&[ \t]*/ "\n& " in Build.opt_list prop_act act_sep (* View: entry An entry contains selectors and an action *) let entry = [ label "entry" . Syslog.selectors . Syslog.sep_tab . actions . Util.eol ] (* View: prop_filter Parses property-based filters, which start with ":" and the property name *) let prop_filter = let sep = Sep.comma . Util.del_opt_ws " " in let prop_name = [ Util.del_str ":" . label "property" . store Rx.word ] in let prop_oper = [ label "operation" . store /[A-Za-z!-]+/ ] in let prop_val = [ label "value" . Quote.do_dquote (store /[^\n"]*/) ] in [ label "filter" . prop_name . sep . prop_oper . sep . prop_val . Sep.space . actions . Util.eol ] let entries = ( Syslog.empty | Util.comment | entry | macro | config_object | prop_filter )* let lns = entries . ( program | hostname )* let filter = incl "/etc/rsyslog.conf" . incl "/etc/rsyslog.d/*" . Util.stdexcl let xfm = transform lns filter PK ! ��@nQ Q lenses/dist/xml.augnu �[��� (* XML lens for Augeas Author: Francis Giraldeau <francis.giraldeau@usherbrooke.ca> Reference: http://www.w3.org/TR/2006/REC-xml11-20060816/ *) module Xml = autoload xfm (************************************************************************ * Utilities lens *************************************************************************) let dels (s:string) = del s s let spc = /[ \t\r\n]+/ let osp = /[ \t\r\n]*/ let sep_spc = del /[ \t\r\n]+/ " " let sep_osp = del /[ \t\r\n]*/ "" let sep_eq = del /[ \t\r\n]*=[ \t\r\n]*/ "=" let nmtoken = /[a-zA-Z:_][a-zA-Z0-9:_.-]*/ let word = /[a-zA-Z][a-zA-Z0-9._-]*/ let char = /.|(\r?\n)/ (* if we hide the quotes, then we can only accept single or double quotes *) (* otherwise a put ambiguity is raised *) let sto_dquote = dels "\"" . store /[^"]*/ . dels "\"" (* " *) let sto_squote = dels "'" . store /[^']*/ . dels "'" let comment = [ label "#comment" . dels "<!--" . store /([^-]|-[^-])*/ . dels "-->" ] let pi_target = nmtoken - /[Xx][Mm][Ll]/ let empty = Util.empty let del_end = del />[\r?\n]?/ ">\n" let del_end_simple = dels ">" (* This is siplified version of processing instruction * pi has to not start or end with a white space and the string * must not contain "?>". We restrict too much by not allowing any * "?" nor ">" in PI *) let pi = /[^ \r\n\t]|[^ \r\n\t][^?>]*[^ \r\n\t]/ (************************************************************************ * Attributes *************************************************************************) let decl = [ label "#decl" . sep_spc . store /[^> \t\n\r]|[^> \t\n\r][^>\t\n\r]*[^> \t\n\r]/ ] let decl_def (r:regexp) (b:lens) = [ dels "<" . key r . sep_spc . store nmtoken . b . sep_osp . del_end_simple ] let elem_def = decl_def /!ELEMENT/ decl let enum = "(" . osp . nmtoken . ( osp . "|" . osp . nmtoken )* . osp . ")" let att_type = /CDATA|ID|IDREF|IDREFS|ENTITY|ENTITIES|NMTOKEN|NMTOKENS/ | enum let id_def = [ sep_spc . key /PUBLIC/ . [ label "#literal" . sep_spc . sto_dquote ]* ] | [ sep_spc . key /SYSTEM/ . sep_spc . sto_dquote ] let notation_def = decl_def /!NOTATION/ id_def let att_def = counter "att_id" . [ sep_spc . seq "att_id" . [ label "#name" . store word . sep_spc ] . [ label "#type" . store att_type . sep_spc ] . ([ key /#REQUIRED|#IMPLIED/ ] | [ label "#FIXED" . del /#FIXED[ \r\n\t]*|/ "" . sto_dquote ]) ]* let att_list_def = decl_def /!ATTLIST/ att_def let entity_def = let literal (lbl:string) = [ sep_spc . label lbl . sto_dquote ] in decl_def /!ENTITY/ ( literal "#decl" | [ sep_spc . key /SYSTEM/ . literal "#systemliteral" ] | [ sep_spc . key /PUBLIC/ . literal "#pubidliteral" . literal "#systemliteral" ] ) let decl_def_item = elem_def | entity_def | att_list_def | notation_def let decl_outer = sep_osp . del /\[[ \n\t\r]*/ "[\n" . (decl_def_item . sep_osp )* . dels "]" (* let dtd_def = [ sep_spc . key "SYSTEM" . sep_spc . sto_dquote ] *) let doctype = decl_def /!DOCTYPE/ (decl_outer|id_def) (* General shape of an attribute * q is the regexp matching the quote character for the value * qd is the default quote character * brx is what the actual attribute value must match *) let attval (q:regexp) (qd:string) (brx:regexp) = let quote = del q qd in let body = store brx in [ sep_spc . key nmtoken . sep_eq . square quote body quote ] (* We treat attributes according to one of the following three patterns: attval1 : values that must be quoted with single quotes attval2 : values that must be quoted with double quotes attval3 : values that can be quoted with either *) let attributes = let attval1 = attval "'" "'" /[^']*"[^']*/ in (* " *) let attval2 = attval "\"" "\"" /[^"]*'[^"]*/ in let attval3 = attval /['"]/ "\"" /(\\\\|[^'\"])*/ in (* " *) [ label "#attribute" . (attval1|attval2|attval3)+ ] let prolog = [ label "#declaration" . dels "<?xml" . attributes . sep_osp . dels "?>" ] (************************************************************************ * Tags *************************************************************************) (* we consider entities as simple text *) let text_re = /[^<]+/ - /([^<]*\]\]>[^<]*)/ let text = [ label "#text" . store text_re ] let cdata = [ label "#CDATA" . dels "<![CDATA[" . store (char* - (char* . "]]>" . char*)) . dels "]]>" ] (* the value of nmtoken_del is always the nmtoken_key string *) let nmtoken_key = key nmtoken let nmtoken_del = del nmtoken "a" let element (body:lens) = let h = attributes? . sep_osp . dels ">" . body* . dels "</" in [ dels "<" . square nmtoken_key h nmtoken_del . sep_osp . del_end ] let empty_element = [ dels "<" . nmtoken_key . value "#empty" . attributes? . sep_osp . del /\/>[\r?\n]?/ "/>\n" ] let pi_instruction = [ dels "<?" . label "#pi" . [ label "#target" . store pi_target ] . [ sep_spc . label "#instruction" . store pi ]? . sep_osp . del /\?>/ "?>" ] (* Typecheck is weaker on rec lens, detected by unfolding *) (* let content1 = element text let rec content2 = element (content1|text|comment) *) let rec content = element (text|comment|content|empty_element|pi_instruction|cdata) (* Constraints are weaker here, but it's better than being too strict *) let doc = (sep_osp . (prolog | comment | doctype | pi_instruction))* . ((sep_osp . content) | (sep_osp . empty_element)) . (sep_osp . (comment | pi_instruction ))* . sep_osp let lns = doc | Util.empty? let filter = (incl "/etc/xml/*.xml") . (incl "/etc/xml/catalog") let xfm = transform lns filter PK ! ��v4 4 lenses/dist/automounter.augnu �[��� (* Module: Automounter Parses automounter file based maps Author: Dominic Cleal <dcleal@redhat.com> About: Reference See autofs(5) About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/auto.*, auto_*, excluding known scripts. About: Examples The <Test_Automounter> file contains various examples and tests. *) module Automounter = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: eol *) let eol = Util.eol (* View: empty *) let empty = Util.empty (* View: comment *) let comment = Util.comment (* View: path *) let path = /[^-+#: \t\n][^#: \t\n]*/ (* View: hostname *) let hostname = /[^-:#\(\), \n\t][^:#\(\), \n\t]*/ (* An option label can't contain comma, comment, equals, or space *) let optlabel = /[^,#:\(\)= \n\t]+/ let spec = /[^,#:\(\)= \n\t][^ \n\t]*/ (* View: weight *) let weight = Rx.integer (* View: map_name *) let map_name = /[^: \t\n]+/ (* View: entry_multimount_sep Separator for multimount entries, permits line spanning with "\" *) let entry_multimount_sep = del /[ \t]+(\\\\[ \t]*\n[ \t]+)?/ " " (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: entry_key Key for a map entry *) let entry_mkey = store path (* View: entry_path Path component of an entry location *) let entry_path = [ label "path" . store path ] (* View: entry_host Host component with optional weight of an entry location *) let entry_host = [ label "host" . store hostname . ( Util.del_str "(" . [ label "weight" . store weight ] . Util.del_str ")" )? ] (* View: comma_sep_list Parses options for filesystems *) let comma_sep_list (l:string) = let value = [ label "value" . Util.del_str "=" . store Rx.neg1 ] in let lns = [ label l . store optlabel . value? ] in Build.opt_list lns Sep.comma (* View: entry_options *) let entry_options = Util.del_str "-" . comma_sep_list "opt" . Util.del_ws_tab (* View: entry_location A single location with one or more hosts, and one path *) let entry_location = ( entry_host . ( Sep.comma . entry_host )* )? . Sep.colon . entry_path (* View: entry_locations Multiple locations (each with one or more hosts), separated by spaces *) let entry_locations = [ label "location" . counter "location" . [ seq "location" . entry_location ] . ( [ Util.del_ws_spc . seq "location" . entry_location ] )* ] (* View: entry_multimount Parses one of many mountpoints given for a multimount line *) let entry_multimount = entry_mkey . Util.del_ws_tab . entry_options? . entry_locations (* View: entry_multimounts Parses multiple mountpoints given on an entry line *) let entry_multimounts = [ label "mount" . counter "mount" . [ seq "mount" . entry_multimount ] . ( [ entry_multimount_sep . seq "mount" . entry_multimount ] )* ] (* View: entry A single map entry from start to finish, including multi-mounts *) let entry = [ seq "entry" . entry_mkey . Util.del_ws_tab . entry_options? . ( entry_locations | entry_multimounts ) . Util.eol ] (* View: include An include line starting with a "+" and a map name *) let include = [ seq "entry" . store "+" . Util.del_opt_ws "" . [ label "map" . store map_name ] . Util.eol ] (* View: lns *) let lns = ( empty | comment | entry | include ) * (* Variable: filter Exclude scripts/executable maps from here *) let filter = incl "/etc/auto.*" . incl "/etc/auto_*" . excl "/etc/auto.master" . excl "/etc/auto_master" . excl "/etc/auto.net" . excl "/etc/auto.smb" . Util.stdexcl let xfm = transform lns filter PK ! d� & & lenses/dist/carbon.augnu �[��� (* Module: Carbon Parses Carbon's configuration files Author: Marc Fournier <marc.fournier@camptocamp.com> About: Reference This lens is based on the conf/*.conf.example files from the Carbon package. About: Configuration files This lens applies to most files in /etc/carbon/. See <filter>. NB: whitelist.conf and blacklist.conf use a different syntax. This lens doesn't support them. About: Usage Example (start code) $ augtool augtool> ls /files/etc/carbon/carbon.conf/ cache/ = (none) relay/ = (none) aggregator/ = (none) augtool> get /files/etc/carbon/carbon.conf/cache/ENABLE_UDP_LISTENER /files/etc/carbon/carbon.conf/cache/ENABLE_UDP_LISTENER = False augtool> set /files/etc/carbon/carbon.conf/cache/ENABLE_UDP_LISTENER True augtool> save Saved 1 file(s) (end code) The <Test_Carbon> file also contains various examples. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Carbon = autoload xfm let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let entry = IniFile.entry IniFile.entry_re sep comment let title = IniFile.title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = incl "/etc/carbon/carbon.conf" . incl "/etc/carbon/relay-rules.conf" . incl "/etc/carbon/rewrite-rules.conf" . incl "/etc/carbon/storage-aggregation.conf" . incl "/etc/carbon/storage-schemas.conf" let xfm = transform lns filter PK ! G➻ � lenses/dist/known_hosts.augnu �[��� (* Module: Known_Hosts Parses SSH known_hosts files Author: Raphaël Pinson <raphink@gmail.com> About: Reference This lens manages OpenSSH's known_hosts files. See `man 8 sshd` for reference. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool: * Get a key by name from ssh_known_hosts > print /files/etc/ssh_known_hosts/*[.="foo.example.com"] ... * Change a host's key > set /files/etc/ssh_known_hosts/*[.="foo.example.com"]/key "newkey" About: Configuration files This lens applies to SSH known_hosts files. See <filter>. *) module Known_Hosts = autoload xfm (* View: marker The marker is optional, but if it is present then it must be one of “@cert-authority”, to indicate that the line contains a certification authority (CA) key, or “@revoked”, to indicate that the key contained on the line is revoked and must not ever be accepted. Only one marker should be used on a key line. *) let marker = [ key /@(revoked|cert-authority)/ . Sep.space ] (* View: type Bits, exponent, and modulus are taken directly from the RSA host key; they can be obtained, for example, from /etc/ssh/ssh_host_key.pub. The optional comment field continues to the end of the line, and is not used. *) let type = [ label "type" . store Rx.neg1 ] (* View: entry A known_hosts entry *) let entry = let alias = [ label "alias" . store Rx.neg1 ] in let key = [ label "key" . store Rx.neg1 ] in [ Util.indent . seq "entry" . marker? . store Rx.neg1 . (Sep.comma . Build.opt_list alias Sep.comma)? . Sep.space . type . Sep.space . key . Util.comment_or_eol ] (* View: lns The known_hosts lens *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/ssh/ssh_known_hosts" . incl (Sys.getenv("HOME") . "/.ssh/known_hosts") let xfm = transform lns filter PK ! ���[? ? lenses/dist/automaster.augnu �[��� (* Module: Automaster Parses autofs' auto.master files Author: Dominic Cleal <dcleal@redhat.com> About: Reference See auto.master(5) About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/auto.master, auto_master and /etc/auto.master.d/* files. About: Examples The <Test_Automaster> file contains various examples and tests. *) module Automaster = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: eol *) let eol = Util.eol (* View: empty *) let empty = Util.empty (* View: comment *) let comment = Util.comment (* View mount *) let mount = /[^+ \t\n#]+/ (* View: type yp, file, dir etc but not ldap *) let type = Rx.word - /ldap/ (* View: format sun, hesoid *) let format = Rx.word (* View: name *) let name = /[^: \t\n]+/ (* View: host *) let host = /[^:# \n\t]+/ (* View: dn *) let dn = /[^:# \n\t]+/ (* An option label can't contain comma, comment, equals, or space *) let optlabel = /[^,#= \n\t]+/ let spec = /[^,# \n\t][^ \n\t]*/ (* View: optsep *) let optsep = del /[ \t,]+/ "," (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: map_format *) let map_format = [ label "format" . store format ] (* View: map_type *) let map_type = [ label "type" . store type ] (* View: map_name *) let map_name = [ label "map" . store name ] (* View: map_generic Used for all except LDAP maps which are parsed further *) let map_generic = ( map_type . ( Sep.comma . map_format )? . Sep.colon )? . map_name (* View: map_ldap_name Split up host:dc=foo into host/map nodes *) let map_ldap_name = ( [ label "host" . store host ] . Sep.colon )? . [ label "map" . store dn ] (* View: map_ldap *) let map_ldap = [ label "type" . store "ldap" ] . ( Sep.comma . map_format )? . Sep.colon . map_ldap_name (* View: comma_spc_sep_list Parses options either for filesystems or autofs *) let comma_spc_sep_list (l:string) = let value = [ label "value" . Util.del_str "=" . store Rx.neg1 ] in let lns = [ label l . store optlabel . value? ] in Build.opt_list lns optsep (* View: map_mount Mountpoint and whitespace, followed by the map info *) let map_mount = [ seq "map" . store mount . Util.del_ws_tab . ( map_generic | map_ldap ) . ( Util.del_ws_spc . comma_spc_sep_list "opt" )? . Util.eol ] (* map_master "+" to include more master entries and optional whitespace *) let map_master = [ seq "map" . store "+" . Util.del_opt_ws "" . ( map_generic | map_ldap ) . ( Util.del_ws_spc . comma_spc_sep_list "opt" )? . Util.eol ] (* View: lns *) let lns = ( empty | comment | map_mount | map_master ) * (* Variable: filter *) let filter = incl "/etc/auto.master" . incl "/etc/auto_master" . incl "/etc/auto.master.d/*" . Util.stdexcl let xfm = transform lns filter PK ! �<F�� � lenses/dist/sshd.augnu �[��� (* Module: Sshd Parses /etc/ssh/sshd_config Author: David Lutterkort lutter@redhat.com Dominique Dumont dominique.dumont@hp.com About: Reference sshd_config man page. See http://www.openbsd.org/cgi-bin/man.cgi?query=sshd_config&sektion=5 About: License This file is licensed under the LGPL v2+. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/ssh/sshd_config ... * Set X11Forwarding to "no" > set /files/etc/ssh/sshd_config/X11Forwarding "no" More advanced usage: * Set a Match section > set /files/etc/ssh/sshd_config/Match[1]/Condition/User "foo" > set /files/etc/ssh/sshd_config/Match[1]/Settings/X11Forwarding "yes" Saving your file: > save About: CAVEATS In sshd_config, Match blocks must be located at the end of the file. This means that any new "global" parameters (i.e. outside of a Match block) must be written before the first Match block. By default, Augeas will write new parameters at the end of the file. I.e. if you have a Match section and no ChrootDirectory parameter, this command: > set /files/etc/ssh/sshd_config/ChrootDirectory "foo" will be stored in a new node after the Match section and Augeas will refuse to save sshd_config file. To create a new parameter as the right place, you must first create a new Augeas node before the Match section: > ins ChrootDirectory before /files/etc/ssh/sshd_config/Match Then, you can set the parameter > set /files/etc/ssh/sshd_config/ChrootDirectory "foo" About: Configuration files This lens applies to /etc/ssh/sshd_config *) module Sshd = autoload xfm let eol = del /[ \t]*\n/ "\n" let sep = del /[ \t=]+/ " " let indent = del /[ \t]*/ " " let key_re = /[A-Za-z0-9]+/ - /MACs|Match|AcceptEnv|Subsystem|Ciphers|(Kex|HostKey)Algorithms|(Allow|Deny)(Groups|Users)/i let comment = Util.comment let comment_noindent = Util.comment_noindent let empty = Util.empty let array_entry (kw:regexp) (sq:string) = let bare = Quote.do_quote_opt_nil (store /[^"' \t\n=]+/) in let quoted = Quote.do_quote (store /[^"'\n]*[ \t]+[^"'\n]*/) in [ key kw . ( [ sep . seq sq . bare ] | [ sep . seq sq . quoted ] )* . eol ] let other_entry = let value = store /[^ \t\n=]+([ \t=]+[^ \t\n=]+)*/ in [ key key_re . sep . value . eol ] let accept_env = array_entry /AcceptEnv/i "AcceptEnv" let allow_groups = array_entry /AllowGroups/i "AllowGroups" let allow_users = array_entry /AllowUsers/i "AllowUsers" let deny_groups = array_entry /DenyGroups/i "DenyGroups" let deny_users = array_entry /DenyUsers/i "DenyUsers" let subsystemvalue = let value = store (/[^ \t\n=](.*[^ \t\n=])?/) in [ key /[A-Za-z0-9\-]+/ . sep . value . eol ] let subsystem = [ key /Subsystem/i . sep . subsystemvalue ] let list (kw:regexp) (sq:string) = let value = store /[^, \t\n=]+/ in [ key kw . sep . [ seq sq . value ] . ([ seq sq . Util.del_str "," . value])* . eol ] let macs = list /MACs/i "MACs" let ciphers = list /Ciphers/i "Ciphers" let kexalgorithms = list /KexAlgorithms/i "KexAlgorithms" let hostkeyalgorithms = list /HostKeyAlgorithms/i "HostKeyAlgorithms" let entry = accept_env | allow_groups | allow_users | deny_groups | subsystem | deny_users | macs | ciphers | kexalgorithms | hostkeyalgorithms | other_entry let condition_entry = let k = /[A-Za-z0-9]+/ in let no_spc = Quote.do_dquote_opt (store /[^"' \t\n=]+/) in let spc = Quote.do_quote (store /[^"'\t\n]* [^"'\t\n]*/) in [ sep . key k . sep . no_spc ] | [ sep . key k . sep . spc ] let match_cond = [ label "Condition" . condition_entry+ . eol ] let match_entry = indent . (entry | comment_noindent) | empty let match = [ key /Match/i . match_cond . [ label "Settings" . match_entry+ ] ] let lns = (entry | comment | empty)* . match* let xfm = transform lns (incl "/etc/ssh/sshd_config") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �~��� � lenses/dist/kdump.augnu �[��� (* Module: Kdump Parses /etc/kdump.conf Author: Roman Rakus <rrakus@redhat.com> About: References manual page kdump.conf(5) About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/kdump.conf. See <filter>. *) module Kdump = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) let empty = Util.empty let comment = Util.comment let value_to_eol = store /[^ \t\n#][^\n#]*[^ \t\n#]|[^ \t\n#]/ let int_to_eol = store Rx.integer let delimiter = Util.del_ws_spc let eol = Util.eol let value_to_spc = store Rx.neg1 let key_to_space = key /[A-Za-z0-9_.\$-]+/ let eq = Sep.equal (************************************************************************ * Group: ENTRY TYPES *************************************************************************) let list (kw:string) = counter kw . Build.key_value_line_comment kw delimiter (Build.opt_list [ seq kw . value_to_spc ] delimiter) comment let mdl_key_value = [ delimiter . key_to_space . ( eq . value_to_spc)? ] let mdl_options = [ key_to_space . mdl_key_value+ ] let mod_options = [ key "options" . delimiter . mdl_options . (comment|eol) ] (************************************************************************ * Group: ENTRIES *************************************************************************) (* Got from mount(8) *) let fs_types = "adfs" | "affs" | "autofs" | "cifs" | "coda" | "coherent" | "cramfs" | "debugfs" | "devpts" | "efs" | "ext" | "ext2" | "ext3" | "ext4" | "hfs" | "hfsplus" | "hpfs" | "iso9660" | "jfs" | "minix" | "msdos" | "ncpfs" | "nfs" | "nfs4" | "ntfs" | "proc" | "qnx4" | "ramfs" | "reiserfs" | "romfs" | "squashfs" | "smbfs" | "sysv" | "tmpfs" | "ubifs" | "udf" | "ufs" | "umsdos" | "usbfs" | "vfat" | "xenix" | "xfs" | "xiafs" let simple_kws = "raw" | "net" | "path" | "core_collector" | "kdump_post" | "kdump_pre" | "default" | "ssh" | "sshkey" | "dracut_args" | "fence_kdump_args" let int_kws = "force_rebuild" | "override_resettable" | "debug_mem_level" | "link_delay" | "disk_timeout" let option = Build.key_value_line_comment ( simple_kws | fs_types ) delimiter value_to_eol comment | Build.key_value_line_comment int_kws delimiter int_to_eol comment | list "extra_bins" | list "extra_modules" | list "blacklist" | list "fence_kdump_nodes" | mod_options (* View: lns The options lens *) let lns = ( empty | comment | option )* let filter = incl "/etc/kdump.conf" let xfm = transform lns filter PK ! �uB� � ! lenses/dist/postfix_transport.augnu �[��� (* Module: Postfix_Transport Parses /etc/postfix/transport Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `man 5 transport` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/postfix/transport. See <filter>. About: Examples The <Test_Postfix_Transport> file contains various examples and tests. *) module Postfix_Transport = autoload xfm (* View: space_or_eol *) let space_or_eol = del /([ \t]*\n)?[ \t]+/ " " (* View: colon *) let colon = Sep.colon (* View: nexthop *) let nexthop = let host_re = "[" . Rx.word . "]" | /[A-Za-z]([^\n]*[^ \t\n])?/ in [ label "nexthop" . (store host_re)? ] (* View: transport *) let transport = [ label "transport" . (store Rx.word)? ] . colon . nexthop (* View: nexthop_smtp *) let nexthop_smtp = let host_re = "[" . Rx.word . "]" | Rx.word in [ label "host" . store host_re ] . colon . [ label "port" . store Rx.integer ] (* View: record *) let record = [ label "pattern" . store /[A-Za-z0-9@\*._-]+/ . space_or_eol . (transport | nexthop_smtp) . Util.eol ] (* View: lns *) let lns = (Util.empty | Util.comment | record)* (* Variable: filter *) let filter = incl "/etc/postfix/transport" . incl "/usr/local/etc/postfix/transport" let xfm = transform lns filter PK ! �ԑ�� � lenses/dist/up2date.augnu �[��� (* Module: Up2date Parses /etc/sysconfig/rhn/up2date Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 up2date` where possible. About: License This file is licenced under the LGPLv2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/sysconfig/rhn/up2date. See <filter>. About: Examples The <Test_Up2date> file contains various examples and tests. *) module Up2date = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Variable: key_re *) let key_re = /[^=# \t\n]+/ (* Variable: value_re *) let value_re = /[^ \t\n;][^\n;]*[^ \t\n;]|[^ \t\n;]/ (* View: sep_semi *) let sep_semi = Sep.semicolon (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: single_entry key=foo *) let single_entry = [ label "value" . store value_re ] (* View: multi_empty key=; *) let multi_empty = sep_semi (* View: multi_value One value in a list setting *) let multi_value = [ seq "multi" . store value_re ] (* View: multi_single key=foo; (parsed as a list) *) let multi_single = multi_value . sep_semi (* View: multi_values key=foo;bar key=foo;bar; *) let multi_values = multi_value . ( sep_semi . multi_value )+ . del /;?/ ";" (* View: multi_entry List settings go under a 'values' node *) let multi_entry = [ label "values" . counter "multi" . ( multi_single | multi_values | multi_empty ) ] (* View: entry *) let entry = [ seq "entry" . store key_re . Sep.equal . ( multi_entry | single_entry )? . Util.eol ] (************************************************************************ * Group: LENS *************************************************************************) (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/sysconfig/rhn/up2date" let xfm = transform lns filter PK ! t�[ [ lenses/dist/semanage.augnu �[��� (* Module: Semanage Parses /etc/selinux/semanage.conf Author: Pino Toscano <ptoscano@redhat.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/selinux/semanage.conf. See <filter>. About: Examples The <Test_Semanage> file contains various examples and tests. *) module Semanage = autoload xfm let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let empty = IniFile.empty let eol = IniFile.eol let entry = IniFile.entry IniFile.entry_re sep comment | empty let title = IniFile.title_label "@group" (IniFile.record_re - /^end$/) let record = [ title . entry+ . Util.del_str "[end]" . eol ] let lns = (entry | record)* (* Variable: filter *) let filter = incl "/etc/selinux/semanage.conf" let xfm = transform lns filter PK ! L�)wG G lenses/dist/services.augnu �[��� (* Module: Services Parses /etc/services Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to 'man services' where possible. The definitions from 'man services' are put as commentaries for reference throughout the file. More information can be found in the manual. 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 * Get the name of the service running on port 22 with protocol tcp > match "/files/etc/services/service-name[port = '22'][protocol = 'tcp']" * Remove the tcp entry for "domain" service > rm "/files/etc/services/service-name[. = 'domain'][protocol = 'tcp']" * Add a tcp service named "myservice" on port 55234 > ins service-name after /files/etc/services/service-name[last()] > set /files/etc/services/service-name[last()] "myservice" > set "/files/etc/services/service-name[. = 'myservice']/port" "55234" > set "/files/etc/services/service-name[. = 'myservice']/protocol" "tcp" About: Configuration files This lens applies to /etc/services. See <filter>. *) module Services = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Generic primitives *) (* Variable: eol *) let eol = del /[ \t]*(#)?[ \t]*\n/ "\n" let indent = Util.indent let comment = Util.comment let comment_or_eol = Util.comment_or_eol let empty = Util.empty let protocol_re = /[a-zA-Z]+/ let word_re = /[a-zA-Z0-9_.+*\/:-]+/ let num_re = /[0-9]+/ (* Group: Separators *) let sep_spc = Util.del_ws_spc (************************************************************************ * Group: LENSES *************************************************************************) (* View: port *) let port = [ label "port" . store num_re ] (* View: port_range *) let port_range = [ label "start" . store num_re ] . Util.del_str "-" . [ label "end" . store num_re ] (* View: protocol *) let protocol = [ label "protocol" . store protocol_re ] (* View: alias *) let alias = [ label "alias" . store word_re ] (* * View: record * A standard /etc/services record * TODO: make sure a space is added before a comment on new nodes *) let record = [ label "service-name" . store word_re . sep_spc . (port | port_range) . del "/" "/" . protocol . ( sep_spc . alias )* . comment_or_eol ] (* View: lns The services lens is either <empty>, <comment> or <record> *) let lns = ( empty | comment | record )* (* View: filter *) let filter = (incl "/etc/services") let xfm = transform lns filter PK ! P��j lenses/dist/passwd.augnu �[��� (* Module: Passwd Parses /etc/passwd Author: Free Ekanayaka <free@64studio.com> About: Reference - man 5 passwd - man 3 getpwnam Each line in the unix passwd file represents a single user record, whose colon-separated attributes correspond to the members of the passwd struct *) module Passwd = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) let eol = Util.eol let comment = Util.comment let empty = Util.empty let dels = Util.del_str let word = Rx.word let integer = Rx.integer let colon = Sep.colon let sto_to_eol = store Rx.space_in let sto_to_col = store /[^:\r\n]+/ (* Store an empty string if nothing matches *) let sto_to_col_or_empty = store /[^:\r\n]*/ (************************************************************************ * Group: ENTRIES *************************************************************************) let username = /[_.A-Za-z0-9][-_.A-Za-z0-9]*\$?/ (* View: password pw_passwd *) let password = [ label "password" . sto_to_col? . colon ] (* View: uid pw_uid *) let uid = [ label "uid" . store integer . colon ] (* View: gid pw_gid *) let gid = [ label "gid" . store integer . colon ] (* View: name pw_gecos; the user's full name *) let name = [ label "name" . sto_to_col? . colon ] (* View: home pw_dir *) let home = [ label "home" . sto_to_col? . colon ] (* View: shell pw_shell *) let shell = [ label "shell" . sto_to_eol? ] (* View: entry struct passwd *) let entry = [ key username . colon . password . uid . gid . name . home . shell . eol ] (* NIS entries *) let niscommon = [ label "password" . sto_to_col ]? . colon . [ label "uid" . store integer ]? . colon . [ label "gid" . store integer ]? . colon . [ label "name" . sto_to_col ]? . colon . [ label "home" . sto_to_col ]? . colon . [ label "shell" . sto_to_eol ]? let nisentry = let overrides = colon . niscommon in [ dels "+@" . label "@nis" . store username . overrides . eol ] let nisuserplus = let overrides = colon . niscommon in [ dels "+" . label "@+nisuser" . store username . overrides . eol ] let nisuserminus = let overrides = colon . niscommon in [ dels "-" . label "@-nisuser" . store username . overrides . eol ] let nisdefault = let overrides = colon . [ label "password" . sto_to_col_or_empty . colon ] . [ label "uid" . store integer? . colon ] . [ label "gid" . store integer? . colon ] . [ label "name" . sto_to_col? . colon ] . [ label "home" . sto_to_col? . colon ] . [ label "shell" . sto_to_eol? ] in [ dels "+" . label "@nisdefault" . overrides? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|nisentry|nisdefault|nisuserplus|nisuserminus) * let filter = incl "/etc/passwd" let xfm = transform lns filter PK ! �n{AD D lenses/dist/nagiosobjects.augnu �[��� (* Module: NagiosObjects Parses /etc/{nagios{3,},icinga}/objects/*.cfg Authors: Sebastien Aperghis-Tramoni <sebastien@aperghis.net> Raphaël Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/{nagios{3,},icinga}/objects/*.cfg. See <filter>. *) module NagiosObjects = autoload xfm (* basic atoms *) let eol = Util.eol let ws = Sep.space let keyword = key /[A-Za-z0-9_]+/ (* optional, but preferred, whitespace *) let opt_ws = del Rx.opt_space " " (* define an empty line *) let empty = Util.empty (* define a comment *) let comment = Util.comment_generic /[ \t]*[#;][ \t]*/ "# " (* define a field *) let object_field = let field_name = keyword in let field_value = store Rx.space_in in [ Util.indent . field_name . ws . field_value . eol ] (* define an object *) let object_def = let object_type = keyword in [ Util.indent . Util.del_str "define" . ws . object_type . opt_ws . Util.del_str "{" . eol . ( empty | comment | object_field )* . Util.indent . Util.del_str "}" . eol ] (* main structure *) let lns = ( empty | comment | object_def )* let filter = incl "/etc/nagios3/objects/*.cfg" . incl "/etc/nagios/objects/*.cfg" . incl "/etc/icinga/objects/*.cfg" let xfm = transform lns filter PK ! �-�VB B lenses/dist/afs_cellalias.augnu �[��� (* Module: AFS_cellalias Parses AFS configuration file CellAlias Author: Pat Riehecky <riehecky@fnal.gov> About: Reference This lens is targeted at the OpenAFS CellAlias file About: Lens Usage Sample usage of this lens in augtool * Add a CellAlias for fnal.gov/files to fnal-files > set /files/usr/vice/etc/CellAlias/target[99] fnal.gov/files > set /files/usr/vice/etc/CellAlias/target[99]/linkname fnal-files About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module AFS_cellalias = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* View: eol *) let eol = Util.eol (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* Group: separators *) (* View: space * Separation between key and value *) let space = Util.del_ws_spc let target = /[^ \t\n#]+/ let linkname = Rx.word (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: entry *) let entry = [ label "target" . store target . space . [ label "linkname" . store linkname . eol ] ] (* View: lns *) let lns = (empty | comment | entry)* let xfm = transform lns (incl "/usr/vice/etc/CellAlias") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��� � lenses/dist/vmware_config.augnu �[��� (* Module: VWware_Config Parses /etc/vmware/config Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/vmware/config. See <filter>. About: Examples The <Test_VMware_Config> file contains various examples and tests. *) module VMware_Config = autoload xfm (* View: entry *) let entry = Build.key_value_line Rx.word Sep.space_equal Quote.double_opt (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/vmware/config" let xfm = transform lns filter PK ! �9��` ` lenses/dist/activemq_xml.augnu �[��� (* Module: ActiveMQ_XML ActiveMQ / FuseMQ XML module for Augeas Author: Brian Redbeard <redbeard@dead-city.org> About: Reference This lens ensures that XML files included in ActiveMQ / FuseMQ are properly handled by Augeas. About: License This file is licensed under the LGPL License. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/activemq/activemq.xml ... * Change OpenShift domain > set /files/etc/openshift/broker.conf/CLOUD_DOMAIN ose.example.com Saving your file: > save About: Configuration files This lens applies to relevant XML files located in /etc/activemq/ . See <filter>. *) module ActiveMQ_XML = autoload xfm let lns = Xml.lns let filter = (incl "/etc/activemq/*.xml") . Util.stdexcl let xfm = transform lns filter PK ! �§8� � lenses/dist/iscsid.augnu �[��� (* Module: Iscsid Parses iscsid configuration file Author: Joey Boggs <jboggs@redhat.com> About: Reference This lens is targeted at /etc/iscsi/iscsid.conf *) module Iscsid = autoload xfm let filter = incl "/etc/iscsi/iscsid.conf" let eol = Util.eol let indent = Util.indent let key_re = /[][A-Za-z0-9_.-]+/ let eq = del /[ \t]*=[ \t]*/ " = " let value_re = /[^ \t\n](.*[^ \t\n])?/ let comment = [ indent . label "#comment" . del /[#;][ \t]*/ "# " . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ . eol ] let empty = Util.empty let kv = [ indent . key key_re . eq . store value_re . eol ] let lns = (empty | comment | kv) * let xfm = transform lns filter PK ! K�~%U U lenses/dist/tmpfiles.augnu �[��� (* Module: Tmpfiles Parses systemd tmpfiles.d files Author: Julien Pivotto <roidelapluie@inuits.eu> About: Reference This lens tries to keep as close as possible to `man 5 tmpfiles.d` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/tmpfiles.d/*.conf /usr/lib/tmpfiles.d/*.conf and /run/tmpfiles.d/*.conf. See <filter>. About: Examples The <Test_Tmpfiles> file contains various examples and tests. *) module Tmpfiles = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* View: sep_spc Space *) let sep_spc = Sep.space (* View: sep_opt_spc Optional space (for the beginning of the lines) *) let sep_opt_spc = Sep.opt_space (* View: comment Comments *) let comment = Util.comment (* View: empty Empty lines *) let empty = Util.empty (* Group: Lense-specific primitives *) (* View: type One letter. Some of them can have a "+" and all can have an exclamation mark ("!") and/or minus sign ("-"). Not all letters are valid. *) let type = /([fFwdDevqQpLcbCxXrRzZtThHaAm]|[fFwpLcbaA]\+)!?-?/ (* View: mode "-", or 3-4 bytes. Optionally starts with a "~". *) let mode = /(-|~?[0-7]{3,4})/ (* View: age "-", or one of the formats seen in the manpage: 10d, 5seconds, 1y5days. optionally starts with a "~'. *) let age = /(-|(~?[0-9]+(s|m|min|h|d|w|ms|us|((second|minute|hour|day|week|millisecond|microsecond)s?))?)+)/ (* View: argument The last field. It can contain spaces. *) let argument = /([^# \t\n][^#\n]*[^# \t\n]|[^# \t\n])/ (* View: field Applies to the other fields: path, gid and uid fields *) let field = /[^# \t\n]+/ (* View: record A valid record, one line in the file. Only the two first fields are mandatory. *) let record = [ seq "record" . sep_opt_spc . [ label "type" . store type ] . sep_spc . [ label "path" . store field ] . ( sep_spc . [ label "mode" . store mode ] . ( sep_spc . [ label "uid" . store field ] . ( sep_spc . [ label "gid" . store field ] . ( sep_spc . [ label "age" . store age ] . ( sep_spc . [ label "argument" . store argument ] )? )? )? )? )? . Util.comment_or_eol ] (************************************************************************ * Group: THE TMPFILES LENSE *************************************************************************) (* View: lns The tmpfiles lens. Each line can be a comment, a record or empty. *) let lns = ( empty | comment | record ) * (* View: filter *) let filter = incl "/etc/tmpfiles.d/*.conf" . incl "/usr/lib/tmpfiles.d/*.conf" . incl "/run/tmpfiles.d/*.conf" let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �� �) �) lenses/dist/xorg.augnu �[��� (* Module: Xorg Parses /etc/X11/xorg.conf Authors: Raphael Pinson <raphink@gmail.com> Matthew Booth <mbooth@redhat.com> About: Reference This lens tries to keep as close as possible to `man xorg.conf` where possible. The definitions from `man xorg.conf` are put as commentaries for reference throughout the file. More information can be found in the manual. About: License This file is licensed under the LGPLv2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool * Get the identifier of the devices with a "Clone" option: > match "/files/etc/X11/xorg.conf/Device[Option = 'Clone']/Identifier" About: Configuration files This lens applies to /etc/X11/xorg.conf. See <filter>. *) module Xorg = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Generic primitives *) (* Variable: eol *) let eol = Util.eol (* Variable: to_eol * Match everything from here to eol, cropping whitespace at both ends *) let to_eol = /[^ \t\n](.*[^ \t\n])?/ (* Variable: indent *) let indent = Util.indent (* Variable: comment *) let comment = Util.comment (* Variable: empty *) let empty = Util.empty (* Group: Separators *) (* Variable: sep_spc *) let sep_spc = Util.del_ws_spc (* Variable: sep_dquote *) let sep_dquote = Util.del_str "\"" (* Group: Fields and values *) (* Variable: entries_re * This is a list of all patterns which have specific handlers, and should * therefore not be matched by the generic handler *) let entries_re = /([oO]ption|[sS]creen|[iI]nput[dD]evice|[dD]river|[sS]ub[sS]ection|[dD]isplay|[iI]dentifier|[vV]ideo[rR]am|[dD]efault[dD]epth|[dD]evice)/ (* Variable: generic_entry_re *) let generic_entry_re = /[^# \t\n\/]+/ - entries_re (* Variable: quoted_non_empty_string_val *) let quoted_non_empty_string_val = del "\"" "\"" . store /[^"\n]+/ . del "\"" "\"" (* " relax, emacs *) (* Variable: quoted_string_val *) let quoted_string_val = del "\"" "\"" . store /[^"\n]*/ . del "\"" "\"" (* " relax, emacs *) (* Variable: int *) let int = /[0-9]+/ (************************************************************************ * Group: ENTRIES AND OPTIONS *************************************************************************) (* View: entry_int * This matches an entry which takes a single integer for an argument *) let entry_int (canon:string) (re:regexp) = [ indent . del re canon . label canon . sep_spc . store int . eol ] (* View: entry_rgb * This matches an entry which takes 3 integers as arguments representing red, * green and blue components *) let entry_rgb (canon:string) (re:regexp) = [ indent . del re canon . label canon . [ label "red" . sep_spc . store int ] . [ label "green" . sep_spc . store int ] . [ label "blue" . sep_spc . store int ] . eol ] (* View: entry_xy * This matches an entry which takes 2 integers as arguments representing X and * Y coordinates *) let entry_xy (canon:string) (re:regexp) = [ indent . del re canon . label canon . [ label "x" . sep_spc . store int ] . [ label "y" . sep_spc . store int ] . eol ] (* View: entry_str * This matches an entry which takes a single quoted string *) let entry_str (canon:string) (re:regexp) = [ indent . del re canon . label canon . sep_spc . quoted_non_empty_string_val . eol ] (* View: entry_generic * An entry without a specific handler. Store everything after the keyword, * cropping whitespace at both ends. *) let entry_generic = [ indent . key generic_entry_re . sep_spc . store to_eol . eol ] (* View: option *) let option = [ indent . del /[oO]ption/ "Option" . label "Option" . sep_spc . quoted_non_empty_string_val . [ label "value" . sep_spc . quoted_string_val ]* . eol ] (* View: screen * The Screen entry of ServerLayout *) let screen = [ indent . del /[sS]creen/ "Screen" . label "Screen" . [ sep_spc . label "num" . store int ]? . ( sep_spc . quoted_non_empty_string_val . [ sep_spc . label "position" . store to_eol ]? )? . eol ] (* View: input_device *) let input_device = [ indent . del /[iI]nput[dD]evice/ "InputDevice" . label "InputDevice" . sep_spc . quoted_non_empty_string_val . [ label "option" . sep_spc . quoted_non_empty_string_val ]* . eol ] (* View: driver *) let driver = entry_str "Driver" /[dD]river/ (* View: identifier *) let identifier = entry_str "Identifier" /[iI]dentifier/ (* View: videoram *) let videoram = entry_int "VideoRam" /[vV]ideo[rR]am/ (* View: default_depth *) let default_depth = entry_int "DefaultDepth" /[dD]efault[dD]epth/ (* View: device *) let device = entry_str "Device" /[dD]evice/ (************************************************************************ * Group: DISPLAY SUBSECTION *************************************************************************) (* View: display_modes *) let display_modes = [ indent . del /[mM]odes/ "Modes" . label "Modes" . [ label "mode" . sep_spc . quoted_non_empty_string_val ]+ . eol ] (************************************************************************* * View: display_entry * Known values for entries in the Display subsection * * Definition: * > Depth depth * > FbBpp bpp * > Weight red-weight green-weight blue-weight * > Virtual xdim ydim * > ViewPort x0 y0 * > Modes "mode-name" ... * > Visual "visual-name" * > Black red green blue * > White red green blue * > Options *) let display_entry = entry_int "Depth" /[dD]epth/ | entry_int "FbBpp" /[fF]b[bB]pp/ | entry_rgb "Weight" /[wW]eight/ | entry_xy "Virtual" /[vV]irtual/ | entry_xy "ViewPort" /[vV]iew[pP]ort/ | display_modes | entry_str "Visual" /[vV]isual/ | entry_rgb "Black" /[bB]lack/ | entry_rgb "White" /[wW]hite/ | entry_str "Options" /[oO]ptions/ | empty | comment (* View: display *) let display = [ indent . del "SubSection" "SubSection" . sep_spc . sep_dquote . key "Display" . sep_dquote . eol . display_entry* . indent . del "EndSubSection" "EndSubSection" . eol ] (************************************************************************ * Group: EXTMOD SUBSECTION *************************************************************************) let extmod_entry = entry_str "Option" /[oO]ption/ | empty | comment let extmod = [ indent . del "SubSection" "SubSection" . sep_spc . sep_dquote . key "extmod" . sep_dquote . eol . extmod_entry* . indent . del "EndSubSection" "EndSubSection" . eol ] (************************************************************************ * Group: SECTIONS *************************************************************************) (************************************************************************ * Variable: section_re * Known values for Section names * * Definition: * > The section names are: * > * > Files File pathnames * > ServerFlags Server flags * > Module Dynamic module loading * > Extensions Extension Enabling * > InputDevice Input device description * > InputClass Input Class description * > Device Graphics device description * > VideoAdaptor Xv video adaptor description * > Monitor Monitor description * > Modes Video modes descriptions * > Screen Screen configuration * > ServerLayout Overall layout * > DRI DRI-specific configuration * > Vendor Vendor-specific configuration *************************************************************************) let section_re = /(Extensions|Files|ServerFlags|Module|InputDevice|InputClass|Device|VideoAdaptor|Monitor|Modes|Screen|ServerLayout|DRI|Vendor)/ (************************************************************************ * Variable: secton_re_obsolete * The following obsolete section names are still recognised for * compatibility purposes. In new config files, the InputDevice * section should be used instead. * * Definition: * > Keyboard Keyboard configuration * > Pointer Pointer/mouse configuration *************************************************************************) let section_re_obsolete = /(Keyboard|Pointer)/ (* View: section_entry *) let section_entry = option | screen | display | extmod | input_device | driver | identifier | videoram | default_depth | device | entry_generic | empty | comment (************************************************************************ * View: section * A section in xorg.conf * * Definition: * > Section "SectionName" * > SectionEntry * > ... * > EndSection *************************************************************************) let section = [ indent . del "Section" "Section" . sep_spc . sep_dquote . key (section_re|section_re_obsolete) . sep_dquote . eol . section_entry* . indent . del "EndSection" "EndSection" . eol ] (* * View: lns * The xorg.conf lens *) let lns = ( empty | comment | section )* (* Variable: filter *) let filter = incl "/etc/X11/xorg.conf" . incl "/etc/X11/xorg.conf.d/*.conf" . Util.stdexcl let xfm = transform lns filter PK ! t�'~ lenses/dist/sep.augnu �[��� (* Module: Sep Generic separators to build lenses Author: Raphael Pinson <raphink@gmail.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Sep = (* Variable: colon *) let colon = Util.del_str ":" (* Variable: semicolon *) let semicolon = Util.del_str ";" (* Variable: comma *) let comma = Util.del_str "," (* Variable: equal *) let equal = Util.del_str "=" (* Variable: space_equal *) let space_equal = Util.delim "=" (* Variable: space Deletes a <Rx.space> and default to a single space *) let space = del Rx.space " " (* Variable: tab Deletes a <Rx.space> and default to a tab *) let tab = del Rx.space "\t" (* Variable: opt_space Deletes a <Rx.opt_space> and default to an empty string *) let opt_space = del Rx.opt_space "" (* Variable: opt_tab Deletes a <Rx.opt_space> and default to a tab *) let opt_tab = del Rx.opt_space "\t" (* Variable: cl_or_space Deletes a <Rx.cl_or_space> and default to a single space *) let cl_or_space = del Rx.cl_or_space " " (* Variable: cl_or_opt_space Deletes a <Rx.cl_or_opt_space> and default to a single space *) let cl_or_opt_space = del Rx.cl_or_opt_space " " (* Variable: lbracket *) let lbracket = Util.del_str "(" (* Variable: rbracket *) let rbracket = Util.del_str ")" PK ! �jP � � lenses/dist/splunk.augnu �[��� (* Module: Splunk Parses /opt/splunk/etc/*, /opt/splunkforwarder/etc/system/local/*.conf and /opt/splunkforwarder/etc/apps/*/(default|local)/*.conf Author: Tim Brigham, Jason Antman About: Reference https://docs.splunk.com/Documentation/Splunk/6.5.0/Admin/AboutConfigurationFiles About: License This file is licenced under the LGPL v2+ About: Lens Usage Works like IniFile lens, with anonymous section for entries without enclosing section and allowing underscore-prefixed keys. About: Configuration files This lens applies to conf files under /opt/splunk/etc and /opt/splunkforwarder/etc See <filter>. About: Examples The <Test_Splunk> file contains various examples and tests. *) module Splunk = autoload xfm let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let empty = IniFile.empty let entry_re = ( /[A-Za-z_][A-Za-z0-9._-]*/ ) let setting = entry_re let title = IniFile.indented_title_label "target" IniFile.record_label_re let entry = [ key entry_re . sep . IniFile.sto_to_eol? . IniFile.eol ] | comment let record = IniFile.record title entry let anon = [ label ".anon" . (entry|empty)+ ] let lns = anon . (record)* | (record)* let filter = incl "/opt/splunk/etc/system/local/*.conf" . incl "/opt/splunk/etc/apps/*/local/*.conf" . incl "/opt/splunkforwarder/etc/system/local/*.conf" . incl "/opt/splunkforwarder/etc/apps/*/default/*.conf" . incl "/opt/splunkforwarder/etc/apps/*/local/*.conf" let xfm = transform lns filter PK ! {��-� � lenses/dist/koji.augnu �[��� (* Module: Koji Parses koji config files Author: Pat Riehecky <riehecky@fnal.gov> About: Reference This lens tries to keep as close as possible to koji config syntax About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to: /etc/koji.conf /etc/kojid/kojid.conf /etc/koji-hub/hub.conf /etc/kojira/kojira.conf /etc/kojiweb/web.conf /etc/koji-shadow/koji-shadow.conf See <filter>. *) module Koji = autoload xfm let lns = IniFile.lns_loose_multiline let filter = incl "/etc/koji.conf" . incl "/etc/kojid/kojid.conf" . incl "/etc/koji-hub/hub.conf" . incl "/etc/kojira/kojira.conf" . incl "/etc/kojiweb/web.conf" . incl "/etc/koji-shadow/koji-shadow.conf" let xfm = transform lns filter PK ! ��7 7 lenses/dist/sysconfig_route.augnu �[��� (* Module: Sysconfig_Route Parses /etc/sysconfig/network-scripts/route-${device} Author: Stephen P. Schaefer About: Reference This lens allows manipulation of *one* IPv4 variant of the /etc/sysconfig/network-scripts/route-${device} script found in RHEL5+, CentOS5+ and Fedora. The variant handled consists of lines like "destination_subnet/cidr via router_ip", e.g., "10.132.11.0/24 via 10.10.2.1" There are other variants; if you use them, please enhance this lens. The natural key would be "10.132.11.0/24" with value "10.10.2.1", but since augeas cannot deal with slashes in the key value, I reverse them, so that the key is "10.10.2.1[1]" (and "10.10.2.1[2]"... if multiple subnets are reachable via that router). About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool * Set the first subnet reachable by a router reachable on the eth0 subnet > set /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1[1] 172.16.254.0/24 * List all the subnets reachable by a router reachable on eth0 subnet > match /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1 About: Configuration files This lens applies to /etc/sysconfig/network-scripts/route-* About: Examples The <Test_Sysconfig_Route> file contains various examples and tests. *) module Sysconfig_Route = autoload xfm (****************************************************************************** * Group: USEFUL PRIMITIVES ******************************************************************************) (* Variable: router A router *) let router = Rx.ipv4 (* Variable: cidr A subnet mask can be 0 to 32 bits *) let cidr = /(3[012]|[12][0-9]|[0-9])/ (* Variable: subnet Subnet specification *) let subnet = Rx.ipv4 . "/" . cidr (****************************************************************************** * Group: ENTRY TYPES ******************************************************************************) (* View: entry One route *) let entry = [ store subnet . del /[ \t]*via[ \t]*/ " via " . key router . Util.del_str "\n" ] (****************************************************************************** * Group: LENS AND FILTER ******************************************************************************) (* View: lns *) let lns = entry+ (* View: filter *) let filter = incl "/etc/sysconfig/network-scripts/route-*" . Util.stdexcl let xfm = transform lns filter PK ! �,� lenses/dist/anaconda.augnu �[��� (* Module: Anaconda Parses Anaconda's user interaction configuration files. Author: Pino Toscano <ptoscano@redhat.com> About: Reference https://anaconda-installer.readthedocs.io/en/latest/user-interaction-config-file-spec.html About: Configuration file This lens applies to /etc/sysconfig/anaconda. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Anaconda = autoload xfm let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" let entry = IniFile.entry IniFile.entry_re sep comment let title = IniFile.title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = incl "/etc/sysconfig/anaconda" let xfm = transform lns filter PK ! O�()X X lenses/dist/mcollective.augnu �[��� (* Module: MCollective Parses MCollective's configuration files Author: Marc Fournier <marc.fournier@camptocamp.com> About: Reference This lens is based on MCollective's default client.cfg and server.cfg. About: Usage Example (start code) augtool> get /files/etc/mcollective/client.cfg/plugin.psk /files/etc/mcollective/client.cfg/plugin.psk = unset augtool> ls /files/etc/mcollective/client.cfg/ topicprefix = /topic/ main_collective = mcollective collectives = mcollective [...] augtool> set /files/etc/mcollective/client.cfg/plugin.stomp.password example123 augtool> save Saved 1 file(s) (end code) The <Test_MCollective> file also contains various examples. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module MCollective = autoload xfm let lns = Simplevars.lns let filter = incl "/etc/mcollective/client.cfg" . incl "/etc/mcollective/server.cfg" . incl "/etc/puppetlabs/mcollective/client.cfg" . incl "/etc/puppetlabs/mcollective/server.cfg" let xfm = transform lns filter PK ! L��v v lenses/dist/puppetfileserver.augnu �[��� (* -*- 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 PK ! �F��� � lenses/dist/nginx.augnu �[��� (* Module: Nginx Nginx module for Augeas Authors: Ian Berry <iberry@barracuda.com> Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This module was built to support a limited subset of nginx configuration syntax. It works fine with simple blocks and field/value lines. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/nginx/nginx.conf. See <filter>. About: Examples The <Test_Nginx> file contains various examples and tests. About: TODO * Convert statement keyworks for a regex * Support more advanced block syntax (location) *) module Nginx = autoload xfm (* Variable: word *) let word = /[A-Za-z0-9_.:-]+/ (* Variable: block_re The keywords reserved for block entries *) let block_re = "http" | "events" | "server" | "mail" | "stream" (* All block keywords, including the ones we treat specially *) let block_re_all = block_re | "if" | "location" | "geo" | "map" | "split_clients" | "upstream" (* View: simple A simple entry *) let simple = let kw = word - block_re_all in let mask = [ label "mask" . Util.del_str "/" . store Rx.integer ] in let sto = store /[^ \t\n;#]([^";#]|"[^"]*\")*/ in [ Util.indent . key kw . mask? . (Sep.space . sto)? . Sep.semicolon . (Util.eol|Util.comment_eol) ] (* View: server A simple server entry *) let server = let address = /[A-Za-z0-9_.:\/-]+/ in [ Util.indent . label "@server" . Util.del_str "server" . [ Sep.space . label "@address" . store address ] . [ Sep.space . key word . (Sep.equal . store word)? ]* . Sep.semicolon . (Util.eol|Util.comment_eol) ] let arg (name:string) (rx:regexp) = [ label name . Sep.space . store rx ] (* Match any argument (as much as possible) *) let any_rx = let bare_rx = /[^" \t\n{][^ \t\n{]*/ in let dquote_rx = /"([^\"]|\\.)*"/ in bare_rx | dquote_rx let any_arg (name:string) = arg name any_rx (* 'if' conditions are enclosed in matching parens which we can't match precisely with a regular expression. Instead, we gobble up anything that doesn't contain an opening brace. That can of course lead to trouble if a condition actually contains an opening brace *) let block_if = key "if" . arg "#cond" /\(([^ \t\n{]|[ \t\n][^{])*\)/ let block_location = key "location" . (arg "#comp" /=|~|~\*|\^~/)? . any_arg "#uri" let block_geo = key "geo" . (any_arg "#address")? . any_arg "#geo" let block_map = key "map" . any_arg "#source" . any_arg "#variable" let block_split_clients = key "split_clients" . any_arg "#string" . any_arg "#variable" let block_upstream = key "upstream" . any_arg "#name" let block_head = key block_re | block_if | block_location | block_geo | block_map | block_split_clients | block_upstream (* View: block A block containing <simple> entries *) let block (entry : lens) = [ Util.indent . block_head . Build.block_newlines entry Util.comment . Util.eol ] let rec directive = simple | server | block directive (* View: lns *) let lns = ( Util.comment | Util.empty | directive )* (* Variable: filter *) let filter = incl "/etc/nginx/nginx.conf" . incl "/etc/nginx/conf.d/*.conf" . incl "/etc/nginx/sites-available/*" . incl "/etc/nginx/sites-enabled/*" . incl "/usr/portage/www-servers/nginx/files/nginx.conf" . incl "/usr/local/etc/nginx/nginx.conf" . incl "/usr/local/etc/nginx/conf.d/*.conf" . incl "/usr/local/etc/nginx/sites-available/*" . incl "/usr/local/etc/nginx/sites-enabled/*" let xfm = transform lns filter PK ! �j)l� � lenses/dist/netmasks.augnu �[��� (* Module: Netmasks Parses /etc/inet/netmasks on Solaris Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to `man 4 netmasks` where possible. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens applies to /etc/netmasks and /etc/inet/netmasks. See <filter>. *) module Netmasks = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES ************************************************************************) (* View: comment *) let comment = Util.comment (* View: comment_or_eol *) let comment_or_eol = Util.comment_or_eol (* View: indent *) let indent = Util.indent (* View: empty *) let empty = Util.empty (* View: sep The separator for network/mask entries *) let sep = Util.del_ws_tab (************************************************************************ * Group: ENTRIES ************************************************************************) (* View: entry Network / netmask line *) let entry = [ seq "network" . indent . [ label "network" . store Rx.ipv4 ] . sep . [ label "netmask" . store Rx.ipv4 ] . comment_or_eol ] (************************************************************************ * Group: LENS ************************************************************************) (* View: lns *) let lns = ( empty | comment | entry )* (* Variable: filter *) let filter = (incl "/etc/netmasks" . incl "/etc/inet/netmasks") let xfm = transform lns filter PK ! YDi�# # lenses/dist/nrpe.augnu �[��� (* Module: Nrpe Parses nagios-nrpe configuration files. Author: Marc Fournier <marc.fournier@camptocamp.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Nrpe = autoload xfm let eol = Util.eol let eq = Sep.equal (* View: word *) let word = /[^=\n\t ]+/ let words = word . ( / +/ . word )* (* View: item_re *) let item_re = /[^#=\n\t\/ ]+/ - (/command\[[^]\/\n]+\]/ | "include" | "include_dir") (* View: command nrpe.cfg usually has many entries defining commands to run > command[check_foo]=/path/to/nagios/plugin -w 123 -c 456 > command[check_bar]=/path/to/another/nagios/plugin --option *) let command = let obrkt = del /\[/ "[" in let cbrkt = del /\]/ "]" in [ key "command" . [ obrkt . key /[^]\/\n]+/ . cbrkt . eq . store /[^\n]+/ . del /\n/ "\n" ] ] (* View: item regular entries > allow_bash_command_substitution=0 *) let item = [ key item_re . eq . store words . eol ] (* View: include An include entry. nrpe.cfg can include more than one file or directory of files > include=/path/to/file1.cfg > include=/path/to/file2.cfg *) let include = [ key "include" . [ label "file" . eq . store word . eol ] ] (* View: include_dir > include_dir=/path/to/dir/ *) let include_dir = [ key "include_dir" . [ label "dir" . eq . store word . eol ] ] (* View: comment Nrpe comments must start at beginning of line *) let comment = Util.comment_generic /#[ \t]*/ "# " (* blank lines and empty comments *) let empty = Util.empty (* View: lns The Nrpe lens *) let lns = ( command | include | include_dir | item | comment | empty ) * (* View: filter File filter *) let filter = incl "/etc/nrpe.cfg" . incl "/etc/nagios/nrpe.cfg" let xfm = transform lns (filter) PK ! F�ڪ� � lenses/dist/ethers.augnu �[��� (* Parsing /etc/ethers *) module Ethers = autoload xfm let sep_tab = Util.del_ws_tab let eol = del /[ \t]*\n/ "\n" let indent = del /[ \t]*/ "" let comment = Util.comment let empty = [ del /[ \t]*#?[ \t]*\n/ "\n" ] let word = /[^# \n\t]+/ let address = let hex = /[0-9a-fA-F][0-9a-fA-F]?/ in hex . ":" . hex . ":" . hex . ":" . hex . ":" . hex . ":" . hex let record = [ seq "ether" . indent . [ label "mac" . store address ] . sep_tab . [ label "ip" . store word ] . eol ] let lns = ( empty | comment | record ) * let xfm = transform lns (incl "/etc/ethers") PK ! fDqR� � lenses/dist/mongodbserver.augnu �[��� (* Module: MongoDBServer Parses /etc/mongodb.conf Author: Brian Redbeard <redbeard@dead-city.org> About: Reference For information on configuration options available to mongod reference one of the following resources: * The Mongo DB Manual - <http://docs.mongodb.org/manual/> * The current options available for your operating system via: > man mongos About: License This file is licenced under the LGPL v2+, conforming to the other components of Augeas. About: Lens Usage Sample usage of this lens in augtool: * Get your current setup > print /files/etc/mongodb.conf ... * Change MongoDB port > set /files/etc/mongodb.conf/port 27117 Saving your file: > save About: Configuration files This lens applies to /etc/mongodb.conf. See <filter>. About: Examples The <Test_MongoDBServer> file contains various examples and tests. *) module MongoDBServer = autoload xfm (* View: entry *) let entry = Build.key_value_line Rx.word Sep.space_equal (store Rx.space_in) (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/mongodb.conf" let xfm = transform lns filter PK ! .��� lenses/dist/cyrus_imapd.augnu �[��� (* Cyrus_Imapd module for Augeas Author: Free Ekanayaka <free@64studio.com> *) module Cyrus_Imapd = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let indent = del /[ \t]*(\n[ \t]+)?/ " " let comment = Util.comment let empty = Util.empty let eq = del /[ \t]*:/ ":" let word = /[A-Za-z0-9_.-]+/ (* The value of a parameter, after the '=' sign. Postfix allows that * lines are continued by starting continuation lines with spaces. * The definition needs to make sure we don't add indented comment lines * into values *) let value = let chr = /[^# \t\n]/ in let any = /.*/ in let line = (chr . any* . chr | chr) in let lines = line . (/\n[ \t]+/ . line)* in store lines (************************************************************************ * ENTRIES *************************************************************************) let entry = [ key word . eq . (indent . value)? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = (incl "/etc/imapd.conf") . (incl "/etc/imap/*.conf") . Util.stdexcl let xfm = transform lns filter PK ! �L� lenses/dist/cron_user.augnu �[��� (* Module: Cron_User Parses /var/spool/cron/* Author: David Lutterkort <lutter@watzmann.net> About: Reference This lens parses the user crontab files in /var/spool/cron. It produces almost the same tree as the Cron.lns, except that it never contains a user field. 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 * Get the entry that launches '/usr/bin/ls' > match '/files/var/spool/cron/foo/entry[. = "/usr/bin/ls"]' About: Configuration files This lens applies to /var/spool/cron*. See <filter>. *) module Cron_User = autoload xfm (************************************************************************ * View: entry * A crontab entry for a user's crontab *************************************************************************) let entry = [ label "entry" . Cron.indent . Cron.prefix? . ( Cron.time | Cron.schedule ) . Cron.sep_spc . store Rx.space_in . Cron.eol ] (* * View: lns * The cron_user lens. Almost identical to Cron.lns *) let lns = ( Cron.empty | Cron.comment | Cron.shellvar | entry )* let filter = incl "/var/spool/cron/*" . Util.stdexcl let xfm = transform lns filter PK ! ��s s lenses/dist/sip_conf.augnu �[��� (* Module: Sip_Conf Parses /etc/asterisk/sip.conf Author: Rob Tucker <rtucker@mozilla.com> About: Reference Lens parses the sip.conf with support for template structure About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/asterisk/sip.conf. See <filter>. *) module Sip_Conf = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let empty = IniFile.empty let eol = IniFile.eol let comment_or_eol = comment | eol let entry = IniFile.indented_entry IniFile.entry_re sep comment let text_re = Rx.word let tmpl = let is_tmpl = [ label "@is_template" . Util.del_str "!" ] in let use_tmpl = [ label "@use_template" . store Rx.word ] in let comma = Util.delim "," in Util.del_str "(" . Sep.opt_space . Build.opt_list (is_tmpl|use_tmpl) comma . Sep.opt_space . Util.del_str ")" let title_comment_re = /[ \t]*[#;].*$/ let title_comment = [ label "#title_comment" . store title_comment_re ] let title = label "title" . Util.del_str "[" . store text_re . Util.del_str "]" . tmpl? . title_comment? . eol let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = incl "/etc/asterisk/sip.conf" let xfm = transform lns filter PK ! � (�!Y !Y lenses/dist/openvpn.augnu �[��� (* OpenVPN module for Augeas Author: Raphael Pinson <raphink@gmail.com> Author: Justin Akers <dafugg@gmail.com> Reference: http://openvpn.net/index.php/documentation/howto.html Reference: https://community.openvpn.net/openvpn/wiki/Openvpn23ManPage TODO: Inline file support *) module OpenVPN = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let indent = Util.indent (* Define separators *) let sep = Util.del_ws_spc (* Define value regexps. Custom simplified ipv6 used instead of Rx.ipv6 as the augeas Travis instances are limited to 2GB of memory. Using 'ipv6_re = Rx.ipv6' consumes an extra 2GB of memory and thus the test is OOM-killed. *) let ipv6_re = /[0-9A-Fa-f:]+/ let ipv4_re = Rx.ipv4 let ip_re = ipv4_re|ipv6_re let num_re = Rx.integer let fn_re = /[^#; \t\n][^#;\n]*[^#; \t\n]|[^#; \t\n]/ let fn_safe_re = /[^#; \t\r\n]+/ let an_re = /[a-z][a-z0-9_-]*/ let hn_re = Rx.hostname let port_re = /[0-9]+/ let host_re = ip_re|hn_re let proto_re = /(tcp|udp)/ let proto_ext_re = /(udp|tcp-client|tcp-server)/ let alg_re = /(none|[A-Za-z][A-Za-z0-9-]+)/ let ipv6_bits_re = ipv6_re . /\/[0-9]+/ (* Define store aliases *) let ip = store ip_re let num = store num_re let filename = store fn_re let filename_safe = store fn_safe_re let hostname = store hn_re let sto_to_dquote = store /[^"\n]+/ (* " Emacs, relax *) let port = store port_re let host = store host_re let proto = store proto_re let proto_ext = store proto_ext_re (* define comments and empty lines *) let comment = Util.comment_generic /[ \t]*[;#][ \t]*/ "# " let comment_or_eol = eol | Util.comment_generic /[ \t]*[;#][ \t]*/ " # " let empty = Util.empty (************************************************************************ * SINGLE VALUES * * - local => IP|hostname * - port => num * - proto => udp|tcp-client|tcp-server * - proto-force => udp|tcp * - mode => p2p|server * - dev => (tun|tap)\d* * - dev-node => filename * - ca => filename * - config => filename * - cert => filename * - key => filename * - dh => filename * - ifconfig-pool-persist => filename * - learn-address => filename * - cipher => [A-Z0-9-]+ * - max-clients => num * - user => alphanum * - group => alphanum * - status => filename * - log => filename * - log-append => filename * - client-config-dir => filename * - verb => num * - mute => num * - fragment => num * - mssfix => num * - connect-retry num * - connect-retry-max num * - connect-timeout num * - http-proxy-timeout num * - max-routes num * - ns-cert-type => "server" * - resolv-retry => "infinite" * - script-security => [0-3] (execve|system)? * - ipchange => command * - topology => type *************************************************************************) let single_host = "local" | "tls-remote" let single_ip = "lladdr" let single_ipv6_bits = "iroute-ipv6" | "server-ipv6" | "ifconfig-ipv6-pool" let single_num = "port" | "max-clients" | "verb" | "mute" | "fragment" | "mssfix" | "connect-retry" | "connect-retry-max" | "connect-timeout" | "http-proxy-timeout" | "resolv-retry" | "lport" | "rport" | "max-routes" | "max-routes-per-client" | "route-metric" | "tun-mtu" | "tun-mtu-extra" | "shaper" | "ping" | "ping-exit" | "ping-restart" | "sndbuf" | "rcvbuf" | "txqueuelen" | "link-mtu" | "nice" | "management-log-cache" | "bcast-buffers" | "tcp-queue-limit" | "server-poll-timeout" | "keysize" | "pkcs11-pin-cache" | "tls-timeout" | "reneg-bytes" | "reneg-pkts" | "reneg-sec" | "hand-window" | "tran-window" let single_fn = "ca" | "cert" | "extra-certs" | "config" | "key" | "dh" | "log" | "log-append" | "client-config-dir" | "dev-node" | "cd" | "chroot" | "writepid" | "client-config-dir" | "tmp-dir" | "replay-persist" | "ca" | "capath" | "pkcs12" | "pkcs11-id" | "askpass" | "tls-export-cert" | "x509-track" let single_an = "user" | "group" | "management-client-user" | "management-client-group" let single_cmd = "ipchange" | "iproute" | "route-up" | "route-pre-down" | "mark" | "up" | "down" | "setcon" | "echo" | "client-connect" | "client-disconnect" | "learn-address" | "tls-verify" let single_entry (kw:regexp) (re:regexp) = [ key kw . sep . store re . comment_or_eol ] let single_opt_entry (kw:regexp) (re:regexp) = [ key kw . (sep . store re)? .comment_or_eol ] let single = single_entry single_num num_re | single_entry single_fn fn_re | single_entry single_an an_re | single_entry single_host host_re | single_entry single_ip ip_re | single_entry single_ipv6_bits ipv6_bits_re | single_entry single_cmd fn_re | single_entry "proto" proto_ext_re | single_entry "proto-force" proto_re | single_entry "mode" /(p2p|server)/ | single_entry "dev" /(tun|tap)[0-9]*|null/ | single_entry "dev-type" /(tun|tap)/ | single_entry "topology" /(net30|p2p|subnet)/ | single_entry "cipher" alg_re | single_entry "auth" alg_re | single_entry "resolv-retry" "infinite" | single_entry "script-security" /[0-3]( execve| system)?/ | single_entry "route-gateway" (host_re|/dhcp/) | single_entry "mtu-disc" /(no|maybe|yes)/ | single_entry "remap-usr1" /SIG(HUP|TERM)/ | single_entry "socket-flags" /(TCP_NODELAY)/ | single_entry "auth-retry" /(none|nointeract|interact)/ | single_entry "tls-version-max" Rx.decimal | single_entry "verify-hash" /([A-Za-z0-9]{2}:)+[A-Za-z0-9]{2}/ | single_entry "pkcs11-cert-private" /[01]/ | single_entry "pkcs11-protected-authentication" /[01]/ | single_entry "pkcs11-private-mode" /[A-Za-z0-9]+/ | single_entry "key-method" /[12]/ | single_entry "ns-cert-type" /(client|server)/ | single_entry "remote-cert-tls" /(client|server)/ let single_opt = single_opt_entry "comp-lzo" /(yes|no|adaptive)/ | single_opt_entry "syslog" fn_re | single_opt_entry "daemon" fn_re | single_opt_entry "auth-user-pass" fn_re | single_opt_entry "explicit-exit-notify" num_re | single_opt_entry "engine" fn_re (************************************************************************ * DOUBLE VALUES *************************************************************************) let double_entry (kw:regexp) (a:string) (aval:regexp) (b:string) (bval:regexp) = [ key kw . sep . [ label a . store aval ] . sep . [ label b . store bval ] . comment_or_eol ] let double_secopt_entry (kw:regexp) (a:string) (aval:regexp) (b:string) (bval:regexp) = [ key kw . sep . [ label a . store aval ] . (sep . [ label b . store bval ])? . comment_or_eol ] let double = double_entry "keepalive" "ping" num_re "timeout" num_re | double_entry "hash-size" "real" num_re "virtual" num_re | double_entry "ifconfig" "local" ip_re "remote" ip_re | double_entry "connect-freq" "num" num_re "sec" num_re | double_entry "verify-x509-name" "name" hn_re "type" /(subject|name|name-prefix)/ | double_entry "ifconfig-ipv6" "address" ipv6_bits_re "remote" ipv6_re | double_entry "ifconfig-ipv6-push" "address" ipv6_bits_re "remote" ipv6_re | double_secopt_entry "iroute" "local" ip_re "netmask" ip_re | double_secopt_entry "stale-routes-check" "age" num_re "interval" num_re | double_secopt_entry "ifconfig-pool-persist" "file" fn_safe_re "seconds" num_re | double_secopt_entry "secret" "file" fn_safe_re "direction" /[01]/ | double_secopt_entry "prng" "algorithm" alg_re "nsl" num_re | double_secopt_entry "replay-window" "window-size" num_re "seconds" num_re (************************************************************************ * FLAGS *************************************************************************) let flag_words = "client-to-client" | "duplicate-cn" | "persist-key" | "persist-tun" | "client" | "remote-random" | "nobind" | "mute-replay-warnings" | "http-proxy-retry" | "socks-proxy-retry" | "remote-random-hostname" | "show-proxy-settings" | "float" | "bind" | "nobind" | "tun-ipv6" | "ifconfig-noexec" | "ifconfig-nowarn" | "route-noexec" | "route-nopull" | "allow-pull-fqdn" | "mtu-test" | "ping-timer-rem" | "persist-tun" | "persist-local-ip" | "persist-remote-ip" | "mlock" | "up-delay" | "down-pre" | "up-restart" | "disable-occ" | "errors-to-stderr" | "passtos" | "suppress-timestamps" | "fast-io" | "multihome" | "comp-noadapt" | "management-client" | "management-query-passwords" | "management-query-proxy" | "management-query-remote" | "management-forget-disconnect" | "management-hold" | "management-signal" | "management-up-down" | "management-client-auth" | "management-client-pf" | "push-reset" | "push-peer-info" | "disable" | "ifconfig-pool-linear" | "client-to-client" | "duplicate-cn" | "ccd-exclusive" | "tcp-nodelay" | "opt-verify" | "auth-user-pass-optional" | "client-cert-not-required" | "username-as-common-name" | "pull" | "key-direction" | "no-replay" | "mute-replay-warnings" | "no-iv" | "use-prediction-resistance" | "test-crypto" | "tls-server" | "tls-client" | "pkcs11-id-management" | "single-session" | "tls-exit" | "auth-nocache" | "show-ciphers" | "show-digests" | "show-tls" | "show-engines" | "genkey" | "mktun" | "rmtun" let flag_entry (kw:regexp) = [ key kw . comment_or_eol ] let flag = flag_entry flag_words (************************************************************************ * OTHER FIELDS * * - server => IP IP [nopool] * - server-bridge => IP IP IP IP * - route => host host [host [num]] * - push => "string" * - tls-auth => filename [01] * - remote => hostname/IP [num] [(tcp|udp)] * - management => IP num filename * - http-proxy => host port [filename|keyword] [method] * - http-proxy-option => (VERSION decimal|AGENT string) * ... * and many others * *************************************************************************) let server = [ key "server" . sep . [ label "address" . ip ] . sep . [ label "netmask" . ip ] . (sep . [ key "nopool" ]) ? . comment_or_eol ] let server_bridge = let ip_params = [ label "address" . ip ] . sep . [ label "netmask" . ip ] . sep . [ label "start" . ip ] . sep . [ label "end" . ip ] in [ key "server-bridge" . sep . (ip_params|store /(nogw)/) . comment_or_eol ] let route = let route_net_kw = store (/(vpn_gateway|net_gateway|remote_host)/|host_re) in [ key "route" . sep . [ label "address" . route_net_kw ] . (sep . [ label "netmask" . store (ip_re|/default/) ] . (sep . [ label "gateway" . route_net_kw ] . (sep . [ label "metric" . store (/default/|num_re)] )? )? )? . comment_or_eol ] let route_ipv6 = let route_net_re = /(vpn_gateway|net_gateway|remote_host)/ in [ key "route-ipv6" . sep . [ label "network" . store (route_net_re|ipv6_bits_re) ] . (sep . [ label "gateway" . store (route_net_re|ipv6_re) ] . (sep . [ label "metric" . store (/default/|num_re)] )? )? . comment_or_eol ] let push = [ key "push" . sep . Quote.do_dquote sto_to_dquote . comment_or_eol ] let tls_auth = [ key "tls-auth" . sep . [ label "key" . filename ] . sep . [ label "is_client" . store /[01]/ ] . comment_or_eol ] let remote = [ key "remote" . sep . [ label "server" . host ] . (sep . [label "port" . port] . (sep . [label "proto" . proto]) ? ) ? . comment_or_eol ] let http_proxy = let auth_method_re = /(none|basic|ntlm)/ in let auth_method = store auth_method_re in [ key "http-proxy" . sep . [ label "server" . host ] . sep . [ label "port" . port ] . (sep . [ label "auth" . filename_safe ] . (sep . [ label "auth-method" . auth_method ]) ? )? . comment_or_eol ] let http_proxy_option = [ key "http-proxy-option" . sep . [ label "option" . store /(VERSION|AGENT)/ ] . sep . [ label "value" . filename ] . comment_or_eol ] let socks_proxy = [ key "socks-proxy" . sep . [ label "server" . host ] . (sep . [ label "port" . port ] . (sep . [ label "auth" . filename_safe ])? )? . comment_or_eol ] let port_share = [ key "port-share" . sep . [ label "host" . host ] . sep . [ label "port" . port ] . (sep . [ label "dir" . filename ])? . comment_or_eol ] let route_delay = [ key "route-delay" . (sep . [ label "seconds" . num ] . (sep . [ label "win-seconds" . num ] ) ? )? . comment_or_eol ] let inetd = [ key "inetd" . (sep . [label "mode" . store /(wait|nowait)/ ] . (sep . [ label "progname" . filename ] ) ? )? . comment_or_eol ] let inactive = [ key "inactive" . sep . [ label "seconds" . num ] . (sep . [ label "bytes" . num ] ) ? . comment_or_eol ] let client_nat = [ key "client-nat" . sep . [ label "type" . store /(snat|dnat)/ ] . sep . [ label "network" . ip ] . sep . [ label "netmask" . ip ] . sep . [ label "alias" . ip ] . comment_or_eol ] let status = [ key "status" . sep . [ label "file" . filename_safe ] . (sep . [ label "repeat-seconds" . num ]) ? . comment_or_eol ] let plugin = [ key "plugin" . sep . [ label "file" . filename_safe ] . (sep . [ label "init-string" . filename ]) ? . comment_or_eol ] let management = [ key "management" . sep . [ label "server" . ip ] . sep . [ label "port" . port ] . (sep . [ label "pwfile" . filename ] ) ? . comment_or_eol ] let auth_user_pass_verify = [ key "auth-user-pass-verify" . sep . [ Quote.quote_spaces (label "command") ] . sep . [ label "method" . store /via-(env|file)/ ] . comment_or_eol ] let static_challenge = [ key "static-challenge" . sep . [ Quote.quote_spaces (label "text") ] . sep . [ label "echo" . store /[01]/ ] . comment_or_eol ] let cryptoapicert = [ key "cryptoapicert" . sep . Quote.dquote . [ key /[A-Z]+/ . Sep.colon . store /[A-Za-z _-]+/ ] . Quote.dquote . comment_or_eol ] let setenv = let envvar = /[^#;\/ \t\n][A-Za-z0-9_-]+/ in [ key ("setenv"|"setenv-safe") . sep . [ key envvar . sep . store fn_re ] . comment_or_eol ] let redirect = let redirect_flag = /(local|autolocal|def1|bypass-dhcp|bypass-dns|block-local)/ in let redirect_key = "redirect-gateway" | "redirect-private" in [ key redirect_key . (sep . [ label "flag" . store redirect_flag ] ) + . comment_or_eol ] let tls_cipher = let ciphername = /[A-Za-z0-9!_-]+/ in [ key "tls-cipher" . sep . [label "cipher" . store ciphername] . (Sep.colon . [label "cipher" . store ciphername])* . comment_or_eol ] let remote_cert_ku = let usage = [label "usage" . store /[A-Za-z0-9]{1,2}/] in [ key "remote-cert-ku" . sep . usage . (sep . usage)* . comment_or_eol ] (* FIXME: Surely there's a nicer way to do this *) let remote_cert_eku = let oid = [label "oid" . store /[0-9]+\.([0-9]+\.)*[0-9]+/] in let symbolic = [Quote.do_quote_opt (label "symbol" . store /[A-Za-z0-9][A-Za-z0-9 _-]*[A-Za-z0-9]/)] in [ key "remote-cert-eku" . sep . (oid|symbolic) . comment_or_eol ] let status_version = [ key "status-version" . (sep . num) ? . comment_or_eol ] let ifconfig_pool = [ key "ifconfig-pool" . sep . [ label "start" . ip ] . sep . [ label "end" . ip ] . (sep . [ label "netmask" . ip ])? . comment_or_eol ] let ifconfig_push = [ key "ifconfig-push" . sep . [ label "local" . ip ] . sep . [ label "remote-netmask" . ip ] . (sep . [ label "alias" . store /[A-Za-z0-9_-]+/ ] )? . comment_or_eol ] let ignore_unknown_option = [ key "ignore-unknown-option" . (sep . [ label "opt" . store /[A-Za-z0-9_-]+/ ] ) + . comment_or_eol ] let tls_version_min = [ key "tls-version-min" . sep . store Rx.decimal . (sep . [ key "or-highest" ]) ? . comment_or_eol ] let crl_verify = [ key "crl-verify" . sep . filename_safe . (sep . [ key "dir" ]) ? . comment_or_eol ] let x509_username_field = let fieldname = /[A-Za-z0-9_-]+/ in let extfield = ([key /ext/ . Sep.colon . store fieldname]) in let subjfield = ([label "subj" . store fieldname]) in [ key "x509-username-field" . sep . (extfield|subjfield) . comment_or_eol ] let other = server | server_bridge | route | push | tls_auth | remote | http_proxy | http_proxy_option | socks_proxy | management | route_delay | client_nat | redirect | inactive | setenv | inetd | status | status_version | plugin | ifconfig_pool | ifconfig_push | ignore_unknown_option | auth_user_pass_verify | port_share | static_challenge | tls_version_min | tls_cipher | cryptoapicert | x509_username_field | remote_cert_ku | remote_cert_eku | crl_verify | route_ipv6 (************************************************************************ * LENS & FILTER *************************************************************************) let lns = ( comment | empty | single | single_opt | double | flag | other )* let filter = (incl "/etc/openvpn/client.conf") . (incl "/etc/openvpn/server.conf") let xfm = transform lns filter PK ! ���j j lenses/dist/rhsm.augnu �[��� (* Module: Rhsm Parses subscription-manager config files Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens tries to keep as close as possible to rhsm.conf(5) and Python's SafeConfigParser. All settings must be in sections without indentation. Semicolons and hashes are permitted for comments. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to: /etc/rhsm/rhsm.conf See <filter>. *) module Rhsm = autoload xfm (* Semicolons and hashes are permitted for comments *) let comment = IniFile.comment IniFile.comment_re "#" (* Equals and colons are permitted for separators *) let sep = IniFile.sep IniFile.sep_re IniFile.sep_default (* All settings must be in sections without indentation *) let entry = IniFile.entry_multiline IniFile.entry_re sep comment let title = IniFile.title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = incl "/etc/rhsm/rhsm.conf" let xfm = transform lns filter PK ! ���{d d lenses/dist/shadow.augnu �[��� (* Module: Shadow Parses /etc/shadow Author: Lorenzo M. Catucci <catucci@ccd.uniroma2.it> Original Author: Free Ekanayaka <free@64studio.com> About: Reference - man 5 shadow - man 3 getspnam About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Each line in the shadow files represents the additional shadow-defined attributes for the corresponding user, as defined in the passwd file. *) module Shadow = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let empty = Util.empty let dels = Util.del_str let colon = Sep.colon let word = Rx.word let integer = Rx.integer let sto_to_col = Passwd.sto_to_col let sto_to_eol = Passwd.sto_to_eol (************************************************************************ * Group: ENTRIES *************************************************************************) (* Common for entry and nisdefault *) let common = [ label "lastchange_date" . store integer? . colon ] . [ label "minage_days" . store integer? . colon ] . [ label "maxage_days" . store integer? . colon ] . [ label "warn_days" . store integer? . colon ] . [ label "inactive_days" . store integer? . colon ] . [ label "expire_date" . store integer? . colon ] . [ label "flag" . store integer? ] (* View: entry *) let entry = [ key word . colon . [ label "password" . sto_to_col? . colon ] . common . eol ] let nisdefault = let overrides = colon . [ label "password" . store word? . colon ] . common in [ dels "+" . label "@nisdefault" . overrides? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|nisdefault) * let filter = incl "/etc/shadow" . Util.stdexcl let xfm = transform lns filter PK ! ]Aص� � lenses/dist/ntpd.augnu �[��� (* Module: Ntpd Parses OpenNTPD's ntpd.conf Author: Jasper Lievisse Adriaanse <jasper@jasper.la> About: Reference This lens is used to parse OpenNTPD's configuration file, ntpd.conf. http://openntpd.org/ About: Usage Example To be documented About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/ntpd.conf. See <filter>. *) module Ntpd = autoload xfm (************************************************************************ * Group: Utility variables/functions ************************************************************************) (* View: comment *) let comment = Util.comment (* View: empty *) let empty = Util.empty (* View: eol *) let eol = Util.eol (* View: space *) let space = Sep.space (* View: word *) let word = Rx.word (* View: device_re *) let device_re = Rx.device_name | /\*/ (* View: address_re *) let address_re = Rx.ip | /\*/ | Rx.hostname (* View: stratum_re value between 1 and 15 *) let stratum_re = /1[0-5]|[1-9]/ (* View: refid_re string with length < 5 *) let refid_re = /[A-Za-z0-9_.-]{1,5}/ (* View: weight_re value between 1 and 10 *) let weight_re = /10|[1-9]/ (* View: rtable_re 0 - RT_TABLE_MAX *) let rtable_re = Rx.byte (* View: correction_re should actually only match between -127000000 and 127000000 *) let correction_re = Rx.relinteger_noplus (************************************************************************ * View: key_opt_rtable_line * A subnode with a keyword, an optional routing table id and an end * of line. * * Parameters: * kw:regexp - the pattern to match as key * sto:lens - the storing lens ************************************************************************) let key_opt_rtable_line (kw:regexp) (sto:lens) = let rtable = [ Util.del_str "rtable" . space . label "rtable" . store rtable_re ] in [ key kw . space . sto . (space . rtable)? . eol ] (************************************************************************ * View: key_opt_weight_rtable_line * A subnode with a keyword, an optional routing table id, an optional * weight-value and an end of line. * of line. * * Parameters: * kw:regexp - the pattern to match as key * sto:lens - the storing lens ************************************************************************) let key_opt_weight_rtable_line (kw:regexp) (sto:lens) = let rtable = [ Util.del_str "rtable" . space . label "rtable" . store rtable_re ] in let weight = [ Util.del_str "weight" . space . label "weight" . store weight_re ] in [ key kw . space . sto . (space . weight)? . (space . rtable)? . eol ] (************************************************************************ * View: opt_value * A subnode for optional values. * * Parameters: * s:string - the option name and subtree label * r:regexp - the pattern to match as store ************************************************************************) let opt_value (s:string) (r:regexp) = Build.key_value s space (store r) (************************************************************************ * Group: Keywords ************************************************************************) (* View: listen listen on address [rtable table-id] *) let listen = let addr = [ label "address" . store address_re ] in key_opt_rtable_line "listen on" addr (* View: server server address [weight weight-value] [rtable table-id] *) let server = let addr = [ label "address" . store address_re ] in key_opt_weight_rtable_line "server" addr (* View: servers servers address [weight weight-value] [rtable table-id] *) let servers = let addr = [ label "address" . store address_re ] in key_opt_weight_rtable_line "servers" addr (* View: sensor sensor device [correction microseconds] [weight weight-value] [refid string] [stratum stratum-value] *) let sensor = let device = [ label "device" . store device_re ] in let correction = opt_value "correction" correction_re in let weight = opt_value "weight" weight_re in let refid = opt_value "refid" refid_re in let stratum = opt_value "stratum" stratum_re in [ key "sensor" . space . device . (space . correction)? . (space . weight)? . (space . refid)? . (space . stratum)? . eol ] (************************************************************************ * Group: Lens ************************************************************************) (* View: keyword *) let keyword = listen | server | servers | sensor (* View: lns *) let lns = ( empty | comment | keyword )* (* View: filter *) let filter = (incl "/etc/ntpd.conf") let xfm = transform lns filter PK ! �Y��_ _ lenses/dist/jmxpassword.augnu �[��� (* Module: JMXPassword JMXPassword for Augeas Author: Brian Redbeard <redbeard@dead-city.org> About: Reference This lens ensures that files included in JMXPassword are properly handled by Augeas. About: License This file is licensed under the LGPL License. About: Lens Usage Sample usage of this lens in augtool: * Create a new user > ins user after /files/etc/activemq/jmx.password > set /files/etc/activemq/jmx.password/user[last()]/username redbeard > set /files/etc/activemq/jmx.password/user[last()]/password testing ... * Delete the user named sample_user > rm /files/etc/activemq/jmx.password/user[*][username = "sample_user"] Saving your file: > save About: Configuration files This lens applies to relevant conf files located in /etc/activemq/ The following views correspond to the related files: * pass_entry: /etc/activemq/jmx.password See <filter>. *) module JMXPassword = autoload xfm (* View: pass_entry *) let pass_entry = [ label "user" . [ label "username" . store Rx.word ] . Sep.space . [ label "password" . store Rx.no_spaces ] . Util.eol ] (* View: lns *) let lns = ( Util.comment | Util.empty | pass_entry )* (* Variable: filter *) let filter = incl "/etc/activemq/jmx.password" let xfm = transform lns filter PK ! ��� � lenses/dist/puppet_auth.augnu �[��� (* Module: Puppet_Auth Parses /etc/puppet/auth.conf Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `http://docs.puppetlabs.com/guides/rest_auth_conf.html` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/puppet/auth.conf. See <filter>. About: Examples The <Test_Puppet_Auth> file contains various examples and tests. *) module Puppet_Auth = autoload xfm (* View: list A list of values *) let list (kw:string) (val:regexp) = let item = [ seq kw . store val ] in let comma = del /[ \t]*,[ \t]*/ ", " in [ Util.indent . key kw . Sep.space . Build.opt_list item comma . Util.comment_or_eol ] (* View: auth An authentication stanza *) let auth = [ Util.indent . Build.xchg /auth(enticated)?/ "auth" "auth" . Sep.space . store /yes|no|on|off|any/ . Util.comment_or_eol ] (* View: reset_counters *) let reset_counters = counter "environment" . counter "method" . counter "allow" . counter "allow_ip" (* View: setting *) let setting = list "environment" Rx.word | list "method" /find|search|save|destroy/ | list "allow" /[^# \t\n,][^#\n,]*[^# \t\n,]|[^# \t\n,]/ | list "allow_ip" /[A-Za-z0-9.:\/]+/ | auth (* View: record *) let record = let operator = [ label "operator" . store "~" ] in [ Util.indent . key "path" . (Sep.space . operator)? . Sep.space . store /[^~# \t\n][^#\n]*[^# \t\n]|[^~# \t\n]/ . Util.eol . reset_counters . (Util.empty | Util.comment | setting)* . setting ] (* View: lns *) let lns = (Util.empty | Util.comment | record)* (* Variable: filter *) let filter = (incl "/etc/puppet/auth.conf" .incl "/usr/local/etc/puppet/auth.conf" .incl "/etc/puppetlabs/puppet/auth.conf") let xfm = transform lns filter PK ! -n ,J J lenses/dist/hosts_access.augnu �[��� (* Module: Hosts_Access Parses /etc/hosts.{allow,deny} Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 hosts_access` and `man 5 hosts_options` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/hosts.{allow,deny}. See <filter>. *) module Hosts_Access = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: colon *) let colon = del /[ \t]*(\\\\[ \t]*\n[ \t]+)?:[ \t]*(\\\\[ \t]*\n[ \t]+)?/ ": " (* Variable: comma_sep *) let comma_sep = /([ \t]|(\\\\\n))*,([ \t]|(\\\\\n))*/ (* Variable: ws_sep *) let ws_sep = / +/ (* View: list_sep *) let list_sep = del ( comma_sep | ws_sep ) ", " (* View: list_item *) let list_item = store ( Rx.word - /EXCEPT/i ) (* View: client_host_item Allows @ for netgroups, supports [ipv6] syntax *) let client_host_item = let client_hostname_rx = /[A-Za-z0-9_.@?*-][A-Za-z0-9_.?*-]*/ in let client_ipv6_rx = "[" . /[A-Za-z0-9:?*%]+/ . "]" in let client_host_rx = client_hostname_rx | client_ipv6_rx in let netmask = [ Util.del_str "/" . label "netmask" . store Rx.word ] in store ( client_host_rx - /EXCEPT/i ) . netmask? (* View: client_file_item *) let client_file_item = let client_file_rx = /\/[^ \t\n,:]+/ in store ( client_file_rx - /EXCEPT/i ) (* Variable: option_kw Since either an option or a shell command can be given, use an explicit list of known options to avoid misinterpreting a command as an option *) let option_kw = "severity" | "spawn" | "twist" | "keepalive" | "linger" | "rfc931" | "banners" | "nice" | "setenv" | "umask" | "user" | /allow/i | /deny/i (* Variable: shell_command_rx *) let shell_command_rx = /[^ \t\n:][^\n]*[^ \t\n]|[^ \t\n:\\\\]/ - ( option_kw . /.*/ ) (* View: sto_to_colon Allows escaped colon sequences *) let sto_to_colon = store /[^ \t\n:=][^\n:]*((\\\\:|\\\\[ \t]*\n[ \t]+)[^\n:]*)*[^ \\\t\n:]|[^ \t\n:\\\\]/ (* View: except * The except operator makes it possible to write very compact rules. *) let except (lns:lens) = [ label "except" . Sep.space . del /except/i "EXCEPT" . Sep.space . lns ] (************************************************************************ * Group: ENTRY TYPES *************************************************************************) (* View: daemon *) let daemon = let host = [ label "host" . Util.del_str "@" . list_item ] in [ label "process" . list_item . host? ] (* View: daemon_list A list of <daemon>s *) let daemon_list = Build.opt_list daemon list_sep (* View: client *) let client = let user = [ label "user" . list_item . Util.del_str "@" ] in [ label "client" . user? . client_host_item ] (* View: client_file *) let client_file = [ label "file" . client_file_item ] (* View: client_list A list of <client>s *) let client_list = Build.opt_list ( client | client_file ) list_sep (* View: option Optional extensions defined in hosts_options(5) *) let option = [ key option_kw . ( del /([ \t]*=[ \t]*|[ \t]+)/ " " . sto_to_colon )? ] (* View: shell_command *) let shell_command = [ label "shell_command" . store shell_command_rx ] (* View: entry *) let entry = [ seq "line" . daemon_list . (except daemon_list)? . colon . client_list . (except client_list)? . ( (colon . option)+ | (colon . shell_command)? ) . Util.eol ] (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* View: filter *) let filter = incl "/etc/hosts.allow" . incl "/etc/hosts.deny" let xfm = transform lns filter PK ! t�Z� � lenses/dist/cmdline.augnu �[��� (* Module: Cmdline Parses /proc/cmdline and /etc/kernel/cmdline Author: Thomas Weißschuh <thomas.weissschuh@amadeus.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Cmdline = autoload xfm let entry = [ key Rx.word . Util.del_str "=" . store Rx.no_spaces ] | [ key Rx.word ] let lns = (Build.opt_list entry Sep.space)? . del /\n?/ "" let filter = incl "/etc/kernel/cmdline" . incl "/proc/cmdline" let xfm = transform lns filter PK ! �_j�h h lenses/dist/postgresql.augnu �[��� (* Module: Postgresql Parses postgresql.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference http://www.postgresql.org/docs/current/static/config-setting.html About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to postgresql.conf. See <filter>. About: Examples The <Test_Postgresql> file contains various examples and tests. *) module Postgresql = autoload xfm (* View: sep Key and values are separated by either spaces or an equal sign *) let sep = del /([ \t]+)|([ \t]*=[ \t]*)/ " = " (* Variable: word_opt_quot_re Strings that don't require quotes *) let word_opt_quot_re = /[A-Za-z][A-Za-z0-9_-]*/ (* View: word_opt_quot Storing a <word_opt_quot_re>, with or without quotes *) let word_opt_quot = Quote.do_squote_opt (store word_opt_quot_re) (* Variable: number_re A relative decimal number, optionally with unit *) let number_re = Rx.reldecimal . /[kMG]?B|[m]?s|min|h|d/? (* View: number Storing <number_re>, with or without quotes *) let number = Quote.do_squote_opt (store number_re) (* View: word_quot Anything other than <word_opt_quot> or <number> Quotes are mandatory *) let word_quot = let esc_squot = /\\\\'/ in let no_quot = /[^#'\n]/ in let forbidden = word_opt_quot_re | number_re in let value = (no_quot|esc_squot)* - forbidden in Quote.do_squote (store value) (* View: entry_gen Builder to construct entries *) let entry_gen (lns:lens) = Util.indent . Build.key_value_line_comment Rx.word sep lns Util.comment_eol (* View: entry *) let entry = entry_gen number | entry_gen word_opt_quot | entry_gen word_quot (* anything else *) (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = (incl "/var/lib/pgsql/data/postgresql.conf" . incl "/var/lib/pgsql/*/data/postgresql.conf" . incl "/var/lib/postgresql/*/data/postgresql.conf" . incl "/etc/postgresql/*/*/postgresql.conf" ) let xfm = transform lns filter PK ! �T�� � lenses/dist/hostname.augnu �[��� (* Module: Hostname Parses /etc/hostname and /etc/mailname Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. *) module Hostname = autoload xfm (* View: lns *) let lns = [ label "hostname" . store Rx.word . Util.eol ] | Util.empty (* View: filter *) let filter = incl "/etc/hostname" . incl "/etc/mailname" let xfm = transform lns filter PK ! � �0+ + lenses/dist/ntp.augnu �[��� (* NTP module for Augeas *) (* Author: Raphael Pinson <raphink@gmail.com> *) (* *) (* Status: basic settings supported *) module Ntp = autoload xfm (* Define useful shortcuts *) let eol = del /[ \t]*/ "" . [ label "#comment" . store /#.*/]? . Util.del_str "\n" let sep_spc = Util.del_ws_spc let word = /[^,# \n\t]+/ let num = /[0-9]+/ (* define comments and empty lines *) let comment = [ label "#comment" . del /#[ \t]*/ "#" . store /([^ \t\n][^\n]*)?/ . del "\n" "\n" ] let empty = [ del /[ \t]*\n/ "\n" ] let kv (k:regexp) (v:regexp) = [ key k . sep_spc. store v . eol ] (* Define generic record *) let record (kw:regexp) (value:lens) = [ key kw . sep_spc . store word . value . eol ] (* Define a command record; see confopt.html#cfg in the ntp docs *) let command_record = let opt = [ sep_spc . key /minpoll|maxpoll|ttl|version|key/ . sep_spc . store word ] | [ sep_spc . key (/autokey|burst|iburst|noselect|preempt/ | /prefer|true|dynamic/) ] in let cmd = /pool|server|peer|broadcast|manycastclient/ | /multicastclient|manycastserver/ in record cmd opt* let broadcastclient = [ key "broadcastclient" . [ sep_spc . key "novolley" ]? . eol ] (* Define a fudge record *) let fudge_opt_re = "refid" | "stratum" let fudge_opt = [ sep_spc . key fudge_opt_re . sep_spc . store word ] let fudge_record = record "fudge" fudge_opt? (* Define simple settings, see miscopt.html in ntp docs *) let flags = let flags_re = /auth|bclient|calibrate|kernel|monitor|ntp|pps|stats/ in let flag = [ label "flag" . store flags_re ] in [ key /enable|disable/ . (sep_spc . flag)* . eol ] let simple_setting (k:regexp) = kv k word (* Still incomplete, misses logconfig, phone, setvar, tos, trap, ttl *) let simple_settings = kv "broadcastdelay" Rx.decimal | flags | simple_setting /driftfile|leapfile|logfile|includefile/ | simple_setting "statsdir" | simple_setting "ntpsigndsocket" (* Misc commands, see miscopt.html in ntp docs *) (* Define restrict *) let restrict_record = let ip6_restrict = [ label "ipv6" . sep_spc . Util.del_str "-6" ] in let ip4_restrict = [ label "ipv4" . sep_spc . Util.del_str "-4" ] in let action = [ label "action" . sep_spc . store /[^,# \n\t-][^,# \n\t]*/ ] in [ key "restrict" . (ip6_restrict | ip4_restrict)? . sep_spc . store /[^,# \n\t-][^,# \n\t]*/ . action* . eol ] (* Define statistics *) let statistics_flag (kw:string) = [ sep_spc . key kw ] let statistics_opts = statistics_flag "loopstats" | statistics_flag "peerstats" | statistics_flag "clockstats" | statistics_flag "rawstats" let statistics_record = [ key "statistics" . statistics_opts* . eol ] (* Define filegen *) let filegen = del /filegen[ \t]+/ "filegen " . store word let filegen_opt (kw:string) = [ sep_spc . key kw . sep_spc . store word ] (* let filegen_flag (kw:string) = [ label kw . sep_spc . store word ] *) let filegen_select (kw:string) (select:regexp) = [ label kw . sep_spc . store select ] let filegen_opts = filegen_opt "file" | filegen_opt "type" | filegen_select "enable" /(en|dis)able/ | filegen_select "link" /(no)?link/ let filegen_record = [ label "filegen" . filegen . filegen_opts* . eol ] (* Authentication commands, see authopt.html#cmd; incomplete *) let auth_command = [ key /controlkey|keys|keysdir|requestkey|authenticate/ . sep_spc . store word . eol ] | [ key /autokey|revoke/ . [sep_spc . store word]? . eol ] | [ key /trustedkey/ . [ sep_spc . label "key" . store word ]+ . eol ] (* tinker [step step | panic panic | dispersion dispersion | stepout stepout | minpoll minpoll | allan allan | huffpuff huffpuff] *) let tinker = let arg_names = /step|panic|dispersion|stepout|minpoll|allan|huffpuff/ in let arg = [ key arg_names . sep_spc . store Rx.decimal ] in [ key "tinker" . (sep_spc . arg)* . eol ] (* tos [beacon beacon | ceiling ceiling | cohort {0 | 1} | floor floor | maxclock maxclock | maxdist maxdist | minclock minclock | mindist mindist | minsane minsane | orphan stratum | orphanwait delay] *) let tos = let arg_names = /beacon|ceiling|cohort|floor|maxclock|maxdist| minclock|mindist|minsane|orphan|orphanwait/ in let arg = [ key arg_names . sep_spc . store Rx.decimal ] in [ key "tos" . (sep_spc . arg)* . eol ] let interface = let action = [ label "action" . store /listen|ignore|drop/ ] in let addresses = [ label "addresses" . store Rx.word ] in [ key "interface" . sep_spc . action . sep_spc . addresses . eol ] (* Define lens *) let lns = ( comment | empty | command_record | fudge_record | restrict_record | simple_settings | statistics_record | filegen_record | broadcastclient | auth_command | tinker | tos | interface)* let filter = (incl "/etc/ntp.conf") let xfm = transform lns filter PK ! W��Tt t lenses/dist/masterpasswd.augnu �[��� (* Module: MasterPasswd Parses /etc/master.passwd Author: Matt Dainty <matt@bodgit-n-scarper.com> About: Reference - man 5 master.passwd Each line in the master.passwd file represents a single user record, whose colon-separated attributes correspond to the members of the passwd struct *) module MasterPasswd = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) let eol = Util.eol let comment = Util.comment let empty = Util.empty let dels = Util.del_str let word = Rx.word let integer = Rx.integer let colon = Sep.colon let sto_to_eol = Passwd.sto_to_eol let sto_to_col = Passwd.sto_to_col (* Store an empty string if nothing matches *) let sto_to_col_or_empty = Passwd.sto_to_col_or_empty (************************************************************************ * Group: ENTRIES *************************************************************************) let username = /[_.A-Za-z0-9][-_.A-Za-z0-9]*\$?/ (* View: password pw_passwd *) let password = [ label "password" . sto_to_col? . colon ] (* View: uid pw_uid *) let uid = [ label "uid" . store integer . colon ] (* View: gid pw_gid *) let gid = [ label "gid" . store integer . colon ] (* View: class pw_class *) let class = [ label "class" . sto_to_col? . colon ] (* View: change pw_change *) let change_date = [ label "change_date" . store integer? . colon ] (* View: expire pw_expire *) let expire_date = [ label "expire_date" . store integer? . colon ] (* View: name pw_gecos; the user's full name *) let name = [ label "name" . sto_to_col? . colon ] (* View: home pw_dir *) let home = [ label "home" . sto_to_col? . colon ] (* View: shell pw_shell *) let shell = [ label "shell" . sto_to_eol? ] (* View: entry struct passwd *) let entry = [ key username . colon . password . uid . gid . class . change_date . expire_date . name . home . shell . eol ] (* NIS entries *) let niscommon = [ label "password" . sto_to_col ]? . colon . [ label "uid" . store integer ]? . colon . [ label "gid" . store integer ]? . colon . [ label "class" . sto_to_col ]? . colon . [ label "change_date" . store integer ]? . colon . [ label "expire_date" . store integer ]? . colon . [ label "name" . sto_to_col ]? . colon . [ label "home" . sto_to_col ]? . colon . [ label "shell" . sto_to_eol ]? let nisentry = let overrides = colon . niscommon in [ dels "+@" . label "@nis" . store username . overrides . eol ] let nisuserplus = let overrides = colon . niscommon in [ dels "+" . label "@+nisuser" . store username . overrides . eol ] let nisuserminus = let overrides = colon . niscommon in [ dels "-" . label "@-nisuser" . store username . overrides . eol ] let nisdefault = let overrides = colon . [ label "password" . sto_to_col_or_empty . colon ] . [ label "uid" . store integer? . colon ] . [ label "gid" . store integer? . colon ] . [ label "class" . sto_to_col? . colon ] . [ label "change_date" . store integer? . colon ] . [ label "expire_date" . store integer? . colon ] . [ label "name" . sto_to_col? . colon ] . [ label "home" . sto_to_col? . colon ] . [ label "shell" . sto_to_eol? ] in [ dels "+" . label "@nisdefault" . overrides? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry|nisentry|nisdefault|nisuserplus|nisuserminus) * let filter = incl "/etc/master.passwd" let xfm = transform lns filter PK ! ����B �B lenses/dist/build.augnu �[��� (* Module: Build Generic functions to build lenses Author: Raphael Pinson <raphink@gmail.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Reference This file provides generic functions to build Augeas lenses *) module Build = let eol = Util.eol (************************************************************************ * Group: GENERIC CONSTRUCTIONS ************************************************************************) (************************************************************************ * View: brackets * Put a lens inside brackets * * Parameters: * l:lens - the left bracket lens * r: lens - the right bracket lens * lns:lens - the lens to put inside brackets ************************************************************************) let brackets (l:lens) (r:lens) (lns:lens) = l . lns . r (************************************************************************ * Group: LIST CONSTRUCTIONS ************************************************************************) (************************************************************************ * View: list * Build a list of identical lenses separated with a given separator * (at least 2 elements) * * Parameters: * lns:lens - the lens to repeat in the list * sep:lens - the separator lens, which can be taken from the <Sep> module ************************************************************************) let list (lns:lens) (sep:lens) = lns . ( sep . lns )+ (************************************************************************ * View: opt_list * Same as <list>, but there might be only one element in the list * * Parameters: * lns:lens - the lens to repeat in the list * sep:lens - the separator lens, which can be taken from the <Sep> module ************************************************************************) let opt_list (lns:lens) (sep:lens) = lns . ( sep . lns )* (************************************************************************ * Group: LABEL OPERATIONS ************************************************************************) (************************************************************************ * View: xchg * Replace a pattern with a different label in the tree, * thus emulating a key but allowing to replace the keyword * with a different value than matched * * Parameters: * m:regexp - the pattern to match * d:string - the default value when a node in created * l:string - the label to apply for such nodes ************************************************************************) let xchg (m:regexp) (d:string) (l:string) = del m d . label l (************************************************************************ * View: xchgs * Same as <xchg>, but the pattern is the default string * * Parameters: * m:string - the string to replace, also used as default * l:string - the label to apply for such nodes ************************************************************************) let xchgs (m:string) (l:string) = xchg m m l (************************************************************************ * Group: SUBNODE CONSTRUCTIONS ************************************************************************) (************************************************************************ * View: key_value_line * A subnode with a keyword, a separator and a storing lens, * and an end of line * * Parameters: * kw:regexp - the pattern to match as key * sep:lens - the separator lens, which can be taken from the <Sep> module * sto:lens - the storing lens ************************************************************************) let key_value_line (kw:regexp) (sep:lens) (sto:lens) = [ key kw . sep . sto . eol ] (************************************************************************ * View: key_value_line_comment * Same as <key_value_line>, but allows to have a comment in the end of a line * and an end of line * * Parameters: * kw:regexp - the pattern to match as key * sep:lens - the separator lens, which can be taken from the <Sep> module * sto:lens - the storing lens * comment:lens - the comment lens, which can be taken from <Util> ************************************************************************) let key_value_line_comment (kw:regexp) (sep:lens) (sto:lens) (comment:lens) = [ key kw . sep . sto . (eol|comment) ] (************************************************************************ * View: key_value * Same as <key_value_line>, but does not end with an end of line * * Parameters: * kw:regexp - the pattern to match as key * sep:lens - the separator lens, which can be taken from the <Sep> module * sto:lens - the storing lens ************************************************************************) let key_value (kw: regexp) (sep:lens) (sto:lens) = [ key kw . sep . sto ] (************************************************************************ * View: key_ws_value * * Store a key/value pair where key and value are separated by whitespace * and the value goes to the end of the line. Leading and trailing * whitespace is stripped from the value. The end of line is consumed by * this lens * * Parameters: * kw:regexp - the pattern to match as key ************************************************************************) let key_ws_value (kw:regexp) = key_value_line kw Util.del_ws_spc (store Rx.space_in) (************************************************************************ * View: flag * A simple flag subnode, consisting of a single key * * Parameters: * kw:regexp - the pattern to match as key ************************************************************************) let flag (kw:regexp) = [ key kw ] (************************************************************************ * View: flag_line * A simple flag line, consisting of a single key * * Parameters: * kw:regexp - the pattern to match as key ************************************************************************) let flag_line (kw:regexp) = [ key kw . eol ] (************************************************************************ * Group: BLOCK CONSTRUCTIONS ************************************************************************) (************************************************************************ * View: block_generic * A block enclosed in brackets * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should include <Util.empty> * or its equivalent if necessary. * entry_noindent:lens - the entry to be stored inside the block, * without indentation. * This entry should not include <Util.empty> * entry_noeol:lens - the entry to be stored inside the block, * without eol. * This entry should not include <Util.empty> * entry_noindent_noeol:lens - the entry to be stored inside the block, * without indentation or eol. * This entry should not include <Util.empty> * comment:lens - the comment lens used in the block * comment_noindent:lens - the comment lens used in the block, * without indentation. * ldelim_re:regexp - regexp for the left delimiter * rdelim_re:regexp - regexp for the right delimiter * ldelim_default:string - default value for the left delimiter * rdelim_default:string - default value for the right delimiter ************************************************************************) let block_generic (entry:lens) (entry_noindent:lens) (entry_noeol:lens) (entry_noindent_noeol:lens) (comment:lens) (comment_noindent:lens) (ldelim_re:regexp) (rdelim_re:regexp) (ldelim_default:string) (rdelim_default:string) = let block_single = entry_noindent_noeol | comment_noindent in let block_start = entry_noindent | comment_noindent in let block_middle = (entry | comment)* in let block_end = entry_noeol | comment in del ldelim_re ldelim_default . ( ( block_start . block_middle . block_end ) | block_single ) . del rdelim_re rdelim_default (************************************************************************ * View: block_setdefault * A block enclosed in brackets * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should not include <Util.empty>, * <Util.comment> or <Util.comment_noindent>, * should not be indented or finish with an eol. * ldelim_re:regexp - regexp for the left delimiter * rdelim_re:regexp - regexp for the left delimiter * ldelim_default:string - default value for the left delimiter * rdelim_default:string - default value for the right delimiter ************************************************************************) let block_setdelim (entry:lens) (ldelim_re:regexp) (rdelim_re:regexp) (ldelim_default:string) (rdelim_default:string) = block_generic (Util.empty | Util.indent . entry . eol) (entry . eol) (Util.indent . entry) entry Util.comment Util.comment_noindent ldelim_re rdelim_re ldelim_default rdelim_default (* Variable: block_ldelim_re *) let block_ldelim_re = /[ \t\n]+\{[ \t\n]*/ (* Variable: block_rdelim_re *) let block_rdelim_re = /[ \t\n]*\}/ (* Variable: block_ldelim_default *) let block_ldelim_default = " {\n" (* Variable: block_rdelim_default *) let block_rdelim_default = "}" (************************************************************************ * View: block * A block enclosed in brackets * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should not include <Util.empty>, * <Util.comment> or <Util.comment_noindent>, * should not be indented or finish with an eol. ************************************************************************) let block (entry:lens) = block_setdelim entry block_ldelim_re block_rdelim_re block_ldelim_default block_rdelim_default (* Variable: block_ldelim_newlines_re *) let block_ldelim_newlines_re = /[ \t\n]*\{([ \t\n]*\n)?/ (* Variable: block_rdelim_newlines_re *) let block_rdelim_newlines_re = /[ \t]*\}/ (* Variable: block_ldelim_newlines_default *) let block_ldelim_newlines_default = "\n{\n" (* Variable: block_rdelim_newlines_default *) let block_rdelim_newlines_default = "}" (************************************************************************ * View: block_newline * A block enclosed in brackets, with newlines forced * and indentation defaulting to a tab. * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should not include <Util.empty>, * <Util.comment> or <Util.comment_noindent>, * should be indented and finish with an eol. ************************************************************************) let block_newlines (entry:lens) (comment:lens) = del block_ldelim_newlines_re block_ldelim_newlines_default . ((entry | comment) . (Util.empty | entry | comment)*)? . del block_rdelim_newlines_re block_rdelim_newlines_default (************************************************************************ * View: block_newlines_spc * A block enclosed in brackets, with newlines forced * and indentation defaulting to a tab. The opening brace * must be preceded by whitespace * * Parameters: * entry:lens - the entry to be stored inside the block. * This entry should not include <Util.empty>, * <Util.comment> or <Util.comment_noindent>, * should be indented and finish with an eol. ************************************************************************) let block_newlines_spc (entry:lens) (comment:lens) = del (/[ \t\n]/ . block_ldelim_newlines_re) block_ldelim_newlines_default . ((entry | comment) . (Util.empty | entry | comment)*)? . del block_rdelim_newlines_re block_rdelim_newlines_default (************************************************************************ * View: named_block * A named <block> enclosed in brackets * * Parameters: * kw:regexp - the regexp for the block name * entry:lens - the entry to be stored inside the block * this entry should not include <Util.empty> ************************************************************************) let named_block (kw:regexp) (entry:lens) = [ key kw . block entry . eol ] (************************************************************************ * Group: COMBINATORICS ************************************************************************) (************************************************************************ * View: combine_two_ord * Combine two lenses, ensuring first lens is first * * Parameters: * a:lens - the first lens * b:lens - the second lens ************************************************************************) let combine_two_ord (a:lens) (b:lens) = a . b (************************************************************************ * View: combine_two * Combine two lenses * * Parameters: * a:lens - the first lens * b:lens - the second lens ************************************************************************) let combine_two (a:lens) (b:lens) = combine_two_ord a b | combine_two_ord b a (************************************************************************ * View: combine_two_opt_ord * Combine two lenses optionally, ensuring first lens is first * (a, and optionally b) * * Parameters: * a:lens - the first lens * b:lens - the second lens ************************************************************************) let combine_two_opt_ord (a:lens) (b:lens) = a . b? (************************************************************************ * View: combine_two_opt * Combine two lenses optionally * (either a, b, or both, in any order) * * Parameters: * a:lens - the first lens * b:lens - the second lens ************************************************************************) let combine_two_opt (a:lens) (b:lens) = combine_two_opt_ord a b | combine_two_opt_ord b a (************************************************************************ * View: combine_three_ord * Combine three lenses, ensuring first lens is first * (a followed by either b, c, in any order) * * Parameters: * a:lens - the first lens * b:lens - the second lens * c:lens - the third lens ************************************************************************) let combine_three_ord (a:lens) (b:lens) (c:lens) = combine_two_ord a (combine_two b c) (************************************************************************ * View: combine_three * Combine three lenses * * Parameters: * a:lens - the first lens * b:lens - the second lens * c:lens - the third lens ************************************************************************) let combine_three (a:lens) (b:lens) (c:lens) = combine_three_ord a b c | combine_three_ord b a c | combine_three_ord c b a (************************************************************************ * View: combine_three_opt_ord * Combine three lenses optionally, ensuring first lens is first * (a followed by either b, c, or any of them, in any order) * * Parameters: * a:lens - the first lens * b:lens - the second lens * c:lens - the third lens ************************************************************************) let combine_three_opt_ord (a:lens) (b:lens) (c:lens) = combine_two_opt_ord a (combine_two_opt b c) (************************************************************************ * View: combine_three_opt * Combine three lenses optionally * (either a, b, c, or any of them, in any order) * * Parameters: * a:lens - the first lens * b:lens - the second lens * c:lens - the third lens ************************************************************************) let combine_three_opt (a:lens) (b:lens) (c:lens) = combine_three_opt_ord a b c | combine_three_opt_ord b a c | combine_three_opt_ord c b a PK ! �#� P P lenses/dist/erlang.augnu �[��� (* Module: Erlang Parses Erlang configuration files Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference This lens tries to keep as close as possible to `http://www.erlang.org/doc/man/config.html` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to Erlang configuration files. See <filter>. About: Examples The <Test_Erlang> file contains various examples and tests. *) module Erlang = (* Group: Spacing Functions *) (* View: space *) let space = del /[ \t\n]*/ "" (* View: lspace Add spaces to the left of char *) let lspace (char:string) = del (/[ \t\n]*/ . char) char (* View: rspace Add spaces to the right of char *) let rspace (char:string) = del (char . /[ \t\n]*/ ) char (* View: lrspace Add spaces to the left or right of char *) let lrspace (char:string) = del (/[ \t\n]*/ . char . /[ \t\n]*/ ) char (* Group: Separators *) (* Variable: lbrace Left square bracket *) let lbrace = "{" (* Variable: rbrace Right square bracket *) let rbrace = "}" (* Variable: lbrack Left curly brackets *) let lbrack = "[" (* Variable: rbrack Right curly brackets *) let rbrack = "]" (* Variable: lglob Left glob separator *) let lglob = "<<\"" (* Variable: rglob Right glob separator *) let rglob = "\">>" (* Variable: comma *) let comma = "," (* Group: Value types *) (* View: opt_list An optional list of elements, in square brackets *) let opt_list (lns:lens) = rspace lbrack . (Build.opt_list lns (lrspace comma) . space)? . Util.del_str rbrack (* View: integer Store a <Rx.integer> *) let integer = store Rx.integer (* View: decimal Store a decimal value *) let decimal = store /[0-9]+(.[0-9]+)?/ (* View: quoted Store a quoted value *) let quoted = Quote.do_quote (store /[^,\n}{]+/) (* View: bare Store a bare <Rx.word> *) let bare = store Rx.word (* View: boolean Store a boolean value *) let boolean = store /true|false/ (* View: path Store a path (<quoted>) *) let path = quoted (* View: glob Store a glob *) let glob = Util.del_str lglob . store /[^\n"]+/ . Util.del_str rglob (* View: make_value Make a "value" subnode for arrays/tuples *) let make_value (lns:lens) = [ label "value" . lns ] (* Group: Store types *) (* View: value A single value *) let value (kw:regexp) (sto:lens) = [ rspace lbrace . key kw . lrspace comma . sto . lspace rbrace ] (* View: tuple A tuple of values *) let tuple (one:lens) (two:lens) = [ rspace lbrace . label "tuple" . [ label "value" . one ] . lrspace comma . [ label "value" . two ] . lspace rbrace ] (* View: tuple3 A tuple of 3 values *) let tuple3 (one:lens) (two:lens) (three:lens) = [ rspace lbrace . label "tuple" . [ label "value" . one ] . lrspace comma . [ label "value" . two ] . lrspace comma . [ label "value" . three ] . lspace rbrace ] (* View: list A list of lenses *) let list (kw:regexp) (lns:lens) = [ rspace lbrace . key kw . lrspace comma . opt_list lns . lspace rbrace ] (* View: value_list A <list> of seq entries *) let value_list (kw:regexp) (sto:lens) = list kw (make_value sto) (* View: application *) let application (name:regexp) (parameter:lens) = list name parameter (* View: kernel_parameters Config parameters accepted for kernel app *) let kernel_parameters = value "browser_cmd" path | value "dist_auto_connect" (store /never|once/) | value "error_logger" (store /tty|false|silent/) | value "net_setuptime" integer | value "net_ticktime" integer | value "shutdown_timeout" integer | value "sync_nodes_timeout" integer | value "start_dist_ac" boolean | value "start_boot_server" boolean | value "start_disk_log" boolean | value "start_pg2" boolean | value "start_timer" boolean (* View: kernel Core Erlang kernel app configuration *) let kernel = application "kernel" kernel_parameters (* View: comment *) let comment = Util.comment_generic /%[ \t]*/ "% " (* View: config A top-level config *) let config (app:lens) = (Util.empty | comment)* . rspace lbrack . Build.opt_list (kernel | app) (lrspace comma) . lrspace rbrack . Util.del_str "." . Util.eol . (Util.empty | comment)* PK ! =j�e� � lenses/dist/radicale.augnu �[��� (* Radicale module for Augeas Based on Puppet lens. Manage config file for http://radicale.org/ /etc/radicale/config is a standard INI File. *) module Radicale = autoload xfm (************************************************************************ * INI File settings * * /etc/radicale/config only supports "#" as commentary and "=" as separator *************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" (************************************************************************ * ENTRY * /etc/radicale/config uses standard INI File entries *************************************************************************) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * RECORD * /etc/radicale/config uses standard INI File records *************************************************************************) let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER * /etc/radicale/config uses standard INI File records *************************************************************************) let lns = IniFile.lns record comment let filter = (incl "/etc/radicale/config") let xfm = transform lns filter PK ! ���0� � lenses/dist/rx.augnu �[��� (* Module: Rx Generic regexps to build lenses Author: Raphael Pinson <raphink@gmail.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Rx = (* Group: Spaces *) (* Variable: space A mandatory space or tab *) let space = /[ \t]+/ (* Variable: opt_space An optional space or tab *) let opt_space = /[ \t]*/ (* Variable: cl A continued line with a backslash *) let cl = /[ \t]*\\\\\n[ \t]*/ (* Variable: cl_or_space A <cl> or a <space> *) let cl_or_space = cl | space (* Variable: cl_or_opt_space A <cl> or a <opt_space> *) let cl_or_opt_space = cl | opt_space (* Group: General strings *) (* Variable: space_in A string which does not start or end with a space *) let space_in = /[^ \r\t\n].*[^ \r\t\n]|[^ \t\n\r]/ (* Variable: no_spaces A string with no spaces *) let no_spaces = /[^ \t\r\n]+/ (* Variable: word An alphanumeric string *) let word = /[A-Za-z0-9_.-]+/ (* Variable: integer One or more digits *) let integer = /[0-9]+/ (* Variable: relinteger A relative <integer> *) let relinteger = /[-+]?[0-9]+/ (* Variable: relinteger_noplus A relative <integer>, without explicit plus sign *) let relinteger_noplus = /[-]?[0-9]+/ (* Variable: decimal A decimal value (using ',' or '.' as a separator) *) let decimal = /[0-9]+([.,][0-9]+)?/ (* Variable: reldecimal A relative <decimal> *) let reldecimal = /[+-]?[0-9]+([.,][0-9]+)?/ (* Variable: byte A byte (0 - 255) *) let byte = /25[0-5]?|2[0-4][0-9]|1[0-9]{2}|[1-9]?[0-9]/ (* Variable: hex A hex value *) let hex = /0x[0-9a-fA-F]+/ (* Variable: octal An octal value *) let octal = /0[0-7]+/ (* Variable: fspath A filesystem path *) let fspath = /[^ \t\n]+/ (* Group: All but... *) (* Variable: neg1 Anything but a space, a comma or a comment sign *) let neg1 = /[^,# \n\t]+/ (* * Group: IPs * Cf. http://blog.mes-stats.fr/2008/10/09/regex-ipv4-et-ipv6/ (in fr) *) (* Variable: ipv4 *) let ipv4 = let dot = "." in byte . dot . byte . dot . byte . dot . byte (* Variable: ipv6 *) let ipv6 = /(([0-9A-Fa-f]{1,4}:){7}[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){6}:[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){5}:([0-9A-Fa-f]{1,4}:)?[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){4}:([0-9A-Fa-f]{1,4}:){0,2}[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){3}:([0-9A-Fa-f]{1,4}:){0,3}[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){2}:([0-9A-Fa-f]{1,4}:){0,4}[0-9A-Fa-f]{1,4})/ | ( /([0-9A-Fa-f]{1,4}:){6}/ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/ ) | ( /([0-9A-Fa-f]{1,4}:){0,5}:/ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/ ) | ( /::([0-9A-Fa-f]{1,4}:){0,5}/ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/ ) | ( /[0-9A-Fa-f]{1,4}::([0-9A-Fa-f]{1,4}:){0,5}/ . /[0-9A-Fa-f]{1,4}/ ) | /(::([0-9A-Fa-f]{1,4}:){0,6}[0-9A-Fa-f]{1,4})/ | /(([0-9A-Fa-f]{1,4}:){1,7}:)/ (* Variable: ip An <ipv4> or <ipv6> *) let ip = ipv4 | ipv6 (* Variable: hostname A valid RFC 1123 hostname *) let hostname = /(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*( [A-Za-z0-9]|[A-Za-z0-9][A-Za-z0-9\-]*[A-Za-z0-9])/ (* * Variable: device_name * A Linux device name like eth0 or i2c-0. Might still be too restrictive *) let device_name = /[a-zA-Z0-9_?.+:!-]+/ (* * Variable: email_addr * To be refined *) let email_addr = /[A-Za-z0-9_+.-]+@[A-Za-z0-9_.-]+/ (* * Variable: iso_8601 * ISO 8601 date time format *) let year = /[0-9]{4}/ let relyear = /[-+]?/ . year let monthday = /W?[0-9]{2}(-?[0-9]{1,2})?/ let time = let sep = /[T \t]/ in let digits = /[0-9]{2}(:?[0-9]{2}(:?[0-9]{2})?)?/ in let precis = /[.,][0-9]+/ in let zone = "Z" | /[-+]?[0-9]{2}(:?[0-9]{2})?/ in sep . digits . precis? . zone? let iso_8601 = year . ("-"? . monthday . time?)? (* Variable: url_3986 A valid RFC 3986 url - See Appendix B *) let url_3986 = /(([^:\/?#]+):)?(\/\/([^\/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?/ PK ! �4gO O lenses/dist/crypttab.augnu �[��� (* Module: Crypttab Parses /etc/crypttab from the cryptsetup package. Author: Frédéric Lespez <frederic.lespez@free.fr> About: Reference This lens tries to keep as close as possible to `man crypttab` where possible. 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 entry for an encrypted block devices > ins 01 after /files/etc/crypttab/*[last()] > set /files/etc/crypttab/01/target crypt_sda2 > set /files/etc/crypttab/01/device /dev/sda2 > set /files/etc/crypttab/01/password /dev/random > set /files/etc/crypttab/01/opt swap * Print the entry applying to the "/dev/sda2" device > print /files/etc/crypttab/01 * Remove the entry applying to the "/dev/sda2" device > rm /files/etc/crypttab/*[device="/dev/sda2"] About: Configuration files This lens applies to /etc/crypttab. See <filter>. *) module Crypttab = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Separators *) (* Variable: sep_tab *) let sep_tab = Sep.tab (* Variable: comma *) let comma = Sep.comma (* Group: Generic primitives *) (* Variable: eol *) let eol = Util.eol (* Variable: comment *) let comment = Util.comment (* Variable: empty *) let empty = Util.empty (* Variable: word *) let word = Rx.word (* Variable: optval *) let optval = /[A-Za-z0-9\/_.:-]+/ (* Variable: target *) let target = Rx.device_name (* Variable: fspath *) let fspath = Rx.fspath (* Variable: uuid *) let uuid = /UUID=[0-9a-f-]+/ (************************************************************************ * Group: ENTRIES *************************************************************************) (************************************************************************ * View: comma_sep_list * A comma separated list of options (opt=value or opt) *************************************************************************) let comma_sep_list (l:string) = let value = [ label "value" . Util.del_str "=" . store optval ] in let lns = [ label l . store word . value? ] in Build.opt_list lns comma (************************************************************************ * View: record * A crypttab record *************************************************************************) let record = [ seq "entry" . [ label "target" . store target ] . sep_tab . [ label "device" . store (fspath|uuid) ] . (sep_tab . [ label "password" . store fspath ] . ( sep_tab . comma_sep_list "opt")? )? . eol ] (* * View: lns * The crypttab lens *) let lns = ( empty | comment | record ) * (* Variable: filter *) let filter = (incl "/etc/crypttab") let xfm = transform lns filter (* coding: utf-8 *) PK ! ���� � lenses/dist/dns_zone.augnu �[��� (* Module: Dns_Zone Lens for parsing DNS zone files Authors: Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi> About: Reference RFC 1035, RFC 2782, RFC 3403 About: License This file is licensed under the LGPL v2+ *) module Dns_Zone = autoload xfm let eol = del /([ \t\n]*(;[^\n]*)?\n)+/ "\n" let opt_eol = del /([ \t\n]*(;[^\n]*)?\n)*/ "" let ws = del /[ \t]+|(([ \t\n]*;[^\n]*)?\n)+[ \t]*/ " " let opt_ws = del /(([ \t\n]*;[^\n]*)?\n)*[ \t]*/ "" let token = /([^ \t\n";()\\]|\\\\.)+|"([^"\\]|\\\\.)*"/ let control = [ key /\$[^ \t\n\/]+/ . Util.del_ws_tab . store token . eol ] let labeled_token (lbl:string) (re:regexp) (sep:lens) = [ label lbl . store re . sep ] let regexp_token (lbl:string) (re:regexp) = labeled_token lbl re Util.del_ws_tab let type_token (re:regexp) = regexp_token "type" re let simple_token (lbl:string) = regexp_token lbl token let enclosed_token (lbl:string) = labeled_token lbl token ws let last_token (lbl:string) = labeled_token lbl token eol let class_re = /IN/ let ttl = regexp_token "ttl" /[0-9]+[DHMWdhmw]?/ let class = regexp_token "class" class_re let rr = let simple_type = /[A-Z]+/ - class_re - /MX|NAPTR|SOA|SRV/ in type_token simple_type . last_token "rdata" let mx = type_token "MX" . simple_token "priority" . last_token "exchange" let naptr = type_token "NAPTR" . simple_token "order" . simple_token "preference" . simple_token "flags" . simple_token "service" . simple_token "regexp" . last_token "replacement" let soa = type_token "SOA" . simple_token "mname" . simple_token "rname" . Util.del_str "(" . opt_ws . enclosed_token "serial" . enclosed_token "refresh" . enclosed_token "retry" . enclosed_token "expiry" . labeled_token "minimum" token opt_ws . Util.del_str ")" . eol let srv = type_token "SRV" . simple_token "priority" . simple_token "weight" . simple_token "port" . last_token "target" let record = seq "owner" . ((ttl? . class?) | (class . ttl)) . (rr|mx|naptr|soa|srv) let ws_record = [ Util.del_ws_tab . record ] let records (k:regexp) = [ key k . counter "owner" . ws_record+ ] let any_record_block = records /[^ \t\n;\/$][^ \t\n;\/]*/ let non_root_records = records /@[^ \t\n;\/]+|[^ \t\n;\/$@][^ \t\n;\/]*/ let root_records = [ del /@?/ "@" . Util.del_ws_tab . label "@" . counter "owner" . [ record ] . ws_record* ] let lns = opt_eol . control* . ( (root_records|non_root_records) . (control|any_record_block)* )? let filter = incl "/var/bind/pri/*.zone" let xfm = transform Dns_Zone.lns filter PK ! ۱xtk k lenses/dist/devfsrules.augnu �[��� module DevfsRules = autoload xfm let comment = IniFile.comment IniFile.comment_re "#" let eol = Util.eol let line_re = /[^][#; \t\n][^#;\n]*[^#; \t\n]/ let entry = [ seq "entry" . store line_re . (eol | comment) ] let title = Util.del_str "[" . key Rx.word . [ label "id" . Sep.equal . store Rx.integer ] . Util.del_str "]" . eol . counter "entry" let record = IniFile.record title (entry | comment) let lns = IniFile.lns record comment let filter = incl "/etc/defaults/devfs.rules" . incl "/etc/devfs.rules" let xfm = transform lns filter PK ! ����7 7 lenses/dist/pylonspaste.augnu �[��� (* Module: PylonsPaste Parses Pylons Paste ini configuration files. Author: Andrew Colin Kissa <andrew@topdog.za.net> Baruwa Enterprise Edition http://www.baruwa.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to /etc/baruwa See <filter>. *) module Pylonspaste = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep "=" "=" let eol = Util.eol let optspace = del /\n/ "\n" let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+/) let plugin_re = /[A-Za-z][;:#A-Za-z0-9._-]+/ let plugins_kw = /plugins/ let debug_kw = /debug/ let normal_opts = entry_re - (debug_kw|plugins_kw) let del_opt_ws = del /[\t ]*/ "" let new_ln_sep = optspace . del_opt_ws . store plugin_re let plugins_multiline = sep . counter "items" . [ seq "items" . new_ln_sep]* let sto_multiline = optspace . Sep.opt_space . store (Rx.space_in . (/[ \t]*\n/ . Rx.space . Rx.space_in)*) (************************************************************************ * Group: ENTRY *************************************************************************) let set_option = Util.del_str "set " let no_inline_comment_entry (kw:regexp) (sep:lens) (comment:lens) = [ set_option . key debug_kw . sep . IniFile.sto_to_eol . eol ] | [ key plugins_kw . plugins_multiline . eol] | [ key kw . sep . IniFile.sto_to_eol? . eol ] | comment let entry = no_inline_comment_entry normal_opts sep comment (************************************************************************ * RECORD *************************************************************************) let title = IniFile.title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * Group: LENS & FILTER *************************************************************************) let lns = IniFile.lns record comment let filter = incl "/etc/baruwa/*.ini" let xfm = transform lns filter PK ! *�x6� � lenses/dist/ceph.augnu �[��� (* Ceph module for Augeas Author: Pavel Chechetin <pchechetin@mirantis.com> ceph.conf is a standard INI File with whitespaces in the title. *) module Ceph = autoload xfm let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let entry_re = /[A-Za-z0-9_.-][A-Za-z0-9 _.-]*[A-Za-z0-9_.-]/ let entry = IniFile.indented_entry entry_re sep comment let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = (incl "/etc/ceph/ceph.conf") . (incl (Sys.getenv("HOME") . "/.ceph/config")) let xfm = transform lns filter PK ! ��ӊ� � lenses/dist/networkmanager.augnu �[��� (* Module: NetworkManager Parses /etc/NetworkManager/system-connections/* files which are GLib key-value setting files. Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/NetworkManager/system-connections/*. See <filter>. About: Examples The <Test_NetworkManager> file contains various examples and tests. *) module NetworkManager = autoload xfm (************************************************************************ * INI File settings * * GLib only supports "# as commentary and "=" as separator *************************************************************************) let comment = IniFile.comment "#" "#" let sep = Sep.equal let eol = Util.eol (************************************************************************ * ENTRY * GLib entries can contain semicolons, entry names can contain spaces and * brackets * * At least entry for WPA-PSK definition can contain all printable ASCII * characters including '#', ' ' and others. Comments following the entry * are no option for this reason. *************************************************************************) (* Variable: entry_re *) let entry_re = /[A-Za-z][A-Za-z0-9:._\(\) \t-]+/ (* Lens: entry *) let entry = [ key entry_re . sep . IniFile.sto_to_eol? . eol ] | comment (************************************************************************ * RECORD * GLib uses standard INI File records *************************************************************************) let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER * GLib uses standard INI File records *************************************************************************) let lns = IniFile.lns record comment (* Variable: filter *) let filter = incl "/etc/NetworkManager/system-connections/*" let xfm = transform lns filter PK ! �0 0 lenses/dist/shellvars.augnu �[��� (* Module: Shellvars Generic lens for shell-script config files like the ones found in /etc/sysconfig About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented *) module Shellvars = autoload xfm (* Delete a blank line, rather than mapping it *) let del_empty = del (Util.empty_generic_re . "\n") "\n" let empty = Util.empty let empty_part_re = Util.empty_generic_re . /\n+/ let eol = del (/[ \t]+|[ \t]*[;\n]/ . empty_part_re*) "\n" let semicol_eol = del (/[ \t]*[;\n]/ . empty_part_re*) "\n" let brace_eol = del /[ \t\n]+/ "\n" let key_re = /[A-Za-z0-9_][-A-Za-z0-9_]*(\[[0-9A-Za-z_,]+\])?/ - ("unset" | "export") let matching_re = "${!" . key_re . /[\*@]\}/ let eq = Util.del_str "=" let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n" let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ " # " eol_for_comment (* comment_eol in shell MUST begin with a space *) let comment_eol = Util.comment_generic_seteol /[ \t]+#[ \t]*/ " # " eol_for_comment let comment_or_eol = comment_eol | semicol_eol let xchgs = Build.xchgs let semicol = del /;?/ "" let char = /[^`;()'"&|\n\\# \t]#*|\\\\./ let dquot = let char = /[^"\\]|\\\\./ | Rx.cl in "\"" . char* . "\"" (* " Emacs, relax *) let squot = /'[^']*'/ let bquot = /`[^`\n]+`/ (* dbquot don't take spaces or semi-colons *) let dbquot = /``[^` \t\n;]+``/ let dollar_assign = /\$\([^\(\)#\n]*\)/ let dollar_arithm = /\$\(\([^\)#\n]*\)\)/ let anyquot = (char|dquot|squot|dollar_assign|dollar_arithm)+ | bquot | dbquot let sto_to_semicol = store (anyquot . (Rx.cl_or_space . anyquot)*) (* Array values of the form '(val1 val2 val3)'. We do not handle empty *) (* arrays here because of typechecking headaches. Instead, they are *) (* treated as a simple value *) let array = let array_value = store anyquot in del /\([ \t]*/ "(" . counter "values" . [ seq "values" . array_value ] . [ del /[ \t\n]+/ " " . seq "values" . array_value ] * . del /[ \t]*\)/ ")" (* Treat an empty list () as a value '()'; that's not quite correct *) (* but fairly close. *) let simple_value = let empty_array = /\([ \t]*\)/ in store (anyquot | empty_array)? let export = [ key "export" . Util.del_ws_spc ] let kv = Util.indent . export? . key key_re . eq . (simple_value | array) let var_action (name:string) = Util.indent . del name name . Util.del_ws_spc . label ("@" . name) . counter "var_action" . Build.opt_list [ seq "var_action" . store (key_re | matching_re) ] Util.del_ws_spc let unset = var_action "unset" let bare_export = var_action "export" let source = Util.indent . del /\.|source/ "." . label ".source" . Util.del_ws_spc . store /[^;=# \t\n]+/ let shell_builtin_cmds = "ulimit" | "shift" | "exit" let eval = Util.indent . Util.del_str "eval" . Util.del_ws_spc . label "@eval" . store anyquot let alias = Util.indent . Util.del_str "alias" . Util.del_ws_spc . label "@alias" . store key_re . eq . [ label "value" . store anyquot ] let builtin = Util.indent . label "@builtin" . store shell_builtin_cmds . (Sep.cl_or_space . [ label "args" . sto_to_semicol ])? let keyword (kw:string) = Util.indent . Util.del_str kw let keyword_label (kw:string) (lbl:string) = keyword kw . label lbl let return = Util.indent . label "@return" . Util.del_str "return" . ( Util.del_ws_spc . store Rx.integer )? let action (operator:string) (lbl:string) (sto:lens) = let sp = Rx.cl_or_opt_space | /[ \t\n]+/ in [ del (sp . operator . sp) (" " . operator . " ") . label ("@".lbl) . sto ] let action_pipe = action "|" "pipe" let action_and = action "&&" "and" let action_or = action "||" "or" let condition = let cond (start:string) (end:string) = [ label "type" . store start ] . Util.del_ws_spc . sto_to_semicol . Util.del_ws_spc . Util.del_str end . ( action_and sto_to_semicol | action_or sto_to_semicol )* in Util.indent . label "@condition" . (cond "[" "]" | cond "[[" "]]") (* Entry types *) let entry_eol_item (item:lens) = [ item . comment_or_eol ] let entry_item (item:lens) = [ item ] let entry_eol_nocommand = entry_eol_item source | entry_eol_item kv | entry_eol_item unset | entry_eol_item bare_export | entry_eol_item builtin | entry_eol_item return | entry_eol_item condition | entry_eol_item eval | entry_eol_item alias let entry_noeol_nocommand = entry_item source | entry_item kv | entry_item unset | entry_item bare_export | entry_item builtin | entry_item return | entry_item condition | entry_item eval | entry_item alias (* Command *) let rec command = let env = [ key key_re . eq . store anyquot . Sep.cl_or_space ] in let reserved_key = /exit|shift|return|ulimit|unset|export|source|\.|if|for|select|while|until|then|else|fi|done|case|eval|alias/ in let word = /\$?[-A-Za-z0-9_.\/]+/ in let entry_eol = entry_eol_nocommand | entry_eol_item command in let entry_noeol = entry_noeol_nocommand | entry_item command in let entry = entry_eol | entry_noeol in let pipe = action_pipe (entry_eol_item command | entry_item command) in let and = action_and entry in let or = action_or entry in Util.indent . label "@command" . env* . store (word - reserved_key) . [ Sep.cl_or_space . label "@arg" . sto_to_semicol]? . ( pipe | and | or )? let entry_eol = entry_eol_nocommand | entry_eol_item command let entry_noeol = entry_noeol_nocommand | entry_item command (************************************************************************ * Group: CONDITIONALS AND LOOPS *************************************************************************) let generic_cond_start (start_kw:string) (lbl:string) (then_kw:string) (contents:lens) = keyword_label start_kw lbl . Sep.space . sto_to_semicol . ( action_and sto_to_semicol | action_or sto_to_semicol )* . semicol_eol . keyword then_kw . eol . contents let generic_cond (start_kw:string) (lbl:string) (then_kw:string) (contents:lens) (end_kw:string) = [ generic_cond_start start_kw lbl then_kw contents . keyword end_kw . comment_or_eol ] let cond_if (entry:lens) = let elif = [ generic_cond_start "elif" "@elif" "then" entry+ ] in let else = [ keyword_label "else" "@else" . eol . entry+ ] in generic_cond "if" "@if" "then" (entry+ . elif* . else?) "fi" let loop_for (entry:lens) = generic_cond "for" "@for" "do" entry+ "done" let loop_while (entry:lens) = generic_cond "while" "@while" "do" entry+ "done" let loop_until (entry:lens) = generic_cond "until" "@until" "do" entry+ "done" let loop_select (entry:lens) = generic_cond "select" "@select" "do" entry+ "done" let case (entry:lens) (entry_noeol:lens) = let pattern = [ label "@pattern" . sto_to_semicol . Sep.opt_space ] in let case_entry = [ label "@case_entry" . Util.indent . pattern . (Util.del_str "|" . Sep.opt_space . pattern)* . Util.del_str ")" . eol . entry* . entry_noeol? . Util.indent . Util.del_str ";;" . eol ] in [ keyword_label "case" "@case" . Sep.space . store (char+ | ("\"" . char+ . "\"")) . del /[ \t\n]+/ " " . Util.del_str "in" . eol . (empty* . comment* . case_entry)* . empty* . comment* . keyword "esac" . comment_or_eol ] let subshell (entry:lens) = [ Util.indent . label "@subshell" . Util.del_str "{" . brace_eol . entry+ . Util.indent . Util.del_str "}" . eol ] let function (entry:lens) (start_kw:string) (end_kw:string) = [ Util.indent . label "@function" . del /(function[ \t]+)?/ "" . store Rx.word . del /[ \t]*\(\)/ "()" . (comment_eol|brace_eol) . Util.del_str start_kw . brace_eol . entry+ . Util.indent . Util.del_str end_kw . eol ] let rec rec_entry = let entry = comment | entry_eol | rec_entry in cond_if entry | loop_for entry | loop_select entry | loop_while entry | loop_until entry | case entry entry_noeol | function entry "{" "}" | function entry "(" ")" | subshell entry let lns_norec = del_empty* . (comment | entry_eol) * let lns = del_empty* . (comment | entry_eol | rec_entry) * let sc_incl (n:string) = (incl ("/etc/sysconfig/" . n)) let sc_excl (n:string) = (excl ("/etc/sysconfig/" . n)) let filter_sysconfig = sc_incl "*" . sc_excl "anaconda" . sc_excl "bootloader" . sc_excl "hw-uuid" . sc_excl "hwconf" . sc_excl "ip*tables" . sc_excl "ip*tables.save" . sc_excl "kernel" . sc_excl "*.pub" . sc_excl "sysstat.ioconf" . sc_excl "system-config-firewall" . sc_excl "system-config-securitylevel" . sc_incl "network/config" . sc_incl "network/dhcp" . sc_incl "network/dhcp6r" . sc_incl "network/dhcp6s" . sc_incl "network/ifcfg-*" . sc_incl "network/if-down.d/*" . sc_incl "network/ifroute-*" . sc_incl "network/if-up.d/*" . sc_excl "network/if-up.d/SuSEfirewall2" . sc_incl "network/providers/*" . sc_excl "network-scripts" . sc_incl "network-scripts/ifcfg-*" . sc_excl "rhn" . sc_incl "rhn/allowed-actions/*" . sc_excl "rhn/allowed-actions/script" . sc_incl "rhn/allowed-actions/script/*" . sc_incl "rhn/rhnsd" . sc_excl "SuSEfirewall2.d" . sc_incl "SuSEfirewall2.d/cobbler" . sc_incl "SuSEfirewall2.d/services/*" . sc_excl "SuSEfirewall2.d/services/TEMPLATE" . sc_excl "*.systemd" let filter_default = incl "/etc/default/*" . excl "/etc/default/grub_installdevice*" . excl "/etc/default/rmt" . excl "/etc/default/star" . excl "/etc/default/whoopsie" . incl "/etc/profile" . incl "/etc/profile.d/*" . excl "/etc/profile.d/*.csh" . excl "/etc/profile.d/*.tcsh" . excl "/etc/profile.d/csh.local" let filter_misc = incl "/etc/arno-iptables-firewall/debconf.cfg" . incl "/etc/conf.d/*" . incl "/etc/cron-apt/config" . incl "/etc/environment" . incl "/etc/firewalld/firewalld.conf" . incl "/etc/blkid.conf" . incl "/etc/adduser.conf" . incl "/etc/cowpoke.conf" . incl "/etc/cvs-cron.conf" . incl "/etc/cvs-pserver.conf" . incl "/etc/devscripts.conf" . incl "/etc/kamailio/kamctlrc" . incl "/etc/lbu/lbu.conf" . incl "/etc/lintianrc" . incl "/etc/lsb-release" . incl "/etc/os-release" . incl "/etc/periodic.conf" . incl "/etc/popularity-contest.conf" . incl "/etc/rc.conf" . incl "/etc/rc.conf.d/*" . incl "/etc/rc.conf.local" . incl "/etc/selinux/config" . incl "/etc/ucf.conf" . incl "/etc/locale.conf" . incl "/etc/vconsole.conf" . incl "/etc/byobu/*" let filter = filter_sysconfig . filter_default . filter_misc . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! DX�8� � " lenses/dist/postfix_sasl_smtpd.augnu �[��� module Postfix_sasl_smtpd = autoload xfm let eol = Util.eol let colon = del /:[ \t]*/ ": " let value_to_eol = store Rx.space_in let simple_entry (kw:string) = [ key kw . colon . value_to_eol . eol ] let entries = simple_entry "pwcheck_method" | simple_entry "auxprop_plugin" | simple_entry "saslauthd_path" | simple_entry "mech_list" | simple_entry "sql_engine" | simple_entry "log_level" | simple_entry "auto_transition" let lns = entries+ let filter = incl "/etc/postfix/sasl/smtpd.conf" . incl "/usr/local/etc/postfix/sasl/smtpd.conf" let xfm = transform lns filter PK ! N��� � lenses/dist/vfstab.augnu �[��� (* Module: Vfstab Parses Solaris vfstab config file, based on Fstab lens Author: Dominic Cleal <dcleal@redhat.com> About: Reference See vfstab(4) About: License This file is licenced under the LGPLv2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/vfstab. About: Examples The <Test_Vfstab> file contains various examples and tests. *) module Vfstab = autoload xfm let sep_tab = Sep.tab let sep_spc = Sep.space let comma = Sep.comma let eol = Util.eol let comment = Util.comment let empty = Util.empty let file = /[^# \t\n]+/ let int = Rx.integer let bool = "yes" | "no" (* An option label can't contain comma, comment, equals, or space *) let optlabel = /[^,#= \n\t]+/ - "-" let spec = /[^-,# \n\t][^ \n\t]*/ let optional = Util.del_str "-" let comma_sep_list (l:string) = let value = [ label "value" . Util.del_str "=" . store Rx.neg1 ] in let lns = [ label l . store optlabel . value? ] in Build.opt_list lns comma let record = [ seq "mntent" . [ label "spec" . store spec ] . sep_tab . ( [ label "fsck" . store spec ] | optional ). sep_tab . [ label "file" . store file ] . sep_tab . comma_sep_list "vfstype" . sep_tab . ( [ label "passno" . store int ] | optional ) . sep_spc . [ label "atboot" . store bool ] . sep_tab . ( comma_sep_list "opt" | optional ) . eol ] let lns = ( empty | comment | record ) * let filter = incl "/etc/vfstab" let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �����= �= lenses/dist/inifile.augnu �[��� (* Module: IniFile Generic module to create INI files lenses Author: Raphael Pinson <raphink@gmail.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: TODO Things to add in the future - Support double quotes in value About: Lens usage This lens is made to provide generic primitives to construct INI File lenses. See <Puppet>, <PHP>, <MySQL> or <Dput> for examples of real life lenses using it. About: Examples The <Test_IniFile> file contains various examples and tests. *) module IniFile = (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Internal primitives *) (* Variable: eol End of line, inherited from <Util.eol> *) let eol = Util.doseol (* Group: Separators *) (* Variable: sep Generic separator Parameters: pat:regexp - the pattern to delete default:string - the default string to use *) let sep (pat:regexp) (default:string) = Sep.opt_space . del pat default (* Variable: sep_noindent Generic separator, no indentation Parameters: pat:regexp - the pattern to delete default:string - the default string to use *) let sep_noindent (pat:regexp) (default:string) = del pat default (* Variable: sep_re The default regexp for a separator *) let sep_re = /[=:]/ (* Variable: sep_default The default separator value *) let sep_default = "=" (* Group: Stores *) (* Variable: sto_to_eol Store until end of line *) let sto_to_eol = Sep.opt_space . store Rx.space_in (* Variable: to_comment_re Regex until comment *) let to_comment_re = /[^";# \t\n][^";#\n]*[^";# \t\n]|[^";# \t\n]/ (* Variable: sto_to_comment Store until comment *) let sto_to_comment = Sep.opt_space . store to_comment_re (* Variable: sto_multiline Store multiline values *) let sto_multiline = Sep.opt_space . store (to_comment_re . (/[ \t]*\n/ . Rx.space . to_comment_re)*) (* Variable: sto_multiline_nocomment Store multiline values without an end-of-line comment *) let sto_multiline_nocomment = Sep.opt_space . store (Rx.space_in . (/[ \t]*\n/ . Rx.space . Rx.space_in)*) (* Group: Define comment and defaults *) (* View: comment_noindent Map comments into "#comment" nodes, no indentation allowed Parameters: pat:regexp - pattern to delete before commented data default:string - default pattern before commented data Sample Usage: (start code) let comment = IniFile.comment_noindent "#" "#" let comment = IniFile.comment_noindent IniFile.comment_re IniFile.comment_default (end code) *) let comment_noindent (pat:regexp) (default:string) = Util.comment_generic_seteol (pat . Rx.opt_space) default eol (* View: comment Map comments into "#comment" nodes Parameters: pat:regexp - pattern to delete before commented data default:string - default pattern before commented data Sample Usage: (start code) let comment = IniFile.comment "#" "#" let comment = IniFile.comment IniFile.comment_re IniFile.comment_default (end code) *) let comment (pat:regexp) (default:string) = Util.comment_generic_seteol (Rx.opt_space . pat . Rx.opt_space) default eol (* Variable: comment_re Default regexp for <comment> pattern *) let comment_re = /[;#]/ (* Variable: comment_default Default value for <comment> pattern *) let comment_default = ";" (* View: empty_generic Empty line, including empty comments Parameters: indent:regexp - the indentation regexp comment_re:regexp - the comment separator regexp *) let empty_generic (indent:regexp) (comment_re:regexp) = Util.empty_generic_dos (indent . comment_re? . Rx.opt_space) (* View: empty Empty line *) let empty = empty_generic Rx.opt_space comment_re (* View: empty_noindent Empty line, without indentation *) let empty_noindent = empty_generic "" comment_re (************************************************************************ * Group: ENTRY *************************************************************************) (* Group: entry includes comments *) (* View: entry_generic_nocomment A very generic INI File entry, not including comments It allows to set the key lens (to set indentation or subnodes linked to the key) as well as the comment separator regexp, used to tune the store regexps. Parameters: kw:lens - lens to match the key, including optional indentation sep:lens - lens to use as key/value separator comment_re:regexp - comment separator regexp comment:lens - lens to use as comment Sample Usage: > let entry = IniFile.entry_generic (key "setting") sep IniFile.comment_re comment *) let entry_generic_nocomment (kw:lens) (sep:lens) (comment_re:regexp) (comment:lens) = let bare_re_noquot = (/[^" \t\r\n]/ - comment_re) in let bare_re = (/[^\r\n]/ - comment_re)+ in let no_quot = /[^"\r\n]*/ in let bare = Quote.do_dquote_opt_nil (store (bare_re_noquot . (bare_re* . bare_re_noquot)?)) in let quoted = Quote.do_dquote (store (no_quot . comment_re+ . no_quot)) in [ kw . sep . (Sep.opt_space . bare)? . (comment|eol) ] | [ kw . sep . Sep.opt_space . quoted . (comment|eol) ] (* View: entry_generic A very generic INI File entry It allows to set the key lens (to set indentation or subnodes linked to the key) as well as the comment separator regexp, used to tune the store regexps. Parameters: kw:lens - lens to match the key, including optional indentation sep:lens - lens to use as key/value separator comment_re:regexp - comment separator regexp comment:lens - lens to use as comment Sample Usage: > let entry = IniFile.entry_generic (key "setting") sep IniFile.comment_re comment *) let entry_generic (kw:lens) (sep:lens) (comment_re:regexp) (comment:lens) = entry_generic_nocomment kw sep comment_re comment | comment (* View: entry Generic INI File entry Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator comment:lens - lens to use as comment Sample Usage: > let entry = IniFile.entry setting sep comment *) let entry (kw:regexp) (sep:lens) (comment:lens) = entry_generic (key kw) sep comment_re comment (* View: indented_entry Generic INI File entry that might be indented with an arbitrary amount of whitespace Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator comment:lens - lens to use as comment Sample Usage: > let entry = IniFile.indented_entry setting sep comment *) let indented_entry (kw:regexp) (sep:lens) (comment:lens) = entry_generic (Util.indent . key kw) sep comment_re comment (* View: entry_multiline_generic A very generic multiline INI File entry It allows to set the key lens (to set indentation or subnodes linked to the key) as well as the comment separator regexp, used to tune the store regexps. Parameters: kw:lens - lens to match the key, including optional indentation sep:lens - lens to use as key/value separator comment_re:regexp - comment separator regexp comment:lens - lens to use as comment eol:lens - lens for end of line Sample Usage: > let entry = IniFile.entry_generic (key "setting") sep IniFile.comment_re comment comment_or_eol *) let entry_multiline_generic (kw:lens) (sep:lens) (comment_re:regexp) (comment:lens) (eol:lens) = let newline = /\r?\n[ \t]+/ in let bare = let word_re_noquot = (/[^" \t\r\n]/ - comment_re)+ in let word_re = (/[^\r\n]/ - comment_re)+ in let base_re = (word_re_noquot . (word_re* . word_re_noquot)?) in let sto_re = base_re . (newline . base_re)* | (newline . base_re)+ in Quote.do_dquote_opt_nil (store sto_re) in let quoted = let no_quot = /[^"\r\n]*/ in let base_re = (no_quot . comment_re+ . no_quot) in let sto_re = base_re . (newline . base_re)* | (newline . base_re)+ in Quote.do_dquote (store sto_re) in [ kw . sep . (Sep.opt_space . bare)? . eol ] | [ kw . sep . Sep.opt_space . quoted . eol ] | comment (* View: entry_multiline Generic multiline INI File entry Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator comment:lens - lens to use as comment *) let entry_multiline (kw:regexp) (sep:lens) (comment:lens) = entry_multiline_generic (key kw) sep comment_re comment (comment|eol) (* View: entry_multiline_nocomment Generic multiline INI File entry without an end-of-line comment Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator comment:lens - lens to use as comment *) let entry_multiline_nocomment (kw:regexp) (sep:lens) (comment:lens) = entry_multiline_generic (key kw) sep comment_re comment eol (* View: entry_list Generic INI File list entry Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator sto:regexp - store regexp for the values list_sep:lens - lens to use as list separator comment:lens - lens to use as comment *) let entry_list (kw:regexp) (sep:lens) (sto:regexp) (list_sep:lens) (comment:lens) = let list = counter "elem" . Build.opt_list [ seq "elem" . store sto ] list_sep in Build.key_value_line_comment kw sep (Sep.opt_space . list) comment (* View: entry_list_nocomment Generic INI File list entry without an end-of-line comment Parameters: kw:regexp - keyword regexp for the label sep:lens - lens to use as key/value separator sto:regexp - store regexp for the values list_sep:lens - lens to use as list separator *) let entry_list_nocomment (kw:regexp) (sep:lens) (sto:regexp) (list_sep:lens) = let list = counter "elem" . Build.opt_list [ seq "elem" . store sto ] list_sep in Build.key_value_line kw sep (Sep.opt_space . list) (* Variable: entry_re Default regexp for <entry> keyword *) let entry_re = ( /[A-Za-z][A-Za-z0-9._-]*/ ) (************************************************************************ * Group: RECORD *************************************************************************) (* Group: Title definition *) (* View: title Title for <record>. This maps the title of a record as a node in the abstract tree. Parameters: kw:regexp - keyword regexp for the label Sample Usage: > let title = IniFile.title IniFile.record_re *) let title (kw:regexp) = Util.del_str "[" . key kw . Util.del_str "]". eol (* View: indented_title Title for <record>. This maps the title of a record as a node in the abstract tree. The title may be indented with arbitrary amounts of whitespace Parameters: kw:regexp - keyword regexp for the label Sample Usage: > let title = IniFile.title IniFile.record_re *) let indented_title (kw:regexp) = Util.indent . title kw (* View: title_label Title for <record>. This maps the title of a record as a value in the abstract tree. Parameters: name:string - name for the title label kw:regexp - keyword regexp for the label Sample Usage: > let title = IniFile.title_label "target" IniFile.record_label_re *) let title_label (name:string) (kw:regexp) = label name . Util.del_str "[" . store kw . Util.del_str "]". eol (* View: indented_title_label Title for <record>. This maps the title of a record as a value in the abstract tree. The title may be indented with arbitrary amounts of whitespace Parameters: name:string - name for the title label kw:regexp - keyword regexp for the label Sample Usage: > let title = IniFile.title_label "target" IniFile.record_label_re *) let indented_title_label (name:string) (kw:regexp) = Util.indent . title_label name kw (* Variable: record_re Default regexp for <title> keyword pattern *) let record_re = ( /[^]\r\n\/]+/ - /#comment/ ) (* Variable: record_label_re Default regexp for <title_label> keyword pattern *) let record_label_re = /[^]\r\n]+/ (* Group: Record definition *) (* View: record_noempty INI File Record with no empty lines allowed. Parameters: title:lens - lens to use for title. Use either <title> or <title_label>. entry:lens - lens to use for entries in the record. See <entry>. *) let record_noempty (title:lens) (entry:lens) = [ title . entry* ] (* View: record Generic INI File record Parameters: title:lens - lens to use for title. Use either <title> or <title_label>. entry:lens - lens to use for entries in the record. See <entry>. Sample Usage: > let record = IniFile.record title entry *) let record (title:lens) (entry:lens) = record_noempty title ( entry | empty ) (************************************************************************ * Group: GENERIC LENSES *************************************************************************) (* Group: Lens definition View: lns_noempty Generic INI File lens with no empty lines Parameters: record:lens - record lens to use. See <record_noempty>. comment:lens - comment lens to use. See <comment>. Sample Usage: > let lns = IniFile.lns_noempty record comment *) let lns_noempty (record:lens) (comment:lens) = comment* . record* (* View: lns Generic INI File lens Parameters: record:lens - record lens to use. See <record>. comment:lens - comment lens to use. See <comment>. Sample Usage: > let lns = IniFile.lns record comment *) let lns (record:lens) (comment:lens) = lns_noempty record (comment|empty) (************************************************************************ * Group: READY-TO-USE LENSES *************************************************************************) let record_anon (entry:lens) = [ label "section" . value ".anon" . ( entry | empty )+ ] (* View: lns_loose A loose, ready-to-use lens, featuring: - sections as values (to allow '/' in names) - support empty lines and comments - support for [#;] as comment, defaulting to ";" - .anon sections - don't allow multiline values - allow indented titles - allow indented entries *) let lns_loose = let l_comment = comment comment_re comment_default in let l_sep = sep sep_re sep_default in let l_entry = indented_entry entry_re l_sep l_comment in let l_title = indented_title_label "section" (record_label_re - ".anon") in let l_record = record l_title l_entry in (record_anon l_entry)? . l_record* (* View: lns_loose_multiline A loose, ready-to-use lens, featuring: - sections as values (to allow '/' in names) - support empty lines and comments - support for [#;] as comment, defaulting to ";" - .anon sections - allow multiline values *) let lns_loose_multiline = let l_comment = comment comment_re comment_default in let l_sep = sep sep_re sep_default in let l_entry = entry_multiline entry_re l_sep l_comment in let l_title = title_label "section" (record_label_re - ".anon") in let l_record = record l_title l_entry in (record_anon l_entry)? . l_record* PK ! 2JX� � lenses/dist/inetd.augnu �[��� (* inetd.conf lens definition for Augeas Auther: Matt Palmer <mpalmer@hezmatt.org> Copyright (C) 2009 Matt Palmer, All Rights Reserved This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License version 2.1 as published by the Free Software Foundation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. This lens parses /etc/inetd.conf. The current format is based on the syntax documented in the inetd manpage shipped with Debian's openbsd-inetd package version 0.20080125-2. Apologies if your inetd.conf doesn't follow the same format. Each top-level entry will have a key being that of the service name (the first column in the service definition, which is the name or number of the port that the service should listen on). The attributes for the service all sit under that. In regular Augeas style, the order of the attributes matter, and attempts to set things in a different order will fail miserably. The defined attribute names (and the order in which they must appear) are as follows (with mandatory parameters indicated by [*]): address -- a sequence of IP addresses or hostnames on which this service should listen. socket[*] -- The type of the socket that will be created (either stream or dgram, although the lens doesn't constrain the possibilities here) protocol[*] -- The socket protocol. I believe that the usual possibilities are "tcp", "udp", or "unix", but no restriction is made on what you can actually put here. sndbuf -- Specify a non-default size for the send buffer of the connection. rcvbuf -- Specify a non-default size for the receive buffer of the connection. wait[*] -- Whether to wait for new connections ("wait"), or just terminate immediately ("nowait"). max -- The maximum number of times that a service can be invoked in one minute. user[*] -- The user to run the service as. group -- A group to set the running service to, rather than the primary group of the previously specified user. command[*] -- What program to run. arguments -- A sequence of arguments to pass to the command. In addition to this straightforward tree, inetd has the ability to set "default" listen addresses; this is a little used feature which nonetheless comes in handy sometimes. The key for entries of this type is "address" , and the subtree should be a sequence of addresses. "*" can always be used to return the default behaviour of listening on INADDR_ANY. *) module Inetd = autoload xfm (*************************** * PRIMITIVES ***************************) (* Store whitespace *) let wsp = del /[ \t]+/ " " let sep = del /[ \t]+/ " " let owsp(t:string) = del /[ \t]*/ t (* It's the end of the line as we know it... doo, doo, dooooo *) let eol = Util.eol (* In the beginning, the earth was without form, and void *) let empty = Util.empty let comment = Util.comment let del_str = Util.del_str let address = [ seq "addrseq" . store /([a-zA-Z0-9.-]+|\[[A-Za-z0-9:?*%]+\]|\*)/ ] let address_list = ( counter "addrseq" . (address . del_str ",")* . address ) let argument = [ seq "argseq" . store /[^ \t\n]+/ ] let argument_list = ( counter "argseq" . [ label "arguments" . (argument . wsp)* . argument ] ) (*************************** * ELEMENTS ***************************) let service (l:string) = ( label l . [label "address" . address_list . del_str ":" ]? . store /[^ \t\n\/:#]+/ ) let socket = [ label "socket" . store /[^ \t\n#]+/ ] let protocol = ( [ label "protocol" . store /[^ \t\n,#]+/ ] . [ del_str "," . key /sndbuf/ . del_str "=" . store /[^ \t\n,]+/ ]? . [ del_str "," . key /rcvbuf/ . del_str "=" . store /[^ \t\n,]+/ ]? ) let wait = ( [ label "wait" . store /(wait|nowait)/ ] . [ del_str "." . label "max" . store /[0-9]+/ ]? ) let usergroup = ( [ label "user" . store /[^ \t\n:.]+/ ] . [ del /[:.]/ ":" . label "group" . store /[^ \t\n:.]+/ ]? ) let command = ( [ label "command" . store /[^ \t\n]+/ ] . (wsp . argument_list)? ) (*************************** * SERVICE LINES ***************************) let service_line = [ service "service" . sep . socket . sep . protocol . sep . wait . sep . usergroup . sep . command . eol ] (*************************** * RPC LINES ***************************) let rpc_service = service "rpc_service" . Util.del_str "/" . [ label "version" . store Rx.integer ] let rpc_endpoint = [ label "endpoint-type" . store Rx.word ] let rpc_protocol = Util.del_str "rpc/" . (Build.opt_list [label "protocol" . store /[^ \t\n,#]+/ ] Sep.comma) let rpc_line = [ rpc_service . sep . rpc_endpoint . sep . rpc_protocol . sep . wait . sep . usergroup . sep . command . eol ] (*************************** * DEFAULT LISTEN ADDRESSES ***************************) let default_listen_address = [ label "address" . address_list . del_str ":" . eol ] (*********************** * LENS / FILTER ***********************) let lns = (comment|empty|service_line|rpc_line|default_listen_address)* let filter = incl "/etc/inetd.conf" let xfm = transform lns filter PK ! ��}H lenses/dist/approx.augnu �[��� (* Module: Approx Parses /etc/approx/approx.conf Author: David Lutterkort <lutter@redhat.com> About: Reference This lens tries to keep as close as possible to `man 5 approx.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage See <lns>. About: Configuration files This lens applies to /etc/approx/approx.conf. About: Examples The <Test_Approx> file contains various examples and tests. *) module Approx = autoload xfm (* Variable: eol An <Util.eol> *) let eol = Util.eol (* Variable: indent An <Util.indent> *) let indent = Util.indent (* Variable: key_re *) let key_re = /\$?[A-Za-z0-9_.-]+/ (* Variable: sep *) let sep = /[ \t]+/ (* Variable: value_re *) let value_re = /[^ \t\n](.*[^ \t\n])?/ (* View: comment *) let comment = [ indent . label "#comment" . del /[#;][ \t]*/ "# " . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ . eol ] (* View: empty An <Util.empty> *) let empty = Util.empty (* View: kv *) let kv = [ indent . key key_re . del sep " " . store value_re . eol ] (* View: lns *) let lns = (empty | comment | kv) * (* View: filter *) let filter = incl "/etc/approx/approx.conf" let xfm = transform lns filter PK ! 1��� lenses/dist/darkice.augnu �[��� (* Darkice module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man 5 darkice.cfg *) module Darkice = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let entry_re = ( /[A-Za-z0-9][A-Za-z0-9._-]*/ ) let entry = IniFile.entry entry_re sep comment let title = IniFile.title_label "target" IniFile.record_label_re let record = IniFile.record title entry let lns = IniFile.lns record comment let filter = (incl "/etc/darkice.cfg") let xfm = transform lns filter PK ! [��� � lenses/dist/securetty.augnu �[��� (* Parses entries in /etc/securetty Author: Simon Josi <josi@yokto.net> *) module Securetty = autoload xfm let word = /[^ \t\n#]+/ let eol = Util.eol let empty = Util.empty let comment = Util.comment let comment_or_eol = Util.comment_or_eol let record = [ seq "securetty" . store word . comment_or_eol ] let lns = ( empty | comment | record )* let filter = (incl "/etc/securetty") let xfm = transform lns filter PK ! �H� lenses/dist/rmt.augnu �[��� (* Module: Rmt Parses rmt's configuration file Author: Dominic Cleal <dcleal@redhat.com> About: Reference This lens is based on rmt(1) About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Rmt = autoload xfm let sto_to_tab = store Rx.no_spaces let debug = Build.key_value_line "DEBUG" Sep.equal ( store Rx.fspath ) let user = Build.key_value_line "USER" Sep.equal sto_to_tab let access = Build.key_value_line "ACCESS" Sep.equal ( [ label "name" . sto_to_tab ] . Sep.tab . [ label "host" . sto_to_tab ] . Sep.tab . [ label "path" . sto_to_tab ] ) let lns = ( debug | user | access | Util.comment | Util.empty )* let filter = incl "/etc/default/rmt" let xfm = transform lns filter PK ! v�2i1( 1( lenses/dist/mdadm_conf.augnu �[��� (****************************************************************************** Mdadm_conf module for Augeas Author: Matthew Booth <mbooth@redhat.com> Copyright (C): 2011 Red Hat Inc. Reference: mdadm(5) config.c and policy.c from mdadm-3.2.2 License: This file is licensed under the LGPL v2+. This is a lens for /etc/mdadm.conf. It aims to parse every valid configuration file as of version 3.2.2, and many invalid ones too. This last point is a feature, not a bug! madm will generate warnings for invalid configuration which do not prevent correct operation of the tool. Wherever possible, we try to allow for this behaviour. Keywords in mdadm.conf are matched with a case-insensitive prefix match of at least 3 characters. Keys in key/value pairs are also matched case-insensitively, but require a full match. The exception is POLICY and PART-POLICY, where keys are matched case-sensitively. N.B. We can't use case-insensitive regular expressions in most places due to bug #147. *******************************************************************************) module Mdadm_conf = autoload xfm (****************************************************************************** * PRIMITIVES ******************************************************************************) let eol = Util.comment_or_eol let comment = Util.comment let empty = Util.empty let value = /[^ \t\n#]+/ let value_no_eq = /[^ \t\n#=]+/ let value_no_eq_sl = /[^ \t\n#=\/]+/ let continuation = /\n[ \t]+/ let space = /[ \t]+/ let value_sep = ( del ( continuation | space . continuation? ) " " | comment . del space " " ) (* We parse specific keys rather than having a catch-all owing to the varying case of the syntax. This means the user can rely on 'array/uuid' rather than additionally testing for 'array/UUID'. It would be good to have an additional catchall, but I haven't been able to make that work. *) let keyvalue (r:regexp) (lc:string) (uc:string) = [ del ( r . /=/ ) ( uc . "=" ) . label lc . store value ] let simplevalue (r:regexp) (lc:string) (uc:string) = [ del r uc . label lc . ( value_sep . [ label "value" . store value ] )* . eol ] (****************************************************************************** * DEVICES ******************************************************************************) let dev_re = /dev(i(ce?)?)?/i let dev_containers_re = /containers/i let dev_partitions_re = /partitions/i let dev_containers = [ del dev_containers_re "containers" . label "containers" ] let dev_partitions = [ del dev_partitions_re "partitions" . label "partitions" ] let dev_device = [ label "name". store ( value - (dev_containers_re | dev_partitions_re)) ] (* Strictly there must be at least 1 device, but we err on the side of parsing *) let dev_devices = ( value_sep . ( dev_containers | dev_partitions | dev_device ) )* let device = [ del dev_re "DEVICE" . label "device" . dev_devices . eol ] (****************************************************************************** * ARRAY ******************************************************************************) let array_re = /arr(ay?)?/i let arr_auto_re = /auto/i let arr_bitmap_re = /bitmap/i let arr_container_re = /container/i let arr_devices_re = /devices/i let arr_disks_re = /disks/i (* Undocumented *) let arr_level_re = /level/i let arr_member_re = /member/i let arr_metadata_re = /metadata/i let arr_name_re = /name/i let arr_num_devices_re = /num-devices/i let arr_spare_group_re = /spare-group/i let arr_spares_re = /spares/i let arr_super_minor_re = /super-minor/i let arr_uuid_re = /uuid/i let arr_devicename = [ store value_no_eq . label "devicename" ] let arr_auto = keyvalue arr_auto_re "auto" "AUTO" let arr_bitmap = keyvalue arr_bitmap_re "bitmap" "BITMAP" let arr_container = keyvalue arr_container_re "container" "CONTAINER" let arr_devices = keyvalue arr_devices_re "devices" "DEVICES" let arr_disks = keyvalue arr_disks_re "disks" "DISKS" let arr_level = keyvalue arr_level_re "level" "LEVEL" let arr_member = keyvalue arr_member_re "member" "MEMBER" let arr_metadata = keyvalue arr_metadata_re "metadata" "METADATA" let arr_name = keyvalue arr_name_re "name" "NAME" let arr_num_devices = keyvalue arr_num_devices_re "num-devices" "NUM-DEVICES" let arr_spare_group = keyvalue arr_spare_group_re "spare-group" "SPARE-GROUP" let arr_spares = keyvalue arr_spares_re "spares" "SPARES" let arr_super_minor = keyvalue arr_super_minor_re "super-minor" "SUPER-MINOR" let arr_uuid = keyvalue arr_uuid_re "uuid" "UUID" let arr_options = ( value_sep . ( arr_devicename | arr_auto | arr_bitmap | arr_container | arr_devices | arr_disks | arr_level | arr_member | arr_metadata | arr_name | arr_num_devices | arr_spare_group | arr_spares | arr_super_minor | arr_uuid ) )* let array = [ del array_re "ARRAY" . label "array" . arr_options . eol ] (****************************************************************************** * MAILADDR ******************************************************************************) let mailaddr_re = /mai(l(a(d(dr?)?)?)?)?/i (* We intentionally allow multiple mailaddr values here, even though this is invalid and would produce a warning. This is better than not parsing the file. *) let mailaddr = simplevalue mailaddr_re "mailaddr" "MAILADDR" (****************************************************************************** * MAILFROM ******************************************************************************) (* N.B. MAILFROM can only be abbreviated to 5 characters *) let mailfrom_re = /mailf(r(om?)?)?/i let mailfrom = [ del mailfrom_re "MAILFROM" . label "mailfrom" . ( value_sep . [ label "value" . store value ] )* . eol ] (****************************************************************************** * PROGRAM ******************************************************************************) let program_re = /pro(g(r(am?)?)?)?/i let program = simplevalue program_re "program" "PROGRAM" (****************************************************************************** * CREATE ******************************************************************************) let create_re = /cre(a(te?)?)?/i let cre_auto_re = /auto/i let cre_owner_re = /owner/i let cre_group_re = /group/i let cre_mode_re = /mode/i let cre_metadata_re = /metadata/i let cre_symlinks_re = /symlinks/i let cre_auto = keyvalue cre_auto_re "auto" "AUTO" let cre_group = keyvalue cre_group_re "group" "GROUP" let cre_metadata = keyvalue cre_metadata_re "metadata" "METADATA" let cre_mode = keyvalue cre_mode_re "mode" "MODE" let cre_owner = keyvalue cre_owner_re "owner" "OWNER" let cre_symlinks = keyvalue cre_symlinks_re "symlinks" "SYMLINKS" let cre_options = ( value_sep . ( arr_auto | cre_owner | cre_group | cre_mode | cre_metadata | cre_symlinks) )* let create = [ del create_re "CREATE" . label "create" . cre_options . eol ] (****************************************************************************** * HOMEHOST ******************************************************************************) let homehost_re = /hom(e(h(o(st?)?)?)?)?/i let homehost = simplevalue homehost_re "homehost" "HOMEHOST" (****************************************************************************** * AUTO ******************************************************************************) let auto_re = /auto?/i let aut_plus = [ key "+" . store value ] let aut_minus = [ key "-" . store value ] let aut_homehost = [ del /homehost/i "homehost" . label "homehost" ] let aut_list = ( value_sep . ( aut_plus | aut_minus | aut_homehost ) )* let auto = [ del auto_re "AUTO" . label "auto" . aut_list . eol ] (****************************************************************************** * POLICY and PART-POLICY ******************************************************************************) (* PART-POLICY is undocumented. A cursory inspection of the parsing code suggests it's parsed the same way as POLICY, but treated slightly differently thereafter. *) let policy_re = /pol(i(cy?)?)?/i let part_policy_re = /par(t(-(p(o(l(i(cy?)?)?)?)?)?)?)?/i (* Unlike everything else, policy keys are matched case sensitive. This means we don't have to mess around with explicit option matching, as the match string is fixed for a working configuration. *) let pol_option (act:string) = [ del ( act . "=" ) ( act . "=" ) . label act . store value ] let pol_options = ( value_sep . [ key value_no_eq_sl . del "=" "=" . store value ] )* let policy = [ del policy_re "POLICY" . label "policy" . pol_options . eol ] let part_policy = [ del part_policy_re "PART-POLICY" . label "part-policy" . pol_options . eol ] (****************************************************************************** * LENS ******************************************************************************) let lns = (comment | empty | device | array | mailaddr | mailfrom | program | create | homehost | auto | policy | part_policy )* let filter = incl "/etc/mdadm.conf" . incl "/etc/mdadm/mdadm.conf" let xfm = transform lns filter PK ! �Q=� lenses/dist/jettyrealm.augnu �[��� (* Module: JettyRealm JettyRealm Properties for Augeas Author: Brian Redbeard <redbeard@dead-city.org> About: Reference This lens ensures that properties files for JettyRealms are properly handled by Augeas. About: License This file is licensed under the LGPL License. About: Lens Usage Sample usage of this lens in augtool: * Create a new user > ins user after /files/etc/activemq/jetty-realm.properties/user > set /files/etc/activemq/jetty-realm.properties/user[last()]/username redbeard > set /files/etc/activemq/jetty-realm.properties/user[last()]/password testing > set /files/etc/activemq/jetty-realm.properties/user[last()]/realm admin ... * Delete the user named sample_user > rm /files/etc/activemq/jetty-realm.properties/user[*][username = "sample_user"] Saving your file: > save About: Configuration files This lens applies to jetty-realm.properties files. See <filter>. *) module JettyRealm = autoload xfm (* View: comma_sep *) let comma_sep = del /,[ \t]*/ ", " (* View: realm_entry *) let realm_entry = [ label "user" . [ label "username" . store Rx.word ] . del /[ \t]*:[ \t]*/ ": " . [ label "password" . store Rx.word ] . [ label "realm" . comma_sep . store Rx.word ]* . Util.eol ] (* View: lns *) let lns = ( Util.comment | Util.empty | realm_entry )* (* Variable: filter *) let filter = incl "/etc/activemq/jetty-realm.properties" let xfm = transform lns filter PK ! ��ծ � lenses/dist/wine.augnu �[��� (* Lens for the textual representation of Windows registry files, as used *) (* by wine etc. *) (* This is pretty quick and dirty, as it doesn't put a lot of finesse on *) (* splitting up values that have structure, e.g. hex arrays or *) (* collections of paths. *) module Wine = (* We handle Unix and DOS line endings, though we can only add one or the *) (* other to new lines. Maybe provide a function to gather that from the *) (* current file ? *) let eol = del /[ \t]*\r?\n/ "\n" let comment = [ label "#comment" . del /[ \t]*;;[ \t]*/ ";; " . store /([^ \t\r\n].*[^ \t\r\n]|[^ \t\r\n])/ . eol ] let empty = [ eol ] let dels = Util.del_str let del_ws = Util.del_ws_spc let header = [ label "registry" . store /[a-zA-Z0-9 \t]*[a-zA-Z0-9]/ ] . del /[ \t]*Version[ \t]*/ " Version " . [ label "version" . store /[0-9.]+/ ] . eol let qstr = let re = /([^"\n]|\\\\.)*/ - /@|"@"/ in (* " Relax, emacs *) dels "\"" . store re . dels "\"" let typed_val = ([ label "type" . store /dword|hex(\\([0-9]+\\))?/ ] . dels ":" . [ label "value" . store /[a-zA-Z0-9,()]+(\\\\\r?\n[ \t]*[a-zA-Z0-9,]+)*/]) |([ label "type" . store /str\\([0-9]+\\)/ ] . dels ":" . dels "\"" . [ label "value" . store /[^"\n]*/ ] . dels "\"") (* " Relax, emacs *) let entry = let qkey = [ label "key" . qstr ] in let eq = del /[ \t]*=[ \t]*/ "=" in let qstore = [ label "value" . qstr ] in [ label "entry" . qkey . eq . (qstore|typed_val) . eol ] |[label "anon" . del /"?@"?/ "@" . eq . (qstore|typed_val) .eol ] let section = let ts = [ label "timestamp" . store Rx.integer ] in [ label "section" . del /[ \t]*\\[/ "[" . store /[^]\n]+/ . dels "]" . (del_ws . ts)? . eol . (entry|empty|comment)* ] let lns = header . (empty|comment)* . section* PK ! ���M M lenses/dist/syslog.augnu �[��� (* Module: Syslog parses /etc/syslog.conf Author: Mathieu Arnold <mat@FreeBSD.org> About: Reference This lens tries to keep as close as possible to `man 5 resolv.conf` where possible. An online source being : http://www.freebsd.org/cgi/man.cgi?query=syslog.conf&sektion=5 About: Licence This file is licensed under the BSD License. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/syslog.conf. See <filter>. *) module Syslog = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Comments and empty lines *) (* Variable: empty *) let empty = Util.empty (* Variable: eol *) let eol = Util.eol (* Variable: sep_tab *) let sep_tab = del /([ \t]+|[ \t]*\\\\\n[ \t]*)/ "\t" (* Variable: sep_tab_opt *) let sep_tab_opt = del /([ \t]*|[ \t]*\\\\\n[ \t]*)/ "" (* View: comment Map comments into "#comment" nodes Can't use Util.comment as #+ and #! have a special meaning. However, '# !' and '# +' have no special meaning so they should be allowed. *) let comment_gen (space:regexp) (sto:regexp) = [ label "#comment" . del (Rx.opt_space . "#" . space) "# " . store sto . eol ] let comment = let comment_withsign = comment_gen Rx.space /([!+-].*[^ \t\n]|[!+-])/ in let comment_nosign = comment_gen Rx.opt_space /([^ \t\n+!-].*[^ \t\n]|[^ \t\n+!-])/ in comment_withsign | comment_nosign (* Group: single characters macro *) (* Variable: comma Deletes a comma and default to it *) let comma = sep_tab_opt . Util.del_str "," . sep_tab_opt (* Variable: colon Deletes a colon and default to it *) let colon = sep_tab_opt . Util.del_str ":" . sep_tab_opt (* Variable: semicolon Deletes a semicolon and default to it *) let semicolon = sep_tab_opt . Util.del_str ";" . sep_tab_opt (* Variable: dot Deletes a dot and default to it *) let dot = Util.del_str "." (* Variable: pipe Deletes a pipe and default to it *) let pipe = Util.del_str "|" (* Variable: plus Deletes a plus and default to it *) let plus = Util.del_str "+" (* Variable: bang Deletes a bang and default to it *) let bang = Util.del_str "!" (* Variable: opt_hash deletes an optional # sign *) let opt_hash = del /#?/ "" (* Variable: opt_plus deletes an optional + sign *) let opt_plus = del /\+?/ "" (* Group: various macros *) (* Variable: word our version can't start with [_.-] because it would mess up the grammar *) let word = /[A-Za-z0-9][A-Za-z0-9_.-]*/ (* Variable: comparison a comparison is an optional ! with optionally some of [<=>] *) let comparison = /(!|[<=>]+|![<=>]+)/ (* Variable: protocol @ means UDP @@ means TCP *) let protocol = /@{1,2}/ (* Variable: token alphanum or "*" *) let token = /([A-Za-z0-9]+|\*)/ (* Variable: file_r a file begins with a / and get almost anything else after *) let file_r = /\/[^ \t\n;]+/ (* Variable: loghost_r Matches a hostname, that is labels speparated by dots, labels can't start or end with a "-". maybe a bit too complicated for what it's worth *) let loghost_r = /[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?)*/ | "[" . Rx.ipv6 . "]" (* Group: Function *) (* View: label_opt_list Uses Build.opt_list to generate a list of labels Parameters: l:string - the label name r:lens - the lens going after the label s:lens - the separator lens passed to Build.opt_list *) let label_opt_list (l:string) (r:lens) (s:lens) = Build.opt_list [ label l . r ] s (* View: label_opt_list_or Either label_opt_list matches something or it emits a single label with the "or" string. Parameters: l:string - the label name r:lens - the lens going after the label s:lens - the separator lens passed to Build.opt_list or:string - the string used if the label_opt_list does not match anything *) let label_opt_list_or (l:string) (r:lens) (s:lens) (or:string) = ( label_opt_list l r s | [ label l . store or ] ) (************************************************************************ * Group: LENSE DEFINITION *************************************************************************) (* Group: selector *) (* View: facilities a list of facilities, separated by commas *) let facilities = label_opt_list "facility" (store token) comma (* View: selector a selector is a list of facilities, an optional comparison and a level *) let selector = facilities . dot . [ label "comparison" . store comparison]? . [ label "level" . store token ] (* View: selectors a list of selectors, separated by semicolons *) let selectors = label_opt_list "selector" selector semicolon (* Group: action *) (* View: file a file may start with a "-" meaning it does not gets sync'ed everytime *) let file = [ Build.xchgs "-" "no_sync" ]? . [ label "file" . store file_r ] (* View: loghost a loghost is an @ sign followed by the hostname and a possible port *) let loghost = [label "protocol" . store protocol] . [ label "hostname" . store loghost_r ] . (colon . [ label "port" . store /[0-9]+/ ] )? (* View: users a list of users or a "*" *) let users = label_opt_list_or "user" (store word) comma "*" (* View: logprogram a log program begins with a pipe *) let logprogram = pipe . [ label "program" . store /[^ \t\n][^\n]+[^ \t\n]/ ] (* View: discard discards matching messages *) let discard = [ label "discard" . Util.del_str "~" ] (* View: action an action is either a file, a host, users, a program, or discard *) let action = (file | loghost | users | logprogram | discard) (* Group: Entry *) (* View: entry an entry contains selectors and an action *) let entry = [ label "entry" . selectors . sep_tab . [ label "action" . action ] . eol ] (* View: entries entries are either comments/empty lines or entries *) let entries = (empty | comment | entry )* (* Group: Program matching *) (* View: programs a list of programs *) let programs = label_opt_list_or "program" (store word) comma "*" (* View: program a program begins with an optional hash, a bang, and an optional + or - *) let program = [ label "program" . opt_hash . bang . ( opt_plus | [ Build.xchgs "-" "reverse" ] ) . programs . eol . entries ] (* Group: Hostname maching *) (* View: hostnames a list of hostnames *) let hostnames = label_opt_list_or "hostname" (store Rx.word) comma "*" (* View: hostname a program begins with an optional hash, and a + or - *) let hostname = [ label "hostname" . opt_hash . ( plus | [ Build.xchgs "-" "reverse" ] ) . hostnames . eol . entries ] (* Group: Top of the tree *) let include = [ key "include" . sep_tab . store file_r . eol ] (* View: lns generic entries then programs or hostnames matching blocs *) let lns = entries . ( program | hostname | include )* (* Variable: filter all you need is /etc/syslog.conf *) let filter = incl "/etc/syslog.conf" let xfm = transform lns filter PK ! i�)� � lenses/dist/updatedb.augnu �[��� (* Module: UpdateDB Parses /etc/updatedb.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 updatedb.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/updatedb.conf. See <filter>. About: Examples The <Test_UpdateDB> file contains various examples and tests. *) module UpdateDB = autoload xfm (* View: list A list entry *) let list = let entry = [ label "entry" . store Rx.no_spaces ] in let entry_list = Build.opt_list entry Sep.space in [ key /PRUNE(FS|NAMES|PATHS)/ . Sep.space_equal . Quote.do_dquote entry_list . Util.doseol ] (* View: bool A boolean entry *) let bool = [ key "PRUNE_BIND_MOUNTS" . Sep.space_equal . Quote.do_dquote (store /[01]|no|yes/) . Util.doseol ] (* View: lns The <UpdateDB> lens *) let lns = (Util.empty|Util.comment|list|bool)* (* Variable: filter The filter *) let filter = incl "/etc/updatedb.conf" let xfm = transform lns filter PK ! Mlv�1 1 lenses/dist/gdm.augnu �[��� (* Gdm module for Augeas *) (* Author: Free Ekanayaka <freek@64studio.com> *) (* *) module Gdm = autoload xfm (************************************************************************ * INI File settings *************************************************************************) let comment = IniFile.comment IniFile.comment_re IniFile.comment_default let sep = IniFile.sep IniFile.sep_re IniFile.sep_default let empty = IniFile.empty (************************************************************************ * ENTRY * Entry keywords can be bare digits as well (the [server] section) *************************************************************************) let entry_re = ( /[A-Za-z0-9][A-Za-z0-9._-]*/ ) let entry = IniFile.entry entry_re sep comment (************************************************************************ * TITLE * * We use IniFile.title_label because there can be entries * outside of sections whose labels would conflict with section names *************************************************************************) let title = IniFile.title ( IniFile.record_re - ".anon" ) let record = IniFile.record title entry let record_anon = [ label ".anon" . ( entry | empty )+ ] (************************************************************************ * LENS & FILTER * There can be entries before any section * IniFile.entry includes comment management, so we just pass entry to lns *************************************************************************) let lns = record_anon? . record* let filter = (incl "/etc/gdm/gdm.conf*") . (incl "/etc/gdm/custom.conf") . Util.stdexcl let xfm = transform lns filter PK ! �V�� � lenses/dist/simplevars.augnu �[��� (* Module: Simplevars Parses simple key = value conffiles Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Examples The <Test_Simplevars> file contains various examples and tests. *) module Simplevars = autoload xfm (* Variable: to_comment_re The regexp to match the value *) let to_comment_re = let to_comment_squote = /'[^\n']*'/ in let to_comment_dquote = /"[^\n"]*"/ in let to_comment_noquote = /[^\n \t'"#][^\n#]*[^\n \t#]|[^\n \t'"#]/ in to_comment_squote | to_comment_dquote | to_comment_noquote (* View: entry *) let entry = let some_value = Sep.space_equal . store to_comment_re (* Avoid ambiguity in tree by making a subtree here *) in let empty_value = [del /[ \t]*=/ "="] . store "" in [ Util.indent . key Rx.word . (some_value? | empty_value) . (Util.eol | Util.comment_eol) ] (* View: lns *) let lns = (Util.empty | Util.comment | entry)* (* Variable: filter *) let filter = incl "/etc/kernel-img.conf" . incl "/etc/kerneloops.conf" . incl "/etc/wgetrc" . incl "/etc/zabbix/*.conf" . incl "/etc/audit/auditd.conf" . incl "/etc/mixerctl.conf" . incl "/etc/wsconsctlctl.conf" . incl "/etc/ocsinventory/ocsinventory-agent.cfg" let xfm = transform lns filter PK ! �$��Y Y lenses/dist/channels.augnu �[��� (* Module: Channels Parses channels.conf files Author: Raphael Pinson <raphink@gmail.com> About: Reference See http://linuxtv.org/vdrwiki/index.php/Syntax_of_channels.conf About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to channels.conf files. About: Examples The <Test_Channels> file contains various examples and tests. *) module Channels = (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: eol *) let eol = Util.eol (* View: comment *) let comment = Util.comment_generic /;[ \t]*/ "; " (* View: equal *) let equal = Sep.equal (* View: colon *) let colon = Sep.colon (* View: comma *) let comma = Sep.comma (* View: semicol *) let semicol = Util.del_str ";" (* View: plus *) let plus = Util.del_str "+" (* View: arroba *) let arroba = Util.del_str "@" (* View: no_colon *) let no_colon = /[^: \t\n][^:\n]*[^: \t\n]|[^:\n]/ (* View: no_semicolon *) let no_semicolon = /[^;\n]+/ (************************************************************************ * Group: FUNCTIONS *************************************************************************) (* View: field A generic field *) let field (name:string) (sto:regexp) = [ label name . store sto ] (* View: field_no_colon A <field> storing <no_colon> *) let field_no_colon (name:string) = field name no_colon (* View: field_int A <field> storing <Rx.integer> *) let field_int (name:string) = field name Rx.integer (* View: field_word A <field> storing <Rx.word> *) let field_word (name:string) = field name Rx.word (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: vpid *) let vpid = let codec = [ equal . label "codec" . store Rx.integer ] in let vpid_entry (lbl:string) = [ label lbl . store Rx.integer . codec? ] in vpid_entry "vpid" . ( plus . vpid_entry "vpid_pcr" )? (* View: langs *) let langs = let lang = [ label "lang" . store Rx.word ] in Build.opt_list lang plus (* View: apid *) let apid = let codec = [ arroba . label "codec" . store Rx.integer ] in let options = equal . ( (langs . codec?) | codec ) in let apid_entry (lbl:string) = [ label lbl . store Rx.integer . options? ] in Build.opt_list (apid_entry "apid") comma . ( semicol . Build.opt_list (apid_entry "apid_dolby") comma )? (* View: tpid *) let tpid = let tpid_bylang = [ label "tpid_bylang" . store Rx.integer . (equal . langs)? ] in field_int "tpid" . ( semicol . Build.opt_list tpid_bylang comma )? (* View: caid *) let caid = let caid_entry = [ label "caid" . store Rx.word ] in Build.opt_list caid_entry comma (* View: entry *) let entry = [ label "entry" . store no_semicolon . (semicol . field_no_colon "provider")? . colon . field_int "frequency" . colon . field_word "parameter" . colon . field_word "signal_source" . colon . field_int "symbol_rate" . colon . vpid . colon . apid . colon . tpid . colon . caid . colon . field_int "sid" . colon . field_int "nid" . colon . field_int "tid" . colon . field_int "rid" . eol ] (* View: entry_or_comment *) let entry_or_comment = entry | comment (* View: group *) let group = [ Util.del_str ":" . label "group" . store no_colon . eol . entry_or_comment* ] (* View: lns *) let lns = entry_or_comment* . group* PK ! ���= = lenses/dist/ldso.augnu �[��� (* Module: Keepalived Parses /etc/ld.so.conf and /etc/ld.so.conf.d/* Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/ld.so.conf and /etc/ld.so.conf.d/*. See <filter>. About: Examples The <Test_Ldso> file contains various examples and tests. *) module LdSo = autoload xfm (* View: path *) let path = [ label "path" . store /[^# \t\n][^ \t\n]*/ . Util.eol ] (* View: include *) let include = Build.key_value_line "include" Sep.space (store Rx.fspath) (* View: hwcap *) let hwcap = let hwcap_val = [ label "bit" . store Rx.integer ] . Sep.space . [ label "name" . store Rx.word ] in Build.key_value_line "hwcap" Sep.space hwcap_val (* View: lns *) let lns = (Util.empty | Util.comment | path | include | hwcap)* (* Variable: filter *) let filter = incl "/etc/ld.so.conf" . incl "/etc/ld.so.conf.d/*" . Util.stdexcl let xfm = transform lns filter PK ! ��)� lenses/dist/lvm.augnu �[��� (* Module: LVM Parses LVM metadata. Author: Gabriel de Perthuis <g2p.code+augeas@gmail.com> About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to files in /etc/lvm/backup and /etc/lvm/archive. About: Examples The <Test_LVM> file contains various examples and tests. *) module LVM = autoload xfm (* See lvm2/libdm/libdm-config.c for tokenisation; * libdm uses a blacklist but I prefer the safer whitelist approach. *) (* View: identifier * The left hand side of a definition *) let identifier = /[a-zA-Z0-9_-]+/ (* strings can contain backslash-escaped dquotes, but I don't know * how to get the message across to augeas *) let str = [label "str". Quote.do_dquote (store /([^\"]|\\\\.)*/)] let int = [label "int". store Rx.relinteger] (* View: flat_literal * A literal without structure *) let flat_literal = int|str (* allow multiline and mixed int/str, used for raids and stripes *) (* View: list * A list containing flat literals *) let list = [ label "list" . counter "list" . del /\[[ \t\n]*/ "[" .([seq "list". flat_literal . del /,[ \t\n]*/ ", "]* . [seq "list". flat_literal . del /[ \t\n]*/ ""])? . Util.del_str "]"] (* View: val * Any value that appears on the right hand side of an assignment *) let val = flat_literal | list (* View: nondef * A line that doesn't contain a statement *) let nondef = Util.empty | Util.comment (* Build.block couldn't be reused, because of recursion and * a different philosophy of whitespace handling. *) (* View: def * An assignment, or a block containing definitions *) let rec def = [ Util.indent . key identifier . ( del /[ \t]*\{\n/ " {\n" .[label "dict".(nondef | def)*] . Util.indent . Util.del_str "}\n" |Sep.space_equal . val . Util.comment_or_eol)] (* View: lns * The main lens *) let lns = (nondef | def)* let filter = incl "/etc/lvm/archive/*.vg" . incl "/etc/lvm/backup/*" . incl "/etc/lvm/lvm.conf" . Util.stdexcl let xfm = transform lns filter PK ! �#� � lenses/dist/cgrules.augnu �[��� (* Module: cgrules Parses /etc/cgrules.conf Author: Raphael Pinson <raphink@gmail.com> Ivana Hutarova Varekova <varekova@redhat.com> About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage Sample usage of this lens in augtool: About: Configuration files This lens applies to /etc/cgconfig.conf. See <filter>. *) module Cgrules = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Separators *) (* Variable: ws *) let ws = del /[ \t]+/ " " (* Group: Comments and empty lines *) (* Variable: eol *) let eol = Util.eol (* Variable: comment *) let comment = Util.comment (* Variable: empty *) let empty = Util.empty (* Group: Generic primitive definitions *) (* Variable: name *) let name = /[^@%# \t\n][^ \t\n]*/ (* Variable: ctrl_key *) let ctrl_key = /[^ \t\n\/]+/ (* Variable: ctrl_value *) let ctrl_value = /[^ \t\n]+/ (************************************************************************ * Group: CONTROLLER *************************************************************************) (* Variable: controller *) let controller = ws . [ key ctrl_key . ws . store ctrl_value ] let more_controller = Util.del_str "%" . controller . eol (************************************************************************ * Group: RECORDS *************************************************************************) let generic_record (lbl:string) (lns:lens) = [ label lbl . lns . controller . eol . more_controller* ] (* Variable: user_record *) let user_record = generic_record "user" (store name) (* Variable: group_record *) let group_record = generic_record "group" (Util.del_str "@" . store name) (************************************************************************ * Group: LENS & FILTER *************************************************************************) (* View: lns The main lens, any amount of * <empty> lines * <comment> * <user_record> * <group_record> *) let lns = ( empty | comment | user_record | group_record )* let xfm = transform lns (incl "/etc/cgrules.conf") PK ! �6�� � lenses/dist/authselectpam.augnu �[��� (* Module: AuthselectPam Parses /etc/authselect/custom/*/*-auth and /etc/authselect/custom/*/postlogin files Author: Heston Snodgrass <heston.snodgrass@puppet.com> based on pam.aug by David Lutterkort <lutter@redhat.com> About: Reference This lens tries to keep as close as possible to `man pam.conf` where possible. This lens supports authselect templating syntax as can be found in `man authselect-profiles`. About: Licence This file is licensed under the LGPL v2+, like the rest of Augeas. About: Lens Usage About: Configuration files This lens also autoloads /etc/authselect/custom/*/*-auth and /etc/authselect/custom/*/postlogin because these files are PAM template files on machines that have authselect custom profiles. *) module AuthselectPam = autoload xfm (* The Pam space does not work for certain parts of the authselect syntax so we need our own whitespace *) let reg_ws = del /([ \t])/ " " (* This is close the the same as argument from pam.aug, but curly braces are accounted for *) let argument = /(\[[^]{}#\n]+\]|[^[{#\n \t\\][^#\n \t\\]*)/ (* The various types of conditional statements that can exist in authselect PAM files *) let authselect_conditional_type = /(continue if|stop if|include if|exclude if|imply|if)/ (* Basic logical operators supported by authselect templates *) let authselect_logic_stmt = [ reg_ws . key /(and|or|not)/ ] (* authselect features inside conditional templates *) let authselect_feature = [ label "feature" . Quote.do_dquote (store /([a-z0-9-]+)/) ] (* authselect templates can substitute text if a condition is met. *) (* The sytax for this is `<conditional>:<what to sub on true>|<what to sub on false>` *) (* Both result forms are optional *) let authselect_on_true = [ label "on_true" . Util.del_str ":" . store /([^#{}:|\n\\]+)/ ] let authselect_on_false = [ label "on_false" . Util.del_str "|" . store /([^#{}:|\n\\]+)/ ] (* Features in conditionals can be grouped together so that logical operations can be resolved for the entire group *) let authselect_feature_group = [ label "feature_group" . Util.del_str "(" . authselect_feature . authselect_logic_stmt . reg_ws . authselect_feature . (authselect_logic_stmt . reg_ws . authselect_feature)* . Util.del_str ")" ] (* Represents a single, full authselect conditional template *) let authselect_conditional = [ Pam.space . Util.del_str "{" . label "authselect_conditional" . store authselect_conditional_type . authselect_logic_stmt* . ( reg_ws . authselect_feature | reg_ws . authselect_feature_group) . authselect_on_true? . authselect_on_false? . Util.del_str "}" ] (* Shared with PamConf *) let record = [ label "optional" . del "-" "-" ]? . [ label "type" . store Pam.types ] . Pam.space . [ label "control" . store Pam.control] . Pam.space . [ label "module" . store Pam.word ] . (authselect_conditional | [ Pam.space . label "argument" . store argument ])* . Pam.comment_or_eol let record_svc = [ seq "record" . Pam.indent . record ] let lns = ( Pam.empty | Pam.comment | Pam.include | record_svc ) * let filter = incl "/etc/authselect/custom/*/*-auth" . incl "/etc/authselect/custom/*/postlogin" . Util.stdexcl let xfm = transform lns filter (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ���� � ) lenses/dist/tests/test_openshift_http.augnu �[��� (* Module: Test_OpenShift_Http Provides unit tests and examples for the <OpenShift_Http> lens. *) module Test_OpenShift_Http = (* Variable: conf *) let conf = "Listen 127.0.0.1:8080 User apache Group apache include /etc/httpd/conf.d/ruby193-passenger.conf PassengerUser apache PassengerMaxPoolSize 80 PassengerMinInstances 2 PassengerPreStart http://127.0.0.1:8080/ PassengerUseGlobalQueue off RackBaseURI /broker PassengerRuby /var/www/openshift/broker/script/broker_ruby <Directory /var/www/openshift/broker/httpd/root/broker> Options -MultiViews </Directory> " (* Variable: new_conf *) let new_conf = "Listen 127.0.0.1:8080 User nobody Group apache include /etc/httpd/conf.d/ruby193-passenger.conf PassengerUser apache PassengerMaxPoolSize 80 PassengerMinInstances 2 PassengerPreStart http://127.0.0.1:8080/ PassengerUseGlobalQueue off RackBaseURI /broker PassengerRuby /var/www/openshift/broker/script/broker_ruby <Directory /var/www/openshift/broker/httpd/root/broker> Options -MultiViews </Directory> " let lns = OpenShift_Http.lns (* Test: OpenShift_Http.lns * Get test against tree structure *) test lns get conf = { "directive" = "Listen" {"arg" = "127.0.0.1:8080" } } { "directive" = "User" { "arg" = "apache" } } { "directive" = "Group" { "arg" = "apache" } } { "directive" = "include" { "arg" = "/etc/httpd/conf.d/ruby193-passenger.conf" } } { "directive" = "PassengerUser" { "arg" = "apache" } } { "directive" = "PassengerMaxPoolSize" { "arg" = "80" } } { "directive" = "PassengerMinInstances" { "arg" = "2" } } { "directive" = "PassengerPreStart" { "arg" = "http://127.0.0.1:8080/" } } { "directive" = "PassengerUseGlobalQueue" { "arg" = "off" } } { "directive" = "RackBaseURI" { "arg" = "/broker" } } { "directive" = "PassengerRuby" { "arg" = "/var/www/openshift/broker/script/broker_ruby" } } { "Directory" { "arg" = "/var/www/openshift/broker/httpd/root/broker" } { "directive" = "Options" { "arg" = "-MultiViews" } } } (* Test: OpenShift_Http.lns * Put test changing user to nobody *) test lns put conf after set "/directive[2]/arg" "nobody" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! t��� � ! lenses/dist/tests/test_chrony.augnu �[��� (* Module: Test_Chrony Provides unit tests and examples for the <Chrony> lens. *) module Test_Chrony = let exampleconf = "# Comment #Comment ! Comment !Comment ; Comment ;Comment % Comment %Comment server ntp1.example.com server ntp2.example.com iburst server ntp3.example.com presend 2 server ntp4.example.com offline polltarget 4 server ntp5.example.com maxdelay 2 offline server ntp6.example.com maxdelay 2 iburst presend 2 xleave offset 1e-4 server ntp7.example.com iburst presend 2 offline prefer trust require server ntp8.example.com minsamples 8 maxsamples 16 version 3 server ntp9.example.com burst mindelay 0.1 asymmetry 0.5 nts filter 3 peer ntpc1.example.com pool pool1.example.com iburst maxsources 3 allow deny all cmdallow 192.168.1.0/24 cmddeny all 192.168.2.0/24 stratumweight 0 driftfile /var/lib/chrony/drift rtcsync makestep 10 -1 bindcmdaddress 127.0.0.1 bindcmdaddress ::1 bindacqdevice eth0 bindcmddevice eth0 binddevice eth0 clockprecision 10e-9 local local stratum 10 local distance 1.0 orphan keyfile /etc/chrony.keys commandkey 1 generatecommandkey manual noclientlog logchange 0.5 logdir /var/log/chrony log rtc measurements rawmeasurements statistics tracking refclocks tempcomp leapsectz right/UTC broadcast 10 192.168.1.255 broadcast 10 192.168.100.255 123 fallbackdrift 16 19 mailonchange root@localhost 0.5 maxchange 1000 1 2 maxdistance 1.0 maxdrift 100 hwtimestamp eth0 minpoll -2 txcomp 300e-9 rxcomp 645e-9 nocrossts rxfilter all hwtimestamp eth1 minsamples 10 maxsamples 20 initstepslew 30 foo.bar.com initstepslew 30 foo.bar.com baz.quz.com ratelimit interval 4 burst 16 leak 2 cmdratelimit ntsratelimit refclock SHM 0 refid SHM0 delay 0.1 offset 0.2 noselect tai stratum 3 refclock SOCK /var/run/chrony-GPS.sock pps width 0.1 refclock PPS /dev/pps0 dpoll 2 poll 3 lock SHM0 rate 5 minsamples 8 smoothtime 400 0.001 leaponly tempcomp /sys/class/hwmon/hwmon0/temp2_input 30 26000 0.0 0.000183 0.0 tempcomp /sys/class/hwmon/hwmon0/temp2_input 30 /etc/chrony.tempcomp ntpsigndsocket /var/lib/samba/ntp_signd confdir /etc/chrony.d /usr/lib/chrony.d sourcedir /etc/chrony.d /var/run/chrony.d authselectmode require dscp 46 maxntsconnections 10 nocerttimecheck 1 nosystemcert ntsservercert /etc/chrony/server.crt ntsserverkey /etc/chrony/server.key ntstrustedcerts /etc/chrony/trusted.crt ntsdumpdir /var/lib/chrony ntsntpserver foo.example.com ntsport 123 ntsprocesses 2 ntsrefresh 86400 ntsrotate 86400 " test Chrony.lns get exampleconf = { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { "#comment" = "Comment" } { } { "server" = "ntp1.example.com" } { "server" = "ntp2.example.com" { "iburst" } } { "server" = "ntp3.example.com" { "presend" = "2" } } { "server" = "ntp4.example.com" { "offline" } { "polltarget" = "4" } } { "server" = "ntp5.example.com" { "maxdelay" = "2" } { "offline" } } { "server" = "ntp6.example.com" { "maxdelay" = "2" } { "iburst" } { "presend" = "2" } { "xleave" } { "offset" = "1e-4" } } { "server" = "ntp7.example.com" { "iburst" } { "presend" = "2" } { "offline" } { "prefer" } { "trust" } { "require" } } { "server" = "ntp8.example.com" { "minsamples" = "8" } { "maxsamples" = "16" } { "version" = "3" } } { "server" = "ntp9.example.com" { "burst" } { "mindelay" = "0.1" } { "asymmetry" = "0.5" } { "nts" } { "filter" = "3" } } { "peer" = "ntpc1.example.com" } { "pool" = "pool1.example.com" { "iburst" } { "maxsources" = "3" } } { "allow" } { "deny" { "all" } } { "cmdallow" = "192.168.1.0/24" } { "cmddeny" = "192.168.2.0/24" { "all" } } { "stratumweight" = "0" } { "driftfile" = "/var/lib/chrony/drift" } { "rtcsync" } { "makestep" { "threshold" = "10" } { "limit" = "-1" } } { "bindcmdaddress" = "127.0.0.1" } { "bindcmdaddress" = "::1" } { "bindacqdevice" = "eth0" } { "bindcmddevice" = "eth0" } { "binddevice" = "eth0" } { "clockprecision" = "10e-9" } { "local" } { "local" { "stratum" = "10" } } { "local" { "distance" = "1.0" } { "orphan" } } { "keyfile" = "/etc/chrony.keys" } { "commandkey" = "1" } { "generatecommandkey" } { "manual" } { "noclientlog" } { "logchange" = "0.5" } { "logdir" = "/var/log/chrony" } { "log" { "rtc" } { "measurements" } { "rawmeasurements" } { "statistics" } { "tracking" } { "refclocks" } { "tempcomp" } } { "leapsectz" = "right/UTC" } { "broadcast" { "interval" = "10" } { "address" = "192.168.1.255" } } { "broadcast" { "interval" = "10" } { "address" = "192.168.100.255" } { "port" = "123" } } { "fallbackdrift" { "min" = "16" } { "max" = "19" } } { "mailonchange" { "emailaddress" = "root@localhost" } { "threshold" = "0.5" } } { "maxchange" { "threshold" = "1000" } { "delay" = "1" } { "limit" = "2" } } { "maxdistance" = "1.0" } { "maxdrift" = "100" } { "hwtimestamp" { "interface" = "eth0" } { "minpoll" = "-2" } { "txcomp" = "300e-9" } { "rxcomp" = "645e-9" } { "nocrossts" } { "rxfilter" = "all" } } { "hwtimestamp" { "interface" = "eth1" } { "minsamples" = "10" } { "maxsamples" = "20" } } { "initstepslew" { "threshold" = "30" } { "address" = "foo.bar.com" } } { "initstepslew" { "threshold" = "30" } { "address" = "foo.bar.com" } { "address" = "baz.quz.com" } } { "ratelimit" { "interval" = "4" } { "burst" = "16" } { "leak" = "2" } } { "cmdratelimit" } { "ntsratelimit" } { "refclock" { "driver" = "SHM" } { "parameter" = "0" } { "refid" = "SHM0" } { "delay" = "0.1" } { "offset" = "0.2" } { "noselect" } { "tai" } { "stratum" = "3" } } { "refclock" { "driver" = "SOCK" } { "parameter" = "/var/run/chrony-GPS.sock" } { "pps" } { "width" = "0.1" } } { "refclock" { "driver" = "PPS" } { "parameter" = "/dev/pps0" } { "dpoll" = "2" } { "poll" = "3" } { "lock" = "SHM0" } { "rate" = "5" } { "minsamples" = "8" } } { "smoothtime" { "maxfreq" = "400" } { "maxwander" = "0.001" } { "leaponly" } } { "tempcomp" { "sensorfile" = "/sys/class/hwmon/hwmon0/temp2_input" } { "interval" = "30" } { "t0" = "26000" } { "k0" = "0.0" } { "k1" = "0.000183" } { "k2" = "0.0" } } { "tempcomp" { "sensorfile" = "/sys/class/hwmon/hwmon0/temp2_input" } { "interval" = "30" } { "pointfile" = "/etc/chrony.tempcomp" } } { "ntpsigndsocket" = "/var/lib/samba/ntp_signd" } { "confdir" { "directory" = "/etc/chrony.d" } { "directory" = "/usr/lib/chrony.d" } } { "sourcedir" { "directory" = "/etc/chrony.d" } { "directory" = "/var/run/chrony.d" } } { "authselectmode" = "require" } { "dscp" = "46" } { "maxntsconnections" = "10" } { "nocerttimecheck" = "1" } { "nosystemcert" } { "ntsservercert" = "/etc/chrony/server.crt" } { "ntsserverkey" = "/etc/chrony/server.key" } { "ntstrustedcerts" = "/etc/chrony/trusted.crt" } { "ntsdumpdir" = "/var/lib/chrony" } { "ntsntpserver" = "foo.example.com" } { "ntsport" = "123" } { "ntsprocesses" = "2" } { "ntsrefresh" = "86400" } { "ntsrotate" = "86400" } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! T�a=�� �� & lenses/dist/tests/test_mailscanner.augnu �[��� module Test_Mailscanner = let conf = "# Main configuration file for the MailScanner E-Mail Virus Scanner %org-name% = BARUWA %org-long-name% = BARUWA MAILFW %web-site% = www.baruwa.com %etc-dir% = /etc/MailScanner %reports-base% = /etc/MailScanner/reports %report-dir% = /etc/MailScanner/reports/en %rules-dir% = /etc/MailScanner/rules %mcp-dir% = /etc/MailScanner/mcp %spool-dir% = /var/spool/MailScanner %signature-dir% = /etc/MailScanner/baruwa/signatures %brules-dir% = /etc/MailScanner/baruwa/rules Max Children = 5 Run As User = exim Run As Group = exim Queue Scan Interval = 6 Incoming Queue Dir = /var/spool/exim.in/input Outgoing Queue Dir = /var/spool/exim/input Incoming Work Dir = %spool-dir%/incoming Quarantine Dir = %spool-dir%/quarantine PID file = /var/run/MailScanner/MailScanner.pid Restart Every = 7200 MTA = exim Sendmail = /usr/sbin/exim -C /etc/exim/exim_out.conf Sendmail2 = /usr/sbin/exim -C /etc/exim/exim_out.conf Incoming Work User = exim Incoming Work Group = clam Incoming Work Permissions = 0640 Quarantine User = exim Quarantine Group = baruwa Quarantine Permissions = 0660 Max Unscanned Bytes Per Scan = 100m Max Unsafe Bytes Per Scan = 50m Max Unscanned Messages Per Scan = 30 Max Unsafe Messages Per Scan = 30 Max Normal Queue Size = 800 Scan Messages = %rules-dir%/scan.messages.rules Reject Message = no Maximum Processing Attempts = 6 Processing Attempts Database = %spool-dir%/incoming/Processing.db Maximum Attachments Per Message = 200 Expand TNEF = yes Use TNEF Contents = replace Deliver Unparsable TNEF = no TNEF Expander = /usr/bin/tnef --maxsize=100000000 TNEF Timeout = 120 File Command = /usr/sbin/file-wrapper File Timeout = 20 Gunzip Command = /bin/gunzip Gunzip Timeout = 50 Unrar Command = /usr/bin/unrar Unrar Timeout = 50 Find UU-Encoded Files = no Maximum Message Size = %brules-dir%/message.size.rules Maximum Attachment Size = -1 Minimum Attachment Size = -1 Maximum Archive Depth = 4 Find Archives By Content = yes Unpack Microsoft Documents = yes Zip Attachments = no Attachments Zip Filename = MessageAttachments.zip Attachments Min Total Size To Zip = 100k Attachment Extensions Not To Zip = .zip .rar .gz .tgz .jpg .jpeg .mpg .mpe .mpeg .mp3 .rpm .htm .html .eml Add Text Of Doc = no Antiword = /usr/bin/antiword -f Antiword Timeout = 50 Unzip Maximum Files Per Archive = 0 Unzip Maximum File Size = 50k Unzip Filenames = *.txt *.ini *.log *.csv Unzip MimeType = text/plain Virus Scanning = %brules-dir%/virus.checks.rules Virus Scanners = auto Virus Scanner Timeout = 300 Deliver Disinfected Files = no Silent Viruses = HTML-IFrame All-Viruses Still Deliver Silent Viruses = no Non-Forging Viruses = Joke/ OF97/ WM97/ W97M/ eicar Spam-Virus Header = X-%org-name%-BaruwaFW-SpamVirus-Report: Virus Names Which Are Spam = Sanesecurity.Spam*UNOFFICIAL HTML/* *Phish* *Suspected-phishing_safebrowsing* Block Encrypted Messages = no Block Unencrypted Messages = no Allow Password-Protected Archives = yes Check Filenames In Password-Protected Archives = yes Allowed Sophos Error Messages = Sophos IDE Dir = /opt/sophos-av/lib/sav Sophos Lib Dir = /opt/sophos-av/lib Monitors For Sophos Updates = /opt/sophos-av/lib/sav/*.ide Monitors for ClamAV Updates = /var/lib/clamav/*.cvd ClamAVmodule Maximum Recursion Level = 8 ClamAVmodule Maximum Files = 1000 ClamAVmodule Maximum File Size = 10000000 ClamAVmodule Maximum Compression Ratio = 250 Clamd Port = 3310 Clamd Socket = /var/run/clamav/clamd.sock Clamd Lock File = Clamd Use Threads = no ClamAV Full Message Scan = yes Fpscand Port = 10200 Dangerous Content Scanning = %rules-dir%/content.scanning.rules Allow Partial Messages = no Allow External Message Bodies = no Find Phishing Fraud = yes Also Find Numeric Phishing = yes Use Stricter Phishing Net = yes Highlight Phishing Fraud = yes Phishing Safe Sites File = %etc-dir%/phishing.safe.sites.conf Phishing Bad Sites File = %etc-dir%/phishing.bad.sites.conf Country Sub-Domains List = %etc-dir%/country.domains.conf Allow IFrame Tags = disarm Allow Form Tags = disarm Allow Script Tags = disarm Allow WebBugs = disarm Ignored Web Bug Filenames = spacer pixel.gif pixel.png gap Known Web Bug Servers = msgtag.com Web Bug Replacement = https://datafeeds.baruwa.com/1x1spacer.gif Allow Object Codebase Tags = disarm Convert Dangerous HTML To Text = no Convert HTML To Text = no Archives Are = zip rar ole Allow Filenames = Deny Filenames = Filename Rules = %rules-dir%/filename.rules Allow Filetypes = Allow File MIME Types = Deny Filetypes = Deny File MIME Types = Filetype Rules = %rules-dir%/filetype.rules Archives: Allow Filenames = Archives: Deny Filenames = Archives: Filename Rules = %etc-dir%/archives.filename.rules.conf Archives: Allow Filetypes = Archives: Allow File MIME Types = Archives: Deny Filetypes = Archives: Deny File MIME Types = Archives: Filetype Rules = %etc-dir%/archives.filetype.rules.conf Default Rename Pattern = __FILENAME__.disarmed Quarantine Infections = yes Quarantine Silent Viruses = no Quarantine Modified Body = no Quarantine Whole Message = yes Quarantine Whole Messages As Queue Files = no Keep Spam And MCP Archive Clean = yes Language Strings = %brules-dir%/languages.rules Rejection Report = %brules-dir%/rejectionreport.rules Deleted Bad Content Message Report = %brules-dir%/deletedcontentmessage.rules Deleted Bad Filename Message Report = %brules-dir%/deletedfilenamemessage.rules Deleted Virus Message Report = %brules-dir%/deletedvirusmessage.rules Deleted Size Message Report = %brules-dir%/deletedsizemessage.rules Stored Bad Content Message Report = %brules-dir%/storedcontentmessage.rules Stored Bad Filename Message Report = %brules-dir%/storedfilenamemessage.rules Stored Virus Message Report = %brules-dir%/storedvirusmessage.rules Stored Size Message Report = %brules-dir%/storedsizemessage.rules Disinfected Report = %brules-dir%/disinfectedreport.rules Inline HTML Signature = %brules-dir%/html.sigs.rules Inline Text Signature = %brules-dir%/text.sigs.rules Signature Image Filename = %brules-dir%/sig.imgs.names.rules Signature Image <img> Filename = %brules-dir%/sig.imgs.rules Inline HTML Warning = %brules-dir%/inlinewarninghtml.rules Inline Text Warning = %brules-dir%/inlinewarningtxt.rules Sender Content Report = %brules-dir%/sendercontentreport.rules Sender Error Report = %brules-dir%/sendererrorreport.rules Sender Bad Filename Report = %brules-dir%/senderfilenamereport.rules Sender Virus Report = %brules-dir%/sendervirusreport.rules Sender Size Report = %brules-dir%/sendersizereport.rules Hide Incoming Work Dir = yes Include Scanner Name In Reports = yes Mail Header = X-%org-name%-BaruwaFW: Spam Header = X-%org-name%-BaruwaFW-SpamCheck: Spam Score Header = X-%org-name%-BaruwaFW-SpamScore: Information Header = X-%org-name%-BaruwaFW-Information: Add Envelope From Header = yes Add Envelope To Header = no Envelope From Header = X-BARUWA-BaruwaFW-From: Envelope To Header = X-%org-name%-BaruwaFW-To: ID Header = X-%org-name%-BaruwaFW-ID: IP Protocol Version Header = Spam Score Character = s SpamScore Number Instead Of Stars = no Minimum Stars If On Spam List = 0 Clean Header Value = Found to be clean Infected Header Value = Found to be infected Disinfected Header Value = Disinfected Information Header Value = Please contact %org-long-name% for more information Detailed Spam Report = yes Include Scores In SpamAssassin Report = yes Always Include SpamAssassin Report = no Multiple Headers = add Place New Headers At Top Of Message = yes Hostname = the %org-name% ($HOSTNAME) Baruwa Sign Messages Already Processed = no Sign Clean Messages = %brules-dir%/sign.clean.msgs.rules Attach Image To Signature = yes Attach Image To HTML Message Only = yes Allow Multiple HTML Signatures = no Dont Sign HTML If Headers Exist = Mark Infected Messages = yes Mark Unscanned Messages = no Unscanned Header Value = Not scanned: please contact %org-long-name% for details Remove These Headers = X-Mozilla-Status: X-Mozilla-Status2: Deliver Cleaned Messages = yes Notify Senders = no Notify Senders Of Viruses = no Notify Senders Of Blocked Filenames Or Filetypes = no Notify Senders Of Blocked Size Attachments = no Notify Senders Of Other Blocked Content = no Never Notify Senders Of Precedence = list bulk Scanned Modify Subject = no Scanned Subject Text = {Scanned} Virus Modify Subject = no Virus Subject Text = {Virus?} Filename Modify Subject = no Filename Subject Text = {Filename?} Content Modify Subject = no Content Subject Text = {Dangerous Content?} Size Modify Subject = no Size Subject Text = {Size} Disarmed Modify Subject = no Disarmed Subject Text = {Disarmed} Phishing Modify Subject = yes Phishing Subject Text = {Suspected Phishing?} Spam Modify Subject = no Spam Subject Text = {Spam?} High Scoring Spam Modify Subject = no High Scoring Spam Subject Text = {Spam?} Warning Is Attachment = yes Attachment Warning Filename = %org-name%-Attachment-Warning.txt Attachment Encoding Charset = ISO-8859-1 Archive Mail = Missing Mail Archive Is = file Send Notices = no Notices Include Full Headers = yes Hide Incoming Work Dir in Notices = yes Notice Signature = -- \\n%org-name%\\nEmail Security\\n%website% Notices From = Baruwa Notices To = postmaster Local Postmaster = postmaster Spam List Definitions = %etc-dir%/spam.lists.conf Virus Scanner Definitions = %etc-dir%/virus.scanners.conf Spam Checks = %brules-dir%/spam.checks.rules Spam List = Spam Domain List = Spam Lists To Be Spam = 1 Spam Lists To Reach High Score = 3 Spam List Timeout = 10 Max Spam List Timeouts = 7 Spam List Timeouts History = 10 Is Definitely Not Spam = %brules-dir%/approved.senders.rules Is Definitely Spam = %brules-dir%/banned.senders.rules Definite Spam Is High Scoring = yes Ignore Spam Whitelist If Recipients Exceed = 20 Max Spam Check Size = 4000k Use Watermarking = no Add Watermark = yes Check Watermarks With No Sender = yes Treat Invalid Watermarks With No Sender as Spam = nothing Check Watermarks To Skip Spam Checks = yes Watermark Secret = %org-name%-BaruwaFW-Secret Watermark Lifetime = 604800 Watermark Header = X-%org-name%-BaruwaFW-Watermark: Use SpamAssassin = yes Max SpamAssassin Size = 800k Required SpamAssassin Score = %brules-dir%/spam.score.rules High SpamAssassin Score = %brules-dir%/highspam.score.rules SpamAssassin Auto Whitelist = yes SpamAssassin Timeout = 75 Max SpamAssassin Timeouts = 10 SpamAssassin Timeouts History = 30 Check SpamAssassin If On Spam List = yes Include Binary Attachments In SpamAssassin = no Spam Score = yes Cache SpamAssassin Results = yes SpamAssassin Cache Database File = %spool-dir%/incoming/SpamAssassin.cache.db Rebuild Bayes Every = 0 Wait During Bayes Rebuild = no Use Custom Spam Scanner = no Max Custom Spam Scanner Size = 20k Custom Spam Scanner Timeout = 20 Max Custom Spam Scanner Timeouts = 10 Custom Spam Scanner Timeout History = 20 Spam Actions = %brules-dir%/spam.actions.rules High Scoring Spam Actions = %brules-dir%/highspam.actions.rules Non Spam Actions = %rules-dir%/nonspam.actions.rules SpamAssassin Rule Actions = Sender Spam Report = %brules-dir%/senderspamreport.rules Sender Spam List Report = %brules-dir%/senderspamrblreport.rules Sender SpamAssassin Report = %brules-dir%/senderspamsareport.rules Inline Spam Warning = %brules-dir%/inlinespamwarning.rules Recipient Spam Report = %brules-dir%/recipientspamreport.rules Enable Spam Bounce = %rules-dir%/bounce.rules Bounce Spam As Attachment = no Syslog Facility = mail Log Speed = no Log Spam = no Log Non Spam = no Log Delivery And Non-Delivery = no Log Permitted Filenames = no Log Permitted Filetypes = no Log Permitted File MIME Types = no Log Silent Viruses = no Log Dangerous HTML Tags = no Log SpamAssassin Rule Actions = no SpamAssassin Temporary Dir = /var/spool/MailScanner/incoming/SpamAssassin-Temp SpamAssassin User State Dir = SpamAssassin Install Prefix = SpamAssassin Site Rules Dir = /etc/mail/spamassassin SpamAssassin Local Rules Dir = SpamAssassin Local State Dir = SpamAssassin Default Rules Dir = DB DSN = DBI:Pg:database=baruwa DB Username = baruwa DB Password = password SQL Serial Number = SELECT MAX(value) AS confserialnumber FROM configurations WHERE internal='confserialnumber' SQL Quick Peek = SELECT dbvalue(value) AS value FROM quickpeek WHERE external = ? AND (hostname = ? OR hostname='default') LIMIT 1 SQL Config = SELECT internal, dbvalue(value) AS value, hostname FROM quickpeek WHERE hostname=? OR hostname='default' SQL Ruleset = SELECT row_number, ruleset AS rule FROM msrulesets WHERE name=? SQL SpamAssassin Config = SQL Debug = no Sphinx Host = 127.0.0.1 Sphinx Port = 9306 MCP Checks = no First Check = spam MCP Required SpamAssassin Score = 1 MCP High SpamAssassin Score = 10 MCP Error Score = 1 MCP Header = X-%org-name%-BaruwaFW-MCPCheck: Non MCP Actions = deliver MCP Actions = deliver High Scoring MCP Actions = deliver Bounce MCP As Attachment = no MCP Modify Subject = start MCP Subject Text = {MCP?} High Scoring MCP Modify Subject = start High Scoring MCP Subject Text = {MCP?} Is Definitely MCP = no Is Definitely Not MCP = no Definite MCP Is High Scoring = no Always Include MCP Report = no Detailed MCP Report = yes Include Scores In MCP Report = no Log MCP = no MCP Max SpamAssassin Timeouts = 20 MCP Max SpamAssassin Size = 100k MCP SpamAssassin Timeout = 10 MCP SpamAssassin Prefs File = %mcp-dir%/mcp.spam.assassin.prefs.conf MCP SpamAssassin User State Dir = MCP SpamAssassin Local Rules Dir = %mcp-dir% MCP SpamAssassin Default Rules Dir = %mcp-dir% MCP SpamAssassin Install Prefix = %mcp-dir% Recipient MCP Report = %report-dir%/recipient.mcp.report.txt Sender MCP Report = %report-dir%/sender.mcp.report.txt Use Default Rules With Multiple Recipients = no Read IP Address From Received Header = no Spam Score Number Format = %d.1f MailScanner Version Number = 4.85.5 SpamAssassin Cache Timings = 1800,300,10800,172800,600 Debug = no Debug SpamAssassin = no Run In Foreground = no Always Looked Up Last = &BaruwaLog Always Looked Up Last After Batch = no Deliver In Background = yes Delivery Method = batch Split Exim Spool = no Lockfile Dir = %spool-dir%/incoming/Locks Custom Functions Dir = /usr/share/baruwa/CustomFunctions Lock Type = Syslog Socket Type = Automatic Syntax Check = yes Minimum Code Status = supported include /etc/MailScanner/conf.d/*.conf " test Mailscanner.lns get conf = { "#comment" = "Main configuration file for the MailScanner E-Mail Virus Scanner"} { "%org-name%" = "BARUWA" } { "%org-long-name%" = "BARUWA MAILFW" } { "%web-site%" = "www.baruwa.com" } { "%etc-dir%" = "/etc/MailScanner" } { "%reports-base%" = "/etc/MailScanner/reports" } { "%report-dir%" = "/etc/MailScanner/reports/en" } { "%rules-dir%" = "/etc/MailScanner/rules" } { "%mcp-dir%" = "/etc/MailScanner/mcp" } { "%spool-dir%" = "/var/spool/MailScanner" } { "%signature-dir%" = "/etc/MailScanner/baruwa/signatures" } { "%brules-dir%" = "/etc/MailScanner/baruwa/rules" } { "Max Children" = "5" } { "Run As User" = "exim" } { "Run As Group" = "exim" } { "Queue Scan Interval" = "6" } { "Incoming Queue Dir" = "/var/spool/exim.in/input" } { "Outgoing Queue Dir" = "/var/spool/exim/input" } { "Incoming Work Dir" = "%spool-dir%/incoming" } { "Quarantine Dir" = "%spool-dir%/quarantine" } { "PID file" = "/var/run/MailScanner/MailScanner.pid" } { "Restart Every" = "7200" } { "MTA" = "exim" } { "Sendmail" = "/usr/sbin/exim -C /etc/exim/exim_out.conf" } { "Sendmail2" = "/usr/sbin/exim -C /etc/exim/exim_out.conf" } { "Incoming Work User" = "exim" } { "Incoming Work Group" = "clam" } { "Incoming Work Permissions" = "0640" } { "Quarantine User" = "exim" } { "Quarantine Group" = "baruwa" } { "Quarantine Permissions" = "0660" } { "Max Unscanned Bytes Per Scan" = "100m" } { "Max Unsafe Bytes Per Scan" = "50m" } { "Max Unscanned Messages Per Scan" = "30" } { "Max Unsafe Messages Per Scan" = "30" } { "Max Normal Queue Size" = "800" } { "Scan Messages" = "%rules-dir%/scan.messages.rules" } { "Reject Message" = "no" } { "Maximum Processing Attempts" = "6" } { "Processing Attempts Database" = "%spool-dir%/incoming/Processing.db" } { "Maximum Attachments Per Message" = "200" } { "Expand TNEF" = "yes" } { "Use TNEF Contents" = "replace" } { "Deliver Unparsable TNEF" = "no" } { "TNEF Expander" = "/usr/bin/tnef --maxsize=100000000" } { "TNEF Timeout" = "120" } { "File Command" = "/usr/sbin/file-wrapper" } { "File Timeout" = "20" } { "Gunzip Command" = "/bin/gunzip" } { "Gunzip Timeout" = "50" } { "Unrar Command" = "/usr/bin/unrar" } { "Unrar Timeout" = "50" } { "Find UU-Encoded Files" = "no" } { "Maximum Message Size" = "%brules-dir%/message.size.rules" } { "Maximum Attachment Size" = "-1" } { "Minimum Attachment Size" = "-1" } { "Maximum Archive Depth" = "4" } { "Find Archives By Content" = "yes" } { "Unpack Microsoft Documents" = "yes" } { "Zip Attachments" = "no" } { "Attachments Zip Filename" = "MessageAttachments.zip" } { "Attachments Min Total Size To Zip" = "100k" } { "Attachment Extensions Not To Zip" = ".zip .rar .gz .tgz .jpg .jpeg .mpg .mpe .mpeg .mp3 .rpm .htm .html .eml" } { "Add Text Of Doc" = "no" } { "Antiword" = "/usr/bin/antiword -f" } { "Antiword Timeout" = "50" } { "Unzip Maximum Files Per Archive" = "0" } { "Unzip Maximum File Size" = "50k" } { "Unzip Filenames" = "*.txt *.ini *.log *.csv" } { "Unzip MimeType" = "text/plain" } { "Virus Scanning" = "%brules-dir%/virus.checks.rules" } { "Virus Scanners" = "auto" } { "Virus Scanner Timeout" = "300" } { "Deliver Disinfected Files" = "no" } { "Silent Viruses" = "HTML-IFrame All-Viruses" } { "Still Deliver Silent Viruses" = "no" } { "Non-Forging Viruses" = "Joke/ OF97/ WM97/ W97M/ eicar" } { "Spam-Virus Header" = "X-%org-name%-BaruwaFW-SpamVirus-Report:" } { "Virus Names Which Are Spam" = "Sanesecurity.Spam*UNOFFICIAL HTML/* *Phish* *Suspected-phishing_safebrowsing*" } { "Block Encrypted Messages" = "no" } { "Block Unencrypted Messages" = "no" } { "Allow Password-Protected Archives" = "yes" } { "Check Filenames In Password-Protected Archives" = "yes" } { "Allowed Sophos Error Messages" } { "Sophos IDE Dir" = "/opt/sophos-av/lib/sav" } { "Sophos Lib Dir" = "/opt/sophos-av/lib" } { "Monitors For Sophos Updates" = "/opt/sophos-av/lib/sav/*.ide" } { "Monitors for ClamAV Updates" = "/var/lib/clamav/*.cvd" } { "ClamAVmodule Maximum Recursion Level" = "8" } { "ClamAVmodule Maximum Files" = "1000" } { "ClamAVmodule Maximum File Size" = "10000000" } { "ClamAVmodule Maximum Compression Ratio" = "250" } { "Clamd Port" = "3310" } { "Clamd Socket" = "/var/run/clamav/clamd.sock" } { "Clamd Lock File" } { "Clamd Use Threads" = "no" } { "ClamAV Full Message Scan" = "yes" } { "Fpscand Port" = "10200" } { "Dangerous Content Scanning" = "%rules-dir%/content.scanning.rules" } { "Allow Partial Messages" = "no" } { "Allow External Message Bodies" = "no" } { "Find Phishing Fraud" = "yes" } { "Also Find Numeric Phishing" = "yes" } { "Use Stricter Phishing Net" = "yes" } { "Highlight Phishing Fraud" = "yes" } { "Phishing Safe Sites File" = "%etc-dir%/phishing.safe.sites.conf" } { "Phishing Bad Sites File" = "%etc-dir%/phishing.bad.sites.conf" } { "Country Sub-Domains List" = "%etc-dir%/country.domains.conf" } { "Allow IFrame Tags" = "disarm" } { "Allow Form Tags" = "disarm" } { "Allow Script Tags" = "disarm" } { "Allow WebBugs" = "disarm" } { "Ignored Web Bug Filenames" = "spacer pixel.gif pixel.png gap" } { "Known Web Bug Servers" = "msgtag.com" } { "Web Bug Replacement" = "https://datafeeds.baruwa.com/1x1spacer.gif" } { "Allow Object Codebase Tags" = "disarm" } { "Convert Dangerous HTML To Text" = "no" } { "Convert HTML To Text" = "no" } { "Archives Are" = "zip rar ole" } { "Allow Filenames" } { "Deny Filenames" } { "Filename Rules" = "%rules-dir%/filename.rules" } { "Allow Filetypes" } { "Allow File MIME Types" } { "Deny Filetypes" } { "Deny File MIME Types" } { "Filetype Rules" = "%rules-dir%/filetype.rules" } { "Archives: Allow Filenames" } { "Archives: Deny Filenames" } { "Archives: Filename Rules" = "%etc-dir%/archives.filename.rules.conf" } { "Archives: Allow Filetypes" } { "Archives: Allow File MIME Types" } { "Archives: Deny Filetypes" } { "Archives: Deny File MIME Types" } { "Archives: Filetype Rules" = "%etc-dir%/archives.filetype.rules.conf" } { "Default Rename Pattern" = "__FILENAME__.disarmed" } { "Quarantine Infections" = "yes" } { "Quarantine Silent Viruses" = "no" } { "Quarantine Modified Body" = "no" } { "Quarantine Whole Message" = "yes" } { "Quarantine Whole Messages As Queue Files" = "no" } { "Keep Spam And MCP Archive Clean" = "yes" } { "Language Strings" = "%brules-dir%/languages.rules" } { "Rejection Report" = "%brules-dir%/rejectionreport.rules" } { "Deleted Bad Content Message Report" = "%brules-dir%/deletedcontentmessage.rules" } { "Deleted Bad Filename Message Report" = "%brules-dir%/deletedfilenamemessage.rules" } { "Deleted Virus Message Report" = "%brules-dir%/deletedvirusmessage.rules" } { "Deleted Size Message Report" = "%brules-dir%/deletedsizemessage.rules" } { "Stored Bad Content Message Report" = "%brules-dir%/storedcontentmessage.rules" } { "Stored Bad Filename Message Report" = "%brules-dir%/storedfilenamemessage.rules" } { "Stored Virus Message Report" = "%brules-dir%/storedvirusmessage.rules" } { "Stored Size Message Report" = "%brules-dir%/storedsizemessage.rules" } { "Disinfected Report" = "%brules-dir%/disinfectedreport.rules" } { "Inline HTML Signature" = "%brules-dir%/html.sigs.rules" } { "Inline Text Signature" = "%brules-dir%/text.sigs.rules" } { "Signature Image Filename" = "%brules-dir%/sig.imgs.names.rules" } { "Signature Image <img> Filename" = "%brules-dir%/sig.imgs.rules" } { "Inline HTML Warning" = "%brules-dir%/inlinewarninghtml.rules" } { "Inline Text Warning" = "%brules-dir%/inlinewarningtxt.rules" } { "Sender Content Report" = "%brules-dir%/sendercontentreport.rules" } { "Sender Error Report" = "%brules-dir%/sendererrorreport.rules" } { "Sender Bad Filename Report" = "%brules-dir%/senderfilenamereport.rules" } { "Sender Virus Report" = "%brules-dir%/sendervirusreport.rules" } { "Sender Size Report" = "%brules-dir%/sendersizereport.rules" } { "Hide Incoming Work Dir" = "yes" } { "Include Scanner Name In Reports" = "yes" } { "Mail Header" = "X-%org-name%-BaruwaFW:" } { "Spam Header" = "X-%org-name%-BaruwaFW-SpamCheck:" } { "Spam Score Header" = "X-%org-name%-BaruwaFW-SpamScore:" } { "Information Header" = "X-%org-name%-BaruwaFW-Information:" } { "Add Envelope From Header" = "yes" } { "Add Envelope To Header" = "no" } { "Envelope From Header" = "X-BARUWA-BaruwaFW-From:" } { "Envelope To Header" = "X-%org-name%-BaruwaFW-To:" } { "ID Header" = "X-%org-name%-BaruwaFW-ID:" } { "IP Protocol Version Header" } { "Spam Score Character" = "s" } { "SpamScore Number Instead Of Stars" = "no" } { "Minimum Stars If On Spam List" = "0" } { "Clean Header Value" = "Found to be clean" } { "Infected Header Value" = "Found to be infected" } { "Disinfected Header Value" = "Disinfected" } { "Information Header Value" = "Please contact %org-long-name% for more information" } { "Detailed Spam Report" = "yes" } { "Include Scores In SpamAssassin Report" = "yes" } { "Always Include SpamAssassin Report" = "no" } { "Multiple Headers" = "add" } { "Place New Headers At Top Of Message" = "yes" } { "Hostname" = "the %org-name% ($HOSTNAME) Baruwa" } { "Sign Messages Already Processed" = "no" } { "Sign Clean Messages" = "%brules-dir%/sign.clean.msgs.rules" } { "Attach Image To Signature" = "yes" } { "Attach Image To HTML Message Only" = "yes" } { "Allow Multiple HTML Signatures" = "no" } { "Dont Sign HTML If Headers Exist" } { "Mark Infected Messages" = "yes" } { "Mark Unscanned Messages" = "no" } { "Unscanned Header Value" = "Not scanned: please contact %org-long-name% for details" } { "Remove These Headers" = "X-Mozilla-Status: X-Mozilla-Status2:" } { "Deliver Cleaned Messages" = "yes" } { "Notify Senders" = "no" } { "Notify Senders Of Viruses" = "no" } { "Notify Senders Of Blocked Filenames Or Filetypes" = "no" } { "Notify Senders Of Blocked Size Attachments" = "no" } { "Notify Senders Of Other Blocked Content" = "no" } { "Never Notify Senders Of Precedence" = "list bulk" } { "Scanned Modify Subject" = "no" } { "Scanned Subject Text" = "{Scanned}" } { "Virus Modify Subject" = "no" } { "Virus Subject Text" = "{Virus?}" } { "Filename Modify Subject" = "no" } { "Filename Subject Text" = "{Filename?}" } { "Content Modify Subject" = "no" } { "Content Subject Text" = "{Dangerous Content?}" } { "Size Modify Subject" = "no" } { "Size Subject Text" = "{Size}" } { "Disarmed Modify Subject" = "no" } { "Disarmed Subject Text" = "{Disarmed}" } { "Phishing Modify Subject" = "yes" } { "Phishing Subject Text" = "{Suspected Phishing?}" } { "Spam Modify Subject" = "no" } { "Spam Subject Text" = "{Spam?}" } { "High Scoring Spam Modify Subject" = "no" } { "High Scoring Spam Subject Text" = "{Spam?}" } { "Warning Is Attachment" = "yes" } { "Attachment Warning Filename" = "%org-name%-Attachment-Warning.txt" } { "Attachment Encoding Charset" = "ISO-8859-1" } { "Archive Mail" } { "Missing Mail Archive Is" = "file" } { "Send Notices" = "no" } { "Notices Include Full Headers" = "yes" } { "Hide Incoming Work Dir in Notices" = "yes" } { "Notice Signature" = "-- \\n%org-name%\\nEmail Security\\n%website%" } { "Notices From" = "Baruwa" } { "Notices To" = "postmaster" } { "Local Postmaster" = "postmaster" } { "Spam List Definitions" = "%etc-dir%/spam.lists.conf" } { "Virus Scanner Definitions" = "%etc-dir%/virus.scanners.conf" } { "Spam Checks" = "%brules-dir%/spam.checks.rules" } { "Spam List" } { "Spam Domain List" } { "Spam Lists To Be Spam" = "1" } { "Spam Lists To Reach High Score" = "3" } { "Spam List Timeout" = "10" } { "Max Spam List Timeouts" = "7" } { "Spam List Timeouts History" = "10" } { "Is Definitely Not Spam" = "%brules-dir%/approved.senders.rules" } { "Is Definitely Spam" = "%brules-dir%/banned.senders.rules" } { "Definite Spam Is High Scoring" = "yes" } { "Ignore Spam Whitelist If Recipients Exceed" = "20" } { "Max Spam Check Size" = "4000k" } { "Use Watermarking" = "no" } { "Add Watermark" = "yes" } { "Check Watermarks With No Sender" = "yes" } { "Treat Invalid Watermarks With No Sender as Spam" = "nothing" } { "Check Watermarks To Skip Spam Checks" = "yes" } { "Watermark Secret" = "%org-name%-BaruwaFW-Secret" } { "Watermark Lifetime" = "604800" } { "Watermark Header" = "X-%org-name%-BaruwaFW-Watermark:" } { "Use SpamAssassin" = "yes" } { "Max SpamAssassin Size" = "800k" } { "Required SpamAssassin Score" = "%brules-dir%/spam.score.rules" } { "High SpamAssassin Score" = "%brules-dir%/highspam.score.rules" } { "SpamAssassin Auto Whitelist" = "yes" } { "SpamAssassin Timeout" = "75" } { "Max SpamAssassin Timeouts" = "10" } { "SpamAssassin Timeouts History" = "30" } { "Check SpamAssassin If On Spam List" = "yes" } { "Include Binary Attachments In SpamAssassin" = "no" } { "Spam Score" = "yes" } { "Cache SpamAssassin Results" = "yes" } { "SpamAssassin Cache Database File" = "%spool-dir%/incoming/SpamAssassin.cache.db" } { "Rebuild Bayes Every" = "0" } { "Wait During Bayes Rebuild" = "no" } { "Use Custom Spam Scanner" = "no" } { "Max Custom Spam Scanner Size" = "20k" } { "Custom Spam Scanner Timeout" = "20" } { "Max Custom Spam Scanner Timeouts" = "10" } { "Custom Spam Scanner Timeout History" = "20" } { "Spam Actions" = "%brules-dir%/spam.actions.rules" } { "High Scoring Spam Actions" = "%brules-dir%/highspam.actions.rules" } { "Non Spam Actions" = "%rules-dir%/nonspam.actions.rules" } { "SpamAssassin Rule Actions" } { "Sender Spam Report" = "%brules-dir%/senderspamreport.rules" } { "Sender Spam List Report" = "%brules-dir%/senderspamrblreport.rules" } { "Sender SpamAssassin Report" = "%brules-dir%/senderspamsareport.rules" } { "Inline Spam Warning" = "%brules-dir%/inlinespamwarning.rules" } { "Recipient Spam Report" = "%brules-dir%/recipientspamreport.rules" } { "Enable Spam Bounce" = "%rules-dir%/bounce.rules" } { "Bounce Spam As Attachment" = "no" } { "Syslog Facility" = "mail" } { "Log Speed" = "no" } { "Log Spam" = "no" } { "Log Non Spam" = "no" } { "Log Delivery And Non-Delivery" = "no" } { "Log Permitted Filenames" = "no" } { "Log Permitted Filetypes" = "no" } { "Log Permitted File MIME Types" = "no" } { "Log Silent Viruses" = "no" } { "Log Dangerous HTML Tags" = "no" } { "Log SpamAssassin Rule Actions" = "no" } { "SpamAssassin Temporary Dir" = "/var/spool/MailScanner/incoming/SpamAssassin-Temp" } { "SpamAssassin User State Dir" } { "SpamAssassin Install Prefix" } { "SpamAssassin Site Rules Dir" = "/etc/mail/spamassassin" } { "SpamAssassin Local Rules Dir" } { "SpamAssassin Local State Dir" } { "SpamAssassin Default Rules Dir" } { "DB DSN" = "DBI:Pg:database=baruwa" } { "DB Username" = "baruwa" } { "DB Password" = "password" } { "SQL Serial Number" = "SELECT MAX(value) AS confserialnumber FROM configurations WHERE internal='confserialnumber'" } { "SQL Quick Peek" = "SELECT dbvalue(value) AS value FROM quickpeek WHERE external = ? AND (hostname = ? OR hostname='default') LIMIT 1" } { "SQL Config" = "SELECT internal, dbvalue(value) AS value, hostname FROM quickpeek WHERE hostname=? OR hostname='default'" } { "SQL Ruleset" = "SELECT row_number, ruleset AS rule FROM msrulesets WHERE name=?" } { "SQL SpamAssassin Config" } { "SQL Debug" = "no" } { "Sphinx Host" = "127.0.0.1" } { "Sphinx Port" = "9306" } { "MCP Checks" = "no" } { "First Check" = "spam" } { "MCP Required SpamAssassin Score" = "1" } { "MCP High SpamAssassin Score" = "10" } { "MCP Error Score" = "1" } { "MCP Header" = "X-%org-name%-BaruwaFW-MCPCheck:" } { "Non MCP Actions" = "deliver" } { "MCP Actions" = "deliver" } { "High Scoring MCP Actions" = "deliver" } { "Bounce MCP As Attachment" = "no" } { "MCP Modify Subject" = "start" } { "MCP Subject Text" = "{MCP?}" } { "High Scoring MCP Modify Subject" = "start" } { "High Scoring MCP Subject Text" = "{MCP?}" } { "Is Definitely MCP" = "no" } { "Is Definitely Not MCP" = "no" } { "Definite MCP Is High Scoring" = "no" } { "Always Include MCP Report" = "no" } { "Detailed MCP Report" = "yes" } { "Include Scores In MCP Report" = "no" } { "Log MCP" = "no" } { "MCP Max SpamAssassin Timeouts" = "20" } { "MCP Max SpamAssassin Size" = "100k" } { "MCP SpamAssassin Timeout" = "10" } { "MCP SpamAssassin Prefs File" = "%mcp-dir%/mcp.spam.assassin.prefs.conf" } { "MCP SpamAssassin User State Dir" } { "MCP SpamAssassin Local Rules Dir" = "%mcp-dir%" } { "MCP SpamAssassin Default Rules Dir" = "%mcp-dir%" } { "MCP SpamAssassin Install Prefix" = "%mcp-dir%" } { "Recipient MCP Report" = "%report-dir%/recipient.mcp.report.txt" } { "Sender MCP Report" = "%report-dir%/sender.mcp.report.txt" } { "Use Default Rules With Multiple Recipients" = "no" } { "Read IP Address From Received Header" = "no" } { "Spam Score Number Format" = "%d.1f" } { "MailScanner Version Number" = "4.85.5" } { "SpamAssassin Cache Timings" = "1800,300,10800,172800,600" } { "Debug" = "no" } { "Debug SpamAssassin" = "no" } { "Run In Foreground" = "no" } { "Always Looked Up Last" = "&BaruwaLog" } { "Always Looked Up Last After Batch" = "no" } { "Deliver In Background" = "yes" } { "Delivery Method" = "batch" } { "Split Exim Spool" = "no" } { "Lockfile Dir" = "%spool-dir%/incoming/Locks" } { "Custom Functions Dir" = "/usr/share/baruwa/CustomFunctions" } { "Lock Type" } { "Syslog Socket Type" } { "Automatic Syntax Check" = "yes" } { "Minimum Code Status" = "supported" } { "include" = "/etc/MailScanner/conf.d/*.conf"}PK ! ���]� � # lenses/dist/tests/test_iptables.augnu �[��� module Test_iptables = let add_rule = Iptables.table_rule let ipt_match = Iptables.ipt_match test add_rule get "-A INPUT -m state --state ESTABLISHED,RELATED -j ACCEPT\n" = { "append" = "INPUT" { "match" = "state" } { "state" = "ESTABLISHED,RELATED" } { "jump" = "ACCEPT" } } test add_rule get "-A INPUT -p icmp -j \tACCEPT \n" = { "append" = "INPUT" { "protocol" = "icmp" } { "jump" = "ACCEPT" } } test add_rule get "-A INPUT -i lo -j ACCEPT\n" = { "append" = "INPUT" { "in-interface" = "lo" } { "jump" = "ACCEPT" } } test ipt_match get " -m tcp -p tcp --dport 53" = { "match" = "tcp" } { "protocol" = "tcp" } { "dport" = "53" } let arule = " -m state --state NEW -m tcp -p tcp --dport 53 -j ACCEPT" test add_rule get ("--append INPUT" . arule . "\n") = { "append" = "INPUT" { "match" = "state" } { "state" = "NEW" } { "match" = "tcp" } { "protocol" = "tcp" } { "dport" = "53" } { "jump" = "ACCEPT" } } test ipt_match get arule = { "match" = "state" } { "state" = "NEW" } { "match" = "tcp" } { "protocol" = "tcp" } { "dport" = "53" } { "jump" = "ACCEPT" } test ipt_match get ("-A INPUT" . arule) = * test ipt_match get " -p esp -j ACCEPT" = { "protocol" = "esp" } { "jump" = "ACCEPT" } test ipt_match get " -m state --state NEW -m udp -p udp --dport 5353 -d 224.0.0.251 -j ACCEPT" = { "match" = "state" } { "state" = "NEW" } { "match" = "udp" } { "protocol" = "udp" } { "dport" = "5353" } { "destination" = "224.0.0.251" } { "jump" = "ACCEPT" } test add_rule get "-I FORWARD -m physdev --physdev-is-bridged -j ACCEPT\n" = { "insert" = "FORWARD" { "match" = "physdev" } { "physdev-is-bridged" } { "jump" = "ACCEPT" } } test add_rule get "-A INPUT -j REJECT --reject-with icmp-host-prohibited\n" = { "append" = "INPUT" { "jump" = "REJECT" } { "reject-with" = "icmp-host-prohibited" } } test add_rule get "-A RH-Firewall-1-INPUT -p icmp --icmp-type any -j ACCEPT\n" = { "append" = "RH-Firewall-1-INPUT" { "protocol" = "icmp" } { "icmp-type" = "any" } { "jump" = "ACCEPT" } } test Iptables.table get "*filter :RH-Firewall-1-INPUT - [0:0] -A FORWARD -j RH-Firewall-1-INPUT -A RH-Firewall-1-INPUT -i lo -j ACCEPT COMMIT\n" = { "table" = "filter" { "chain" = "RH-Firewall-1-INPUT" { "policy" = "-" } } { "append" = "FORWARD" { "jump" = "RH-Firewall-1-INPUT" } } { "append" = "RH-Firewall-1-INPUT" { "in-interface" = "lo" } { "jump" = "ACCEPT" } } } test Iptables.table get "*filter :RH-Firewall-1-INPUT - [0:0] -A FORWARD -j RH-Firewall-1-INPUT COMMIT\n" = { "table" = "filter" { } { "chain" = "RH-Firewall-1-INPUT" { "policy" = "-" } } { } { "append" = "FORWARD" { "jump" = "RH-Firewall-1-INPUT" } } { } } let conf = "# Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002 *filter :INPUT DROP [1:229] :FORWARD DROP [0:0] :OUTPUT DROP [0:0] -A INPUT -m state --state RELATED,ESTABLISHED -j ACCEPT -I FORWARD -i eth0 -m state --state RELATED,ESTABLISHED -j ACCEPT # comments and blank lines are allow between rules -A FORWARD -i eth1 -m state --state NEW,RELATED,ESTABLISHED -j ACCEPT --append OUTPUT -m state --state NEW,RELATED,ESTABLISHED -j ACCEPT COMMIT # Completed on Wed Apr 24 10:19:55 2002 # Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002 *mangle :PREROUTING ACCEPT [658:32445] :INPUT ACCEPT [658:32445] :FORWARD ACCEPT [0:0] :OUTPUT ACCEPT [891:68234] :POSTROUTING ACCEPT [891:68234] COMMIT # Completed on Wed Apr 24 10:19:55 2002 # Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002 *nat :PREROUTING ACCEPT [1:229] :POSTROUTING ACCEPT [3:450] # The output chain :OUTPUT ACCEPT [3:450] # insert something --insert POSTROUTING -o eth0 -j SNAT --to-source 195.233.192.1 \t # and now commit COMMIT # Completed on Wed Apr 24 10:19:55 2002\n" test Iptables.lns get conf = { "#comment" = "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" } { "table" = "filter" { "chain" = "INPUT" { "policy" = "DROP" } } { "chain" = "FORWARD" { "policy" = "DROP" } } { "chain" = "OUTPUT" { "policy" = "DROP" } } { "append" = "INPUT" { "match" = "state" } { "state" = "RELATED,ESTABLISHED" } { "jump" = "ACCEPT" } } {} { "insert" = "FORWARD" { "in-interface" = "eth0" } { "match" = "state" } { "state" = "RELATED,ESTABLISHED" } { "jump" = "ACCEPT" } } {} { "#comment" = "comments and blank lines are allow between rules" } {} { "append" = "FORWARD" { "in-interface" = "eth1" } { "match" = "state" } { "state" = "NEW,RELATED,ESTABLISHED" } { "jump" = "ACCEPT" } } { "append" = "OUTPUT" { "match" = "state" } { "state" = "NEW,RELATED,ESTABLISHED" } { "jump" = "ACCEPT" } } } { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" } { "#comment" = "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" } { "table" = "mangle" { "chain" = "PREROUTING" { "policy" = "ACCEPT" } } {} { "chain" = "INPUT" { "policy" = "ACCEPT" } } { "chain" = "FORWARD" { "policy" = "ACCEPT" } } { "chain" = "OUTPUT" { "policy" = "ACCEPT" } } { "chain" = "POSTROUTING" { "policy" = "ACCEPT" } } } { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" } { "#comment" = "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" } { "table" = "nat" { "chain" = "PREROUTING" { "policy" = "ACCEPT" } } { "chain" = "POSTROUTING" { "policy" = "ACCEPT" } } { "#comment" = "The output chain" } { "chain" = "OUTPUT" { "policy" = "ACCEPT" } } { "#comment" = "insert something" } { "insert" = "POSTROUTING" { "out-interface" = "eth0" } { "jump" = "SNAT" } { "to-source" = "195.233.192.1" } } { "#comment" = "and now commit" } } { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" } test ipt_match get " -m comment --comment \"A comment\"" = { "match" = "comment" } { "comment" = "\"A comment\"" } (* * Test the various schemes for negation that iptables supports * * Note that the two ways in which a parameter can be negated lead to * two different trees that mean the same. *) test add_rule get "-I POSTROUTING ! -d 192.168.122.0/24 -j MASQUERADE\n" = { "insert" = "POSTROUTING" { "destination" = "192.168.122.0/24" { "not" } } { "jump" = "MASQUERADE" } } test add_rule get "-I POSTROUTING -d ! 192.168.122.0/24 -j MASQUERADE\n" = { "insert" = "POSTROUTING" { "destination" = "! 192.168.122.0/24" } { "jump" = "MASQUERADE" } } test add_rule put "-I POSTROUTING ! -d 192.168.122.0/24 -j MASQUERADE\n" after rm "/insert/destination/not" = "-I POSTROUTING -d 192.168.122.0/24 -j MASQUERADE\n" (* I have no idea if iptables will accept double negations, but we * allow it syntactically *) test add_rule put "-I POSTROUTING -d ! 192.168.122.0/24 -j MASQUERADE\n" after clear "/insert/destination/not" = "-I POSTROUTING ! -d ! 192.168.122.0/24 -j MASQUERADE\n" test Iptables.chain get ":tcp_packets - [0:0] " = { "chain" = "tcp_packets" { "policy" = "-" } } (* Bug #157 *) test ipt_match get " --tcp-flags SYN,RST,ACK,FIN SYN" = { "tcp-flags" { "mask" = "SYN" } { "mask" = "RST" } { "mask" = "ACK" } { "mask" = "FIN" } { "set" = "SYN" } } (* Bug #224 *) test ipt_match get " --icmpv6-type neighbor-solicitation" = { "icmpv6-type" = "neighbor-solicitation" } PK ! �h �`p `p " lenses/dist/tests/test_openvpn.augnu �[��� module Test_OpenVPN = let server_conf = " daemon local 10.0.5.20 port 1194 # TCP or UDP server? proto udp ;dev tap dev tun dev-node MyTap ca ca.crt cert server.crt key server.key # This file should be kept secret # Diffie hellman parameters. dh dh1024.pem server 10.8.0.0 255.255.255.0 ifconfig-pool-persist ipp.txt client-config-dir /etc/openvpn/ccd server-bridge 10.8.0.4 255.255.255.0 10.8.0.50 10.8.0.100 route 10.9.0.0 255.255.255.0 push \"route 192.168.10.0 255.255.255.0\" learn-address ./script push \"redirect-gateway\" push \"dhcp-option DNS 10.8.0.1\" push \"dhcp-option WINS 10.8.0.1\" client-to-client duplicate-cn keepalive 10 120 tls-auth ta.key 0 # This file is secret cipher BF-CBC # Blowfish (default) ;cipher AES-128-CBC # AES ;cipher DES-EDE3-CBC # Triple-DES comp-lzo max-clients 100 user nobody group nobody persist-key persist-tun status openvpn-status.log log openvpn.log log-append openvpn.log verb 3 mute 20 management 10.0.5.20 1193 /etc/openvpn/mpass " test OpenVPN.lns get server_conf = {} { "daemon" } { "local" = "10.0.5.20" } { "port" = "1194" } { "#comment" = "TCP or UDP server?" } { "proto" = "udp" } { "#comment" = "dev tap" } { "dev" = "tun" } {} { "dev-node" = "MyTap" } { "ca" = "ca.crt" } { "cert" = "server.crt" } { "key" = "server.key" { "#comment" = "This file should be kept secret" } } {} { "#comment" = "Diffie hellman parameters." } { "dh" = "dh1024.pem" } {} { "server" { "address" = "10.8.0.0" } { "netmask" = "255.255.255.0" } } { "ifconfig-pool-persist" { "file" = "ipp.txt" } } {} { "client-config-dir" = "/etc/openvpn/ccd" } { "server-bridge" { "address" = "10.8.0.4" } { "netmask" = "255.255.255.0" } { "start" = "10.8.0.50" } { "end" = "10.8.0.100" } } { "route" { "address" = "10.9.0.0" } { "netmask" = "255.255.255.0" } } { "push" = "route 192.168.10.0 255.255.255.0" } { "learn-address" = "./script" } { "push" = "redirect-gateway" } { "push" = "dhcp-option DNS 10.8.0.1" } { "push" = "dhcp-option WINS 10.8.0.1" } { "client-to-client" } { "duplicate-cn" } { "keepalive" { "ping" = "10" } { "timeout" = "120" } } { "tls-auth" { "key" = "ta.key" } { "is_client" = "0" } { "#comment" = "This file is secret" } } { "cipher" = "BF-CBC" { "#comment" = "Blowfish (default)" } } { "#comment" = "cipher AES-128-CBC # AES" } { "#comment" = "cipher DES-EDE3-CBC # Triple-DES" } { "comp-lzo" } { "max-clients" = "100" } { "user" = "nobody" } { "group" = "nobody" } { "persist-key" } { "persist-tun" } { "status" { "file" = "openvpn-status.log" } } { "log" = "openvpn.log" } { "log-append" = "openvpn.log" } { "verb" = "3" } { "mute" = "20" } { "management" { "server" = "10.0.5.20" } { "port" = "1193" } { "pwfile" = "/etc/openvpn/mpass" } } let client_conf = " client remote my-server-1 1194 ;remote my-server-2 1194 remote-random resolv-retry infinite nobind http-proxy-retry # retry on connection failures http-proxy mytest 1024 mute-replay-warnings ns-cert-type server " test OpenVPN.lns get client_conf = {} { "client" } { "remote" { "server" = "my-server-1" } { "port" = "1194" } } { "#comment" = "remote my-server-2 1194" } { "remote-random" } { "resolv-retry" = "infinite" } { "nobind" } { "http-proxy-retry" { "#comment" = "retry on connection failures" } } { "http-proxy" { "server" = "mytest" } { "port" = "1024" } } { "mute-replay-warnings" } { "ns-cert-type" = "server" } (* Most (hopefully all) permutations for OpenVPN 2.3 * NOTE: This completely ignores IPv6 because it's hard to tell which OpenVPN * options actually work with IPv6. Thar be dragons. *) let all_permutations_conf = " config /a/canonical/file config relative_file mode p2p mode server local 192.168.1.1 local hostname remote 192.168.1.1 1234 remote hostname 1234 remote hostname remote 192.168.1.1 remote hostname 1234 tcp remote 192.168.1.1 1234 tcp remote hostname 1234 udp remote-random-hostname #comment square <connection> blocks should go here proto-force udp proto-force tcp remote-random proto udp proto tcp-client proto tcp-server connect-retry 5 connect-timeout 10 connect-retry-max 0 show-proxy-settings http-proxy servername 1234 http-proxy servername 1234 auto http-proxy servername 1234 auto-nct http-proxy servername 1234 auto none http-proxy servername 1234 auto basic http-proxy servername 1234 auto ntlm http-proxy servername 1234 relative_filename ntlm http-proxy servername 1234 /canonical/filename basic http-proxy-retry http-proxy-timeout 5 http-proxy-option VERSION 1.0 http-proxy-option AGENT an unquoted string with spaces http-proxy-option AGENT an_unquoted_string_without_spaces socks-proxy servername socks-proxy servername 1234 socks-proxy servername 1234 /canonical/file socks-proxy servername 1234 relative/file socks-proxy-retry resolv-retry 5 float ipchange my command goes here port 1234 lport 1234 rport 1234 bind nobind dev tun dev tun0 dev tap dev tap0 dev null dev-type tun dev-type tap topology net30 topology p2p topology subnet tun-ipv6 dev-node /canonical/file dev-node relative/file lladdr 1.2.3.4 iproute my command goes here ifconfig 1.2.3.4 5.6.7.8 ifconfig-noexec ifconfig-nowarn route 111.222.123.123 route networkname route vpn_gateway route net_gateway route remote_host route 111.222.123.123 255.123.255.221 route 111.222.123.123 default route 111.222.123.123 255.123.255.231 111.222.123.1 route 111.222.123.123 default 111.222.123.1 route 111.222.123.123 255.123.255.231 default route 111.222.123.123 default default route 111.222.123.123 255.123.255.231 gatewayname route 111.222.123.123 255.123.255.231 gatewayname 5 route 111.222.123.123 255.123.255.231 vpn_gateway route 111.222.123.123 255.123.255.231 net_gateway route 111.222.123.123 255.123.255.231 remote_host route 111.222.123.123 255.123.255.231 111.222.123.1 route 111.222.123.123 255.123.255.231 111.222.123.1 5 max-routes 5 route-gateway gateway-name route-gateway 111.222.123.1 route-gateway dhcp route-metric 5 route-delay route-delay 1 route-delay 1 2 route-up my command goes here route-pre-down my command goes here route-noexec route-nopull allow-pull-fqdn client-nat snat 1.2.3.4 5.6.7.8 9.8.7.6 client-nat dnat 1.2.3.4 5.6.7.8 9.8.7.6 redirect-gateway local redirect-gateway local autolocal redirect-gateway local autolocal def1 bypass-dhcp bypass-dns block-local link-mtu 5 redirect-private local redirect-private local autolocal redirect-private local autolocal def1 bypass-dhcp bypass-dns block-local tun-mtu 5 tun-mtu-extra 5 mtu-disc no mtu-disc maybe mtu-disc yes mtu-test fragment 5 mssfix 1600 sndbuf 65536 rcvbuf 65535 mark blahvalue socket-flags TCP_NODELAY txqueuelen 5 shaper 50 inactive 5 inactive 5 1024 ping 10 ping-exit 10 ping-restart 10 keepalive 1 2 ping-timer-rem persist-tun persist-key persist-local-ip persist-remote-ip mlock up my command goes here up-delay down my command goes here down-pre up-restart setenv myname myvalue setenv my0-_name my value with spaces setenv-safe myname myvalue setenv-safe my-_name my value with spaces ignore-unknown-option anopt ignore-unknown-option anopt anotheropt script-security 3 disable-occ user username group groupname cd /canonical/dir cd relative/dir/ chroot /canonical/dir chroot relative/dir/ setcon selinux-context daemon daemon mydaemon_name syslog syslog my_syslog-name errors-to-stderr passtos inetd inetd wait inetd nowait inetd wait my-program_name log myfilename log-append myfilename suppress-timestamps writepid myfile nice 5 fast-io multihome echo stuff to echo until end of line remap-usr1 SIGHUP remap-usr1 SIGTERM verb 6 status myfile status myfile 15 status-version status-version 3 mute 20 comp-lzo comp-lzo yes comp-lzo no comp-lzo adaptive management 123.123.123.123 1234 management 123.123.123.123 1234 /canonical/file management-client management-query-passwords management-query-proxy management-query-remote management-forget-disconnect management-hold management-signal management-up-down management-client-auth management-client-pf management-log-cache 5 management-client-user myuser management-client-user mygroup plugin /canonical/file plugin relative/file plugin myfile an init string server 1.2.3.4 255.255.255.0 server 1.2.3.4 255.255.255.255 nopool server-bridge 1.2.3.4 1.2.3.5 50.5.5.5 50.5.5.6 server-bridge nogw push \"my push string\" push-reset push-peer-info disable ifconfig-pool 1.1.1.1 2.2.2.2 ifconfig-pool 1.1.1.1 2.2.2.2 255.255.255.0 ifconfig-pool-persist myfile ifconfig-pool-persist myfile 50 ifconfig-pool-linear ifconfig-push 1.1.1.1 2.2.2.2 ifconfig-push 1.1.1.1 2.2.2.2 alias-name iroute 1.1.1.1 iroute 1.1.1.1 2.2.2.2 client-to-client duplicate-cn client-connect my command goes here client-disconnect my command goes here client-config-dir directory ccd-exclusive tmp-dir /directory hash-size 1 2 bcast-buffers 5 tcp-queue-limit 50 tcp-nodelay max-clients 50 max-routes-per-client 50 stale-routes-check 5 stale-routes-check 5 50 connect-freq 50 100 learn-address my command goes here auth-user-pass-verify /my/script/with/no/arguments.sh via-env auth-user-pass-verify \"myscript.sh arg1 arg2\" via-file opt-verify auth-user-pass-optional client-cert-not-required username-as-common-name port-share 1.1.1.1 1234 port-share myhostname 1234 port-share myhostname 1234 /canonical/dir client pull auth-user-pass auth-user-pass /canonical/file auth-user-pass relative/file auth-retry none auth-retry nointeract auth-retry interact static-challenge challenge_no_spaces 1 static-challenge \"my quoted challenge string\" 0 server-poll-timeout 50 explicit-exit-notify explicit-exit-notify 5 secret /canonicalfile secret relativefile secret filename 1 secret filename 0 key-direction auth none auth sha1 cipher SHA1 cipher sha1 keysize 50 prng SHA1 prng SHA1 500 engine engine blah no-replay replay-window 64 replay-window 64 16 mute-replay-warnings replay-persist /my/canonical/filename no-iv use-prediction-resistance test-crypto tls-server tls-client ca myfile capath /mydir/ dh myfile cert myfile extra-certs myfile key myfile tls-version-min 1.1 tls-version-min 2 tls-version-min 1.1 or-highest tls-version-max 5.5 pkcs12 myfile verify-hash AD:B0:95:D8:09:C8:36:45:12:A9:89:C8:90:09:CB:13:72:A6:AD:16 pkcs11-cert-private 0 pkcs11-cert-private 1 pkcs11-id myname pkcs11-id-management pkcs11-pin-cache 50 pkcs11-protected-authentication 0 pkcs11-protected-authentication 1 cryptoapicert \"SUBJ:Justin Akers\" key-method 2 tls-cipher DEFAULT:!EXP:!PSK:!SRP:!kRSA tls-timeout 50 reneg-bytes 50 reneg-pkts 50 reneg-sec 5 hand-window 123 tran-window 456 single-session tls-exit tls-auth filename 1 askpass /canonical/filename auth-nocache tls-verify my command goes here tls-export-cert /a/directory/for/things x509-username-field emailAddress x509-username-field ext:subjectAltName tls-remote myhostname verify-x509-name hostname name verify-x509-name hostname name-prefix verify-x509-name hostname subject ns-cert-type server ns-cert-type client remote-cert-tls server remote-cert-tls client remote-cert-ku 01 remote-cert-ku 01 02 fa FF b3 remote-cert-eku 123.3510.350.10 remote-cert-eku \"TLS Web Client Authentication\" remote-cert-eku serverAuth crl-verify /a/file/path crl-verify /a/directory/ dir show-ciphers show-digests show-tls show-engines genkey mktun rmtun ifconfig-ipv6 2000:123:456::/64 1234:99:123::124 ifconfig-ipv6-push 2000:123:456::/64 1234:99:123::124 iroute-ipv6 2000:123:456::/64 route-ipv6 2000:123:456::/64 route-ipv6 2000:123:456::/64 1234:99:123::124 route-ipv6 2000:123:456::/64 1234:99:123::124 500 server-ipv6 2000:123:456::/64 ifconfig-ipv6-pool 2000:123:456::/64 " test OpenVPN.lns get all_permutations_conf = { } { "config" = "/a/canonical/file" } { "config" = "relative_file" } { "mode" = "p2p" } { "mode" = "server" } { "local" = "192.168.1.1" } { "local" = "hostname" } { "remote" { "server" = "192.168.1.1" } { "port" = "1234" } } { "remote" { "server" = "hostname" } { "port" = "1234" } } { "remote" { "server" = "hostname" } } { "remote" { "server" = "192.168.1.1" } } { "remote" { "server" = "hostname" } { "port" = "1234" } { "proto" = "tcp" } } { "remote" { "server" = "192.168.1.1" } { "port" = "1234" } { "proto" = "tcp" } } { "remote" { "server" = "hostname" } { "port" = "1234" } { "proto" = "udp" } } { "remote-random-hostname" } { "#comment" = "comment square <connection> blocks should go here" } { "proto-force" = "udp" } { "proto-force" = "tcp" } { "remote-random" } { "proto" = "udp" } { "proto" = "tcp-client" } { "proto" = "tcp-server" } { "connect-retry" = "5" } { "connect-timeout" = "10" } { "connect-retry-max" = "0" } { "show-proxy-settings" } { "http-proxy" { "server" = "servername" } { "port" = "1234" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "auto" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "auto-nct" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "auto" } { "auth-method" = "none" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "auto" } { "auth-method" = "basic" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "auto" } { "auth-method" = "ntlm" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "relative_filename" } { "auth-method" = "ntlm" } } { "http-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "/canonical/filename" } { "auth-method" = "basic" } } { "http-proxy-retry" } { "http-proxy-timeout" = "5" } { "http-proxy-option" { "option" = "VERSION" } { "value" = "1.0" } } { "http-proxy-option" { "option" = "AGENT" } { "value" = "an unquoted string with spaces" } } { "http-proxy-option" { "option" = "AGENT" } { "value" = "an_unquoted_string_without_spaces" } } { "socks-proxy" { "server" = "servername" } } { "socks-proxy" { "server" = "servername" } { "port" = "1234" } } { "socks-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "/canonical/file" } } { "socks-proxy" { "server" = "servername" } { "port" = "1234" } { "auth" = "relative/file" } } { "socks-proxy-retry" } { "resolv-retry" = "5" } { "float" } { "ipchange" = "my command goes here" } { "port" = "1234" } { "lport" = "1234" } { "rport" = "1234" } { "bind" } { "nobind" } { "dev" = "tun" } { "dev" = "tun0" } { "dev" = "tap" } { "dev" = "tap0" } { "dev" = "null" } { "dev-type" = "tun" } { "dev-type" = "tap" } { "topology" = "net30" } { "topology" = "p2p" } { "topology" = "subnet" } { "tun-ipv6" } { "dev-node" = "/canonical/file" } { "dev-node" = "relative/file" } { "lladdr" = "1.2.3.4" } { "iproute" = "my command goes here" } { "ifconfig" { "local" = "1.2.3.4" } { "remote" = "5.6.7.8" } } { "ifconfig-noexec" } { "ifconfig-nowarn" } { "route" { "address" = "111.222.123.123" } } { "route" { "address" = "networkname" } } { "route" { "address" = "vpn_gateway" } } { "route" { "address" = "net_gateway" } } { "route" { "address" = "remote_host" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.221" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "default" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "111.222.123.1" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "default" } { "gateway" = "111.222.123.1" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "default" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "default" } { "gateway" = "default" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "gatewayname" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "gatewayname" } { "metric" = "5" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "vpn_gateway" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "net_gateway" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "remote_host" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "111.222.123.1" } } { "route" { "address" = "111.222.123.123" } { "netmask" = "255.123.255.231" } { "gateway" = "111.222.123.1" } { "metric" = "5" } } { "max-routes" = "5" } { "route-gateway" = "gateway-name" } { "route-gateway" = "111.222.123.1" } { "route-gateway" = "dhcp" } { "route-metric" = "5" } { "route-delay" } { "route-delay" { "seconds" = "1" } } { "route-delay" { "seconds" = "1" } { "win-seconds" = "2" } } { "route-up" = "my command goes here" } { "route-pre-down" = "my command goes here" } { "route-noexec" } { "route-nopull" } { "allow-pull-fqdn" } { "client-nat" { "type" = "snat" } { "network" = "1.2.3.4" } { "netmask" = "5.6.7.8" } { "alias" = "9.8.7.6" } } { "client-nat" { "type" = "dnat" } { "network" = "1.2.3.4" } { "netmask" = "5.6.7.8" } { "alias" = "9.8.7.6" } } { "redirect-gateway" { "flag" = "local" } } { "redirect-gateway" { "flag" = "local" } { "flag" = "autolocal" } } { "redirect-gateway" { "flag" = "local" } { "flag" = "autolocal" } { "flag" = "def1" } { "flag" = "bypass-dhcp" } { "flag" = "bypass-dns" } { "flag" = "block-local" } } { "link-mtu" = "5" } { "redirect-private" { "flag" = "local" } } { "redirect-private" { "flag" = "local" } { "flag" = "autolocal" } } { "redirect-private" { "flag" = "local" } { "flag" = "autolocal" } { "flag" = "def1" } { "flag" = "bypass-dhcp" } { "flag" = "bypass-dns" } { "flag" = "block-local" } } { "tun-mtu" = "5" } { "tun-mtu-extra" = "5" } { "mtu-disc" = "no" } { "mtu-disc" = "maybe" } { "mtu-disc" = "yes" } { "mtu-test" } { "fragment" = "5" } { "mssfix" = "1600" } { "sndbuf" = "65536" } { "rcvbuf" = "65535" } { "mark" = "blahvalue" } { "socket-flags" = "TCP_NODELAY" } { "txqueuelen" = "5" } { "shaper" = "50" } { "inactive" { "seconds" = "5" } } { "inactive" { "seconds" = "5" } { "bytes" = "1024" } } { "ping" = "10" } { "ping-exit" = "10" } { "ping-restart" = "10" } { "keepalive" { "ping" = "1" } { "timeout" = "2" } } { "ping-timer-rem" } { "persist-tun" } { "persist-key" } { "persist-local-ip" } { "persist-remote-ip" } { "mlock" } { "up" = "my command goes here" } { "up-delay" } { "down" = "my command goes here" } { "down-pre" } { "up-restart" } { "setenv" { "myname" = "myvalue" } } { "setenv" { "my0-_name" = "my value with spaces" } } { "setenv-safe" { "myname" = "myvalue" } } { "setenv-safe" { "my-_name" = "my value with spaces" } } { "ignore-unknown-option" { "opt" = "anopt" } } { "ignore-unknown-option" { "opt" = "anopt" } { "opt" = "anotheropt" } } { "script-security" = "3" } { "disable-occ" } { "user" = "username" } { "group" = "groupname" } { "cd" = "/canonical/dir" } { "cd" = "relative/dir/" } { "chroot" = "/canonical/dir" } { "chroot" = "relative/dir/" } { "setcon" = "selinux-context" } { "daemon" } { "daemon" = "mydaemon_name" } { "syslog" } { "syslog" = "my_syslog-name" } { "errors-to-stderr" } { "passtos" } { "inetd" } { "inetd" { "mode" = "wait" } } { "inetd" { "mode" = "nowait" } } { "inetd" { "mode" = "wait" } { "progname" = "my-program_name" } } { "log" = "myfilename" } { "log-append" = "myfilename" } { "suppress-timestamps" } { "writepid" = "myfile" } { "nice" = "5" } { "fast-io" } { "multihome" } { "echo" = "stuff to echo until end of line" } { "remap-usr1" = "SIGHUP" } { "remap-usr1" = "SIGTERM" } { "verb" = "6" } { "status" { "file" = "myfile" } } { "status" { "file" = "myfile" } { "repeat-seconds" = "15" } } { "status-version" } { "status-version" = "3" } { "mute" = "20" } { "comp-lzo" } { "comp-lzo" = "yes" } { "comp-lzo" = "no" } { "comp-lzo" = "adaptive" } { "management" { "server" = "123.123.123.123" } { "port" = "1234" } } { "management" { "server" = "123.123.123.123" } { "port" = "1234" } { "pwfile" = "/canonical/file" } } { "management-client" } { "management-query-passwords" } { "management-query-proxy" } { "management-query-remote" } { "management-forget-disconnect" } { "management-hold" } { "management-signal" } { "management-up-down" } { "management-client-auth" } { "management-client-pf" } { "management-log-cache" = "5" } { "management-client-user" = "myuser" } { "management-client-user" = "mygroup" } { "plugin" { "file" = "/canonical/file" } } { "plugin" { "file" = "relative/file" } } { "plugin" { "file" = "myfile" } { "init-string" = "an init string" } } { "server" { "address" = "1.2.3.4" } { "netmask" = "255.255.255.0" } } { "server" { "address" = "1.2.3.4" } { "netmask" = "255.255.255.255" } { "nopool" } } { "server-bridge" { "address" = "1.2.3.4" } { "netmask" = "1.2.3.5" } { "start" = "50.5.5.5" } { "end" = "50.5.5.6" } } { "server-bridge" = "nogw" } { "push" = "my push string" } { "push-reset" } { "push-peer-info" } { "disable" } { "ifconfig-pool" { "start" = "1.1.1.1" } { "end" = "2.2.2.2" } } { "ifconfig-pool" { "start" = "1.1.1.1" } { "end" = "2.2.2.2" } { "netmask" = "255.255.255.0" } } { "ifconfig-pool-persist" { "file" = "myfile" } } { "ifconfig-pool-persist" { "file" = "myfile" } { "seconds" = "50" } } { "ifconfig-pool-linear" } { "ifconfig-push" { "local" = "1.1.1.1" } { "remote-netmask" = "2.2.2.2" } } { "ifconfig-push" { "local" = "1.1.1.1" } { "remote-netmask" = "2.2.2.2" } { "alias" = "alias-name" } } { "iroute" { "local" = "1.1.1.1" } } { "iroute" { "local" = "1.1.1.1" } { "netmask" = "2.2.2.2" } } { "client-to-client" } { "duplicate-cn" } { "client-connect" = "my command goes here" } { "client-disconnect" = "my command goes here" } { "client-config-dir" = "directory" } { "ccd-exclusive" } { "tmp-dir" = "/directory" } { "hash-size" { "real" = "1" } { "virtual" = "2" } } { "bcast-buffers" = "5" } { "tcp-queue-limit" = "50" } { "tcp-nodelay" } { "max-clients" = "50" } { "max-routes-per-client" = "50" } { "stale-routes-check" { "age" = "5" } } { "stale-routes-check" { "age" = "5" } { "interval" = "50" } } { "connect-freq" { "num" = "50" } { "sec" = "100" } } { "learn-address" = "my command goes here" } { "auth-user-pass-verify" { { "command" = "/my/script/with/no/arguments.sh" } } { "method" = "via-env" } } { "auth-user-pass-verify" { { "command" = "myscript.sh arg1 arg2" } } { "method" = "via-file" } } { "opt-verify" } { "auth-user-pass-optional" } { "client-cert-not-required" } { "username-as-common-name" } { "port-share" { "host" = "1.1.1.1" } { "port" = "1234" } } { "port-share" { "host" = "myhostname" } { "port" = "1234" } } { "port-share" { "host" = "myhostname" } { "port" = "1234" } { "dir" = "/canonical/dir" } } { "client" } { "pull" } { "auth-user-pass" } { "auth-user-pass" = "/canonical/file" } { "auth-user-pass" = "relative/file" } { "auth-retry" = "none" } { "auth-retry" = "nointeract" } { "auth-retry" = "interact" } { "static-challenge" { { "text" = "challenge_no_spaces" } } { "echo" = "1" } } { "static-challenge" { { "text" = "my quoted challenge string" } } { "echo" = "0" } } { "server-poll-timeout" = "50" } { "explicit-exit-notify" } { "explicit-exit-notify" = "5" } { "secret" { "file" = "/canonicalfile" } } { "secret" { "file" = "relativefile" } } { "secret" { "file" = "filename" } { "direction" = "1" } } { "secret" { "file" = "filename" } { "direction" = "0" } } { "key-direction" } { "auth" = "none" } { "auth" = "sha1" } { "cipher" = "SHA1" } { "cipher" = "sha1" } { "keysize" = "50" } { "prng" { "algorithm" = "SHA1" } } { "prng" { "algorithm" = "SHA1" } { "nsl" = "500" } } { "engine" } { "engine" = "blah" } { "no-replay" } { "replay-window" { "window-size" = "64" } } { "replay-window" { "window-size" = "64" } { "seconds" = "16" } } { "mute-replay-warnings" } { "replay-persist" = "/my/canonical/filename" } { "no-iv" } { "use-prediction-resistance" } { "test-crypto" } { "tls-server" } { "tls-client" } { "ca" = "myfile" } { "capath" = "/mydir/" } { "dh" = "myfile" } { "cert" = "myfile" } { "extra-certs" = "myfile" } { "key" = "myfile" } { "tls-version-min" = "1.1" } { "tls-version-min" = "2" } { "tls-version-min" = "1.1" { "or-highest" } } { "tls-version-max" = "5.5" } { "pkcs12" = "myfile" } { "verify-hash" = "AD:B0:95:D8:09:C8:36:45:12:A9:89:C8:90:09:CB:13:72:A6:AD:16" } { "pkcs11-cert-private" = "0" } { "pkcs11-cert-private" = "1" } { "pkcs11-id" = "myname" } { "pkcs11-id-management" } { "pkcs11-pin-cache" = "50" } { "pkcs11-protected-authentication" = "0" } { "pkcs11-protected-authentication" = "1" } { "cryptoapicert" { "SUBJ" = "Justin Akers" } } { "key-method" = "2" } { "tls-cipher" { "cipher" = "DEFAULT" } { "cipher" = "!EXP" } { "cipher" = "!PSK" } { "cipher" = "!SRP" } { "cipher" = "!kRSA" } } { "tls-timeout" = "50" } { "reneg-bytes" = "50" } { "reneg-pkts" = "50" } { "reneg-sec" = "5" } { "hand-window" = "123" } { "tran-window" = "456" } { "single-session" } { "tls-exit" } { "tls-auth" { "key" = "filename" } { "is_client" = "1" } } { "askpass" = "/canonical/filename" } { "auth-nocache" } { "tls-verify" = "my command goes here" } { "tls-export-cert" = "/a/directory/for/things" } { "x509-username-field" { "subj" = "emailAddress" } } { "x509-username-field" { "ext" = "subjectAltName" } } { "tls-remote" = "myhostname" } { "verify-x509-name" { "name" = "hostname" } { "type" = "name" } } { "verify-x509-name" { "name" = "hostname" } { "type" = "name-prefix" } } { "verify-x509-name" { "name" = "hostname" } { "type" = "subject" } } { "ns-cert-type" = "server" } { "ns-cert-type" = "client" } { "remote-cert-tls" = "server" } { "remote-cert-tls" = "client" } { "remote-cert-ku" { "usage" = "01" } } { "remote-cert-ku" { "usage" = "01" } { "usage" = "02" } { "usage" = "fa" } { "usage" = "FF" } { "usage" = "b3" } } { "remote-cert-eku" { "oid" = "123.3510.350.10" } } { "remote-cert-eku" { "symbol" = "TLS Web Client Authentication" } } { "remote-cert-eku" { "symbol" = "serverAuth" } } { "crl-verify" = "/a/file/path" } { "crl-verify" = "/a/directory/" { "dir" } } { "show-ciphers" } { "show-digests" } { "show-tls" } { "show-engines" } { "genkey" } { "mktun" } { "rmtun" } { "ifconfig-ipv6" { "address" = "2000:123:456::/64" } { "remote" = "1234:99:123::124" } } { "ifconfig-ipv6-push" { "address" = "2000:123:456::/64" } { "remote" = "1234:99:123::124" } } { "iroute-ipv6" = "2000:123:456::/64" } { "route-ipv6" { "network" = "2000:123:456::/64" } } { "route-ipv6" { "network" = "2000:123:456::/64" } { "gateway" = "1234:99:123::124" } } { "route-ipv6" { "network" = "2000:123:456::/64" } { "gateway" = "1234:99:123::124" } { "metric" = "500" } } { "server-ipv6" = "2000:123:456::/64" } { "ifconfig-ipv6-pool" = "2000:123:456::/64" } { } PK ! �s�� � $ lenses/dist/tests/test_nagioscfg.augnu �[��� (* Module: Test_NagiosCfg Provides unit tests and examples for the <NagiosCfg> lens. *) module Test_NagiosCfg = let conf=" # LOG FILE log_file=/var/log/nagios3/nagios.log # OBJECT CONFIGURATION FILE(S) cfg_file=/etc/nagios3/objects/check_commands.cfg cfg_file=/etc/nagios3/objects/contact_groups.cfg cfg_file=/etc/nagios3/objects/contacts.cfg cfg_file=/etc/nagios3/objects/hostgroups.cfg cfg_file=/etc/nagios3/objects/hosts.cfg cfg_file=/etc/nagios3/objects/services.cfg # NAGIOS USER nagios_user=nagios # NAGIOS GROUP nagios_group=nagios # DATE FORMAT date_format=iso8601 # ILLEGAL OBJECT NAME CHARS illegal_object_name_chars=`~!$%^&*|'\"<>?,()'= # ILLEGAL MACRO OUTPUT CHARS illegal_macro_output_chars=`~$&|'\"<> # MISC DIRECTIVES p1_file=/usr/lib/nagios3/p1.pl event_broker_options=-1 use_large_installation_tweaks=1 broker_module=/usr/lib/nagios3/libNagiosCluster-1.0.so.4.0.0 broker_module=/usr/sbin/ndomod.o config_file=/etc/nagios3/ndomod.cfg " test NagiosCfg.lns get conf = {} { "#comment" = "LOG FILE" } { "log_file" = "/var/log/nagios3/nagios.log" } {} { "#comment" = "OBJECT CONFIGURATION FILE(S)" } { "cfg_file" = "/etc/nagios3/objects/check_commands.cfg" } { "cfg_file" = "/etc/nagios3/objects/contact_groups.cfg" } { "cfg_file" = "/etc/nagios3/objects/contacts.cfg" } { "cfg_file" = "/etc/nagios3/objects/hostgroups.cfg" } { "cfg_file" = "/etc/nagios3/objects/hosts.cfg" } { "cfg_file" = "/etc/nagios3/objects/services.cfg" } {} { "#comment" = "NAGIOS USER" } { "nagios_user" = "nagios" } {} { "#comment" = "NAGIOS GROUP" } { "nagios_group"= "nagios" } {} { "#comment" = "DATE FORMAT" } { "date_format" = "iso8601" } {} { "#comment" = "ILLEGAL OBJECT NAME CHARS" } { "illegal_object_name_chars" = "`~!$%^&*|'\"<>?,()'=" } {} { "#comment" = "ILLEGAL MACRO OUTPUT CHARS" } { "illegal_macro_output_chars" = "`~$&|'\"<>" } {} { "#comment" = "MISC DIRECTIVES" } { "p1_file" = "/usr/lib/nagios3/p1.pl" } { "event_broker_options" = "-1" } { "use_large_installation_tweaks" = "1" } { "broker_module" = "/usr/lib/nagios3/libNagiosCluster-1.0.so.4.0.0" } { "broker_module" = "/usr/sbin/ndomod.o" { "config_file" = "/etc/nagios3/ndomod.cfg" } } (* Spaces are fine in values *) let space_in = "nagios_check_command=/usr/lib/nagios/plugins/check_nagios /var/cache/nagios3/status.dat 5 '/usr/sbin/nagios3'\n" test NagiosCfg.lns get space_in = { "nagios_check_command" = "/usr/lib/nagios/plugins/check_nagios /var/cache/nagios3/status.dat 5 '/usr/sbin/nagios3'" } test NagiosCfg.lns get "$USER1$=/usr/local/libexec/nagios\n" = { "$USER1$" = "/usr/local/libexec/nagios" } test NagiosCfg.lns get "$USER3$=somepassword\n" = { "$USER3$" = "somepassword" } PK ! �~]� � " lenses/dist/tests/test_bbhosts.augnu �[��� module Test_bbhosts = let conf = " # A comment page firstpage My first page group-compress A group 1.2.3.4 amachine # http://url.to/monitor https://another.url/to/monitor cont;http://a.cont.url/to/monitor;wordtofind 1.2.3.5 amachine2 # http://url.to/monitor https://another.url/to/monitor !cont;http://a.cont.url/to/monitor;wordtofind group-only dns VIP DNS 10.50.25.48 mydnsmachine.network # 10.50.25.49 myotherdnsmachine.network #noping noconn !ssh dns;mydnstocheck # a comment in a group page anotherpage A new page # a comment in a page group-compress My test 192.168.0.2 myhost # https://myurl.com:1256 noconn pop3 imap2 ssh 192.168.0.3 myhost2 # !imap2 telnet dns group-compress DownTime 0.0.0.0 myhost3 # DOWNTIME=fping,http:*:1800:1015:\"Frontal 01 Redirect Amazon eteint entre 18h et 10h\" 0.0.0.0 myhost4 # ftps imaps imap4 pop-3 pop2s pop smtp smtps ssh ssh1 ssh2 telnet telnets " test BBhosts.lns get conf = {} { "#comment" = "A comment" } {} { "page" = "firstpage" { "title" = "My first page" } {} { "group-compress" = "A group" { "host" { "ip" = "1.2.3.4" } { "fqdn" = "amachine" } { "probes" { "url" = "http://url.to/monitor" } { "url" = "https://another.url/to/monitor" } { "cont" = "" { "url" = "http://a.cont.url/to/monitor" } { "keyword" = "wordtofind" } } } } { "host" { "ip" = "1.2.3.5" } { "fqdn" = "amachine2" } { "probes" { "url" = "http://url.to/monitor" } { "url" = "https://another.url/to/monitor" } { "cont" = "!" { "url" = "http://a.cont.url/to/monitor" } { "keyword" = "wordtofind" } } } } {} } { "group-only" = "VIP DNS" { "col" = "dns" } { "host" { "ip" = "10.50.25.48" } { "fqdn" = "mydnsmachine.network" } { "probes" } } { "host" { "ip" = "10.50.25.49" } { "fqdn" = "myotherdnsmachine.network" } { "probes" { "noping" = "" } { "noconn" = "" } { "ssh" = "!" } { "dns" = "" { "url" = "mydnstocheck" } } } } { "#comment" = "a comment in a group" } {} {} } } { "page" = "anotherpage" { "title" = "A new page" } {} { "#comment" = "a comment in a page" } {} { "group-compress" = "My test" { "host" { "ip" = "192.168.0.2" } { "fqdn" = "myhost" } { "probes" { "url" = "https://myurl.com:1256" } { "noconn" = "" } { "pop3" = "" } { "imap2" = "" } { "ssh" = "" } } } { "host" { "ip" = "192.168.0.3" } { "fqdn" = "myhost2" } { "probes" { "imap2" = "!" } { "telnet" = "" } { "dns" = "" } } } {} } { "group-compress" = "DownTime" { "host" { "ip" = "0.0.0.0" } { "fqdn" = "myhost3" } { "probes" { "DOWNTIME" { "probe" = "fping" } { "probe" = "http" } { "day" = "*" } { "starttime" = "1800" } { "endtime" = "1015" } { "cause" = "Frontal 01 Redirect Amazon eteint entre 18h et 10h" } } } } { "host" { "ip" = "0.0.0.0" } { "fqdn" = "myhost4" } { "probes" { "ftps" = "" } { "imaps" = "" } { "imap4" = "" } { "pop-3" = "" } { "pop2s" = "" } { "pop" = "" } { "smtp" = "" } { "smtps" = "" } { "ssh" = "" } { "ssh1" = "" } { "ssh2" = "" } { "telnet" = "" } { "telnets" = "" } } } } } PK ! ɜC4� � ( lenses/dist/tests/test_trapperkeeper.augnu �[��� module Test_Trapperkeeper = (* Variable: config *) let config = " # This is a comment webserver: { bar: { # A comment host: localhost port= 9000 default-server: true } foo: { host: localhost port = 10000 } } jruby-puppet: { # This setting determines where JRuby will look for gems. It is also # used by the `puppetserver gem` command line tool. gem-home: /var/lib/puppet/jruby-gems # (optional) path to puppet conf dir; if not specified, will use the puppet default master-conf-dir: /etc/puppet # (optional) path to puppet var dir; if not specified, will use the puppet default master-var-dir: /var/lib/puppet # (optional) maximum number of JRuby instances to allow; defaults to <num-cpus>+2 #max-active-instances: 1 } # CA-related settings certificate-authority: { # settings for the certificate_status HTTP endpoint certificate-status: { # this setting contains a list of client certnames who are whitelisted to # have access to the certificate_status endpoint. Any requests made to # this endpoint that do not present a valid client cert mentioned in # this list will be denied access. client-whitelist: [] } } os-settings: { ruby-load-path: [/usr/lib/ruby/vendor_ruby, /home/foo/ruby ] } \n" (* Test: Trapperkeeper.lns Test full config file *) test Trapperkeeper.lns get config = { } { "#comment" = "This is a comment" } { "@hash" = "webserver" { "@hash" = "bar" { "#comment" = "A comment" } { "@simple" = "host" { "@value" = "localhost" } } { "@simple" = "port" { "@value" = "9000" } } { "@simple" = "default-server" { "@value" = "true" } } } { } { "@hash" = "foo" { "@simple" = "host" { "@value" = "localhost" } } { "@simple" = "port" { "@value" = "10000" } } } } { } { "@hash" = "jruby-puppet" { "#comment" = "This setting determines where JRuby will look for gems. It is also" } { "#comment" = "used by the `puppetserver gem` command line tool." } { "@simple" = "gem-home" { "@value" = "/var/lib/puppet/jruby-gems" } } { } { "#comment" = "(optional) path to puppet conf dir; if not specified, will use the puppet default" } { "@simple" = "master-conf-dir" { "@value" = "/etc/puppet" } } { } { "#comment" = "(optional) path to puppet var dir; if not specified, will use the puppet default" } { "@simple" = "master-var-dir" { "@value" = "/var/lib/puppet" } } { } { "#comment" = "(optional) maximum number of JRuby instances to allow; defaults to <num-cpus>+2" } { "#comment" = "max-active-instances: 1" } } { } { } { "#comment" = "CA-related settings" } { "@hash" = "certificate-authority" { "#comment" = "settings for the certificate_status HTTP endpoint" } { "@hash" = "certificate-status" { "#comment" = "this setting contains a list of client certnames who are whitelisted to" } { "#comment" = "have access to the certificate_status endpoint. Any requests made to" } { "#comment" = "this endpoint that do not present a valid client cert mentioned in" } { "#comment" = "this list will be denied access." } { "@array" = "client-whitelist" } } } { } { "@hash" = "os-settings" { "@array" = "ruby-load-path" { "1" = "/usr/lib/ruby/vendor_ruby" } { "2" = "/home/foo/ruby" } } } { } (* Test: Trapperkeeper.lns Should parse an empty file *) test Trapperkeeper.lns get "\n" = {} (* Test: Trapperkeeper.lns Values can be quoted *) test Trapperkeeper.lns get "os-settings: { ruby-load-paths: [\"/usr/lib/ruby/site_ruby/1.8\"] }\n" = { "@hash" = "os-settings" { "@array" = "ruby-load-paths" { "1" = "/usr/lib/ruby/site_ruby/1.8" } } } (* Test: Trapperkeeper.lns Keys can be quoted *) test Trapperkeeper.lns get "test: { \"x\": true }\n" = { "@hash" = "test" { "@simple" = "x" { "@value" = "true" } } } (* Test: Trapperkeeper.lns Keys can contain / (GH #7) *) test Trapperkeeper.lns get "test: { \"x/y\" : z }\n" = { "@hash" = "test" { "@simple" = "x/y" { "@value" = "z" } } } PK ! ��3P P & lenses/dist/tests/test_cyrus_imapd.augnu �[��� module Test_cyrus_imapd = let conf = "configdirectory: /var/lib/imap partition-default: /var/spool/imap admins: cyrus-admin sievedir: /var/lib/imap/sieve sendmail: /usr/sbin/sendmail sasl_pwcheck_method: auxprop saslauthd sasl_mech_list: PLAIN LOGIN allowplaintext: no tls_cert_file: /etc/pki/cyrus-imapd/cyrus-imapd.pem tls_key_file: /etc/pki/cyrus-imapd/cyrus-imapd.pem tls_ca_file: /etc/pki/tls/certs/ca-bundle.crt # uncomment this if you're operating in a DSCP environment (RFC-4594) # qosmarking: af13\n" test Cyrus_Imapd.lns get conf = { "configdirectory" = "/var/lib/imap" } { "partition-default" = "/var/spool/imap" } { "admins" = "cyrus-admin" } { "sievedir" = "/var/lib/imap/sieve" } { "sendmail" = "/usr/sbin/sendmail" } { "sasl_pwcheck_method" = "auxprop saslauthd" } { "sasl_mech_list" = "PLAIN LOGIN" } { "allowplaintext" = "no" } { "tls_cert_file" = "/etc/pki/cyrus-imapd/cyrus-imapd.pem" } { "tls_key_file" = "/etc/pki/cyrus-imapd/cyrus-imapd.pem" } { "tls_ca_file" = "/etc/pki/tls/certs/ca-bundle.crt" } { "#comment" = "uncomment this if you're operating in a DSCP environment (RFC-4594)" } { "#comment" = "qosmarking: af13" } test Cyrus_Imapd.lns get "admins: cyrus-admin\n" = { "admins" = "cyrus-admin" } test Cyrus_Imapd.lns put "" after set "munge8bit" "false" = "munge8bit: false\n" PK ! � ʔw w lenses/dist/tests/test_ntpd.augnu �[��� (* Module: Test_Ntpd Provides unit tests for the <Ntpd> lens. *) module Test_ntpd = test Ntpd.listen get "listen on *\n" = { "listen on" { "address" = "*" } } test Ntpd.listen get "listen on 127.0.0.1\n" = { "listen on" { "address" = "127.0.0.1" } } test Ntpd.listen get "listen on ::1\n" = { "listen on" { "address" = "::1" } } test Ntpd.listen get "listen on ::1 rtable 4\n" = { "listen on" { "address" = "::1" } { "rtable" = "4" } } test Ntpd.server get "server ntp.example.org\n" = { "server" { "address" = "ntp.example.org" } } test Ntpd.server get "server ntp.example.org rtable 42\n" = { "server" { "address" = "ntp.example.org" } { "rtable" = "42" } } test Ntpd.server get "server ntp.example.org weight 1 rtable 42\n" = { "server" { "address" = "ntp.example.org" } { "weight" = "1" } { "rtable" = "42" } } test Ntpd.server get "server ntp.example.org weight 10\n" = { "server" { "address" = "ntp.example.org" } { "weight" = "10" } } test Ntpd.sensor get "sensor *\n" = { "sensor" { "device" = "*" } } test Ntpd.sensor get "sensor nmea0\n" = { "sensor" { "device" = "nmea0" } } test Ntpd.sensor get "sensor nmea0 correction 42\n" = { "sensor" { "device" = "nmea0" } { "correction" = "42" } } test Ntpd.sensor get "sensor nmea0 correction -42\n" = { "sensor" { "device" = "nmea0" } { "correction" = "-42" } } test Ntpd.sensor get "sensor nmea0 correction 42 weight 2\n" = { "sensor" { "device" = "nmea0" } { "correction" = "42" } { "weight" = "2" } } test Ntpd.sensor get "sensor nmea0 correction 42 refid Puffy\n" = { "sensor" { "device" = "nmea0" } { "correction" = "42" } { "refid" = "Puffy" } } test Ntpd.sensor get "sensor nmea0 correction 42 stratum 2\n" = { "sensor" { "device" = "nmea0" } { "correction" = "42" } { "stratum" = "2" } } PK ! P��4 4 ' lenses/dist/tests/test_gtkbookmarks.augnu �[��� (* Module: Test_GtkBookmarks Provides unit tests and examples for the <GtkBookmarks> lens. *) module Test_GtkBookmarks = (* Test: GtkBookmarks.lns Test without label *) test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n" = { "bookmark" = "ftp://user@myftp.com/somedir" } (* Test: GtkBookmarks.lns Test with label *) test GtkBookmarks.lns get "file:///home/rpinson/Ubuntu%20One Ubuntu One\n" = { "bookmark" = "file:///home/rpinson/Ubuntu%20One" { "label" = "Ubuntu One" } } (* Test: GtkBookmarks.lns Empty lines are allowed, not comments *) test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n\nfile:///home/rpinson/Ubuntu%20One Ubuntu One\n" = { "bookmark" = "ftp://user@myftp.com/somedir" } { } { "bookmark" = "file:///home/rpinson/Ubuntu%20One" { "label" = "Ubuntu One" } } PK ! h%ϱ� � % lenses/dist/tests/test_simplevars.augnu �[��� (* Module: Test_Simplevars Provides unit tests and examples for the <Simplevars> lens. *) module Test_Simplevars = (* Variable: conf *) let conf = "# this is a comment mykey = myvalue # eol comment anotherkey = another value " (* Test: Simplevars.lns *) test Simplevars.lns get conf = { "#comment" = "this is a comment" } { } { "mykey" = "myvalue" { "#comment" = "eol comment" } } { "anotherkey" = "another value" } (* Test: Simplevars.lns Quotes are OK in variables that do not begin with a quote *) test Simplevars.lns get "UserParameter=custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'\n" = { "UserParameter" = "custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'" } (* Test: Simplevars.lns Support flags *) test Simplevars.lns get "dnsadminapp\n" = { "dnsadminapp" } (* Test: Simplevars.lns Support empty values *) test Simplevars.lns get "foo =\n" = { "foo" = "" { } } PK ! U�U� � # lenses/dist/tests/test_htpasswd.augnu �[��� (* Module: Test_Htpasswd Provides unit tests and examples for the <Htpasswd> lens. *) module Test_Htpasswd = let htpasswd = "foo-plain:bar foo-crypt:78YuxG9nnfUCo foo-md5:$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/ foo-sha1:{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00= " test Htpasswd.lns get htpasswd = { "foo-plain" = "bar" } { "foo-crypt" = "78YuxG9nnfUCo" } { "foo-md5" = "$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/" } { "foo-sha1" = "{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=" } PK ! �3]� � $ lenses/dist/tests/test_multipath.augnu �[��� module Test_multipath = let conf = "# Blacklist all devices by default. blacklist { devnode \"*\" wwid * } # By default, devices with vendor = \"IBM\" and product = \"S/390.*\" are # blacklisted. To enable mulitpathing on these devies, uncomment the # following lines. blacklist_exceptions { device { vendor \"IBM\" product \"S/390.*\" } } # # Here is an example of how to configure some standard options. # defaults { udev_dir /dev polling_interval 10 selector \"round-robin 0\" path_grouping_policy multibus getuid_callout \"/sbin/scsi_id --whitelisted /dev/%n\" prio alua path_checker readsector0 rr_min_io 100 max_fds 8192 rr_weight priorities failback immediate no_path_retry fail user_friendly_names yes dev_loss_tmo 30 max_polling_interval 300 verbosity 2 reassign_maps yes fast_io_fail_tmo 5 async_timeout 5 flush_on_last_del no delay_watch_checks no delay_wait_checks no find_multipaths yes checker_timeout 10 hwtable_regex_match yes reload_readwrite no force_sync yes config_dir /etc/multipath/conf.d } # Sections without empty lines in between blacklist { wwid 26353900f02796769 devnode \"^(ram|raw|loop|fd|md|dm-|sr|scd|st)[0-9]*\" # Comments and blank lines inside a section devnode \"^hd[a-z]\" } multipaths { multipath { wwid 3600508b4000156d700012000000b0000 alias yellow path_grouping_policy multibus path_checker readsector0 path_selector \"round-robin 0\" failback manual rr_weight priorities no_path_retry 5 flush_on_last_del yes } multipath { wwid 1DEC_____321816758474 alias red } } devices { device { vendor \"COMPAQ \" product \"HSV110 (C)COMPAQ\" path_grouping_policy multibus getuid_callout \"/sbin/scsi_id --whitelisted /dev/%n\" path_checker readsector0 path_selector \"round-robin 0\" hardware_handler \"0\" failback 15 rr_weight priorities rr_min_io_rq 75 no_path_retry queue reservation_key a12345 } device { vendor \"COMPAQ \" product \"MSA1000 \" path_grouping_policy multibus polling_interval 9 delay_watch_checks 10 delay_wait_checks 10 } }\n" test Multipath.lns get conf = { "#comment" = "Blacklist all devices by default." } { "blacklist" { "devnode" = "*" } { "wwid" = "*" } } { } { "#comment" = "By default, devices with vendor = \"IBM\" and product = \"S/390.*\" are" } { "#comment" = "blacklisted. To enable mulitpathing on these devies, uncomment the" } { "#comment" = "following lines." } { "blacklist_exceptions" { "device" { "vendor" = "IBM" } { "product" = "S/390.*" } } } { } { } { "#comment" = "Here is an example of how to configure some standard options." } { } { } { "defaults" { "udev_dir" = "/dev" } { "polling_interval" = "10" } { "selector" = "round-robin 0" } { "path_grouping_policy" = "multibus" } { "getuid_callout" = "/sbin/scsi_id --whitelisted /dev/%n" } { "prio" = "alua" } { "path_checker" = "readsector0" } { "rr_min_io" = "100" } { "max_fds" = "8192" } { "rr_weight" = "priorities" } { "failback" = "immediate" } { "no_path_retry" = "fail" } { "user_friendly_names" = "yes" } { "dev_loss_tmo" = "30" } { "max_polling_interval" = "300" } { "verbosity" = "2" } { "reassign_maps" = "yes" } { "fast_io_fail_tmo" = "5" } { "async_timeout" = "5" } { "flush_on_last_del" = "no" } { "delay_watch_checks" = "no" } { "delay_wait_checks" = "no" } { "find_multipaths" = "yes" } { "checker_timeout" = "10" } { "hwtable_regex_match" = "yes" } { "reload_readwrite" = "no" } { "force_sync" = "yes" } { "config_dir" = "/etc/multipath/conf.d" } } { } { "#comment" = "Sections without empty lines in between" } { "blacklist" { "wwid" = "26353900f02796769" } { "devnode" = "^(ram|raw|loop|fd|md|dm-|sr|scd|st)[0-9]*" } { } { "#comment" = "Comments and blank lines inside a section" } { "devnode" = "^hd[a-z]" } { } } { "multipaths" { "multipath" { "wwid" = "3600508b4000156d700012000000b0000" } { "alias" = "yellow" } { "path_grouping_policy" = "multibus" } { "path_checker" = "readsector0" } { "path_selector" = "round-robin 0" } { "failback" = "manual" } { "rr_weight" = "priorities" } { "no_path_retry" = "5" } { "flush_on_last_del" = "yes" } } { "multipath" { "wwid" = "1DEC_____321816758474" } { "alias" = "red" } } } { "devices" { "device" { "vendor" = "COMPAQ " } { "product" = "HSV110 (C)COMPAQ" } { "path_grouping_policy" = "multibus" } { "getuid_callout" = "/sbin/scsi_id --whitelisted /dev/%n" } { "path_checker" = "readsector0" } { "path_selector" = "round-robin 0" } { "hardware_handler" = "0" } { "failback" = "15" } { "rr_weight" = "priorities" } { "rr_min_io_rq" = "75" } { "no_path_retry" = "queue" } { "reservation_key" = "a12345" } } { "device" { "vendor" = "COMPAQ " } { "product" = "MSA1000 " } { "path_grouping_policy" = "multibus" } { "polling_interval" = "9" } { "delay_watch_checks" = "10" } { "delay_wait_checks" = "10" } } } test Multipath.lns get "blacklist { devnode \".*\" wwid \"([a-z]+|ab?c).*\" }\n" = { "blacklist" { "devnode" = ".*" } { "wwid" = "([a-z]+|ab?c).*" } } test Multipath.lns get "blacklist {\n property \"[a-z]+\"\n}\n" = { "blacklist" { "property" = "[a-z]+" } } (* Check that '""' inside a string works *) test Multipath.lns get "blacklist { device { vendor SomeCorp product \"2.5\"\" SSD\" } }\n" = { "blacklist" { "device" { "vendor" = "SomeCorp" } { "product" = "2.5\"\" SSD" } } } (* Issue #583 - allow optional quotes around values and strip them *) test Multipath.lns get "devices { device { vendor \"COMPELNT\" product \"Compellent Vol\" path_grouping_policy \"multibus\" path_checker \"tur\" features \"0\" hardware_handler \"0\" prio \"const\" failback \"immediate\" rr_weight \"uniform\" no_path_retry \"queue\" } }\n" = { "devices" { "device" { "vendor" = "COMPELNT" } { "product" = "Compellent Vol" } { "path_grouping_policy" = "multibus" } { "path_checker" = "tur" } { "features" = "0" } { "hardware_handler" = "0" } { "prio" = "const" } { "failback" = "immediate" } { "rr_weight" = "uniform" } { "no_path_retry" = "queue" } } } PK ! 8��� � ! lenses/dist/tests/test_splunk.augnu �[��� (** * * This module is used to test the Splunk module for valid extractions. * Written by Tim Brigham. * This file is licensed under the LGPLv2+, like the rest of Augeas. **) module Test_splunk = (** inputs.conf **) let inputs = "[default] host = splunk-node-1.example.com enable_autocomplete_login = False _meta = metakey::metaval foo::bar [udp://514] connection_host = none source = test sourcetype = syslog " test Splunk.lns get inputs = { "target" = "default" { "host" = "splunk-node-1.example.com" } { "enable_autocomplete_login" = "False" } { "_meta" = "metakey::metaval foo::bar" } {}} { "target" = "udp://514" { "connection_host" = "none" } { "source" = "test" } { "sourcetype" = "syslog" } {}} (** web.conf **) let web = "[settings] enableSplunkWebSSL = 1 enable_autocomplete_login = False " test Splunk.lns get web = { "target" = "settings" { "enableSplunkWebSSL" = "1" } { "enable_autocomplete_login" = "False" } } (** props.conf **) let props = "[splunkd_stdout] PREFIX_SOURCETYPE = False SHOULD_LINEMERGE = False is_valid = False maxDist = 99 " test Splunk.lns get props = { "target" = "splunkd_stdout" { "PREFIX_SOURCETYPE" = "False" } { "SHOULD_LINEMERGE" = "False" } { "is_valid" = "False" } { "maxDist" = "99" } {}} (** tenants.conf **) let tenants = "[tenant:default] whitelist.0 = * " test Splunk.lns get tenants = { "target" = "tenant:default" { "whitelist.0" = "*" } } let server = "[license] active_group = Free master_uri = https://myserver.mydomain.com:8089 [general] serverName = splunk-node-1 trustedIP = 127.0.0.1 guid = XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXXXXXXXX [sslConfig] sslKeysfilePassword = $1$XX2X4XX6XXXXXXXXX " test Splunk.lns get server = { "target" = "license" { "active_group" = "Free" } { "master_uri" = "https://myserver.mydomain.com:8089" } {}} { "target" = "general" { "serverName" = "splunk-node-1" } { "trustedIP" = "127.0.0.1" } { "guid" = "XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXXXXXXXX" } {}} { "target" = "sslConfig" { "sslKeysfilePassword" = "$1$XX2X4XX6XXXXXXXXX" } {}} (* test anonymous attributes *) let anon = " # master serverName = splunk-node-1 # slave serverName = splunk-node-2 [general] serverName = splunk-node-3 " test Splunk.lns get anon = { ".anon" { } { "#comment" = "master" } { "serverName" = "splunk-node-1" } { } { "#comment" = "slave" } { "serverName" = "splunk-node-2" } { } } { "target" = "general" { "serverName" = "splunk-node-3" } { } } (* test empty value entry *) let override = " [general] # normal entry foo = bar # override entry foo = " test Splunk.lns get override = { ".anon" { } } { "target" = "general" { "#comment" = "normal entry" } { "foo" = "bar" } { "#comment" = "override entry" } { "foo" } } PK ! Ӽ;�; ; ( lenses/dist/tests/test_afs_cellalias.augnu �[��� (* Module: Test_AFS_cellalias Provides unit tests and examples for the <AFS_cellalias> lens. *) module Test_AFS_cellalias = (* Variable: conf A full configuration *) let conf = "# Cell Aliases are meant to act like symlinks like '/afs/openafs.org -> oao' # in root.afs, so sites relying on such a link for their cell can use dynroot. # These aliases are set with 'fs newalias', or read from # /usr/vice/etc/CellAlias # # Formatting for /usr/vice/etc/CellAlias is in the form # <target> <alias> # an example would be # fnal.gov/common/usr usr fnal.gov fnal fnal.gov/files fnal-files " (* Test: AFS_cellalias.lns Test the full <conf> *) test AFS_cellalias.lns get conf = { "#comment" = "Cell Aliases are meant to act like symlinks like '/afs/openafs.org -> oao'" } { "#comment" = "in root.afs, so sites relying on such a link for their cell can use dynroot." } { "#comment" = "These aliases are set with 'fs newalias', or read from" } { "#comment" = "/usr/vice/etc/CellAlias" } { } { "#comment" = "Formatting for /usr/vice/etc/CellAlias is in the form" } { "#comment" = "<target> <alias>" } { "#comment" = "an example would be" } { "#comment" = "fnal.gov/common/usr usr" } { } { "target" = "fnal.gov" { "linkname" = "fnal" } } { "target" = "fnal.gov/files" { "linkname" = "fnal-files" } } PK ! r,� " lenses/dist/tests/test_stunnel.augnu �[��� module Test_stunnel = let conf ="; Test stunnel-like config file ; Foo bar baz cert = /path/1 key = /path/2 sslVersion = SSLv3 ; another comment [service1] accept = 49999 connect = servicedest:1234 [service2] accept = 1234 " test Stunnel.lns get conf = { ".anon" { "#comment" = "Test stunnel-like config file" } { "#comment" = "Foo bar baz" } { "cert" = "/path/1" } { "key" = "/path/2" } {} { "sslVersion" = "SSLv3" } {} { "#comment" = "another comment" } {} } { "service1" { "accept" = "49999" } { "connect" = "servicedest:1234" } {} } { "service2" { "accept" = "1234" } } PK ! hf�2, 2, ! lenses/dist/tests/test_syslog.augnu �[��� module Test_syslog = let conf="# $FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $ # daemon.info /var/log/cvsupd.log security.* -/var/log/security *.notice;authpriv.none;kern.debug;lpr.info;mail.crit;news.err /var/log/messages uucp,news.crit /var/log/spooler *.emerg * daemon.!info /var/log/foo daemon.<=info /var/log/foo daemon.!<=info /var/log/foo *.* @syslog.far.away *.* @syslog.far.away:123 *.* @@syslog.far.away *.* @@syslog.far.away:123 *.* @[2001::1]:514 *.* foo,bar *.* |\"/usr/bin/soft arg\" !startslip # get that out *.* /var/log/slip.log !pppd,ppp *.* /var/log/ppp.log !+startslip *.* /var/log/slip.log !-startslip *.* /var/log/slip.log #!pppd *.* /var/log/ppp.log +foo.example.com daemon.info /var/log/cvsupd.log +foo.example.com,bar.example.com daemon.info /var/log/cvsupd.log #+bar.example.com daemon.info /var/log/cvsupd.log -foo.example.com daemon.info /var/log/cvsupd.log +* daemon.info /var/log/cvsupd.log !* daemon.info /var/log/cvsupd.log *.=debug;\ auth,authpriv.none;\ news.none;mail.none -/var/log/debug # !pppd " test Syslog.lns get conf = { "#comment" = "$FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $" } { } { } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } { "entry" { "selector" { "facility" = "security" } { "level" = "*" } } { "action" { "no_sync" } { "file" = "/var/log/security" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "notice" } } { "selector" { "facility" = "authpriv" } { "level" = "none" } } { "selector" { "facility" = "kern" } { "level" = "debug" } } { "selector" { "facility" = "lpr" } { "level" = "info" } } { "selector" { "facility" = "mail" } { "level" = "crit" } } { "selector" { "facility" = "news" } { "level" = "err" } } { "action" { "file" = "/var/log/messages" } } } { "entry" { "selector" { "facility" = "uucp" } { "facility" = "news" } { "level" = "crit" } } { "action" { "file" = "/var/log/spooler" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "emerg" } } { "action" { "user" = "*" } } } { "entry" { "selector" { "facility" = "daemon" } { "comparison" = "!" } { "level" = "info" } } { "action" { "file" = "/var/log/foo" } } } { "entry" { "selector" { "facility" = "daemon" } { "comparison" = "<=" } { "level" = "info" } } { "action" { "file" = "/var/log/foo" } } } { "entry" { "selector" { "facility" = "daemon" } { "comparison" = "!<=" } { "level" = "info" } } { "action" { "file" = "/var/log/foo" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } { "port" = "123" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } { "port" = "123" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@" } { "hostname" = "[2001::1]" } { "port" = "514" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "user" = "foo" } { "user" = "bar" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "program" = "\"/usr/bin/soft arg\"" } } } { "program" { "program" = "startslip" } { "#comment" = "get that out" } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "file" = "/var/log/slip.log" } } } } { "program" { "program" = "pppd" } { "program" = "ppp" } { } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "file" = "/var/log/ppp.log" } } } } { "program" { "program" = "startslip" } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "file" = "/var/log/slip.log" } } } } { "program" { "reverse" } { "program" = "startslip" } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "file" = "/var/log/slip.log" } } } } { "program" { "program" = "pppd" } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "file" = "/var/log/ppp.log" } } } } { "hostname" { "hostname" = "foo.example.com" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } } { "hostname" { "hostname" = "foo.example.com" } { "hostname" = "bar.example.com" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } } { "hostname" { "hostname" = "bar.example.com" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } } { "hostname" { "reverse" } { "hostname" = "foo.example.com" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } } { "hostname" { "hostname" = "*" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } } { "program" { "program" = "*" } { "entry" { "selector" { "facility" = "daemon" } { "level" = "info" } } { "action" { "file" = "/var/log/cvsupd.log" } } } { "entry" { "selector" { "facility" = "*" } { "comparison" = "=" } { "level" = "debug" } } { "selector" { "facility" = "auth" } { "facility" = "authpriv" } { "level" = "none" } } { "selector" { "facility" = "news" } { "level" = "none" } } { "selector" { "facility" = "mail" } { "level" = "none" } } { "action" { "no_sync" } { "file" = "/var/log/debug" } } } { "#comment" = "!pppd" } } (* changing file *) test Syslog.lns put "*.* /var\n" after set "/entry[1]/action/file" "/foo" = "*.* /foo\n" (* changing file to discard *) test Syslog.lns put "*.* /var\n" after rm "/entry[1]/action/file" ; set "/entry[1]/action/discard" "" = "*.* ~\n" (* removing entry *) test Syslog.lns put "*.* /var\n" after rm "/entry[1]" = "" (* changing facility and level *) test Syslog.lns put "*.* /var\n" after set "/entry[1]/selector/facility" "daemon" ; set "/entry[1]/selector/level" "info" = "daemon.info /var\n" (* insert a facility *) test Syslog.lns put "daemon.* /var\n" after insa "facility" "/entry/selector/facility" ; set "/entry/selector/facility[2]" "mail" = "daemon,mail.* /var\n" (* creating an entry *) test Syslog.lns put "" after set "/entry/selector/facility" "daemon" ; set "/entry/selector/level" "info" ; set "/entry/action/file" "/var" = "daemon.info\t/var\n" (* inserting an entry before *) test Syslog.lns put "*.* /var\n" after insb "entry" "/entry" ; set "/entry[1]/selector/facility" "daemon" ; set "/entry[1]/selector/level" "info" ; set "/entry[1]/action/file" "/foo" = "daemon.info /foo\n*.*\t/var\n" (* inserting an entry after *) test Syslog.lns put "*.* /var\n" after insa "entry" "/entry" ; set "/entry[2]/selector/facility" "daemon" ; set "/entry[2]/selector/level" "info" ; set "/entry[2]/action/file" "/foo" = "*.* /var\ndaemon.info\t/foo\n" (* insert sync on a file *) test Syslog.lns put "*.* /var\n" after insb "no_sync" "/entry/action/file" = "*.* -/var\n" (* changing file to remote host *) test Syslog.lns put "*.* /var\n" after rm "/entry/action/file" ; set "/entry/action/protocol" "@" ; set "/entry/action/hostname" "far.far.away" = "*.* @far.far.away\n" (* changing file to remote host *) test Syslog.lns put "*.* /var/lib\n" after rm "/entry/action/file" ; set "/entry/action/protocol" "@@" ; set "/entry/action/hostname" "far.far.away" = "*.* @@far.far.away\n" (* changing file to * *) test Syslog.lns put "*.* /var\n" after rm "/entry/action/file" ; set "/entry/action/user" "*" = "*.* *\n" (* changing file to users *) test Syslog.lns put "*.* /var\n" after rm "/entry/action/file" ; set "/entry/action/user[1]" "john" ; set "/entry/action/user[2]" "paul" ; set "/entry/action/user[3]" "george" ; set "/entry/action/user[4]" "ringo" = "*.* john,paul,george,ringo\n" (* changing file to program *) test Syslog.lns put "*.* /var\n" after rm "/entry/action/file" ; set "/entry/action/program" "/usr/bin/foo" = "*.* |/usr/bin/foo\n" (* inserting a matching program *) test Syslog.lns put "" after insa "program" "/" ; set "/program/program" "foo" = "!foo\n" (* inserting an entry to a matching program *) test Syslog.lns put "!foo\n" after set "/program/entry/selector/facility" "*" ; set "/program/entry/selector/level" "*" ; set "/program/entry/action/file" "/foo" = "!foo\n*.*\t/foo\n" (* inserting a matching hostname *) test Syslog.lns put "" after insa "hostname" "/" ; set "/hostname/hostname" "foo.foo.away" = "+foo.foo.away\n" (* inserting an entry to a matching hostname *) test Syslog.lns put "+foo.foo.away\n" after set "/hostname/entry/selector/facility" "*" ; set "/hostname/entry/selector/level" "*" ; set "/hostname/entry/action/file" "/foo" = "+foo.foo.away\n*.*\t/foo\n" (* inserting a reverse matching hostname *) test Syslog.lns put "" after insa "hostname" "/" ; set "/hostname/reverse" "" ; set "/hostname/hostname" "foo.foo.away" = "-foo.foo.away\n" (* tokens can contain capital letters *) test Syslog.lns get "LOCAL5.* -/var/log/foo.log\n" = { "entry" { "selector" { "facility" = "LOCAL5" } { "level" = "*" } } { "action" { "no_sync" } { "file" = "/var/log/foo.log" } } } (* test for commented out statements *) test Syslog.lns put "" after set "#comment" "!pppd" = "# !pppd\n" (* allow space before comments *) test Syslog.lns get " \t# space comment\n" = { "#comment" = "space comment" } test Syslog.lns get "include /etc/syslog.d\n" = { "include" = "/etc/syslog.d" } PK ! ƅW9 9 . lenses/dist/tests/test_postfix_passwordmap.augnu �[��� (* Module: Test_Postfix_Passwordmap Provides unit tests and examples for the <Postfix_Passwordmap> lens. *) module Test_Postfix_Passwordmap = (* View: conf *) let conf = "# comment * username:password [mail.isp.example] username:password [mail.isp.example]:submission username:password [mail.isp.example]:587 username:password mail.isp.example username:password user@mail.isp.example username: mail.isp.example username2:password2 " (* Test: Postfix_Passwordmap.lns *) test Postfix_Passwordmap.lns get conf = { "#comment" = "comment" } { "pattern" = "*" { "username" = "username" } { "password" = "password" } } { "pattern" = "[mail.isp.example]" { "username" = "username" } { "password" = "password" } } { "pattern" = "[mail.isp.example]:submission" { "username" = "username" } { "password" = "password" } } { "pattern" = "[mail.isp.example]:587" { "username" = "username" } { "password" = "password" } } { "pattern" = "mail.isp.example" { "username" = "username" } { "password" = "password" } } { "pattern" = "user@mail.isp.example" { "username" = "username" } { "password" } } { "pattern" = "mail.isp.example" { "username" = "username2" } { "password" = "password2" } } PK ! � H{ { lenses/dist/tests/test_odbc.augnu �[��� module Test_odbc = let conf = " # Example driver definitinions # # # Included in the unixODBC package [PostgreSQL] Description = ODBC for PostgreSQL Driver = /usr/lib/libodbcpsql.so Setup = /usr/lib/libodbcpsqlS.so FileUsage = 1 [MySQL] # Driver from the MyODBC package # Setup from the unixODBC package Description = ODBC for MySQL Driver = /usr/lib/libmyodbc.so Setup = /usr/lib/libodbcmyS.so FileUsage = 1 " test Odbc.lns get conf = { } { "#comment" = "Example driver definitinions" } {} {} { } { "#comment" = "Included in the unixODBC package" } { "PostgreSQL" { "Description" = "ODBC for PostgreSQL" } { "Driver" = "/usr/lib/libodbcpsql.so" } { "Setup" = "/usr/lib/libodbcpsqlS.so" } { "FileUsage" = "1" } {} } { "MySQL" { "#comment" = "Driver from the MyODBC package" } { "#comment" = "Setup from the unixODBC package" } { "Description" = "ODBC for MySQL" } { "Driver" = "/usr/lib/libmyodbc.so" } { "Setup" = "/usr/lib/libodbcmyS.so" } { "FileUsage" = "1" } } test Odbc.lns put conf after set "MySQL/Driver" "/usr/lib64/libmyodbc3.so"; set "MySQL/Driver/#comment" "note the path" = " # Example driver definitinions # # # Included in the unixODBC package [PostgreSQL] Description = ODBC for PostgreSQL Driver = /usr/lib/libodbcpsql.so Setup = /usr/lib/libodbcpsqlS.so FileUsage = 1 [MySQL] # Driver from the MyODBC package # Setup from the unixODBC package Description = ODBC for MySQL Driver = /usr/lib64/libmyodbc3.so#note the path Setup = /usr/lib/libodbcmyS.so FileUsage = 1 " PK ! ]T-� � $ lenses/dist/tests/test_spacevars.augnu �[��� module Test_spacevars = let conf ="# This a spaced key/value configuration file. keyword value # I like comments very.useful-key my=value a.flag " let lns = Spacevars.lns test lns get conf = { "#comment" = "This a spaced key/value configuration file."} { "keyword" = "value" } {} { "#comment" = "I like comments"} { "very.useful-key" = "my=value" } {} { "a.flag" } PK ! �b$�� � $ lenses/dist/tests/test_logrotate.augnu �[��� module Test_logrotate = test Logrotate.body get "\n{\n monthly\n}" = { "schedule" = "monthly" } test Logrotate.rule get "/var/log/foo\n{\n monthly\n}\n" = { "rule" { "file" = "/var/log/foo" } { "schedule" = "monthly" } } test Logrotate.rule get "/var/log/foo /var/log/bar\n{\n monthly\n}\n" = { "rule" { "file" = "/var/log/foo" } { "file" = "/var/log/bar" } { "schedule" = "monthly" } } test Logrotate.rule get "\"/var/log/foo\"\n{\n monthly\n}\n" = { "rule" { "file" = "/var/log/foo" } { "schedule" = "monthly" } } let conf = "# see man logrotate for details # rotate log files weekly weekly # keep 4 weeks worth of backlogs rotate 4 # create new (empty) log files after rotating old ones create # uncomment this if you want your log files compressed #compress tabooext + .old .orig .ignore # packages drop log rotation information into this directory include /etc/logrotate.d # no packages own wtmp, or btmp -- we'll rotate them here /var/log/wtmp /var/log/wtmp2 { missingok monthly create 0664 root utmp rotate 1 } /var/log/btmp /var/log/btmp* { missingok # ftpd doesn't handle SIGHUP properly monthly create 0664 root utmp rotate 1 } /var/log/vsftpd.log { # ftpd doesn't handle SIGHUP properly nocompress missingok notifempty rotate 4 weekly } /var/log/apache2/*.log { weekly missingok rotate 52 compress delaycompress notifempty create 640 root adm sharedscripts prerotate if [ -f /var/run/apache2.pid ]; then /etc/init.d/apache2 restart > /dev/null fi endscript } /var/log/mailman/digest { su root list monthly missingok create 0664 list list rotate 4 compress delaycompress sharedscripts postrotate [ -f '/var/run/mailman/mailman.pid' ] && /usr/lib/mailman/bin/mailmanctl -q reopen || exit 0 endscript } /var/log/ntp { compress dateext maxage 365 rotate 99 size=+2048k notifempty missingok copytruncate postrotate chmod 644 /var/log/ntp endscript } " test Logrotate.lns get conf = { "#comment" = "see man logrotate for details" } { "#comment" = "rotate log files weekly" } { "schedule" = "weekly" } {} { "#comment" = "keep 4 weeks worth of backlogs" } { "rotate" = "4" } {} { "#comment" = "create new (empty) log files after rotating old ones" } { "create" } {} { "#comment" = "uncomment this if you want your log files compressed" } { "#comment" = "compress" } {} { "tabooext" = "+" { ".old" } { ".orig" } { ".ignore" } } {} { "#comment" = "packages drop log rotation information into this directory" } { "include" = "/etc/logrotate.d" } {} { "#comment" = "no packages own wtmp, or btmp -- we'll rotate them here" } { "rule" { "file" = "/var/log/wtmp" } { "file" = "/var/log/wtmp2" } { "missingok" = "missingok" } { "schedule" = "monthly" } { "create" { "mode" = "0664" } { "owner" = "root" } { "group" = "utmp" } } { "rotate" = "1" } } {} { "rule" { "file" = "/var/log/btmp" } { "file" = "/var/log/btmp*" } { "missingok" = "missingok" } { "#comment" = "ftpd doesn't handle SIGHUP properly" } { "schedule" = "monthly" } { "create" { "mode" = "0664" } { "owner" = "root" } { "group" = "utmp" } } { "rotate" = "1" } } { "rule" { "file" = "/var/log/vsftpd.log" } { "#comment" = "ftpd doesn't handle SIGHUP properly" } { "compress" = "nocompress" } { "missingok" = "missingok" } { "ifempty" = "notifempty" } { "rotate" = "4" } { "schedule" = "weekly" } } {} { "rule" { "file" = "/var/log/apache2/*.log" } { "schedule" = "weekly" } { "missingok" = "missingok" } { "rotate" = "52" } { "compress" = "compress" } { "delaycompress" = "delaycompress" } { "ifempty" = "notifempty" } { "create" { "mode" = "640" } { "owner" = "root" } { "group" = "adm" } } { "sharedscripts" = "sharedscripts" } { "prerotate" = " if [ -f /var/run/apache2.pid ]; then /etc/init.d/apache2 restart > /dev/null fi" } } { "rule" { "file" = "/var/log/mailman/digest" } { "su" { "owner" = "root" } { "group" = "list" } } { "schedule" = "monthly" } { "missingok" = "missingok" } { "create" { "mode" = "0664" } { "owner" = "list" } { "group" = "list" } } { "rotate" = "4" } { "compress" = "compress" } { "delaycompress" = "delaycompress" } { "sharedscripts" = "sharedscripts" } { "postrotate" = " [ -f '/var/run/mailman/mailman.pid' ] && /usr/lib/mailman/bin/mailmanctl -q reopen || exit 0" } } { "rule" { "file" = "/var/log/ntp" } { "compress" = "compress" } { "dateext" = "dateext" } { "maxage" = "365" } { "rotate" = "99" } { "size" = "+2048k" } { "ifempty" = "notifempty" } { "missingok" = "missingok" } { "copytruncate" = "copytruncate" } { "postrotate" = " chmod 644 /var/log/ntp" } } test Logrotate.lns get "/var/log/file {\n dateext\n}\n" = { "rule" { "file" = "/var/log/file" } { "dateext" = "dateext" } } (* Make sure 'minsize 1M' works *) test Logrotate.lns get "/avr/log/wtmp {\n minsize 1M\n}\n" = { "rule" { "file" = "/avr/log/wtmp" } { "minsize" = "1M" } } (* '=' is a legal separator, file names can be indented *) test Logrotate.lns get " \t /file {\n size=5M\n}\n" = { "rule" { "file" = "/file" } { "size" = "5M" } } (* Can leave owner/group off a create statement *) test Logrotate.lns get "/file { create 600\n}\n" = { "rule" { "file" = "/file" } { "create" { "mode" = "600" } } } test Logrotate.lns put "/file {\n create 600\n}\n" after set "/rule/create/owner" "user" = "/file {\n create 600 user\n}\n" (* The newline at the end of a script is optional *) test Logrotate.lns put "/file {\n size=5M\n}\n" after set "/rule/prerotate" "\tfoobar" = "/file { size=5M \tprerotate \tfoobar \tendscript\n}\n" test Logrotate.lns put "/file {\n size=5M\n}\n" after set "/rule/prerotate" "\tfoobar\n" = "/file { size=5M \tprerotate \tfoobar\n \tendscript\n}\n" (* Bug #101: whitespace at the end of the line *) test Logrotate.lns get "/file {\n missingok \t\n}\n" = { "rule" { "file" = "/file" } { "missingok" = "missingok" } } (* Bug #104: file names can be separated by newlines *) let conf2 = "/var/log/mail.info /var/log/mail.warn /var/log/mail.err { weekly } " test Logrotate.lns get conf2 = { "rule" { "file" = "/var/log/mail.info" } { "file" = "/var/log/mail.warn" } { "file" = "/var/log/mail.err" } { "schedule" = "weekly" } } (* Issue #217: support for dateformat *) let dateformat = "dateformat -%Y%m%d\n" test Logrotate.lns get dateformat = { "dateformat" = "-%Y%m%d" } (* Issue #123: no space before '{' *) test Logrotate.lns get "/file{\n missingok \t\n}\n" = { "rule" { "file" = "/file" } { "missingok" = "missingok" } } (* RHBZ#1213292: maxsize 30k *) test Logrotate.lns get "/var/log/yum.log {\n maxsize 30k\n}\n" = { "rule" { "file" = "/var/log/yum.log" } { "maxsize" = "30k" } } PK ! Q��" �" lenses/dist/tests/test_mysql.augnu �[��� module Test_mysql = let conf = "# The MySQL database server configuration file. # # You can copy this to one of: # # One can use all long options that the program supports. # Run program with --help to get a list of available options and with # --print-defaults to see which it would actually understand and use. # # For explanations see # http://dev.mysql.com/doc/mysql/en/server-system-variables.html # This will be passed to all mysql clients # It has been reported that passwords should be enclosed with ticks/quotes # Remember to edit /etc/mysql/debian.cnf when changing the socket location. [client] port = 3306 socket = /var/run/mysqld/mysqld.sock # Here is entries for some specific programs # The following values assume you have at least 32M ram # This was formally known as [safe_mysqld]. Both versions are currently parsed. [mysqld_safe] socket = /var/run/mysqld/mysqld.sock nice = 0 [mysqld] # # * Basic Settings # user = mysql pid-file = /var/run/mysqld/mysqld.pid socket = /var/run/mysqld/mysqld.sock port = 3306 basedir = /usr datadir = /var/lib/mysql tmpdir = /tmp language = /usr/share/mysql/english skip-external-locking # # Instead of skip-networking the default is now to listen only on # localhost which is more compatible and is not less secure. bind-address = 127.0.0.1 # # * Fine Tuning # key_buffer = 16M max_allowed_packet = 16M thread_stack = 128K thread_cache_size = 8 #max_connections = 100 #table_cache = 64 #thread_concurrency = 10 # # * Query Cache Configuration # query_cache_limit = 1M query_cache_size = 16M # # * Logging and Replication # # Both location gets rotated by the cronjob. # Be aware that this log type is a performance killer. #log = /var/log/mysql/mysql.log # # Error logging goes to syslog. This is a Debian improvement :) # # Here you can see queries with especially long duration #log_slow_queries = /var/log/mysql/mysql-slow.log #long_query_time = 2 #log-queries-not-using-indexes # # The following can be used as easy to replay backup logs or for replication. #server-id = 1 #log_bin = /var/log/mysql/mysql-bin.log # WARNING: Using expire_logs_days without bin_log crashes the server! See README.Debian! #expire_logs_days = 10 #max_binlog_size = 100M #binlog_do_db = include_database_name #binlog_ignore_db = include_database_name # # * BerkeleyDB # # Using BerkeleyDB is now discouraged as its support will cease in 5.1.12. skip-bdb # # * InnoDB # # InnoDB is enabled by default with a 10MB datafile in /var/lib/mysql/. # Read the manual for more InnoDB related options. There are many! # You might want to disable InnoDB to shrink the mysqld process by circa 100MB. #skip-innodb # # * Security Features # # Read the manual, too, if you want chroot! # chroot = /var/lib/mysql/ # # # ssl-ca=/etc/mysql/cacert.pem # ssl-cert=/etc/mysql/server-cert.pem # ssl-key=/etc/mysql/server-key.pem [mysqldump] quick quote-names max_allowed_packet = 16M [mysql] #no-auto-rehash # faster start of mysql but no tab completition [isamchk] key_buffer = 16M # # * NDB Cluster # # See /usr/share/doc/mysql-server-*/README.Debian for more information. # # The following configuration is read by the NDB Data Nodes (ndbd processes) # not from the NDB Management Nodes (ndb_mgmd processes). # # [MYSQL_CLUSTER] # ndb-connectstring=127.0.0.1 # # * IMPORTANT: Additional settings that can override those from this file! # !includedir /etc/mysql/conf.d/ !include /etc/mysql/other_conf.d/someconf.cnf # Another comment " test MySQL.lns get conf = { "#comment" = "The MySQL database server configuration file." } {} { "#comment" = "You can copy this to one of:" } {} { "#comment" = "One can use all long options that the program supports." } { "#comment" = "Run program with --help to get a list of available options and with" } { "#comment" = "--print-defaults to see which it would actually understand and use." } {} { "#comment" = "For explanations see" } { "#comment" = "http://dev.mysql.com/doc/mysql/en/server-system-variables.html" } { } { "#comment" = "This will be passed to all mysql clients" } { "#comment" = "It has been reported that passwords should be enclosed with ticks/quotes" } { "#comment" = "Remember to edit /etc/mysql/debian.cnf when changing the socket location." } { "target" = "client" { "port" = "3306" } { "socket" = "/var/run/mysqld/mysqld.sock" } { } { "#comment" = "Here is entries for some specific programs" } { "#comment" = "The following values assume you have at least 32M ram" } { } { "#comment" = "This was formally known as [safe_mysqld]. Both versions are currently parsed." } } { "target" = "mysqld_safe" { "socket" = "/var/run/mysqld/mysqld.sock" } { "nice" = "0" } { } } { "target" = "mysqld" {} { "#comment" = "* Basic Settings" } {} { "user" = "mysql" } { "pid-file" = "/var/run/mysqld/mysqld.pid" } { "socket" = "/var/run/mysqld/mysqld.sock" } { "port" = "3306" } { "basedir" = "/usr" } { "datadir" = "/var/lib/mysql" } { "tmpdir" = "/tmp" } { "language" = "/usr/share/mysql/english" } { "skip-external-locking" = "" } {} { "#comment" = "Instead of skip-networking the default is now to listen only on" } { "#comment" = "localhost which is more compatible and is not less secure." } { "bind-address" = "127.0.0.1" } {} { "#comment" = "* Fine Tuning" } {} { "key_buffer" = "16M" } { "max_allowed_packet" = "16M" } { "thread_stack" = "128K" } { "thread_cache_size" = "8" } { "#comment" = "max_connections = 100" } { "#comment" = "table_cache = 64" } { "#comment" = "thread_concurrency = 10" } {} { "#comment" = "* Query Cache Configuration" } {} { "query_cache_limit" = "1M" } { "query_cache_size" = "16M" } {} { "#comment" = "* Logging and Replication" } {} { "#comment" = "Both location gets rotated by the cronjob." } { "#comment" = "Be aware that this log type is a performance killer." } { "#comment" = "log = /var/log/mysql/mysql.log" } {} { "#comment" = "Error logging goes to syslog. This is a Debian improvement :)" } {} { "#comment" = "Here you can see queries with especially long duration" } { "#comment" = "log_slow_queries = /var/log/mysql/mysql-slow.log" } { "#comment" = "long_query_time = 2" } { "#comment" = "log-queries-not-using-indexes" } {} { "#comment" = "The following can be used as easy to replay backup logs or for replication." } { "#comment" = "server-id = 1" } { "#comment" = "log_bin = /var/log/mysql/mysql-bin.log" } { "#comment" = "WARNING: Using expire_logs_days without bin_log crashes the server! See README.Debian!" } { "#comment" = "expire_logs_days = 10" } { "#comment" = "max_binlog_size = 100M" } { "#comment" = "binlog_do_db = include_database_name" } { "#comment" = "binlog_ignore_db = include_database_name" } {} { "#comment" = "* BerkeleyDB" } {} { "#comment" = "Using BerkeleyDB is now discouraged as its support will cease in 5.1.12." } { "skip-bdb" = "" } {} { "#comment" = "* InnoDB" } {} { "#comment" = "InnoDB is enabled by default with a 10MB datafile in /var/lib/mysql/." } { "#comment" = "Read the manual for more InnoDB related options. There are many!" } { "#comment" = "You might want to disable InnoDB to shrink the mysqld process by circa 100MB." } { "#comment" = "skip-innodb" } {} { "#comment" = "* Security Features" } {} { "#comment" = "Read the manual, too, if you want chroot!" } { "#comment" = "chroot = /var/lib/mysql/" } {} {} { "#comment" = "ssl-ca=/etc/mysql/cacert.pem" } { "#comment" = "ssl-cert=/etc/mysql/server-cert.pem" } { "#comment" = "ssl-key=/etc/mysql/server-key.pem" } { } { } { } } { "target" = "mysqldump" { "quick" = "" } { "quote-names" = "" } { "max_allowed_packet" = "16M" } { } } { "target" = "mysql" { "#comment" = "no-auto-rehash # faster start of mysql but no tab completition" } { } } { "target" = "isamchk" { "key_buffer" = "16M" } { } {} { "#comment" = "* NDB Cluster" } {} { "#comment" = "See /usr/share/doc/mysql-server-*/README.Debian for more information." } {} { "#comment" = "The following configuration is read by the NDB Data Nodes (ndbd processes)" } { "#comment" = "not from the NDB Management Nodes (ndb_mgmd processes)." } {} { "#comment" = "[MYSQL_CLUSTER]" } { "#comment" = "ndb-connectstring=127.0.0.1" } { } { } {} { "#comment" = "* IMPORTANT: Additional settings that can override those from this file!" } {} } { "!includedir" = "/etc/mysql/conf.d/" } { "!include" = "/etc/mysql/other_conf.d/someconf.cnf" } { "#comment" = "Another comment" } { } PK ! ����� � # lenses/dist/tests/test_channels.augnu �[��� (* Module: Test_Channels Provides unit tests and examples for the <Channels> lens. *) module Test_Channels = (* Variable: conf A full configuration file *) let conf = "Direct 8 TV;SES ASTRA:12551:VC56M2O0S0:S19.2E:22000:1111=2:1112=fra@3:1116:0:12174:1:1108:0 :FAVORIS Direct 8 TV;SES ASTRA:12551:VC56M2O0S0:S19.2E:22000:1111=2:1112=fra@3:1116:0:12175:1:1108:0 TF1;CSAT:11895:VC34M2O0S0:S19.2E:27500:171=2:124=fra+spa@4,125=eng@4;126=deu@4:53:500,1811,1863,100:8371:1:1074:0 :TNT TF1;SMR6:690167:I999B8C999D999M998T999G999Y0:T:27500:120=2:130=fra@3,131=eng@3,133=qad@3:140;150=fra,151=eng:0:1537:8442:6:0 ; this is a comment France 5;GR1:618167:I999B8C999D999M998T999G999Y0:T:27500:374+320=2:330=fra@3,331=qad@3:0;340=fra:0:260:8442:1:0 CANAL+ FAMILY HD:12012:VC23M5O35S1:S19.2E:27500:164=27:0;98=@106,99=eng@106:0;45=fra+fra:1811,500,1863,100,9C4,9C7,9AF:8825:1:1080:0 " (* Test: Channels.lns Test the full <conf> *) test Channels.lns get conf = { "entry" = "Direct 8 TV" { "provider" = "SES ASTRA" } { "frequency" = "12551" } { "parameter" = "VC56M2O0S0" } { "signal_source" = "S19.2E" } { "symbol_rate" = "22000" } { "vpid" = "1111" { "codec" = "2" } } { "apid" = "1112" { "lang" = "fra" } { "codec" = "3" } } { "tpid" = "1116" } { "caid" = "0" } { "sid" = "12174" } { "nid" = "1" } { "tid" = "1108" } { "rid" = "0" } } { "group" = "FAVORIS" { "entry" = "Direct 8 TV" { "provider" = "SES ASTRA" } { "frequency" = "12551" } { "parameter" = "VC56M2O0S0" } { "signal_source" = "S19.2E" } { "symbol_rate" = "22000" } { "vpid" = "1111" { "codec" = "2" } } { "apid" = "1112" { "lang" = "fra" } { "codec" = "3" } } { "tpid" = "1116" } { "caid" = "0" } { "sid" = "12175" } { "nid" = "1" } { "tid" = "1108" } { "rid" = "0" } } { "entry" = "TF1" { "provider" = "CSAT" } { "frequency" = "11895" } { "parameter" = "VC34M2O0S0" } { "signal_source" = "S19.2E" } { "symbol_rate" = "27500" } { "vpid" = "171" { "codec" = "2" } } { "apid" = "124" { "lang" = "fra" } { "lang" = "spa" } { "codec" = "4" } } { "apid" = "125" { "lang" = "eng" } { "codec" = "4" } } { "apid_dolby" = "126" { "lang" = "deu" } { "codec" = "4" } } { "tpid" = "53" } { "caid" = "500" } { "caid" = "1811" } { "caid" = "1863" } { "caid" = "100" } { "sid" = "8371" } { "nid" = "1" } { "tid" = "1074" } { "rid" = "0" } } } { "group" = "TNT" { "entry" = "TF1" { "provider" = "SMR6" } { "frequency" = "690167" } { "parameter" = "I999B8C999D999M998T999G999Y0" } { "signal_source" = "T" } { "symbol_rate" = "27500" } { "vpid" = "120" { "codec" = "2" } } { "apid" = "130" { "lang" = "fra" } { "codec" = "3" } } { "apid" = "131" { "lang" = "eng" } { "codec" = "3" } } { "apid" = "133" { "lang" = "qad" } { "codec" = "3" } } { "tpid" = "140" } { "tpid_bylang" = "150" { "lang" = "fra" } } { "tpid_bylang" = "151" { "lang" = "eng" } } { "caid" = "0" } { "sid" = "1537" } { "nid" = "8442" } { "tid" = "6" } { "rid" = "0" } } { "#comment" = "this is a comment" } { "entry" = "France 5" { "provider" = "GR1" } { "frequency" = "618167" } { "parameter" = "I999B8C999D999M998T999G999Y0" } { "signal_source" = "T" } { "symbol_rate" = "27500" } { "vpid" = "374" } { "vpid_pcr" = "320" { "codec" = "2" } } { "apid" = "330" { "lang" = "fra" } { "codec" = "3" } } { "apid" = "331" { "lang" = "qad" } { "codec" = "3" } } { "tpid" = "0" } { "tpid_bylang" = "340" { "lang" = "fra" } } { "caid" = "0" } { "sid" = "260" } { "nid" = "8442" } { "tid" = "1" } { "rid" = "0" } } { "entry" = "CANAL+ FAMILY HD" { "frequency" = "12012" } { "parameter" = "VC23M5O35S1" } { "signal_source" = "S19.2E" } { "symbol_rate" = "27500" } { "vpid" = "164" { "codec" = "27" } } { "apid" = "0" } { "apid_dolby" = "98" { "codec" = "106" } } { "apid_dolby" = "99" { "lang" = "eng" } { "codec" = "106" } } { "tpid" = "0" } { "tpid_bylang" = "45" { "lang" = "fra" } { "lang" = "fra" } } { "caid" = "1811" } { "caid" = "500" } { "caid" = "1863" } { "caid" = "100" } { "caid" = "9C4" } { "caid" = "9C7" } { "caid" = "9AF" } { "sid" = "8825" } { "nid" = "1" } { "tid" = "1080" } { "rid" = "0" } } } PK ! Eog= ' lenses/dist/tests/test_postfix_main.augnu �[��� module Test_postfix_main = let conf = "# main.cf myorigin = /etc/mailname smtpd_banner = $myhostname ESMTP $mail_name (Ubuntu) mynetworks = 127.0.0.0/8 [::ffff:127.0.0.0]/104 [::1]/128 relayhost = import_environment = MAIL_CONFIG MAIL_DEBUG MAIL_LOGTAG TZ LANG=C \n KRB5CCNAME=FILE:${queue_directory}/kerberos/krb5_ccache\n" test Postfix_Main.lns get conf = { "#comment" = "main.cf" } { "myorigin" = "/etc/mailname" } {} { "smtpd_banner" = "$myhostname ESMTP $mail_name (Ubuntu)" } { "mynetworks" = "127.0.0.0/8 [::ffff:127.0.0.0]/104 [::1]/128" } { "relayhost" } { "import_environment" = "MAIL_CONFIG MAIL_DEBUG MAIL_LOGTAG TZ LANG=C \n KRB5CCNAME=FILE:${queue_directory}/kerberos/krb5_ccache" } test Postfix_main.lns get "debugger_command = \t PATH=/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin \t ddd $daemon_directory/$process_name $process_id & sleep 5\n" = { "debugger_command" = "PATH=/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin ddd $daemon_directory/$process_name $process_id & sleep 5" } PK ! �D�+,P ,P lenses/dist/tests/test_xml.augnu �[��� (* Module: Test_Xml Provides unit tests and examples for the <Xml> lens. *) module Test_Xml = (* View: knode A simple flag function Parameters: r:regexp - the pattern for the flag *) let knode (r:regexp) = [ key r ] (************************************************************************ * Group: Utilities lens *************************************************************************) (* let _ = print_regexp(lens_ctype(Xml.text)) let _ = print_endline "" *) (* Group: Comments *) (* Test: Xml.comment Comments get mapped into "#comment" nodes. *) test Xml.comment get "<!-- declarations for <head> & <body> -->" = { "#comment" = " declarations for <head> & <body> " } (* Test: Xml.comment This syntax is not understood. *) test Xml.comment get "<!-- B+, B, or B--->" = * (* Group: Prolog and declarations *) (* Test: Xml.prolog The XML prolog tag is mapped in a "#declaration" node, which contains an "#attribute" node with various attributes of the tag. *) test Xml.prolog get "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" = { "#declaration" { "#attribute" { "version" = "1.0" } { "encoding" = "UTF-8" } } } (* Test: Xml.decl_def_item !ELEMENT declaration tags are mapped in "!ELEMENT" nodes. The associated declaration attribute is mapped in a "#decl" subnode. *) test Xml.decl_def_item get "<!ELEMENT greeting (#PCDATA)>" = { "!ELEMENT" = "greeting" { "#decl" = "(#PCDATA)" } } (* Test: Xml.decl_def_item !ENTITY declaration tags are mapped in "!ENTITY" nodes. The associated declaration attribute is mapped in a "#decl" subnode. *) test Xml.decl_def_item get "<!ENTITY da \"
\">" = { "!ENTITY" = "da" { "#decl" = "
" } } (* Test: Xml.doctype !DOCTYPE tags are mapped in "!DOCTYPE" nodes. The associated system attribute is mapped in a "SYSTEM" subnode. *) test Xml.doctype get "<!DOCTYPE greeting:foo SYSTEM \"hello.dtd\">" = { "!DOCTYPE" = "greeting:foo" { "SYSTEM" = "hello.dtd" } } (* Test: Xml.doctype This is an example of a !DOCTYPE tag with !ELEMENT children tags. *) test Xml.doctype get "<!DOCTYPE foo [ <!ELEMENT bar (#PCDATA)> <!ELEMENT baz (bar)* > ]>" = { "!DOCTYPE" = "foo" { "!ELEMENT" = "bar" { "#decl" = "(#PCDATA)" } } { "!ELEMENT" = "baz" { "#decl" = "(bar)*" } } } (* Group: Attributes *) (* Variable: att_def1 *) let att_def1 = "<!ATTLIST termdef id ID #REQUIRED name CDATA #IMPLIED>" (* Variable: att_def2 *) let att_def2 = "<!ATTLIST list type (bullets|ordered|glossary) \"ordered\">" (* Variable: att_def3 *) let att_def3 = "<!ATTLIST form method CDATA #FIXED \"POST\">" (* Test: Xml.att_list_def *) test Xml.att_list_def get att_def1 = { "!ATTLIST" = "termdef" { "1" { "#name" = "id" } { "#type" = "ID" } { "#REQUIRED" } } { "2" { "#name" = "name" } { "#type" = "CDATA" } { "#IMPLIED" } } } (* Test: Xml.att_list_def *) test Xml.att_list_def get att_def2 = { "!ATTLIST" = "list" { "1" { "#name" = "type" } { "#type" = "(bullets|ordered|glossary)" } { "#FIXED" = "ordered" } } } (* Test: Xml.att_list_def *) test Xml.att_list_def get att_def3 = { "!ATTLIST" = "form" { "1" { "#name" = "method" } { "#type" = "CDATA" } { "#FIXED" = "POST" } } } (* Test: Xml.notation_def *) test Xml.notation_def get "<!NOTATION not3 SYSTEM \"\">" = { "!NOTATION" = "not3" { "SYSTEM" = "" } } (* Variable: cdata1 *) let cdata1 = "<![CDATA[testing]]>" (* Test: Xml.cdata *) test Xml.cdata get cdata1 = { "#CDATA" = "testing" } (* Variable: attr1 *) let attr1 = " attr1=\"value1\" attr2=\"value2\"" (* Variable: attr2 *) let attr2 = " attr2=\"foo\"" (* Test: Xml.attributes *) test Xml.attributes get attr1 = { "#attribute" { "attr1" = "value1" } { "attr2" = "value2" } } (* Test: Xml.attributes *) test Xml.attributes get " refs=\"A1\nA2 A3\"" = { "#attribute" { "refs" = "A1\nA2 A3" } } (* Test: Xml.attributes *) test Xml.attributes put attr1 after rm "/#attribute[1]"; set "/#attribute/attr2" "foo" = attr2 (* test quoting *) (* well formed values *) test Xml.attributes get " attr1=\"value1\"" = { "#attribute" { "attr1" = "value1" } } test Xml.attributes get " attr1='value1'" = { "#attribute" { "attr1" = "value1" } } test Xml.attributes get " attr1='va\"lue1'" = { "#attribute" { "attr1" = "va\"lue1" } } test Xml.attributes get " attr1=\"va'lue1\"" = { "#attribute" { "attr1" = "va'lue1" } } (* illegal as per the XML standard *) test Xml.attributes get " attr1=\"va\"lue1\"" = * test Xml.attributes get " attr1='va'lue1'" = * (* malformed values *) test Xml.attributes get " attr1=\"value1'" = * test Xml.attributes get " attr1='value1\"" = * (* Group: empty *) (* Variable: empty1 *) let empty1 = "<a/>" (* Variable: empty2 *) let empty2 = "<a foo=\"bar\"/>" (* Variable: empty3 *) let empty3 = "<a foo=\"bar\"></a>\n" (* Variable: empty4 *) let empty4 = "<a foo=\"bar\" far=\"baz\"/>" (* Test: Xml.empty_element *) test Xml.empty_element get empty1 = { "a" = "#empty" } (* Test: Xml.empty_element *) test Xml.empty_element get empty2 = { "a" = "#empty" { "#attribute" { "foo" = "bar"} } } (* Test: Xml.empty_element *) test Xml.empty_element put empty1 after set "/a/#attribute/foo" "bar" = empty2 (* Test: Xml.empty_element The attribute node must be the first child of the element *) test Xml.empty_element put empty1 after set "/a/#attribute/foo" "bar"; set "/a/#attribute/far" "baz" = empty4 (* Test: Xml.content *) test Xml.content put "<a><b/></a>" after clear "/a/b" = "<a><b></b>\n</a>" (* Group: Full lens *) (* Test: Xml.lns *) test Xml.lns put "<a></a >" after set "/a/#text[1]" "foo"; set "/a/#text[2]" "bar" = "<a>foobar</a >" (* Test: Xml.lns *) test Xml.lns get "<?xml version=\"1.0\"?> <!DOCTYPE catalog PUBLIC \"-//OASIS//DTD XML Catalogs V1.0//EN\" \"file:///usr/share/xml/schema/xml-core/catalog.dtd\"> <doc/>" = { "#declaration" { "#attribute" { "version" = "1.0" } } } { "!DOCTYPE" = "catalog" { "PUBLIC" { "#literal" = "-//OASIS//DTD XML Catalogs V1.0//EN" } { "#literal" = "file:///usr/share/xml/schema/xml-core/catalog.dtd" } } } { "doc" = "#empty" } (* Test: Xml.lns *) test Xml.lns get "<oor:component-data xmlns:oor=\"http://openoffice.org/2001/registry\"/> " = { "oor:component-data" = "#empty" { "#attribute" { "xmlns:oor" = "http://openoffice.org/2001/registry" } } } (* Variable: input1 *) let input1 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?> <html>\r <head> <title>Wiki</title> </head> <body> <h1>Augeas</h1> <p class=\"main\">Augeas is now able to parse XML files!</p> <ul> <li>Translate from XML to a tree syntax</li> <li>Translate from the tree back to XML</li> <!-- this is some comment --> <li>this</li> </ul> </body> </html> " (* Test: Xml.doc Test <input1> with <Xml.doc> *) test Xml.doc get input1 = { "#declaration" { "#attribute" { "version" = "1.0" } { "encoding" = "UTF-8" } } } { "html" { "#text" = "\r\n " } { "head" { "#text" = "\n " } { "title" { "#text" = "Wiki" } } { "#text" = " " } } { "#text" = " " } { "body" { "#text" = " " } { "h1" { "#text" = "Augeas" } } { "#text" = " " } { "p" { "#attribute" { "class" = "main" } } { "#text" = "Augeas is now able to parse XML files!" } } { "#text" = " " } { "ul" { "#text" = "\n " } { "li" { "#text" = "Translate from XML to a tree syntax" } } { "#text" = " " } { "li" { "#text" = "Translate from the tree back to XML" } } { "#text" = " " } { "#comment" = " this is some comment " } { "#text" = " " } { "li" { "#text" = "this" } } { "#text" = " " } } { "#text" = " " } } } (* Test: Xml.doc Modify <input1> with <Xml.doc> *) test Xml.doc put input1 after rm "/html/body" = "<?xml version=\"1.0\" encoding=\"UTF-8\"?> <html>\r <head> <title>Wiki</title> </head> </html> " (* Variable: ul1 *) let ul1 = " <ul> <li>test1</li> <li>test2</li> <li>test3</li> <li>test4</li> </ul> " test Xml.doc get ul1 = { "ul" { "#text" = " " } { "li" { "#text" = "test1" } } { "#text" = " " } { "li" { "#text" = "test2" } } { "#text" = " " } { "li" { "#text" = "test3" } } { "#text" = " " } { "li" { "#text" = "test4" } } } test Xml.doc put ul1 after set "/ul/li[3]/#text" "bidon" = " <ul> <li>test1</li> <li>test2</li> <li>bidon</li> <li>test4</li> </ul> " test Xml.doc put ul1 after rm "/ul/li[2]" = " <ul> <li>test1</li> <li>test3</li> <li>test4</li> </ul> " (* #text nodes don't move when inserting a node, the result depends on where the node is added *) test Xml.doc put ul1 after insb "a" "/ul/li[2]" = " <ul> <li>test1</li> <a></a> <li>test2</li> <li>test3</li> <li>test4</li> </ul> " test Xml.doc put ul1 after insa "a" "/ul/li[1]" = " <ul> <li>test1</li> <a></a> <li>test2</li> <li>test3</li> <li>test4</li> </ul> " (* Attributes must be added before text nodes *) test Xml.doc put ul1 after insb "#attribute" "/ul/li[2]/#text"; set "/ul/li[2]/#attribute/bidon" "gazou"; set "/ul/li[2]/#attribute/foo" "bar" = " <ul> <li>test1</li> <li bidon=\"gazou\" foo=\"bar\">test2</li> <li>test3</li> <li>test4</li> </ul> " (* if empty element is allowed to be as root, this test triggers error *) test Xml.lns get "<doc> <a><c/><b><c/></b><c/><c/><a></a></a> </doc>" = { "doc" { "#text" = "\n" } { "a" { "c" = "#empty" } { "b" { "c" = "#empty" } } { "c" = "#empty" } { "c" = "#empty" } { "a" } } } let p01pass2 = "<?PI before document element?> <!-- comment after document element--> <?PI before document element?> <!-- comment after document element--> <?PI before document element?> <!-- comment after document element--> <?PI before document element?> <!DOCTYPE doc [ <!ELEMENT doc ANY> <!ELEMENT a ANY> <!ELEMENT b ANY> <!ELEMENT c ANY> ]> <doc> <a><b><c/></b></a> </doc> <!-- comment after document element--> <?PI after document element?> <!-- comment after document element--> <?PI after document element?> <!-- comment after document element--> <?PI after document element?> " test Xml.lns get p01pass2 = { "#pi" { "#target" = "PI" } { "#instruction" = "before document element" } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "before document element" } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "before document element" } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "before document element" } } { "!DOCTYPE" = "doc" { "!ELEMENT" = "doc" { "#decl" = "ANY" } } { "!ELEMENT" = "a" { "#decl" = "ANY" } } { "!ELEMENT" = "b" { "#decl" = "ANY" } } { "!ELEMENT" = "c" { "#decl" = "ANY" } } } { "doc" { "#text" = " " } { "a" { "b" { "c" = "#empty" } } } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "after document element" } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "after document element" } } { "#comment" = " comment after document element" } { "#pi" { "#target" = "PI" } { "#instruction" = "after document element" } } (* various valid Name constructions *) test Xml.lns get "<doc>\n<A:._-0/>\n<::._-0/>\n<_:._-0/>\n<A/>\n<_/>\n<:/>\n</doc>" = { "doc" { "#text" = "\n" } { "A:._-0" = "#empty" } { "::._-0" = "#empty" } { "_:._-0" = "#empty" } { "A" = "#empty" } { "_" = "#empty" } { ":" = "#empty" } } test Xml.lns get "<doc> <abcdefghijklmnopqrstuvwxyz/> <ABCDEFGHIJKLMNOPQRSTUVWXYZ/> <A01234567890/> <A.-:/> </doc>" = { "doc" { "#text" = "\n" } { "abcdefghijklmnopqrstuvwxyz" = "#empty" } { "ABCDEFGHIJKLMNOPQRSTUVWXYZ" = "#empty" } { "A01234567890" = "#empty" } { "A.-:" = "#empty" } } let p06fail1 = "<!--non-validating processors may pass this instance because they don't check the IDREFS attribute type--> <!DOCTYPE doc [ <!ELEMENT doc (a|refs)*> <!ELEMENT a EMPTY> <!ELEMENT refs EMPTY> <!ATTLIST refs refs IDREFS #REQUIRED> <!ATTLIST a id ID #REQUIRED> ]> <doc> <a id=\"A1\"/><a id=\"A2\"/><a id=\"A3\"/> <refs refs=\"\"/> </doc>" (* we accept this test because we do not verify XML references *) test Xml.lns get p06fail1 = { "#comment" = "non-validating processors may pass this instance because they don't check the IDREFS attribute type" } { "!DOCTYPE" = "doc" { "!ELEMENT" = "doc" { "#decl" = "(a|refs)*" } } { "!ELEMENT" = "a" { "#decl" = "EMPTY" } } { "!ELEMENT" = "refs" { "#decl" = "EMPTY" } } { "!ATTLIST" = "refs" { "1" { "#name" = "refs" } { "#type" = "IDREFS" } { "#REQUIRED" } } } { "!ATTLIST" = "a" { "1" { "#name" = "id" } { "#type" = "ID" } { "#REQUIRED" } } } } { "doc" { "#text" = " " } { "a" = "#empty" { "#attribute" { "id" = "A1" } } } { "a" = "#empty" { "#attribute" { "id" = "A2" } } } { "a" = "#empty" { "#attribute" { "id" = "A3" } } } { "refs" = "#empty" { "#attribute" { "refs" = "" } } } } (* we accept dquote, but not single quotes, because of resulting ambiguity *) let p10pass1_1 = "<doc><A a=\"asdf>'">\nasdf\n ?>%\"/></doc>" let p10pass1_2 = "<doc><A a='\"\">'"'/></doc>" test Xml.lns get p10pass1_1 = { "doc" { "A" = "#empty" { "#attribute" { "a" = "asdf>'">\nasdf\n ?>%" } } } } test Xml.lns get p10pass1_2 = { "doc" { "A" = "#empty" { "#attribute" { "a" = "\"\">'"" } } } } (* here again, test exclude single quote *) let p11pass1 = "<!--Inability to resolve a notation should not be reported as an error--> <!DOCTYPE doc [ <!ELEMENT doc EMPTY> <!NOTATION not1 SYSTEM \"a%a&b�<!ELEMENT<!--<?</>?>/\''\"> <!NOTATION not3 SYSTEM \"\"> ]> <doc></doc>" test Xml.lns get p11pass1 = { "#comment" = "Inability to resolve a notation should not be reported as an error" } { "!DOCTYPE" = "doc" { "!ELEMENT" = "doc" { "#decl" = "EMPTY" } } { "!NOTATION" = "not1" { "SYSTEM" = "a%a&b�<!ELEMENT<!--<?</>?>/\''" } } { "!NOTATION" = "not3" { "SYSTEM" = "" } } } { "doc" } test Xml.lns get "<doc>a%b%</doc></doc>]]<&</doc>" = { "doc" { "#text" = "a%b%</doc></doc>]]<&" } } let p15pass1 = "<!--a <!DOCTYPE <?- ]]>-<[ CDATA [ \"- -'- -<doc>--> <!----> <doc></doc>" test Xml.lns get p15pass1 = { "#comment" = "a <!DOCTYPE <?- ]]>-<[ CDATA [ \"- -'- -<doc>" } { "#comment" = "" } { "doc" } let p22pass3 = "<?xml version=\"1.0\"?> <!--comment--> <?pi some instruction ?> <doc><?pi?></doc>" test Xml.lns get p22pass3 = { "#declaration" { "#attribute" { "version" = "1.0" } } } { "#comment" = "comment" } { "#pi" { "#target" = "pi" } { "#instruction" = "some instruction" } } { "doc" { "#pi" { "#target" = "pi" } } } let p25pass2 = "<?xml version = \"1.0\"?> <doc></doc>" test Xml.lns get p25pass2 = { "#declaration" { "#attribute" { "version" = "1.0" } } } { "doc" } test Xml.lns get "<!DOCTYPE doc [ <!ELEMENT doc EMPTY> ]> <doc></doc>" = { "!DOCTYPE" = "doc" { "!ELEMENT" = "doc" { "#decl" = "EMPTY" } } } { "doc" } test Xml.lns get "<doc></doc \n>" = { "doc" } test Xml.lns get "<a><doc att=\"val\" \natt2=\"val2\" att3=\"val3\"/></a>" = { "a" { "doc" = "#empty" { "#attribute" { "att" = "val" } { "att2" = "val2" } { "att3" = "val3" } } } } test Xml.lns get "<doc/>" = { "doc" = "#empty" } test Xml.lns get "<a><![CDATA[Thu, 13 Feb 2014 12:22:35 +0000]]></a>" = { "a" { "#CDATA" = "Thu, 13 Feb 2014 12:22:35 +0000" } } (* failure tests *) (* only one document element *) test Xml.lns get "<doc></doc><bad/>" = * (* document element must be complete *) test Xml.lns get "<doc>" = * (* accept empty document *) test Xml.lns get "\n" = {} (* malformed element *) test Xml.lns get "<a><A@/></a>" = * (* a Name cannot start with a digit *) test Xml.lns get "<a><0A/></a>" = * (* no space before "CDATA" *) test Xml.lns get "<doc><![ CDATA[a]]></doc>" = * (* no space after "CDATA" *) test Xml.lns get "<doc><![CDATA [a]]></doc>" = * (* FIXME: CDSect's can't nest *) test Xml.lns get "<doc> <![CDATA[ <![CDATA[XML doesn't allow CDATA sections to nest]]> ]]> </doc>" = { "doc" { "#text" = "\n" } { "#CDATA" = "\n<![CDATA[XML doesn't allow CDATA sections to nest" } { "#text" = "\n]]" } { "#text" = ">\n" } } (* Comment is illegal in VersionInfo *) test Xml.lns get "<?xml version <!--bad comment--> =\"1.0\"?> <doc></doc>" = * (* only declarations in DTD *) test Xml.lns get "<!DOCTYPE doc [ <!ELEMENT doc EMPTY> <doc></doc> ]>" = * (* we do not support external entities *) test Xml.lns get "<!DOCTYPE doc [ <!ENTITY % eldecl \"<!ELEMENT doc EMPTY>\"> %eldecl; ]> <doc></doc>" = * (* Escape character in attributes *) test Xml.lns get "<a password=\"my\!pass\" />" = { "a" = "#empty" { "#attribute" { "password" = "my\!pass" } } } test Xml.lns put "" after set "/a" "#empty" = "<a/>\n" (* Issue #142 *) test Xml.entity_def get "<!ENTITY open-hatch SYSTEM \"http://examplecom/OpenHatch.xml\">" = { "!ENTITY" = "open-hatch" { "SYSTEM" { "#systemliteral" = "http://examplecom/OpenHatch.xml" } } } test Xml.entity_def get "<!ENTITY open-hatch PUBLIC \"-//Textuality//TEXT Standard open-hatch boilerplate//EN\" \"http://www.textuality.com/boilerplate/OpenHatch.xml\">" = { "!ENTITY" = "open-hatch" { "PUBLIC" { "#pubidliteral" = "-//Textuality//TEXT Standard open-hatch boilerplate//EN" } { "#systemliteral" = "http://www.textuality.com/boilerplate/OpenHatch.xml" } } } let dt_with_entities = "<!DOCTYPE server-xml [ <!ENTITY sys-ent SYSTEM \"sys-file.xml\"> <!ENTITY pub-ent PUBLIC \"-//something public//TEXT\" \"pub-file.xml\"> ]>" test Xml.doctype get dt_with_entities = { "!DOCTYPE" = "server-xml" { "!ENTITY" = "sys-ent" { "SYSTEM" { "#systemliteral" = "sys-file.xml" } } } { "!ENTITY" = "pub-ent" { "PUBLIC" { "#pubidliteral" = "-//something public//TEXT" } { "#systemliteral" = "pub-file.xml" } } } } test Xml.doctype put dt_with_entities after rm "/\!DOCTYPE/\!ENTITY[2]"; set "/\!DOCTYPE/\!ENTITY[. = \"sys-ent\"]/SYSTEM/#systemliteral" "other-file.xml" = "<!DOCTYPE server-xml [ <!ENTITY sys-ent SYSTEM \"other-file.xml\"> ]>" test Xml.lns get (dt_with_entities . "<body></body>") = { "!DOCTYPE" = "server-xml" { "!ENTITY" = "sys-ent" { "SYSTEM" { "#systemliteral" = "sys-file.xml" } } } { "!ENTITY" = "pub-ent" { "PUBLIC" { "#pubidliteral" = "-//something public//TEXT" } { "#systemliteral" = "pub-file.xml" } } } } { "body" } test Xml.lns put "<?xml version=\"1.0\"?> <body> </body>" after insa "!DOCTYPE" "#declaration"; set "\\!DOCTYPE" "Server"; set "\\!DOCTYPE/\\!ENTITY" "resourcesFile"; set "\\!DOCTYPE/\\!ENTITY/SYSTEM/#systemliteral" "data.xml" = "<?xml version=\"1.0\"?><!DOCTYPE Server[ <!ENTITY resourcesFile SYSTEM \"data.xml\">]> <body>\n</body>" PK ! �� d| | $ lenses/dist/tests/test_securetty.augnu �[��� module Test_securetty = (* basic test *) let basic = "tty0\ntty1\ntty2\n" (* declare the lens to test and the resulting tree *) test Securetty.lns get basic = { "1" = "tty0" } { "2" = "tty1" } { "3" = "tty2" } (* complete test *) let complete = "# some comment tty0 # X11 display :0.0 console # allow root from console " (* declare the lens to test and the resulting tree *) test Securetty.lns get complete = { "#comment" = "some comment" } {} { "1" = "tty0" } { "#comment" = "X11 display" } { "2" = ":0.0" } {} { "3" = "console" { "#comment" = "allow root from console" } } PK ! %���U) U) # lenses/dist/tests/test_dns_zone.augnu �[��� module Test_Dns_Zone = let lns = Dns_Zone.lns (* RFC 1034 §6 *) test lns get " EDU. IN SOA SRI-NIC.ARPA. HOSTMASTER.SRI-NIC.ARPA. ( 870729 ;serial 1800 ;refresh every 30 minutes 300 ;retry every 5 minutes 604800 ;expire after a week 86400 ;minimum of a day ) NS SRI-NIC.ARPA. NS C.ISI.EDU. UCI 172800 NS ICS.UCI 172800 NS ROME.UCI ICS.UCI 172800 A 192.5.19.1 ROME.UCI 172800 A 192.5.19.31 ISI 172800 NS VAXA.ISI 172800 NS A.ISI 172800 NS VENERA.ISI.EDU. VAXA.ISI 172800 A 10.2.0.27 172800 A 128.9.0.33 VENERA.ISI.EDU. 172800 A 10.1.0.52 172800 A 128.9.0.32 A.ISI 172800 A 26.3.0.103 UDEL.EDU. 172800 NS LOUIE.UDEL.EDU. 172800 NS UMN-REI-UC.ARPA. LOUIE.UDEL.EDU. 172800 A 10.0.0.96 172800 A 192.5.39.3 YALE.EDU. 172800 NS YALE.ARPA. YALE.EDU. 172800 NS YALE-BULLDOG.ARPA. MIT.EDU. 43200 NS XX.LCS.MIT.EDU. 43200 NS ACHILLES.MIT.EDU. XX.LCS.MIT.EDU. 43200 A 10.0.0.44 ACHILLES.MIT.EDU. 43200 A 18.72.0.8 " = { "EDU." { "1" { "class" = "IN" } { "type" = "SOA" } { "mname" = "SRI-NIC.ARPA." } { "rname" = "HOSTMASTER.SRI-NIC.ARPA." } { "serial" = "870729" } { "refresh" = "1800" } { "retry" = "300" } { "expiry" = "604800" } { "minimum" = "86400" } } { "2" { "type" = "NS" } { "rdata" = "SRI-NIC.ARPA." } } { "3" { "type" = "NS" } { "rdata" = "C.ISI.EDU." } } } { "UCI" { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "ICS.UCI" } } { "2" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "ROME.UCI" } } } { "ICS.UCI" { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.19.1" } } } { "ROME.UCI" { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.19.31" } } } { "ISI" { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "VAXA.ISI" } } { "2" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "A.ISI" } } { "3" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "VENERA.ISI.EDU." } } } { "VAXA.ISI" { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.2.0.27" } } { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "128.9.0.33" } } } { "VENERA.ISI.EDU." { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.1.0.52" } } { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "128.9.0.32" } } } { "A.ISI" { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "26.3.0.103" } } } { "UDEL.EDU." { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "LOUIE.UDEL.EDU." } } { "2" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "UMN-REI-UC.ARPA." } } } { "LOUIE.UDEL.EDU." { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.0.0.96" } } { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.39.3" } } } { "YALE.EDU." { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "YALE.ARPA." } } } { "YALE.EDU." { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "YALE-BULLDOG.ARPA." } } } { "MIT.EDU." { "1" { "ttl" = "43200" } { "type" = "NS" } { "rdata" = "XX.LCS.MIT.EDU." } } { "2" { "ttl" = "43200" } { "type" = "NS" } { "rdata" = "ACHILLES.MIT.EDU." } } } { "XX.LCS.MIT.EDU." { "1" { "ttl" = "43200" } { "type" = "A" } { "rdata" = "10.0.0.44" } } } { "ACHILLES.MIT.EDU." { "1" { "ttl" = "43200" } { "type" = "A" } { "rdata" = "18.72.0.8" } } } (* RFC 1035 §5.3 *) test lns get " @ IN SOA VENERA Action\.domains ( 20 ; SERIAL 7200 ; REFRESH 600 ; RETRY 3600000; EXPIRE 60) ; MINIMUM NS A.ISI.EDU. NS VENERA NS VAXA MX 10 VENERA MX 20 VAXA A A 26.3.0.103 VENERA A 10.1.0.52 A 128.9.0.32 VAXA A 10.2.0.27 A 128.9.0.33 " = { "@" { "1" { "class" = "IN" } { "type" = "SOA" } { "mname" = "VENERA" } { "rname" = "Action\\.domains" } { "serial" = "20" } { "refresh" = "7200" } { "retry" = "600" } { "expiry" = "3600000" } { "minimum" = "60" } } { "2" { "type" = "NS" } { "rdata" = "A.ISI.EDU." } } { "3" { "type" = "NS" } { "rdata" = "VENERA" } } { "4" { "type" = "NS" } { "rdata" = "VAXA" } } { "5" { "type" = "MX" } { "priority" = "10" } { "exchange" = "VENERA" } } { "6" { "type" = "MX" } { "priority" = "20" } { "exchange" = "VAXA" } } } { "A" { "1" { "type" = "A" } { "rdata" = "26.3.0.103" } } } { "VENERA" { "1" { "type" = "A" } { "rdata" = "10.1.0.52" } } { "2" { "type" = "A" } { "rdata" = "128.9.0.32" } } } { "VAXA" { "1" { "type" = "A" } { "rdata" = "10.2.0.27" } } { "2" { "type" = "A" } { "rdata" = "128.9.0.33" } } } (* RFC 2782 *) test lns get " $ORIGIN example.com. @ SOA server.example.com. root.example.com. ( 1995032001 3600 3600 604800 86400 ) NS server.example.com. NS ns1.ip-provider.net. NS ns2.ip-provider.net. ; foobar - use old-slow-box or new-fast-box if either is ; available, make three quarters of the logins go to ; new-fast-box. _foobar._tcp SRV 0 1 9 old-slow-box.example.com. SRV 0 3 9 new-fast-box.example.com. ; if neither old-slow-box or new-fast-box is up, switch to ; using the sysdmin's box and the server SRV 1 0 9 sysadmins-box.example.com. SRV 1 0 9 server.example.com. server A 172.30.79.10 old-slow-box A 172.30.79.11 sysadmins-box A 172.30.79.12 new-fast-box A 172.30.79.13 ; NO other services are supported *._tcp SRV 0 0 0 . *._udp SRV 0 0 0 . " = { "$ORIGIN" = "example.com." } { "@" { "1" { "type" = "SOA" } { "mname" = "server.example.com." } { "rname" = "root.example.com." } { "serial" = "1995032001" } { "refresh" = "3600" } { "retry" = "3600" } { "expiry" = "604800" } { "minimum" = "86400" } } { "2" { "type" = "NS" } { "rdata" = "server.example.com." } } { "3" { "type" = "NS" } { "rdata" = "ns1.ip-provider.net." } } { "4" { "type" = "NS" } { "rdata" = "ns2.ip-provider.net." } } } { "_foobar._tcp" { "1" { "type" = "SRV" } { "priority" = "0" } { "weight" = "1" } { "port" = "9" } { "target" = "old-slow-box.example.com." } } { "2" { "type" = "SRV" } { "priority" = "0" } { "weight" = "3" } { "port" = "9" } { "target" = "new-fast-box.example.com." } } { "3" { "type" = "SRV" } { "priority" = "1" } { "weight" = "0" } { "port" = "9" } { "target" = "sysadmins-box.example.com." } } { "4" { "type" = "SRV" } { "priority" = "1" } { "weight" = "0" } { "port" = "9" } { "target" = "server.example.com." } } } { "server" { "1" { "type" = "A" } { "rdata" = "172.30.79.10" } } } { "old-slow-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.11" } } } { "sysadmins-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.12" } } } { "new-fast-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.13" } } } { "*._tcp" { "1" { "type" = "SRV" } { "priority" = "0" } { "weight" = "0" } { "port" = "0" } { "target" = "." } } } { "*._udp" { "1" { "type" = "SRV" } { "priority" = "0" } { "weight" = "0" } { "port" = "0" } { "target" = "." } } } (* RFC 3403 §6.2 *) test lns get " $ORIGIN 2.1.2.1.5.5.5.0.7.7.1.e164.arpa. IN NAPTR 100 10 \"u\" \"sip+E2U\" \"!^.*$!sip:information@foo.se!i\" . IN NAPTR 102 10 \"u\" \"smtp+E2U\" \"!^.*$!mailto:information@foo.se!i\" . " = { "$ORIGIN" = "2.1.2.1.5.5.5.0.7.7.1.e164.arpa." } { "@" { "1" { "class" = "IN" } { "type" = "NAPTR" } { "order" = "100" } { "preference" = "10" } { "flags" = "\"u\"" } { "service" = "\"sip+E2U\"" } { "regexp" = "\"!^.*$!sip:information@foo.se!i\"" } { "replacement" = "." } } { "2" { "class" = "IN" } { "type" = "NAPTR" } { "order" = "102" } { "preference" = "10" } { "flags" = "\"u\"" } { "service" = "\"smtp+E2U\"" } { "regexp" = "\"!^.*$!mailto:information@foo.se!i\"" } { "replacement" = "." } } } (* SOA record on a single line *) test lns get " $ORIGIN example.com. @ IN SOA ns root.example.com. (1 2 3 4 5) " = { "$ORIGIN" = "example.com." } { "@" { "1" { "class" = "IN" } { "type" = "SOA" } { "mname" = "ns" } { "rname" = "root.example.com." } { "serial" = "1" } { "refresh" = "2" } { "retry" = "3" } { "expiry" = "4" } { "minimum" = "5" } } } (* Different ordering of TTL and class *) test lns get " $ORIGIN example.com. foo 1D IN A 10.1.2.3 bar IN 2W A 10.4.5.6 " = { "$ORIGIN" = "example.com." } { "foo" { "1" { "ttl" = "1D" } { "class" = "IN" } { "type" = "A" } { "rdata" = "10.1.2.3" } } } { "bar" { "1" { "class" = "IN" } { "ttl" = "2W" } { "type" = "A" } { "rdata" = "10.4.5.6" } } } (* Escaping *) test lns get " $ORIGIN example.com. foo TXT abc\\\\def\\\"ghi bar TXT \"ab cd\\\\ef\\\"gh\" " = { "$ORIGIN" = "example.com." } { "foo" { "1" { "type" = "TXT" } { "rdata" = "abc\\\\def\\\"ghi" } } } { "bar" { "1" { "type" = "TXT" } { "rdata" = "\"ab cd\\\\ef\\\"gh\"" } } } (* Whitespace at the end of the line *) test lns get " $ORIGIN example.com. \n@ IN SOA ns root.example.com. (1 2 3 4 5) \t foo 1D IN A 10.1.2.3\t " = { "$ORIGIN" = "example.com." } { "@" { "1" { "class" = "IN" } { "type" = "SOA" } { "mname" = "ns" } { "rname" = "root.example.com." } { "serial" = "1" } { "refresh" = "2" } { "retry" = "3" } { "expiry" = "4" } { "minimum" = "5" } } } { "foo" { "1" { "ttl" = "1D" } { "class" = "IN" } { "type" = "A" } { "rdata" = "10.1.2.3" } } } PK ! � q� � ' lenses/dist/tests/test_modules_conf.augnu �[��� module Test_modules_conf = (* Based on 04config.sh from module-init-tools *) let conf = "# Various aliases alias alias_to_foo foo alias alias_to_bar bar alias alias_to_export_dep-$BITNESS export_dep-$BITNESS # Various options, including options to aliases. options alias_to_export_dep-$BITNESS I am alias to export_dep options alias_to_noexport_nodep-$BITNESS_with_tabbed_options index=0 id=\"Thinkpad\" isapnp=0 \\ \tport=0x530 cport=0x538 fm_port=0x388 \\ \tmpu_port=-1 mpu_irq=-1 \\ \tirq=9 dma1=1 dma2=3 \\ \tenable=1 isapnp=0 # Install commands install bar echo Installing bar install foo echo Installing foo install export_nodep-$BITNESS echo Installing export_nodep # Pre- and post- install something pre-install ide-scsi modprobe ide-cd # load ide-cd before ide-scsi post-install serial /etc/init.d/setserial modload > /dev/null 2> /dev/null # Remove commands remove bar echo Removing bar remove foo echo Removing foo remove export_nodep-$BITNESS echo Removing export_nodep #Pre- and post- remove something pre-remove serial /etc/init.d/setserial modsave > /dev/null 2> /dev/null post-remove bttv rmmod tuner # Misc other directives probeall /dev/cdroms keep path=/lib/modules/`uname -r`/alsa " test Modules_conf.lns get conf = { "#comment" = "Various aliases" } { "alias" = "alias_to_foo" { "modulename" = "foo" } } { "alias" = "alias_to_bar" { "modulename" = "bar" } } { "alias" = "alias_to_export_dep-$BITNESS" { "modulename" = "export_dep-$BITNESS" } } { } { "#comment" = "Various options, including options to aliases." } { "options" = "alias_to_export_dep-$BITNESS" { "I" } { "am" } { "alias" } { "to" } { "export_dep" } } { "options" = "alias_to_noexport_nodep-$BITNESS_with_tabbed_options" { "index" = "0" } { "id" = "\"Thinkpad\"" } { "isapnp" = "0" } { "port" = "0x530" } { "cport" = "0x538" } { "fm_port" = "0x388" } { "mpu_port" = "-1" } { "mpu_irq" = "-1" } { "irq" = "9" } { "dma1" = "1" } { "dma2" = "3" } { "enable" = "1" } { "isapnp" = "0" } } { } { "#comment" = "Install commands" } { "install" = "bar" { "command" = "echo Installing bar" } } { "install" = "foo" { "command" = "echo Installing foo" } } { "install" = "export_nodep-$BITNESS" { "command" = "echo Installing export_nodep" } } { } { "#comment" = "Pre- and post- install something" } { "pre-install" = "ide-scsi" { "command" = "modprobe ide-cd" } { "#comment" = "load ide-cd before ide-scsi" } } { "post-install" = "serial" { "command" = "/etc/init.d/setserial modload > /dev/null 2> /dev/null" } } { } { "#comment" = "Remove commands" } { "remove" = "bar" { "command" = "echo Removing bar" } } { "remove" = "foo" { "command" = "echo Removing foo" } } { "remove" = "export_nodep-$BITNESS" { "command" = "echo Removing export_nodep" } } { } { "#comment" = "Pre- and post- remove something" } { "pre-remove" = "serial" { "command" = "/etc/init.d/setserial modsave > /dev/null 2> /dev/null" } } { "post-remove" = "bttv" { "command" = "rmmod tuner" } } { } { "#comment" = "Misc other directives" } { "probeall" = "/dev/cdroms" } { "keep" } { "path" = "/lib/modules/`uname -r`/alsa" } PK ! A��� � " lenses/dist/tests/test_grubenv.augnu �[��� module Test_grubenv = let conf = "# GRUB Environment Block serial=1 serial_speed=115200 dummy1=abc\\\\xyz dummy2=abc\\ xyz dummy3=abc\\\\uvw\\ xyz ######################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################## " test GrubEnv.lns get conf = { "#comment" = "GRUB Environment Block" } { "1" { "name" = "serial" } { "value" = "1" } } { "2" { "name" = "serial_speed" } { "value" = "115200" } } { "3" { "name" = "dummy1" } { "value" = "abc\\\\xyz" } } { "4" { "name" = "dummy2" } { "value" = "abc\\\nxyz" } } { "5" { "name" = "dummy3" } { "value" = "abc\\\\uvw\\\nxyz" } } { "#comment" = "#######################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################" } PK ! 6 �: : lenses/dist/tests/test_csv.augnu �[��� module Test_CSV = (* Test: CSV.lns Simple test *) test CSV.lns get "a,b,c\n" = { "1" { "1" = "a" } { "2" = "b" } { "3" = "c" } } (* Test: CSV.lns Values with spaces *) test CSV.lns get "a,b c,d\n" = { "1" { "1" = "a" } { "2" = "b c" } { "3" = "d" } } (* Test: CSV.lns Quoted values *) test CSV.lns get "a,\"b,c\",d # comment # e,f,with space\n" = { "1" { "1" = "a" } { "2" = "\"b,c\"" } { "3" = "d" } } { "#comment" = "comment" } { } { "2" { "1" = "e" } { "2" = "f" } { "3" = "with space" } } (* Test: CSV.lns Empty values *) test CSV.lns get ", ,,\n" = { "1" { "1" = "" } { "2" = "" } } { "2" { "1" = "" } { "2" = "" } { "3" = "" } } (* Test: CSV.lns Trailing spaces *) test CSV.lns get "a , b \n" = { "1" { "1" = "a " } { "2" = " b " } } { "2" { "1" = " " } } (* Test: CSV.lns Quoted values in quoted values *) test CSV.lns get "\"a,b\"\"c d\"\"\"\n" = { "1" { "1" = "\"a,b\"\"c d\"\"\"" } } (* Test: CSV.lns Quote in quoted values *) test CSV.lns get "\"a,b\"\"c d\"\n" = { "1" { "1" = "\"a,b\"\"c d\"" } } (* Test: CSV.lns Values with newlines *) test CSV.lns get "a,\"b\n c\"\n" = { "1" { "1" = "a" } { "2" = "\"b\n c\"" } } (* Test: CSV.lns_semicol Semi-colon lens *) test CSV.lns_semicol get "a;\"b;c\";d # comment # e;f;with space\n" = { "1" { "1" = "a" } { "2" = "\"b;c\"" } { "3" = "d" } } { "#comment" = "comment" } { } { "2" { "1" = "e" } { "2" = "f" } { "3" = "with space" } } PK ! ��U9 U9 % lenses/dist/tests/test_keepalived.augnu �[��� (* Module: Test_Keepalived Provides unit tests and examples for the <Keepalived> lens. *) module Test_Keepalived = (* Variable: conf A full configuration file *) let conf = "! This is a comment ! Configuration File for keepalived global_defs { ! this is who emails will go to on alerts notification_email { admins@example.com fakepager@example.com ! add a few more email addresses here if you would like } notification_email_from admins@example.com smtp_server 127.0.0.1 ! I use the local machine to relay mail smtp_connect_timeout 30 ! each load balancer should have a different ID ! this will be used in SMTP alerts, so you should make ! each router easily identifiable lvs_id LVS_EXAMPLE_01 vrrp_mcast_group4 224.0.0.18 vrrp_mcast_group6 ff02::12 } vrrp_sync_group VG1 { group { inside_network # name of vrrp_instance (below) outside_network # One for each moveable IP. } notify /usr/bin/foo notify_master /usr/bin/foo smtp_alert } vrrp_instance VI_1 { state MASTER interface eth0 track_interface { eth0 # Back eth1 # DMZ } track_script { check_apache2 # weight = +2 si ok, 0 si nok } garp_master_delay 5 garp_master_repeat 5 garp_master_refresh 5 garp_master_refresh_repeat 5 priority 50 advert_int 2 authentication { auth_type PASS auth_pass mypass } virtual_ipaddress { 10.234.66.146/32 dev eth0 } lvs_sync_daemon_interface eth0 ha_suspend notify_master \"/svr/scripts/notify_master.sh\" notify_backup \"/svr/scripts/notify_backup.sh\" notify_fault \"/svr/scripts/notify_fault.sh\" notify \"/svr/scripts/notify.sh\" ! each virtual router id must be unique per instance name! virtual_router_id 51 ! MASTER and BACKUP state are determined by the priority ! even if you specify MASTER as the state, the state will ! be voted on by priority (so if your state is MASTER but your ! priority is lower than the router with BACKUP, you will lose ! the MASTER state) ! I make it a habit to set priorities at least 50 points apart ! note that a lower number is lesser priority - lower gets less vote priority 150 ! how often should we vote, in seconds? advert_int 1 ! send an alert when this instance changes state from MASTER to BACKUP smtp_alert ! this authentication is for syncing between failover servers ! keepalived supports PASS, which is simple password ! authentication ! or AH, which is the IPSec authentication header. ! I don't use AH ! yet as many people have reported problems with it authentication { auth_type PASS auth_pass example } ! these are the IP addresses that keepalived will setup on this ! machine. Later in the config we will specify which real ! servers are behind these IPs ! without this block, keepalived will not setup and takedown the ! any IP addresses virtual_ipaddress { 192.168.1.11 10.234.66.146/32 dev vlan933 # parse it well ! and more if you want them } use_vmac vmac_xmit_base native_ipv6 dont_track_primary preempt_delay mcast_src_ip 192.168.1.1 unicast_src_ip 192.168.1.1 unicast_peer { 192.168.1.2 192.168.1.3 } } virtual_server 192.168.1.11 22 { delay_loop 6 ! use round-robin as a load balancing algorithm lb_algo rr ! we are doing NAT lb_kind NAT nat_mask 255.255.255.0 protocol TCP sorry_server 10.20.40.30 22 ! there can be as many real_server blocks as you need real_server 10.20.40.10 22 { ! if we used weighted round-robin or a similar lb algo, ! we include the weight of this server weight 1 ! here is a health checker for this server. ! we could use a custom script here (see the keepalived docs) ! but we will just make sure we can do a vanilla tcp connect() ! on port 22 ! if it fails, we will pull this realserver out of the pool ! and send email about the removal TCP_CHECK { connect_timeout 3 connect_port 22 } } } virtual_server_group DNS_1 { 192.168.0.1 22 10.234.55.22-25 36 10.45.58.59/32 27 } vrrp_script chk_apache2 { # Requires keepalived-1.1.13 script \"killall -0 apache2\" # faster interval 2 # check every 2 seconds weight 2 # add 2 points of prio if OK fall 5 raise 5 } ! that's all " (* Test: Keepalived.lns Test the full <conf> *) test Keepalived.lns get conf = { "#comment" = "This is a comment" } { "#comment" = "Configuration File for keepalived" } {} { "global_defs" { "#comment" = "this is who emails will go to on alerts" } { "notification_email" { "email" = "admins@example.com" } { "email" = "fakepager@example.com" } { "#comment" = "add a few more email addresses here if you would like" } } { "notification_email_from" = "admins@example.com" } { } { "smtp_server" = "127.0.0.1" { "#comment" = "I use the local machine to relay mail" } } { "smtp_connect_timeout" = "30" } {} { "#comment" = "each load balancer should have a different ID" } { "#comment" = "this will be used in SMTP alerts, so you should make" } { "#comment" = "each router easily identifiable" } { "lvs_id" = "LVS_EXAMPLE_01" } {} { "vrrp_mcast_group4" = "224.0.0.18" } { "vrrp_mcast_group6" = "ff02::12" } } {} { "vrrp_sync_group" = "VG1" { "group" { "inside_network" { "#comment" = "name of vrrp_instance (below)" } } { "outside_network" { "#comment" = "One for each moveable IP." } } } { "notify" = "/usr/bin/foo" } { "notify_master" = "/usr/bin/foo" } { "smtp_alert" } } {} { "vrrp_instance" = "VI_1" { "state" = "MASTER" } { "interface" = "eth0" } { } { "track_interface" { "eth0" { "#comment" = "Back" } } { "eth1" { "#comment" = "DMZ" } } } { "track_script" { "check_apache2" { "#comment" = "weight = +2 si ok, 0 si nok" } } } { "garp_master_delay" = "5" } { "garp_master_repeat" = "5" } { "garp_master_refresh" = "5" } { "garp_master_refresh_repeat" = "5" } { "priority" = "50" } { "advert_int" = "2" } { "authentication" { "auth_type" = "PASS" } { "auth_pass" = "mypass" } } { "virtual_ipaddress" { "ipaddr" = "10.234.66.146" { "prefixlen" = "32" } { "dev" = "eth0" } } } { } { "lvs_sync_daemon_interface" = "eth0" } { "ha_suspend" } { } { "notify_master" = "\"/svr/scripts/notify_master.sh\"" } { "notify_backup" = "\"/svr/scripts/notify_backup.sh\"" } { "notify_fault" = "\"/svr/scripts/notify_fault.sh\"" } { "notify" = "\"/svr/scripts/notify.sh\"" } { } { "#comment" = "each virtual router id must be unique per instance name!" } { "virtual_router_id" = "51" } { } { "#comment" = "MASTER and BACKUP state are determined by the priority" } { "#comment" = "even if you specify MASTER as the state, the state will" } { "#comment" = "be voted on by priority (so if your state is MASTER but your" } { "#comment" = "priority is lower than the router with BACKUP, you will lose" } { "#comment" = "the MASTER state)" } { "#comment" = "I make it a habit to set priorities at least 50 points apart" } { "#comment" = "note that a lower number is lesser priority - lower gets less vote" } { "priority" = "150" } { } { "#comment" = "how often should we vote, in seconds?" } { "advert_int" = "1" } { } { "#comment" = "send an alert when this instance changes state from MASTER to BACKUP" } { "smtp_alert" } { } { "#comment" = "this authentication is for syncing between failover servers" } { "#comment" = "keepalived supports PASS, which is simple password" } { "#comment" = "authentication" } { "#comment" = "or AH, which is the IPSec authentication header." } { "#comment" = "I don't use AH" } { "#comment" = "yet as many people have reported problems with it" } { "authentication" { "auth_type" = "PASS" } { "auth_pass" = "example" } } { } { "#comment" = "these are the IP addresses that keepalived will setup on this" } { "#comment" = "machine. Later in the config we will specify which real" } { "#comment" = "servers are behind these IPs" } { "#comment" = "without this block, keepalived will not setup and takedown the" } { "#comment" = "any IP addresses" } { } { "virtual_ipaddress" { "ipaddr" = "192.168.1.11" } { "ipaddr" = "10.234.66.146" { "prefixlen" = "32" } { "dev" = "vlan933" } { "#comment" = "parse it well" } } { "#comment" = "and more if you want them" } } { } { "use_vmac" } { "vmac_xmit_base" } { "native_ipv6" } { "dont_track_primary" } { "preempt_delay" } { } { "mcast_src_ip" = "192.168.1.1" } { "unicast_src_ip" = "192.168.1.1" } { } { "unicast_peer" { "ipaddr" = "192.168.1.2" } { "ipaddr" = "192.168.1.3" } } } { } { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "delay_loop" = "6" } { } { "#comment" = "use round-robin as a load balancing algorithm" } { "lb_algo" = "rr" } { } { "#comment" = "we are doing NAT" } { "lb_kind" = "NAT" } { "nat_mask" = "255.255.255.0" } { } { "protocol" = "TCP" } { } { "sorry_server" { "ip" = "10.20.40.30" } { "port" = "22" } } { } { "#comment" = "there can be as many real_server blocks as you need" } { } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "#comment" = "if we used weighted round-robin or a similar lb algo," } { "#comment" = "we include the weight of this server" } { } { "weight" = "1" } { } { "#comment" = "here is a health checker for this server." } { "#comment" = "we could use a custom script here (see the keepalived docs)" } { "#comment" = "but we will just make sure we can do a vanilla tcp connect()" } { "#comment" = "on port 22" } { "#comment" = "if it fails, we will pull this realserver out of the pool" } { "#comment" = "and send email about the removal" } { "TCP_CHECK" { "connect_timeout" = "3" } { "connect_port" = "22" } } } } { } { "virtual_server_group" = "DNS_1" { "vip" { "ipaddr" = "192.168.0.1" } { "port" = "22" } } { "vip" { "ipaddr" = "10.234.55.22-25" } { "port" = "36" } } { "vip" { "ipaddr" = "10.45.58.59" { "prefixlen" = "32" } } { "port" = "27" } } } { } { "vrrp_script" = "chk_apache2" { "#comment" = "Requires keepalived-1.1.13" } { "script" = "\"killall -0 apache2\"" { "#comment" = "faster" } } { "interval" = "2" { "#comment" = "check every 2 seconds" } } { "weight" = "2" { "#comment" = "add 2 points of prio if OK" } } { "fall" = "5" } { "raise" = "5" } } { } { "#comment" = "that's all" } (* Variable: tcp_check An example of a TCP health checker *) let tcp_check = "virtual_server 192.168.1.11 22 { real_server 10.20.40.10 22 { TCP_CHECK { connect_timeout 3 connect_port 22 bindto 192.168.1.1 } } } " test Keepalived.lns get tcp_check = { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "TCP_CHECK" { "connect_timeout" = "3" } { "connect_port" = "22" } { "bindto" = "192.168.1.1" } } } } (* Variable: misc_check An example of a MISC health checker *) let misc_check = "virtual_server 192.168.1.11 22 { real_server 10.20.40.10 22 { MISC_CHECK { misc_path /usr/local/bin/server_test misc_timeout 3 misc_dynamic } } } " test Keepalived.lns get misc_check = { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "MISC_CHECK" { "misc_path" = "/usr/local/bin/server_test" } { "misc_timeout" = "3" } { "misc_dynamic" } } } } (* Variable: smtp_check An example of an SMTP health checker *) let smtp_check = "virtual_server 192.168.1.11 22 { real_server 10.20.40.10 22 { SMTP_CHECK { host { connect_ip 10.20.40.11 connect_port 587 bindto 192.168.1.1 } connect_timeout 3 retry 5 delay_before_retry 10 helo_name \"Testing Augeas\" } } } " test Keepalived.lns get smtp_check = { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "SMTP_CHECK" { "host" { "connect_ip" = "10.20.40.11" } { "connect_port" = "587" } { "bindto" = "192.168.1.1" } } { "connect_timeout" = "3" } { "retry" = "5" } { "delay_before_retry" = "10" } { "helo_name" = "\"Testing Augeas\"" } } } } (* Variable: http_check An example of an HTTP health checker *) let http_check = "virtual_server 192.168.1.11 22 { real_server 10.20.40.10 22 { HTTP_GET { url { path /mrtg2/ digest 9b3a0c85a887a256d6939da88aabd8cd status_code 200 } connect_timeout 3 connect_port 8080 nb_get_retry 5 delay_before_retry 10 } SSL_GET { connect_port 8443 } } } " test Keepalived.lns get http_check = { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "HTTP_GET" { "url" { "path" = "/mrtg2/" } { "digest" = "9b3a0c85a887a256d6939da88aabd8cd" } { "status_code" = "200" } } { "connect_timeout" = "3" } { "connect_port" = "8080" } { "nb_get_retry" = "5" } { "delay_before_retry" = "10" } } { "SSL_GET" { "connect_port" = "8443" } } } } PK ! :^N�� � - lenses/dist/tests/test_reprepro_uploaders.augnu �[��� (* Module: Test_Reprepro_Uploaders Provides unit tests and examples for the <Reprepro_Uploaders> lens. *) module Test_Reprepro_Uploaders = (* Test: Reprepro_Uploaders.entry A star condition gets mapped as direct value of the "allow" node. *) test Reprepro_Uploaders.entry get "allow * by anybody\n" = { "allow" = "*" { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry For simple keys, the "by" node gets the value "key" and the key ID gets mapped in a "key" subnode. *) test Reprepro_Uploaders.entry get "allow * by key ABCD1234\n" = { "allow" = "*" { "by" = "key" { "key" = "ABCD1234" } } } (* Test: Reprepro_Uploaders.entry Conditions are mapped inside a tree containing at least an "and" node and an "or" subnode. The value of each "or" subnode is the type of check (e.g. "source"), and this node contains "or" subnodes with the value(s) allowed for the check (e.g. "bash"). *) test Reprepro_Uploaders.entry get "allow source 'bash' by anybody\n" = { "allow" { "and" { "or" = "source" { "or" = "bash" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Check the field distribution *) test Reprepro_Uploaders.entry get "allow distribution 'sid' by anybody\n" = { "allow" { "and" { "or" = "distribution" { "or" = "sid" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Some checks use the "contain" keyword to loosen the condition. In that case, a "contain" subnode is added. Be sure to check for it to know how the condition has to be checked. *) test Reprepro_Uploaders.entry get "allow source 'bash' and binaries contain 'bash-doc' by anybody\n" = { "allow" { "and" { "or" = "source" { "or" = "bash" } } } { "and" { "or" = "binaries" { "contain" } { "or" = "bash-doc" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Some checks support multiple values, separated by '|'. In this case, each value gets added to an "or" subnode. *) test Reprepro_Uploaders.entry get "allow sections 'main'|'restricted' and source 'bash' or binaries contain 'bash-doc' by anybody\n" = { "allow" { "and" { "or" = "sections" { "or" = "main" } { "or" = "restricted" } } } { "and" { "or" = "source" { "or" = "bash" } } { "or" = "binaries" { "contain" } { "or" = "bash-doc" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Negated conditions are mapped with a "not" subnode. *) test Reprepro_Uploaders.entry get "allow not source 'bash' by anybody\n" = { "allow" { "and" { "or" = "source" { "not" } { "or" = "bash" } } } { "by" = "anybody" } } (* Variable: conf A full configuration *) let conf = "# ftpmaster allow * by key 74BF771E allow sections 'desktop/*' by anybody allow sections 'gforge/*' and binaries contain 'bzr' or not source '*melanie*'|'katya' by any key " (* Test: Reprepro_Uploaders.lns Testing the full <conf> against <Reprepro_Uploaders.lns> *) test Reprepro_Uploaders.lns get conf = { "#comment" = "ftpmaster" } { "allow" = "*" { "by" = "key" { "key" = "74BF771E" } } } { } { "allow" { "and" { "or" = "sections" { "or" = "desktop/*" } } } { "by" = "anybody" } } { "allow" { "and" { "or" = "sections" { "or" = "gforge/*" } } } { "and" { "or" = "binaries" { "contain" } { "or" = "bzr" } } { "or" = "source" { "not" } { "or" = "*melanie*" } { "or" = "katya" } } } { "by" = "key" { "key" = "any" } } } (* Test: Reprepro_Uploaders.lns Support group conditions, GH #283 *) test Reprepro_Uploaders.lns get "allow sections 'desktop/*' by group groupname\n" = { "allow" { "and" { "or" = "sections" { "or" = "desktop/*" } } } { "by" = "group" { "group" = "groupname" } } } (* Test: Reprepro_Uploaders.lns Declare group condition, GH #283 *) test Reprepro_Uploaders.lns get "group groupname add key-id\n" = { "group" = "groupname" { "add" = "key-id" } } (* Test: Reprepro_Uploaders.lns Group inheritance, GH #283 *) test Reprepro_Uploaders.lns get "group groupname contains group2\n" = { "group" = "groupname" { "contains" = "group2" } } (* Test: Reprepro_Uploaders.lns Empty group, GH #283 *) test Reprepro_Uploaders.lns get "group groupname empty\n" = { "group" = "groupname" { "empty" } } (* Test: Reprepro_Uploaders.lns Unused group, GH #283 *) test Reprepro_Uploaders.lns get "group groupname unused\n" = { "group" = "groupname" { "unused" } } PK ! �jg�� � ) lenses/dist/tests/test_xymon_alerting.augnu �[��� (* Module: Test_Xymon_Alerting Provides unit tests and examples for the <Xymon_Alerting> lens. *) module Test_Xymon_Alerting = let macro_definition = "$NOTIF_LOCAL=SCRIPT /foo/xymonqpage.sh $PAGER SCRIPT /foo/xymonsms.sh $SMS FORMAT=SMS COLOR=!yellow\n" test Xymon_Alerting.lns get macro_definition = { "$NOTIF_LOCAL" = "SCRIPT /foo/xymonqpage.sh $PAGER SCRIPT /foo/xymonsms.sh $SMS FORMAT=SMS COLOR=!yellow" } let basic_syntax = "HOST=hostname IGNORE\n" test Xymon_Alerting.lns get basic_syntax = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "IGNORE" { "filters" } } } } let two_filters = "HOST=hostname SERVICE=service IGNORE\n" test Xymon_Alerting.lns get two_filters = { "1" { "filters" { "HOST" = "hostname" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } let two_recipients = "HOST=hostname IGNORE STOP\n" test Xymon_Alerting.lns get two_recipients = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "IGNORE" { "filters" } } { "STOP" { "filters" } } } } let two_lines = "HOST=hostname SERVICE=service\n IGNORE\n" test Xymon_Alerting.lns get two_lines = { "1" { "filters" { "HOST" = "hostname" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } let two_lines_for_recipients = "HOST=hostname SERVICE=service\n IGNORE\nSTOP\n" test Xymon_Alerting.lns get two_lines_for_recipients = { "1" { "filters" { "HOST" = "hostname" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } { "STOP" { "filters" } } } } let with_blanks_at_eol = "HOST=hostname SERVICE=service \n IGNORE \n" test Xymon_Alerting.lns get with_blanks_at_eol = { "1" { "filters" { "HOST" = "hostname" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } let several_rules = "HOST=hostname SERVICE=service\nIGNORE\nHOST=hostname2 SERVICE=svc\nIGNORE\nSTOP\n" test Xymon_Alerting.lns get several_rules = { "1" { "filters" { "HOST" = "hostname" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } { "2" { "filters" { "HOST" = "hostname2" } { "SERVICE" = "svc" } } { "recipients" { "IGNORE" { "filters" } } { "STOP" { "filters" } } } } let duration = "HOST=hostname DURATION>20 SERVICE=service\nIGNORE\n" test Xymon_Alerting.lns get duration = { "1" { "filters" { "HOST" = "hostname" } { "DURATION" { "operator" = ">" } { "value" = "20" } } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } let notice = "HOST=hostname NOTICE SERVICE=service\nIGNORE\n" test Xymon_Alerting.lns get notice = { "1" { "filters" { "HOST" = "hostname" } { "NOTICE" } { "SERVICE" = "service" } } { "recipients" { "IGNORE" { "filters" } } } } let mail = "HOST=hostname MAIL astreinteMail\n" test Xymon_Alerting.lns get mail = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "MAIL" = "astreinteMail" { "filters" } } } } let script = "HOST=hostname SCRIPT /foo/email.sh astreinteMail\n" test Xymon_Alerting.lns get script = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "SCRIPT" { "script" = "/foo/email.sh" } { "recipient" = "astreinteMail" } { "filters" } } } } let repeat = "HOST=hostname REPEAT=15\n" test Xymon_Alerting.lns get repeat = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "REPEAT" = "15" { "filters" } } } } let mail_with_filters = "HOST=hostname MAIL astreinteMail EXSERVICE=service\n" test Xymon_Alerting.lns get mail_with_filters = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "MAIL" = "astreinteMail" { "filters" { "EXSERVICE" = "service" } } } } } let mail_with_several_filters = "HOST=hostname MAIL astreinteMail EXSERVICE=service DURATION>20\n" test Xymon_Alerting.lns get mail_with_several_filters = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "MAIL" = "astreinteMail" { "filters" { "EXSERVICE" = "service" } { "DURATION" { "operator" = ">" } { "value" = "20" } } } } } } let script_with_several_filters = "HOST=hostname SCRIPT /foo/email.sh astreinteMail EXSERVICE=service DURATION>20\n" test Xymon_Alerting.lns get script_with_several_filters = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "SCRIPT" { "script" = "/foo/email.sh" } { "recipient" = "astreinteMail" } { "filters" { "EXSERVICE" = "service" } { "DURATION" { "operator" = ">" } { "value" = "20" } } } } } } let repeat_with_several_filters = "HOST=hostname REPEAT=15 EXSERVICE=service DURATION>20\n" test Xymon_Alerting.lns get repeat_with_several_filters = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "REPEAT" = "15" { "filters" { "EXSERVICE" = "service" } { "DURATION" { "operator" = ">" } { "value" = "20" } } } } } } let recipients_with_several_filters = "HOST=hostname\nREPEAT=15 EXSERVICE=service DURATION>20\nMAIL astreinteMail TIME=weirdtimeformat\n" test Xymon_Alerting.lns get recipients_with_several_filters = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "REPEAT" = "15" { "filters" { "EXSERVICE" = "service" } { "DURATION" { "operator" = ">" } { "value" = "20" } } } } { "MAIL" = "astreinteMail" { "filters" { "TIME" = "weirdtimeformat" } } } } } let recipient_macro = "HOST=hostname\n $NOTIF_LOCAL\n STOP\n" test Xymon_Alerting.lns get recipient_macro = { "1" { "filters" { "HOST" = "hostname" } } { "recipients" { "$NOTIF_LOCAL" { "filters" } } { "STOP" { "filters" } } } } PK ! ?cft� � lenses/dist/tests/test_cron.augnu �[��� module Test_cron = let conf = "# /etc/cron.d/anacron: crontab entries for the anacron package SHELL=/bin/sh PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin CRON_TZ=America/Los_Angeles MAILTO=user1@tld1,user2@tld2;user3@tld3 30 7 * * * root test -x /etc/init.d/anacron && /usr/sbin/invoke-rc.d anacron start >/dev/null 00 */3 15-25/2 May 1-5 user somecommand 00 */3 15-25/2 May mon-tue user somecommand # a comment @yearly foo a command\n" test Cron.lns get conf = { "#comment" = "/etc/cron.d/anacron: crontab entries for the anacron package" } {} { "SHELL" = "/bin/sh" } { "PATH" = "/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin" } { "CRON_TZ" = "America/Los_Angeles" } { "MAILTO" = "user1@tld1,user2@tld2;user3@tld3" } {} { "entry" = "test -x /etc/init.d/anacron && /usr/sbin/invoke-rc.d anacron start >/dev/null" { "time" { "minute" = "30" } { "hour" = "7" } { "dayofmonth" = "*" } { "month" = "*" } { "dayofweek" = "*" } } { "user" = "root" } } { "entry" = "somecommand" { "time" { "minute" = "00" } { "hour" = "*/3" } { "dayofmonth" = "15-25/2" } { "month" = "May" } { "dayofweek" = "1-5" } } { "user" = "user" } } { "entry" = "somecommand" { "time" { "minute" = "00" } { "hour" = "*/3" } { "dayofmonth" = "15-25/2" } { "month" = "May" } { "dayofweek" = "mon-tue" } } { "user" = "user" } } { "#comment" = "a comment" } { "entry" = "a command" { "schedule" = "yearly" } { "user" = "foo" } } PK ! �:�[� � + lenses/dist/tests/test_puppetfileserver.augnu �[��� (* Tests for the PuppetFileserver module *) module Test_puppetfileserver = let fileserver = "# This a comment [mount1] # Mount1 options path /etc/puppet/files/%h allow host.domain1.com allow *.domain2.com deny badhost.domain2.com [mount2] allow * deny *.evil.example.com deny badhost.domain2.com [mount3] allow * # Puppet #6026: same line comment # And trailing whitespace allow * \n" test PuppetFileserver.lns get fileserver = { "#comment" = "This a comment" } { } { "mount1" { "#comment" = "Mount1 options" } { "path" = "/etc/puppet/files/%h" } { "allow" = "host.domain1.com" } { "allow" = "*.domain2.com" } { "deny" = "badhost.domain2.com" } } { "mount2" { "allow" = "*" } { "deny" = "*.evil.example.com" } { "deny" = "badhost.domain2.com" } } { "mount3" { "allow" = "*" { "#comment" = "Puppet #6026: same line comment" } } { "#comment" = "And trailing whitespace" } { "allow" = "*" } } PK ! փW c c lenses/dist/tests/test_oz.augnu �[��� module Test_oz = let conf = " [paths] output_dir = /var/lib/libvirt/images data_dir = /var/lib/oz [libvirt] uri = qemu:///system image_type = raw " test Oz.lns get conf = {} { "paths" { "output_dir" = "/var/lib/libvirt/images" } { "data_dir" = "/var/lib/oz" } {} } { "libvirt" { "uri" = "qemu:///system" } { "image_type" = "raw" } } test Oz.lns put conf after set "libvirt/cpus" "2" = " [paths] output_dir = /var/lib/libvirt/images data_dir = /var/lib/oz [libvirt] uri = qemu:///system image_type = raw cpus=2 " PK ! &���� � " lenses/dist/tests/test_modules.augnu �[��� module Test_Modules = let conf = "# /etc/modules: kernel modules to load at boot time. lp rtc " test Modules.lns get conf = { "#comment" = "/etc/modules: kernel modules to load at boot time." } { } { "lp" } { "rtc" } PK ! �>� - lenses/dist/tests/test_apt_update_manager.augnu �[��� (* Module: Test_Apt_Update_Manager Provides unit tests and examples for the <Apt_Update_Manager> lens. *) module Test_Apt_Update_Manager = (* Variable: meta_release *) let meta_release = "# default location for the meta-release file [METARELEASE] URI = http://changelogs.ubuntu.com/meta-release URI_LTS = http://changelogs.ubuntu.com/meta-release-lts URI_UNSTABLE_POSTFIX = -development URI_PROPOSED_POSTFIX = -proposed " (* Test: Apt_Update_Manager.lns *) test Apt_Update_Manager.lns get meta_release = { "#comment" = "default location for the meta-release file" } { } { "METARELEASE" { "URI" = "http://changelogs.ubuntu.com/meta-release" } { "URI_LTS" = "http://changelogs.ubuntu.com/meta-release-lts" } { "URI_UNSTABLE_POSTFIX" = "-development" } { "URI_PROPOSED_POSTFIX" = "-proposed" } } (* Variable: release_upgrades *) let release_upgrades = "# Default behavior for the release upgrader. [DEFAULT] Prompt=lts " (* Test: Apt_Update_Manager.lns *) test Apt_Update_Manager.lns get release_upgrades = { "#comment" = "Default behavior for the release upgrader." } { } { "DEFAULT" { "Prompt" = "lts" } } PK ! Q-�/Y /Y " lenses/dist/tests/test_dovecot.augnu �[��� (* Module: Test_Dovecot Provides unit tests and examples for the <Dovecot> lens. *) module Test_Dovecot = (* *********************** /etc/dovecot.conf ******************************** *) let dovecot_conf = "# Dovecot configuration file # If you're in a hurry, see http://wiki2.dovecot.org/QuickConfiguration # Default values are shown for each setting, it's not required to uncomment # those. These are exceptions to this though: No sections (e.g. namespace {}) # or plugin settings are added by default, they're listed only as examples. # Paths are also just examples with the real defaults being based on configure # options. The paths listed here are for configure --prefix=/usr # --sysconfdir=/etc --localstatedir=/var # include_try command !include_try /usr/share/dovecot/protocols.d/*.protocol # Wildcard, comma and space in value listen = *, :: # Filesystem path in value base_dir = /var/run/dovecot/ instance_name = dovecot # Space and dot in value login_greeting = Dovecot ready. # Empty values login_trusted_networks = login_access_sockets = # Simple values verbose_proctitle = no shutdown_clients = yes # Number in value doveadm_worker_count = 0 # Dash in value doveadm_socket_path = doveadm-server import_environment = TZ ## ## Comment ## # Simple commented dict block dict { #quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext #expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext } # Simple uncommented dict block dict { quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext } # Include command !include conf.d/*.conf # Include_try command !include_try local.conf " test Dovecot.lns get dovecot_conf = { "#comment" = "Dovecot configuration file" } { } { "#comment" = "If you're in a hurry, see http://wiki2.dovecot.org/QuickConfiguration" } { } { "#comment" = "Default values are shown for each setting, it's not required to uncomment" } { "#comment" = "those. These are exceptions to this though: No sections (e.g. namespace {})" } { "#comment" = "or plugin settings are added by default, they're listed only as examples." } { "#comment" = "Paths are also just examples with the real defaults being based on configure" } { "#comment" = "options. The paths listed here are for configure --prefix=/usr" } { "#comment" = "--sysconfdir=/etc --localstatedir=/var" } { } { "#comment" = "include_try command" } { "include_try" = "/usr/share/dovecot/protocols.d/*.protocol" } { } { "#comment" = "Wildcard, comma and space in value" } { "listen" = "*, ::" } { } { "#comment" = "Filesystem path in value" } { "base_dir" = "/var/run/dovecot/" } { "instance_name" = "dovecot" } { } { "#comment" = "Space and dot in value" } { "login_greeting" = "Dovecot ready." } { } { "#comment" = "Empty values" } { "login_trusted_networks" } { "login_access_sockets" } { } { "#comment" = "Simple values" } { "verbose_proctitle" = "no" } { "shutdown_clients" = "yes" } { } { "#comment" = "Number in value" } { "doveadm_worker_count" = "0" } { "#comment" = "Dash in value" } { "doveadm_socket_path" = "doveadm-server" } { } { "import_environment" = "TZ" } { } { "#comment" = "#" } { "#comment" = "# Comment" } { "#comment" = "#" } { } { "#comment" = "Simple commented dict block" } { "dict" { "#comment" = "quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext" } { "#comment" = "expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext" } } { } { "#comment" = "Simple uncommented dict block" } { "dict" { "quota" = "mysql:/etc/dovecot/dovecot-dict-sql.conf.ext" } { "expire" = "sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext" } } { } { "#comment" = "Include command" } { "include" = "conf.d/*.conf" } { } { "#comment" = "Include_try command" } { "include_try" = "local.conf" } { } (* *********************************** dict ********************************* *) let dovecot_dict_sql_conf = "connect = host=localhost dbname=mails user=testuser password=pass # CREATE TABLE quota ( # username varchar(100) not null, # bytes bigint not null default 0, # messages integer not null default 0, # primary key (username) # ); map { pattern = priv/quota/storage table = quota username_field = username value_field = bytes } map { pattern = priv/quota/messages table = quota username_field = username value_field = messages } # CREATE TABLE expires ( # username varchar(100) not null, # mailbox varchar(255) not null, # expire_stamp integer not null, # primary key (username, mailbox) # ); map { pattern = shared/expire/$user/$mailbox table = expires value_field = expire_stamp fields { username = $user mailbox = $mailbox } } " test Dovecot.lns get dovecot_dict_sql_conf = { "connect" = "host=localhost dbname=mails user=testuser password=pass" } { } { "#comment" = "CREATE TABLE quota (" } { "#comment" = "username varchar(100) not null," } { "#comment" = "bytes bigint not null default 0," } { "#comment" = "messages integer not null default 0," } { "#comment" = "primary key (username)" } { "#comment" = ");" } { } { "map" { "pattern" = "priv/quota/storage" } { "table" = "quota" } { "username_field" = "username" } { "value_field" = "bytes" } } { "map" { "pattern" = "priv/quota/messages" } { "table" = "quota" } { "username_field" = "username" } { "value_field" = "messages" } } { } { "#comment" = "CREATE TABLE expires (" } { "#comment" = "username varchar(100) not null," } { "#comment" = "mailbox varchar(255) not null," } { "#comment" = "expire_stamp integer not null," } { "#comment" = "primary key (username, mailbox)" } { "#comment" = ");" } { } { "map" { "pattern" = "shared/expire/$user/$mailbox" } { "table" = "expires" } { "value_field" = "expire_stamp" } { } { "fields" { "username" = "$user" } { "mailbox" = "$mailbox" } } } (* ********************************** auth ********************************** *) let auth_conf = "## Authentication processes disable_plaintext_auth = yes auth_cache_size = 0 auth_cache_ttl = 1 hour auth_cache_negative_ttl = 1 hour auth_realms = auth_default_realm = auth_username_chars = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890.-_@ auth_username_translation = auth_username_format = auth_master_user_separator = auth_anonymous_username = anonymous auth_worker_max_count = 30 auth_gssapi_hostname = auth_krb5_keytab = auth_use_winbind = no auth_winbind_helper_path = /usr/bin/ntlm_auth auth_failure_delay = 2 secs auth_ssl_require_client_cert = no auth_ssl_username_from_cert = no auth_mechanisms = plain !include auth-deny.conf.ext !include auth-master.conf.ext !include auth-system.conf.ext !include auth-sql.conf.ext !include auth-ldap.conf.ext !include auth-passwdfile.conf.ext !include auth-checkpassword.conf.ext !include auth-vpopmail.conf.ext !include auth-static.conf.ext passdb { driver = passwd-file deny = yes # File contains a list of usernames, one per line args = /etc/dovecot/deny-users } passdb { driver = passwd-file master = yes args = /etc/dovecot/master-users # Unless you're using PAM, you probably still want the destination user to # be looked up from passdb that it really exists. pass=yes does that. pass = yes } userdb { driver = passwd-file args = username_format=%u /etc/dovecot/users } " test Dovecot.lns get auth_conf = { "#comment" = "# Authentication processes" } { } { "disable_plaintext_auth" = "yes" } { "auth_cache_size" = "0" } { "auth_cache_ttl" = "1 hour" } { "auth_cache_negative_ttl" = "1 hour" } { "auth_realms" } { "auth_default_realm" } { "auth_username_chars" = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890.-_@" } { "auth_username_translation" } { "auth_username_format" } { "auth_master_user_separator" } { "auth_anonymous_username" = "anonymous" } { "auth_worker_max_count" = "30" } { "auth_gssapi_hostname" } { "auth_krb5_keytab" } { "auth_use_winbind" = "no" } { "auth_winbind_helper_path" = "/usr/bin/ntlm_auth" } { "auth_failure_delay" = "2 secs" } { "auth_ssl_require_client_cert" = "no" } { "auth_ssl_username_from_cert" = "no" } { "auth_mechanisms" = "plain" } { } { "include" = "auth-deny.conf.ext" } { "include" = "auth-master.conf.ext" } { "include" = "auth-system.conf.ext" } { "include" = "auth-sql.conf.ext" } { "include" = "auth-ldap.conf.ext" } { "include" = "auth-passwdfile.conf.ext" } { "include" = "auth-checkpassword.conf.ext" } { "include" = "auth-vpopmail.conf.ext" } { "include" = "auth-static.conf.ext" } { } { "passdb" { "driver" = "passwd-file" } { "deny" = "yes" } { } { "#comment" = "File contains a list of usernames, one per line" } { "args" = "/etc/dovecot/deny-users" } } { } { "passdb" { "driver" = "passwd-file" } { "master" = "yes" } { "args" = "/etc/dovecot/master-users" } { } { "#comment" = "Unless you're using PAM, you probably still want the destination user to" } { "#comment" = "be looked up from passdb that it really exists. pass=yes does that." } { "pass" = "yes" } } { } { "userdb" { "driver" = "passwd-file" } { "args" = "username_format=%u /etc/dovecot/users" } } (* ******************************** director ******************************** *) let director_conf = "## Director-specific settings. director_servers = director_mail_servers = director_user_expire = 15 min director_doveadm_port = 0 service director { unix_listener login/director { mode = 0666 } fifo_listener login/proxy-notify { mode = 0666 } unix_listener director-userdb { #mode = 0600 } inet_listener { port = } } service imap-login { executable = imap-login director } service pop3-login { executable = pop3-login director } protocol lmtp { auth_socket_path = director-userdb } " test Dovecot.lns get director_conf = { "#comment" = "# Director-specific settings." } { "director_servers" } { "director_mail_servers" } { "director_user_expire" = "15 min" } { "director_doveadm_port" = "0" } { } { "service" = "director" { "unix_listener" = "login/director" { "mode" = "0666" } } { "fifo_listener" = "login/proxy-notify" { "mode" = "0666" } } { "unix_listener" = "director-userdb" { "#comment" = "mode = 0600" } } { "inet_listener" { "port" } } } { } { "service" = "imap-login" { "executable" = "imap-login director" } } { "service" = "pop3-login" { "executable" = "pop3-login director" } } { "protocol" = "lmtp" { "auth_socket_path" = "director-userdb" } } (* ********************************* logging ******************************** *) let logging_conf = "## Log destination. log_path = syslog info_log_path = debug_log_path = syslog_facility = mail auth_verbose = no auth_verbose_passwords = no auth_debug = no auth_debug_passwords = no mail_debug = no verbose_ssl = no plugin { mail_log_events = delete undelete expunge copy mailbox_delete mailbox_rename mail_log_fields = uid box msgid size } log_timestamp = \"%b %d %H:%M:%S \" login_log_format_elements = user=<%u> method=%m rip=%r lip=%l mpid=%e %c login_log_format = %$: %s mail_log_prefix = \"%s(%u): \" deliver_log_format = msgid=%m: %$ " test Dovecot.lns get logging_conf = { "#comment" = "# Log destination." } { "log_path" = "syslog" } { "info_log_path" } { "debug_log_path" } { "syslog_facility" = "mail" } { "auth_verbose" = "no" } { "auth_verbose_passwords" = "no" } { "auth_debug" = "no" } { "auth_debug_passwords" = "no" } { "mail_debug" = "no" } { "verbose_ssl" = "no" } { } { "plugin" { "mail_log_events" = "delete undelete expunge copy mailbox_delete mailbox_rename" } { "mail_log_fields" = "uid box msgid size" } } { } { "log_timestamp" = "\"%b %d %H:%M:%S \"" } { "login_log_format_elements" = "user=<%u> method=%m rip=%r lip=%l mpid=%e %c" } { "login_log_format" = "%$: %s" } { "mail_log_prefix" = "\"%s(%u): \"" } { "deliver_log_format" = "msgid=%m: %$" } (* ********************************** mail ********************************** *) let mail_conf = "## Mailbox locations and namespaces mail_location = namespace { type = private separator = prefix = location = inbox = no hidden = no list = yes subscriptions = yes mailbox \"Sent Messages\" { special_use = \Sent } } # Example shared namespace configuration namespace { type = shared separator = / prefix = shared/%%u/ location = maildir:%%h/Maildir:INDEX=~/Maildir/shared/%%u subscriptions = no list = children } mail_uid = mail_gid = mail_privileged_group = mail_access_groups = mail_full_filesystem_access = no mmap_disable = no dotlock_use_excl = yes mail_fsync = optimized mail_nfs_storage = no mail_nfs_index = no lock_method = fcntl mail_temp_dir = /tmp first_valid_uid = 500 last_valid_uid = 0 first_valid_gid = 1 last_valid_gid = 0 mail_max_keyword_length = 50 valid_chroot_dirs = mail_chroot = auth_socket_path = /var/run/dovecot/auth-userdb mail_plugin_dir = /usr/lib/dovecot/modules mail_plugins = mail_cache_min_mail_count = 0 mailbox_idle_check_interval = 30 secs mail_save_crlf = no maildir_stat_dirs = no maildir_copy_with_hardlinks = yes maildir_very_dirty_syncs = no mbox_read_locks = fcntl mbox_write_locks = dotlock fcntl mbox_lock_timeout = 5 mins mbox_dotlock_change_timeout = 2 mins mbox_dirty_syncs = yes mbox_very_dirty_syncs = no mbox_lazy_writes = yes mbox_min_index_size = 0 mdbox_rotate_size = 2M mdbox_rotate_interval = 0 mdbox_preallocate_space = no mail_attachment_dir = mail_attachment_min_size = 128k mail_attachment_fs = sis posix mail_attachment_hash = %{sha1} protocol !indexer-worker { mail_vsize_bg_after_count = 0 } " test Dovecot.lns get mail_conf = { "#comment" = "# Mailbox locations and namespaces" } { "mail_location" } { "namespace" { "type" = "private" } { "separator" } { "prefix" } { "location" } { "inbox" = "no" } { "hidden" = "no" } { "list" = "yes" } { "subscriptions" = "yes" } { "mailbox" = "Sent Messages" { "special_use" = "\Sent" } } } { } { "#comment" = "Example shared namespace configuration" } { "namespace" { "type" = "shared" } { "separator" = "/" } { "prefix" = "shared/%%u/" } { "location" = "maildir:%%h/Maildir:INDEX=~/Maildir/shared/%%u" } { "subscriptions" = "no" } { "list" = "children" } } { } { "mail_uid" } { "mail_gid" } { "mail_privileged_group" } { "mail_access_groups" } { "mail_full_filesystem_access" = "no" } { "mmap_disable" = "no" } { "dotlock_use_excl" = "yes" } { "mail_fsync" = "optimized" } { "mail_nfs_storage" = "no" } { "mail_nfs_index" = "no" } { "lock_method" = "fcntl" } { "mail_temp_dir" = "/tmp" } { "first_valid_uid" = "500" } { "last_valid_uid" = "0" } { "first_valid_gid" = "1" } { "last_valid_gid" = "0" } { "mail_max_keyword_length" = "50" } { "valid_chroot_dirs" } { "mail_chroot" } { "auth_socket_path" = "/var/run/dovecot/auth-userdb" } { "mail_plugin_dir" = "/usr/lib/dovecot/modules" } { "mail_plugins" } { "mail_cache_min_mail_count" = "0" } { "mailbox_idle_check_interval" = "30 secs" } { "mail_save_crlf" = "no" } { "maildir_stat_dirs" = "no" } { "maildir_copy_with_hardlinks" = "yes" } { "maildir_very_dirty_syncs" = "no" } { "mbox_read_locks" = "fcntl" } { "mbox_write_locks" = "dotlock fcntl" } { "mbox_lock_timeout" = "5 mins" } { "mbox_dotlock_change_timeout" = "2 mins" } { "mbox_dirty_syncs" = "yes" } { "mbox_very_dirty_syncs" = "no" } { "mbox_lazy_writes" = "yes" } { "mbox_min_index_size" = "0" } { "mdbox_rotate_size" = "2M" } { "mdbox_rotate_interval" = "0" } { "mdbox_preallocate_space" = "no" } { "mail_attachment_dir" } { "mail_attachment_min_size" = "128k" } { "mail_attachment_fs" = "sis posix" } { "mail_attachment_hash" = "%{sha1}" } { } { "protocol" = "!indexer-worker" { "mail_vsize_bg_after_count" = "0" } } (* ********************************* master ********************************* *) let master_conf = " default_process_limit = 100 default_client_limit = 1000 default_vsz_limit = 256M default_login_user = dovenull default_internal_user = dovecot service imap-login { inet_listener imap { port = 143 } inet_listener imaps { port = 993 ssl = yes } service_count = 1 process_min_avail = 0 vsz_limit = 64M } service pop3-login { inet_listener pop3 { port = 110 } inet_listener pop3s { port = 995 ssl = yes } } service lmtp { unix_listener lmtp { mode = 0666 } inet_listener lmtp { address = port = } } service imap { vsz_limit = 256M process_limit = 1024 } service auth { unix_listener auth-userdb { mode = 0600 user = group = } } service auth-worker { user = root } service dict { unix_listener dict { mode = 0600 user = group = } } " test Dovecot.lns get master_conf = { } { "default_process_limit" = "100" } { "default_client_limit" = "1000" } { "default_vsz_limit" = "256M" } { "default_login_user" = "dovenull" } { "default_internal_user" = "dovecot" } { } { "service" = "imap-login" { "inet_listener" = "imap" { "port" = "143" } } { "inet_listener" = "imaps" { "port" = "993" } { "ssl" = "yes" } } { "service_count" = "1" } { "process_min_avail" = "0" } { "vsz_limit" = "64M" } } { } { "service" = "pop3-login" { "inet_listener" = "pop3" { "port" = "110" } } { "inet_listener" = "pop3s" { "port" = "995" } { "ssl" = "yes" } } } { } { "service" = "lmtp" { "unix_listener" = "lmtp" { "mode" = "0666" } } { "inet_listener" = "lmtp" { "address" } { "port" } } } { } { "service" = "imap" { "vsz_limit" = "256M" } { "process_limit" = "1024" } } { } { "service" = "auth" { "unix_listener" = "auth-userdb" { "mode" = "0600" } { "user" } { "group" } } } { } { "service" = "auth-worker" { "user" = "root" } } { } { "service" = "dict" { "unix_listener" = "dict" { "mode" = "0600" } { "user" } { "group" } } } (* *********************************** ssl ********************************** *) let ssl_conf = "## SSL settings ssl = yes ssl_cert = </etc/ssl/certs/dovecot.pem ssl_key = </etc/ssl/private/dovecot.pem ssl_key_password = ssl_ca = ssl_verify_client_cert = no ssl_cert_username_field = commonName ssl_parameters_regenerate = 168 ssl_cipher_list = ALL:!LOW:!SSLv2:!EXP:!aNULL " test Dovecot.lns get ssl_conf = { "#comment" = "# SSL settings" } { "ssl" = "yes" } { "ssl_cert" = "</etc/ssl/certs/dovecot.pem" } { "ssl_key" = "</etc/ssl/private/dovecot.pem" } { "ssl_key_password" } { "ssl_ca" } { "ssl_verify_client_cert" = "no" } { "ssl_cert_username_field" = "commonName" } { "ssl_parameters_regenerate" = "168" } { "ssl_cipher_list" = "ALL:!LOW:!SSLv2:!EXP:!aNULL" } (* ********************* /etc/dovecot/conf.d/15-lda.conf ******************** *) let lda_conf = "## LDA specific settings (also used by LMTP) postmaster_address = hostname = quota_full_tempfail = no sendmail_path = /usr/sbin/sendmail submission_host = rejection_subject = Rejected: %s rejection_reason = Your message to <%t> was automatically rejected:%n%r recipient_delimiter = + lda_original_recipient_header = lda_mailbox_autocreate = no lda_mailbox_autosubscribe = no protocol lda { mail_plugins = $mail_plugins } " test Dovecot.lns get lda_conf = { "#comment" = "# LDA specific settings (also used by LMTP)" } { "postmaster_address" } { "hostname" } { "quota_full_tempfail" = "no" } { "sendmail_path" = "/usr/sbin/sendmail" } { "submission_host" } { "rejection_subject" = "Rejected: %s" } { "rejection_reason" = "Your message to <%t> was automatically rejected:%n%r" } { "recipient_delimiter" = "+" } { "lda_original_recipient_header" } { "lda_mailbox_autocreate" = "no" } { "lda_mailbox_autosubscribe" = "no" } { } { "protocol" = "lda" { "mail_plugins" = "$mail_plugins" } } (* *********************************** acl ********************************** *) let acl_conf = "## Mailbox access control lists. plugin { acl = vfile:/etc/dovecot/global-acls:cache_secs=300 } plugin { acl_shared_dict = file:/var/lib/dovecot/shared-mailboxes } " test Dovecot.lns get acl_conf = { "#comment" = "# Mailbox access control lists." } { "plugin" { "acl" = "vfile:/etc/dovecot/global-acls:cache_secs=300" } } { "plugin" { "acl_shared_dict" = "file:/var/lib/dovecot/shared-mailboxes" } } (* ******************************** plugins ********************************* *) let plugins_conf = " plugin { quota_rule = *:storage=1G quota_rule2 = Trash:storage=+100M } plugin { quota_warning = storage=95%% quota-warning 95 %u quota_warning2 = storage=80%% quota-warning 80 %u } service quota-warning { executable = script /usr/local/bin/quota-warning.sh user = dovecot unix_listener quota-warning { user = vmail } } plugin { quota = dirsize:User quota quota = maildir:User quota quota = dict:User quota::proxy::quota quota = fs:User quota } plugin { quota = dict:user::proxy::quota quota2 = dict:domain:%d:proxy::quota_domain quota_rule = *:storage=102400 quota2_rule = *:storage=1048576 } plugin { acl = vfile:/etc/dovecot/global-acls:cache_secs=300 } plugin { acl_shared_dict = file:/var/lib/dovecot/shared-mailboxes } " test Dovecot.lns get plugins_conf = { } { "plugin" { "quota_rule" = "*:storage=1G" } { "quota_rule2" = "Trash:storage=+100M" } } { "plugin" { "quota_warning" = "storage=95%% quota-warning 95 %u" } { "quota_warning2" = "storage=80%% quota-warning 80 %u" } } { "service" = "quota-warning" { "executable" = "script /usr/local/bin/quota-warning.sh" } { "user" = "dovecot" } { "unix_listener" = "quota-warning" { "user" = "vmail" } } } { "plugin" { "quota" = "dirsize:User quota" } { "quota" = "maildir:User quota" } { "quota" = "dict:User quota::proxy::quota" } { "quota" = "fs:User quota" } } { "plugin" { "quota" = "dict:user::proxy::quota" } { "quota2" = "dict:domain:%d:proxy::quota_domain" } { "quota_rule" = "*:storage=102400" } { "quota2_rule" = "*:storage=1048576" } } { "plugin" { "acl" = "vfile:/etc/dovecot/global-acls:cache_secs=300" } } { "plugin" { "acl_shared_dict" = "file:/var/lib/dovecot/shared-mailboxes" } } PK ! �-��c c ! lenses/dist/tests/test_pg_hba.augnu �[��� module Test_pg_hba = (* Main test *) let conf ="# TYPE DATABASE USER CIDR-ADDRESS METHOD local all all ident sameuser # IPv4 local connections: host all all 127.0.0.1/32 md5 # Remote connections by hostname: host all all foo.example.com md5 # Remote connections by suffix of hostname/fqdn: host all all .example.com md5 # IPv6 local connections: host all all ::1/128 md5 " test Pg_Hba.lns get conf = { "#comment" = "TYPE DATABASE USER CIDR-ADDRESS METHOD" } {} { "1" { "type" = "local" } { "database" = "all" } { "user" = "all" } { "method" = "ident" { "option" = "sameuser" } } } { "#comment" = "IPv4 local connections:" } { "2" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = "127.0.0.1/32" } { "method" = "md5" } } { "#comment" = "Remote connections by hostname:" } { "3" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = "foo.example.com" } { "method" = "md5" } } { "#comment" = "Remote connections by suffix of hostname/fqdn:" } { "4" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = ".example.com" } { "method" = "md5" } } { "#comment" = "IPv6 local connections:" } { "5" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = "::1/128" } { "method" = "md5" } } (* ------------------------------------------------------------- *) (* Simple local test *) test Pg_Hba.lns get "local all all trust\n" = { "1" { "type" = "local" } { "database" = "all" } { "user" = "all" } { "method" = "trust" } } (* Remote test with comma-sparated database names *) test Pg_Hba.lns get "hostssl db1,db2,db3 +pgusers 127.0.0.1/32 trust\n" = { "1" { "type" = "hostssl" } { "database" = "db1" } { "database" = "db2" } { "database" = "db3" } { "user" = "+pgusers" } { "address" = "127.0.0.1/32" } { "method" = "trust" } } (* Test with comma-sparated user names *) test Pg_Hba.lns get "hostnossl sameuser u1,u2,u3 127.0.0.1/32 trust\n" = { "1" { "type" = "hostnossl" } { "database" = "sameuser" } { "user" = "u1" } { "user" = "u2" } { "user" = "u3" } { "address" = "127.0.0.1/32" } { "method" = "trust" } } (* Test with quoted database and user names *) test Pg_Hba.lns get "host \"sameuser\" \"all\" 127.0.0.1/32 trust\n" = { "1" { "type" = "host" } { "database" = "\"sameuser\"" } { "user" = "\"all\"" } { "address" = "127.0.0.1/32" } { "method" = "trust" } } (* Test with IP + netmask address format *) test Pg_Hba.lns get "host all all 192.168.1.1 255.255.0.0 trust\n" = { "1" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = "192.168.1.1 255.255.0.0" } { "method" = "trust" } } (* Test with fqdn as address *) test Pg_Hba.lns get "host all all foo.example.com md5\n" = { "1" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = "foo.example.com" } { "method" = "md5" } } (* Test with fqdn suffix as address *) test Pg_Hba.lns get "host all all .example.com md5\n" = { "1" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = ".example.com" } { "method" = "md5" } } (* Local types may not have and address *) test Pg_Hba.lns get "local all all 127.0.0.1/32 trust\n" = * (* Remote types must have an address *) test Pg_Hba.lns get "host all all trust\n" = * (* The space between the IP and the netmask must not be considered as a column separator ("method" is missing here) *) test Pg_Hba.lns get "host all all 192.168.1.1 255.255.0.0\n" = * (* Ticket #313: support authentication method options *) test Pg_Hba.lns get "host all all .dev.example.com gss include_realm=0 krb_realm=EXAMPLE.COM map=somemap host all all .dev.example.com ldap ldapserver=auth.example.com ldaptls=1 ldapprefix=\"uid=\" ldapsuffix=\",ou=people,dc=example,dc=com\"\n" = { "1" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = ".dev.example.com" } { "method" = "gss" { "option" = "include_realm" { "value" = "0" } } { "option" = "krb_realm" { "value" = "EXAMPLE.COM" } } { "option" = "map" { "value" = "somemap" } } } } { "2" { "type" = "host" } { "database" = "all" } { "user" = "all" } { "address" = ".dev.example.com" } { "method" = "ldap" { "option" = "ldapserver" { "value" = "auth.example.com" } } { "option" = "ldaptls" { "value" = "1" } } { "option" = "ldapprefix" { "value" = "uid=" } } { "option" = "ldapsuffix" { "value" = ",ou=people,dc=example,dc=com" } } } } (* Unsupported yet *) (* test Pg_Hba.lns get "host \"db with spaces\" \"user with spaces\" 127.0.0.1/32 trust\n" =? *) (* test Pg_Hba.lns get "host \"db,with,commas\" \"user,with,commas\" 127.0.0.1/32 trust\n" =? *) PK ! 8��- - ! lenses/dist/tests/test_limits.augnu �[��� module Test_limits = let conf = "@audio - rtprio 99 ftp hard nproc /ftp 1200:2000 - as 1024 * soft core 0 " test Limits.lns get conf = { "domain" = "@audio" { "type" = "-" } { "item" = "rtprio" } { "value" = "99" } } { "domain" = "ftp" { "type" = "hard" } { "item" = "nproc" } { "value" = "/ftp" } } { "domain" = "1200:2000" { "type" = "-" } { "item" = "as" } { "value" = "1024" } } { "domain" = "*" { "type" = "soft" } { "item" = "core" } { "value" = "0" } } test Limits.lns put conf after insa "domain" "domain[last()]" ; set "domain[last()]" "*" ; set "domain[last()]/type" "-" ; set "domain[last()]/item" "nofile" ; set "domain[last()]/value" "4096" = "@audio - rtprio 99 ftp hard nproc /ftp 1200:2000 - as 1024 * soft core 0 * - nofile 4096\n" test Limits.lns get "* soft core 0 # clever comment\n" = { "domain" = "*" { "type" = "soft" } { "item" = "core" } { "value" = "0" } { "#comment" = "clever comment" } } PK ! t �H lenses/dist/tests/test_inetd.augnu �[��� module Test_inetd = (* The standard "parse a bucket of text" test *) let conf = "# Blah di blah comment simplesrv stream tcp nowait fred /usr/bin/simplesrv arguserve dgram udp wait mary /usr/bin/usenet foo bar wombat 1234 stream tcp nowait fred /usr/bin/numbersrv 127.0.0.1:addrsrv stream tcp nowait fred /usr/bin/addrsrv 127.0.0.1,10.0.0.1:multiaddrsrv stream tcp nowait fred /usr/bin/multiaddrsrv faff.fred.com: 127.0.0.1,faff.fred.com: *: [::1]:addrsrv stream tcp nowait fred /usr/bin/addrsrv sndbufsrv stream tcp,sndbuf=12k nowait fred /usr/bin/sndbufsrv rcvbufsrv stream tcp,rcvbuf=24k nowait fred /usr/bin/rcvbufsrv allbufsrv stream tcp,sndbuf=1m,rcvbuf=24k nowait fred /usr/bin/allbufsrv dotgroupsrv stream tcp nowait fred.wilma /usr/bin/dotgroupsrv colongroupsrv stream tcp nowait fred:wilma /usr/bin/colongroupsrv maxsrv stream tcp nowait.20 fred /usr/bin/maxsrv dummy/1 tli rpc/circuit_v,udp wait root /tmp/test_svc test_svc " test Inetd.lns get conf = { "#comment" = "Blah di blah comment" } {} { "service" = "simplesrv" { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/simplesrv" } } { "service" = "arguserve" { "socket" = "dgram" } { "protocol" = "udp" } { "wait" = "wait" } { "user" = "mary" } { "command" = "/usr/bin/usenet" } { "arguments" { "1" = "foo" } { "2" = "bar" } { "3" = "wombat" } } } {} { "service" = "1234" { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/numbersrv" } } {} { "service" = "addrsrv" { "address" { "1" = "127.0.0.1" } } { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/addrsrv" } } { "service" = "multiaddrsrv" { "address" { "1" = "127.0.0.1" } { "2" = "10.0.0.1" } } { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/multiaddrsrv" } } { "address" { "1" = "faff.fred.com" } } { "address" { "1" = "127.0.0.1" } { "2" = "faff.fred.com" } } { "address" { "1" = "*" } } { "service" = "addrsrv" { "address" { "1" = "[::1]" } } { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/addrsrv" } } {} { "service" = "sndbufsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "sndbuf" = "12k" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/sndbufsrv" } } { "service" = "rcvbufsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "rcvbuf" = "24k" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/rcvbufsrv" } } { "service" = "allbufsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "sndbuf" = "1m" } { "rcvbuf" = "24k" } { "wait" = "nowait" } { "user" = "fred" } { "command" = "/usr/bin/allbufsrv" } } {} { "service" = "dotgroupsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "group" = "wilma" } { "command" = "/usr/bin/dotgroupsrv" } } { "service" = "colongroupsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "user" = "fred" } { "group" = "wilma" } { "command" = "/usr/bin/colongroupsrv" } } {} { "service" = "maxsrv" { "socket" = "stream" } { "protocol" = "tcp" } { "wait" = "nowait" } { "max" = "20" } { "user" = "fred" } { "command" = "/usr/bin/maxsrv" } } {} { "rpc_service" = "dummy" { "version" = "1" } { "endpoint-type" = "tli" } { "protocol" = "circuit_v" } { "protocol" = "udp" } { "wait" = "wait" } { "user" = "root" } { "command" = "/tmp/test_svc" } { "arguments" { "1" = "test_svc" } } } (**************************************************************************) (* Test new file creation *) test Inetd.lns put "" after set "/service" "faffsrv"; set "/service/socket" "stream"; set "/service/protocol" "tcp"; set "/service/wait" "nowait"; set "/service/user" "george"; set "/service/command" "/sbin/faffsrv" = "faffsrv stream tcp nowait george /sbin/faffsrv\n" PK ! ʞ�4 4 # lenses/dist/tests/test_collectd.augnu �[��� (* Module: Test_Collectd Provides unit tests and examples for the <Collectd> lens. *) module Test_Collectd = (* Variable: simple *) let simple = "LoadPlugin contextswitch LoadPlugin cpu FQDNLookup \"true\" Include \"/var/lib/puppet/modules/collectd/plugins/*.conf\" " (* Test: Collectd.lns *) test Collectd.lns get simple = { "directive" = "LoadPlugin" { "arg" = "contextswitch" } } { "directive" = "LoadPlugin" { "arg" = "cpu" } } { "directive" = "FQDNLookup" { "arg" = "\"true\"" } } { "directive" = "Include" { "arg" = "\"/var/lib/puppet/modules/collectd/plugins/*.conf\"" } } (* Variable: filters *) let filters = "<Chain \"PreCache\"> <Rule \"no_fqdn\"> <Match \"regex\"> Host \"^[^\.]*$\" Invert false </Match> Target \"stop\" </Rule> </Chain> " (* Test: Collectd.lns *) test Collectd.lns get filters = { "Chain" { "arg" = "\"PreCache\"" } { "Rule" { "arg" = "\"no_fqdn\"" } { "Match" { "arg" = "\"regex\"" } { "directive" = "Host" { "arg" = "\"^[^\.]*$\"" } } { "directive" = "Invert" { "arg" = "false" } } } { "directive" = "Target" { "arg" = "\"stop\"" } } } } PK ! ��� } } $ lenses/dist/tests/test_jmxaccess.augnu �[��� (* Module: Test_JMXAccess Provides unit tests and examples for the <JMXAccess> lens. *) module Test_JMXAccess = (* Variable: conf *) let conf = "# Comment admin readwrite " (* Variable: new_conf *) let new_conf = "# Comment admin readonly " let lns = JMXAccess.lns (* Test: JMXAccess.lns * Get test against tree structure *) test lns get conf = { "#comment" = "Comment" } { "user" { "username" = "admin" } { "access" = "readwrite" } } (* Test: JMXAccess.lns * Put test changing access to readonly *) test lns put conf after set "/user/access" "readonly" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! ���� � ! lenses/dist/tests/test_webmin.augnu �[��� module Test_webmin = let conf = "port=10000 realm=Webmin Server denyfile=\.pl$ " test Webmin.lns get conf = { "port" = "10000" } { "realm" = "Webmin Server" } { "denyfile" = "\.pl$" } PK ! Dg�� � " lenses/dist/tests/test_pamconf.augnu �[��� module Test_pamconf = let example = "# Authentication management # # login service (explicit because of pam_dial_auth) # login auth requisite pam_authtok_get.so.1 login auth required pam_dhkeys.so.1 arg other session required pam_unix_session.so.1 " test PamConf.lns get example = { "#comment" = "Authentication management" } { } { "#comment" = "login service (explicit because of pam_dial_auth)" } { } { "1" { "service" = "login" } { "type" = "auth" } { "control" = "requisite" } { "module" = "pam_authtok_get.so.1" } } { "2" { "service" = "login" } { "type" = "auth" } { "control" = "required" } { "module" = "pam_dhkeys.so.1" } { "argument" = "arg" } } { } { "3" { "service" = "other" } { "type" = "session" } { "control" = "required" } { "module" = "pam_unix_session.so.1" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! bB�̀ � lenses/dist/tests/test_ldif.augnu �[��� (* Test for LDIF lens *) module Test_ldif = (* Test LDIF content only *) let content = "version: 1 dn: cn=foo bar,dc=example,dc=com # test ou: example value cn:: Zm9vIGJhcg== # test telephoneNumber;foo;bar: +1 123 456 789 binary;foo:< file:///file/something # test dn: cn=simple,dc=example,dc=com cn: simple test: split line starts with :colon dn:: Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t # test cn: simple dn: cn=simple,dc=exam ple,dc=com cn: simple telephoneNumber:: KzEgMTIzIDQ1 NiA3ODk= # test " test Ldif.lns get content = { "@content" { "version" = "1" } { "1" = "cn=foo bar,dc=example,dc=com" { "#comment" = "test" } { "ou" = "example value" } { "cn" { "@base64" = "Zm9vIGJhcg==" } } { "#comment" = "test" } { "telephoneNumber" = "+1 123 456 789" { "@option" = "foo" } { "@option" = "bar" } } { "binary" { "@option" = "foo" } { "@url" = "file:///file/something" } } } { "#comment" = "test" } {} { "2" = "cn=simple,dc=example,dc=com" { "cn" = "simple" } { "test" = "split line starts with :colon" } } {} { "3" { "@base64" = "Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t" } { "#comment" = "test" } { "cn" = "simple" } } {} { "4" = "cn=simple,dc=exam ple,dc=com" { "cn" = "simple" } { "telephoneNumber" { "@base64" = "KzEgMTIzIDQ1 NiA3ODk=" } } } {} { "#comment" = "test" } } (* Test LDIF changes *) let changes = "version: 1 dn: cn=foo,dc=example,dc=com changetype: delete dn: cn=simple,dc=example,dc=com control: 1.2.3.4 control: 1.2.3.4 true # test control: 1.2.3.4 true: foo bar control: 1.2.3.4 true:: Zm9vIGJhcg== changetype: add cn: simple dn: cn=foo bar,dc=example,dc=com changeType: modify add: telephoneNumber telephoneNumber: +1 123 456 789 - replace: homePostalAddress;lang-fr homePostalAddress;lang-fr: 34 rue de Seine # test - delete: telephoneNumber - replace: telephoneNumber telephoneNumber:: KzEgMTIzIDQ1NiA3ODk= - dn: cn=foo,dc=example,dc=com changetype: moddn newrdn: cn=bar deleteoldrdn: 0 newsuperior: dc=example,dc=net " test Ldif.lns get changes = { "@changes" { "version" = "1" } { "1" = "cn=foo,dc=example,dc=com" { "changetype" = "delete" } } {} { "2" = "cn=simple,dc=example,dc=com" { "control" = "1.2.3.4" } { "control" = "1.2.3.4" { "criticality" = "true" } } { "#comment" = "test" } { "control" = "1.2.3.4" { "criticality" = "true" } { "value" = "foo bar" } } { "control" = "1.2.3.4" { "criticality" = "true" } { "value" { "@base64" = "Zm9vIGJhcg==" } } } { "changetype" = "add" } { "cn" = "simple" } } {} { "3" = "cn=foo bar,dc=example,dc=com" { "changeType" = "modify" } { "add" = "telephoneNumber" { "telephoneNumber" = "+1 123 456 789" } } { "replace" = "homePostalAddress" { "@option" = "lang-fr" } { "homePostalAddress" = "34 rue de Seine" { "@option" = "lang-fr" } } { "#comment" = "test" } } { "delete" = "telephoneNumber" } { "replace" = "telephoneNumber" { "telephoneNumber" { "@base64" = "KzEgMTIzIDQ1NiA3ODk=" } } } } {} { "4" = "cn=foo,dc=example,dc=com" { "changetype" = "moddn" } { "newrdn" = "cn=bar" } { "deleteoldrdn" = "0" } { "newsuperior" = "dc=example,dc=net" } } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! b�e:9 9 " lenses/dist/tests/test_rsyslog.augnu �[��� (* Module: Test_Rsyslog Provides unit tests and examples for the <Rsyslog> lens. *) module Test_Rsyslog = (* Variable: conf *) let conf = "# rsyslog v5 configuration file $ModLoad imuxsock # provides support for local system logging (e.g. via logger command) $ModLoad imklog # provides kernel logging support (previously done by rklogd) module(load=\"immark\" markmessageperiod=\"60\" fakeoption=\"bar\") #provides --MARK-- message capability timezone(id=\"CET\" offset=\"+01:00\") $UDPServerRun 514 $InputTCPServerRun 514 $ActionFileDefaultTemplate RSYSLOG_TraditionalFileFormat $ActionFileEnableSync on $IncludeConfig /etc/rsyslog.d/*.conf *.info;mail.none;authpriv.none;cron.none /var/log/messages authpriv.* /var/log/secure *.emerg * *.* @2.7.4.1 *.* @@2.7.4.1 *.emerg :omusrmsg:* *.emerg :omusrmsg:foo,bar *.emerg | /dev/xconsole " (* Test: Rsyslog.lns *) test Rsyslog.lns get conf = { "#comment" = "rsyslog v5 configuration file" } { } { "$ModLoad" = "imuxsock" { "#comment" = "provides support for local system logging (e.g. via logger command)" } } { "$ModLoad" = "imklog" { "#comment" = "provides kernel logging support (previously done by rklogd)" } } { "module" { "load" = "immark" } { "markmessageperiod" = "60" } { "fakeoption" = "bar" } { "#comment" = "provides --MARK-- message capability" } } { } { "timezone" { "id" = "CET" } { "offset" = "+01:00" } } { } { "$UDPServerRun" = "514" } { "$InputTCPServerRun" = "514" } { "$ActionFileDefaultTemplate" = "RSYSLOG_TraditionalFileFormat" } { "$ActionFileEnableSync" = "on" } { "$IncludeConfig" = "/etc/rsyslog.d/*.conf" } { } { "entry" { "selector" { "facility" = "*" } { "level" = "info" } } { "selector" { "facility" = "mail" } { "level" = "none" } } { "selector" { "facility" = "authpriv" } { "level" = "none" } } { "selector" { "facility" = "cron" } { "level" = "none" } } { "action" { "file" = "/var/log/messages" } } } { "entry" { "selector" { "facility" = "authpriv" } { "level" = "*" } } { "action" { "file" = "/var/log/secure" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "emerg" } } { "action" { "user" = "*" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@" } { "hostname" = "2.7.4.1" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "protocol" = "@@" } { "hostname" = "2.7.4.1" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "emerg" } } { "action" { "omusrmsg" = "*" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "emerg" } } { "action" { "omusrmsg" = "foo" } { "omusrmsg" = "bar" } } } { "entry" { "selector" { "facility" = "*" } { "level" = "emerg" } } { "action" { "pipe" = "/dev/xconsole" } } } (* Parse complex $template lines, RHBZ#1083016 *) test Rsyslog.lns get "$template SpiceTmpl,\"%TIMESTAMP%.%TIMESTAMP:::date-subseconds% %syslogtag% %syslogseverity-text%:%msg:::sp-if-no-1st-sp%%msg:::drop-last-lf%\\n\"\n" = { "$template" = "SpiceTmpl,\"%TIMESTAMP%.%TIMESTAMP:::date-subseconds% %syslogtag% %syslogseverity-text%:%msg:::sp-if-no-1st-sp%%msg:::drop-last-lf%\\n\"" } (* Parse property-based filters, RHBZ#1083016 *) test Rsyslog.lns get ":programname, startswith, \"spice-vdagent\" /var/log/spice-vdagent.log;SpiceTmpl\n" = { "filter" { "property" = "programname" } { "operation" = "startswith" } { "value" = "spice-vdagent" } { "action" { "file" = "/var/log/spice-vdagent.log" } { "template" = "SpiceTmpl" } } } test Rsyslog.lns get ":msg, !contains, \"error\" /var/log/noterror.log\n" = { "filter" { "property" = "msg" } { "operation" = "!contains" } { "value" = "error" } { "action" { "file" = "/var/log/noterror.log" } } } test Rsyslog.lns get ":msg,!contains,\"garbage\" ~\n" = { "filter" { "property" = "msg" } { "operation" = "!contains" } { "value" = "garbage" } { "action" { "discard" } } } test Rsyslog.lns put "" after set "/module[1]/load" "imuxsock" = "module(load=\"imuxsock\")\n" test Rsyslog.lns put "" after set "/module[1]/load" "imuxsock" ; set "/module[1]/SysSock.RateLimit.Interval" "0" = "module(load=\"imuxsock\" SysSock.RateLimit.Interval=\"0\")\n" test Rsyslog.lns put "" after set "/module[1]/load" "imuxsock" ; set "/module[1]/SysSock.RateLimit.Interval" "0" ; set "/module[1]/SysSock.RateLimit.Burst" "1" = "module(load=\"imuxsock\" SysSock.RateLimit.Interval=\"0\" SysSock.RateLimit.Burst=\"1\")\n" (* On Fedora 26, there are comments in module statements *) test Rsyslog.lns get "module(load=\"imuxsock\" # provides support for local system logging (e.g. via logger command) SysSock.Use=\"off\") # Turn off message reception via local log socket; # local messages are retrieved through imjournal now.\n" = { "module" { "load" = "imuxsock" } { "SysSock.Use" = "off" } { "#comment" = "Turn off message reception via local log socket;" } } { "#comment" = "local messages are retrieved through imjournal now." } (* rsyslog doesn't use bsd-like #! or #+/- specifications *) test Rsyslog.lns get "#!prog\n" = { "#comment" = "!prog" } test Rsyslog.lns get "#+host\n" = { "#comment" = "+host" } test Rsyslog.lns get "#-host\n" = { "#comment" = "-host" } (* Added in rsyslog 8.33 *) test Rsyslog.lns get "include(file=\"/etc/rsyslog.d/*.conf\" mode=\"optional\")\n" = { "include" { "file" = "/etc/rsyslog.d/*.conf" } { "mode" = "optional" } } (* Dynamic file name template *) test Rsyslog.lns get "*.* ?DynamicFile\n" = { "entry" { "selector" { "facility" = "*" } { "level" = "*" } } { "action" { "dynamic" = "DynamicFile" } } } (* Multiple actions in filters and selectors *) test Rsyslog.lns get ":msg, startswith, \"iptables:\" -/var/log/iptables.log & ~ # Save boot messages also to boot.log local7.* /var/log/boot.log local3.err /var/log/nfsen/nfsenlog & /var/log/also.log \n" = { "filter" { "property" = "msg" } { "operation" = "startswith" } { "value" = "iptables:" } { "action" { "no_sync" } { "file" = "/var/log/iptables.log" } } { "action" { "discard" } } } { "#comment" = "Save boot messages also to boot.log" } { "entry" { "selector" { "facility" = "local7" } { "level" = "*" } } { "action" { "file" = "/var/log/boot.log" } } } { "entry" { "selector" { "facility" = "local3" } { "level" = "err" } } { "action" { "file" = "/var/log/nfsen/nfsenlog" } } { "action" { "file" = "/var/log/also.log" } } } { } PK ! =��\ lenses/dist/tests/test_monit.augnu �[��� module Test_monit = let conf = "# Configuration file for monit. # set alert root@localhost include /my/monit/conf check process sshd start program \"/etc/init.d/ssh start\" if failed port 22 protocol ssh then restart check process httpd with pidfile /usr/local/apache2/logs/httpd.pid group www-data start program \"/usr/local/apache2/bin/apachectl start\" stop program \"/usr/local/apache2/bin/apachectl stop\" " test Monit.lns get conf = { "#comment" = "Configuration file for monit." } {} { "set" {"alert" = "root@localhost" } } { "include" = "/my/monit/conf" } {} { "check" { "process" = "sshd" } { "start" = "program \"/etc/init.d/ssh start\"" } { "if" = "failed port 22 protocol ssh then restart" } } {} { "check" { "process" = "httpd with pidfile /usr/local/apache2/logs/httpd.pid" } { "group" = "www-data" } { "start" = "program \"/usr/local/apache2/bin/apachectl start\"" } { "stop" = "program \"/usr/local/apache2/bin/apachectl stop\"" } } PK ! C��EA EA lenses/dist/tests/test_httpd.augnu �[��� module Test_httpd = (* Check that we can iterate on directive *) let _ = Httpd.directive+ (* Check that we can do a non iterative section *) let _ = Httpd.section Httpd.directive (* directives testing *) let d1 = "ServerRoot \"/etc/apache2\"\n" test Httpd.directive get d1 = { "directive" = "ServerRoot" { "arg" = "\"/etc/apache2\"" } } (* simple quotes *) let d1s = "ServerRoot '/etc/apache2'\n" test Httpd.directive get d1s = { "directive" = "ServerRoot" { "arg" = "'/etc/apache2'" } } let d2 = "ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/\n" test Httpd.directive get d2 = { "directive" = "ScriptAlias" { "arg" = "/cgi-bin/" } { "arg" = "/usr/lib/cgi-bin/" } } let d3 = "LockFile /var/lock/apache2/accept.lock\n" test Httpd.directive get d3 = { "directive" = "LockFile" { "arg" = "/var/lock/apache2/accept.lock" } } let c1 = " <IfModule> </IfModule> " let c1_put = " <IfModule foo bar> </IfModule> " test Httpd.lns get c1 = { }{ "IfModule" } test Httpd.lns put c1 after set "/IfModule/arg[1]" "foo"; set "/IfModule/arg[2]" "bar" = c1_put let c2 = " <IfModule !mpm_winnt.c> <IfModule !mpm_netware.c> LockFile /var/lock/apache2/accept.lock </IfModule> </IfModule> " test Httpd.lns get c2 = { } { "IfModule" { "arg" = "!mpm_winnt.c" } { "IfModule" { "arg" = "!mpm_netware.c" } { "directive" = "LockFile" { "arg" = "/var/lock/apache2/accept.lock" } } } } (* arguments must be the first child of the section *) test Httpd.lns put c2 after rm "/IfModule/arg"; insb "arg" "/IfModule/*[1]"; set "/IfModule/arg" "foo" = " <IfModule foo> <IfModule !mpm_netware.c> LockFile /var/lock/apache2/accept.lock </IfModule> </IfModule> " let c3 = " <IfModule mpm_event_module> StartServers 2 MaxClients 150 MinSpareThreads 25 MaxSpareThreads 75 ThreadLimit 64 ThreadsPerChild 25 MaxRequestsPerChild 0 </IfModule> " test Httpd.lns get c3 = { } { "IfModule" { "arg" = "mpm_event_module" } { "directive" = "StartServers" { "arg" = "2" } } { "directive" = "MaxClients" { "arg" = "150" } } { "directive" = "MinSpareThreads" { "arg" = "25" } } { "directive" = "MaxSpareThreads" { "arg" = "75" } } { "directive" = "ThreadLimit" { "arg" = "64" } } { "directive" = "ThreadsPerChild" { "arg" = "25" } } { "directive" = "MaxRequestsPerChild" { "arg" = "0" } } } let c4 = " <Files ~ \"^\.ht\"> Order allow,deny Deny from all Satisfy all </Files> " test Httpd.lns get c4 = { } { "Files" { "arg" = "~" } { "arg" = "\"^\.ht\"" } { "directive" = "Order" { "arg" = "allow,deny" } } { "directive" = "Deny" { "arg" = "from" } { "arg" = "all" } } { "directive" = "Satisfy" { "arg" = "all" } } } let c5 = "LogFormat \"%{User-agent}i\" agent\n" test Httpd.lns get c5 = { "directive" = "LogFormat" { "arg" = "\"%{User-agent}i\"" } { "arg" = "agent" } } let c7 = "LogFormat \"%v:%p %h %l %u %t \\\"%r\\\" %>s %O \\\"%{Referer}i\\\" \\\"%{User-Agent}i\\\"\" vhost_combined\n" test Httpd.lns get c7 = { "directive" = "LogFormat" { "arg" = "\"%v:%p %h %l %u %t \\\"%r\\\" %>s %O \\\"%{Referer}i\\\" \\\"%{User-Agent}i\\\"\"" } { "arg" = "vhost_combined" } } let c8 = "IndexIgnore .??* *~ *# RCS CVS *,v *,t \n" test Httpd.directive get c8 = { "directive" = "IndexIgnore" { "arg" = ".??*" } { "arg" = "*~" } { "arg" = "*#" } { "arg" = "RCS" } { "arg" = "CVS" } { "arg" = "*,v" } { "arg" = "*,t" } } (* FIXME: not yet supported: * The backslash "\" may be used as the last character on a line to indicate * that the directive continues onto the next line. There must be no other * characters or white space between the backslash and the end of the line. *) let multiline = "Options Indexes \ FollowSymLinks MultiViews " test Httpd.directive get multiline = { "directive" = "Options" { "arg" = "Indexes" } { "arg" = "FollowSymLinks" } { "arg" = "MultiViews" } } let conf2 = "<VirtualHost *:80> ServerAdmin webmaster@localhost DocumentRoot /var/www <Directory /> Options FollowSymLinks AllowOverride None </Directory> <Directory /var/www/> Options Indexes FollowSymLinks MultiViews AllowOverride None Order allow,deny allow from all </Directory> ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/ <Directory \"/usr/lib/cgi-bin\"> AllowOverride None Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch Order allow,deny Allow from all </Directory> ErrorLog /var/log/apache2/error.log # Possible values include: debug, info, notice, warn, error, crit, # alert, emerg. LogLevel warn CustomLog /var/log/apache2/access.log combined SSLRequireSSL Alias /doc/ \"/usr/share/doc/\" <Directory \"/usr/share/doc/\"> Options Indexes MultiViews FollowSymLinks AllowOverride None Order deny,allow Deny from all Allow from 127.0.0.0/255.0.0.0 ::1/128 </Directory> </VirtualHost> " test Httpd.lns get conf2 = { "VirtualHost" { "arg" = "*:80" } { "directive" = "ServerAdmin" { "arg" = "webmaster@localhost" } } { } { "directive" = "DocumentRoot" { "arg" = "/var/www" } } { "Directory" { "arg" = "/" } { "directive" = "Options" { "arg" = "FollowSymLinks" } } { "directive" = "AllowOverride" { "arg" = "None" } } } { "Directory" { "arg" = "/var/www/" } { "directive" = "Options" { "arg" = "Indexes" } { "arg" = "FollowSymLinks" } { "arg" = "MultiViews" } } { "directive" = "AllowOverride" { "arg" = "None" } } { "directive" = "Order" { "arg" = "allow,deny" } } { "directive" = "allow" { "arg" = "from" } { "arg" = "all" } } } { "directive" = "ScriptAlias" { "arg" = "/cgi-bin/" } { "arg" = "/usr/lib/cgi-bin/" } } { "Directory" { "arg" = "\"/usr/lib/cgi-bin\"" } { "directive" = "AllowOverride" { "arg" = "None" } } { "directive" = "Options" { "arg" = "+ExecCGI" } { "arg" = "-MultiViews" } { "arg" = "+SymLinksIfOwnerMatch" } } { "directive" = "Order" { "arg" = "allow,deny" } } { "directive" = "Allow" { "arg" = "from" } { "arg" = "all" } } } { "directive" = "ErrorLog" { "arg" = "/var/log/apache2/error.log" } } { } { "#comment" = "Possible values include: debug, info, notice, warn, error, crit," } { "#comment" = "alert, emerg." } { "directive" = "LogLevel" { "arg" = "warn" } } { } { "directive" = "CustomLog" { "arg" = "/var/log/apache2/access.log" } { "arg" = "combined" } } { } { "directive" = "SSLRequireSSL" } { } { "directive" = "Alias" { "arg" = "/doc/" } { "arg" = "\"/usr/share/doc/\"" } } { "Directory" { "arg" = "\"/usr/share/doc/\"" } { "directive" = "Options" { "arg" = "Indexes" } { "arg" = "MultiViews" } { "arg" = "FollowSymLinks" } } { "directive" = "AllowOverride" { "arg" = "None" } } { "directive" = "Order" { "arg" = "deny,allow" } } { "directive" = "Deny" { "arg" = "from" } { "arg" = "all" } } { "directive" = "Allow" { "arg" = "from" } { "arg" = "127.0.0.0/255.0.0.0" } { "arg" = "::1/128" } } } } (* Eol comment *) test Httpd.lns get "<a> # a comment MyDirective Foo </a>\n" = { "a" { "#comment" = "a comment" } { "directive" = "MyDirective" { "arg" = "Foo" } } } test Httpd.lns get "<a> # a comment </a>\n" = { "a" { "#comment" = "a comment" } } (* Test: Httpd.lns Newlines inside quoted value (GH issue #104) *) test Httpd.lns get "Single 'Foo\\ bar' Double \"Foo\\ bar\"\n" = { "directive" = "Single" { "arg" = "'Foo\\\nbar'" } } { "directive" = "Double" { "arg" = "\"Foo\\\nbar\"" } } (* Test: Httpd.lns Support >= in tags (GH #154) *) let versioncheck = " <IfVersion = 2.1> <IfModule !proxy_ajp_module> LoadModule proxy_ajp_module modules/mod_proxy_ajp.so </IfModule> </IfVersion> <IfVersion >= 2.4> <IfModule !proxy_ajp_module> LoadModule proxy_ajp_module modules/mod_proxy_ajp.so </IfModule> </IfVersion> " test Httpd.lns get versioncheck = { } { "IfVersion" { "arg" = "=" } { "arg" = "2.1" } { "IfModule" { "arg" = "!proxy_ajp_module" } { "directive" = "LoadModule" { "arg" = "proxy_ajp_module" } { "arg" = "modules/mod_proxy_ajp.so" } } } } { "IfVersion" { "arg" = ">=" } { "arg" = "2.4" } { "IfModule" { "arg" = "!proxy_ajp_module" } { "directive" = "LoadModule" { "arg" = "proxy_ajp_module" } { "arg" = "modules/mod_proxy_ajp.so" } } } } (* GH #220 *) let double_comment = "<IfDefine Foo> ## ## Comment ## </IfDefine>\n" test Httpd.lns get double_comment = { "IfDefine" { "arg" = "Foo" } { "#comment" = "#" } { "#comment" = "# Comment" } { "#comment" = "#" } } let single_comment = "<IfDefine Foo> # ## Comment ## </IfDefine>\n" test Httpd.lns get single_comment = { "IfDefine" { "arg" = "Foo" } { "#comment" = "# Comment" } { "#comment" = "#" } } let single_empty = "<IfDefine Foo> # </IfDefine>\n" test Httpd.lns get single_empty = { "IfDefine" { "arg" = "Foo" } } let eol_empty = "<IfDefine Foo> # </IfDefine>\n" test Httpd.lns get eol_empty = { "IfDefine" { "arg" = "Foo" } } (* Issue #140 *) test Httpd.lns get "<IfModule mod_ssl.c> # one comment # another comment </IfModule>\n" = { "IfModule" { "arg" = "mod_ssl.c" } { "#comment" = "one comment" } { "#comment" = "another comment" } } (* Issue #307: backslashes in regexes *) test Httpd.lns get "<VirtualHost *:80> RewriteRule ^/(.*) http\:\/\/example\.com\/$1 [L,R,NE] RewriteRule \.css\.gz$ - [T=text/css,E=no-gzip:1] </VirtualHost>\n" = { "VirtualHost" { "arg" = "*:80" } { "directive" = "RewriteRule" { "arg" = "^/(.*)" } { "arg" = "http\:\/\/example\.com\/$1" } { "arg" = "[L,R,NE]" } } { "directive" = "RewriteRule" { "arg" = "\.css\.gz$" } { "arg" = "-" } { "arg" = "[T=text/css,E=no-gzip:1]" } } } (* https://github.com/letsencrypt/letsencrypt/issues/1294#issuecomment-161805063 *) test Httpd.lns get "<IfModule> </ifModule>\n" = { "IfModule" } (* https://github.com/letsencrypt/letsencrypt/issues/1693 *) test Httpd.lns get "<IfModule mod_ssl.c> <VirtualHost *:443> ServerAdmin admin@example.com </VirtualHost> </IfModule>\n" = { "IfModule" { "arg" = "mod_ssl.c" } { "VirtualHost" { "arg" = "*:443" } { "directive" = "ServerAdmin" { "arg" = "admin@example.com" } } } } (* Double quotes inside braces in directive arguments https://github.com/letsencrypt/letsencrypt/issues/1766 *) test Httpd.lns get "SSLRequire %{SSL_CLIENT_S_DN_CN} in {\"foo@bar.com\", bar@foo.com}\n" = { "directive" = "SSLRequire" { "arg" = "%{SSL_CLIENT_S_DN_CN}" } { "arg" = "in" } { "wordlist" { "arg" = "\"foo@bar.com\"" } { "arg" = "bar@foo.com" } } } (* Issue #330: optional end double quote to directive arg, for messages *) test Httpd.lns get "SSLCipherSuite \"EECDH+ECDSA+AESGCM EECDH+aRS$\n" = { "directive" = "SSLCipherSuite" { "arg" = "\"EECDH+ECDSA+AESGCM EECDH+aRS$" } } test Httpd.lns get "ErrorDocument 404 \"The requested file favicon.ico was not found.\n" = { "directive" = "ErrorDocument" { "arg" = "404" } { "arg" = "\"The requested file favicon.ico was not found." } } (* Quotes inside a unquoted directive argument https://github.com/letsencrypt/letsencrypt/issues/1934 *) test Httpd.lns get "<VirtualHost *:80> WSGIDaemonProcess _graphite processes=5 threads=5 display-name='%{GROUP}' inactivity-timeout=120 user=_graphite group=_graphite </VirtualHost>\n" = { "VirtualHost" { "arg" = "*:80" } { "directive" = "WSGIDaemonProcess" { "arg" = "_graphite" } { "arg" = "processes=5" } { "arg" = "threads=5" } { "arg" = "display-name='%{GROUP}'" } { "arg" = "inactivity-timeout=120" } { "arg" = "user=_graphite" } { "arg" = "group=_graphite" } } } (* Issue #327: perl blocks *) test Httpd.lns get "<Perl> Apache::AuthDBI->setCacheTime(600); </Perl>\n" = { "Perl" = "\n Apache::AuthDBI->setCacheTime(600);\n" } (* Line continuations inside VirtualHost blocks *) test Httpd.lns get "<VirtualHost \\ 0.0.0.0:7080 \\ [00000:000:000:0000::2]:7080 \\ 0.0.0.0:7080 \\ 127.0.0.1:7080 \\ > </VirtualHost>\n" = { "VirtualHost" { "arg" = "0.0.0.0:7080" } { "arg" = "[00000:000:000:0000::2]:7080" } { "arg" = "0.0.0.0:7080" } { "arg" = "127.0.0.1:7080" } } (* Blank line continuations inside VirtualHost blocks *) test Httpd.lns get "<VirtualHost \\ 0.0.0.0:7080 \\ \\ 0.0.0.0:7080 \\ \\ > </VirtualHost>\n" = { "VirtualHost" { "arg" = "0.0.0.0:7080" } { "arg" = "0.0.0.0:7080" } } (* Non-continuation backslashes inside VirtualHost section headings *) test Httpd.lns get "<FilesMatch \.php$> ExpiresActive Off </FilesMatch>\n" = { "FilesMatch" { "arg" = "\.php$" } { "directive" = "ExpiresActive" { "arg" = "Off" } } } (* Escaped spaces in directive and section arguments *) test Httpd.lns get "RewriteCond %{THE_REQUEST} ^[A-Z]{3,9}\ /.+/trackback/?\ HTTP/ [NC]\n" = { "directive" = "RewriteCond" { "arg" = "%{THE_REQUEST}" } { "arg" = "^[A-Z]{3,9}\ /.+/trackback/?\ HTTP/" } { "arg" = "[NC]" } } test Httpd.lns get "<FilesMatch \ test\.php$></FilesMatch>\n" = { "FilesMatch" { "arg" = "\ test\.php$" } } (* Continuations in comments cause the comment to be continued without a new comment character *) test Httpd.lns get "#ServerRoot \\\n /var/www\n" = { "#comment" = "ServerRoot \\\n /var/www" } (* Empty comments can contain continuations, too. Issue #423 *) test Httpd.lns get "# \\\n\n" = { } test Httpd.comment get "# a\\\n\n" = { "#comment" = "a" } test Httpd.comment get "# \\\na\\\n\n" = { "#comment" = "a" } test Httpd.comment get "# \\\n\\\na \\\n\\\n\n" = { "#comment" = "a" } (* Comparison with empty string did not work. Issue #429 *) test Httpd.dir_args get ">\"a\"" = { "arg" = ">\"a\"" } test Httpd.dir_args get ">\"\"" = { "arg" = ">\"\"" } test Httpd.directive get "RewriteCond ${movedPageMap:$1} >\"a\"\n" = { "directive" = "RewriteCond" { "arg" = "${movedPageMap:$1}" } { "arg" = ">\"a\"" }} test Httpd.directive get "RewriteCond ${movedPageMap:$1} >\"\"\n" = { "directive" = "RewriteCond" { "arg" = "${movedPageMap:$1}" } { "arg" = ">\"\"" }} (* Quoted arguments may or may not have space spearating them. Issue #435 *) test Httpd.directive get "ProxyPassReverse \"/js\" \"http://127.0.0.1:8123/js\"\n" = { "directive" = "ProxyPassReverse" { "arg" = "\"/js\"" } { "arg" = "\"http://127.0.0.1:8123/js\"" } } test Httpd.directive get "ProxyPassReverse \"/js\"\"http://127.0.0.1:8123/js\"\n" = { "directive" = "ProxyPassReverse" { "arg" = "\"/js\"" } { "arg" = "\"http://127.0.0.1:8123/js\"" } } (* Don't get confused by quoted strings inside bare arguments. Issue #470 *) test Httpd.directive get "RequestHeader set X-Forwarded-Proto https expr=(%{HTTP:CF-Visitor}='{\"scheme\":\"https\"}')\n" = { "directive" = "RequestHeader" { "arg" = "set" } { "arg" = "X-Forwarded-Proto" } { "arg" = "https" } { "arg" = "expr=(%{HTTP:CF-Visitor}='{\"scheme\":\"https\"}')" } } (* Issue #577: we make the newline starting a section optional, including an empty comment at the end of the line. This used to miss empty comments with whitespace *) test Httpd.lns get "<If cond>#\n</If>\n" = { "If" { "arg" = "cond" } } test Httpd.lns get "<If cond># \n</If>\n" = { "If" { "arg" = "cond" } } test Httpd.lns get "<If cond>\n# \n</If>\n" = { "If" { "arg" = "cond" } } test Httpd.lns get "<If cond># text\n</If>\n" = { "If" { "arg" = "cond" } { "#comment" = "text" } } test Httpd.lns get "<If cond>\n\t# text\n</If>\n" = { "If" { "arg" = "cond" } { "#comment" = "text" } } PK ! ���,� � ' lenses/dist/tests/test_activemq_xml.augnu �[��� (* Module: Test_ActiveMQ_XML Provides unit tests and examples for the <ActiveMQ_XML> lens. *) module Test_ActiveMQ_XML = (* Variable: conf *) let conf = "<beans> <broker xmlns=\"http://activemq.apache.org/schema/core\" brokerName=\"localhost\" dataDirectory=\"${activemq.data}\"> <transportConnectors> <transportConnector name=\"openwire\" uri=\"tcp://0.0.0.0:61616\"/> </transportConnectors> </broker> </beans> " (* Variable: new_conf *) let new_conf = "<beans> <broker xmlns=\"http://activemq.apache.org/schema/core\" brokerName=\"localhost\" dataDirectory=\"${activemq.data}\"> <transportConnectors> <transportConnector name=\"openwire\" uri=\"tcp://127.0.0.1:61616\"/> </transportConnectors> </broker> </beans> " let lns = ActiveMQ_XML.lns (* Test: ActiveMQ_XML.lns * Get test against tree structure *) test lns get conf = { "beans" { "#text" = " " } { "broker" { "#attribute" { "xmlns" = "http://activemq.apache.org/schema/core" } { "brokerName" = "localhost" } { "dataDirectory" = "${activemq.data}" } } { "#text" = " " } { "transportConnectors" { "#text" = " " } { "transportConnector" = "#empty" { "#attribute" { "name" = "openwire" } { "uri" = "tcp://0.0.0.0:61616" } } } { "#text" = " " } } { "#text" = " " } } } (* Test: ActiveMQ_XML.lns * Put test changing transport connector to localhost *) test lns put conf after set "/beans/broker/transportConnectors/transportConnector/#attribute/uri" "tcp://127.0.0.1:61616" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! �®�� � lenses/dist/tests/test_sssd.augnu �[��� (* Module: Test_sssd Test cases for the sssd lense Author: Erinn Looney-Triggs About: License This file is licensed under the LGPLv2+, like the rest of Augeas. *) module Test_sssd = let conf = "[domain/example.com] #Comment here ; another comment cache_credentials = True krb5_store_password_if_offline = True ipa_server = _srv_, ipa.example.com [sssd] services = nss, pam config_file_version = 2 domains = example.com [nss] [pam] " test Sssd.lns get conf = { "target" = "domain/example.com" { "#comment" = "Comment here" } { "#comment" = "another comment" } { "cache_credentials" = "True" } { "krb5_store_password_if_offline" = "True" } { "ipa_server" = "_srv_, ipa.example.com" } } { "target" = "sssd" { "services" = "nss, pam" } { "config_file_version" = "2" } { } { "domains" = "example.com" } } { "target" = "nss" { } } { "target" = "pam" } PK ! �|, , ! lenses/dist/tests/test_carbon.augnu �[��� (* Module: Test_Carbon Provides unit tests and examples for the <Carbon> lens. *) module Test_Carbon = let carbon_conf = "[cache] # Configure carbon directories. # Specify the user to drop privileges to # If this is blank carbon runs as the user that invokes it # This user must have write access to the local data directory USER = MAX_CACHE_SIZE = inf # comment at EOL LINE_RECEIVER_INTERFACE=0.0.0.0 LINE_RECEIVER_PORT = 2003 ENABLE_UDP_LISTENER = False [relay] LINE_RECEIVER_INTERFACE = 0.0.0.0 LINE_RECEIVER_PORT = 2013 PICKLE_RECEIVER_INTERFACE = 0.0.0.0 PICKLE_RECEIVER_PORT = 2014 " test Carbon.lns get carbon_conf = { "cache" { "#comment" = "Configure carbon directories." } { } { "#comment" = "Specify the user to drop privileges to" } { "#comment" = "If this is blank carbon runs as the user that invokes it" } { "#comment" = "This user must have write access to the local data directory" } { "USER" } { } { "MAX_CACHE_SIZE" = "inf" { "#comment" = "comment at EOL" } } { "LINE_RECEIVER_INTERFACE" = "0.0.0.0" } { "LINE_RECEIVER_PORT" = "2003" } { "ENABLE_UDP_LISTENER" = "False" } { } } { "relay" { "LINE_RECEIVER_INTERFACE" = "0.0.0.0" } { "LINE_RECEIVER_PORT" = "2013" } { "PICKLE_RECEIVER_INTERFACE" = "0.0.0.0" } { "PICKLE_RECEIVER_PORT" = "2014" } } let relay_rules_conf = "# You must have exactly one section with 'default = true' # Note that all destinations listed must also exist in carbon.conf # in the DESTINATIONS setting in the [relay] section [default] default = true destinations = 127.0.0.1:2004:a, 127.0.0.1:2104:b " test Carbon.lns get relay_rules_conf = { "#comment" = "You must have exactly one section with 'default = true'" } { "#comment" = "Note that all destinations listed must also exist in carbon.conf" } { "#comment" = "in the DESTINATIONS setting in the [relay] section" } { "default" { "default" = "true" } { "destinations" = "127.0.0.1:2004:a, 127.0.0.1:2104:b" } } let storage_aggregation_conf = "# Aggregation methods for whisper files. Entries are scanned in order, # and first match wins. This file is scanned for changes every 60 seconds [max] pattern = \.max$ xFilesFactor = 0.1 aggregationMethod = max " test Carbon.lns get storage_aggregation_conf = { "#comment" = "Aggregation methods for whisper files. Entries are scanned in order," } { "#comment" = "and first match wins. This file is scanned for changes every 60 seconds" } { "max" { "pattern" = "\.max$" } { "xFilesFactor" = "0.1" } { "aggregationMethod" = "max" } } PK ! %ȴ�� � % lenses/dist/tests/test_postgresql.augnu �[��� (* Module: Test_Postgresql Provides unit tests and examples for the <Postgresql> lens. *) module Test_Postgresql = (* "=" separator is optional *) let missing_equal = "fsync on\n" test Postgresql.lns get missing_equal = { "fsync" = "on" } test Postgresql.lns put missing_equal after set "fsync" "off" = "fsync off\n" (* extra whitespace is valid anywhere *) let extra_whitespace = " fsync = on # trailing comment \n" test Postgresql.lns get extra_whitespace = { "fsync" = "on" { "#comment" = "trailing comment" } } test Postgresql.lns put extra_whitespace after set "fsync" "off" = " fsync = off # trailing comment \n" (* no whitespace at all is also valid *) let no_whitespace = "fsync=on\n" test Postgresql.lns get no_whitespace = { "fsync" = "on" } test Postgresql.lns put no_whitespace after set "fsync" "off" = "fsync=off\n" (* Some settings specify a memory or time value. [...] Valid memory units are kB (kilobytes), MB (megabytes), and GB (gigabytes); valid time units are ms (milliseconds), s (seconds), min (minutes), h (hours), and d (days). *) let numeric_suffix_quotes = "shared_buffers = 24MB archive_timeout = 2min deadlock_timeout = '1s' " test Postgresql.lns get numeric_suffix_quotes = { "shared_buffers" = "24MB" } { "archive_timeout" = "2min" } { "deadlock_timeout" = "1s" } test Postgresql.lns put numeric_suffix_quotes after set "deadlock_timeout" "2s"; set "max_stack_depth" "2MB"; set "shared_buffers" "48MB" = "shared_buffers = 48MB archive_timeout = 2min deadlock_timeout = '2s' max_stack_depth = '2MB' " (* floats and ints can be single quoted or not *) let float_quotes = "seq_page_cost = 2.0 random_page_cost = '4.0' vacuum_freeze_min_age = 50000000 vacuum_freeze_table_age = '150000000' wal_buffers = -1 " test Postgresql.lns get float_quotes = { "seq_page_cost" = "2.0" } { "random_page_cost" = "4.0" } { "vacuum_freeze_min_age" = "50000000" } { "vacuum_freeze_table_age" = "150000000" } { "wal_buffers" = "-1" } test Postgresql.lns put float_quotes after set "seq_page_cost" "5.0"; set "vacuum_cost_limit" "200"; set "bgwriter_lru_multiplier" "2.0"; set "log_temp_files" "-1"; set "wal_buffers" "1" = "seq_page_cost = 5.0 random_page_cost = '4.0' vacuum_freeze_min_age = 50000000 vacuum_freeze_table_age = '150000000' wal_buffers = 1 vacuum_cost_limit = '200' bgwriter_lru_multiplier = '2.0' log_temp_files = '-1' " (* Boolean values can be written as on, off, true, false, yes, no, 1, 0 (all case-insensitive) or any unambiguous prefix of these. *) let bool_quotes = "log_connections = yes transform_null_equals = OFF sql_inheritance = 'on' synchronize_seqscans = 1 standard_conforming_strings = fal " test Postgresql.lns get bool_quotes = { "log_connections" = "yes" } { "transform_null_equals" = "OFF" } { "sql_inheritance" = "on" } { "synchronize_seqscans" = "1" } { "standard_conforming_strings" = "fal" } test Postgresql.lns put bool_quotes after set "sql_inheritance" "off"; set "log_lock_waits" "off" = "log_connections = yes transform_null_equals = OFF sql_inheritance = 'off' synchronize_seqscans = 1 standard_conforming_strings = fal log_lock_waits = 'off' " (* Strings must be single-quoted, except if they have no special character *) let string_quotes = "listen_addresses = 'localhost' stats_temp_directory = pg_stat_tmp lc_messages = 'en_US.UTF-8' log_filename = log archive_command = 'tar \'quoted option\'' search_path = '\"$user\",public' password_encryption = scram-sha-256 " test Postgresql.lns get string_quotes = { "listen_addresses" = "localhost" } { "stats_temp_directory" = "pg_stat_tmp" } { "lc_messages" = "en_US.UTF-8" } { "log_filename" = "log" } { "archive_command" = "tar \'quoted option\'" } { "search_path" = "\"$user\",public" } { "password_encryption" = "scram-sha-256" } test Postgresql.lns put string_quotes after set "stats_temp_directory" "foo_bar"; set "log_filename" "postgresql-%Y-%m-%d_%H%M%S.log"; set "log_statement" "none" = "listen_addresses = 'localhost' stats_temp_directory = foo_bar lc_messages = 'en_US.UTF-8' log_filename = 'postgresql-%Y-%m-%d_%H%M%S.log' archive_command = 'tar \'quoted option\'' search_path = '\"$user\",public' password_encryption = scram-sha-256 log_statement = 'none' " (* external files can be included more than once *) let include_keyword = "Include 'foo.conf' # can appear several times Include 'bar.conf' " test Postgresql.lns get include_keyword = { "Include" = "foo.conf" } { "#comment" = "can appear several times" } { "Include" = "bar.conf" } (* Variable: conf A full configuration file *) let conf = "data_directory = '/var/lib/postgresql/8.4/main' # use data in another directory hba_file = '/etc/postgresql/8.4/main/pg_hba.conf' # host-based authentication file ident_file = '/etc/postgresql/8.4/main/pg_ident.conf' # ident configuration file # If external_pid_file is not explicitly set, no extra PID file is written. external_pid_file = '/var/run/postgresql/8.4-main.pid' # write an extra PID file listen_addresses = 'localhost' # what IP address(es) to listen on; port = 5432 # (change requires restart) max_connections = 100 # (change requires restart) superuser_reserved_connections = 3 # (change requires restart) unix_socket_directory = '/var/run/postgresql' # (change requires restart) unix_socket_group = '' # (change requires restart) unix_socket_permissions = 0777 # begin with 0 to use octal notation # (change requires restart) bonjour_name = '' # defaults to the computer name authentication_timeout = 1min # 1s-600s ssl = true # (change requires restart) ssl_ciphers = 'ALL:!ADH:!LOW:!EXP:!MD5:@STRENGTH' # allowed SSL ciphers ssl_renegotiation_limit = 512MB # amount of data between renegotiations password_encryption = on db_user_namespace = off search_path = '\"$user\",public' # schema names default_tablespace = '' # a tablespace name, '' uses the default temp_tablespaces = '' # a list of tablespace names, '' uses datestyle = 'iso, mdy' intervalstyle = 'postgres' timezone = unknown # actually, defaults to TZ environment " (* Test: Postgresql.lns *) test Postgresql.lns get conf = { "data_directory" = "/var/lib/postgresql/8.4/main" { "#comment" = "use data in another directory" } } { "hba_file" = "/etc/postgresql/8.4/main/pg_hba.conf" { "#comment" = "host-based authentication file" } } { "ident_file" = "/etc/postgresql/8.4/main/pg_ident.conf" { "#comment" = "ident configuration file" } } { } { "#comment" = "If external_pid_file is not explicitly set, no extra PID file is written." } { "external_pid_file" = "/var/run/postgresql/8.4-main.pid" { "#comment" = "write an extra PID file" } } { "listen_addresses" = "localhost" { "#comment" = "what IP address(es) to listen on;" } } { "port" = "5432" { "#comment" = "(change requires restart)" } } { "max_connections" = "100" { "#comment" = "(change requires restart)" } } { "superuser_reserved_connections" = "3" { "#comment" = "(change requires restart)" } } { "unix_socket_directory" = "/var/run/postgresql" { "#comment" = "(change requires restart)" } } { "unix_socket_group" = "" { "#comment" = "(change requires restart)" } } { "unix_socket_permissions" = "0777" { "#comment" = "begin with 0 to use octal notation" } } { "#comment" = "(change requires restart)" } { "bonjour_name" = "" { "#comment" = "defaults to the computer name" } } { } { "authentication_timeout" = "1min" { "#comment" = "1s-600s" } } { "ssl" = "true" { "#comment" = "(change requires restart)" } } { "ssl_ciphers" = "ALL:!ADH:!LOW:!EXP:!MD5:@STRENGTH" { "#comment" = "allowed SSL ciphers" } } { "ssl_renegotiation_limit" = "512MB" { "#comment" = "amount of data between renegotiations" } } { "password_encryption" = "on" } { "db_user_namespace" = "off" } { } { "search_path" = "\"$user\",public" { "#comment" = "schema names" } } { "default_tablespace" = "" { "#comment" = "a tablespace name, '' uses the default" } } { "temp_tablespaces" = "" { "#comment" = "a list of tablespace names, '' uses" } } { } { "datestyle" = "iso, mdy" } { "intervalstyle" = "postgres" } { "timezone" = "unknown" { "#comment" = "actually, defaults to TZ environment" } } PK ! �fAa�7 �7 " lenses/dist/tests/test_debctrl.augnu �[��� module Test_debctrl = let source = "Source: libtest-distmanifest-perl\n" let source_result = { "Source" = "libtest-distmanifest-perl" } test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get source = source_result test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get "Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>\n" = { "Maintainer" = "Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>" } let uploaders = "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n" . " gregor herrmann <gregoa@xxx.yy>\n" let uploaders_result = { "Uploaders" { "1" = "foo@bar"} { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" } { "3" = "gregor herrmann <gregoa@xxx.yy>" } } test Debctrl.uploaders get uploaders = uploaders_result (* test package dependencies *) test Debctrl.version_depends get "( >= 5.8.8-12 )" = { "version" { "relation" = ">=" } { "number" = "5.8.8-12" } } test Debctrl.arch_depends get "[ !hurd-i386]" = { "arch" { "prefix" = "!" } { "name" = "hurd-i386" } } test Debctrl.arch_depends get "[ hurd-i386]" = { "arch" { "prefix" = "" } { "name" = "hurd-i386" } } let p_depends_test = "perl ( >= 5.8.8-12 ) [ !hurd-i386]" test Debctrl.package_depends get p_depends_test = { "perl" { "version" { "relation" = ">=" } { "number" = "5.8.8-12" } } { "arch" { "prefix" = "!" } { "name" = "hurd-i386" } } } let dependency_test = "perl-modules (>= 5.10) | libmodule-build-perl" test Debctrl.dependency get dependency_test = { "or" { "perl-modules" { "version" { "relation" = ">=" } { "number" = "5.10" } } } } { "or" { "libmodule-build-perl" } } test (Debctrl.dependency_list "Build-Depends-Indep") get "Build-Depends-Indep: perl (>= 5.8.8-12) [ !hurd-i386], \n" . " perl-modules (>= 5.10) | libmodule-build-perl,\n" . " libcarp-assert-more-perl,\n" . " libconfig-tiny-perl\n" = { "Build-Depends-Indep" { "and" { "or" { "perl" { "version" { "relation" = ">=" } { "number" = "5.8.8-12" } } { "arch" { "prefix" = "!" } { "name" = "hurd-i386" } } } } } { "and" { "or" { "perl-modules" { "version" { "relation" = ">=" } { "number" = "5.10" } } } } { "or" { "libmodule-build-perl" } } } { "and" { "or" { "libcarp-assert-more-perl" } } } { "and" { "or" { "libconfig-tiny-perl" } } } } test (Debctrl.dependency_list "Depends") get "Depends: ${perl:Depends}, ${misc:Depends},\n" ." libparse-recdescent-perl (>= 1.90.0)\n" = { "Depends" { "and" { "or" { "${perl:Depends}" }} } { "and" { "or" { "${misc:Depends}" }} } { "and" { "or" { "libparse-recdescent-perl" { "version" { "relation" = ">=" } { "number" = "1.90.0" } } } } } } let description = "Description: describe and edit configuration data\n" ." Config::Model enables [...] must:\n" ." - if the configuration data\n" ." .\n" ." With the elements above, (...) on ReadLine.\n" test Debctrl.description get description = { "Description" { "summary" = "describe and edit configuration data" } { "text" = "Config::Model enables [...] must:" } { "text" = " - if the configuration data" } { "text" = "." } { "text" = "With the elements above, (...) on ReadLine."} } let simple_bin_pkg1 = "Package: libconfig-model-perl\n" . "Architecture: all\n" . "Description: dummy1\n" . " dummy text 1\n" let simple_bin_pkg2 = "Package: libconfig-model2-perl\n" . "Architecture: all\n" . "Description: dummy2\n" . " dummy text 2\n" test Debctrl.src_entries get source.uploaders = { "Source" = "libtest-distmanifest-perl" } { "Uploaders" { "1" = "foo@bar"} { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" } { "3" = "gregor herrmann <gregoa@xxx.yy>" } } test Debctrl.bin_entries get simple_bin_pkg1 = { "Package" = "libconfig-model-perl" } { "Architecture" = "all" } { "Description" { "summary" = "dummy1" } {"text" = "dummy text 1" } } let paragraph_simple = source . uploaders ."\n" . simple_bin_pkg1 . "\n" . simple_bin_pkg2 test Debctrl.lns get paragraph_simple = { "srcpkg" { "Source" = "libtest-distmanifest-perl" } { "Uploaders" { "1" = "foo@bar"} { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" } { "3" = "gregor herrmann <gregoa@xxx.yy>" } } } { "binpkg" { "Package" = "libconfig-model-perl" } { "Architecture" = "all" } { "Description" { "summary" = "dummy1" } { "text" = "dummy text 1" } } } { "binpkg" { "Package" = "libconfig-model2-perl" } { "Architecture" = "all" } { "Description" { "summary" = "dummy2" } { "text" = "dummy text 2" } } } (* PUT TESTS *) test Debctrl.src_entries put uploaders after set "/Uploaders/1" "foo@bar" = uploaders test Debctrl.src_entries put uploaders after set "/Uploaders/1" "bar@bar" = "Uploaders: bar@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n" . " gregor herrmann <gregoa@xxx.yy>\n" test Debctrl.src_entries put uploaders after set "/Uploaders/4" "baz@bar" = "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n" . " gregor herrmann <gregoa@xxx.yy>,\n" . " baz@bar\n" test Debctrl.lns put (source."\nPackage: test\nDescription: foobar\n") after set "/srcpkg/Uploaders/1" "foo@bar" ; set "/srcpkg/Uploaders/2" "Dominique Dumont <dominique.dumont@xx.yyy>" ; set "/srcpkg/Uploaders/3" "gregor herrmann <gregoa@xxx.yy>" ; set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/relation" ">=" ; set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/number" "5.8.8-12" ; set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/prefix" "!" ; set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/name" "hurd-i386" ; set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/relation" ">=" ; set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/number" "5.10" ; set "/srcpkg/Build-Depends-Indep/and[2]/or[2]/libmodule-build-perl" ""; set "/srcpkg/Build-Depends-Indep/and[3]/or/libcarp-assert-more-perl" "" ; set "/srcpkg/Build-Depends-Indep/and[4]/or/libconfig-tiny-perl" "" ; set "/binpkg[1]/Package" "libconfig-model-perl" ; (* must remove description because set cannot insert Archi before description *) rm "/binpkg[1]/Description" ; set "/binpkg/Architecture" "all" ; set "/binpkg[1]/Description/summary" "dummy1" ; set "/binpkg[1]/Description/text" "dummy text 1" ; set "/binpkg[2]/Package" "libconfig-model2-perl" ; set "/binpkg[2]/Architecture" "all" ; set "/binpkg[2]/Description/summary" "dummy2" ; set "/binpkg[2]/Description/text" "dummy text 2" = "Source: libtest-distmanifest-perl Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>, gregor herrmann <gregoa@xxx.yy> Build-Depends-Indep: perl ( >= 5.8.8-12 ) [ !hurd-i386 ], perl-modules ( >= 5.10 ) | libmodule-build-perl, libcarp-assert-more-perl, libconfig-tiny-perl Package: libconfig-model-perl Architecture: all Description: dummy1 dummy text 1 Package: libconfig-model2-perl Architecture: all Description: dummy2 dummy text 2 " (* Test Augeas' own control file *) let augeas_control = "Source: augeas Priority: optional Maintainer: Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com> Uploaders: Free Ekanayaka <freee@debian.org>, Micah Anderson <micah@debian.org> Build-Depends: debhelper (>= 5), autotools-dev, libreadline-dev, chrpath, naturaldocs (>= 1.51-1), texlive-latex-base Standards-Version: 3.9.2 Section: libs Homepage: http://augeas.net/ DM-Upload-Allowed: yes Package: augeas-tools Section: admin Architecture: any Depends: ${shlibs:Depends}, ${misc:Depends} Description: Augeas command line tools Augeas is a configuration editing tool. It parses configuration files in their native formats and transforms them into a tree. Configuration changes are made by manipulating this tree and saving it back into native config files. . This package provides command line tools based on libaugeas0: - augtool, a tool to manage configuration files. - augparse, a testing and debugging tool for augeas lenses. Package: libaugeas-dev Section: libdevel Architecture: any Depends: libaugeas0 (= ${binary:Version}), ${shlibs:Depends}, ${misc:Depends} Description: Development files for writing applications based on libaugeas0 Augeas is a configuration editing tool. It parses configuration files in their native formats and transforms them into a tree. Configuration changes are made by manipulating this tree and saving it back into native config files. . This package includes the development files to write programs using the Augeas API. " test DebCtrl.lns get augeas_control = { "srcpkg" { "Source" = "augeas" } { "Priority" = "optional" } { "Maintainer" = "Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com>" } { "Uploaders" { "1" = "Free Ekanayaka <freee@debian.org>" } { "2" = "Micah Anderson <micah@debian.org>" } } { "Build-Depends" { "and" { "or" { "debhelper" { "version" { "relation" = ">=" } { "number" = "5" } } } } } { "and" { "or" { "autotools-dev" } } } { "and" { "or" { "libreadline-dev" } } } { "and" { "or" { "chrpath" } } } { "and" { "or" { "naturaldocs" { "version" { "relation" = ">=" } { "number" = "1.51-1" } } } } } { "and" { "or" { "texlive-latex-base" } } } } { "Standards-Version" = "3.9.2" } { "Section" = "libs" } { "Homepage" = "http://augeas.net/" } { "DM-Upload-Allowed" = "yes" } } { "binpkg" { "Package" = "augeas-tools" } { "Section" = "admin" } { "Architecture" = "any" } { "Depends" { "and" { "or" { "${shlibs:Depends}" } } } { "and" { "or" { "${misc:Depends}" } } } } { "Description" { "summary" = "Augeas command line tools" } { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" } { "text" = "native formats and transforms them into a tree. Configuration changes are made" } { "text" = "by manipulating this tree and saving it back into native config files." } { "text" = "." } { "text" = "This package provides command line tools based on libaugeas0:" } { "text" = "- augtool, a tool to manage configuration files." } { "text" = "- augparse, a testing and debugging tool for augeas lenses." } } } { "binpkg" { "Package" = "libaugeas-dev" } { "Section" = "libdevel" } { "Architecture" = "any" } { "Depends" { "and" { "or" { "libaugeas0" { "version" { "relation" = "=" } { "number" = "${binary:Version}" } } } } } { "and" { "or" { "${shlibs:Depends}" } } } { "and" { "or" { "${misc:Depends}" } } } } { "Description" { "summary" = "Development files for writing applications based on libaugeas0" } { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" } { "text" = "native formats and transforms them into a tree. Configuration changes are made" } { "text" = "by manipulating this tree and saving it back into native config files." } { "text" = "." } { "text" = "This package includes the development files to write programs using the Augeas" } { "text" = "API." } } } (* Bug #267: Python module extensions, from Debian Python Policy, chapter 2 *) let python_control = "Source: graphite-web Maintainer: Will Pearson (Editure Key) <wpearson@editure.co.uk> Section: python Priority: optional Build-Depends: debhelper (>= 7), python-support (>= 0.8.4) Standards-Version: 3.7.2 XS-Python-Version: current Package: python-graphite-web Architecture: all Depends: ${python:Depends} XB-Python-Version: ${python:Versions} Provides: ${python:Provides} Description: Enterprise scalable realtime graphing " test Debctrl.lns get python_control = { "srcpkg" { "Source" = "graphite-web" } { "Maintainer" = "Will Pearson (Editure Key) <wpearson@editure.co.uk>" } { "Section" = "python" } { "Priority" = "optional" } { "Build-Depends" { "and" { "or" { "debhelper" { "version" { "relation" = ">=" } { "number" = "7" } } } } } { "and" { "or" { "python-support" { "version" { "relation" = ">=" } { "number" = "0.8.4" } } } } } } { "Standards-Version" = "3.7.2" } { "XS-Python-Version" = "current" } } { "binpkg" { "Package" = "python-graphite-web" } { "Architecture" = "all" } { "Depends" { "and" { "or" { "${python:Depends}" } } } } { "XB-Python-Version" = "${python:Versions}" } { "Provides" { "and" { "or" { "${python:Provides}" } } } } { "Description" { "summary" = "Enterprise scalable realtime graphing" } } } PK ! |<�"> > lenses/dist/tests/test_lvm.augnu �[��� (* Module: Test_LVM Provides unit tests and examples for the <LVM> lens. *) module Test_LVM = (* Variable: conf A full configuration file *) let conf = "# Generated by LVM2: date contents = \"Text Format Volume Group\" version = 1 description = \"Created *after* executing 'eek'\" creation_host = \"eek\" # Linux eek creation_time = 6666666666 # eeeek VG1 { id = \"uuid-uuid-uuid-uuid\" seqno = 2 status = [\"RESIZEABLE\", \"READ\", \"WRITE\"] extent_size = 8192 # 4 Megabytes max_lv = 0 max_pv = 0 process_priority = -18 physical_volumes { pv0 { id = \"uuid-uuid-uuid-uuid\" device = \"/dev/sda6\" # Hint only status = [\"ALLOCATABLE\"] pe_start = 123 pe_count = 123456 # many Gigabytes } } logical_volumes { LogicalEek { id = \"uuid-uuid-uuid-uuid\" status = [\"READ\", \"WRITE\", \"VISIBLE\"] segment_count = 1 segment1 { start_extent = 0 extent_count = 123456 # beaucoup Gigabytes type = \"striped\" stripe_count = 1 # linear stripes = [ \"pv0\", 0 ] } } } } " test LVM.int get "5" = { "int" = "5" } test LVM.str get "\"abc\"" = { "str" = "abc"} test LVM.lns get "\n" = {} test LVM.lns get "#foo\n" = { "#comment" = "foo"} test LVM.lns get "# Generated by LVM2: date contents = \"Text Format Volume Group\" version = 1 description = \"Created *after* executing 'eek'\" creation_host = \"eek\" # Linux eek creation_time = 6666666666 # eeeek\n" = { "#comment" = "Generated by LVM2: date" } {} { "contents" { "str" = "Text Format Volume Group" } } { "version" { "int" = "1" } } {} { "description" { "str" = "Created *after* executing 'eek'" } } {} { "creation_host" { "str" = "eek" } { "#comment" = "Linux eek" } } { "creation_time" { "int" = "6666666666" } { "#comment" = "eeeek" } } (* Test: LVM.lns Test the full <conf> *) test LVM.lns get conf = { "#comment" = "Generated by LVM2: date" } {} { "contents" { "str" = "Text Format Volume Group" } } { "version" { "int" = "1" } } {} { "description" { "str" = "Created *after* executing 'eek'" } } {} { "creation_host" { "str" = "eek" } { "#comment" = "Linux eek" } } { "creation_time" { "int" = "6666666666" } { "#comment" = "eeeek" } } {} { "VG1" { "dict" { "id" { "str" = "uuid-uuid-uuid-uuid" } } { "seqno" { "int" = "2" } } { "status" { "list" { "1" { "str" = "RESIZEABLE" } } { "2" { "str" = "READ" } } { "3" { "str" = "WRITE" } } } } { "extent_size" { "int" = "8192" } { "#comment" = "4 Megabytes" } } { "max_lv" { "int" = "0" } } { "max_pv" { "int" = "0" } } { "process_priority" { "int" = "-18" } } {} { "physical_volumes" { "dict" { "pv0" { "dict" { "id" { "str" = "uuid-uuid-uuid-uuid" } } { "device" { "str" = "/dev/sda6" } { "#comment" = "Hint only" } } {} { "status" { "list" { "1" { "str" = "ALLOCATABLE" } } } } { "pe_start" { "int" = "123" } } { "pe_count" { "int" = "123456" } { "#comment" = "many Gigabytes" } } } } } } {} { "logical_volumes" { "dict" { "LogicalEek" { "dict" { "id" { "str" = "uuid-uuid-uuid-uuid" } } { "status" { "list" { "1" { "str" = "READ" } } { "2" { "str" = "WRITE" } } { "3" { "str" = "VISIBLE" } } } } { "segment_count" { "int" = "1" } } {} { "segment1" { "dict" { "start_extent" { "int" = "0" } } { "extent_count" { "int" = "123456" } { "#comment" = "beaucoup Gigabytes" } } {} { "type" { "str" = "striped" } } { "stripe_count" { "int" = "1" } { "#comment" = "linear" } } {} { "stripes" { "list" { "1" { "str" = "pv0" } } { "2" { "int" = "0" } } } } } } } } } } } } (* Parse description from RHEL 6 *) let descr="\"Created *before* executing '/sbin/vgs --noheadings -o name --config 'log{command_names=0 prefix=\\\" \\\"}''\"" test LVM.str get descr = { "str" = "Created *before* executing '/sbin/vgs --noheadings -o name --config 'log{command_names=0 prefix=\\\" \\\"}''" } PK ! =�)� % lenses/dist/tests/test_login_defs.augnu �[��� (* Module: Test_login_defs Test cases for the login_defs lense Author: Erinn Looney-Triggs About: License This file is licensed under the LGPLv2+, like the rest of Augeas. *) module Test_login_defs = let record = "MAIL_DIR /var/spool/mail ENCRYPT_METHOD SHA512 UMASK 077 " test Login_defs.lns get record = { "MAIL_DIR" = "/var/spool/mail" } { "ENCRYPT_METHOD" = "SHA512" } { "UMASK" = "077" } let comment ="# *REQUIRED* " test Login_defs.lns get comment = {"#comment" = "*REQUIRED*"} PK ! � �6} } ' lenses/dist/tests/test_hosts_access.augnu �[��� module Test_Hosts_Access = let multi_daemon = "sshd, sendmail : 10.234.\n" test Hosts_Access.lns get multi_daemon = { "1" { "process" = "sshd" } { "process" = "sendmail" } { "client" = "10.234." } } let multi_daemon_spc = "sshd sendmail : 10.234.\n" test Hosts_Access.lns get multi_daemon_spc = { "1" { "process" = "sshd" } { "process" = "sendmail" } { "client" = "10.234." } } let multi_client = "sshd: 10.234. , 192.168.\n" test Hosts_Access.lns get multi_client = { "1" { "process" = "sshd" } { "client" = "10.234." } { "client" = "192.168." } } let multi_client_spc = "sshd: 10.234. 192.168.\n" test Hosts_Access.lns get multi_client_spc = { "1" { "process" = "sshd" } { "client" = "10.234." } { "client" = "192.168." } } let daemon_except = "ALL Except sshd : 10.234.\n" test Hosts_Access.lns get daemon_except = { "1" { "process" = "ALL" } { "except" { "process" = "sshd" } } { "client" = "10.234." } } let client_except = "sshd : ALL EXCEPT 192.168\n" test Hosts_Access.lns get client_except = { "1" { "process" = "sshd" } { "client" = "ALL" } { "except" { "client" = "192.168" } } } let daemon_host = "sshd@192.168.0.1: 10.234.\n" test Hosts_Access.lns get daemon_host = { "1" { "process" = "sshd" { "host" = "192.168.0.1" } } { "client" = "10.234." } } let user_client = "sshd: root@.example.tld\n" test Hosts_Access.lns get user_client = { "1" { "process" = "sshd" } { "client" = ".example.tld" { "user" = "root" } } } let shell_command = "sshd: 192.168. : /usr/bin/my_cmd -t -f some_arg\n" test Hosts_Access.lns get shell_command = { "1" { "process" = "sshd" } { "client" = "192.168." } { "shell_command" = "/usr/bin/my_cmd -t -f some_arg" } } let client_netgroup = "sshd: @hostgroup\n" test Hosts_Access.lns get client_netgroup = { "1" { "process" = "sshd" } { "client" = "@hostgroup" } } let client_netmask = "sshd: 192.168.0.0/255.255.0.0\n" test Hosts_Access.lns get client_netmask = { "1" { "process" = "sshd" } { "client" = "192.168.0.0" { "netmask" = "255.255.0.0" } } } let client_cidr_v4 = "sshd: 192.168.0.0/24\n" test Hosts_Access.lns get client_cidr_v4 = { "1" { "process" = "sshd" } { "client" = "192.168.0.0" { "netmask" = "24" } } } let client_cidr_v6 = "sshd: [fe80::%fxp0]/64\n" test Hosts_Access.lns get client_cidr_v6 = { "1" { "process" = "sshd" } { "client" = "[fe80::%fxp0]" { "netmask" = "64" } } } let client_file = "sshd: /etc/external_file\n" test Hosts_Access.lns get client_file = { "1" { "process" = "sshd" } { "file" = "/etc/external_file" } } let client_wildcard = "sshd: 192.168.?.*\n" test Hosts_Access.lns get client_wildcard = { "1" { "process" = "sshd" } { "client" = "192.168.?.*" } } let sample_hosts_allow = "# hosts.allow This file describes the names of the hosts which are # allowed to use the local INET services, as decided # by the '/usr/sbin/tcpd' server. in.telnetd: 192.168.1. sshd: 70.16., 207.228. ipop3d: ALL sendmail: ALL " test Hosts_Access.lns get sample_hosts_allow = { "#comment" = "hosts.allow This file describes the names of the hosts which are" } { "#comment" = "allowed to use the local INET services, as decided" } { "#comment" = "by the '/usr/sbin/tcpd' server." } { "1" { "process" = "in.telnetd" } { "client" = "192.168.1." } } { "2" { "process" = "sshd" } { "client" = "70.16." } { "client" = "207.228." } } { "3" { "process" = "ipop3d" } { "client" = "ALL" } } { "4" { "process" = "sendmail" } { "client" = "ALL" } } let sample_hosts_deny = "# # hosts.deny This file describes the names of the hosts which are # *not* allowed to use the local INET services, as decided # by the '/usr/sbin/tcpd' server. in.telnetd: all sshd: 61., 62., \ 64.179., 65. " test Hosts_Access.lns get sample_hosts_deny = { } { "#comment" = "hosts.deny This file describes the names of the hosts which are" } { "#comment" = "*not* allowed to use the local INET services, as decided" } { "#comment" = "by the '/usr/sbin/tcpd' server." } { "1" { "process" = "in.telnetd" } { "client" = "all" } } { } { "2" { "process" = "sshd" } { "client" = "61." } { "client" = "62." } { "client" = "64.179." } { "client" = "65." } } let ip_mask = "sshd: 61./255.255.255.255\n" test Hosts_Access.lns get ip_mask = { "1" { "process" = "sshd" } { "client" = "61." { "netmask" = "255.255.255.255" } } } (* Support options from hosts_options(5) *) test Hosts_Access.lns get "sshd: all: keepalive\n" = { "1" { "process" = "sshd" } { "client" = "all" } { "keepalive" } } test Hosts_Access.lns get "sshd: all: severity mail.info\n" = { "1" { "process" = "sshd" } { "client" = "all" } { "severity" = "mail.info" } } test Hosts_Access.lns get "sshd: all: severity mail.info : rfc931 5 : DENY\n" = { "1" { "process" = "sshd" } { "client" = "all" } { "severity" = "mail.info" } { "rfc931" = "5" } { "DENY" } } (* Ticket #255, from FreeBSD *) let host_options_cmds = "# You need to be clever with finger; do _not_ backfinger!! You can easily # start a \"finger war\". fingerd : ALL \ : spawn (echo Finger. | \ /usr/bin/mail -s \"tcpd\: %u@%h[%a] fingered me!\" root) & \ : deny # The rest of the daemons are protected. ALL : ALL : \ severity auth.info \ : twist /bin/echo \"You are not welcome to use %d from %h.\" " test Hosts_Access.lns get host_options_cmds = { "#comment" = "You need to be clever with finger; do _not_ backfinger!! You can easily" } { "#comment" = "start a \"finger war\"." } { "1" { "process" = "fingerd" } { "client" = "ALL" } { "spawn" = "(echo Finger. | \ /usr/bin/mail -s \"tcpd\\: %u@%h[%a] fingered me!\" root) &" } { "deny" } } { } { "#comment" = "The rest of the daemons are protected." } { "2" { "process" = "ALL" } { "client" = "ALL" } { "severity" = "auth.info" } { "twist" = "/bin/echo \"You are not welcome to use %d from %h.\"" } } PK ! �܄&� � # lenses/dist/tests/test_iproute2.augnu �[��� module Test_IPRoute2 = let conf = " # /etc/iproute2/rt_tables # # reserved values # 255 local 254 main 253 default 0 unspec # # local # #1 inr.ruhep 200 h3g0 201 adsl1 202 adsl2 203 adsl3 204 adsl4 205 wifi0 # # From rt_dsfield # 0x00 default 0x80 flash-override # From rt_protos # 254 gated/aggr 253 gated/bgp " test IPRoute2.lns get conf = { } { "#comment" = "/etc/iproute2/rt_tables" } { } { "#comment" = "reserved values" } { } { "255" = "local" } { "254" = "main" } { "253" = "default" } { "0" = "unspec" } { } { "#comment" = "local" } { } { "#comment" = "1 inr.ruhep" } { "200" = "h3g0" } { "201" = "adsl1" } { "202" = "adsl2" } { "203" = "adsl3" } { "204" = "adsl4" } { "205" = "wifi0" } { } { "#comment" = "From rt_dsfield" } { } { "0x00" = "default" } { "0x80" = "flash-override" } { } { "#comment" = "From rt_protos" } { } { "254" = "gated/aggr" } { "253" = "gated/bgp" } PK ! S�!_ _ lenses/dist/tests/test_kdump.augnu �[��� (* Module: Test_Kdump Provides unit tests and examples for the <Kdump> lens. *) module Test_Kdump = let conf = "# this is a comment #another commented line #comment after empty line # #comment after empty comment path /var/crash #comment after entry core_collector makedumpfile -c default poweroff raw /dev/sda5 ext3 /dev/sda3 net my.server.com:/export/tmp nfs my.server.com:/export/tmp net user@my.server.com ssh user@my.server.com link_delay 60 kdump_pre /var/crash/scripts/kdump-pre.sh kdump_post /var/crash/scripts/kdump-post.sh #extra_bins /usr/bin/lftp /a/b/c extra_bins /usr/bin/lftp /a/b/c # comment disk_timeout 30 extra_modules gfs2 extra modules more options babla labl kbak df=dfg options babla labl kbak df=dfg options babla labl kbak df=dfg # comment sshkey /root/.ssh/kdump_id_rsa force_rebuild 1 override_resettable 1 dracut_args --omit-drivers \"cfg80211 snd\" --add-drivers \"ext2 ext3\" fence_kdump_args -p 7410 -f auto fence_kdump_nodes 192.168.1.10 10.34.63.155 debug_mem_level 3 blacklist gfs2 " (* Test: Kdump.lns Check whole config file *) test Kdump.lns get conf = { "#comment" = "this is a comment" } { "#comment" = "another commented line" } { } { "#comment" = "comment after empty line" } { } { "#comment" = "comment after empty comment" } { "path" = "/var/crash" { "#comment" = "comment after entry" } } { "core_collector" = "makedumpfile -c" } { "default" = "poweroff" } { "raw" = "/dev/sda5" } { "ext3" = "/dev/sda3" } { "net" = "my.server.com:/export/tmp" } { "nfs" = "my.server.com:/export/tmp" } { "net" = "user@my.server.com" } { "ssh" = "user@my.server.com" } { "link_delay" = "60" } { "kdump_pre" = "/var/crash/scripts/kdump-pre.sh" } { "kdump_post" = "/var/crash/scripts/kdump-post.sh" } { "#comment" = "extra_bins /usr/bin/lftp /a/b/c" } { "extra_bins" { "1" = "/usr/bin/lftp" } { "2" = "/a/b/c" } { "#comment" = "comment" } } { "disk_timeout" = "30" } { "extra_modules" { "1" = "gfs2" } { "2" = "extra" } { "3" = "modules" } { "4" = "more" } } { "options" { "babla" { "labl" } { "kbak" } { "df" = "dfg" } } } { "options" { "babla" { "labl" } { "kbak" } { "df" = "dfg" } } } { "options" { "babla" { "labl" } { "kbak" } { "df" = "dfg" } } { "#comment" = "comment" } } { "sshkey" = "/root/.ssh/kdump_id_rsa" } { "force_rebuild" = "1" } { "override_resettable" = "1" } { "dracut_args" = "--omit-drivers \"cfg80211 snd\" --add-drivers \"ext2 ext3\"" } { "fence_kdump_args" = "-p 7410 -f auto" } { "fence_kdump_nodes" { "1" = "192.168.1.10" } { "2" = "10.34.63.155" } } { "debug_mem_level" = "3" } { "blacklist" { "1" = "gfs2" } } PK ! 2���\ \ ! lenses/dist/tests/test_shells.augnu �[��� (* Test for shells lens *) module Test_shells = let conf = "# this is a comment /bin/bash /bin/tcsh /opt/csw/bin/bash # CSWbash " test Shells.lns get conf = { "#comment" = "this is a comment" } {} { "1" = "/bin/bash" } { "2" = "/bin/tcsh" } { "3" = "/opt/csw/bin/bash" { "#comment" = "CSWbash" } } PK ! #�� lenses/dist/tests/test_xorg.augnu �[��� (* Tests for the Xorg module *) module Test_xorg = let conf = " # xorg.conf Section \"ServerLayout\" Identifier \"single head configuration\" Screen 0 \"Screen0\" 0 0 InputDevice \"Generic Keyboard\" \"CoreKeyboard\" EndSection Section \"InputDevice\" Identifier \"Generic Keyboard\" # that's a driver Driver \"kbd\" Option \"XkbOptions\" \"lv3:ralt_switch\" EndSection Section \"Device\" Identifier \"Configured Video Device\" Option \"MonitorLayout\" \"LVDS,VGA\" VideoRam 229376 Option \"NoAccel\" Option \"fbdev\" \"\" Screen 0 EndSection Section \"Screen\" Identifier \"Screen0\" Device \"Configured Video Device\" DefaultDepth 24 SubSection \"Display\" Viewport 0 0 Depth 24 Modes \"1280x1024\" \"1280x960\" \"1280x800\" EndSubSection EndSection Section \"Module\" SubSection \"extmod\" Option \"omit XFree86-DGA\" EndSubSection EndSection " test Xorg.lns get conf = { } { "#comment" = "xorg.conf" } { } { "ServerLayout" { "Identifier" = "single head configuration" } { "Screen" = "Screen0" { "num" = "0" } { "position" = "0 0" } } { "InputDevice" = "Generic Keyboard" { "option" = "CoreKeyboard" } } } { } { "InputDevice" { "Identifier" = "Generic Keyboard" } { "#comment" = "that's a driver" } { "Driver" = "kbd" } { "Option" = "XkbOptions" { "value" = "lv3:ralt_switch" } } } { } { "Device" { "Identifier" = "Configured Video Device" } { "Option" = "MonitorLayout" { "value" = "LVDS,VGA" } } { "VideoRam" = "229376" } { "Option" = "NoAccel" } { "Option" = "fbdev" { "value" = "" } } { "Screen" { "num" = "0" } } } { } { "Screen" { "Identifier" = "Screen0" } { "Device" = "Configured Video Device" } { "DefaultDepth" = "24" } { "Display" { "ViewPort" { "x" = "0" } { "y" = "0" } } { "Depth" = "24" } { "Modes" { "mode" = "1280x1024" } { "mode" = "1280x960" } { "mode" = "1280x800" } } } } { } { "Module" { "extmod" { "Option" = "omit XFree86-DGA" } } } PK ! �;Fݝ � # lenses/dist/tests/test_fail2ban.augnu �[��� module Test_fail2ban = let conf = "[DEFAULT] mta = ssmtp bantime = 432000 destemail = fail2ban@domain.com findtime = 3600 maxretry = 3 [sshd] enabled = true " test Fail2ban.lns get conf = { "DEFAULT" { "mta" = "ssmtp" } { "bantime" = "432000" } { "destemail" = "fail2ban@domain.com" } { "findtime" = "3600" } { "maxretry" = "3" } {} } { "sshd" { "enabled" = "true" } } PK ! D���i i & lenses/dist/tests/test_puppet_auth.augnu �[��� (* Module: Test_Puppet_Auth Provides unit tests and examples for the <Puppet_Auth> lens. *) module Test_Puppet_Auth = (* Variable: full *) let full = "path ~ ^/file_(metadata|content)/user_files/ # Set environments environment production, development environment foo method find, search auth yes method save allow /^(.+\.)?example.com$/ allow_ip 192.168.100.0/24 # Added in Puppet 3.0.0 # This overrides the previous auth authenticated any " (* Test: Puppet_Auth.lns *) test Puppet_Auth.lns get full = { "path" = "^/file_(metadata|content)/user_files/" { "operator" = "~" } { "#comment" = "Set environments" } { "environment" { "1" = "production" } { "2" = "development" } } { "environment" { "3" = "foo" } } { "method" { "1" = "find" } { "2" = "search" } } { "auth" = "yes" } { "method" { "3" = "save" } } { "allow" { "1" = "/^(.+\.)?example.com$/" } } { "allow_ip" { "1" = "192.168.100.0/24" } { "#comment" = "Added in Puppet 3.0.0" } } { "#comment" = "This overrides the previous auth" } { "auth" = "any" } } PK ! ]�dP^ ^ ( lenses/dist/tests/test_authselectpam.augnu �[��� module Test_AuthselectPam = let example ="auth required pam_env.so auth required pam_faildelay.so delay=2000000 auth required pam_faillock.so preauth silent {include if \"with-faillock\"} auth required pam_u2f.so cue {if not \"without-pam-u2f-nouserok\":nouserok} {include if \"with-pam-u2f-2fa\"} " test AuthselectPam.lns get example = { "1" { "type" = "auth" } { "control" = "required" } { "module" = "pam_env.so" } } { "2" { "type" = "auth" } { "control" = "required" } { "module" = "pam_faildelay.so" } { "argument" = "delay=2000000" } } { "3" { "type" = "auth" } { "control" = "required" } { "module" = "pam_faillock.so" } { "argument" = "preauth" } { "argument" = "silent" } { "authselect_conditional" = "include if" { "feature" = "with-faillock" } } } { "4" { "type" = "auth" } { "control" = "required" } { "module" = "pam_u2f.so" } { "argument" = "cue" } { "authselect_conditional" = "if" { "not" } { "feature" = "without-pam-u2f-nouserok" } { "on_true" = "nouserok" } } { "authselect_conditional" = "include if" { "feature" = "with-pam-u2f-2fa" } } } PK ! /��� ! lenses/dist/tests/test_xinetd.augnu �[��� module Test_xinetd = let eol_ws = "defaults \t \n{\n enabled = cvs echo \n}\n\n" let cvs = "# default: off # description: The CVS service can record the history of your source # files. CVS stores all the versions of a file in a single # file in a clever way that only stores the differences # between versions. service cvspserver { disable = yes port = 2401 socket_type = stream protocol = tcp wait = no user = root passenv = PATH server = /usr/bin/cvs env -= HOME=/var/cvs server_args = -f --allow-root=/var/cvs pserver # bind = 127.0.0.1 log_on_failure += HOST FLAGS = IPv6 IPv4 } " let lst_add = "service svc_add { log_on_failure += HOST } " test Xinetd.lns get eol_ws = { "defaults" { "enabled" { "value" = "cvs" } { "value" = "echo" } } } {} test Xinetd.lns put eol_ws after rm "/defaults/enabled/value[last()]" = "defaults \t \n{\n enabled = cvs \n}\n\n" test Xinetd.lns get cvs = { "#comment" = "default: off" } { "#comment" = "description: The CVS service can record the history of your source" } { "#comment" = "files. CVS stores all the versions of a file in a single" } { "#comment" = "file in a clever way that only stores the differences" } { "#comment" = "between versions." } { "service" = "cvspserver" { "disable" = "yes" } { "port" = "2401" } { "socket_type" = "stream" } { "protocol" = "tcp" } { "wait" = "no" } { "user" = "root" } { "passenv" { "value" = "PATH" } } { "server" = "/usr/bin/cvs" } { "env" { "del" } { "value" = "HOME=/var/cvs" } } { "server_args" { "value" = "-f" } { "value" = "--allow-root=/var/cvs" } { "value" = "pserver" } } { "#comment" = "bind = 127.0.0.1" } { "log_on_failure" { "add" } { "value" = "HOST" } } { "FLAGS" { "value" = "IPv6" } { "value" = "IPv4" } } } (* Switch the '+=' to a simple '=' *) test Xinetd.lns put lst_add after rm "/service/log_on_failure/add" = "service svc_add\n{\n log_on_failure = HOST\n}\n" test Xinetd.lns put "" after set "/service" "svc"; set "/service/instances" "UNLIMITED" = "service svc { \tinstances = UNLIMITED } " (* Support missing values in lists *) test Xinetd.lns get "service check_mk\n{\n log_on_success =\n server_args=\n}\n" = { "service" = "check_mk" { "log_on_success" } { "server_args" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! 4P� � � % lenses/dist/tests/test_aptsources.augnu �[��� module Test_aptsources = let simple_source = "deb ftp://mirror.bytemark.co.uk/debian/ etch main\n" let multi_components = "deb http://security.debian.org/ etch/updates main contrib non-free\n" test Aptsources.lns get simple_source = { "1" { "type" = "deb" } { "uri" = "ftp://mirror.bytemark.co.uk/debian/" } { "distribution" = "etch" } { "component" = "main" } } test Aptsources.lns get multi_components = { "1" { "type" = "deb" } { "uri" = "http://security.debian.org/" } { "distribution" = "etch/updates" } { "component" = "main" } { "component" = "contrib" } { "component" = "non-free" } } let multi_line = "#deb http://www.backports.org/debian/ sarge postfix # deb http://people.debian.org/~adconrad sarge subversion deb ftp://mirror.bytemark.co.uk/debian/ etch main non-free contrib deb http://security.debian.org/ etch/updates main contrib non-free # security line deb-src http://mirror.bytemark.co.uk/debian etch main contrib non-free\n" test Aptsources.lns get multi_line = { "#comment" = "deb http://www.backports.org/debian/ sarge postfix" } { "#comment" = "deb http://people.debian.org/~adconrad sarge subversion" } {} { "1" { "type" = "deb" } { "uri" = "ftp://mirror.bytemark.co.uk/debian/" } { "distribution" = "etch" } { "component" = "main" } { "component" = "non-free" } { "component" = "contrib" } } { "2" { "type" = "deb" } { "uri" = "http://security.debian.org/" } { "distribution" = "etch/updates" } { "component" = "main" } { "component" = "contrib" } { "component" = "non-free" } } { "3" { "type" = "deb-src" } { "uri" = "http://mirror.bytemark.co.uk/debian" } { "distribution" = "etch" } { "component" = "main" } { "component" = "contrib" } { "component" = "non-free" } } let trailing_comment = "deb ftp://server/debian/ etch main # comment\n" (* Should be a noop; makes sure that we preserve the trailing comment *) test Aptsources.lns put trailing_comment after set "/1/type" "deb" = trailing_comment (* Support options, GH #295 *) test Aptsources.lns get "deb [arch=amd64] tor+http://ftp.us.debian.org/debian sid main contrib deb [ arch+=amd64 trusted-=true ] http://ftp.us.debian.org/debian sid main contrib\n" = { "1" { "type" = "deb" } { "options" { "arch" = "amd64" } } { "uri" = "tor+http://ftp.us.debian.org/debian" } { "distribution" = "sid" } { "component" = "main" } { "component" = "contrib" } } { "2" { "type" = "deb" } { "options" { "arch" = "amd64" { "operation" = "+" } } { "trusted" = "true" { "operation" = "-" } } } { "uri" = "http://ftp.us.debian.org/debian" } { "distribution" = "sid" } { "component" = "main" } { "component" = "contrib" } } (* cdrom entries may have spaces, GH #296 *) test Aptsources.lns get "deb cdrom:[Debian GNU/Linux 7.5.0 _Wheezy_ - Official amd64 CD Binary-1 20140426-13:37]/ wheezy main\n" = { "1" { "type" = "deb" } { "uri" = "cdrom:[Debian GNU/Linux 7.5.0 _Wheezy_ - Official amd64 CD Binary-1 20140426-13:37]/" } { "distribution" = "wheezy" } { "component" = "main" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! t��p� � ! lenses/dist/tests/test_vsftpd.augnu �[��� module Test_vsftpd = test Vsftpd.lns get "listen=YES\nmdtm_write=false\n" = { "listen" = "YES" } { "mdtm_write" = "false" } test Vsftpd.lns get "listen=on\n" = * test Vsftpd.lns get "local_umask=0777\n" = { "local_umask" = "0777" } test Vsftpd.lns get "listen_port=ftp\n" = * test Vsftpd.lns get "ftp_username=ftp_user\n" = { "ftp_username" = "ftp_user" } (* There must not be spaces around the '=' *) test Vsftpd.lns get "anon_root = /var/lib/vsftpd/anon" = * let conf = "# Example config file /etc/vsftpd/vsftpd.conf # # The default compiled in settings are fairly paranoid. This sample file # loosens things up a bit, to make the ftp daemon more usable. # Please see vsftpd.conf.5 for all compiled in defaults. # # Allow anonymous FTP? (Beware - allowed by default if you comment this out). anonymous_enable=YES # # Default umask for local users is 077. You may wish to change this to 022, # if your users expect that (022 is used by most other ftpd's) local_umask=022 # # You may specify an explicit list of local users to chroot() to their home # directory. If chroot_local_user is YES, then this list becomes a list of # users to NOT chroot(). chroot_list_enable=YES # (default follows) chroot_list_file=/etc/vsftpd/chroot_list # pam_service_name=vsftpd userlist_enable=YES tcp_wrappers=YES allow_writeable_chroot=YES " test Vsftpd.lns get conf = { "#comment" = "Example config file /etc/vsftpd/vsftpd.conf" } {} { "#comment" = "The default compiled in settings are fairly paranoid. This sample file" } { "#comment" = "loosens things up a bit, to make the ftp daemon more usable." } { "#comment" = "Please see vsftpd.conf.5 for all compiled in defaults." } {} { "#comment" = "Allow anonymous FTP? (Beware - allowed by default if you comment this out)." } { "anonymous_enable" = "YES" } {} { "#comment" = "Default umask for local users is 077. You may wish to change this to 022," } { "#comment" = "if your users expect that (022 is used by most other ftpd's)" } { "local_umask" = "022" } {} { "#comment" = "You may specify an explicit list of local users to chroot() to their home" } { "#comment" = "directory. If chroot_local_user is YES, then this list becomes a list of" } { "#comment" = "users to NOT chroot()." } { "chroot_list_enable" = "YES" } { "#comment" = "(default follows)" } { "chroot_list_file" = "/etc/vsftpd/chroot_list" } {} {} { "pam_service_name" = "vsftpd" } { "userlist_enable" = "YES" } { "tcp_wrappers" = "YES" } { "allow_writeable_chroot" = "YES" } {} PK ! lr�� " lenses/dist/tests/test_aptconf.augnu �[��� module Test_aptconf = (* Test multiline C-style comments *) let comment_multiline = "/* This is a long /* multiline comment */ " test AptConf.comment get comment_multiline = { "#mcomment" { "1" = "This is a long" } { "2" = "/* multiline" } { "3" = "comment" } } (* Test empty multiline C-style comments *) let comment_multiline_empty = "/* */\n" test AptConf.empty get comment_multiline_empty = { } (* Test a simple entry *) let simple_entry = "APT::Clean-Installed \"true\";\n" test AptConf.entry get simple_entry = { "APT" { "Clean-Installed" = "true" } } (* Test simple recursivity *) let simple_recursion = "APT { Clean-Installed \"true\"; };\n" test AptConf.entry get simple_recursion = { "APT" { "Clean-Installed" = "true" } } (* Test simple recursivity with several entries *) let simple_recursion_multi = "APT { Clean-Installed \"true\"; Get::Assume-Yes \"true\"; }\n" test AptConf.entry get simple_recursion_multi = { "APT" { "Clean-Installed" = "true" } { "Get" { "Assume-Yes" = "true" } } } (* Test multiple recursivity *) let multiple_recursion = "APT { Get { Assume-Yes \"true\"; } };\n" test AptConf.entry get multiple_recursion = { "APT" { "Get" { "Assume-Yes" = "true" } } } (* Test simple list *) let simple_list = "DPKG::options { \"--force-confold\"; }\n" test AptConf.entry get simple_list = { "DPKG" { "options" { "@elem" = "--force-confold" } } } (* Test list elements with spaces *) let list_spaces = "Unattended-Upgrade::Allowed-Origins { \"Ubuntu lucid-security\"; };\n" test AptConf.entry get list_spaces = { "Unattended-Upgrade" { "Allowed-Origins" { "@elem" = "Ubuntu lucid-security" } } } (* Test recursive list *) let recursive_list = "DPKG { options { \"--force-confold\"; \"--nocheck\"; } };\n" test AptConf.entry get recursive_list = { "DPKG" { "options" { "@elem" = "--force-confold" } { "@elem" = "--nocheck" } } } (* Test empty group *) let empty_group = "APT\n{\n};\n" test AptConf.entry get empty_group = { "APT" } (* Test #include *) let include = " #include /path/to/file\n" test AptConf.include get include = { "#include" = "/path/to/file" } (* Test #clear *) let clear = "#clear Dpkg::options Apt::Get::Assume-Yes\n" test AptConf.clear get clear = { "#clear" { "name" = "Dpkg::options" } { "name" = "Apt::Get::Assume-Yes" } } (* Test put simple value *) test AptConf.entry put "APT::Clean-Installed \"true\";\n" after set "/APT/Clean-Installed" "false" = "APT {\nClean-Installed \"false\";\n};\n" (* Test rm everything *) test AptConf.entry put "APT { Clean-Installed \"true\"; }\n" after rm "/APT" = "" (* Test rm on recursive value *) test AptConf.entry put "APT { Clean-Installed \"true\"; }\n" after rm "/APT/Clean-Installed" = "APT { }\n" (* Test put recursive value *) test AptConf.entry put "APT { Clean-Installed \"true\"; }\n" after set "/APT/Clean-Installed" "false" = "APT { Clean-Installed \"false\"; }\n" (* Test multiple lens *) let multiple_entries = "APT { Clean-Installed \"true\"; }\n APT::Clean-Installed \"true\";\n" test AptConf.lns get multiple_entries = { "APT" { "Clean-Installed" = "true" } } {} { "APT" { "Clean-Installed" = "true" } } (* Test with full lens *) test AptConf.lns put "APT { Clean-Installed \"true\"; }\n" after set "/APT/Clean-Installed" "false" = "APT { Clean-Installed \"false\"; }\n" (* Test single commented entry *) let commented_entry = "Unattended-Upgrade::Allowed-Origins { \"Ubuntu lucid-security\"; // \"Ubuntu lucid-updates\"; };\n" test AptConf.lns get commented_entry = { "Unattended-Upgrade" { "Allowed-Origins" { "@elem" = "Ubuntu lucid-security" } { "#comment" = "\"Ubuntu lucid-updates\";" } } } (* Test multiple commented entries *) let commented_entries = "// List of packages to not update Unattended-Upgrade::Package-Blacklist { // \"vim\"; // \"libc6\"; // \"libc6-dev\"; // \"libc6-i686\" }; " test AptConf.lns get commented_entries = { "#comment" = "List of packages to not update" } { "Unattended-Upgrade" { "Package-Blacklist" { "#comment" = "\"vim\";" } { "#comment" = "\"libc6\";" } { "#comment" = "\"libc6-dev\";" } { "#comment" = "\"libc6-i686\"" } } } (* Test complex elem *) let complex_elem = "DPkg::Post-Invoke {\"if [ -d /var/lib/update-notifier ]; then touch /var/lib/update-notifier/dpkg-run-stamp; fi; if [ -e /var/lib/update-notifier/updates-available ]; then echo > /var/lib/update-notifier/updates-available; fi \"};\n" test AptConf.lns get complex_elem = { "DPkg" { "Post-Invoke" { "@elem" = "if [ -d /var/lib/update-notifier ]; then touch /var/lib/update-notifier/dpkg-run-stamp; fi; if [ -e /var/lib/update-notifier/updates-available ]; then echo > /var/lib/update-notifier/updates-available; fi " } } } (* Accept hash comments *) test AptConf.lns get "# a comment\n" = { "#comment" = "a comment" } (* Accept empty hash comments *) test AptConf.lns get "# \n" = { } PK ! ��2 2 lenses/dist/tests/test_sshd.augnu �[��� (* Module: Test_sshd *) module Test_sshd = let accept_env = "Protocol 2 AcceptEnv LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT AcceptEnv LC_IDENTIFICATION LC_ALL\n" test Sshd.lns get accept_env = { "Protocol" = "2" } { "AcceptEnv" { "1" = "LC_PAPER" } { "2" = "LC_NAME" } { "3" = "LC_ADDRESS" } { "4" = "LC_TELEPHONE" } { "5" = "LC_MEASUREMENT" } } { "AcceptEnv" { "6" = "LC_IDENTIFICATION" } { "7" = "LC_ALL" } } test Sshd.lns get "HostKey /etc/ssh/ssh_host_rsa_key HostKey /etc/ssh/ssh_host_dsa_key\n" = { "HostKey" = "/etc/ssh/ssh_host_rsa_key" } { "HostKey" = "/etc/ssh/ssh_host_dsa_key" } test Sshd.lns put accept_env after rm "AcceptEnv"; rm "AcceptEnv"; set "Protocol" "1.5"; set "X11Forwarding" "yes" = "Protocol 1.5\nX11Forwarding yes\n" test Sshd.lns get "AuthorizedKeysFile %h/.ssh/authorized_keys\n" = { "AuthorizedKeysFile" = "%h/.ssh/authorized_keys" } test Sshd.lns get "Subsystem sftp /usr/lib/openssh/sftp-server\n" = { "Subsystem" { "sftp" = "/usr/lib/openssh/sftp-server" } } test Sshd.lns get "Subsystem sftp-test /usr/lib/openssh/sftp-server\n" = { "Subsystem" { "sftp-test" = "/usr/lib/openssh/sftp-server" } } let match_blocks = "X11Forwarding yes Match User sarko Group pres.* Banner /etc/bienvenue.txt X11Forwarding no Match User bush Group pres.* Host white.house.* Banner /etc/welcome.txt Match Group \"Domain users\" X11Forwarding yes " test Sshd.lns get match_blocks = { "X11Forwarding" = "yes"} { "Match" { "Condition" { "User" = "sarko" } { "Group" = "pres.*" } } { "Settings" { "Banner" = "/etc/bienvenue.txt" } { "X11Forwarding" = "no" } } } { "Match" { "Condition" { "User" = "bush" } { "Group" = "pres.*" } { "Host" = "white.house.*" } } { "Settings" { "Banner" = "/etc/welcome.txt" } } } { "Match" { "Condition" { "Group" = "Domain users" } } { "Settings" { "X11Forwarding" = "yes" } } } test Sshd.lns put match_blocks after insb "Subsystem" "/Match[1]"; set "/Subsystem/sftp" "/usr/libexec/openssh/sftp-server" = "X11Forwarding yes Subsystem sftp /usr/libexec/openssh/sftp-server Match User sarko Group pres.* Banner /etc/bienvenue.txt X11Forwarding no Match User bush Group pres.* Host white.house.* Banner /etc/welcome.txt Match Group \"Domain users\" X11Forwarding yes\n" (* Test: Sshd.lns Indent when adding to a Match group *) test Sshd.lns put match_blocks after set "Match[1]/Settings/PermitRootLogin" "yes"; set "Match[1]/Settings/#comment" "a comment" = "X11Forwarding yes Match User sarko Group pres.* Banner /etc/bienvenue.txt X11Forwarding no PermitRootLogin yes # a comment Match User bush Group pres.* Host white.house.* Banner /etc/welcome.txt Match Group \"Domain users\" X11Forwarding yes\n" (* Test: Sshd.lns Parse Ciphers, KexAlgorithms, HostKeyAlgorithms as lists (GH issue #69) *) test Sshd.lns get "Ciphers aes256-gcm@openssh.com,aes128-gcm@openssh.com,aes256-ctr,aes128-ctr KexAlgorithms diffie-hellman-group-exchange-sha256,diffie-hellman-group14-sha1,diffie-hellman-group-exchange-sha1 HostKeyAlgorithms ssh-ed25519-cert-v01@openssh.com,ssh-rsa-cert-v01@openssh.com,ssh-ed25519,ssh-rsa\n" = { "Ciphers" { "1" = "aes256-gcm@openssh.com" } { "2" = "aes128-gcm@openssh.com" } { "3" = "aes256-ctr" } { "4" = "aes128-ctr" } } { "KexAlgorithms" { "1" = "diffie-hellman-group-exchange-sha256" } { "2" = "diffie-hellman-group14-sha1" } { "3" = "diffie-hellman-group-exchange-sha1" } } { "HostKeyAlgorithms" { "1" = "ssh-ed25519-cert-v01@openssh.com" } { "2" = "ssh-rsa-cert-v01@openssh.com" } { "3" = "ssh-ed25519" } { "4" = "ssh-rsa" } } (* Test: Sshd.lns Keys are case-insensitive *) test Sshd.lns get "ciPheRs aes256-gcm@openssh.com,aes128-ctr maTcH User foo x11forwarding no\n" = { "ciPheRs" { "1" = "aes256-gcm@openssh.com" } { "2" = "aes128-ctr" } } { "maTcH" { "Condition" { "User" = "foo" } } { "Settings" { "x11forwarding" = "no" } } } (* Test: Sshd.lns Allow AllowGroups in Match groups (GH issue #75) *) test Sshd.lns get "Match User foo AllowGroups users\n" = { "Match" { "Condition" { "User" = "foo" } } { "Settings" { "AllowGroups" { "1" = "users" } } } } (* Test: Sshd.lns Recognize quoted group names with spaces in AllowGroups and similar (Issue #477) *) test Sshd.lns get "Match User foo AllowGroups math-domain-users \"access admins\"\n" = { "Match" { "Condition" { "User" = "foo" } } { "Settings" { "AllowGroups" { "1" = "math-domain-users" } { "2" = "access admins" } } } } test Sshd.lns put "Match User foo\nAllowGroups users\n" after set "/Match/Settings/AllowGroups/1" "all people" = "Match User foo\nAllowGroups \"all people\"\n" test Sshd.lns put "Match User foo\nAllowGroups users\n" after set "/Match/Settings/AllowGroups/01" "all people" = "Match User foo\nAllowGroups users \"all people\"\n" test Sshd.lns put "Match User foo\nAllowGroups users\n" after set "/Match/Settings/AllowGroups/01" "people" = "Match User foo\nAllowGroups users people\n" (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��FӚ � lenses/dist/tests/test_koji.augnu �[��� (* Module: Test_Koji Provides unit tests and examples for the <Koji> lens. *) module Test_koji = (* Variable: conf A full koji.conf *) let conf = "[koji] ;configuration for koji cli tool ;url of XMLRPC server server = http://localhost/kojihub ;url of web interface weburl = http://localhost/koji ;url of package download site pkgurl = http://localhost/packages ;path to the koji top directory topdir = /mnt/koji ;configuration for SSL athentication ;client certificate cert = /etc/pki/koji/kojiadm.pem ;certificate of the CA that issued the client certificate ca = /etc/pki/koji/koji_ca_cert.crt ;certificate of the CA that issued the HTTP server certificate serverca = /etc/pki/koji/koji_ca_cert.crt " test Koji.lns get conf = { "section" = "koji" { } { "#comment" = "configuration for koji cli tool" } { } { "#comment" = "url of XMLRPC server" } { "server" = "http://localhost/kojihub" } { } { "#comment" = "url of web interface" } { "weburl" = "http://localhost/koji" } { } { "#comment" = "url of package download site" } { "pkgurl" = "http://localhost/packages" } { } { "#comment" = "path to the koji top directory" } { "topdir" = "/mnt/koji" } { } { "#comment" = "configuration for SSL athentication" } { } { "#comment" = "client certificate" } { "cert" = "/etc/pki/koji/kojiadm.pem" } { } { "#comment" = "certificate of the CA that issued the client certificate" } { "ca" = "/etc/pki/koji/koji_ca_cert.crt" } { } { "#comment" = "certificate of the CA that issued the HTTP server certificate" } { "serverca" = "/etc/pki/koji/koji_ca_cert.crt" } } PK ! M�0�'< '< ) lenses/dist/tests/test_fai_diskconfig.augnu �[��� (* Module: Test_FAI_DiskConfig Provides unit tests and examples for the <FAI_DiskConfig> lens. *) module Test_FAI_DiskConfig = (* Test: FAI_DiskConfig.disk_config Test <FAI_DiskConfig.disk_config> *) test FAI_DiskConfig.disk_config get "disk_config hda preserve_always:6,7 disklabel:msdos bootable:3\n" = { "disk_config" = "hda" { "preserve_always" { "1" = "6" } { "2" = "7" } } { "disklabel" = "msdos" } { "bootable" = "3" } } (* Test: FAI_DiskConfig.volume Test <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "primary /boot 20-100 ext3 rw\n" = { "primary" { "mountpoint" = "/boot" } { "size" = "20-100" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } } } (* Test: FAI_DiskConfig.volume Testing <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "primary swap 1000 swap sw\n" = { "primary" { "mountpoint" = "swap" } { "size" = "1000" } { "filesystem" = "swap" } { "mount_options" { "1" = "sw" } } } (* Test: FAI_DiskConfig.volume Testing <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "primary / 12000 ext3 rw createopts=\"-b 2048\"\n" = { "primary" { "mountpoint" = "/" } { "size" = "12000" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } } { "fs_options" { "createopts" = "-b 2048" } } } (* Test: FAI_DiskConfig.volume Testing <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "logical /tmp 1000 ext3 rw,nosuid\n" = { "logical" { "mountpoint" = "/tmp" } { "size" = "1000" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "nosuid" } } } (* Test: FAI_DiskConfig.volume Testing <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "logical /var 10%- ext3 rw\n" = { "logical" { "mountpoint" = "/var" } { "size" = "10%-" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } } } (* Test: FAI_DiskConfig.volume Testing <FAI_DiskConfig.volume> *) test FAI_DiskConfig.volume get "logical /nobackup 0- xfs rw\n" = { "logical" { "mountpoint" = "/nobackup" } { "size" = "0-" } { "filesystem" = "xfs" } { "mount_options" { "1" = "rw" } } } (* Variable: simple_config A simple configuration file *) let simple_config = "# A comment disk_config disk2 raw-disk - 0 - - disk_config lvm vg my_pv sda2 vg test disk1.9 my_pv-_swap swap 2048 swap sw my_pv-_root / 2048 ext3 rw,errors=remount-ro disk_config raid raid1 /boot disk1.1,disk2.1,disk3.1,disk4.1,disk5.1,disk6.1 ext3 rw raid1 swap disk1.2,disk2.2,disk3.2,disk4.2,disk5.2,disk6.2 swap sw raid5 /srv/data disk1.11,disk2.11,disk3.11,disk4.11,disk5.11,disk6.11 ext3 ro createopts=\"-m 0\" raid0 - disk2.2,sdc1,sde1:spare:missing ext2 default disk_config tmpfs tmpfs /var/opt/hosting/tmp 500 defaults " (* Test: FAI_DiskConfig.lns Testing the full <FAI_DiskConfig.lns> on <simple_config> *) test FAI_DiskConfig.lns get simple_config = { "#comment" = "A comment" } { "disk_config" = "disk2" { "raw-disk" { "mountpoint" = "-" } { "size" = "0" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } } { } { "disk_config" = "lvm" { "vg" { "name" = "my_pv" } { "disk" = "sda2" } } { "vg" { "name" = "test" } { "disk" = "disk1" { "partition" = "9" } } } { "lv" { "vg" = "my_pv" } { "name" = "_swap" } { "mountpoint" = "swap" } { "size" = "2048" } { "filesystem" = "swap" } { "mount_options" { "1" = "sw" } } } { "lv" { "vg" = "my_pv" } { "name" = "_root" } { "mountpoint" = "/" } { "size" = "2048" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "errors" { "value" = "remount-ro" } } } } } { } { "disk_config" = "raid" { "raid1" { "mountpoint" = "/boot" } { "disk" = "disk1" { "partition" = "1" } } { "disk" = "disk2" { "partition" = "1" } } { "disk" = "disk3" { "partition" = "1" } } { "disk" = "disk4" { "partition" = "1" } } { "disk" = "disk5" { "partition" = "1" } } { "disk" = "disk6" { "partition" = "1" } } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } } } { "raid1" { "mountpoint" = "swap" } { "disk" = "disk1" { "partition" = "2" } } { "disk" = "disk2" { "partition" = "2" } } { "disk" = "disk3" { "partition" = "2" } } { "disk" = "disk4" { "partition" = "2" } } { "disk" = "disk5" { "partition" = "2" } } { "disk" = "disk6" { "partition" = "2" } } { "filesystem" = "swap" } { "mount_options" { "1" = "sw" } } } { "raid5" { "mountpoint" = "/srv/data" } { "disk" = "disk1" { "partition" = "11" } } { "disk" = "disk2" { "partition" = "11" } } { "disk" = "disk3" { "partition" = "11" } } { "disk" = "disk4" { "partition" = "11" } } { "disk" = "disk5" { "partition" = "11" } } { "disk" = "disk6" { "partition" = "11" } } { "filesystem" = "ext3" } { "mount_options" { "1" = "ro" } } { "fs_options" { "createopts" = "-m 0" } } } { "raid0" { "mountpoint" = "-" } { "disk" = "disk2" { "partition" = "2" } } { "disk" = "sdc1" } { "disk" = "sde1" { "spare" } { "missing" } } { "filesystem" = "ext2" } { "mount_options" { "1" = "default" } } } } { } { "disk_config" = "tmpfs" { "tmpfs" { "mountpoint" = "/var/opt/hosting/tmp" } { "size" = "500" } { "mount_options" { "1" = "defaults" } } } } (* Variable: config1 Another full configuration *) let config1 = "disk_config disk1 bootable:1 preserve_always:all always_format:5,6,7,8,9,10,11 primary - 0 - - primary - 0 - - logical / 0 ext3 rw,relatime,errors=remount-ro createopts=\"-c -j\" logical swap 0 swap sw logical /var 0 ext3 rw,relatime createopts=\"-m 5 -j\" logical /tmp 0 ext3 rw createopts=\"-m 0 -j\" logical /usr 0 ext3 rw,relatime createopts=\"-j\" logical /home 0 ext3 rw,relatime,nosuid,nodev createopts=\"-m 1 -j\" logical /wrk 0 ext3 rw,relatime,nosuid,nodev createopts=\"-m 1 -j\" logical /transfer 0 vfat rw " (* Test: FAI_DiskConfig.lns Testing <FAI_DiskConfig.lns> on <config1> *) test FAI_DiskConfig.lns get config1 = { "disk_config" = "disk1" { "bootable" = "1" } { "preserve_always" { "1" = "all" } } { "always_format" { "1" = "5" } { "2" = "6" } { "3" = "7" } { "4" = "8" } { "5" = "9" } { "6" = "10" } { "7" = "11" } } { "primary" { "mountpoint" = "-" } { "size" = "0" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "primary" { "mountpoint" = "-" } { "size" = "0" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "/" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "relatime" } { "3" = "errors" { "value" = "remount-ro" } } } { "fs_options" { "createopts" = "-c -j" } } } { "logical" { "mountpoint" = "swap" } { "size" = "0" } { "filesystem" = "swap" } { "mount_options" { "1" = "sw" } } } { "logical" { "mountpoint" = "/var" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "relatime" } } { "fs_options" { "createopts" = "-m 5 -j" } } } { "logical" { "mountpoint" = "/tmp" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } } { "fs_options" { "createopts" = "-m 0 -j" } } } { "logical" { "mountpoint" = "/usr" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "relatime" } } { "fs_options" { "createopts" = "-j" } } } { "logical" { "mountpoint" = "/home" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "relatime" } { "3" = "nosuid" } { "4" = "nodev" } } { "fs_options" { "createopts" = "-m 1 -j" } } } { "logical" { "mountpoint" = "/wrk" } { "size" = "0" } { "filesystem" = "ext3" } { "mount_options" { "1" = "rw" } { "2" = "relatime" } { "3" = "nosuid" } { "4" = "nodev" } } { "fs_options" { "createopts" = "-m 1 -j" } } } { "logical" { "mountpoint" = "/transfer" } { "size" = "0" } { "filesystem" = "vfat" } { "mount_options" { "1" = "rw" } } } } (* Variable: config2 Another full configuration *) let config2 = "disk_config /dev/sda primary - 250M - - primary - 20G - - logical - 8G - - logical - 4G - - logical - 5G - - disk_config /dev/sdb sameas:/dev/sda disk_config raid raid1 /boot sda1,sdb1 ext3 defaults raid1 / sda2,sdb2 ext3 defaults,errors=remount-ro raid1 swap sda5,sdb5 swap defaults raid1 /tmp sda6,sdb6 ext3 defaults createopts=\"-m 1\" raid1 /var sda7,sdb7 ext3 defaults " (* Test: FAI_DiskConfig.lns Testing <FAI_DiskConfig.lns> on <config2> *) test FAI_DiskConfig.lns get config2 = { "disk_config" = "/dev/sda" { "primary" { "mountpoint" = "-" } { "size" = "250M" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "primary" { "mountpoint" = "-" } { "size" = "20G" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "-" } { "size" = "8G" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "-" } { "size" = "4G" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "-" } { "size" = "5G" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } } { } { "disk_config" = "/dev/sdb" { "sameas" = "/dev/sda" } } { } { "disk_config" = "raid" { "raid1" { "mountpoint" = "/boot" } { "disk" = "sda1" } { "disk" = "sdb1" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } } } { "raid1" { "mountpoint" = "/" } { "disk" = "sda2" } { "disk" = "sdb2" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } { "2" = "errors" { "value" = "remount-ro" } } } } { "raid1" { "mountpoint" = "swap" } { "disk" = "sda5" } { "disk" = "sdb5" } { "filesystem" = "swap" } { "mount_options" { "1" = "defaults" } } } { "raid1" { "mountpoint" = "/tmp" } { "disk" = "sda6" } { "disk" = "sdb6" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } } { "fs_options" { "createopts" = "-m 1" } } } { "raid1" { "mountpoint" = "/var" } { "disk" = "sda7" } { "disk" = "sdb7" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } } } } (* Variable: config3 Another full configuration *) let config3 = "disk_config /dev/sdb primary / 21750 ext3 defaults,errors=remount-ro primary /boot 250 ext3 defaults logical - 4000 - - logical - 2000 - - logical - 10- - - disk_config cryptsetup randinit swap swap /dev/sdb5 swap defaults tmp /tmp /dev/sdb6 ext2 defaults luks /local00 /dev/sdb7 ext3 defaults,errors=remount-ro createopts=\"-m 0\" " (* Test: FAI_DiskConfig.lns Testing <FAI_DiskConfig.lns> on <config3> *) test FAI_DiskConfig.lns get config3 = { "disk_config" = "/dev/sdb" { "primary" { "mountpoint" = "/" } { "size" = "21750" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } { "2" = "errors" { "value" = "remount-ro" } } } } { "primary" { "mountpoint" = "/boot" } { "size" = "250" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } } } { "logical" { "mountpoint" = "-" } { "size" = "4000" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "-" } { "size" = "2000" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } { "logical" { "mountpoint" = "-" } { "size" = "10-" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } } { } { "disk_config" = "cryptsetup" { "randinit" } { "swap" { "mountpoint" = "swap" } { "device" = "/dev/sdb5" } { "filesystem" = "swap" } { "mount_options" { "1" = "defaults" } } } { "tmp" { "mountpoint" = "/tmp" } { "device" = "/dev/sdb6" } { "filesystem" = "ext2" } { "mount_options" { "1" = "defaults" } } } { "luks" { "mountpoint" = "/local00" } { "device" = "/dev/sdb7" } { "filesystem" = "ext3" } { "mount_options" { "1" = "defaults" } { "2" = "errors" { "value" = "remount-ro" } } } { "fs_options" { "createopts" = "-m 0" } } } } (* Variable: with_spaces *) let with_spaces = "disk_config disk2 raw-disk - 0 - - " (* Test: FAI_DiskConfig.lns Testing <FAI_DiskConfig.lns> with <with_spaces> *) test FAI_DiskConfig.lns get with_spaces = { "disk_config" = "disk2" { } { "raw-disk" { "mountpoint" = "-" } { "size" = "0" } { "filesystem" = "-" } { "mount_options" { "1" = "-" } } } } PK ! ��+~� � & lenses/dist/tests/test_automounter.augnu �[��� module Test_automounter = let example = "# # This is an automounter map and it has the following format # key [ -mount-options-separated-by-comma ] location # Details may be found in the autofs(5) manpage # indirect map cd -fstype=iso9660,ro,nosuid,nodev :/dev/cdrom kernel -ro,soft,intr ftp.kernel.org:/pub/linux * -fstype=auto,loop,ro :/srv/distros/isos/&.iso # direct map /nfs/apps/mozilla bogus:/usr/local/moxill # replicated server path host1,host2,hostn:/path/path path host1,host2:/blah host3(1):/some/other/path path host1(5),host2(6),host3(1):/path/path # multi-mount map server -rw,hard,intr / -ro myserver.me.org:/ server -rw,hard,intr / -ro myserver.me.org:/ /usr myserver.me.org:/usr server -rw,hard,intr / -ro myserver.me.org:/ \ /usr myserver.me.org:/usr \ /home myserver.me.org:/home server -rw,hard,intr / -ro my-with-dash-server.me.org:/ # included maps +auto_home " test Automounter.lns get example = { } { "#comment" = "This is an automounter map and it has the following format" } { "#comment" = "key [ -mount-options-separated-by-comma ] location" } { "#comment" = "Details may be found in the autofs(5) manpage" } { } { "#comment" = "indirect map" } { "1" = "cd" { "opt" = "fstype" { "value" = "iso9660" } } { "opt" = "ro" } { "opt" = "nosuid" } { "opt" = "nodev" } { "location" { "1" { "path" = "/dev/cdrom" } } } } { "2" = "kernel" { "opt" = "ro" } { "opt" = "soft" } { "opt" = "intr" } { "location" { "1" { "host" = "ftp.kernel.org" } { "path" = "/pub/linux" } } } } { "3" = "*" { "opt" = "fstype" { "value" = "auto" } } { "opt" = "loop" } { "opt" = "ro" } { "location" { "1" { "path" = "/srv/distros/isos/&.iso" } } } } { } { "#comment" = "direct map" } { "4" = "/nfs/apps/mozilla" { "location" { "1" { "host" = "bogus" } { "path" = "/usr/local/moxill" } } } } { } { "#comment" = "replicated server" } { "5" = "path" { "location" { "1" { "host" = "host1" } { "host" = "host2" } { "host" = "hostn" } { "path" = "/path/path" } } } } { "6" = "path" { "location" { "1" { "host" = "host1" } { "host" = "host2" } { "path" = "/blah" } } { "2" { "host" = "host3" { "weight" = "1" } } { "path" = "/some/other/path" } } } } { "7" = "path" { "location" { "1" { "host" = "host1" { "weight" = "5" } } { "host" = "host2" { "weight" = "6" } } { "host" = "host3" { "weight" = "1" } } { "path" = "/path/path" } } } } { } { "#comment" = "multi-mount map" } { "8" = "server" { "opt" = "rw" } { "opt" = "hard" } { "opt" = "intr" } { "mount" { "1" = "/" { "opt" = "ro" } { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/" } } } } } } { "9" = "server" { "opt" = "rw" } { "opt" = "hard" } { "opt" = "intr" } { "mount" { "1" = "/" { "opt" = "ro" } { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/" } } } } { "2" = "/usr" { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/usr" } } } } } } { "10" = "server" { "opt" = "rw" } { "opt" = "hard" } { "opt" = "intr" } { "mount" { "1" = "/" { "opt" = "ro" } { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/" } } } } { "2" = "/usr" { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/usr" } } } } { "3" = "/home" { "location" { "1" { "host" = "myserver.me.org" } { "path" = "/home" } } } } } } { } { "11" = "server" { "opt" = "rw" } { "opt" = "hard" } { "opt" = "intr" } { "mount" { "1" = "/" { "opt" = "ro" } { "location" { "1" { "host" = "my-with-dash-server.me.org" } { "path" = "/" } } } } } } { } { "#comment" = "included maps" } { "12" = "+" { "map" = "auto_home" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ;B��� � ! lenses/dist/tests/test_access.augnu �[��� (* Module: Test_Access Provides unit tests and examples for the <Access> lens. *) module Test_access = (* Variable: conf A full configuration *) let conf = "+ : ALL : LOCAL + : root : localhost.localdomain - : root : 127.0.0.1 .localdomain + : root alice@server1 @admins (wheel) : cron crond :0 tty1 tty2 tty3 tty4 tty5 tty6 # IP v6 support + : john foo : 2001:4ca0:0:101::1 2001:4ca0:0:101::/64 # Except + : ALL EXCEPT john @wheel : ALL EXCEPT LOCAL .win.tue.nl # No spaces +:root:.example.com " (* Test: Access.lns Test the full <conf> *) test Access.lns get conf = { "access" = "+" { "user" = "ALL" } { "origin" = "LOCAL" } } { "access" = "+" { "user" = "root" } { "origin" = "localhost.localdomain" } } { "access" = "-" { "user" = "root" } { "origin" = "127.0.0.1" } { "origin" = ".localdomain" } } { "access" = "+" { "user" = "root" } { "user" = "alice" { "host" = "server1" } } { "netgroup" = "admins" } { "group" = "wheel" } { "origin" = "cron" } { "origin" = "crond" } { "origin" = ":0" } { "origin" = "tty1" } { "origin" = "tty2" } { "origin" = "tty3" } { "origin" = "tty4" } { "origin" = "tty5" } { "origin" = "tty6" } } { "#comment" = "IP v6 support" } { "access" = "+" { "user" = "john" } { "user" = "foo" } { "origin" = "2001:4ca0:0:101::1" } { "origin" = "2001:4ca0:0:101::/64" } } { "#comment" = "Except" } { "access" = "+" { "user" = "ALL" } { "except" { "user" = "john" } { "netgroup" = "wheel" } } { "origin" = "ALL" } { "except" { "origin" = "LOCAL" } { "origin" = ".win.tue.nl" } } } { "#comment" = "No spaces" } { "access" = "+" { "user" = "root" } { "origin" = ".example.com" } } test Access.lns put conf after insa "access" "access[last()]" ; set "access[last()]" "-" ; set "access[last()]/user" "ALL" ; set "access[last()]/origin" "ALL" = "+ : ALL : LOCAL + : root : localhost.localdomain - : root : 127.0.0.1 .localdomain + : root alice@server1 @admins (wheel) : cron crond :0 tty1 tty2 tty3 tty4 tty5 tty6 # IP v6 support + : john foo : 2001:4ca0:0:101::1 2001:4ca0:0:101::/64 # Except + : ALL EXCEPT john @wheel : ALL EXCEPT LOCAL .win.tue.nl # No spaces +:root:.example.com - : ALL : ALL " (* Test: Access.lns - netgroups (starting with '@') are mapped as "netgroup" nodes; - nisdomains (starting with '@@') are mapped as "nisdomain" nodes. This closes <ticket #190 at https://fedorahosted.org/augeas/ticket/190>. *) test Access.lns get "+ : @group@@domain : ALL \n" = { "access" = "+" { "netgroup" = "group" { "nisdomain" = "domain" } } { "origin" = "ALL" } } (* Test Access.lns Put test for netgroup and nisdomain *) test Access.lns put "+ : @group : ALL \n" after set "/access/netgroup[. = 'group']/nisdomain" "domain" = "+ : @group@@domain : ALL \n" (* Check DOMAIN\user style entry *) test Access.lns get "+ : root : foo1.bar.org foo3.bar.org + : (DOMAIN\linux_users) : ALL + : DOMAIN\linux_user : ALL\n" = { "access" = "+" { "user" = "root" } { "origin" = "foo1.bar.org" } { "origin" = "foo3.bar.org" } } { "access" = "+" { "group" = "DOMAIN\linux_users" } { "origin" = "ALL" } } { "access" = "+" { "user" = "DOMAIN\linux_user" } { "origin" = "ALL" } } PK ! �c�� � " lenses/dist/tests/test_anacron.augnu �[��� (* Module: Test_Anacron Provides unit tests and examples for the <Anacron> lens. *) module Test_anacron = (* Variable: conf *) let conf = "# /etc/anacrontab: configuration file for anacron SHELL=/bin/sh PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin # These replace cron's entries 1 5 cron.daily nice run-parts --report /etc/cron.daily 7 10 cron.weekly nice run-parts --report /etc/cron.weekly @monthly 15 cron.monthly nice run-parts --report /etc/cron.monthly " (* Test: Anacron.lns *) test Anacron.lns get conf = { "#comment" = "/etc/anacrontab: configuration file for anacron" } { } { "SHELL" = "/bin/sh" } { "PATH" = "/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin" } { } { "#comment" = "These replace cron's entries" } { "entry" = "nice run-parts --report /etc/cron.daily" { "period" = "1" } { "delay" = "5" } { "job-identifier" = "cron.daily" } } { "entry" = "nice run-parts --report /etc/cron.weekly" { "period" = "7" } { "delay" = "10" } { "job-identifier" = "cron.weekly" } } { "entry" = "nice run-parts --report /etc/cron.monthly" { "period_name" = "monthly" } { "delay" = "15" } { "job-identifier" = "cron.monthly" } } PK ! ��f#� � ) lenses/dist/tests/test_solaris_system.augnu �[��� (* Test for system lens *) module Test_solaris_system = let conf = "*ident \"@(#)system 1.18 97/06/27 SMI\" /* SVR4 1.5 */ * * SYSTEM SPECIFICATION FILE * moddir: /kernel /usr/kernel /other/modules rootfs:ufs rootdev:/sbus@1,f8000000/esp@0,800000/sd@3,0:a include: win include: sys/shmsys exclude: win exclude: sys/shmsys forceload: drv/foo forceload: drv/ssd set nautopush=32 set noexec_user_stack=1 set zfs:zfs_arc_max=12884901888 set test_module:debug = 0x13 set fcp:ssfcp_enable_auto_configuration=1 set scsi_options = 0x7F8 set moddebug & ~0x880 set moddebug | 0x40 " test Solaris_System.lns get conf = { "#comment" = "ident \"@(#)system 1.18 97/06/27 SMI\" /* SVR4 1.5 */" } { } { "#comment" = "SYSTEM SPECIFICATION FILE" } { } { } { "moddir" { "1" = "/kernel" } { "2" = "/usr/kernel" } { "3" = "/other/modules" } } { } { "rootfs" = "ufs" } { "rootdev" = "/sbus@1,f8000000/esp@0,800000/sd@3,0:a" } { } { "include" = "win" } { "include" = "sys/shmsys" } { } { "exclude" = "win" } { "exclude" = "sys/shmsys" } { } { "forceload" = "drv/foo" } { "forceload" = "drv/ssd" } { } { "set" { "variable" = "nautopush" } { "operator" = "=" } { "value" = "32" } } { "set" { "variable" = "noexec_user_stack" } { "operator" = "=" } { "value" = "1" } } { "set" { "module" = "zfs" } { "variable" = "zfs_arc_max" } { "operator" = "=" } { "value" = "12884901888" } } { "set" { "module" = "test_module" } { "variable" = "debug" } { "operator" = "=" } { "value" = "0x13" } } { "set" { "module" = "fcp" } { "variable" = "ssfcp_enable_auto_configuration" } { "operator" = "=" } { "value" = "1" } } { "set" { "variable" = "scsi_options" } { "operator" = "=" } { "value" = "0x7F8" } } { "set" { "variable" = "moddebug" } { "operator" = "&" } { "value" = "~0x880" } } { "set" { "variable" = "moddebug" } { "operator" = "|" } { "value" = "0x40" } } (* Check that moddir supports colons and spaces *) let moddir_colons = "moddir:/kernel:/usr/kernel:/other/modules " test Solaris_System.lns get moddir_colons = { "moddir" { "1" = "/kernel" } { "2" = "/usr/kernel" } { "3" = "/other/modules" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �� )5 5 lenses/dist/tests/test_qpid.augnu �[��� (* Module: Test_Qpid Provides unit tests and examples for the <Qpid> lens. *) module Test_Qpid = (* Variable: qpidd *) let qpidd = "# Configuration file for qpidd. Entries are of the form: # name=value # (Note: no spaces on either side of '='). Using default settings: # \"qpidd --help\" or \"man qpidd\" for more details. cluster-mechanism=ANONYMOUS auth=no max-connections=22000 syslog-name=qpidd1 " (* Test: Qpid.lns *) test Qpid.lns get qpidd = { "#comment" = "Configuration file for qpidd. Entries are of the form:" } { "#comment" = "name=value" } { } { "#comment" = "(Note: no spaces on either side of '='). Using default settings:" } { "#comment" = "\"qpidd --help\" or \"man qpidd\" for more details." } { "cluster-mechanism" = "ANONYMOUS" } { "auth" = "no" } { "max-connections" = "22000" } { "syslog-name" = "qpidd1" } (* Variable: qpidc *) let qpidc = "# Configuration file for the qpid c++ client library. Entries are of # the form: # name=value ssl-cert-db=/root/certs/server_db ssl-port=5674 " (* Test: Qpid.lns *) test Qpid.lns get qpidc = { "#comment" = "Configuration file for the qpid c++ client library. Entries are of" } { "#comment" = "the form:" } { "#comment" = "name=value" } { } { "ssl-cert-db" = "/root/certs/server_db" } { "ssl-port" = "5674" } PK ! T�N# # lenses/dist/tests/test_hosts.augnu �[��� (* Tests for the Hosts module *) module Test_hosts = let two_entries = "127.0.0.1 foo foo.example.com # \tcomment\t 192.168.0.1 pigiron.example.com pigiron pigiron.example " test Hosts.record get "127.0.0.1 foo\n" = { "1" { "ipaddr" = "127.0.0.1" } { "canonical" = "foo" } } test Hosts.lns get two_entries = { "1" { "ipaddr" = "127.0.0.1" } { "canonical" = "foo" } { "alias" = "foo.example.com" } } { "#comment" = "comment" } { "2" { "ipaddr" = "192.168.0.1" } { "canonical" = "pigiron.example.com" } { "alias" = "pigiron" } { "alias" = "pigiron.example" } } test Hosts.record put "127.0.0.1 foo\n" after set "/1/canonical" "bar" = "127.0.0.1 bar\n" test Hosts.lns put two_entries after set "/2/alias[10]" "piggy" ; rm "/1/alias[1]" ; rm "/2/alias[2]" = "127.0.0.1 foo # \tcomment\t 192.168.0.1 pigiron.example.com pigiron piggy " (* Deleting the 'canonical' node violates the schema; each host entry *) (* must have one *) test Hosts.lns put two_entries after rm "/1/canonical" = * (* Make sure blank and indented lines get through *) test Hosts.lns get " \t 127.0.0.1\tlocalhost \n \n\n 127.0.1.1\tetch.example.com\tetch\n" = { "1" { "ipaddr" = "127.0.0.1" } { "canonical" = "localhost" } } {} {} {} { "2" { "ipaddr" = "127.0.1.1" } { "canonical" = "etch.example.com" } { "alias" = "etch" } } (* Comment at the end of a line *) test Hosts.lns get "127.0.0.1 localhost # must always be there \n" = { "1" { "ipaddr" = "127.0.0.1" } { "canonical" = "localhost" } { "#comment" = "must always be there" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �ˀ � # lenses/dist/tests/test_netmasks.augnu �[��� (* Test for netmasks lens *) module Test_netmasks = let conf = "# The netmasks file associates Internet Protocol (IP) address # masks with IP network numbers. # 192.168.1.0 255.255.255.0 10.0.0.0 255.0.0.0 " test Netmasks.lns get conf = { "#comment" = "The netmasks file associates Internet Protocol (IP) address" } { "#comment" = "masks with IP network numbers." } { } { } { "1" { "network" = "192.168.1.0" } { "netmask" = "255.255.255.0" } } { "2" { "network" = "10.0.0.0" } { "netmask" = "255.0.0.0" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! l��H� � " lenses/dist/tests/test_phpvars.augnu �[��� module Test_phpvars = let conf = "<?pHp /**/ /** * Multi line comment * */ /* One line comment */ // Inline comment # Bash-style comment global $version; global $config_version; $config_version = '1.4.0'; $theme=array(); $theme[0]['NAME'] = 'Default'; // end-of line comment $theme[0][\"PATH\"] = SM_PATH . 'themes/default_theme.php'; $theme[0]['XPATH'] = '/some//x/path' ; define ('MYVAR', ROOT . 'some value'); # end-of line comment include_once( ROOT . \"/path/to/conf\" ); include( ROOT . \"/path/to/conf\" ); @include SM_PATH . 'config/config_local.php'; class config { var $tmppath = \"/tmp\"; var $offline = 1; } ?> " test Phpvars.lns get conf = { } { "#mcomment" { "1" = "*" } { "2" = "* Multi line comment" } { "3" = "*" } } { } { "#mcomment" { "1" = "One line comment" } } { } { "#comment" = "Inline comment" } { "#comment" = "Bash-style comment" } { "global" = "version" } { "global" = "config_version" } { "$config_version" = "'1.4.0'" } { "$theme" = "array()" } { } { "$theme" = "'Default'" { "@arraykey" = "[0]['NAME']" } { "#comment" = "end-of line comment" } } { "$theme" = "SM_PATH . 'themes/default_theme.php'" { "@arraykey" = "[0][\"PATH\"]" } } { "$theme" = "'/some//x/path'" { "@arraykey" = "[0]['XPATH']" } } { "define" = "MYVAR" { "value" = "ROOT . 'some value'" } { "#comment" = "end-of line comment" } } { "include_once" = "ROOT . \"/path/to/conf\"" } { "include" = "ROOT . \"/path/to/conf\"" } { "@include" = "SM_PATH . 'config/config_local.php'" } { "config" { } {"$tmppath" = "\"/tmp\""} {"$offline" = "1"} } { } PK ! �ؠ��! �! ! lenses/dist/tests/test_clamav.augnu �[��� module Test_ClamAV = let clamd_conf ="## ## Example config file for the Clam AV daemon ## Please read the clamd.conf(5) manual before editing this file. ## # Comment or remove the line below. Example # LogFile must be writable for the user running daemon. LogFile /var/log/clamav/clamd.log LogFileUnlock yes LogFileMaxSize 0 LogTime yes LogClean yes LogSyslog yes LogFacility LOG_MAIL LogVerbose yes LogRotate yes ExtendedDetectionInfo yes PidFile /var/run/clamav/clamd.pid TemporaryDirectory /var/tmp DatabaseDirectory /var/lib/clamav OfficialDatabaseOnly no LocalSocket /var/run/clamav/clamd.sock LocalSocketGroup virusgroup LocalSocketMode 660 FixStaleSocket yes TCPSocket 3310 TCPAddr 127.0.0.1 MaxConnectionQueueLength 30 StreamMaxLength 10M StreamMinPort 30000 StreamMaxPort 32000 MaxThreads 50 ReadTimeout 300 CommandReadTimeout 5 SendBufTimeout 200 MaxQueue 200 IdleTimeout 60 ExcludePath ^/proc/ ExcludePath ^/sys/ MaxDirectoryRecursion 20 FollowDirectorySymlinks yes FollowFileSymlinks yes CrossFilesystems yes SelfCheck 600 VirusEvent /usr/local/bin/send_sms 123456789 \"VIRUS ALERT: %v\" User clam AllowSupplementaryGroups yes ExitOnOOM yes Foreground yes Debug yes LeaveTemporaryFiles yes AllowAllMatchScan no DetectPUA yes ExcludePUA NetTool ExcludePUA PWTool IncludePUA Spy IncludePUA Scanner IncludePUA RAT AlgorithmicDetection yes ForceToDisk yes DisableCache yes ScanPE yes DisableCertCheck yes ScanELF yes DetectBrokenExecutables yes ScanOLE2 yes OLE2BlockMacros no ScanPDF yes ScanSWF yes ScanMail yes ScanPartialMessages yes PhishingSignatures yes PhishingScanURLs yes PhishingAlwaysBlockSSLMismatch no PhishingAlwaysBlockCloak no PartitionIntersection no HeuristicScanPrecedence yes StructuredDataDetection yes StructuredMinCreditCardCount 5 StructuredMinSSNCount 5 StructuredSSNFormatNormal yes StructuredSSNFormatStripped yes ScanHTML yes ScanArchive yes ArchiveBlockEncrypted no MaxScanSize 150M MaxFileSize 30M MaxRecursion 10 MaxFiles 15000 MaxEmbeddedPE 10M MaxHTMLNormalize 10M " let freshclam_conf ="## ## Example config file for freshclam ## Please read the freshclam.conf(5) manual before editing this file. ## # Comment or remove the line below. Example DatabaseDirectory /var/lib/clamav UpdateLogFile /var/log/clamav/freshclam.log LogFileMaxSize 2M LogTime yes LogVerbose yes LogSyslog yes LogFacility LOG_MAIL LogRotate yes PidFile /var/run/freshclam.pid DatabaseOwner clam AllowSupplementaryGroups yes DNSDatabaseInfo current.cvd.clamav.net DatabaseMirror db.XY.clamav.net DatabaseMirror database.clamav.net MaxAttempts 5 ScriptedUpdates yes CompressLocalDatabase no DatabaseCustomURL http://myserver.com/mysigs.ndb DatabaseCustomURL file:///mnt/nfs/local.hdb PrivateMirror mirror1.mynetwork.com PrivateMirror mirror2.mynetwork.com Checks 24 HTTPProxyServer myproxy.com HTTPProxyPort 1234 HTTPProxyUsername myusername HTTPProxyPassword mypass HTTPUserAgent SomeUserAgentIdString LocalIPAddress aaa.bbb.ccc.ddd NotifyClamd /etc/clamd.conf OnUpdateExecute command OnErrorExecute command OnOutdatedExecute command Foreground yes Debug yes ConnectTimeout 60 ReceiveTimeout 60 TestDatabases yes SubmitDetectionStats /etc/clamd.conf DetectionStatsCountry za DetectionStatsCountry zw SafeBrowsing yes Bytecode yes ExtraDatabase dbname1 ExtraDatabase dbname2 " test ClamAV.lns get clamd_conf = { "#comment" = "#" } { "#comment" = "# Example config file for the Clam AV daemon" } { "#comment" = "# Please read the clamd.conf(5) manual before editing this file." } { "#comment" = "#" } { } { "#comment" = "Comment or remove the line below." } { "Example" } { "#comment" = "LogFile must be writable for the user running daemon." } { "LogFile" = "/var/log/clamav/clamd.log" } { "LogFileUnlock" = "yes" } { "LogFileMaxSize" = "0" } { "LogTime" = "yes" } { "LogClean" = "yes" } { "LogSyslog" = "yes" } { "LogFacility" = "LOG_MAIL" } { "LogVerbose" = "yes" } { "LogRotate" = "yes" } { "ExtendedDetectionInfo" = "yes" } { "PidFile" = "/var/run/clamav/clamd.pid" } { "TemporaryDirectory" = "/var/tmp" } { "DatabaseDirectory" = "/var/lib/clamav" } { "OfficialDatabaseOnly" = "no" } { "LocalSocket" = "/var/run/clamav/clamd.sock" } { "LocalSocketGroup" = "virusgroup" } { "LocalSocketMode" = "660" } { "FixStaleSocket" = "yes" } { "TCPSocket" = "3310" } { "TCPAddr" = "127.0.0.1" } { "MaxConnectionQueueLength" = "30" } { "StreamMaxLength" = "10M" } { "StreamMinPort" = "30000" } { "StreamMaxPort" = "32000" } { "MaxThreads" = "50" } { "ReadTimeout" = "300" } { "CommandReadTimeout" = "5" } { "SendBufTimeout" = "200" } { "MaxQueue" = "200" } { "IdleTimeout" = "60" } { "ExcludePath" = "^/proc/" } { "ExcludePath" = "^/sys/" } { "MaxDirectoryRecursion" = "20" } { "FollowDirectorySymlinks" = "yes" } { "FollowFileSymlinks" = "yes" } { "CrossFilesystems" = "yes" } { "SelfCheck" = "600" } { "VirusEvent" = "/usr/local/bin/send_sms 123456789 \"VIRUS ALERT: %v\"" } { "User" = "clam" } { "AllowSupplementaryGroups" = "yes" } { "ExitOnOOM" = "yes" } { "Foreground" = "yes" } { "Debug" = "yes" } { "LeaveTemporaryFiles" = "yes" } { "AllowAllMatchScan" = "no" } { "DetectPUA" = "yes" } { "ExcludePUA" = "NetTool" } { "ExcludePUA" = "PWTool" } { "IncludePUA" = "Spy" } { "IncludePUA" = "Scanner" } { "IncludePUA" = "RAT" } { "AlgorithmicDetection" = "yes" } { "ForceToDisk" = "yes" } { "DisableCache" = "yes" } { "ScanPE" = "yes" } { "DisableCertCheck" = "yes" } { "ScanELF" = "yes" } { "DetectBrokenExecutables" = "yes" } { "ScanOLE2" = "yes" } { "OLE2BlockMacros" = "no" } { "ScanPDF" = "yes" } { "ScanSWF" = "yes" } { "ScanMail" = "yes" } { "ScanPartialMessages" = "yes" } { "PhishingSignatures" = "yes" } { "PhishingScanURLs" = "yes" } { "PhishingAlwaysBlockSSLMismatch" = "no" } { "PhishingAlwaysBlockCloak" = "no" } { "PartitionIntersection" = "no" } { "HeuristicScanPrecedence" = "yes" } { "StructuredDataDetection" = "yes" } { "StructuredMinCreditCardCount" = "5" } { "StructuredMinSSNCount" = "5" } { "StructuredSSNFormatNormal" = "yes" } { "StructuredSSNFormatStripped" = "yes" } { "ScanHTML" = "yes" } { "ScanArchive" = "yes" } { "ArchiveBlockEncrypted" = "no" } { "MaxScanSize" = "150M" } { "MaxFileSize" = "30M" } { "MaxRecursion" = "10" } { "MaxFiles" = "15000" } { "MaxEmbeddedPE" = "10M" } { "MaxHTMLNormalize" = "10M" } test ClamAV.lns get freshclam_conf = { "#comment" = "#" } { "#comment" = "# Example config file for freshclam" } { "#comment" = "# Please read the freshclam.conf(5) manual before editing this file." } { "#comment" = "#" } { } { } { "#comment" = "Comment or remove the line below." } { "Example" } { } { "DatabaseDirectory" = "/var/lib/clamav" } { "UpdateLogFile" = "/var/log/clamav/freshclam.log" } { "LogFileMaxSize" = "2M" } { "LogTime" = "yes" } { "LogVerbose" = "yes" } { "LogSyslog" = "yes" } { "LogFacility" = "LOG_MAIL" } { "LogRotate" = "yes" } { "PidFile" = "/var/run/freshclam.pid" } { "DatabaseOwner" = "clam" } { "AllowSupplementaryGroups" = "yes" } { "DNSDatabaseInfo" = "current.cvd.clamav.net" } { "DatabaseMirror" = "db.XY.clamav.net" } { "DatabaseMirror" = "database.clamav.net" } { "MaxAttempts" = "5" } { "ScriptedUpdates" = "yes" } { "CompressLocalDatabase" = "no" } { "DatabaseCustomURL" = "http://myserver.com/mysigs.ndb" } { "DatabaseCustomURL" = "file:///mnt/nfs/local.hdb" } { "PrivateMirror" = "mirror1.mynetwork.com" } { "PrivateMirror" = "mirror2.mynetwork.com" } { "Checks" = "24" } { "HTTPProxyServer" = "myproxy.com" } { "HTTPProxyPort" = "1234" } { "HTTPProxyUsername" = "myusername" } { "HTTPProxyPassword" = "mypass" } { "HTTPUserAgent" = "SomeUserAgentIdString" } { "LocalIPAddress" = "aaa.bbb.ccc.ddd" } { "NotifyClamd" = "/etc/clamd.conf" } { "OnUpdateExecute" = "command" } { "OnErrorExecute" = "command" } { "OnOutdatedExecute" = "command" } { "Foreground" = "yes" } { "Debug" = "yes" } { "ConnectTimeout" = "60" } { "ReceiveTimeout" = "60" } { "TestDatabases" = "yes" } { "SubmitDetectionStats" = "/etc/clamd.conf" } { "DetectionStatsCountry" = "za" } { "DetectionStatsCountry" = "zw" } { "SafeBrowsing" = "yes" } { "Bytecode" = "yes" } { "ExtraDatabase" = "dbname1" } { "ExtraDatabase" = "dbname2" } PK ! I� � � lenses/dist/tests/test_ldap.augnu �[��� module Test_ldap = let conf = "host 127.0.0.1 # The distinguished name of the search base. base dc=example,dc=com #tls_key ssl no pam_password md5 " test Spacevars.simple_lns get conf = { "host" = "127.0.0.1" } {} { "#comment" = "The distinguished name of the search base." } { "base" = "dc=example,dc=com" } { "#comment" = "tls_key" } { "ssl" = "no" } { "pam_password" = "md5" } PK ! �%Eg� � lenses/dist/tests/test_nginx.augnu �[��� (* Module: Test_Nginx Provides unit tests and examples for the <Nginx> lens. *) module Test_nginx = (* Check for non-recursive ambiguities *) let directive = Nginx.simple | Nginx.block ( Nginx.simple | Nginx.block Nginx.simple ) (* Do some limited typechecking on the recursive lens; note that unrolling once more leads to a typecheck error that seems to be spurious, though it's not clear why Unrolling once more amounts to adding the clause Nginx.block (Nginx.block Nginx.simple) to unrolled and results in an error overlapping lenses in union.get Example matched by both: 'upstream{}\n' *) let unrolled = Nginx.simple | Nginx.block Nginx.simple let lns_unrolled = (Util.comment | Util.empty | unrolled) (* Normal unit tests *) let lns = Nginx.lns let conf ="user nginx nginx; worker_processes 1; error_log /var/log/nginx/error_log info; events { worker_connections 1024; use epoll; } # comment1 # comment2 http { # comment3 include /etc/nginx/mime.types; default_type application/octet-stream; log_format main '$remote_addr - $remote_user [$time_local] ' '\"$request\" $status $bytes_sent ' '\"$http_referer\" \"$http_user_agent\" ' '\"$gzip_ratio\"'; client_header_timeout 10m; client_body_timeout 10m; send_timeout 10m; connection_pool_size 256; client_header_buffer_size 2k; large_client_header_buffers 4 8k; request_pool_size 4k; gzip on; gzip_min_length 1000; gzip_buffers 4 8k; gzip_types text/plain application/json; output_buffers 1 32k; postpone_output 1460; sendfile on; tcp_nopush on; tcp_nodelay on; keepalive_timeout 75 20; ignore_invalid_headers on; index index.html index.php; include vhosts/*.conf; } " test lns get conf = { "user" = "nginx nginx" } { "worker_processes" = "1" } { "error_log" = "/var/log/nginx/error_log info" } {} { "events" { "worker_connections" = "1024" } { "use" = "epoll" } } {} { "#comment" = "comment1" } { "#comment" = "comment2" } {} { "http" { "#comment" = "comment3" } { "include" = "/etc/nginx/mime.types" } { "default_type" = "application/octet-stream" } { "log_format" = "main '$remote_addr - $remote_user [$time_local] ' '\"$request\" $status $bytes_sent ' '\"$http_referer\" \"$http_user_agent\" ' '\"$gzip_ratio\"'" } { "client_header_timeout" = "10m" } { "client_body_timeout" = "10m" } { "send_timeout" = "10m" } { "connection_pool_size" = "256" } { "client_header_buffer_size" = "2k" } { "large_client_header_buffers" = "4 8k" } { "request_pool_size" = "4k" } { "gzip" = "on" } { "gzip_min_length" = "1000" } { "gzip_buffers" = "4 8k" } { "gzip_types" = "text/plain application/json" } { "output_buffers" = "1 32k" } { "postpone_output" = "1460" } { "sendfile" = "on" } { "tcp_nopush" = "on" } { "tcp_nodelay" = "on" } { "keepalive_timeout" = "75 20" } { "ignore_invalid_headers" = "on" } { "index" = "index.html index.php" } { "include" = "vhosts/*.conf" } } (* location blocks *) test lns get "location / { }\n" = { "location" { "#uri" = "/" } } test lns get "location = / { }\n" = { "location" { "#comp" = "=" } { "#uri" = "/" } } test lns get "location /documents/ { }\n" = { "location" { "#uri" = "/documents/" } } test lns get "location ^~ /images/ { }\n" = { "location" { "#comp" = "^~" } { "#uri" = "/images/" } } test lns get "location ~* \.(gif|jpg|jpeg)$ { }\n" = { "location" { "#comp" = "~*" } { "#uri" = "\.(gif|jpg|jpeg)$" } } test lns get "location @fallback { }\n" = { "location" { "#uri" = "@fallback" } } (* if blocks *) test lns get "if ($slow) { tcp_nodelay on; }\n" = { "if" { "#cond" = "($slow)" } { "tcp_nodelay" = "on" } } test lns get "if ($request_method = POST) { }\n" = { "if" { "#cond" = "($request_method = POST)" } } test lns get "if ($http_cookie ~* \"id=([^;]+)(?:;|$)\") { }\n" = { "if" { "#cond" = "($http_cookie ~* \"id=([^;]+)(?:;|$)\")" } } (* geo blocks *) test lns get "geo $geo { }\n" = { "geo" { "#geo" = "$geo" } } test lns get "geo $address $geo { }\n" = { "geo" { "#address" = "$address" } { "#geo" = "$geo" } } (* map blocks *) test lns get "map $http_host $name { }\n" = { "map" { "#source" = "$http_host" } { "#variable" = "$name" } } (* split_clients block *) test lns get "split_clients \"${remote_addr}AAA\" $variable { }\n" = { "split_clients" { "#string" = "\"${remote_addr}AAA\"" } { "#variable" = "$variable" } } (* upstream block *) test lns get "upstream backend { }\n" = { "upstream" { "#name" = "backend" } } (* GH #179 - recursive blocks *) let http = "http { server { listen 80; location / { root\thtml; } } gzip on; }\n" test lns get http = { "http" { "server" { "listen" = "80" } { "location" { "#uri" = "/" } { "root" = "html" } } } { "gzip" = "on" } } (* GH #335 - server single line entries *) let http_server_single_line_entries = "http { upstream big_server_com { server 127.0.0.3:8000 weight=5; server 127.0.0.3:8001 weight=5; server 192.168.0.1:8000; server 192.168.0.1:8001; server backend2.example.com:8080 fail_timeout=5s slow_start=30s; server backend3.example.com resolve; } }\n" test lns get http_server_single_line_entries = { "http" { "upstream" { "#name" = "big_server_com" } { "@server" { "@address" = "127.0.0.3:8000" } { "weight" = "5" } } { "@server" { "@address" = "127.0.0.3:8001" } { "weight" = "5" } } { "@server" { "@address" = "192.168.0.1:8000" } } { "@server" { "@address" = "192.168.0.1:8001" } } { "@server" { "@address" = "backend2.example.com:8080" } { "fail_timeout" = "5s" } { "slow_start" = "30s" } } { "@server" { "@address" = "backend3.example.com" } { "resolve" } } } } (* Make sure we do not screw up the indentation of the file *) test lns put http after set "/http/gzip" "off" = "http { server { listen 80; location / { root\thtml; } } gzip off; }\n" (* Test lns GH #260 *) test lns get "http { geo $geo { default 0; 127.0.0.1 2; 192.168.1.0/24 1; 10.1.0.0/16 1; ::1 2; 2001:0db8::/32 1; } }\n" = { "http" { "geo" { "#geo" = "$geo" } { "default" = "0" } { } { "127.0.0.1" = "2" } { "192.168.1.0" = "1" { "mask" = "24" } } { "10.1.0.0" = "1" { "mask" = "16" } } { } { "::1" = "2" } { "2001:0db8::" = "1" { "mask" = "32" } } } } test lns get "add_header X-XSS-Protection \"1; mode=block\" always;\n" = { "add_header" = "X-XSS-Protection \"1; mode=block\" always" } test lns get "location /foo { root /var/www/html; internal; # only valid in location blocks }\n" = { "location" { "#uri" = "/foo" } { "root" = "/var/www/html" } { "internal" { "#comment" = "only valid in location blocks" } } } test lns get "upstream php-handler { server unix:/var/run/php/php7.3-fpm.sock; }\n" = { "upstream" { "#name" = "php-handler" } { "@server" { "@address" = "unix:/var/run/php/php7.3-fpm.sock" } } } PK ! . k - - lenses/dist/tests/test_xymon.augnu �[��� module Test_xymon = let conf = " #atest comment title test title page page1 'This is a test page' 1.1.1.1 testhost.localdomain # test1 test2 http:443 ldaps=testhost.localdomain http://testhost.localdomain 2.2.2.2 testhost2.local.domain # COMMENT:stuff apache=wow #test comment page newpage 1.1.1.1 testhost.localdomain # test1 test2 http:443 ldaps=testhost.localdomain http://testhost.localdomain 2.2.2.2 testhost2.local.domain # COMMENT:stuff apache=wow title test title group group1 3.3.3.3 host1 # 4.4.4.4 host2 # group-sorted group2 5.5.5.5 host3 # conn 6.6.6.6 host4 # ssh subparent page1 page2 This is after page 1 10.0.0.1 router1.loni.org # 10.0.0.2 sw1.localdomain # " test Xymon.lns get conf = { } { "#comment" = "atest comment" } { } { "title" = "test title" } { "page" = "page1" { "pagetitle" = "'This is a test page'" } { "host" { "ip" = "1.1.1.1" } { "fqdn" = "testhost.localdomain" } { "tag" = "test1" } { "tag" = "test2" } { "tag" = "http:443" } { "tag" = "ldaps=testhost.localdomain" } { "tag" = "http://testhost.localdomain" } } { "host" { "ip" = "2.2.2.2" } { "fqdn" = "testhost2.local.domain" } { "tag" = "COMMENT:stuff" } { "tag" = "apache=wow" } } { "#comment" = "test comment" } { } } { "page" = "newpage" { "host" { "ip" = "1.1.1.1" } { "fqdn" = "testhost.localdomain" } { "tag" = "test1" } { "tag" = "test2" } { "tag" = "http:443" } { "tag" = "ldaps=testhost.localdomain" } { "tag" = "http://testhost.localdomain" } } { "host" { "ip" = "2.2.2.2" } { "fqdn" = "testhost2.local.domain" } { "tag" = "COMMENT:stuff" } { "tag" = "apache=wow" } } { } { "title" = "test title" } { "group" = "group1" { "host" { "ip" = "3.3.3.3" } { "fqdn" = "host1" } } { "host" { "ip" = "4.4.4.4" } { "fqdn" = "host2" } } { } } { "group-sorted" = "group2" { "host" { "ip" = "5.5.5.5" } { "fqdn" = "host3" } { "tag" = "conn" } } { "host" { "ip" = "6.6.6.6" } { "fqdn" = "host4" } { "tag" = "ssh" } } { } } } { "subparent" = "page2" { "parent" = "page1" } { "pagetitle" = "This is after page 1" } { "host" { "ip" = "10.0.0.1" } { "fqdn" = "router1.loni.org" } } { "host" { "ip" = "10.0.0.2" } { "fqdn" = "sw1.localdomain" } } { } } test Xymon.host get "192.168.1.1 server1.test.example.com # tag1 tag2 CLASS:classname CLIENT:clienthostname NOCOLUMNS:column1,column2\n" = { "host" { "ip" = "192.168.1.1" } { "fqdn" = "server1.test.example.com" } { "tag" = "tag1" } { "tag" = "tag2" } { "tag" = "CLASS:classname" } { "tag" = "CLIENT:clienthostname" } { "tag" = "NOCOLUMNS:column1,column2" } } test Xymon.host get "192.168.1.1 test.example.com # \n" = { "host" { "ip" = "192.168.1.1" } { "fqdn" = "test.example.com" } } test Xymon.host get "192.168.1.1 test.example.com # http://google.com COMMENT:asdf\n" = { "host" { "ip" = "192.168.1.1" } { "fqdn" = "test.example.com" } { "tag" = "http://google.com" } { "tag" = "COMMENT:asdf" } } test Xymon.include get "include file1.txt\n" = { "include" = "file1.txt" } test Xymon.include get "directory dir2\n" = { "directory" = "dir2" } test Xymon.page get "page page1 page 1 title is here\n" = { "page" = "page1" { "pagetitle" = "page 1 title is here" } } test Xymon.page get "page page2\n" = { "page" = "page2" } test Xymon.subparent get "subparent page1 page2 PAGETITLE 1\n1.1.1.1 host1.lan #\n2.2.2.2 host2.lan # \n" = { "subparent" = "page2" { "parent" = "page1" } { "pagetitle" = "PAGETITLE 1" } { "host" { "ip" = "1.1.1.1" } { "fqdn" = "host1.lan" } } { "host" { "ip" = "2.2.2.2" } { "fqdn" = "host2.lan" } } } test Xymon.title get "title title 1 goes here\n" = { "title" = "title 1 goes here" } test Xymon.lns get "page page1\ninclude file1.cfg\nsubparent page1 page2\ninclude page2.cfg\n" = { "page" = "page1" { "include" = "file1.cfg" } } { "subparent" = "page2" { "parent" = "page1" } { "include" = "page2.cfg" } } PK ! �'\ " lenses/dist/tests/test_schroot.augnu �[��� module Test_schroot = let conf = "# Sample configuration [sid] type=plain description=Debian unstable description[fr_FR]=Debian instable location=/srv/chroot/sid priority=3 groups=sbuild root-groups=root aliases=unstable,default [etch] type=block-device description=Debian testing priority=2 #groups=sbuild-security aliases=testing device=/dev/hda_vg/etch_chroot mount-options=-o atime run-setup-scripts=true run-exec-scripts=true [sid-file] type=file description=Debian sid file-based chroot priority=3 groups=sbuild file=/srv/chroots/sid.tar.gz run-setup-scripts=true run-exec-scripts=true [sid-snapshot] type=lvm-snapshot description=Debian unstable LVM snapshot priority=3 groups=sbuild root-groups=root device=/dev/hda_vg/sid_chroot mount-options=-o atime,sync,user_xattr lvm-snapshot-options=--size 2G run-setup-scripts=true run-exec-scripts=true " test Schroot.lns get conf = { "#comment" = "Sample configuration" } { } { "sid" { "type" = "plain" } { "description" = "Debian unstable" } { "description" = "Debian instable" { "lang" = "fr_FR" } } { "location" = "/srv/chroot/sid" } { "priority" = "3" } { "groups" = "sbuild" } { "root-groups" = "root" } { "aliases" = "unstable,default" } { } } { "etch" { "type" = "block-device" } { "description" = "Debian testing" } { "priority" = "2" } { "#comment" = "groups=sbuild-security" } { "aliases" = "testing" } { "device" = "/dev/hda_vg/etch_chroot" } { "mount-options" = "-o atime" } { "run-setup-scripts" = "true" } { "run-exec-scripts" = "true" } { } } { "sid-file" { "type" = "file" } { "description" = "Debian sid file-based chroot" } { "priority" = "3" } { "groups" = "sbuild" } { "file" = "/srv/chroots/sid.tar.gz" } { "run-setup-scripts" = "true" } { "run-exec-scripts" = "true" } { } } { "sid-snapshot" { "type" = "lvm-snapshot" } { "description" = "Debian unstable LVM snapshot" } { "priority" = "3" } { "groups" = "sbuild" } { "root-groups" = "root" } { "device" = "/dev/hda_vg/sid_chroot" } { "mount-options" = "-o atime,sync,user_xattr" } { "lvm-snapshot-options" = "--size 2G" } { "run-setup-scripts" = "true" } { "run-exec-scripts" = "true" } } PK ! �SCx x # lenses/dist/tests/test_services.augnu �[��� (* Tests for the Services module *) module Test_services = let example = "# a comment tcpmux 1/tcp # TCP port service multiplexer echo 7/udp discard 9/tcp sink null systat 11/tcp users # another comment whois++ 63/tcp z39.50 210/tcp z3950 wais # NISO Z39.50 database \n" test Services.lns get example = { "#comment" = "a comment" } { } { "service-name" = "tcpmux" { "port" = "1" } { "protocol" = "tcp" } { "#comment" = "TCP port service multiplexer" } } { "service-name" = "echo" { "port" = "7" } { "protocol" = "udp" } } { "service-name" = "discard" { "port" = "9" } { "protocol" = "tcp" } { "alias" = "sink" } { "alias" = "null" } } { "service-name" = "systat" { "port" = "11" } { "protocol" = "tcp" } { "alias" = "users" } } { "#comment" = "another comment" } { "service-name" = "whois++" { "port" = "63" } { "protocol" = "tcp" } } { "service-name" = "z39.50" { "port" = "210" } { "protocol" = "tcp" } { "alias" = "z3950" } { "alias" = "wais" } { "#comment" = "NISO Z39.50 database" } } (* We completely suppress empty comments *) test Services.record get "mtp\t\t1911/tcp\t\t\t#\n" = { "service-name" = "mtp" { "port" = "1911" } { "protocol" = "tcp" } } (* And comments with one space in *) test Services.lns get "mtp\t\t\t1911/tcp\t\t\t# \nfoo 123/tcp\n" = { "service-name" = "mtp" { "port" = "1911" } { "protocol" = "tcp" } } { "service-name" = "foo" { "port" = "123" } { "protocol" = "tcp" } } test Services.lns get "sql*net\t\t66/tcp\t\t\t# Oracle SQL*NET\n" = { "service-name" = "sql*net" { "port" = "66" } { "protocol" = "tcp" } { "#comment" = "Oracle SQL*NET" } } (* Fake service to check that we allow enoughspecial characters *) test Services.lns get "special.*+-/chars\t0/proto\n" = { "service-name" = "special.*+-/chars" { "port" = "0" } { "protocol" = "proto" } } test Services.lns put "tcpmux 1/tcp # some comment\n" after rm "/service-name/#comment" = "tcpmux 1/tcp\n" (* On AIX, port ranges are valid *) test Services.lns get "x11 6000-6063/tcp # X Window System\n" = { "service-name" = "x11" { "start" = "6000" } { "end" = "6063" } { "protocol" = "tcp" } { "#comment" = "X Window System" } } (* Colons permitted in service names, RHBZ#1121263 *) test Services.lns get "SWRPC.ACCESS.BSS:BS_rmq 48102/tcp # SWIFTAlliance_SWRPC ACCESS\n" = { "service-name" = "SWRPC.ACCESS.BSS:BS_rmq" { "port" = "48102" } { "protocol" = "tcp" } { "#comment" = "SWIFTAlliance_SWRPC ACCESS" } } PK ! �fkx x % lenses/dist/tests/test_properties.augnu �[��� module Test_properties = let conf = " # # Test tomcat properties file #tomcat.commented.value=1 # config tomcat.port = 8080 tomcat.application.name=testapp tomcat.application.description=my test application property.with_underscore=works empty.property= empty.property.withtrailingspaces= \n! more comments key: value key2:value2 key3 :value3 key4:=value4 key5\"=value5 key6/c=value6 long.description=this is a description that happens to span \ more than one line with a combination of tabs and \ spaces \ \nor not # comment break short.break = a\ b =empty_key =empty_key cheeses spaces only multi spaces indented spaces \= =A space and = equals space with \ multiline escaped\:colon=value escaped\=equals=value escaped\ space=value " (* Other tests that aren't supported yet overflow.description=\ just wanted to indent it *) let lns = Properties.lns test lns get conf = { } { } { "#comment" = "Test tomcat properties file" } { "#comment" = "tomcat.commented.value=1" } { "#comment" = "config" } { "tomcat.port" = "8080" } { "tomcat.application.name" = "testapp" } { "tomcat.application.description" = "my test application" } { "property.with_underscore" = "works" } { "empty.property" } { "empty.property.withtrailingspaces" } { "!comment" = "more comments" } { "key" = "value" } { "key2" = "value2" } { "key3" = "value3" } { "key4" = "=value4" } { "key5\"" = "value5" } { "key6/c" = "value6" } {} { "long.description" = " < multi > " { = "this is a description that happens to span " } { = "more than one line with a combination of tabs and " } { = "spaces " } { = "or not" } } {} { "#comment" = "comment break" } {} { "short.break" = " < multi > " { = "a" } { = "b" } } {} { = "empty_key" } { = "empty_key" } {} { "cheeses" } {} { "spaces" = "only" } { "multi" = "spaces" } { "indented" = "spaces" } {} { "\\=" = "A" } { "space" = "and = equals" } { "space" = " < multi > " { = "with " } { = "multiline" } } {} { "escaped\:colon" = "value" } { "escaped\=equals" = "value" } { "escaped\ space" = "value" } test lns put conf after set "tomcat.port" "99"; set "tomcat.application.host" "foo.network.com" = " # # Test tomcat properties file #tomcat.commented.value=1 # config tomcat.port = 99 tomcat.application.name=testapp tomcat.application.description=my test application property.with_underscore=works empty.property= empty.property.withtrailingspaces= \n! more comments key: value key2:value2 key3 :value3 key4:=value4 key5\"=value5 key6/c=value6 long.description=this is a description that happens to span \ more than one line with a combination of tabs and \ spaces \ \nor not # comment break short.break = a\ b =empty_key =empty_key cheeses spaces only multi spaces indented spaces \= =A space and = equals space with \ multiline escaped\:colon=value escaped\=equals=value escaped\ space=value tomcat.application.host=foo.network.com " (* GH issue #19: value on new line *) test lns get "k=\ b\ c\n" = { "k" = " < multi > " { } { = "b" } { = "c" } } test lns get "tomcat.util.scan.DefaultJarScanner.jarsToSkip=\ bootstrap.jar,commons-daemon.jar,tomcat-juli.jar\n" = { "tomcat.util.scan.DefaultJarScanner.jarsToSkip" = " < multi > " { } { = "bootstrap.jar,commons-daemon.jar,tomcat-juli.jar" } } test lns get "# comment\r\na.b=val\r\nx=\r\n" = { "#comment" = "comment" } { "a.b" = "val" } { "x" } test lns get "# \r\n! \r\n" = { } { } PK ! =���B �B " lenses/dist/tests/test_termcap.augnu �[��� module Test_termcap = (* Sample termcap entry with escaped ':''s *) let termcap = "vt420pc|DEC VT420 w/PC keyboard:\\ :@7=\\E[4~:F1=\\E[23~:F2=\\E[24~:F3=\\E[11;2~:F4=\\E[12;2~:\\ :F5=\\E[13;2~:F6=\\E[14;2~:F7=\\E[15;2~:F8=\\E[17;2~:\\ :F9=\\E[18;2~:FA=\\E[19;2~:FB=\\E[20;2~:FC=\\E[21;2~:\\ :FD=\\E[23;2~:FE=\\E[24;2~:FF=\\E[23~:FG=\\E[24~:FH=\\E[25~:\\ :FI=\\E[26~:FJ=\\E[28~:FK=\\E[29~:FL=\\E[31~:FM=\\E[32~:\\ :FN=\\E[33~:FO=\\E[34~:FP=\\E[35~:FQ=\\E[36~:FR=\\E[23;2~:\\ :FS=\\E[24;2~:FT=\\E[25;2~:FU=\\E[26;2~:FV=\\E[28;2~:\\ :FW=\\E[29;2~:FX=\\E[31;2~:FY=\\E[32;2~:FZ=\\E[33;2~:\\ :Fa=\\E[34;2~:Fb=\\E[35;2~:Fc=\\E[36;2~:\\ :S6=USR_TERM\\:vt420pcdos\\::k1=\\E[11~:k2=\\E[12~:\\ :k3=\\E[13~:k4=\\E[14~:k5=\\E[15~:k6=\\E[17~:k7=\\E[18~:\\ :k8=\\E[19~:k9=\\E[20~:k;=\\E[21~:kD=\\177:kh=\\E[H:\\ :..px=\\EP1;1|%?%{16}%p1%>%t%{0}%e%{21}%p1%>%t%{1}%e%{25}%p1%>%t%{2}%e%{27}%p1%>%t%{3}%e%{30}%p1%>%t%{4}%e%{5}%;%p1%+%d/%p2%s\E\\\\:\\ :tc=vt420: " test Termcap.lns get termcap = { "record" { "name" = "vt420pc" } { "name" = "DEC VT420 w/PC keyboard" } { "capability" = "@7=\\E[4~" } { "capability" = "F1=\\E[23~" } { "capability" = "F2=\\E[24~" } { "capability" = "F3=\\E[11;2~" } { "capability" = "F4=\\E[12;2~" } { "capability" = "F5=\\E[13;2~" } { "capability" = "F6=\\E[14;2~" } { "capability" = "F7=\\E[15;2~" } { "capability" = "F8=\\E[17;2~" } { "capability" = "F9=\\E[18;2~" } { "capability" = "FA=\\E[19;2~" } { "capability" = "FB=\\E[20;2~" } { "capability" = "FC=\\E[21;2~" } { "capability" = "FD=\\E[23;2~" } { "capability" = "FE=\\E[24;2~" } { "capability" = "FF=\\E[23~" } { "capability" = "FG=\\E[24~" } { "capability" = "FH=\\E[25~" } { "capability" = "FI=\\E[26~" } { "capability" = "FJ=\\E[28~" } { "capability" = "FK=\\E[29~" } { "capability" = "FL=\\E[31~" } { "capability" = "FM=\\E[32~" } { "capability" = "FN=\\E[33~" } { "capability" = "FO=\\E[34~" } { "capability" = "FP=\\E[35~" } { "capability" = "FQ=\\E[36~" } { "capability" = "FR=\\E[23;2~" } { "capability" = "FS=\\E[24;2~" } { "capability" = "FT=\\E[25;2~" } { "capability" = "FU=\\E[26;2~" } { "capability" = "FV=\\E[28;2~" } { "capability" = "FW=\\E[29;2~" } { "capability" = "FX=\\E[31;2~" } { "capability" = "FY=\\E[32;2~" } { "capability" = "FZ=\\E[33;2~" } { "capability" = "Fa=\\E[34;2~" } { "capability" = "Fb=\\E[35;2~" } { "capability" = "Fc=\\E[36;2~" } { "capability" = "S6=USR_TERM\\:vt420pcdos\\:" } { "capability" = "k1=\\E[11~" } { "capability" = "k2=\\E[12~" } { "capability" = "k3=\\E[13~" } { "capability" = "k4=\\E[14~" } { "capability" = "k5=\\E[15~" } { "capability" = "k6=\\E[17~" } { "capability" = "k7=\\E[18~" } { "capability" = "k8=\\E[19~" } { "capability" = "k9=\\E[20~" } { "capability" = "k;=\\E[21~" } { "capability" = "kD=\\177" } { "capability" = "kh=\\E[H" } { "capability" = "..px=\\EP1;1|%?%{16}%p1%>%t%{0}%e%{21}%p1%>%t%{1}%e%{25}%p1%>%t%{2}%e%{27}%p1%>%t%{3}%e%{30}%p1%>%t%{4}%e%{5}%;%p1%+%d/%p2%s\\E\\\\" } { "capability" = "tc=vt420" } } let termcap2 = "tws-generic|dku7102|Bull Questar tws terminals:\\ :am:es:hs:mi:ms:xn:xo:xs@:\\ :co#80:it#8:li#24:ws#80:\\ :AL=\\E[%dL:DC=\\E[%dP:DL=\\E[%dM:DO=\\E[%dB:LE=\\E[%dD:\\ :RI=\\E[%dC:UP=\\E[%dA:al=\\E[L:bl=^G:bt=\\E[Z:cd=\\E[J:ce=\\E[K:\\ :cl=\\E[2J:cm=\\E[%i%d;%df:cr=^M:ct=\\E[3g:dc=\\E[P:dl=\\E[M:\\ :do=^J:ds=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2J\\E[v:ei=\\E[4l:\\ :fs=\\E[v:ho=\\E[H:i1=\\E[?=h\\Ec\\E`\\E[?>h\\EPY99\\:98\\E\\\\\\\\:\\ :i2=\\Eb\\E[?<h:im=\\E[4h:\\ :is=\\E[5;>;12;18;?<l\\E[=h\\EP1s\\E\\\\\\E[\\027p:\\ :k1=\\E[1u\\027:k2=\\E[2u\\027:k3=\\E[3u\\027:k4=\\E[4u\\027:\\ :k5=\\E[5u\\027:k6=\\E[6u\\027:k7=\\E[7u\\027:k8=\\E[8u\\027:\\ :kD=\\E[P:kb=^H:kd=\\E[B:kh=\\E[H:kl=\\E[D:kr=\\E[C:ku=\\E[A:\\ :le=^H:ll=\\E[H\\E[A:mb=\\E[0;5m:me=\\E[0m\\017:mh=\\E[0;2m:\\ :mr=\\E[0;7m:nd=\\E[C:rs=\\E[?=h\\Ec:se=\\E[m:sf=^J:so=\\E[0;7m:\\ :st=\\EH:ta=\\E[I:te=\\E[0;98v\\E[2J\\E[v:\\ :ti=\\E[?>h\\EPY99\\:98\\E\\\\\\\\:\\ :ts=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2;7m:ue=\\E[m:up=\\E[A:\\ :us=\\E[0;4m:ve=\\E[r:vi=\\E[1r: " test Termcap.lns get termcap2 = { "record" { "name" = "tws-generic" } { "name" = "dku7102" } { "name" = "Bull Questar tws terminals" } { "capability" = "am" } { "capability" = "es" } { "capability" = "hs" } { "capability" = "mi" } { "capability" = "ms" } { "capability" = "xn" } { "capability" = "xo" } { "capability" = "xs@" } { "capability" = "co#80" } { "capability" = "it#8" } { "capability" = "li#24" } { "capability" = "ws#80" } { "capability" = "AL=\\E[%dL" } { "capability" = "DC=\\E[%dP" } { "capability" = "DL=\\E[%dM" } { "capability" = "DO=\\E[%dB" } { "capability" = "LE=\\E[%dD" } { "capability" = "RI=\\E[%dC" } { "capability" = "UP=\\E[%dA" } { "capability" = "al=\\E[L" } { "capability" = "bl=^G" } { "capability" = "bt=\\E[Z" } { "capability" = "cd=\\E[J" } { "capability" = "ce=\\E[K" } { "capability" = "cl=\\E[2J" } { "capability" = "cm=\\E[%i%d;%df" } { "capability" = "cr=^M" } { "capability" = "ct=\\E[3g" } { "capability" = "dc=\\E[P" } { "capability" = "dl=\\E[M" } { "capability" = "do=^J" } { "capability" = "ds=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2J\\E[v" } { "capability" = "ei=\\E[4l" } { "capability" = "fs=\\E[v" } { "capability" = "ho=\\E[H" } { "capability" = "i1=\\E[?=h\\Ec\\E`\\E[?>h\\EPY99\\:98\\E\\\\\\\\" } { "capability" = "i2=\\Eb\\E[?<h" } { "capability" = "im=\\E[4h" } { "capability" = "is=\\E[5;>;12;18;?<l\\E[=h\\EP1s\\E\\\\\\E[\\027p" } { "capability" = "k1=\\E[1u\\027" } { "capability" = "k2=\\E[2u\\027" } { "capability" = "k3=\\E[3u\\027" } { "capability" = "k4=\\E[4u\\027" } { "capability" = "k5=\\E[5u\\027" } { "capability" = "k6=\\E[6u\\027" } { "capability" = "k7=\\E[7u\\027" } { "capability" = "k8=\\E[8u\\027" } { "capability" = "kD=\\E[P" } { "capability" = "kb=^H" } { "capability" = "kd=\\E[B" } { "capability" = "kh=\\E[H" } { "capability" = "kl=\\E[D" } { "capability" = "kr=\\E[C" } { "capability" = "ku=\\E[A" } { "capability" = "le=^H" } { "capability" = "ll=\\E[H\\E[A" } { "capability" = "mb=\\E[0;5m" } { "capability" = "me=\\E[0m\\017" } { "capability" = "mh=\\E[0;2m" } { "capability" = "mr=\\E[0;7m" } { "capability" = "nd=\\E[C" } { "capability" = "rs=\\E[?=h\\Ec" } { "capability" = "se=\\E[m" } { "capability" = "sf=^J" } { "capability" = "so=\\E[0;7m" } { "capability" = "st=\\EH" } { "capability" = "ta=\\E[I" } { "capability" = "te=\\E[0;98v\\E[2J\\E[v" } { "capability" = "ti=\\E[?>h\\EPY99\\:98\\E\\\\\\\\" } { "capability" = "ts=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2;7m" } { "capability" = "ue=\\E[m" } { "capability" = "up=\\E[A" } { "capability" = "us=\\E[0;4m" } { "capability" = "ve=\\E[r" } { "capability" = "vi=\\E[1r" } } let termcap3 = "stv52|MiNT virtual console:\\ :am:ms:\\ :co#80:it#8:li#30:\\ :%1=\\EH:&8=\\EK:F1=\\Ep:F2=\\Eq:F3=\\Er:F4=\\Es:F5=\\Et:F6=\\Eu:\\ :F7=\\Ev:F8=\\Ew:F9=\\Ex:FA=\\Ey:al=\\EL:bl=^G:cd=\\EJ:ce=\\EK:\\ :cl=\\EE:cm=\\EY%+ %+ :cr=^M:dl=\\EM:do=\\EB:ho=\\EH:k1=\\EP:\\ :k2=\\EQ:k3=\\ER:k4=\\ES:k5=\\ET:k6=\\EU:k7=\\EV:k8=\\EW:k9=\\EX:\\ :k;=\\EY:kD=\\177:kI=\\EI:kN=\\Eb:kP=\\Ea:kb=^H:kd=\\EB:kh=\\EE:\\ :kl=\\ED:kr=\\EC:ku=\\EA:le=^H:mb=\\Er:md=\\EyA:me=\\Ez_:mh=\\Em:\\ :mr=\\Ep:nd=\\EC:nw=2*\\r\\n:op=\\Eb@\\EcO:r1=\\Ez_\\Eb@\\EcA:\\ :se=\\Eq:sf=2*\\n:so=\\Ep:sr=2*\\EI:ta=^I:te=\\Ev\\E. \\Ee\\Ez_:\\ :ti=\\Ev\\Ee\\Ez_:ue=\\EzH:up=\\EA:us=\\EyH:ve=\\E. \\Ee:vi=\\Ef:\\ :vs=\\E.\": " test Termcap.lns get termcap3 = { "record" { "name" = "stv52" } { "name" = "MiNT virtual console" } { "capability" = "am" } { "capability" = "ms" } { "capability" = "co#80" } { "capability" = "it#8" } { "capability" = "li#30" } { "capability" = "%1=\\EH" } { "capability" = "&8=\\EK" } { "capability" = "F1=\\Ep" } { "capability" = "F2=\\Eq" } { "capability" = "F3=\\Er" } { "capability" = "F4=\\Es" } { "capability" = "F5=\\Et" } { "capability" = "F6=\\Eu" } { "capability" = "F7=\\Ev" } { "capability" = "F8=\\Ew" } { "capability" = "F9=\\Ex" } { "capability" = "FA=\\Ey" } { "capability" = "al=\\EL" } { "capability" = "bl=^G" } { "capability" = "cd=\\EJ" } { "capability" = "ce=\\EK" } { "capability" = "cl=\\EE" } { "capability" = "cm=\\EY%+ %+ " } { "capability" = "cr=^M" } { "capability" = "dl=\\EM" } { "capability" = "do=\\EB" } { "capability" = "ho=\\EH" } { "capability" = "k1=\\EP" } { "capability" = "k2=\\EQ" } { "capability" = "k3=\\ER" } { "capability" = "k4=\\ES" } { "capability" = "k5=\\ET" } { "capability" = "k6=\\EU" } { "capability" = "k7=\\EV" } { "capability" = "k8=\\EW" } { "capability" = "k9=\\EX" } { "capability" = "k;=\\EY" } { "capability" = "kD=\\177" } { "capability" = "kI=\\EI" } { "capability" = "kN=\\Eb" } { "capability" = "kP=\\Ea" } { "capability" = "kb=^H" } { "capability" = "kd=\\EB" } { "capability" = "kh=\\EE" } { "capability" = "kl=\\ED" } { "capability" = "kr=\\EC" } { "capability" = "ku=\\EA" } { "capability" = "le=^H" } { "capability" = "mb=\\Er" } { "capability" = "md=\\EyA" } { "capability" = "me=\\Ez_" } { "capability" = "mh=\\Em" } { "capability" = "mr=\\Ep" } { "capability" = "nd=\\EC" } { "capability" = "nw=2*\\r\\n" } { "capability" = "op=\\Eb@\\EcO" } { "capability" = "r1=\\Ez_\\Eb@\\EcA" } { "capability" = "se=\\Eq" } { "capability" = "sf=2*\\n" } { "capability" = "so=\\Ep" } { "capability" = "sr=2*\\EI" } { "capability" = "ta=^I" } { "capability" = "te=\\Ev\\E. \\Ee\\Ez_" } { "capability" = "ti=\\Ev\\Ee\\Ez_" } { "capability" = "ue=\\EzH" } { "capability" = "up=\\EA" } { "capability" = "us=\\EyH" } { "capability" = "ve=\\E. \\Ee" } { "capability" = "vi=\\Ef" } { "capability" = "vs=\\E.\"" } } let termcap4 = "rbcomm|IBM PC with RBcomm and EMACS keybindings:\\ :am:bw:mi:ms:xn:\\ :co#80:it#8:li#25:\\ :AL=\\E[%dL:DL=\\E[%dM:al=^K:bl=^G:bt=\\E[Z:cd=^F5:ce=^P^P:\\ :cl=^L:cm=\\037%r%+ %+ :cr=^M:cs=\\E[%i%d;%dr:dc=^W:dl=^Z:\\ :dm=:do=^C:ec=\\E[%dX:ed=:ei=^]:im=^\\:\\ :is=\\017\\035\\E(B\\E)0\\E[?7h\\E[?3l\\E[>8g:kb=^H:kd=^N:\\ :ke=\\E>:kh=^A:kl=^B:kr=^F:ks=\\E=:ku=^P:le=^H:mb=\\E[5m:\\ :md=\\E[1m:me=\\E[m:mk=\\E[8m:mr=^R:nd=^B:nw=^M\\ED:\\ :r1=\\017\\E(B\\E)0\\025\\E[?3l\\E[>8g:rc=\\E8:rp=\\030%.%.:\\ :sc=\\E7:se=^U:sf=\\ED:so=^R:sr=\\EM:ta=^I:te=:ti=:ue=^U:up=^^:\\ :us=^T:ve=\\E[?25h:vi=\\E[?25l: " test Termcap.lns get termcap4 = { "record" { "name" = "rbcomm" } { "name" = "IBM PC with RBcomm and EMACS keybindings" } { "capability" = "am" } { "capability" = "bw" } { "capability" = "mi" } { "capability" = "ms" } { "capability" = "xn" } { "capability" = "co#80" } { "capability" = "it#8" } { "capability" = "li#25" } { "capability" = "AL=\\E[%dL" } { "capability" = "DL=\\E[%dM" } { "capability" = "al=^K" } { "capability" = "bl=^G" } { "capability" = "bt=\\E[Z" } { "capability" = "cd=^F5" } { "capability" = "ce=^P^P" } { "capability" = "cl=^L" } { "capability" = "cm=\\037%r%+ %+ " } { "capability" = "cr=^M" } { "capability" = "cs=\\E[%i%d;%dr" } { "capability" = "dc=^W" } { "capability" = "dl=^Z" } { "capability" = "dm=" } { "capability" = "do=^C" } { "capability" = "ec=\\E[%dX" } { "capability" = "ed=" } { "capability" = "ei=^]" } { "capability" = "im=^\\" } { "capability" = "is=\\017\\035\\E(B\\E)0\\E[?7h\\E[?3l\\E[>8g" } { "capability" = "kb=^H" } { "capability" = "kd=^N" } { "capability" = "ke=\\E>" } { "capability" = "kh=^A" } { "capability" = "kl=^B" } { "capability" = "kr=^F" } { "capability" = "ks=\\E=" } { "capability" = "ku=^P" } { "capability" = "le=^H" } { "capability" = "mb=\\E[5m" } { "capability" = "md=\\E[1m" } { "capability" = "me=\\E[m" } { "capability" = "mk=\\E[8m" } { "capability" = "mr=^R" } { "capability" = "nd=^B" } { "capability" = "nw=^M\\ED" } { "capability" = "r1=\\017\\E(B\\E)0\\025\\E[?3l\\E[>8g" } { "capability" = "rc=\\E8" } { "capability" = "rp=\\030%.%." } { "capability" = "sc=\\E7" } { "capability" = "se=^U" } { "capability" = "sf=\\ED" } { "capability" = "so=^R" } { "capability" = "sr=\\EM" } { "capability" = "ta=^I" } { "capability" = "te=" } { "capability" = "ti=" } { "capability" = "ue=^U" } { "capability" = "up=^^" } { "capability" = "us=^T" } { "capability" = "ve=\\E[?25h" } { "capability" = "vi=\\E[?25l" } } let termcap5 = "rxvt+pcfkeys|fragment for PC-style fkeys:\\ :#2=\\E[7$:#3=\\E[2$:#4=\\E[d:%c=\\E[6$:%e=\\E[5$:%i=\\E[c:\\ :*4=\\E[3$:*6=\\E[4~:*7=\\E[8$:@0=\\E[1~:@7=\\E[8~:F1=\\E[23~:\\ :F2=\\E[24~:F3=\\E[25~:F4=\\E[26~:F5=\\E[28~:F6=\\E[29~:\\ :F7=\\E[31~:F8=\\E[32~:F9=\\E[33~:FA=\\E[34~:FB=\\E[23$:\\ :FC=\\E[24$:FD=\\E[11\\136:FE=\\E[12\\136:FF=\\E[13\\136:FG=\\E[14\\136:\\ :FH=\\E[15\\136:FI=\\E[17\\136:FJ=\\E[18\\136:FK=\\E[19\\136:FL=\\E[20\\136:\\ :FM=\\E[21\\136:FN=\\E[23\\136:FO=\\E[24\\136:FP=\\E[25\\136:FQ=\\E[26\\136:\\ :FR=\\E[28\\136:FS=\\E[29\\136:FT=\\E[31\\136:FU=\\E[32\\136:FV=\\E[33\\136:\\ :FW=\\E[34\\136:FX=\\E[23@:FY=\\E[24@:k1=\\E[11~:k2=\\E[12~:\\ :k3=\\E[13~:k4=\\E[14~:k5=\\E[15~:k6=\\E[17~:k7=\\E[18~:\\ :k8=\\E[19~:k9=\\E[20~:k;=\\E[21~:kD=\\E[3~:kE=\\E[8\\136:kF=\\E[a:\\ :kI=\\E[2~:kN=\\E[6~:kP=\\E[5~:kR=\\E[b:kd=\\E[B:kh=\\E[7~:\\ :kl=\\E[D:kr=\\E[C:ku=\\E[A: " test Termcap.lns get termcap5 = { "record" { "name" = "rxvt+pcfkeys" } { "name" = "fragment for PC-style fkeys" } { "capability" = "#2=\\E[7$" } { "capability" = "#3=\\E[2$" } { "capability" = "#4=\\E[d" } { "capability" = "%c=\\E[6$" } { "capability" = "%e=\\E[5$" } { "capability" = "%i=\\E[c" } { "capability" = "*4=\\E[3$" } { "capability" = "*6=\\E[4~" } { "capability" = "*7=\\E[8$" } { "capability" = "@0=\\E[1~" } { "capability" = "@7=\\E[8~" } { "capability" = "F1=\\E[23~" } { "capability" = "F2=\\E[24~" } { "capability" = "F3=\\E[25~" } { "capability" = "F4=\\E[26~" } { "capability" = "F5=\\E[28~" } { "capability" = "F6=\\E[29~" } { "capability" = "F7=\\E[31~" } { "capability" = "F8=\\E[32~" } { "capability" = "F9=\\E[33~" } { "capability" = "FA=\\E[34~" } { "capability" = "FB=\\E[23$" } { "capability" = "FC=\\E[24$" } { "capability" = "FD=\\E[11\\136" } { "capability" = "FE=\\E[12\\136" } { "capability" = "FF=\\E[13\\136" } { "capability" = "FG=\\E[14\\136" } { "capability" = "FH=\\E[15\\136" } { "capability" = "FI=\\E[17\\136" } { "capability" = "FJ=\\E[18\\136" } { "capability" = "FK=\\E[19\\136" } { "capability" = "FL=\\E[20\\136" } { "capability" = "FM=\\E[21\\136" } { "capability" = "FN=\\E[23\\136" } { "capability" = "FO=\\E[24\\136" } { "capability" = "FP=\\E[25\\136" } { "capability" = "FQ=\\E[26\\136" } { "capability" = "FR=\\E[28\\136" } { "capability" = "FS=\\E[29\\136" } { "capability" = "FT=\\E[31\\136" } { "capability" = "FU=\\E[32\\136" } { "capability" = "FV=\\E[33\\136" } { "capability" = "FW=\\E[34\\136" } { "capability" = "FX=\\E[23@" } { "capability" = "FY=\\E[24@" } { "capability" = "k1=\\E[11~" } { "capability" = "k2=\\E[12~" } { "capability" = "k3=\\E[13~" } { "capability" = "k4=\\E[14~" } { "capability" = "k5=\\E[15~" } { "capability" = "k6=\\E[17~" } { "capability" = "k7=\\E[18~" } { "capability" = "k8=\\E[19~" } { "capability" = "k9=\\E[20~" } { "capability" = "k;=\\E[21~" } { "capability" = "kD=\\E[3~" } { "capability" = "kE=\\E[8\\136" } { "capability" = "kF=\\E[a" } { "capability" = "kI=\\E[2~" } { "capability" = "kN=\\E[6~" } { "capability" = "kP=\\E[5~" } { "capability" = "kR=\\E[b" } { "capability" = "kd=\\E[B" } { "capability" = "kh=\\E[7~" } { "capability" = "kl=\\E[D" } { "capability" = "kr=\\E[C" } { "capability" = "ku=\\E[A" } } PK ! Ey��g g " lenses/dist/tests/test_gshadow.augnu �[��� module Test_Gshadow = let conf = "root:x:: uucp:x:: sudo:x:suadmin1,suadmin2:coadmin1,coadmin2 " test Gshadow.lns get conf = { "root" { "password" = "x" } } { "uucp" { "password" = "x" } } { "sudo" { "password" = "x" } { "admin" = "suadmin1" } { "admin" = "suadmin2" } { "member" = "coadmin1" } { "member" = "coadmin2" } } PK ! ή�� # lenses/dist/tests/test_pbuilder.augnu �[��� module Test_Pbuilder = let conf = "BASETGZ=/var/cache/pbuilder/base.tgz #EXTRAPACKAGES=gcc3.0-athlon-builder export DEBIAN_BUILDARCH=athlon BUILDPLACE=/var/cache/pbuilder/build/ MIRRORSITE=http://ftp.jp.debian.org/debian " test Pbuilder.lns get conf = { "BASETGZ" = "/var/cache/pbuilder/base.tgz" } { "#comment" = "EXTRAPACKAGES=gcc3.0-athlon-builder" } { "DEBIAN_BUILDARCH" = "athlon" { "export" } } { "BUILDPLACE" = "/var/cache/pbuilder/build/" } { "MIRRORSITE" = "http://ftp.jp.debian.org/debian" } PK ! �"� lenses/dist/tests/test_samba.augnu �[��� module Test_samba = let conf = "# # Sample configuration file for the Samba suite for Debian GNU/Linux. # # # This is the main Samba configuration file. You should read the # smb.conf(5) manual page in order to understand the options listed # here. Samba has a huge number of configurable options most of which # are not shown in this example # #======================= Global Settings ======================= [global] ## Browsing/Identification ### # Change this to the workgroup/NT-domain name your Samba server will part of workgroup = WORKGROUP # server string is the equivalent of the NT Description field server string = %h server (Samba, Ubuntu) # Windows Internet Name Serving Support Section: # WINS Support - Tells the NMBD component of Samba to enable its WINS Server ; wins support = no # Windows clients look for this share name as a source of downloadable # printer drivers [print$] comment = All Printers browseable = no path = /tmp printable = yes public = yes writable = no create mode = 0700 printcap name = /etc/printcap print command = /usr/bin/lpr -P%p -r %s printing = cups " test Samba.lns get conf = {} { "#comment" = "Sample configuration file for the Samba suite for Debian GNU/Linux." } {} {} { "#comment" = "This is the main Samba configuration file. You should read the" } { "#comment" = "smb.conf(5) manual page in order to understand the options listed" } { "#comment" = "here. Samba has a huge number of configurable options most of which" } { "#comment" = "are not shown in this example" } {} {} { "#comment" = "======================= Global Settings =======================" } {} { "target" = "global" {} { "#comment" = "# Browsing/Identification ###" } {} { "#comment" = "Change this to the workgroup/NT-domain name your Samba server will part of" } { "workgroup" = "WORKGROUP" } {} { "#comment" = "server string is the equivalent of the NT Description field" } { "server string" = "%h server (Samba, Ubuntu)" } {} { "#comment" = "Windows Internet Name Serving Support Section:" } { "#comment" = "WINS Support - Tells the NMBD component of Samba to enable its WINS Server" } { "#comment" = "wins support = no" } {} { "#comment" = "Windows clients look for this share name as a source of downloadable" } { "#comment" = "printer drivers" } } { "target" = "print$" { "comment" = "All Printers" } { "browseable" = "no" } { "path" = "/tmp" } { "printable" = "yes" } { "public" = "yes" } { "writable" = "no" } { "create mode" = "0700" } { "printcap name" = "/etc/printcap" } { "print command" = "/usr/bin/lpr -P%p -r %s" } { "printing" = "cups" } } test Samba.lns get "[test]\ncrazy:entry = foo\n" = { "target" = "test" {"crazy:entry" = "foo"}} (* Test complex idmap commands with asterisk in key name, ticket #354 *) test Samba.lns get "[test] idmap backend = tdb idmap uid = 1000000-1999999 idmap gid = 1000000-1999999 idmap config CORP : backend = ad idmap config * : range = 1000-999999\n" = { "target" = "test" { "idmap backend" = "tdb" } { "idmap uid" = "1000000-1999999" } { "idmap gid" = "1000000-1999999" } { } { "idmap config CORP : backend" = "ad" } { "idmap config * : range" = "1000-999999" } } PK ! �|l�I I # lenses/dist/tests/test_modprobe.augnu �[��� module Test_modprobe = (* Based on 04config.sh from module-init-tools *) let conf = "# Various aliases alias alias_to_foo foo alias alias_to_bar bar alias alias_to_export_dep-$BITNESS export_dep-$BITNESS # Various options, including options to aliases. options alias_to_export_dep-$BITNESS I am alias to export_dep options alias_to_noexport_nodep-$BITNESS_with_tabbed_options index=0 id=\"Thinkpad\" isapnp=0 \\ \tport=0x530 cport=0x538 fm_port=0x388 \\ \tmpu_port=-1 mpu_irq=-1 \\ \tirq=9 dma1=1 dma2=3 \\ \tenable=1 isapnp=0 # Blacklist blacklist watchdog_drivers \t # Install commands install bar echo Installing bar install foo echo Installing foo install export_nodep-$BITNESS echo Installing export_nodep # Remove commands remove bar echo Removing bar remove foo echo Removing foo remove export_nodep-$BITNESS echo Removing export_nodep # Softdep softdep uhci-hcd post: foo softdep uhci-hcd pre: ehci-hcd foo softdep uhci-hcd pre: ehci-hcd foo post: foo " test Modprobe.lns get conf = { "#comment" = "Various aliases" } { "alias" = "alias_to_foo" { "modulename" = "foo" } } { "alias" = "alias_to_bar" { "modulename" = "bar" } } { "alias" = "alias_to_export_dep-$BITNESS" { "modulename" = "export_dep-$BITNESS" } } { } { "#comment" = "Various options, including options to aliases." } { "options" = "alias_to_export_dep-$BITNESS" { "I" } { "am" } { "alias" } { "to" } { "export_dep" } } { "options" = "alias_to_noexport_nodep-$BITNESS_with_tabbed_options" { "index" = "0" } { "id" = "\"Thinkpad\"" } { "isapnp" = "0" } { "port" = "0x530" } { "cport" = "0x538" } { "fm_port" = "0x388" } { "mpu_port" = "-1" } { "mpu_irq" = "-1" } { "irq" = "9" } { "dma1" = "1" } { "dma2" = "3" } { "enable" = "1" } { "isapnp" = "0" } } { } { "#comment" = "Blacklist" } { "blacklist" = "watchdog_drivers" } { } { "#comment" = "Install commands" } { "install" = "bar" { "command" = "echo Installing bar" } } { "install" = "foo" { "command" = "echo Installing foo" } } { "install" = "export_nodep-$BITNESS" { "command" = "echo Installing export_nodep" } } { } { "#comment" = "Remove commands" } { "remove" = "bar" { "command" = "echo Removing bar" } } { "remove" = "foo" { "command" = "echo Removing foo" } } { "remove" = "export_nodep-$BITNESS" { "command" = "echo Removing export_nodep" } } { } { "#comment" = "Softdep" } { "softdep" = "uhci-hcd" { "post" = "foo" } } { "softdep" = "uhci-hcd" { "pre" = "ehci-hcd" } { "pre" = "foo" } } { "softdep" = "uhci-hcd" { "pre" = "ehci-hcd" } { "pre" = "foo" } { "post" = "foo" } } (* eol-comments *) test Modprobe.lns get "blacklist brokenmodule # never worked\n" = { "blacklist" = "brokenmodule" { "#comment" = "never worked" } } (* Ticket 108 *) let options_space_quote = "options name attr1=\"val\" attr2=\"val2 val3\"\n" test Modprobe.entry get options_space_quote = { "options" = "name" { "attr1" = "\"val\"" } { "attr2" = "\"val2 val3\"" } } (* Allow spaces around the '=', BZ 826752 *) test Modprobe.entry get "options ipv6 disable = 1\n" = { "options" = "ipv6" { "disable" = "1" } } (* Support multiline split commands, Ubuntu bug #1054306 *) test Modprobe.lns get "# /etc/modprobe.d/iwlwifi.conf # iwlwifi will dyamically load either iwldvm or iwlmvm depending on the # microcode file installed on the system. When removing iwlwifi, first # remove the iwl?vm module and then iwlwifi. remove iwlwifi \ (/sbin/lsmod | grep -o -e ^iwlmvm -e ^iwldvm -e ^iwlwifi | xargs /sbin/rmmod) \ && /sbin/modprobe -r mac80211\n" = { "#comment" = "/etc/modprobe.d/iwlwifi.conf" } { "#comment" = "iwlwifi will dyamically load either iwldvm or iwlmvm depending on the" } { "#comment" = "microcode file installed on the system. When removing iwlwifi, first" } { "#comment" = "remove the iwl?vm module and then iwlwifi." } { "remove" = "iwlwifi" { "command" = "(/sbin/lsmod | grep -o -e ^iwlmvm -e ^iwldvm -e ^iwlwifi | xargs /sbin/rmmod) \\\n&& /sbin/modprobe -r mac80211" } } PK ! ��m m lenses/dist/tests/test_ceph.augnu �[��� module Test_ceph = let ceph_simple = "[global] ### http://ceph.com/docs/master/rados/configuration/general-config-ref/ fsid = b4b2e571-fbbf-4ff3-a9f8-ab80f08b7fe6 # use `uuidgen` to generate your own UUID public network = 192.168.0.0/24 cluster network = 192.168.0.0/24 " let ceph_extended = "## # Sample ceph ceph.conf file. ## # This file defines cluster membership, the various locations # that Ceph stores data, and any other runtime options. [global] ; Start-line comment log file = /var/log/ceph/$cluster-$name.log ; End-line comment [mon.alpha] host = alpha mon addr = 192.168.0.10:6789 [mon.beta] host = beta mon addr = 192.168.0.11:6789 [mon.gamma] host = gamma mon addr = 192.168.0.12:6789 [mon] mon initial members = mycephhost mon host = cephhost01,cephhost02 mon addr = 192.168.0.101,192.168.0.102 mon osd nearfull ratio = .85 # logging, for debugging monitor crashes, in order of # their likelihood of being helpful :) debug ms = 1 debug mon = 20 debug paxos = 20 debug auth = 20 [mds] osd max backfills = 5 #osd mkfs type = {fs-type} #osd mkfs options {fs-type} = {mkfs options} # default for xfs is \"-f\" #osd mount options {fs-type} = {mount options} # default mount option is \"rw, noatime\" osd mkfs type = btrfs osd mount options btrfs = noatime,nodiratime journal dio = false debug ms = 1 debug osd = 20 debug filestore = 20 debug journal = 20 filestore merge threshold = 10 osd crush update on start = false [osd.0] host = delta [osd.1] host = epsilon [osd.2] host = zeta [osd.3] host = eta rgw dns name = radosgw.ceph.internal " test Ceph.lns get ceph_simple = { "global" { "#comment" = "## http://ceph.com/docs/master/rados/configuration/general-config-ref/" } { } { "fsid" = "b4b2e571-fbbf-4ff3-a9f8-ab80f08b7fe6" { "#comment" = "use `uuidgen` to generate your own UUID" } } { "public network" = "192.168.0.0/24" } { "cluster network" = "192.168.0.0/24" } } test Ceph.lns get ceph_extended = { "#comment" = "#" } { "#comment" = "Sample ceph ceph.conf file." } { "#comment" = "#" } { "#comment" = "This file defines cluster membership, the various locations" } { "#comment" = "that Ceph stores data, and any other runtime options." } { } { "global" { "#comment" = "Start-line comment" } { "log file" = "/var/log/ceph/$cluster-$name.log" { "#comment" = "End-line comment" } } { } } { "mon.alpha" { "host" = "alpha" } { "mon addr" = "192.168.0.10:6789" } { } } { "mon.beta" { "host" = "beta" } { "mon addr" = "192.168.0.11:6789" } { } } { "mon.gamma" { "host" = "gamma" } { "mon addr" = "192.168.0.12:6789" } { } { } } { "mon" { "mon initial members" = "mycephhost" } { } { "mon host" = "cephhost01,cephhost02" } { "mon addr" = "192.168.0.101,192.168.0.102" } { } { "mon osd nearfull ratio" = ".85" } { } { "#comment" = "logging, for debugging monitor crashes, in order of" } { "#comment" = "their likelihood of being helpful :)" } { "debug ms" = "1" } { "debug mon" = "20" } { "debug paxos" = "20" } { "debug auth" = "20" } { } } { "mds" { } { "osd max backfills" = "5" } { } { "#comment" = "osd mkfs type = {fs-type}" } { "#comment" = "osd mkfs options {fs-type} = {mkfs options} # default for xfs is \"-f\"" } { "#comment" = "osd mount options {fs-type} = {mount options} # default mount option is \"rw, noatime\"" } { "osd mkfs type" = "btrfs" } { "osd mount options btrfs" = "noatime,nodiratime" } { "journal dio" = "false" } { } { "debug ms" = "1" } { "debug osd" = "20" } { "debug filestore" = "20" } { "debug journal" = "20" } { } { "filestore merge threshold" = "10" } { } { "osd crush update on start" = "false" } { } } { "osd.0" { "host" = "delta" } { } } { "osd.1" { "host" = "epsilon" } { } } { "osd.2" { "host" = "zeta" } { } } { "osd.3" { "host" = "eta" } { } { "rgw dns name" = "radosgw.ceph.internal" } } PK ! A;��� � ( lenses/dist/tests/test_vmware_config.augnu �[��� (* Module: Test_VMware_Config Provides unit tests and examples for the <VMware_Config> lens. *) module Test_VMware_Config = (* Variable: conf *) let conf = "libdir = \"/usr/lib/vmware\" dhcpd.fullpath = \"/usr/bin/vmnet-dhcpd\" authd.fullpath = \"/usr/sbin/vmware-authd\" authd.client.port = \"902\" loop.fullpath = \"/usr/bin/vmware-loop\" vmware.fullpath = \"/usr/bin/vmware\" control.fullpath = \"/usr/bin/vmware-cmd\" serverd.fullpath = \"/usr/sbin/vmware-serverd\" wizard.fullpath = \"/usr/bin/vmware-wizard\" serverd.init.fullpath = \"/usr/lib/vmware/serverd/init.pl\" serverd.vpxuser = \"vpxuser\" serverd.snmpdconf.subagentenabled = \"TRUE\" template.useFlatDisks = \"TRUE\" autoStart.defaultStartDelay = \"60\" autoStart.enabled = \"True\" autoStart.defaultStopDelay = \"60\" " (* Test: VMware_Config.lns *) test VMware_Config.lns get conf = { "libdir" = "/usr/lib/vmware" } { "dhcpd.fullpath" = "/usr/bin/vmnet-dhcpd" } { "authd.fullpath" = "/usr/sbin/vmware-authd" } { "authd.client.port" = "902" } { "loop.fullpath" = "/usr/bin/vmware-loop" } { "vmware.fullpath" = "/usr/bin/vmware" } { "control.fullpath" = "/usr/bin/vmware-cmd" } { "serverd.fullpath" = "/usr/sbin/vmware-serverd" } { "wizard.fullpath" = "/usr/bin/vmware-wizard" } { "serverd.init.fullpath" = "/usr/lib/vmware/serverd/init.pl" } { "serverd.vpxuser" = "vpxuser" } { "serverd.snmpdconf.subagentenabled" = "TRUE" } { "template.useFlatDisks" = "TRUE" } { "autoStart.defaultStartDelay" = "60" } { "autoStart.enabled" = "True" } { "autoStart.defaultStopDelay" = "60" } (* Test: VMware_Config.lns Quotes are not mandatory *) test VMware_Config.lns get "xkeymap.nokeycodeMap = true\n" = { "xkeymap.nokeycodeMap" = "true" } PK ! �f2�� � % lenses/dist/tests/test_interfaces.augnu �[��� module Test_interfaces = let conf ="# This file describes the network interfaces available on your system # and how to activate them. For more information, see interfaces(5). # The loopback network interface source /etc/network/interfaces.d/*.conf auto lo eth0 #foo allow-hotplug eth1 iface lo inet \ loopback mapping eth0 script /usr/local/sbin/map-scheme map HOME eth0-home map \ WORK eth0-work iface eth0-home inet static address 192.168.1.1 netmask 255.255.255.0 bridge_maxwait 0 # up flush-mail down Mambo #5 iface eth0-work inet dhcp allow-auto eth1 iface eth1 inet dhcp iface tap0 inet static vde2-switch - mapping eth1 # I like mapping ... # ... and I like comments script\ /usr/local/sbin/map-scheme iface bond0 inet dhcp bridge-ports eth2 eth3 eth4 iface br0 inet static bond-slaves eth5 eth6 address 10.0.0.1 netmask 255.0.0.0 source /etc/network.d/*.net.conf " test Interfaces.lns get conf = { "#comment" = "This file describes the network interfaces available on your system"} { "#comment" = "and how to activate them. For more information, see interfaces(5)." } { "#comment" = "The loopback network interface" } {} {"source" = "/etc/network/interfaces.d/*.conf"} {} { "auto" { "1" = "lo" } { "2" = "eth0" } { "3" = "#foo" } } { "allow-hotplug" { "1" = "eth1" } } { } { "iface" = "lo" { "family" = "inet"} { "method" = "loopback"} {} } { "mapping" = "eth0" { "script" = "/usr/local/sbin/map-scheme"} { "map" = "HOME eth0-home"} { "map" = "WORK eth0-work"} {} } { "iface" = "eth0-home" { "family" = "inet"} { "method" = "static"} {} { "address" = "192.168.1.1" } { "netmask" = "255.255.255.0" } { "bridge_maxwait" = "0" } { "#comment" = "up flush-mail" } { "down" = "Mambo #5" } {} } { "iface" = "eth0-work" { "family" = "inet"} { "method" = "dhcp"} {} } { "auto" { "1" = "eth1" } } { "iface" = "eth1" { "family" = "inet"} { "method" = "dhcp"} {} } { "iface" = "tap0" { "family" = "inet" } { "method" = "static" } { "vde2-switch" = "-" } {} } { "mapping" = "eth1" { "#comment" = "I like mapping ..." } { "#comment" = "... and I like comments" } {} { "script" = "/usr/local/sbin/map-scheme"} {} } { "iface" = "bond0" { "family" = "inet" } { "method" = "dhcp" } { "bridge-ports" { "1" = "eth2" } { "2" = "eth3" } { "3" = "eth4" } } {} } { "iface" = "br0" { "family" = "inet" } { "method" = "static" } { "bond-slaves" { "1" = "eth5" } { "2" = "eth6" } } { "address" = "10.0.0.1" } { "netmask" = "255.0.0.0" } {} } {"source" = "/etc/network.d/*.net.conf"} test Interfaces.lns put "" after set "/iface[1]" "eth0"; set "/iface[1]/family" "inet"; set "/iface[1]/method" "dhcp" = "iface eth0 inet dhcp\n" test Interfaces.lns put "" after set "/source[0]" "/etc/network/conf.d/*.conf" = "source /etc/network/conf.d/*.conf\n" (* Test: Interfaces.lns source-directory (Issue #306) *) test Interfaces.lns get "source-directory interfaces.d\n" = { "source-directory" = "interfaces.d" } PK ! �~ lenses/dist/tests/test_dput.augnu �[��� module Test_dput = let conf = "# Example dput.cf that defines the host that can be used # with dput for uploading. [DEFAULT] login = username method = ftp hash = md5 allow_unsigned_uploads = 0 run_lintian = 0 run_dinstall = 0 check_version = 0 scp_compress = 0 post_upload_command = pre_upload_command = passive_ftp = 1 default_host_non-us = default_host_main = hebex allowed_distributions = (?!UNRELEASED) [hebex] fqdn = condor.infra.s1.p.fti.net login = anonymous method = ftp incoming = /incoming/hebex passive_ftp = 0 [dop/desktop] fqdn = condor.infra.s1.p.fti.net login = anonymous method = ftp incoming = /incoming/dop/desktop passive_ftp = 0 [jp-non-us] fqdn = hp.debian.or.jp incoming = /pub/Incoming/upload-non-US login = anonymous # DISABLED due to being repaired currently #[erlangen] #fqdn = ftp.uni-erlangen.de #incoming = /public/pub/Linux/debian/UploadQueue/ #login = anonymous [ftp-master] fqdn = ftp-master.debian.org incoming = /pub/UploadQueue/ login = anonymous post_upload_command = /usr/bin/mini-dinstall --batch # And if you want to override one of the defaults, add it here. # # For example, comment out the next line # # login = another_username # # post_upload_command = /path/to/some/script # # pre_upload_command = /path/to/some/script " test Dput.lns get conf = { "#comment" = "Example dput.cf that defines the host that can be used" } { "#comment" = "with dput for uploading." } {} { "target" = "DEFAULT" { "login" = "username" } { "method" = "ftp" } { "hash" = "md5" } { "allow_unsigned_uploads" = "0" } { "run_lintian" = "0" } { "run_dinstall" = "0" } { "check_version" = "0" } { "scp_compress" = "0" } { "post_upload_command" } { "pre_upload_command" } { "passive_ftp" = "1" } { "default_host_non-us" } { "default_host_main" = "hebex" } { "allowed_distributions" = "(?!UNRELEASED)" } {} } { "target" = "hebex" { "fqdn" = "condor.infra.s1.p.fti.net" } { "login" = "anonymous" } { "method" = "ftp" } { "incoming" = "/incoming/hebex" } { "passive_ftp" = "0" } {} } { "target" = "dop/desktop" { "fqdn" = "condor.infra.s1.p.fti.net" } { "login" = "anonymous" } { "method" = "ftp" } { "incoming" = "/incoming/dop/desktop" } { "passive_ftp" = "0" } {} } { "target" = "jp-non-us" { "fqdn" = "hp.debian.or.jp" } { "incoming" = "/pub/Incoming/upload-non-US" } { "login" = "anonymous" } {} { "#comment" = "DISABLED due to being repaired currently" } { "#comment" = "[erlangen]" } { "#comment" = "fqdn = ftp.uni-erlangen.de" } { "#comment" = "incoming = /public/pub/Linux/debian/UploadQueue/" } { "#comment" = "login = anonymous" } {} } { "target" = "ftp-master" { "fqdn" = "ftp-master.debian.org" } { "incoming" = "/pub/UploadQueue/" } { "login" = "anonymous" } { "post_upload_command" = "/usr/bin/mini-dinstall --batch" } { "#comment" = "And if you want to override one of the defaults, add it here." } { "#comment" = "# For example, comment out the next line" } { "#comment" = "# login = another_username" } { "#comment" = "# post_upload_command = /path/to/some/script" } { "#comment" = "# pre_upload_command = /path/to/some/script" } {} } PK ! !}a� � . lenses/dist/tests/test_aptcacherngsecurity.augnu �[��� (* Test for AptCacherNGSecurity lens. About: License Copyright 2013 Erik B. Andersen; this file is licenced under the LGPL v2+. *) module Test_AptCacherNGSecurity = let conf = " # This file contains confidential data and should be protected with file # permissions from being read by untrusted users. # # NOTE: permissions are fixated with dpkg-statoverride on Debian systems. # Read its manual page for details. # Basic authentication with username and password, required to # visit pages with administrative functionality. Format: username:password AdminAuth: mooma:moopa " test AptCacherNGSecurity.lns get conf = {} { "#comment" = "This file contains confidential data and should be protected with file" } { "#comment" = "permissions from being read by untrusted users." } {} { "#comment" = "NOTE: permissions are fixated with dpkg-statoverride on Debian systems." } { "#comment" = "Read its manual page for details." } {} { "#comment" = "Basic authentication with username and password, required to" } { "#comment" = "visit pages with administrative functionality. Format: username:password" } {} { "AdminAuth" { "mooma" = "moopa" } } PK ! 14o5� � lenses/dist/tests/test_rhsm.augnu �[��� (* Module: Test_Rhsm Provides unit tests and examples for the <Rhsm> lens. *) module Test_rhsm = (* Variable: conf A full rhsm.conf *) let conf = "# Red Hat Subscription Manager Configuration File: # Unified Entitlement Platform Configuration [server] # Server hostname: hostname = subscription.rhn.redhat.com # Server prefix: prefix = /subscription # Server port: port = 443 # Set to 1 to disable certificate validation: insecure = 0 # Set the depth of certs which should be checked # when validating a certificate ssl_verify_depth = 3 # an http proxy server to use proxy_hostname = # port for http proxy server proxy_port = # user name for authenticating to an http proxy, if needed proxy_user = # password for basic http proxy auth, if needed proxy_password = [rhsm] # Content base URL: baseurl= https://cdn.redhat.com # Server CA certificate location: ca_cert_dir = /etc/rhsm/ca/ # Default CA cert to use when generating yum repo configs: repo_ca_cert = %(ca_cert_dir)sredhat-uep.pem # Where the certificates should be stored productCertDir = /etc/pki/product entitlementCertDir = /etc/pki/entitlement consumerCertDir = /etc/pki/consumer # Manage generation of yum repositories for subscribed content: manage_repos = 1 # Refresh repo files with server overrides on every yum command full_refresh_on_yum = 0 # If set to zero, the client will not report the package profile to # the subscription management service. report_package_profile = 1 # The directory to search for subscription manager plugins pluginDir = /usr/share/rhsm-plugins # The directory to search for plugin configuration files pluginConfDir = /etc/rhsm/pluginconf.d [rhsmcertd] # Interval to run cert check (in minutes): certCheckInterval = 240 # Interval to run auto-attach (in minutes): autoAttachInterval = 1440 " test Rhsm.lns get conf = { "#comment" = "Red Hat Subscription Manager Configuration File:" } { } { "#comment" = "Unified Entitlement Platform Configuration" } { "server" { "#comment" = "Server hostname:" } { "hostname" = "subscription.rhn.redhat.com" } { } { "#comment" = "Server prefix:" } { "prefix" = "/subscription" } { } { "#comment" = "Server port:" } { "port" = "443" } { } { "#comment" = "Set to 1 to disable certificate validation:" } { "insecure" = "0" } { } { "#comment" = "Set the depth of certs which should be checked" } { "#comment" = "when validating a certificate" } { "ssl_verify_depth" = "3" } { } { "#comment" = "an http proxy server to use" } { "proxy_hostname" } { } { "#comment" = "port for http proxy server" } { "proxy_port" } { } { "#comment" = "user name for authenticating to an http proxy, if needed" } { "proxy_user" } { } { "#comment" = "password for basic http proxy auth, if needed" } { "proxy_password" } { } } { "rhsm" { "#comment" = "Content base URL:" } { "baseurl" = "https://cdn.redhat.com" } { } { "#comment" = "Server CA certificate location:" } { "ca_cert_dir" = "/etc/rhsm/ca/" } { } { "#comment" = "Default CA cert to use when generating yum repo configs:" } { "repo_ca_cert" = "%(ca_cert_dir)sredhat-uep.pem" } { } { "#comment" = "Where the certificates should be stored" } { "productCertDir" = "/etc/pki/product" } { "entitlementCertDir" = "/etc/pki/entitlement" } { "consumerCertDir" = "/etc/pki/consumer" } { } { "#comment" = "Manage generation of yum repositories for subscribed content:" } { "manage_repos" = "1" } { } { "#comment" = "Refresh repo files with server overrides on every yum command" } { "full_refresh_on_yum" = "0" } { } { "#comment" = "If set to zero, the client will not report the package profile to" } { "#comment" = "the subscription management service." } { "report_package_profile" = "1" } { } { "#comment" = "The directory to search for subscription manager plugins" } { "pluginDir" = "/usr/share/rhsm-plugins" } { } { "#comment" = "The directory to search for plugin configuration files" } { "pluginConfDir" = "/etc/rhsm/pluginconf.d" } { } } { "rhsmcertd" { "#comment" = "Interval to run cert check (in minutes):" } { "certCheckInterval" = "240" } { "#comment" = "Interval to run auto-attach (in minutes):" } { "autoAttachInterval" = "1440" } } PK ! ��� � & lenses/dist/tests/test_xendconfsxp.augnu �[��� module Test_xendconfsxp = (* Empty file and comments *) test Xendconfsxp.lns get "\n" = { } test Xendconfsxp.lns get "# my comment\n" = { "#scomment" = " my comment" } test Xendconfsxp.lns get " \n# my comment\n" = { } { "#scomment" = " my comment" } test Xendconfsxp.lns get "# my comment\n\n" = { "#scomment" = " my comment" } { } test Xendconfsxp.lns get "# my comment\n \n" = { "#scomment" = " my comment" } { } test Xendconfsxp.lns get "# my comment\n#com2\n" = { "#scomment" = " my comment" } { "#scomment" = "com2" } test Xendconfsxp.lns get "# my comment\n\n" = { "#scomment" = " my comment" } { } test Xendconfsxp.lns get "\n# my comment\n" = { } { "#scomment" = " my comment" } test Xendconfsxp.lns get "(key value)" = { "key" { "item" = "value" } } test Xendconfsxp.lns get "(key value)\n# com\n" = { "key" { "item" = "value" } } { } { "#scomment" = " com" } test Xendconfsxp.lns get "(k2ey value)" = { "k2ey" { "item" = "value" } } test Xendconfsxp.lns get "(- value)" = { "-" { "item" = "value" } } test Xendconfsxp.lns get "(-bar value)" = { "-bar" { "item" = "value" } } test Xendconfsxp.lns get "(k-ey v-alue)\n# com\n" = { "k-ey" { "item" = "v-alue" } } { } { "#scomment" = " com" } test Xendconfsxp.lns get "(key value)" = { "key" { "item" = "value" } } test Xendconfsxp.lns get "(key value)(key2 value2)" = { "key" { "item" = "value" } } { "key2" { "item" = "value2" } } test Xendconfsxp.lns get "( key value )( key2 value2 )" = { "key" { "item" = "value" } } { "key2" { "item" = "value2" } } let source_7 = "(key value)(key2 value2)" test Xendconfsxp.lns get source_7 = { "key" { "item" = "value" } } { "key2" { "item" = "value2" } } (* 2 items? it is a key/item *) test Xendconfsxp.lns get "(key value)" = { "key" { "item" = "value" } } test Xendconfsxp.lns get "( key value )" = { "key" { "item" = "value" } } (* 3 items? Not allowed. 2nd item must be in ()'s *) test Xendconfsxp.lns get "(key value value2)" = * (* key/list pairs. *) (* 0 item -- TODO: implement this. *) test Xendconfsxp.lns get "( key ())" = * (* 1 item *) test Xendconfsxp.lns get "(key (listitem1) )" = { "key" { "array" { "item" = "listitem1" } } } test Xendconfsxp.lns get "(key ( (foo bar bar bat ) ) )" = { "key" { "array" { "array" { "item" = "foo" } { "item" = "bar" } { "item" = "bar" } { "item" = "bat" } } } } test Xendconfsxp.lns get "(key ((foo foo foo (bar bar bar))))" = { "key" { "array" { "array" { "item" = "foo" } { "item" = "foo" } { "item" = "foo" } { "array" { "item" = "bar" } { "item" = "bar" } { "item" = "bar" } } } } } (* 2 item *) test Xendconfsxp.lns get "(xen-api-server (foo bar))" = { "xen-api-server" { "array" { "item" = "foo" } { "item" = "bar" } } } test Xendconfsxp.lns get "( key ( value value2 ))" = { "key" { "array" { "item" = "value" } { "item" = "value2" } } } (* 3 item *) test Xendconfsxp.lns get "( key ( value value2 value3 ))" = { "key" { "array" { "item" = "value" } { "item" = "value2" } { "item" = "value3" } } } (* quotes *) test Xendconfsxp.lns get "(key \"foo\")" = { "key" { "item" = "\"foo\"" } } test Xendconfsxp.lns get "(key \"\")" = { "key" { "item" = "\"\"" } } test Xendconfsxp.lns get "( key \"foo\" )" = { "key" { "item" = "\"foo\"" } } test Xendconfsxp.lns get "( key \"f oo\" )" = { "key" { "item" = "\"f oo\"" } } test Xendconfsxp.lns get "( key \"f oo\" )" = { "key" { "item" = "\"f oo\"" } } test Xendconfsxp.lns get "(foo \"this is \\\"quoted\\\" in quotes\")" = { "foo" { "item" = "\"this is \\\"quoted\\\" in quotes\"" } } test Xendconfsxp.lns get "( key \"fo\\'\" )" = { "key" { "item" = "\"fo\\'\""} } test Xendconfsxp.lns get "( key \"fo\\'\" )" = { "key" { "item" = "\"fo\\'\""} } test Xendconfsxp.lns get "( key \"\")" = { "key" { "item" = "\"\"" } } (* Newlines in strange places *) test Xendconfsxp.lns get "(\nkey\nbar\n)" = { "key" { "item" = "bar" } } test Xendconfsxp.lns get "(\n\n\nkey\n\n\nbar\n\n\n)" = { "key" { "item" = "bar" } } test Xendconfsxp.lns get "(\nkey\nbar\n)" = { "key" { "item" = "bar" } } (* Comments in strange places *) test Xendconfsxp.lns get "(\nkey #aa\nbar)" = { "key" { "#comment" = "aa" } { "item" = "bar" } } test Xendconfsxp.lns get "(\nkey\n#aa\nbar)" = { "key" { "#comment" = "aa" } { "item" = "bar" } } test Xendconfsxp.lns get "(\nkey\n #aa\nbar)" = { "key" { "#comment" = "aa" } { "item" = "bar" } } (* Comments must have 1 space before the # *) test Xendconfsxp.lns get "(\nkey# com\nbar\n)" = * test Xendconfsxp.lns get "(\nkey#aa\nbar)" = * (* Comments may start a line *) test Xendconfsxp.lns get "(\nkey\n# com\nbar)" = { "key" { "#comment" = "com" } { "item" = "bar" } } test Xendconfsxp.lns get "(\nkey\n#aa\nbar)" = { "key" { "#comment" = "aa" } { "item" = "bar" } } (* Sub lists *) test Xendconfsxp.lns get "(key ((foo foo) (bar bar)))" = { "key" { "array" { "array" { "item" = "foo" } { "item" = "foo" } } { "array" { "item" = "bar" } { "item" = "bar" } } } } test Xendconfsxp.lns get "(aaa ((bbb ccc ddd) (eee fff)))" = { "aaa" { "array" { "array" { "item" = "bbb" } { "item" = "ccc" } { "item" = "ddd" } } { "array" { "item" = "eee" } { "item" = "fff" } } } } (* Comments in strange places *) test Xendconfsxp.lns get "(\nkey\nbar # bb\n)" = { "key" { "item" = "bar" } { "#comment" = "bb" } } test Xendconfsxp.lns get "(\nkey\nbar \n#cc\n)" = { "key" { "item" = "bar" } { "#comment" = "cc" } } test Xendconfsxp.lns get "(\nkey\nbar \n #cc\n)" = { "key" { "item" = "bar" } { "#comment" = "cc" } } test Xendconfsxp.lns get "(\nkey\nbar \n #cc\n )" = { "key" { "item" = "bar" } { "#comment" = "cc" } } test Xendconfsxp.lns get "(foo ((foo foo foo) (unix none)))" = { "foo" { "array" { "array" { "item" = "foo" } { "item" = "foo" } { "item" = "foo" } } { "array" { "item" = "unix" } { "item" = "none" } } } } test Xendconfsxp.lns get "(foo ((foo foo 'foo') (unix none)))" = { "foo" { "array" { "array" { "item" = "foo" } { "item" = "foo" } { "item" = "'foo'" } } { "array" { "item" = "unix" } { "item" = "none" } } } } test Xendconfsxp.lns get "(xen-api-server ((9363 pam '^localhost$ example\\.com$') (unix none)))" = { "xen-api-server" { "array" { "array" { "item" = "9363" } { "item" = "pam" } { "item" = "'^localhost$ example\.com$'" } } { "array" { "item" = "unix" } { "item" = "none" } } } } test Xendconfsxp.lns get "# -*- sh -*-\n#foo\n#bar\n\n\n(foo bar)" = { "#scomment" = " -*- sh -*-" } { "#scomment" = "foo" } { "#scomment" = "bar" } { } { } { "foo" { "item" = "bar" } } (* Test whitespace before lparen *) test Xendconfsxp.lns get " (network-script network-bridge)\n#\n" = { "network-script" { "item" = "network-bridge" } } { } { "#scomment" = "" } (* Bugs: *) (* Note: It works if you change the last \n to \t *) test Xendconfsxp.lns get "(\nkey\n# com\nbar\n)" = * PK ! V��w� � ! lenses/dist/tests/test_approx.augnu �[��� (* Module: Test_Approx Provides unit tests and examples for the <Approx> lens. *) module Test_approx = (* Variable: default_approx A full configuration *) let default_approx = "# The following are the defaults, so there is no need # to uncomment them unless you want a different value. # See approx.conf(5) for details. $interface any $port 9999 $interval 720 $max_wait 10 $max_rate unlimited $debug false # Here are some examples of remote repository mappings. # See http://www.debian.org/mirror/list for mirror sites. debian http://ftp.nl.debian.org/debian debian-volatile http://ftp.nl.debian.org/debian-volatile security http://security.debian.org " (* Test: Approx.lns Testing <Approx.lns> on <default_approx> *) test Approx.lns get default_approx = { "#comment" = "The following are the defaults, so there is no need" } { "#comment" = "to uncomment them unless you want a different value." } { "#comment" = "See approx.conf(5) for details." } { } { "$interface" = "any" } { "$port" = "9999" } { "$interval" = "720" } { "$max_wait" = "10" } { "$max_rate" = "unlimited" } { "$debug" = "false" } { } { "#comment" = "Here are some examples of remote repository mappings." } { "#comment" = "See http://www.debian.org/mirror/list for mirror sites." } { } { "debian" = "http://ftp.nl.debian.org/debian" } { "debian-volatile" = "http://ftp.nl.debian.org/debian-volatile" } { "security" = "http://security.debian.org" } PK ! z1�� � & lenses/dist/tests/test_pylonspaste.augnu �[��� module Test_Pylonspaste = let pylons_conf ="# baruwa - Pylons configuration # The %(here)s variable will be replaced with the parent directory of this file [uwsgi] socket = /var/run/baruwa/baruwa.sock processes = 5 uid = baruwa daemonize = /var/log/uwsgi/uwsgi-baruwa.log [server:main] use = egg:Paste#http host = 0.0.0.0 port = 5000 [app:main] use = egg:baruwa full_stack = true static_files = false set debug = false [identifiers] plugins = form;browser auth_tkt [authenticators] plugins = sa_auth baruwa_pop3_auth baruwa_imap_auth baruwa_smtp_auth baruwa_ldap_auth baruwa_radius_auth " test Pylonspaste.lns get pylons_conf = { "#comment" = "baruwa - Pylons configuration" } { "#comment" = "The %(here)s variable will be replaced with the parent directory of this file" } { "uwsgi" { "socket" = "/var/run/baruwa/baruwa.sock" } { "processes" = "5" } { "uid" = "baruwa" } { "daemonize" = "/var/log/uwsgi/uwsgi-baruwa.log" } { } } { "server:main" { "use" = "egg:Paste#http" } { "host" = "0.0.0.0" } { "port" = "5000" } { } } { "app:main" { "use" = "egg:baruwa" } { "full_stack" = "true" } { "static_files" = "false" } { "debug" = "false" } { } } { "identifiers" { "plugins" { "1" = "form;browser" } { "2" = "auth_tkt" } } {} } { "authenticators" { "plugins" { "1" = "sa_auth" } { "2" = "baruwa_pop3_auth" } { "3" = "baruwa_imap_auth" } { "4" = "baruwa_smtp_auth" } { "5" = "baruwa_ldap_auth" } { "6" = "baruwa_radius_auth" } } } PK ! ��-#g g # lenses/dist/tests/test_hostname.augnu �[��� module Test_Hostname = test Hostname.lns get "local.localnet\n" = { "hostname" = "local.localnet" } PK ! �!o � � lenses/dist/tests/test_util.augnu �[��� module Test_Util = test Util.empty_c_style get "/* */\n" = { } test Util.comment_multiline get "/* comment */\n" = { "#mcomment" { "1" = "comment" } } test Util.comment_multiline get "/*\ncomment\n*/\n" = { "#mcomment" { "1" = "comment" } } test Util.comment_multiline get "/** * Multi line comment * */\n" = { "#mcomment" { "1" = "*" } { "2" = "* Multi line comment" } { "3" = "*" } } PK ! À�� � lenses/dist/tests/test_toml.augnu �[��� module Test_Toml = (* Test: Toml.norec String value *) test Toml.norec get "\"foo\"" = { "string" = "foo" } (* Test: Toml.norec Integer value *) test Toml.norec get "42" = { "integer" = "42" } (* Test: Toml.norec Positive integer value *) test Toml.norec get "+42" = { "integer" = "+42" } (* Test: Toml.norec Negative integer value *) test Toml.norec get "-42" = { "integer" = "-42" } (* Test: Toml.norec Large integer value *) test Toml.norec get "5_349_221" = { "integer" = "5_349_221" } (* Test: Toml.norec Hexadecimal integer value *) test Toml.norec get "0xDEADBEEF" = { "integer" = "0xDEADBEEF" } (* Test: Toml.norec Octal integer value *) test Toml.norec get "0o755" = { "integer" = "0o755" } (* Test: Toml.norec Binary integer value *) test Toml.norec get "0b11010110" = { "integer" = "0b11010110" } (* Test: Toml.norec Float value *) test Toml.norec get "3.14" = { "float" = "3.14" } (* Test: Toml.norec Positive float value *) test Toml.norec get "+3.14" = { "float" = "+3.14" } (* Test: Toml.norec Negative float value *) test Toml.norec get "-3.14" = { "float" = "-3.14" } (* Test: Toml.norec Complex float value *) test Toml.norec get "-3_220.145_223e-34" = { "float" = "-3_220.145_223e-34" } (* Test: Toml.norec Inf float value *) test Toml.norec get "-inf" = { "float" = "-inf" } (* Test: Toml.norec Nan float value *) test Toml.norec get "-nan" = { "float" = "-nan" } (* Test: Toml.norec Bool value *) test Toml.norec get "true" = { "bool" = "true" } (* Test: Toml.norec Datetime value *) test Toml.norec get "1979-05-27T07:32:00Z" = { "datetime" = "1979-05-27T07:32:00Z" } test Toml.norec get "1979-05-27 07:32:00.999999" = { "datetime" = "1979-05-27 07:32:00.999999" } (* Test: Toml.norec Date value *) test Toml.norec get "1979-05-27" = { "date" = "1979-05-27" } (* Test: Toml.norec Time value *) test Toml.norec get "07:32:00" = { "time" = "07:32:00" } (* Test: Toml.norec String value with newline *) test Toml.norec get "\"bar\nbaz\"" = { "string" = "bar\nbaz" } (* Test: Toml.norec Multiline value *) test Toml.norec get "\"\"\"\nbar\nbaz\n \"\"\"" = { "string_multi" = "bar\nbaz" } (* Test: Toml.norec Literal string value *) test Toml.norec get "'bar\nbaz'" = { "string_literal" = "bar\nbaz" } (* Test: Toml.array_norec Empty array *) test Toml.array_norec get "[ ]" = { "array" {} } (* Test: Toml.array_norec Array of strings *) test Toml.array_norec get "[ \"foo\", \"bar\" ]" = { "array" {} { "string" = "foo" } {} { "string" = "bar" } {} } (* Test: Toml.array_norec Array of arrays *) test Toml.array_rec get "[ [ \"foo\", [ 42, 43 ] ], \"bar\" ]" = { "array" {} { "array" {} { "string" = "foo" } {} { "array" {} { "integer" = "42" } {} { "integer" = "43" } {} } {} } {} { "string" = "bar" } {} } (* Test: Toml.lns Global parameters *) test Toml.lns get "# Globals foo = \"bar\"\n" = { "#comment" = "Globals" } { "entry" = "foo" { "string" = "bar" } } (* Test: Toml.lns Simple section/value *) test Toml.lns get "[foo] bar = \"baz\"\n" = { "table" = "foo" { "entry" = "bar" { "string" = "baz" } } } (* Test: Toml.lns Subsections *) test Toml.lns get "[foo] title = \"bar\" [foo.one] hello = \"world\"\n" = { "table" = "foo" { "entry" = "title" { "string" = "bar" } } } { "table" = "foo.one" { "entry" = "hello" { "string" = "world" } } } (* Test: Toml.lns Nested subsections *) test Toml.lns get "[foo] [foo.one] [foo.one.two] bar = \"baz\"\n" = { "table" = "foo" } { "table" = "foo.one" } { "table" = "foo.one.two" { "entry" = "bar" { "string" = "baz" } } } (* Test: Toml.lns Arrays of tables *) test Toml.lns get "[[products]] name = \"Hammer\" sku = 738594937 [[products]] [[products]] name = \"Nail\" sku = 284758393 color = \"gray\"\n" = { "@table" = "products" { "entry" = "name" { "string" = "Hammer" } } { "entry" = "sku" { "integer" = "738594937" } } { } } { "@table" = "products" { } } { "@table" = "products" { "entry" = "name" { "string" = "Nail" } } { "entry" = "sku" { "integer" = "284758393" } } { "entry" = "color" { "string" = "gray" } } } (* Test: Toml.entry Empty inline table *) test Toml.entry get "name = { }\n" = { "entry" = "name" { "inline_table" { } } } (* Test: Toml.entry Inline table *) test Toml.entry get "name = { first = \"Tom\", last = \"Preston-Werner\" }\n" = { "entry" = "name" { "inline_table" {} { "entry" = "first" { "string" = "Tom" } } {} { "entry" = "last" { "string" = "Preston-Werner" } } {} } } (* Test: Toml.entry Array value in inline_table *) test Toml.entry get "foo = { bar = [\"baz\"] }\n" = { "entry" = "foo" { "inline_table" {} { "entry" = "bar" { "array" { "string" = "baz" } } } {} } } (* Variable: example The example from https://github.com/mojombo/toml *) let example = "# This is a TOML document. Boom. title = \"TOML Example\" [owner] name = \"Tom Preston-Werner\" organization = \"GitHub\" bio = \"GitHub Cofounder & CEO\nLikes tater tots and beer.\" dob = 1979-05-27T07:32:00Z # First class dates? Why not? [database] server = \"192.168.1.1\" ports = [ 8001, 8001, 8002 ] connection_max = 5000 enabled = true [servers] # You can indent as you please. Tabs or spaces. TOML don't care. [servers.alpha] ip = \"10.0.0.1\" dc = \"eqdc10\" [servers.beta] ip = \"10.0.0.2\" dc = \"eqdc10\" country = \"中国\" # This should be parsed as UTF-8 [clients] data = [ [\"gamma\", \"delta\"], [1, 2] ] # just an update to make sure parsers support it # Line breaks are OK when inside arrays hosts = [ \"alpha\", \"omega\" ] # Products [[products]] name = \"Hammer\" sku = 738594937 [[products]] name = \"Nail\" sku = 284758393 color = \"gray\" " test Toml.lns get example = { "#comment" = "This is a TOML document. Boom." } { } { "entry" = "title" { "string" = "TOML Example" } } { } { "table" = "owner" { "entry" = "name" { "string" = "Tom Preston-Werner" } } { "entry" = "organization" { "string" = "GitHub" } } { "entry" = "bio" { "string" = "GitHub Cofounder & CEO Likes tater tots and beer." } } { "entry" = "dob" { "datetime" = "1979-05-27T07:32:00Z" } { "#comment" = "First class dates? Why not?" } } { } } { "table" = "database" { "entry" = "server" { "string" = "192.168.1.1" } } { "entry" = "ports" { "array" { } { "integer" = "8001" } { } { "integer" = "8001" } { } { "integer" = "8002" } { } } } { "entry" = "connection_max" { "integer" = "5000" } } { "entry" = "enabled" { "bool" = "true" } } { } } { "table" = "servers" { } { "#comment" = "You can indent as you please. Tabs or spaces. TOML don't care." } } { "table" = "servers.alpha" { "entry" = "ip" { "string" = "10.0.0.1" } } { "entry" = "dc" { "string" = "eqdc10" } } { } } { "table" = "servers.beta" { "entry" = "ip" { "string" = "10.0.0.2" } } { "entry" = "dc" { "string" = "eqdc10" } } { "entry" = "country" { "string" = "中国" } { "#comment" = "This should be parsed as UTF-8" } } { } } { "table" = "clients" { "entry" = "data" { "array" { } { "array" { "string" = "gamma" } { } { "string" = "delta" } } { } { "array" { "integer" = "1" } { } { "integer" = "2" } } { } } { "#comment" = "just an update to make sure parsers support it" } } { } { "#comment" = "Line breaks are OK when inside arrays" } { "entry" = "hosts" { "array" { } { "string" = "alpha" } { } { "string" = "omega" } { } } } { } { "#comment" = "Products" } { } } { "@table" = "products" { "entry" = "name" { "string" = "Hammer" } } { "entry" = "sku" { "integer" = "738594937" } } { } } { "@table" = "products" { "entry" = "name" { "string" = "Nail" } } { "entry" = "sku" { "integer" = "284758393" } } { "entry" = "color" { "string" = "gray" } } } PK ! �XH�� � lenses/dist/tests/test_nrpe.augnu �[��� module Test_nrpe = let command = "command[foo]=bar\n" test Nrpe.command get command = { "command" { "foo" = "bar" } } let item = "nrpe_user=nagios\n" test Nrpe.item get item = { "nrpe_user" = "nagios" } let include = "include=/path/to/file.cfg\n" test Nrpe.include get include = { "include" { "file" = "/path/to/file.cfg" } } let comment = "# a comment\n" test Nrpe.comment get comment = { "#comment" = "a comment" } let empty = "# \n" test Nrpe.empty get empty = { } (* Debian bug #749919 *) let allowed_hosts_1 = "allowed_hosts=127.0.0.1\n" test Nrpe.item get allowed_hosts_1 = { "allowed_hosts" = "127.0.0.1" } let allowed_hosts_2 = "allowed_hosts=127.0.0.1, 127.0.0.2\n" test Nrpe.item get allowed_hosts_2 = { "allowed_hosts" = "127.0.0.1, 127.0.0.2" } let lns = " # # server address: server_address=127.0.0.1 nrpe_user=nagios nrpe_group=nagios include=/etc/nrpe_local.cfg command[check_users]=/usr/lib/nagios/check_users -w 5 -c 10 command[check_load]=/usr/lib/nagios/check_load -w 15,10,5 -c 30,25,20 command[check_mongoscl_proc]=/usr/lib64/nagios/plugins/check_procs -c 1:1 --ereg-argument-array=mongosCL command[test_command]= foo bar \n include=/etc/nrpe/nrpe.cfg include_dir=/etc/nrpe/cfgdir/ \n # trailing whitespaces \n" test Nrpe.lns get lns = { } { } { "#comment" = "server address:" } { "server_address" = "127.0.0.1" } { } { "nrpe_user" = "nagios" } { "nrpe_group" = "nagios" } { } { "include" { "file" = "/etc/nrpe_local.cfg" } } { } { "command" { "check_users" = "/usr/lib/nagios/check_users -w 5 -c 10" } } { "command" { "check_load" = "/usr/lib/nagios/check_load -w 15,10,5 -c 30,25,20" } } { "command" { "check_mongoscl_proc" = "/usr/lib64/nagios/plugins/check_procs -c 1:1 --ereg-argument-array=mongosCL" } } { "command" { "test_command" = " foo bar " } } { } { "include" { "file" = "/etc/nrpe/nrpe.cfg" } } { "include_dir" { "dir" = "/etc/nrpe/cfgdir/" } } { } { "#comment" = "trailing whitespaces" } PK ! ��Щ $ lenses/dist/tests/test_cron_user.augnu �[��� module Test_Cron_User = let s = "MAILTO=cron@example.com 31 * * * * ${HOME}/bin/stuff 54 16 * * * /usr/sbin/tmpwatch -umc 30d ${HOME}/tmp\n" let lns = Cron_User.lns test lns get s = { "MAILTO" = "cron@example.com" } { "entry" = "${HOME}/bin/stuff" { "time" { "minute" = "31" } { "hour" = "*" } { "dayofmonth" = "*" } { "month" = "*" } { "dayofweek" = "*" } } } { "entry" = "/usr/sbin/tmpwatch -umc 30d ${HOME}/tmp" { "time" { "minute" = "54" } { "hour" = "16" } { "dayofmonth" = "*" } { "month" = "*" } { "dayofweek" = "*" } } } test lns put s after rm "/MAILTO"; rm "/entry[time/minute = '54']"; set "/entry[. = '${HOME}/bin/stuff']/time/minute" "24" = "24 * * * * ${HOME}/bin/stuff\n" PK ! �s:� � ! lenses/dist/tests/test_passwd.augnu �[��� module Test_Passwd = let conf = "root:x:0:0:root:/root:/bin/bash libuuid:x:100:101::/var/lib/libuuid:/bin/sh free:x:1000:1000:Free Ekanayaka,,,:/home/free:/bin/bash root:*:0:0:Charlie &:/root:/bin/csh " test Passwd.lns get conf = { "root" { "password" = "x" } { "uid" = "0" } { "gid" = "0" } { "name" = "root" } { "home" = "/root" } { "shell" = "/bin/bash" } } { "libuuid" { "password" = "x" } { "uid" = "100" } { "gid" = "101" } { "name" } { "home" = "/var/lib/libuuid" } { "shell" = "/bin/sh" } } { "free" { "password" = "x" } { "uid" = "1000" } { "gid" = "1000" } { "name" = "Free Ekanayaka,,," } { "home" = "/home/free" } { "shell" = "/bin/bash" } } { "root" { "password" = "*" } { "uid" = "0" } { "gid" = "0" } { "name" = "Charlie &" } { "home" = "/root" } { "shell" = "/bin/csh" } } (* Popular on Solaris *) test Passwd.lns get "+@some-nis-group::::::\n" = { "@nis" = "some-nis-group" } test Passwd.lns get "+\n" = { "@nisdefault" } test Passwd.lns get "+::::::\n" = { "@nisdefault" { "password" = "" } { "uid" = "" } { "gid" = "" } { "name" } { "home" } { "shell" } } test Passwd.lns get "+::::::/sbin/nologin\n" = { "@nisdefault" { "password" = "" } { "uid" = "" } { "gid" = "" } { "name" } { "home" } { "shell" = "/sbin/nologin" } } test Passwd.lns get "+:*:0:0:::\n" = { "@nisdefault" { "password" = "*" } { "uid" = "0" } { "gid" = "0" } { "name" } { "home" } { "shell" } } (* NIS entries with overrides, ticket #339 *) test Passwd.lns get "+@bob:::::/home/bob:/bin/bash\n" = { "@nis" = "bob" { "home" = "/home/bob" } { "shell" = "/bin/bash" } } (* NIS user entries *) test Passwd.lns get "+bob::::::\n" = { "@+nisuser" = "bob" } test Passwd.lns get "+bob::::User Comment:/home/bob:/bin/bash\n" = { "@+nisuser" = "bob" { "name" = "User Comment" } { "home" = "/home/bob" } { "shell" = "/bin/bash" } } test Passwd.lns put "+bob::::::\n" after set "@+nisuser" "alice" = "+alice::::::\n" test Passwd.lns put "+bob::::::\n" after set "@+nisuser/name" "User Comment"; set "@+nisuser/home" "/home/bob"; set "@+nisuser/shell" "/bin/bash" = "+bob::::User Comment:/home/bob:/bin/bash\n" test Passwd.lns get "-bob::::::\n" = { "@-nisuser" = "bob" } test Passwd.lns put "-bob::::::\n" after set "@-nisuser" "alice" = "-alice::::::\n" PK ! !918* * & lenses/dist/tests/test_known_hosts.augnu �[��� (* Module: Test_Known_Hosts Provides unit tests and examples for the <Known_Hosts> lens. *) module Test_Known_Hosts = (* Test: Known_Hosts.lns Simple get test *) test Known_Hosts.lns get "# A comment foo.example.com,foo ecdsa-sha2-nistp256 AAABBBDKDFX= bar.example.com,bar ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef |1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao= ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=\n" = { "#comment" = "A comment" } { "1" = "foo.example.com" { "alias" = "foo" } { "type" = "ecdsa-sha2-nistp256" } { "key" = "AAABBBDKDFX=" } } { "2" = "bar.example.com" { "alias" = "bar" } { "type" = "ssh-ed25519" } { "key" = "AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef" } } { "3" = "|1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao=" { "type" = "ecdsa-sha2-nistp256" } { "key" = "AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=" } } (* Test: Known_Hosts.lns Markers *) test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W @cert-authority *.mydomain.org,*.mydomain.com ssh-rsa AAAAB5W\n" = { "1" = "*" { "@revoked" } { "type" = "ssh-rsa" } { "key" = "AAAAB5W" } } { "2" = "*.mydomain.org" { "@cert-authority" } { "alias" = "*.mydomain.com" } { "type" = "ssh-rsa" } { "key" = "AAAAB5W" } } (* Test: Known_Hosts.lns Eol comment *) test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W # this is revoked\n" = { "1" = "*" { "@revoked" } { "type" = "ssh-rsa" } { "key" = "AAAAB5W" } { "#comment" = "this is revoked" } } PK ! �[+� ) lenses/dist/tests/test_postfix_access.augnu �[��� (* Tests for the Postfix Access module *) module Test_postfix_access = let three_entries = "127.0.0.1 DISCARD You totally suck Really #ok no more comments user@ REJECT " test Postfix_access.record get "127.0.0.1 REJECT\n" = { "1" { "pattern" = "127.0.0.1" } { "action" = "REJECT" } } test Postfix_access.lns get three_entries = { "1" { "pattern" = "127.0.0.1" } { "action" = "DISCARD" } { "parameters" = "You totally suck\n Really" } } {"#comment" = "ok no more comments" } { "2" { "pattern" = "user@" } { "action" = "REJECT" } } test Postfix_access.record put "127.0.0.1 OK\n" after set "/1/action" "REJECT" = "127.0.0.1 REJECT\n" test Postfix_access.lns put three_entries after set "/2/parameters" "Rejected you loser" ; rm "/1/parameters" = "127.0.0.1 DISCARD #ok no more comments user@ REJECT Rejected you loser " (* Deleting the 'action' node violates the schema; each postfix access *) (* entry must have one *) test Postfix_access.lns put three_entries after rm "/1/action" = * (* Make sure blank lines get through *) test Postfix_access.lns get "127.0.0.1\tREJECT \n \n\n user@*\tOK\tI 'll let you in \n\tseriously\n" = { "1" { "pattern" = "127.0.0.1" } { "action" = "REJECT" } } {} {} {} { "2" { "pattern" = "user@*" } { "action" = "OK" } { "parameters" = "I 'll let you in \n\tseriously" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! [״� � # lenses/dist/tests/test_rabbitmq.augnu �[��� (* Module: Test_Rabbitmq Provides unit tests and examples for the <Rabbitmq> lens. *) module Test_Rabbitmq = (* Test: Rabbitmq.listeners *) test Rabbitmq.listeners get "{ssl_listeners, [5671, {\"127.0.0.1\", 5672}]}" = { "ssl_listeners" { "value" = "5671" } { "tuple" { "value" = "127.0.0.1" } { "value" = "5672" } } } (* Test: Rabbitmq.ssl_options *) test Rabbitmq.ssl_options get "{ssl_options, [ {cacertfile,\"/path/to/testca/cacert.pem\"}, {certfile,\"/path/to/server/cert.pem\"}, {keyfile,\"/path/to/server/key.pem\"}, {verify,verify_peer}, {versions, ['tlsv1.2', 'tlsv1.1', 'tlsv1']}, {fail_if_no_peer_cert,false}]}" = { "ssl_options" { "cacertfile" = "/path/to/testca/cacert.pem" } { "certfile" = "/path/to/server/cert.pem" } { "keyfile" = "/path/to/server/key.pem" } { "verify" = "verify_peer" } { "versions" { "value" = "tlsv1.2" } { "value" = "tlsv1.1" } { "value" = "tlsv1" } } { "fail_if_no_peer_cert" = "false" } } (* Test: Rabbitmq.disk_free_limit *) test Rabbitmq.disk_free_limit get "{disk_free_limit, 1000000000}" = { "disk_free_limit" = "1000000000" } (* Test: Rabbitmq.disk_free_limit *) test Rabbitmq.disk_free_limit get "{disk_free_limit, {mem_relative, 1.0}}" = { "disk_free_limit" { "tuple" { "value" = "mem_relative" } { "value" = "1.0" } } } (* Test: Rabbitmq.log_levels *) test Rabbitmq.log_levels get "{log_levels, [{connection, info}]}" = { "log_levels" { "tuple" { "value" = "connection" } { "value" = "info" } } } (* Test: Rabbitmq.cluster_nodes *) test Rabbitmq.cluster_nodes get "{cluster_nodes, {['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], disc}}" = { "cluster_nodes" { "tuple" { "value" { "value" = "rabbit@rabbit1" } { "value" = "rabbit@rabbit2" } { "value" = "rabbit@rabbit3" } } { "value" = "disc" } } } (* Test: Rabbitmq.cluster_nodes Apparently, tuples are not mandatory *) test Rabbitmq.cluster_nodes get "{cluster_nodes, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3']}" = { "cluster_nodes" { "value" = "rabbit@rabbit1" } { "value" = "rabbit@rabbit2" } { "value" = "rabbit@rabbit3" } } (* Test: Rabbitmq.cluster_partition_handling, single value *) test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, ignore}" = { "cluster_partition_handling" = "ignore" } (* Test: Rabbitmq.cluster_partition_handling, tuple *) test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, {pause_if_all_down, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], autoheal}}" = { "cluster_partition_handling" { "tuple" { "value" = "pause_if_all_down" } { "value" { "value" = "rabbit@rabbit1" } { "value" = "rabbit@rabbit2" } { "value" = "rabbit@rabbit3" } } { "value" = "autoheal" } } } (* Test: Rabbitmq.lns Top-level test *) test Rabbitmq.lns get " % A standard configuration [ {rabbit, [ {ssl_listeners, [5671]}, {ssl_options, [{cacertfile,\"/path/to/testca/cacert.pem\"}, {certfile,\"/path/to/server/cert.pem\"}, {keyfile,\"/path/to/server/key.pem\"}, {verify,verify_peer}, {fail_if_no_peer_cert,false}]} ]} ]. % EOF\n" = { } { "#comment" = "A standard configuration" } { "rabbit" { "ssl_listeners" { "value" = "5671" } } { "ssl_options" { "cacertfile" = "/path/to/testca/cacert.pem" } { "certfile" = "/path/to/server/cert.pem" } { "keyfile" = "/path/to/server/key.pem" } { "verify" = "verify_peer" } { "fail_if_no_peer_cert" = "false" } } } { "#comment" = "EOF" } PK ! �EH6� � ) lenses/dist/tests/test_networkmanager.augnu �[��� (* Module: Test_NetworkManager Provides unit tests and examples for the <NetworkManager> lens. *) module Test_NetworkManager = (* Variable: conf *) let conf = "[connection] id=wifoobar uuid=16fa8830-cf15-4523-8c1f-c6c635246855 permissions=user:foo:; type=802-11-wireless [802-11-wireless] ssid=wifoobar mode=infrastructure mac-address=11:00:99:33:33:AA security=802-11-wireless-security [802-11-wireless-security] key-mgmt=none wep-key0=123abc123abc [ipv4] method=auto [ipv6] method=auto [vpn] NAT Traversal Mode=natt DPD idle timeout (our side)=0\n" let conf_psk = "[wifi] ssid=TEST mode=infrastructure [wifi-security] key-mgmt=wpa-psk auth-alg=open psk=\"#weird but valid psk!\"\n" let conf_empty = "" (* Test: NetworkManager.lns *) test NetworkManager.lns get conf = { "connection" { "id" = "wifoobar" } { "uuid" = "16fa8830-cf15-4523-8c1f-c6c635246855" } { "permissions" = "user:foo:;" } { "type" = "802-11-wireless" } { } } { "802-11-wireless" { "ssid" = "wifoobar" } { "mode" = "infrastructure" } { "mac-address" = "11:00:99:33:33:AA" } { "security" = "802-11-wireless-security" } { } } { "802-11-wireless-security" { "key-mgmt" = "none" } { "wep-key0" = "123abc123abc" } { } } { "ipv4" { "method" = "auto" } { } } { "ipv6" { "method" = "auto" } { } } { "vpn" { "NAT Traversal Mode" = "natt" } { "DPD idle timeout (our side)" = "0" } } (* Test: NetworkManager.lns - nontrivial WPA-PSK *) test NetworkManager.lns get conf_psk = { "wifi" { "ssid" = "TEST" } { "mode" = "infrastructure" } { } } { "wifi-security" { "key-mgmt" = "wpa-psk" } { "auth-alg" = "open" } { "psk" = "\"#weird but valid psk!\"" } } (* Test: NetworkManager.lns - write new values unquoted *) test NetworkManager.lns put conf_empty after insa "wifi-security" "/"; set "wifi-security/psk" "#the key" = "[wifi-security] psk=#the key\n" PK ! 9;��" �" lenses/dist/tests/test_quote.augnu �[��� (* Module: Test_Quote Provides unit tests and examples for the <Quote> lens. *) module Test_Quote = (* View: double *) let double = [ label "double" . Quote.double ] (* Test: double *) test double get "\" this is a test\"" = { "double" = " this is a test" } (* View: double_opt *) let double_opt = [ label "double_opt" . Quote.double_opt ] (* Test: double_opt *) test double_opt get "\"this is a test\"" = { "double_opt" = "this is a test" } (* Test: double_opt *) test double_opt get "this is a test" = { "double_opt" = "this is a test" } (* Test: double_opt Value cannot start with a space *) test double_opt get " this is a test" = * (* View: single *) let single = [ label "single" . Quote.single ] (* Test: single *) test single get "' this is a test'" = { "single" = " this is a test" } (* View: single_opt *) let single_opt = [ label "single_opt" . Quote.single_opt ] (* Test: single_opt *) test single_opt get "'this is a test'" = { "single_opt" = "this is a test" } (* Test: single_opt *) test single_opt get "this is a test" = { "single_opt" = "this is a test" } (* Test: single_opt Value cannot start with a space *) test single_opt get " this is a test" = * (* View: any *) let any = [ label "any" . Quote.any ] (* Test: any *) test any get "\" this is a test\"" = { "any" = " this is a test" } (* Test: any *) test any get "' this is a test'" = { "any" = " this is a test" } (* View: any_opt *) let any_opt = [ label "any_opt" . Quote.any_opt ] (* Test: any_opt *) test any_opt get "\"this is a test\"" = { "any_opt" = "this is a test" } (* Test: any_opt *) test any_opt get "'this is a test'" = { "any_opt" = "this is a test" } (* Test: any_opt *) test any_opt get "this is a test" = { "any_opt" = "this is a test" } (* Test: any_opt Value cannot start with a space *) test any_opt get " this is a test" = * (* View: double_opt_allow_spc *) let double_opt_allow_spc = let body = store /[^\n"]+/ in [ label "double" . Quote.do_dquote_opt body ] (* Test: double_opt_allow_spc *) test double_opt_allow_spc get " test with spaces " = { "double" = " test with spaces " } (* Group: quote_spaces *) (* View: quote_spaces *) let quote_spaces = Quote.quote_spaces (label "spc") (* Test: quote_spaces Unquoted value *) test quote_spaces get "this" = { "spc" = "this" } (* Test: quote_spaces double quoted value *) test quote_spaces get "\"this\"" = { "spc" = "this" } (* Test: quote_spaces single quoted value *) test quote_spaces get "'this'" = { "spc" = "this" } (* Test: quote_spaces unquoted value with spaces *) test quote_spaces get "this that those" = * (* Test: quote_spaces double quoted value with spaces *) test quote_spaces get "\"this that those\"" = { "spc" = "this that those" } (* Test: quote_spaces single quoted value with spaces *) test quote_spaces get "'this that those'" = { "spc" = "this that those" } (* Test: quote_spaces remove spaces from double-quoted value *) test quote_spaces put "\"this that those\"" after set "spc" "thisthat" = "\"thisthat\"" (* Test: quote_spaces remove spaces from single-quoted value *) test quote_spaces put "'this that those'" after set "spc" "thisthat" = "'thisthat'" (* Test: quote_spaces add spaces to unquoted value *) test quote_spaces put "this" after set "spc" "this that those" = "\"this that those\"" (* Test: quote_spaces add spaces to double-quoted value *) test quote_spaces put "\"this\"" after set "spc" "this that those" = "\"this that those\"" (* Test: quote_spaces add spaces to single-quoted value *) test quote_spaces put "'this'" after set "spc" "this that those" = "'this that those'" (* Group: dquote_spaces *) (* View: dquote_spaces *) let dquote_spaces = Quote.dquote_spaces (label "spc") (* Test: dquote_spaces Unquoted value *) test dquote_spaces get "this" = { "spc" = "this" } (* Test: dquote_spaces double quoted value *) test dquote_spaces get "\"this\"" = { "spc" = "this" } (* Test: dquote_spaces single quoted value *) test dquote_spaces get "'this'" = { "spc" = "'this'" } (* Test: dquote_spaces unquoted value with spaces *) test dquote_spaces get "this that those" = * (* Test: dquote_spaces double quoted value with spaces *) test dquote_spaces get "\"this that those\"" = { "spc" = "this that those" } (* Test: dquote_spaces single quoted value with spaces *) test dquote_spaces get "'this that those'" = * (* Test: dquote_spaces remove spaces from double-quoted value *) test dquote_spaces put "\"this that those\"" after set "spc" "thisthat" = "\"thisthat\"" (* Test: dquote_spaces add spaces to unquoted value *) test dquote_spaces put "this" after set "spc" "this that those" = "\"this that those\"" (* Test: dquote_spaces add spaces to double-quoted value *) test dquote_spaces put "\"this\"" after set "spc" "this that those" = "\"this that those\"" (* Test: dquote_spaces add spaces to single-quoted value *) test dquote_spaces put "'this'" after set "spc" "this that those" = "\"this that those\"" (* Group: squote_spaces *) (* View: squote_spaces *) let squote_spaces = Quote.squote_spaces (label "spc") (* Test: squote_spaces Unquoted value *) test squote_spaces get "this" = { "spc" = "this" } (* Test: squote_spaces double quoted value *) test squote_spaces get "\"this\"" = { "spc" = "\"this\"" } (* Test: squote_spaces single quoted value *) test squote_spaces get "'this'" = { "spc" = "this" } (* Test: squote_spaces unquoted value with spaces *) test squote_spaces get "this that those" = * (* Test: squote_spaces double quoted value with spaces *) test squote_spaces get "\"this that those\"" = * (* Test: squote_spaces single quoted value with spaces *) test squote_spaces get "'this that those'" = { "spc" = "this that those" } (* Test: squote_spaces remove spaces from single-quoted value *) test squote_spaces put "'this that those'" after set "spc" "thisthat" = "'thisthat'" (* Test: squote_spaces add spaces to unquoted value *) test squote_spaces put "this" after set "spc" "this that those" = "'this that those'" (* Test: squote_spaces add spaces to double-quoted value *) test squote_spaces put "\"this\"" after set "spc" "this that those" = "'this that those'" (* Test: squote_spaces add spaces to single-quoted value *) test squote_spaces put "'this'" after set "spc" "this that those" = "'this that those'" (* Group: nil cases *) (* View: dquote_opt_nil *) let dquote_opt_nil = let body = store Quote.double_opt_re in [ label "dquote_opt_nil" . Quote.do_dquote_opt_nil body ]? (* Test: dquote_opt_nil *) test dquote_opt_nil get "this" = { "dquote_opt_nil" = "this" } (* Test: dquote_opt_nil *) test dquote_opt_nil get "'this'" = { "dquote_opt_nil" = "'this'" } (* Test: dquote_opt_nil *) test dquote_opt_nil get "\"this\"" = { "dquote_opt_nil" = "this" } (* Test: dquote_opt_nil *) test dquote_opt_nil put "" after set "dquote_opt_nil" "this" = "this" (* Test: dquote_opt_nil *) test dquote_opt_nil put "\"this\"" after set "dquote_opt_nil" "this" = "\"this\"" (* Test: dquote_opt_nil *) test dquote_opt_nil put "'this'" after set "dquote_opt_nil" "this" = "this" (* View: squote_opt_nil *) let squote_opt_nil = let body = store Quote.single_opt_re in [ label "squote_opt_nil" . Quote.do_squote_opt_nil body ]? (* Test: squote_opt_nil *) test squote_opt_nil get "this" = { "squote_opt_nil" = "this" } (* Test: squote_opt_nil *) test squote_opt_nil get "'this'" = { "squote_opt_nil" = "this" } (* Test: squote_opt_nil *) test squote_opt_nil get "\"this\"" = { "squote_opt_nil" = "\"this\"" } (* Test: squote_opt_nil *) test squote_opt_nil put "" after set "squote_opt_nil" "this" = "this" (* Test: squote_opt_nil *) test squote_opt_nil put "\"this\"" after set "squote_opt_nil" "this" = "this" (* Test: squote_opt_nil *) test squote_opt_nil put "\"this\"" after set "squote_opt_nil" "this" = "this" (* View: quote_opt_nil *) let quote_opt_nil = let body = store Quote.any_opt_re in [ label "quote_opt_nil" . Quote.do_quote_opt_nil body ]? (* Test: quote_opt_nil *) test quote_opt_nil get "this" = { "quote_opt_nil" = "this" } (* Test: quote_opt_nil *) test quote_opt_nil get "'this'" = { "quote_opt_nil" = "this" } (* Test: quote_opt_nil *) test quote_opt_nil get "\"this\"" = { "quote_opt_nil" = "this" } (* Test: quote_opt_nil *) test quote_opt_nil put "" after set "quote_opt_nil" "this" = "this" (* Test: quote_opt_nil *) test quote_opt_nil put "\"this\"" after set "quote_opt_nil" "this" = "\"this\"" (* Test: quote_opt_nil *) test quote_opt_nil put "'this'" after set "quote_opt_nil" "this" = "'this'" PK ! ^�8FT T lenses/dist/tests/test_wine.augnu �[��� module Test_wine = let s1 = "WINE REGISTRY Version 2 ;; All keys relative to \\Machine [Software\\Borland\\Database Engine\\Settings\\SYSTEM\\INIT] 1255960431 \"SHAREDMEMLOCATION\"=\"9000\" [Software\\Classes\\.gif] 1255960430 @=\"giffile\" \"Content Type\"=\"image/gif\" [Software\\Classes\\CLSID\\{083863F1-70DE-11D0-BD40-00A0C911CE86}\\Instance\\{1B544C20-FD0B-11CE-8C63-00AA0044B51E}] 1255960430 \"CLSID\"=\"{1B544C20-FD0B-11CE-8C63-00AA0044B51E}\" \"FilterData\"=hex:02,00,00,00,00,00,60,00,02,00,00,00,00,00,00,00,30,70,69,33,\ 9f,53,00,20,af,0b,a7,70,76,69,64,73,00,00,10,00,80,00,00,aa,00,38,9b,71,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 \"FriendlyName\"=\"AVI Splitter\" [Software\\Classes\\CLSID\\{0AFACED1-E828-11D1-9187-B532F1E9575D}\\ShellFolder] 1255960429 \"Attributes\"=dword:60010000 \"CallForAttributes\"=dword:f0000000 " test Wine.lns get s1 = { "registry" = "WINE REGISTRY" } { "version" = "2" } { "#comment" = "All keys relative to \Machine" } { } { "section" = "Software\Borland\Database Engine\Settings\SYSTEM\INIT" { "timestamp" = "1255960431" } { "entry" { "key" = "SHAREDMEMLOCATION" } { "value" = "9000" } } { } } { "section" = "Software\Classes\.gif" { "timestamp" = "1255960430" } { "anon" { "value" = "giffile" } } { "entry" { "key" = "Content Type" } { "value" = "image/gif" } } { } } { "section" = "Software\Classes\CLSID\{083863F1-70DE-11D0-BD40-00A0C911CE86}\Instance\{1B544C20-FD0B-11CE-8C63-00AA0044B51E}" { "timestamp" = "1255960430" } { "entry" { "key" = "CLSID" } { "value" = "{1B544C20-FD0B-11CE-8C63-00AA0044B51E}" } } { "entry" { "key" = "FilterData" } { "type" = "hex" } { "value" = "02,00,00,00,00,00,60,00,02,00,00,00,00,00,00,00,30,70,69,33,\ 9f,53,00,20,af,0b,a7,70,76,69,64,73,00,00,10,00,80,00,00,aa,00,38,9b,71,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00" } } { "entry" { "key" = "FriendlyName" } { "value" = "AVI Splitter" } } { } } { "section" = "Software\Classes\CLSID\{0AFACED1-E828-11D1-9187-B532F1E9575D}\ShellFolder" { "timestamp" = "1255960429" } { "entry" { "key" = "Attributes" } { "type" = "dword" } { "value" = "60010000" } } { "entry" { "key" = "CallForAttributes" } { "type" = "dword" } { "value" = "f0000000" } } } (* The weird 'str(2)' type *) let s2 = "[Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders] 1248768928 \"AppData\"=str(2):\"%USERPROFILE%\\Application Data\" \"Cache\"=str(2):\"%USERPROFILE%\\Local Settings\\Temporary Internet Files\" \"Cookies\"=str(2):\"%USERPROFILE%\\Cookies\" \"Desktop\"=str(2):\"%USERPROFILE%\\Desktop\" " test Wine.section get s2 = { "section" = "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" { "timestamp" = "1248768928" } { "entry" { "key" = "AppData" } { "type" = "str(2)" } { "value" = "%USERPROFILE%\Application Data" } } { "entry" { "key" = "Cache" } { "type" = "str(2)" } { "value" = "%USERPROFILE%\Local Settings\Temporary Internet Files" } } { "entry" { "key" = "Cookies" } { "type" = "str(2)" } { "value" = "%USERPROFILE%\Cookies" } } { "entry" { "key" = "Desktop" } { "type" = "str(2)" } { "value" = "%USERPROFILE%\Desktop" } } } (* Quoted doublequotes embedded in the string *) let s3 = "[Software\\Classes\\CLSID\\Shell\\OpenHomePage\\Command] 1248768931 @=\"\\\"C:\\Program Files\\Internet Explorer\\iexplore.exe\\\"\"\n" test Wine.section get s3 = { "section" = "Software\Classes\CLSID\Shell\OpenHomePage\Command" { "timestamp" = "1248768931" } { "anon" { "value" = "\\\"C:\Program Files\Internet Explorer\iexplore.exe\\\"" } } } (* There's a str(7) type, too *) let s4 = "[Software\\Microsoft\\Cryptography\\OID\\EncodingType 1\\CertDllVerifyRevocation\\DEFAULT] 1248768928 \"Dll\"=str(7):\"cryptnet.dll\0\"\n" test Wine.section get s4 = { "section" = "Software\Microsoft\Cryptography\OID\EncodingType 1\CertDllVerifyRevocation\DEFAULT" { "timestamp" = "1248768928" } { "entry" { "key" = "Dll" } { "type" = "str(7)" } { "value" = "cryptnet.dll\0" } } } (* The Windows Registry Editor header *) test Wine.header get "Windows Registry Editor Version 5.00\n" = { "registry" = "Windows Registry Editor" } { "version" = "5.00" } (* The type hex(7) *) let s5 = "[HKEY_LOCAL_MACHINE\SOFTWARE\ADFS] \"Patches\"=hex(7):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,61,00,\ 64,00,66,00,73,00,73,00,70,00,32,00,2e,00,6d,00,73,00,70,00,\ 00,00,00,00,f8 " test Wine.section get s5 = { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\ADFS" { "entry" { "key" = "Patches" } { "type" = "hex(7)" } { "value" = "25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,61,00,\ 64,00,66,00,73,00,73,00,70,00,32,00,2e,00,6d,00,73,00,70,00,\ 00,00,00,00,f8" } } } (* Test DOS line endings *) let s6 = "Windows Registry Editor Version 5.00\r\n\r [HKEY_LOCAL_MACHINE\SOFTWARE\C07ft5Y\WinXP]\r \"@\"=\"\"\r \r [HKEY_LOCAL_MACHINE\SOFTWARE\Classes]\r\n" test Wine.lns get s6 = { "registry" = "Windows Registry Editor" } { "version" = "5.00" } { } { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\C07ft5Y\WinXP" { "anon" { "value" = "" } } { } } { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes" } (* Keys can contain '/' *) let s7 = "\"application/vnd.ms-xpsdocument\"=\"{c18d5e87-12b4-46a3-ae40-67cf39bc6758}\"\n" test Wine.entry get s7 = { "entry" { "key" = "application/vnd.ms-xpsdocument" } { "value" = "{c18d5e87-12b4-46a3-ae40-67cf39bc6758}" } } PK ! �hH: : lenses/dist/tests/test_rmt.augnu �[��� module Test_rmt = let conf = "#ident @(#)rmt.dfl 1.2 05/08/09 Copyr 2000 J. Schilling # # This file is /etc/default/rmt DEBUG=/tmp/RMT USER=* ACCESS=rtape sparky /dev/rmt/* ACCESS=* * /dev/rmt/* # Historically, Red Hat rmt was not so ^^ restrictive. ACCESS=* * * " test Rmt.lns get conf = { "#comment" = "ident @(#)rmt.dfl 1.2 05/08/09 Copyr 2000 J. Schilling" } { } { "#comment" = "This file is /etc/default/rmt" } { } { "DEBUG" = "/tmp/RMT" } { "USER" = "*" } { } { "ACCESS" { "name" = "rtape" } { "host" = "sparky" } { "path" = "/dev/rmt/*" } } { "ACCESS" { "name" = "*" } { "host" = "*" } { "path" = "/dev/rmt/*" } } { } { "#comment" = "Historically, Red Hat rmt was not so ^^ restrictive." } { "ACCESS" { "name" = "*" } { "host" = "*" } { "path" = "*" } } PK ! �FM& & # lenses/dist/tests/test_radicale.augnu �[��� module Test_radicale = let conf = " [server] [encoding] [well-known] [auth] [git] [rights] [storage] [logging] [headers] " test Radicale.lns get conf = {} { "server" {} } { "encoding" {} } { "well-known" {} } { "auth" {} } { "git" {} } { "rights" {} } { "storage" {} } { "logging" {} } { "headers" {} } test Radicale.lns put conf after set "server/hosts" "127.0.0.1:5232, [::1]:5232"; set "server/base_prefix" "/radicale/"; set "well-known/caldav" "/radicale/%(user)s/caldav/"; set "well-known/cardav" "/radicale/%(user)s/carddav/"; set "auth/type" "remote_user"; set "rights/type" "owner_only" = " [server] hosts=127.0.0.1:5232, [::1]:5232 base_prefix=/radicale/ [encoding] [well-known] caldav=/radicale/%(user)s/caldav/ cardav=/radicale/%(user)s/carddav/ [auth] type=remote_user [git] [rights] type=owner_only [storage] [logging] [headers] " PK ! c�$b\3 \3 lenses/dist/tests/test_nslcd.augnu �[��� (* Module: Test_Nslcd Provides unit tests and examples for the <Nslcd> lens. *) module Test_nslcd = let real_file = "# /etc/nslcd.conf # nslcd configuration file. See nslcd.conf(5) # for details. # Specifies the number of threads to start that can handle requests and perform LDAP queries. threads 5 # The user and group nslcd should run as. uid nslcd gid nslcd # This option controls the way logging is done. log syslog info # The location at which the LDAP server(s) should be reachable. uri ldaps://XXX.XXX.XXX ldaps://YYY.YYY.YYY # The search base that will be used for all queries. base dc=XXX,dc=XXX # The LDAP protocol version to use. ldap_version 3 # The DN to bind with for normal lookups. binddn cn=annonymous,dc=example,dc=net bindpw secret # The DN used for password modifications by root. rootpwmoddn cn=admin,dc=example,dc=com # The password used for password modifications by root. rootpwmodpw XXXXXX # SASL authentication options sasl_mech OTP sasl_realm realm sasl_authcid authcid sasl_authzid dn:cn=annonymous,dc=example,dc=net sasl_secprops noanonymous,noplain,minssf=0,maxssf=2,maxbufsize=65535 sasl_canonicalize yes # Kerberos authentication options krb5_ccname ccname # Search/mapping options # Specifies the base distinguished name (DN) to use as search base. base dc=people,dc=example,dc=com base dc=morepeople,dc=example,dc=com base alias dc=aliases,dc=example,dc=com base alias dc=morealiases,dc=example,dc=com base group dc=group,dc=example,dc=com base group dc=moregroup,dc=example,dc=com base passwd dc=users,dc=example,dc=com # Specifies the search scope (subtree, onelevel, base or children). scope sub scope passwd sub scope aliases sub # Specifies the policy for dereferencing aliases. deref never # Specifies whether automatic referral chasing should be enabled. referrals yes # The FILTER is an LDAP search filter to use for a specific map. filter group (objectClass=posixGroup) # This option allows for custom attributes to be looked up instead of the default RFC 2307 attributes. map passwd homeDirectory \"${homeDirectory:-/home/$uid}\" map passwd loginShell \"${loginShell:-/bin/bash}\" map shadow userPassword myPassword # Timing/reconnect options # Specifies the time limit (in seconds) to use when connecting to the directory server. bind_timelimit 30 # Specifies the time limit (in seconds) to wait for a response from the LDAP server. timelimit 5 # Specifies the period if inactivity (in seconds) after which the connection to the LDAP server will be closed. idle_timelimit 10 # Specifies the number of seconds to sleep when connecting to all LDAP servers fails. reconnect_sleeptime 10 # Specifies the time after which the LDAP server is considered to be permanently unavailable. reconnect_retrytime 10 # SSL/TLS options # Specifies whether to use SSL/TLS or not (the default is not to). ssl start_tls # Specifies what checks to perform on a server-supplied certificate. tls_reqcert never # Specifies the directory containing X.509 certificates for peer authentication. tls_cacertdir /etc/ssl/ca # Specifies the path to the X.509 certificate for peer authentication. tls_cacertfile /etc/ssl/certs/ca-certificates.crt # Specifies the path to an entropy source. tls_randfile /dev/random # Specifies the ciphers to use for TLS. tls_ciphers TLSv1 # Specifies the path to the file containing the local certificate for client TLS authentication. tls_cert /etc/ssl/certs/cert.pem # Specifies the path to the file containing the private key for client TLS authentication. tls_key /etc/ssl/private/cert.pem # Other options pagesize 100 nss_initgroups_ignoreusers user1,user2,user3 nss_min_uid 1000 nss_nested_groups yes nss_getgrent_skipmembers yes nss_disable_enumeration yes validnames /^[a-z0-9._@$()]([a-z0-9._@$() \\~-]*[a-z0-9._@$()~-])?$/i ignorecase yes pam_authc_ppolicy yes pam_authz_search (&(objectClass=posixAccount)(uid=$username)(|(authorizedService=$service)(!(authorizedService=*)))) pam_password_prohibit_message \"MESSAGE LONG AND WITH SPACES\" reconnect_invalidate nfsidmap,db2,db3 cache dn2uid 1s 2h " test Nslcd.lns get real_file = { "#comment" = "/etc/nslcd.conf" } { "#comment" = "nslcd configuration file. See nslcd.conf(5)" } { "#comment" = "for details." } { } { "#comment" = "Specifies the number of threads to start that can handle requests and perform LDAP queries." } { "threads" = "5" } { } { "#comment" = "The user and group nslcd should run as." } { "uid" = "nslcd" } { "gid" = "nslcd" } { } { "#comment" = "This option controls the way logging is done." } { "log" = "syslog info" } { } { "#comment" = "The location at which the LDAP server(s) should be reachable." } { "uri" { "1" = "ldaps://XXX.XXX.XXX" } { "2" = "ldaps://YYY.YYY.YYY" } } { } { "#comment" = "The search base that will be used for all queries." } { "base" = "dc=XXX,dc=XXX" } { } { "#comment" = "The LDAP protocol version to use." } { "ldap_version" = "3" } { } { "#comment" = "The DN to bind with for normal lookups." } { "binddn" = "cn=annonymous,dc=example,dc=net" } { "bindpw" = "secret" } { } { } { "#comment" = "The DN used for password modifications by root." } { "rootpwmoddn" = "cn=admin,dc=example,dc=com" } { } { "#comment" = "The password used for password modifications by root." } { "rootpwmodpw" = "XXXXXX" } { } { } { "#comment" = "SASL authentication options" } { "sasl_mech" = "OTP" } { "sasl_realm" = "realm" } { "sasl_authcid" = "authcid" } { "sasl_authzid" = "dn:cn=annonymous,dc=example,dc=net" } { "sasl_secprops" = "noanonymous,noplain,minssf=0,maxssf=2,maxbufsize=65535" } { "sasl_canonicalize" = "yes" } { } { "#comment" = "Kerberos authentication options" } { "krb5_ccname" = "ccname" } { } { "#comment" = "Search/mapping options" } { } { "#comment" = "Specifies the base distinguished name (DN) to use as search base." } { "base" = "dc=people,dc=example,dc=com" } { "base" = "dc=morepeople,dc=example,dc=com" } { "base" { "alias" = "dc=aliases,dc=example,dc=com" } } { "base" { "alias" = "dc=morealiases,dc=example,dc=com" } } { "base" { "group" = "dc=group,dc=example,dc=com" } } { "base" { "group" = "dc=moregroup,dc=example,dc=com" } } { "base" { "passwd" = "dc=users,dc=example,dc=com" } } { } { "#comment" = "Specifies the search scope (subtree, onelevel, base or children)." } { "scope" = "sub" } { "scope" { "passwd" = "sub" } } { "scope" { "aliases" = "sub" } } { } { "#comment" = "Specifies the policy for dereferencing aliases." } { "deref" = "never" } { } { "#comment" = "Specifies whether automatic referral chasing should be enabled." } { "referrals" = "yes" } { } { "#comment" = "The FILTER is an LDAP search filter to use for a specific map." } { "filter" { "group" = "(objectClass=posixGroup)" } } { } { "#comment" = "This option allows for custom attributes to be looked up instead of the default RFC 2307 attributes." } { "map" { "passwd" { "homeDirectory" = "\"${homeDirectory:-/home/$uid}\"" } } } { "map" { "passwd" { "loginShell" = "\"${loginShell:-/bin/bash}\"" } } } { "map" { "shadow" { "userPassword" = "myPassword" } } } { } { "#comment" = "Timing/reconnect options" } { } { "#comment" = "Specifies the time limit (in seconds) to use when connecting to the directory server." } { "bind_timelimit" = "30" } { } { "#comment" = "Specifies the time limit (in seconds) to wait for a response from the LDAP server." } { "timelimit" = "5" } { } { "#comment" = "Specifies the period if inactivity (in seconds) after which the connection to the LDAP server will be closed." } { "idle_timelimit" = "10" } { } { "#comment" = "Specifies the number of seconds to sleep when connecting to all LDAP servers fails." } { "reconnect_sleeptime" = "10" } { } { "#comment" = "Specifies the time after which the LDAP server is considered to be permanently unavailable." } { "reconnect_retrytime" = "10" } { } { "#comment" = "SSL/TLS options" } { } { "#comment" = "Specifies whether to use SSL/TLS or not (the default is not to)." } { "ssl" = "start_tls" } { "#comment" = "Specifies what checks to perform on a server-supplied certificate." } { "tls_reqcert" = "never" } { "#comment" = "Specifies the directory containing X.509 certificates for peer authentication." } { "tls_cacertdir" = "/etc/ssl/ca" } { "#comment" = "Specifies the path to the X.509 certificate for peer authentication." } { "tls_cacertfile" = "/etc/ssl/certs/ca-certificates.crt" } { "#comment" = "Specifies the path to an entropy source." } { "tls_randfile" = "/dev/random" } { "#comment" = "Specifies the ciphers to use for TLS." } { "tls_ciphers" = "TLSv1" } { "#comment" = "Specifies the path to the file containing the local certificate for client TLS authentication." } { "tls_cert" = "/etc/ssl/certs/cert.pem" } { "#comment" = "Specifies the path to the file containing the private key for client TLS authentication." } { "tls_key" = "/etc/ssl/private/cert.pem" } { } { "#comment" = "Other options" } { "pagesize" = "100" } { "nss_initgroups_ignoreusers" { "1" = "user1" } { "2" = "user2" } { "3" = "user3" } } { "nss_min_uid" = "1000" } { "nss_nested_groups" = "yes" } { "nss_getgrent_skipmembers" = "yes" } { "nss_disable_enumeration" = "yes" } { "validnames" = "/^[a-z0-9._@$()]([a-z0-9._@$() \~-]*[a-z0-9._@$()~-])?$/i" } { "ignorecase" = "yes" } { "pam_authc_ppolicy" = "yes" } { "pam_authz_search" = "(&(objectClass=posixAccount)(uid=$username)(|(authorizedService=$service)(!(authorizedService=*))))" } { "pam_password_prohibit_message" = "MESSAGE LONG AND WITH SPACES" } { "reconnect_invalidate" = "nfsidmap,db2,db3" } { "cache" = "dn2uid 1s 2h" } { } (* Test writes *) (* Test a simple parameter *) test Nslcd.lns put "pagesize 9999\n" after set "/pagesize" "1000" = "pagesize 1000\n" (* Test base parameter *) test Nslcd.lns put "\n" after set "/base" "dc=example,dc=com" = "\nbase dc=example,dc=com\n" test Nslcd.lns put "base dc=change,dc=me\n" after set "/base" "dc=example,dc=com" = "base dc=example,dc=com\n" test Nslcd.lns put "\n" after set "/base/passwd" "dc=example,dc=com" = "\nbase passwd dc=example,dc=com\n" test Nslcd.lns put "base passwd dc=change,dc=me\n" after set "/base[passwd]/passwd" "dc=example,dc=com"; set "/base[shadow]/shadow" "dc=example,dc=com" = "base passwd dc=example,dc=com\nbase shadow dc=example,dc=com\n" (* Test scope entry *) test Nslcd.lns put "\n" after set "/scope" "sub" = "\nscope sub\n" test Nslcd.lns put "scope one\n" after set "/scope" "subtree" = "scope subtree\n" test Nslcd.lns put "\n" after set "/scope/passwd" "base" = "\nscope passwd base\n" test Nslcd.lns put "scope shadow onelevel\n" after set "/scope[passwd]/passwd" "subtree"; set "/scope[shadow]/shadow" "base" = "scope shadow base\nscope passwd subtree\n" (* Test filter entry *) test Nslcd.lns put "\n" after set "/filter/passwd" "(objectClass=posixAccount)" = "\nfilter passwd (objectClass=posixAccount)\n" test Nslcd.lns put "filter shadow (objectClass=posixAccount)\n" after set "/filter[passwd]/passwd" "(objectClass=Account)"; set "/filter[shadow]/shadow" "(objectClass=Account)" = "filter shadow (objectClass=Account)\nfilter passwd (objectClass=Account)\n" (* Test map entry *) test Nslcd.lns put "map passwd loginShell ab\n" after set "/map/passwd/loginShell" "bc" = "map passwd loginShell bc\n" test Nslcd.lns put "map passwd loginShell ab\n" after set "/map[2]/passwd/homeDirectory" "bc" = "map passwd loginShell ab\nmap passwd homeDirectory bc\n" test Nslcd.lns put "map passwd loginShell ab\n" after set "/map[passwd/homeDirectory]/passwd/homeDirectory" "bc" = "map passwd loginShell ab\nmap passwd homeDirectory bc\n" test Nslcd.lns put "map passwd loginShell ab\nmap passwd homeDirectory ab\n" after set "/map[passwd/homeDirectory]/passwd/homeDirectory" "bc" = "map passwd loginShell ab\nmap passwd homeDirectory bc\n" (* Test simple entries *) let simple = "uid nslcd\n" test Nslcd.lns get simple = { "uid" = "nslcd" } (* Test simple entries with spaces at the end *) let simple_spaces = "uid nslcd \n" test Nslcd.lns get simple_spaces = { "uid" = "nslcd" } (* Test multi valued entries *) let multi_valued = "cache 1 2 \n" test Nslcd.lns get multi_valued = { "cache" = "1 2" } let multi_valued_real = "map passwd homeDirectory ${homeDirectory:-/home/$uid}\n" test Nslcd.lns get multi_valued_real = { "map" { "passwd" { "homeDirectory" = "${homeDirectory:-/home/$uid}" } } } (* Test multiline *) let simple_multiline = "uid nslcd\ngid nslcd\n" test Nslcd.lns get simple_multiline = {"uid" = "nslcd"} {"gid" = "nslcd"} let multiline_separators = "\n\n \nuid nslcd \ngid nslcd \n" test Nslcd.lns get multiline_separators = {} {} {} {"uid" = "nslcd"} {"gid" = "nslcd"} PK ! QFk lenses/dist/tests/test_tuned.augnu �[��� module Test_tuned = let conf = "# Global tuned configuration file. dynamic_tuning = 0 update_interval = 10 " test Tuned.lns get conf = { "#comment" = "Global tuned configuration file." } { } { "dynamic_tuning" = "0" } { "update_interval" = "10" } PK ! Z�k� � " lenses/dist/tests/test_lightdm.augnu �[��� (* Module: Test_Lightdm Module to test Lightdm module for Augeas Author: David Salmen <dsalmen@dsalmen.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. *) module Test_lightdm = let conf_lightdm = " [SeatDefaults] greeter-session=unity-greeter user-session=ubuntu " test Lightdm.lns get conf_lightdm = {} { "SeatDefaults" { "greeter-session" = "unity-greeter" } { "user-session" = "ubuntu" } } test Lightdm.lns put conf_lightdm after set "SeatDefaults/allow-guest" "false" = " [SeatDefaults] greeter-session=unity-greeter user-session=ubuntu allow-guest=false " test Lightdm.lns put conf_lightdm after set "SeatDefaults/allow-guest" "true" = " [SeatDefaults] greeter-session=unity-greeter user-session=ubuntu allow-guest=true " let conf_unity_greeter = " # # background = Background file to use, either an image path or a color (e.g. #772953) # logo = Logo file to use # theme-name = GTK+ theme to use # font-name = Font to use # xft-antialias = Whether to antialias Xft fonts (true or false) # xft-dpi = Resolution for Xft in dots per inch (e.g. 96) # xft-hintstyle = What degree of hinting to use (hintnone, hintslight, hintmedium, or hintfull) # xft-rgba = Type of subpixel antialiasing (none, rgb, bgr, vrgb or vbgr) # [greeter] background=/usr/share/backgrounds/warty-final-ubuntu.png logo=/usr/share/unity-greeter/logo.png theme-name=Ambiance icon-theme-name=ubuntu-mono-dark font-name=Ubuntu 11 xft-antialias=true xft-dpi=96 xft-hintstyle=hintslight xft-rgba=rgb " test Lightdm.lns get conf_unity_greeter = {} {} { "#comment" = "background = Background file to use, either an image path or a color (e.g. #772953)" } { "#comment" = "logo = Logo file to use" } { "#comment" = "theme-name = GTK+ theme to use" } { "#comment" = "font-name = Font to use" } { "#comment" = "xft-antialias = Whether to antialias Xft fonts (true or false)" } { "#comment" = "xft-dpi = Resolution for Xft in dots per inch (e.g. 96)" } { "#comment" = "xft-hintstyle = What degree of hinting to use (hintnone, hintslight, hintmedium, or hintfull)" } { "#comment" = "xft-rgba = Type of subpixel antialiasing (none, rgb, bgr, vrgb or vbgr)" } {} { "greeter" { "background" = "/usr/share/backgrounds/warty-final-ubuntu.png" } { "logo" = "/usr/share/unity-greeter/logo.png" } { "theme-name" = "Ambiance" } { "icon-theme-name" = "ubuntu-mono-dark" } { "font-name" = "Ubuntu 11" } { "xft-antialias" = "true" } { "xft-dpi" = "96" } { "xft-hintstyle" = "hintslight" } { "xft-rgba" = "rgb" } } let conf_users = " # # User accounts configuration # # NOTE: If you have AccountsService installed on your system, then LightDM will # use this instead and these settings will be ignored # # minimum-uid = Minimum UID required to be shown in greeter # hidden-users = Users that are not shown to the user # hidden-shells = Shells that indicate a user cannot login # [UserAccounts] minimum-uid=500 hidden-users=nobody nobody4 noaccess hidden-shells=/bin/false /usr/sbin/nologin " test Lightdm.lns get conf_users = {} {} { "#comment" = "User accounts configuration" } {} { "#comment" = "NOTE: If you have AccountsService installed on your system, then LightDM will" } { "#comment" = "use this instead and these settings will be ignored" } {} { "#comment" = "minimum-uid = Minimum UID required to be shown in greeter" } { "#comment" = "hidden-users = Users that are not shown to the user" } { "#comment" = "hidden-shells = Shells that indicate a user cannot login" } {} { "UserAccounts" { "minimum-uid" = "500" } { "hidden-users" = "nobody nobody4 noaccess" } { "hidden-shells" = "/bin/false /usr/sbin/nologin" } } PK ! xP֕� � lenses/dist/tests/test_soma.augnu �[��� module Test_soma = let conf = "# comment User = soma OptionsItem = \"-msglevel avsync=5 -ao jack -af volnorm -novideo -noconsolecontrols -nojoystick -nolirc -nomouseinput\" Debug = 3 " test Soma.lns get conf = { "#comment" = "comment" } { "User" = "soma" } {} { "OptionsItem" = "\"-msglevel avsync=5 -ao jack -af volnorm -novideo -noconsolecontrols -nojoystick -nolirc -nomouseinput\"" } { "Debug" = "3" } PK ! � �' lenses/dist/tests/test_build.augnu �[��� (* Module: Test_Build Provides unit tests and examples for the <Build> lens. *) module Test_Build = (************************************************************************ * Group: GENERIC CONSTRUCTIONS ************************************************************************) (* View: brackets Test brackets *) let brackets = [ Build.brackets Sep.lbracket Sep.rbracket (key Rx.word) ] (* Test: brackets *) test brackets get "(foo)" = { "foo" } (************************************************************************ * Group: LIST CONSTRUCTIONS ************************************************************************) (* View: list *) let list = Build.list [ key Rx.word ] Sep.space (* Test: list *) test list get "foo bar baz" = { "foo" } { "bar" } { "baz" } (* Test: list *) test list get "foo" = * (* View: opt_list *) let opt_list = Build.opt_list [ key Rx.word ] Sep.space (* Test: opt_list *) test opt_list get "foo bar baz" = { "foo" } { "bar" } { "baz" } (************************************************************************ * Group: LABEL OPERATIONS ************************************************************************) (* View: xchg *) let xchg = [ Build.xchg Rx.space " " "space" ] (* Test: xchg *) test xchg get " \t " = { "space" } (* View: xchgs *) let xchgs = [ Build.xchgs " " "space" ] (* Test: xchgs *) test xchgs get " " = { "space" } (************************************************************************ * Group: SUBNODE CONSTRUCTIONS ************************************************************************) (* View: key_value_line *) let key_value_line = Build.key_value_line Rx.word Sep.equal (store Rx.word) (* Test: key_value_line *) test key_value_line get "foo=bar\n" = { "foo" = "bar" } (* View: key_value_line_comment *) let key_value_line_comment = Build.key_value_line_comment Rx.word Sep.equal (store Rx.word) Util.comment (* Test: key_value_line_comment *) test key_value_line_comment get "foo=bar # comment\n" = { "foo" = "bar" { "#comment" = "comment" } } (* View: key_value *) let key_value = Build.key_value Rx.word Sep.equal (store Rx.word) (* Test: key_value *) test key_value get "foo=bar" = { "foo" = "bar" } (* View: key_ws_value *) let key_ws_value = Build.key_ws_value Rx.word (* Test: key_ws_value *) test key_ws_value get "foo bar\n" = { "foo" = "bar" } (* View: flag *) let flag = Build.flag Rx.word (* Test: flag *) test flag get "foo" = { "foo" } (* View: flag_line *) let flag_line = Build.flag_line Rx.word (* Test: flag_line *) test flag_line get "foo\n" = { "foo" } (************************************************************************ * Group: BLOCK CONSTRUCTIONS ************************************************************************) (* View: block_entry The block entry used for testing *) let block_entry = Build.key_value "test" Sep.equal (store Rx.word) (* View: block The block used for testing *) let block = Build.block block_entry (* Test: block Simple test for <block> *) test block get " {test=1}" = { "test" = "1" } (* Test: block Simple test for <block> with newlines *) test block get " {\n test=1\n}" = { "test" = "1" } (* Test: block Simple test for <block> two indented entries *) test block get " {\n test=1 \n test=2 \n}" = { "test" = "1" } { "test" = "2" } (* Test: block Test <block> with a comment *) test block get " { # This is a comment\n}" = { "#comment" = "This is a comment" } (* Test: block Test <block> with comments and newlines *) test block get " { # This is a comment\n# Another comment\n}" = { "#comment" = "This is a comment" } { "#comment" = "Another comment" } (* Test: block Test defaults for blocks *) test block put " { test=1 }" after set "/#comment" "a comment"; rm "/test"; set "/test" "2" = " { # a comment\ntest=2 }" (* View: named_block The named block used for testing *) let named_block = Build.named_block "foo" block_entry (* Test: named_block Simple test for <named_block> *) test named_block get "foo {test=1}\n" = { "foo" { "test" = "1" } } (* View: logrotate_block A minimalistic logrotate block *) let logrotate_block = let entry = [ key Rx.word ] in let filename = [ label "file" . store /\/[^,#= \n\t{}]+/ ] in let filename_sep = del /[ \t\n]+/ " " in let filenames = Build.opt_list filename filename_sep in [ label "rule" . filenames . Build.block entry ] (* Test: logrotate_block *) test logrotate_block get "/var/log/wtmp\n/var/log/wtmp2\n{ missingok monthly }" = { "rule" { "file" = "/var/log/wtmp" } { "file" = "/var/log/wtmp2" } { "missingok" } { "monthly" } } (************************************************************************ * Group: COMBINATORICS ************************************************************************) (* View: combine_two A minimalistic combination lens *) let combine_two = let entry (k:string) = [ key k ] in Build.combine_two (entry "a") (entry "b") (* Test: combine_two Should parse ab *) test combine_two get "ab" = { "a" } { "b" } (* Test: combine_two Should parse ba *) test combine_two get "ba" = { "b" } { "a" } (* Test: combine_two Should not parse a *) test combine_two get "a" = * (* Test: combine_two Should not parse b *) test combine_two get "b" = * (* Test: combine_two Should not parse aa *) test combine_two get "aa" = * (* Test: combine_two Should not parse bb *) test combine_two get "bb" = * (* View: combine_two_opt A minimalistic optional combination lens *) let combine_two_opt = let entry (k:string) = [ key k ] in Build.combine_two_opt (entry "a") (entry "b") (* Test: combine_two_opt Should parse ab *) test combine_two_opt get "ab" = { "a" } { "b" } (* Test: combine_two_opt Should parse ba *) test combine_two_opt get "ba" = { "b" } { "a" } (* Test: combine_two_opt Should parse a *) test combine_two_opt get "a" = { "a" } (* Test: combine_two_opt Should parse b *) test combine_two_opt get "b" = { "b" } (* Test: combine_two_opt Should not parse aa *) test combine_two_opt get "aa" = * (* Test: combine_two_opt Should not parse bb *) test combine_two_opt get "bb" = * (* View: combine_three A minimalistic optional combination lens *) let combine_three = let entry (k:string) = [ key k ] in Build.combine_three (entry "a") (entry "b") (entry "c") (* Test: combine_three Should not parse ab *) test combine_three get "ab" = * (* Test: combine_three Should not parse ba *) test combine_three get "ba" = * (* Test: combine_three Should not parse a *) test combine_three get "a" = * (* Test: combine_three Should not parse b *) test combine_three get "b" = * (* Test: combine_three Should not parse aa *) test combine_three get "aa" = * (* Test: combine_three Should not parse bbc *) test combine_three get "bbc" = * (* Test: combine_three Should parse abc *) test combine_three get "abc" = { "a" } { "b" } { "c" } (* Test: combine_three Should parse cab *) test combine_three get "cab" = { "c" } { "a" } { "b" } (* View: combine_three_opt A minimalistic optional combination lens *) let combine_three_opt = let entry (k:string) = [ key k ] in Build.combine_three_opt (entry "a") (entry "b") (entry "c") (* Test: combine_three_opt Should parse ab *) test combine_three_opt get "ab" = { "a" } { "b" } (* Test: combine_three_opt Should parse ba *) test combine_three_opt get "ba" = { "b" } { "a" } (* Test: combine_three_opt Should parse a *) test combine_three_opt get "a" = { "a" } (* Test: combine_three_opt Should parse b *) test combine_three_opt get "b" = { "b" } (* Test: combine_three_opt Should not parse aa *) test combine_three_opt get "aa" = * (* Test: combine_three_opt Should not parse bbc *) test combine_three_opt get "bbc" = * (* Test: combine_three_opt Should parse abc *) test combine_three_opt get "abc" = { "a" } { "b" } { "c" } (* Test: combine_three_opt Should parse cab *) test combine_three_opt get "cab" = { "c" } { "a" } { "b" } PK ! 1<�6 6 $ lenses/dist/tests/test_protocols.augnu �[��� (* Module: Test_Protocols Provides unit tests and examples for the <Protocols> lens. *) module Test_Protocols = (* Variable: conf *) let conf = "# Internet (IP) protocols ip 0 IP # internet protocol, pseudo protocol number #hopopt 0 HOPOPT # IPv6 Hop-by-Hop Option [RFC1883] icmp 1 ICMP # internet control message protocol igmp 2 IGMP # Internet Group Management tp++ 39 TP++ # TP++ Transport Protocol a/n 107 A/N # Active Networks " (* Test: Protocols.lns *) test Protocols.lns get conf = { "#comment" = "Internet (IP) protocols" } { } { "1" { "protocol" = "ip" } { "number" = "0" } { "alias" = "IP" } { "#comment" = "internet protocol, pseudo protocol number" } } { "#comment" = "hopopt 0 HOPOPT # IPv6 Hop-by-Hop Option [RFC1883]" } { "2" { "protocol" = "icmp" } { "number" = "1" } { "alias" = "ICMP" } { "#comment" = "internet control message protocol" } } { "3" { "protocol" = "igmp" } { "number" = "2" } { "alias" = "IGMP" } { "#comment" = "Internet Group Management" } } { "4" { "protocol" = "tp++" } { "number" = "39" } { "alias" = "TP++" } { "#comment" = "TP++ Transport Protocol" } } { "5" { "protocol" = "a/n" } { "number" = "107" } { "alias" = "A/N" } { "#comment" = "Active Networks" } } PK ! �r�� � " lenses/dist/tests/test_cmdline.augnu �[��� module Test_cmdline = let lns = Cmdline.lns test lns get "foo\nbar" = * test lns get "foo\n" = { "foo" } test lns get "foo" = { "foo" } test lns get "foo bar" = { "foo" } { "bar" } test lns get "foo bar" = { "foo" } { "bar" } test lns get "foo=bar" = { "foo" = "bar" } test lns get "foo=bar foo=baz" = { "foo" = "bar" } { "foo" = "baz" } test lns get "foo bar=bar quux baz=x" = { "foo" } { "bar" = "bar" } { "quux" } { "baz" = "x" } test lns get "initrd=\linux\initrd.img-4.19.0-6-amd64 root=UUID=SOME_UUID rw" = { "initrd" = "\linux\initrd.img-4.19.0-6-amd64" } { "root" = "UUID=SOME_UUID" } { "rw" } test lns put "" after set "foo" "bar" = "foo=bar" test lns put "foo=bar" after rm "foo" = "" test lns put "x=y foo=bar" after set "foo" "baz" = "x=y foo=baz" test lns put "foo=bar foo=baz" after set "foo[. = 'bar']" "quux" = "foo=quux foo=baz" test lns put "foo=bar foo=baz" after set "foo[. = 'baz']" "quux" = "foo=bar foo=quux" test lns put "" after set "foo" "" = "foo" PK ! !��C * lenses/dist/tests/test_sysconfig_route.augnu �[��� (* Module: Test_Sysconfig_Route Provides unit tests and examples for the <Sysconfig_Route> lens. *) module Test_sysconfig_route = (* Test: Sysconfig_Route.lns *) test Sysconfig_Route.lns get "10.40.11.102/32 via 10.40.8.1\n10.1.8.0/24 via 10.40.8.254\n" = { "10.40.8.1" = "10.40.11.102/32" } { "10.40.8.254" = "10.1.8.0/24" } (* Test: Sysconfig_Route.lns *) test Sysconfig_Route.lns get "10.40.11.102/32 via 10.40.8.1\n10.1.8.0/24 via 10.40.8.1\n" = { "10.40.8.1" = "10.40.11.102/32" } { "10.40.8.1" = "10.1.8.0/24" } PK ! xQ; ! lenses/dist/tests/test_getcap.augnu �[��� module Test_getcap = (* Example from getcap(3) *) let getcap = "example|an example of binding multiple values to names:\\ :foo%bar:foo^blah:foo@:\\ :abc%xyz:abc^frap:abc$@:\\ :tc=more: " test Getcap.lns get getcap = { "record" { "name" = "example" } { "name" = "an example of binding multiple values to names" } { "capability" = "foo%bar" } { "capability" = "foo^blah" } { "capability" = "foo@" } { "capability" = "abc%xyz" } { "capability" = "abc^frap" } { "capability" = "abc$@" } { "capability" = "tc=more" } } (* Taken from the standard /etc/login.conf *) let login_conf = "# Default allowed authentication styles auth-defaults:auth=passwd,skey: # Default allowed authentication styles for authentication type ftp auth-ftp-defaults:auth-ftp=passwd: # # The default values # To alter the default authentication types change the line: # :tc=auth-defaults:\\ # to be read something like: (enables passwd, \"myauth\", and activ) # :auth=passwd,myauth,activ:\\ # Any value changed in the daemon class should be reset in default # class. # default:\\ :path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin:\\ :umask=022:\\ :datasize-max=512M:\\ :datasize-cur=512M:\\ :maxproc-max=256:\\ :maxproc-cur=128:\\ :openfiles-cur=512:\\ :stacksize-cur=4M:\\ :localcipher=blowfish,8:\\ :ypcipher=old:\\ :tc=auth-defaults:\\ :tc=auth-ftp-defaults: " test Getcap.lns get login_conf = { "#comment" = "Default allowed authentication styles" } { "record" { "name" = "auth-defaults" } { "capability" = "auth=passwd,skey" } } { } { "#comment" = "Default allowed authentication styles for authentication type ftp" } { "record" { "name" = "auth-ftp-defaults" } { "capability" = "auth-ftp=passwd" } } { } { } { "#comment" = "The default values" } { "#comment" = "To alter the default authentication types change the line:" } { "#comment" = ":tc=auth-defaults:\\" } { "#comment" = "to be read something like: (enables passwd, \"myauth\", and activ)" } { "#comment" = ":auth=passwd,myauth,activ:\\" } { "#comment" = "Any value changed in the daemon class should be reset in default" } { "#comment" = "class." } { } { "record" { "name" = "default" } { "capability" = "path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin" } { "capability" = "umask=022" } { "capability" = "datasize-max=512M" } { "capability" = "datasize-cur=512M" } { "capability" = "maxproc-max=256" } { "capability" = "maxproc-cur=128" } { "capability" = "openfiles-cur=512" } { "capability" = "stacksize-cur=4M" } { "capability" = "localcipher=blowfish,8" } { "capability" = "ypcipher=old" } { "capability" = "tc=auth-defaults" } { "capability" = "tc=auth-ftp-defaults" } } (* Sample /etc/printcap *) let printcap = "# $OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $ lp|local line printer:\\ :lp=/dev/lp:sd=/var/spool/output:lf=/var/log/lpd-errs: rp|remote line printer:\\ :lp=:rm=printhost:rp=lp:sd=/var/spool/output:lf=/var/log/lpd-errs: " test Getcap.lns get printcap = { "#comment" = "$OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $" } { } { "record" { "name" = "lp" } { "name" = "local line printer" } { "capability" = "lp=/dev/lp" } { "capability" = "sd=/var/spool/output" } { "capability" = "lf=/var/log/lpd-errs" } } { } { "record" { "name" = "rp" } { "name" = "remote line printer" } { "capability" = "lp=" } { "capability" = "rm=printhost" } { "capability" = "rp=lp" } { "capability" = "sd=/var/spool/output" } { "capability" = "lf=/var/log/lpd-errs" } } PK ! ����; ; % lenses/dist/tests/test_subversion.augnu �[��� (* Module: Test_Subversion Provides unit tests and examples for the <Subversion> lens. *) module Test_Subversion = (* Variable: conf *) let conf = "# This file configures various client-side behaviors. [auth] password-stores = gnome-keyring,kwallet store-passwords = no store-auth-creds = no [helpers] editor-cmd = /usr/bin/vim diff-cmd = /usr/bin/diff diff3-cmd = /usr/bin/diff3 diff3-has-program-arg = yes [tunnels] ssh = $SVN_SSH ssh -o ControlMaster=no rsh = /path/to/rsh -l myusername [miscellany] global-ignores = *.o *.lo *.la *.al .libs *.so *.so.[0-9]* *.a *.pyc *.pyo *.rej *~ #*# .#* .*.swp .DS_Store # Set log-encoding to the default encoding for log messages log-encoding = latin1 use-commit-times = yes no-unlock = yes mime-types-file = /path/to/mime.types preserved-conflict-file-exts = doc ppt xls od? enable-auto-props = yes interactive-conflicts = no [auto-props] *.c = svn:eol-style=native *.cpp = svn:eol-style=native *.h = svn:eol-style=native *.dsp = svn:eol-style=CRLF *.dsw = svn:eol-style=CRLF *.sh = svn:eol-style=native;svn:executable *.txt = svn:eol-style=native *.png = svn:mime-type=image/png *.jpg = svn:mime-type=image/jpeg Makefile = svn:eol-style=native " (* Test: Subversion.lns *) test Subversion.lns get conf = { "#comment" = "This file configures various client-side behaviors." } { "auth" { "password-stores" { "1" = "gnome-keyring" } { "2" = "kwallet" } } { "store-passwords" = "no" } { "store-auth-creds" = "no" } { } } { "helpers" { "editor-cmd" = "/usr/bin/vim" } { "diff-cmd" = "/usr/bin/diff" } { "diff3-cmd" = "/usr/bin/diff3" } { "diff3-has-program-arg" = "yes" } { } } { "tunnels" { "ssh" = "$SVN_SSH ssh -o ControlMaster=no" } { "rsh" = "/path/to/rsh -l myusername" } { } } { "miscellany" { "global-ignores" { "1" = "*.o" } { "2" = "*.lo" } { "3" = "*.la" } { "4" = "*.al" } { "5" = ".libs" } { "6" = "*.so" } { "7" = "*.so.[0-9]*" } { "8" = "*.a" } { "9" = "*.pyc" } { "10" = "*.pyo" } { "11" = "*.rej" } { "12" = "*~" } { "13" = "#*#" } { "14" = ".#*" } { "15" = ".*.swp" } { "16" = ".DS_Store" } } { "#comment" = "Set log-encoding to the default encoding for log messages" } { "log-encoding" = "latin1" } { "use-commit-times" = "yes" } { "no-unlock" = "yes" } { "mime-types-file" = "/path/to/mime.types" } { "preserved-conflict-file-exts" { "1" = "doc" } { "2" = "ppt" } { "3" = "xls" } { "4" = "od?" } } { "enable-auto-props" = "yes" } { "interactive-conflicts" = "no" } { } } { "auto-props" { "*.c" = "svn:eol-style=native" } { "*.cpp" = "svn:eol-style=native" } { "*.h" = "svn:eol-style=native" } { "*.dsp" = "svn:eol-style=CRLF" } { "*.dsw" = "svn:eol-style=CRLF" } { "*.sh" = "svn:eol-style=native;svn:executable" } { "*.txt" = "svn:eol-style=native" } { "*.png" = "svn:mime-type=image/png" } { "*.jpg" = "svn:mime-type=image/jpeg" } { "Makefile" = "svn:eol-style=native" } } PK ! 5���a a lenses/dist/tests/test_ntp.augnu �[��� module Test_ntp = let conf = "# # Fichier genere par puppet # Environnement: development server dns01.echo-net.net version 3 server dns02.echo-net.net version 4 driftfile /var/lib/ntp/ntp.drift restrict default ignore #server dns01.echo-net.net restrict 192.168.0.150 nomodify # allow everything from localhost restrict 127.0.0.1 logfile /var/log/ntpd statsdir /var/log/ntpstats/ ntpsigndsocket /var/lib/samba/ntp_signd statistics loopstats peerstats clockstats filegen loopstats file loopstats type day enable link filegen peerstats file peerstats type day disable filegen clockstats file clockstats type day enable nolink interface ignore wildcard interface listen 127.0.0.1 " test Ntp.lns get conf = { "#comment" = "" } { "#comment" = "Fichier genere par puppet" } { "#comment" = "Environnement: development" } {} { "server" = "dns01.echo-net.net" { "version" = "3" } } { "server" = "dns02.echo-net.net" { "version" = "4" } } {} { "driftfile" = "/var/lib/ntp/ntp.drift" } {} { "restrict" = "default" { "action" = "ignore" } } {} { "#comment" = "server dns01.echo-net.net" } { "restrict" = "192.168.0.150" { "action" = "nomodify" } } {} { "#comment" = "allow everything from localhost" } { "restrict" = "127.0.0.1" } {} { "logfile" = "/var/log/ntpd" } { "statsdir" = "/var/log/ntpstats/" } { "ntpsigndsocket" = "/var/lib/samba/ntp_signd" } {} { "statistics" { "loopstats" } { "peerstats" } { "clockstats" } } { "filegen" = "loopstats" { "file" = "loopstats" } { "type" = "day" } { "enable" = "enable" } { "link" = "link" } } { "filegen" = "peerstats" { "file" = "peerstats" } { "type" = "day" } { "enable" = "disable" } } { "filegen" = "clockstats" { "file" = "clockstats" } { "type" = "day" } { "enable" = "enable" } { "link" = "nolink" } } { } { "interface" { "action" = "ignore" } { "addresses" = "wildcard" } } { "interface" { "action" = "listen" } { "addresses" = "127.0.0.1" } } (* Some things needed to process the default ntp.conf on Fedora *) test Ntp.lns get "server 66.187.233.4 # added by /sbin/dhclient-script\n" = { "server" = "66.187.233.4" { "#comment" = "# added by /sbin/dhclient-script" } } test Ntp.lns get "server 0.fedora.pool.ntp.org iburst dynamic\n" = { "server" = "0.fedora.pool.ntp.org" { "iburst" } { "dynamic" } } test Ntp.lns get "restrict 127.0.0.1 \n" = { "restrict" = "127.0.0.1" } test Ntp.lns get "restrict default kod nomodify notrap nopeer noquery\n" = { "restrict" = "default" { "action" = "kod" } { "action" = "nomodify" } { "action" = "notrap" } { "action" = "nopeer" } { "action" = "noquery" } } test Ntp.lns put "restrict default kod nomodify notrap nopeer noquery\n" after insb "ipv6" "restrict/action[1]" = "restrict -6 default kod nomodify notrap nopeer noquery\n" test Ntp.lns get "restrict -6 default kod nomodify notrap nopeer noquery\n" = { "restrict" = "default" { "ipv6" } { "action" = "kod" } { "action" = "nomodify" } { "action" = "notrap" } { "action" = "nopeer" } { "action" = "noquery" } } test Ntp.lns put "restrict default kod nomodify notrap nopeer noquery\n" after insb "ipv4" "restrict/action[1]" = "restrict -4 default kod nomodify notrap nopeer noquery\n" test Ntp.lns get "restrict -4 default notrap nomodify nopeer noquery\n" = { "restrict" = "default" { "ipv4" } { "action" = "notrap" } { "action" = "nomodify" } { "action" = "nopeer" } { "action" = "noquery" } } test Ntp.lns get "includefile /etc/ntp/crypto/pw\n" = { "includefile" = "/etc/ntp/crypto/pw" } test Ntp.lns get "fudge 127.127.1.0 stratum 10\n" = { "fudge" = "127.127.1.0" { "stratum" = "10" } } test Ntp.lns get "broadcast 192.168.1.255 key 42\n" = { "broadcast" = "192.168.1.255" { "key" = "42" } } test Ntp.lns get "multicastclient 224.0.1.1\n" = { "multicastclient" = "224.0.1.1" } test Ntp.lns put "broadcastclient\tnovolley # broadcast\n" after rm "/*/novolley" = "broadcastclient # broadcast\n" test Ntp.auth_command get "trustedkey 4 8 42\n" = { "trustedkey" { "key" = "4" } { "key" = "8" } { "key" = "42" } } test Ntp.auth_command get "trustedkey 42\n" = { "trustedkey" { "key" = "42" } } test Ntp.lns get "broadcastdelay 0.008\n" = { "broadcastdelay" = "0.008" } test Ntp.lns get "enable auth calibrate\ndisable kernel stats\n" = { "enable" { "flag" = "auth" } { "flag" = "calibrate" } } { "disable" { "flag" = "kernel" } { "flag" = "stats" } } (* Bug #103: tinker directive *) test Ntp.tinker get "tinker panic 0 huffpuff 3.14\n" = { "tinker" { "panic" = "0" } { "huffpuff" = "3.14" } } (* Bug #297: tos directive *) test Ntp.tos get "tos maxdist 16\n" = { "tos" { "maxdist" = "16" } } PK ! �\� - lenses/dist/tests/test_postfix_sasl_smtpd.augnu �[��� module Test_Postfix_Sasl_Smtpd = let conf = "pwcheck_method: auxprop saslauthd auxprop_plugin: plesk saslauthd_path: /private/plesk_saslauthd mech_list: CRAM-MD5 PLAIN LOGIN sql_engine: intentionally disabled log_level: 4 " test Postfix_sasl_smtpd.lns get conf = { "pwcheck_method" = "auxprop saslauthd" } { "auxprop_plugin" = "plesk" } { "saslauthd_path" = "/private/plesk_saslauthd" } { "mech_list" = "CRAM-MD5 PLAIN LOGIN" } { "sql_engine" = "intentionally disabled" } { "log_level" = "4" } PK ! .��>Y Y lenses/dist/tests/test_group.augnu �[��� module Test_group = let conf = "bin:x:2: audio:x:29:joe avahi-autoipd:!:113:bill,martha " test Group.lns get conf = { "bin" { "password" = "x" } { "gid" = "2" } } { "audio" { "password" = "x" } { "gid" = "29" } { "user" = "joe" } } { "avahi-autoipd" { "password" = "!" } { "gid" = "113" } { "user" = "bill"} { "user" = "martha"} } (* Password field can be empty *) test Group.lns get "root::0:root\n" = { "root" { "password" = "" } { "gid" = "0" } { "user" = "root" } } (* Password field can be disabled by ! or * *) test Group.lns get "testgrp:!:0:testusr\n" = { "testgrp" { "password" = "!" } { "gid" = "0" } { "user" = "testusr" } } test Group.lns get "testgrp:*:0:testusr\n" = { "testgrp" { "password" = "*" } { "gid" = "0" } { "user" = "testusr" } } (* NIS defaults *) test Group.lns get "+\n" = { "@nisdefault" } test Group.lns get "+:::\n" = { "@nisdefault" { "password" = "" } { "gid" = "" } } test Group.lns get "+:*::\n" = { "@nisdefault" { "password" = "*" } { "gid" = "" } } PK ! ����� � " lenses/dist/tests/test_systemd.augnu �[��� (* Module: Test_Systemd Provides unit tests and examples for the <Systemd> lens. *) module Test_Systemd = (* Variable: desc *) let desc = "[Unit] Description=RPC Description=RPC bind service Description=RPC bind\\ service Description= Resets System Activity Logs " (* Test: Systemd.lns *) test Systemd.lns get desc = { "Unit" { "Description" { "value" = "RPC" } } { "Description" { "value" = "RPC bind service" } } { "Description" { "value" = "RPC bind\ service" } } { "Description" { "value" = "Resets System Activity Logs" } } } (* Variable: multi *) let multi = "[Unit] After=syslog.target network.target Also=canberra-system-shutdown.service canberra-system-shutdown-reboot.service Before=sysinit.target shutdown.target CapabilityBoundingSet=CAP_SYS_ADMIN CAP_SETUID CAP_SETGID Conflicts=emergency.service emergency.target ControlGroup=%R/user/%I/shared cpu:/ ListenNetlink=kobject-uevent 1 Requires=shutdown.target umount.target final.target Sockets=udev-control.socket udev-kernel.socket WantedBy=halt.target poweroff.target Wants=local-fs.target swap.target Wants=local-fs.target \ swap.target Wants=local-fs.target\ swap.target Wants= local-fs.target " (* Test: Systemd.lns *) test Systemd.lns get multi = { "Unit" { "After" { "value" = "syslog.target" } { "value" = "network.target" } } { "Also" { "value" = "canberra-system-shutdown.service" } { "value" = "canberra-system-shutdown-reboot.service" } } { "Before" { "value" = "sysinit.target" } { "value" = "shutdown.target" } } { "CapabilityBoundingSet" { "value" = "CAP_SYS_ADMIN" } { "value" = "CAP_SETUID" } { "value" = "CAP_SETGID" } } { "Conflicts" { "value" = "emergency.service" } { "value" = "emergency.target" } } { "ControlGroup" { "value" = "%R/user/%I/shared" } { "value" = "cpu:/" } } { "ListenNetlink" { "value" = "kobject-uevent" } { "value" = "1" } } { "Requires" { "value" = "shutdown.target" } { "value" = "umount.target" } { "value" = "final.target" } } { "Sockets" { "value" = "udev-control.socket" } { "value" = "udev-kernel.socket" } } { "WantedBy" { "value" = "halt.target" } { "value" = "poweroff.target" } } { "Wants" { "value" = "local-fs.target" } { "value" = "swap.target" } } { "Wants" { "value" = "local-fs.target" } { "value" = "swap.target" } } { "Wants" { "value" = "local-fs.target" } { "value" = "swap.target" } } { "Wants" { "value" = "local-fs.target" } } } (* Variable: exec *) let exec = "[Service] ExecStart=/bin/ls ExecReload=/bin/kill -USR1 $MAINPID ExecStart=/sbin/rpcbind -w ExecStartPost=/bin/systemctl disable firstboot-graphical.service firstboot-text.service ExecStartPre=/sbin/modprobe -qa $SUPPORTED_DRIVERS ExecStop=/usr/sbin/aiccu stop ExecStopPost=-/bin/systemctl poweroff ExecStopPost=@/bin/systemctl poweroff ExecStopPost=-@/bin/systemctl poweroff ExecStopPost=/bin/systemctl\ poweroff " (* Test: Systemd.lns *) test Systemd.lns get exec = { "Service" { "ExecStart" { "command" = "/bin/ls" } } { "ExecReload" { "command" = "/bin/kill" } { "arguments" { "1" = "-USR1" } { "2" = "$MAINPID" } } } { "ExecStart" { "command" = "/sbin/rpcbind" } { "arguments" { "1" = "-w" } } } { "ExecStartPost" { "command" = "/bin/systemctl" } { "arguments" { "1" = "disable" } { "2" = "firstboot-graphical.service" } { "3" = "firstboot-text.service" } } } { "ExecStartPre" { "command" = "/sbin/modprobe" } { "arguments" { "1" = "-qa" } { "2" = "$SUPPORTED_DRIVERS" } } } { "ExecStop" { "command" = "/usr/sbin/aiccu" } { "arguments" { "1" = "stop" } } } { "ExecStopPost" { "ignoreexit" } { "command" = "/bin/systemctl" } { "arguments" { "1" = "poweroff" } } } { "ExecStopPost" { "arg0" } { "command" = "/bin/systemctl" } { "arguments" { "1" = "poweroff" } } } { "ExecStopPost" { "ignoreexit" } { "arg0" } { "command" = "/bin/systemctl" } { "arguments" { "1" = "poweroff" } } } { "ExecStopPost" { "command" = "/bin/systemctl" } { "arguments" { "1" = "poweroff" } } } } (* Variable: env *) let env = "[Service] Environment=LANG=C Environment=LANG=C FOO=BAR Environment=LANG= LANGUAGE= LC_CTYPE= LC_NUMERIC= LC_TIME= LC_COLLATE= LC_MONETARY= LC_MESSAGES= LC_PAPER= LC_NAME= LC_ADDRESS= LC_TELEPHONE= LC_MEASUREMENT= LC_IDENTIFICATION= Environment=LANG=C\ FOO=BAR Environment=\"LANG=foo bar\" FOO=BAR Environment=OPTIONS=\"-LS0-6d\" Environment=OPTIONS='-LS0-6d' Environment=VAR=\"with some spaces\" VAR2='more spaces' Environment=VAR='with some spaces' " (* Test: Systemd.lns *) test Systemd.lns get env = { "Service" { "Environment" { "LANG" = "C" } } { "Environment" { "LANG" = "C" } { "FOO" = "BAR" } } { "Environment" { "LANG" } { "LANGUAGE" } { "LC_CTYPE" } { "LC_NUMERIC" } { "LC_TIME" } { "LC_COLLATE" } { "LC_MONETARY" } { "LC_MESSAGES" } { "LC_PAPER" } { "LC_NAME" } { "LC_ADDRESS" } { "LC_TELEPHONE" } { "LC_MEASUREMENT" } { "LC_IDENTIFICATION" } } { "Environment" { "LANG" = "C" } { "FOO" = "BAR" } } { "Environment" { "LANG" = "foo bar" } { "FOO" = "BAR" } } { "Environment" { "OPTIONS" = "\"-LS0-6d\"" } } { "Environment" { "OPTIONS" = "'-LS0-6d'" } } { "Environment" { "VAR" = "\"with some spaces\"" } { "VAR2" = "'more spaces'" } } { "Environment" { "VAR" = "'with some spaces'" } } } (* Variable: unit *) let unit = "# This file is part of systemd. # # See systemd.special(7) for details .include /etc/example [Unit] Description=Locale Service # Add another file .include /etc/example [Service] ExecStart=/lib/systemd/systemd-localed Type=dbus BusName=org.freedesktop.locale1 CapabilityBoundingSet= " (* Test: Systemd.lns *) test Systemd.lns get unit = { "#comment" = "This file is part of systemd." } {} { } { "#comment" = "See systemd.special(7) for details" } { } { ".include" = "/etc/example" } { } { "Unit" { "Description" { "value" = "Locale Service" } } { "#comment" = "Add another file" } { ".include" = "/etc/example" } { } } { "Service" { "ExecStart" { "command" = "/lib/systemd/systemd-localed" } } { "Type" { "value" = "dbus" } } { "BusName" { "value" = "org.freedesktop.locale1" } } { "CapabilityBoundingSet" } { } } (* Test: Systemd.lns Values can contain backslashes *) test Systemd.entry_command get "ExecStart=/usr/bin/find /var/lib/sudo -exec /usr/bin/touch -t 198501010000 '{}' \073\n" = { "ExecStart" { "command" = "/usr/bin/find" } { "arguments" { "1" = "/var/lib/sudo" } { "2" = "-exec" } { "3" = "/usr/bin/touch" } { "4" = "-t" } { "5" = "198501010000" } { "6" = "'{}'" } { "7" = "\073" } } } let exec_tmux = "ExecStart=/usr/bin/tmux unbind-key -a; \ kill-window -t anaconda:shell; \ bind-key ? list-keys\n" (* Test: Systemd.lns Semicolons are permitted in entry values, e.g. as part of a command *) test Systemd.entry_command get exec_tmux = { "ExecStart" { "command" = "/usr/bin/tmux" } { "arguments" { "1" = "unbind-key" } { "2" = "-a;" } { "3" = "kill-window" } { "4" = "-t" } { "5" = "anaconda:shell;" } { "6" = "bind-key" } { "7" = "?" } { "8" = "list-keys" } } } (* Test: Systemd.lns # and ; are OK for standalone comments, but # only for EOL comments *) test Systemd.lns get "[Service]\n# hash\n; semicolon\nExecStart=/bin/echo # hash\n" = { "Service" { "#comment" = "hash" } { "#comment" = "semicolon" } { "ExecStart" { "command" = "/bin/echo" } { "#comment" = "hash" } } } PK ! ���vg g $ lenses/dist/tests/test_sysconfig.augnu �[��� (* Test for sysconfig lens *) module Test_sysconfig = let lns = Sysconfig.lns let eth_static = "# Intel Corporation PRO/100 VE Network Connection DEVICE=eth0 BOOTPROTO=static BROADCAST=172.31.0.255 HWADDR=ab:cd:ef:12:34:56 export IPADDR=172.31.0.31 # this is our IP #DHCP_HOSTNAME=host.example.com NETMASK=255.255.255.0 NETWORK=172.31.0.0 unset ONBOOT # We do not want this var " let empty_val = "EMPTY=\nDEVICE=eth0\n" let key_brack = "SOME_KEY[1]=\nDEVICE=eth0\n" test lns get eth_static = { "#comment" = "Intel Corporation PRO/100 VE Network Connection" } { "DEVICE" = "eth0" } { "BOOTPROTO" = "static" } { "BROADCAST" = "172.31.0.255" } { "HWADDR" = "ab:cd:ef:12:34:56" } { "IPADDR" = "172.31.0.31" { "export" } { "#comment" = "this is our IP" } } { "#comment" = "DHCP_HOSTNAME=host.example.com" } { "NETMASK" = "255.255.255.0" } { "NETWORK" = "172.31.0.0" } { "@unset" { "1" = "ONBOOT" } { "#comment" = "We do not want this var" } } test lns put eth_static after set "BOOTPROTO" "dhcp" ; rm "IPADDR" ; rm "BROADCAST" ; rm "NETMASK" ; rm "NETWORK" = "# Intel Corporation PRO/100 VE Network Connection DEVICE=eth0 BOOTPROTO=dhcp HWADDR=ab:cd:ef:12:34:56 #DHCP_HOSTNAME=host.example.com unset ONBOOT # We do not want this var " test lns get empty_val = { "EMPTY" = "" } { "DEVICE" = "eth0" } test lns get key_brack = { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" } test lns get "smartd_opts=\"-q never\"\n" = { "smartd_opts" = "-q never" } test lns get "var=val \n" = { "var" = "val" } test lns get ". /etc/java/java.conf\n" = { ".source" = "/etc/java/java.conf" } (* Quoted strings and other oddities *) test lns get "var=\"foo 'bar'\"\n" = { "var" = "foo 'bar'" } test lns get "var=\"eth0\"\n" = { "var" = "eth0" } test lns get "var='eth0'\n" = { "var" = "eth0" } test lns get "var='Some \"funny\" value'\n" = { "var" = "Some \"funny\" value" } test lns get "var=\"\\\"\"\n" = { "var" = "\\\"" } test lns get "var=\\\"\n" = { "var" = "\\\"" } test lns get "var=ab#c\n" = { "var" = "ab#c" } test lns get "var='ab#c'\n" = { "var" = "ab#c" } test lns get "var=\"ab#c\"\n" = { "var" = "ab#c" } test lns get "var=\"ab#c\"\n" = { "var" = "ab#c" } (* We don't handle backticks *) test lns get "var=`grep nameserver /etc/resolv.conf | head -1`\n" = * test lns get "var=ab #c\n" = { "var" = "ab" { "#comment" = "c" } } test lns put "var=ab #c\n" after rm "/var/#comment" = "var=ab\n" test lns put "var=ab\n" after set "/var/#comment" "this is a var" = "var=ab # this is a var\n" (* Test semicolons *) test lns get "VAR1=\"this;is;a;test\"\nVAR2=this;\n" = { "VAR1" = "this;is;a;test" } { "VAR2" = "this" } (* BZ 761246 *) test lns get "DEVICE=\"eth0\";\n" = { "DEVICE" = "eth0" } test lns put "DEVICE=\"eth0\";\n" after set "/DEVICE" "em1" = "DEVICE=\"em1\";\n" test lns get "DEVICE=\"eth0\"; # remark\n" = { "DEVICE" = "eth0" } { "#comment" = "remark" } (* Bug 109: allow a bare export *) test lns get "export FOO\n" = { "@export" { "1" = "FOO" } } (* Check we put quotes in when changes require them *) test lns put "var=\"v\"\n" after rm "/foo" = "var=\"v\"\n" test lns put "var=v\n" after set "/var" "v w"= "var=\"v w\"\n" test lns put "var='v'\n" after set "/var" "v w"= "var='v w'\n" test lns put "var=v\n" after set "/var" "v'w"= "var=\"v'w\"\n" test lns put "var=v\n" after set "/var" "v\"w"= "var='v\"w'\n" (* RHBZ#1043636: empty comment lines after comments *) test lns get "#MOUNTD_NFS_V3\n#\n" = { "#comment" = "MOUNTD_NFS_V3" } (* Handle leading whitespace at the beginning of a line correctly *) test lns get " var=value\n" = { "var" = "value" } test lns put " var=value\n" after set "/var" "val2" = " var=val2\n" test lns get "\t \tvar=value\n" = { "var" = "value" } test lns get " export var=value\n" = { "var" = "value" { "export" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �� b^ ^ ! lenses/dist/tests/test_sysctl.augnu �[��� (* Module: Test_Sysctl Provides unit tests and examples for the <Sysctl> lens. *) module Test_sysctl = (* Variable: default_sysctl *) let default_sysctl = "# Kernel sysctl configuration file # Controls IP packet forwarding net.ipv4.ip_forward = 0 net.ipv4.conf.default.rp_filter = 1 net.ipv4.conf.default.accept_source_route = \t0 kernel.sysrq = 0 ; Semicolon comments are also allowed net.ipv4.tcp_mem = \t393216 524288 786432 " (* Test: Sysctl.lns *) test Sysctl.lns get default_sysctl = { "#comment" = "Kernel sysctl configuration file" } { "#comment" = "Controls IP packet forwarding"} { "net.ipv4.ip_forward" = "0" } { } { "net.ipv4.conf.default.rp_filter" = "1" } { "net.ipv4.conf.default.accept_source_route" = "0" } { "kernel.sysrq" = "0" } { } { "#comment" = "Semicolon comments are also allowed" } { "net.ipv4.tcp_mem" = "393216 524288 786432" } (* Test: Sysctl.lns *) test Sysctl.lns put default_sysctl after set "net.ipv4.ip_forward" "1" ; rm "net.ipv4.conf.default.rp_filter" ; rm "net.ipv4.conf.default.accept_source_route" ; rm "kernel.sysrq" = "# Kernel sysctl configuration file # Controls IP packet forwarding net.ipv4.ip_forward = 1 ; Semicolon comments are also allowed net.ipv4.tcp_mem = \t393216 524288 786432 " (* Local Variables: *) (* mode: caml *) (* End: *) PK ! W0�{E< E< lenses/dist/tests/test_dhcpd.augnu �[��� module Test_dhcpd = let lns = Dhcpd.lns let conf = "# # Sample configuration file for ISC dhcpd for Debian # # Attention: If /etc/ltsp/dhcpd.conf exists, that will be used as # configuration file instead of this file. # # $Id: dhcpd.conf,v 1.1.1.1 2002/05/21 00:07:44 peloy Exp $ # # The ddns-updates-style parameter controls whether or not the server will # attempt to do a DNS update when a lease is confirmed. We default to the # behavior of the version 2 packages ('none', since DHCP v2 didn't # have support for DDNS.) ddns-update-style none; # option definitions common to all supported networks... option domain-name \"example.org\"; option domain-name-servers ns1.example.org, ns2.example.org; default-lease-time 600; max-lease-time 7200; # If this DHCP server is the official DHCP server for the local # network, the authoritative directive should be uncommented. authoritative; allow booting; allow bootp; # Use this to send dhcp log messages to a different log file (you also # have to hack syslog.conf to complete the redirection). log-facility local7; # No service will be given on this subnet, but declaring it helps the # DHCP server to understand the network topology. subnet 10.152.187.0 netmask 255.255.255.0 { } # This is a very basic subnet declaration. subnet 10.254.239.0 netmask 255.255.255.224 { range 10.254.239.10 10.254.239.20; option routers rtr-239-0-1.example.org, rtr-239-0-2.example.org; } # This declaration allows BOOTP clients to get dynamic addresses, # which we don't really recommend. subnet 10.254.239.32 netmask 255.255.255.224 { range dynamic-bootp 10.254.239.40 10.254.239.60; option broadcast-address 10.254.239.31; option routers rtr-239-32-1.example.org; } # A slightly different configuration for an internal subnet. subnet 10.5.5.0 netmask 255.255.255.224 { range 10.5.5.26 10.5.5.30; option domain-name-servers ns1.internal.example.org; option domain-name \"internal.example.org\"; option routers 10.5.5.1; option broadcast-address 10.5.5.31; default-lease-time 600; max-lease-time 7200; } # Hosts which require special configuration options can be listed in # host statements. If no address is specified, the address will be # allocated dynamically (if possible), but the host-specific information # will still come from the host declaration. host passacaglia { hardware ethernet 0:0:c0:5d:bd:95; filename \"vmunix.passacaglia\"; server-name \"toccata.fugue.com\"; } # Fixed IP addresses can also be specified for hosts. These addresses # should not also be listed as being available for dynamic assignment. # Hosts for which fixed IP addresses have been specified can boot using # BOOTP or DHCP. Hosts for which no fixed address is specified can only # be booted with DHCP, unless there is an address range on the subnet # to which a BOOTP client is connected which has the dynamic-bootp flag # set. host fantasia { hardware ethernet 08:00:07:26:c0:a5; fixed-address fantasia.fugue.com; } # You can declare a class of clients and then do address allocation # based on that. The example below shows a case where all clients # in a certain class get addresses on the 10.17.224/24 subnet, and all # other clients get addresses on the 10.0.29/24 subnet. #class \"foo\" { # match if substring (option vendor-class-identifier, 0, 4) = \"SUNW\"; #} shared-network 224-29 { subnet 10.17.224.0 netmask 255.255.255.0 { option routers rtr-224.example.org; } subnet 10.0.29.0 netmask 255.255.255.0 { option routers rtr-29.example.org; } pool { allow members of \"foo\"; range 10.17.224.10 10.17.224.250; } pool { deny members of \"foo\"; range 10.0.29.10 10.0.29.230; } } " test lns get "authoritative;" = { "authoritative" } test lns get "ddns-update-style none;" = { "ddns-update-style" = "none" } test lns get "option domain-name \"example.org\";" = { "option" { "domain-name" { "arg" = "example.org" } } } test lns get "option domain-name-servers ns1.example.org, ns2.example.org;" = { "option" { "domain-name-servers" { "arg" = "ns1.example.org" } { "arg" = "ns2.example.org" } } } test lns get "default-lease-time 600;" = { "default-lease-time" = "600" } test lns get "range 10.254.239.60;" = { "range" { "to" = "10.254.239.60" } } test lns get "range dynamic-bootp 10.254.239.60;" = { "range" { "flag" = "dynamic-bootp" } { "to" = "10.254.239.60" } } test lns get "range dynamic-bootp 10.254.239.40 10.254.239.60;" = { "range" { "flag" = "dynamic-bootp" } { "from" = "10.254.239.40" } { "to" = "10.254.239.60" } } test lns get "subnet 10.152.187.0 netmask 255.255.255.0 {}\n" = { "subnet" { "network" = "10.152.187.0" } { "netmask" = "255.255.255.0" } } test lns get " pool { pool { } } " = { "pool" { "pool" } } test lns get "group { host some-host {hardware ethernet 00:00:aa:bb:cc:dd; fixed-address 10.1.1.1;}}" = { "group" { "host" = "some-host" { "hardware" { "type" = "ethernet" } { "address" = "00:00:aa:bb:cc:dd" } } { "fixed-address" = "10.1.1.1" } } } test lns get "group fan-tas_tic { }" = { "group" = "fan-tas_tic" } test Dhcpd.stmt_secu get "allow members of \"foo\";" = { "allow-members-of" = "foo" } test Dhcpd.stmt_secu get "allow booting;" = { "allow" = "booting" } test Dhcpd.stmt_secu get "allow bootp;" = { "allow" = "bootp" } test Dhcpd.stmt_option get "option voip-boot-server code 66 = string;" = { "rfc-code" { "label" = "voip-boot-server" } { "code" = "66" } { "type" = "string" } } test Dhcpd.stmt_option get "option special-option code 25 = array of string;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "array of string" } } test Dhcpd.stmt_option get "option special-option code 25 = integer 32;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "integer 32" } } test Dhcpd.stmt_option get "option special-option code 25 = array of integer 32;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "array of integer 32" } } test Dhcpd.lns get "authoritative; log-facility local7; ddns-update-style none; default-lease-time 21600; max-lease-time 43200; # Additional options for VOIP option voip-boot-server code 66 = string; option voip-vlan-id code 128 = string; " = { "authoritative" } { "log-facility" = "local7" } { "ddns-update-style" = "none" } { "default-lease-time" = "21600" } { "max-lease-time" = "43200" { "#comment" = "Additional options for VOIP" } } { "rfc-code" { "label" = "voip-boot-server" } { "code" = "66" } { "type" = "string" } } { "rfc-code" { "label" = "voip-vlan-id" } { "code" = "128" } { "type" = "string" } } test Dhcpd.lns get " option domain-name-servers 10.1.1.1, 10.11.2.1, 10.1.3.1; next-server 10.1.1.1; failover peer \"redondance01\" { primary; address 10.1.1.1; port 647; peer address 10.1.1.1; peer port 647; max-response-delay 20; max-unacked-updates 10; mclt 3600; #comment. split 128; #comment. load balance max seconds 3; } " = { } { "option" { "domain-name-servers" { "arg" = "10.1.1.1" } { "arg" = "10.11.2.1" } { "arg" = "10.1.3.1" } } } { "next-server" = "10.1.1.1" } { "failover peer" = "redondance01" { "primary" } { "address" = "10.1.1.1" } { "port" = "647" } { "peer address" = "10.1.1.1" } { "peer port" = "647" } { "max-response-delay" = "20" } { "max-unacked-updates" = "10" } { "mclt" = "3600" { "#comment" = "comment." } } { "split" = "128" { "#comment" = "comment." } } { "load balance max seconds" = "3" } } (* test get and put for record types *) let record_test = "option test_records code 123 = { string, ip-address, integer 32, ip6-address, domain-list };" test Dhcpd.lns get record_test = { "rfc-code" { "label" = "test_records" } { "code" = "123" } { "record" { "1" = "string" } { "2" = "ip-address" } { "3" = "integer 32" } { "4" = "ip6-address" } { "5" = "domain-list" } } } test Dhcpd.lns put record_test after set "/rfc-code[1]/code" "124" = "option test_records code 124 = { string, ip-address, integer 32, ip6-address, domain-list };" test Dhcpd.lns get " option CallManager code 150 = ip-address; option slp-directory-agent true 10.1.1.1, 10.2.2.2; option slp-service-scope true \"SLP-GLOBAL\"; option nds-context \"EXAMPLE\"; option nds-tree-name \"EXAMPLE\"; " = { } { "rfc-code" { "label" = "CallManager" } { "code" = "150" } { "type" = "ip-address" } } { "option" { "slp-directory-agent" = "true" { "arg" = "10.1.1.1" } { "arg" = "10.2.2.2" } } } { "option" { "slp-service-scope" = "true" { "arg" = "SLP-GLOBAL" } } } { "option" { "nds-context" { "arg" = "EXAMPLE" } } } { "option" { "nds-tree-name" { "arg" = "EXAMPLE" } } } test Dhcpd.lns get "option voip-vlan-id \"VLAN=1234;\";" = { "option" { "voip-vlan-id" { "arg" = "VLAN=1234;" } } } test Dhcpd.lns get "option domain-name \"x.example.com y.example.com z.example.com\";" = { "option" { "domain-name" { "arg" = "x.example.com y.example.com z.example.com" } } } test Dhcpd.lns get "include \"/etc/dhcpd.master\";" = { "include" = "/etc/dhcpd.master" } test Dhcpd.lns put "\n" after set "/include" "/etc/dhcpd.master" = "\ninclude \"/etc/dhcpd.master\";\n" test Dhcpd.fct_args get "(option dhcp-client-identifier, 1, 3)" = { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "1" } { "arg" = "3" } } test Dhcpd.stmt_match get "match if substring (option dhcp-client-identifier, 1, 3) = \"RAS\";" = { "match" { "function" = "substring" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "1" } { "arg" = "3" } } } { "value" = "RAS" } } test Dhcpd.stmt_match get "match if suffix (option dhcp-client-identifier, 4) = \"RAS\";" = { "match" { "function" = "suffix" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "4" } } } { "value" = "RAS" } } test Dhcpd.stmt_match get "match if option vendor-class-identifier=\"RAS\";" = { "match" { "option" = "vendor-class-identifier" { "value" = "RAS" } } } test Dhcpd.lns get "match pick-first-value (option dhcp-client-identifier, hardware);" = { "match" { "function" = "pick-first-value" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "hardware" } } } } test Dhcpd.fct_args get "(16, 32, \"\", substring(hardware, 0, 4))" = { "args" { "arg" = "16" } { "arg" = "32" } { "arg" = "\"\"" } { "arg" = "substring(hardware, 0, 4)" } } test Dhcpd.stmt_match get "match if binary-to-ascii(16, 32, \"\", substring(hardware, 0, 4)) = \"1525400\";" = { "match" { "function" = "binary-to-ascii" { "args" { "arg" = "16" } { "arg" = "32" } { "arg" = "\"\"" } { "arg" = "substring(hardware, 0, 4)" } } } { "value" = "1525400" } } test Dhcpd.lns get "subclass allocation-class-1 1:8:0:2b:4c:39:ad;" = { "subclass" { "name" = "allocation-class-1" } { "value" = "1:8:0:2b:4c:39:ad" } } test Dhcpd.lns get "subclass \"allocation-class-1\" 1:8:0:2b:4c:39:ad;" = { "subclass" { "name" = "allocation-class-1" } { "value" = "1:8:0:2b:4c:39:ad" } } test Dhcpd.lns get "subclass \"quoted class\" \"quoted value\";" = { "subclass" { "name" = "quoted class" } { "value" = "quoted value" } } (* overall test *) test Dhcpd.lns put conf after rm "/x" = conf (* bug #293: primary should support argument *) let input293 = "zone EXAMPLE.ORG. { primary 127.0.0.1; }" test Dhcpd.lns get input293 = { "zone" = "EXAMPLE.ORG." { "primary" = "127.0.0.1" } } (* bug #311: filename should be quoted *) let input311 = "subnet 172.16.0.0 netmask 255.255.255.0 { filename \"pxelinux.0\"; }" test Dhcpd.lns put "subnet 172.16.0.0 netmask 255.255.255.0 { }" after set "subnet/filename" "pxelinux.0" = input311 (* GH issue #34: support conditional structures *) let gh34_empty = "if exists dhcp-parameter-request-list { }\n" test Dhcpd.lns get gh34_empty = { "@if" = "exists dhcp-parameter-request-list" } let gh34_empty_multi = "subnet 192.168.100.0 netmask 255.255.255.0 { if true { } elsif false { } else { } }\n" test Dhcpd.lns get gh34_empty_multi = { "subnet" { "network" = "192.168.100.0" } { "netmask" = "255.255.255.0" } { "@if" = "true" { "@elsif" = "false" } { "@else" } } } let gh34_simple = "if exists dhcp-parameter-request-list { default-lease-time 600; } else { default-lease-time 200; }\n" test Dhcpd.lns get gh34_simple = { "@if" = "exists dhcp-parameter-request-list" { "default-lease-time" = "600" } { "@else" { "default-lease-time" = "200" } } } test Dhcpd.lns get "omapi-key fookey;" = { "omapi-key" = "fookey" } (* almost all DHCP groups should support braces starting on the next line *) test Dhcpd.lns get "class introduction { }" = { "class" = "introduction" } (* equals should work the same *) test Dhcpd.lns get "option test_records code 123 = string;" = { "rfc-code" { "label" = "test_records" } { "code" = "123" } { "type" = "string" } } test Dhcpd.lns get "deny members of \"Are things like () allowed?\";" = { "deny-members-of" = "Are things like () allowed?" } test Dhcpd.lns get "deny unknown clients;" = { "deny" = "unknown clients" } test Dhcpd.lns get "deny known-clients;" = { "deny" = "known-clients" } test Dhcpd.lns get "set ClientMac = binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6));" = { "set" = "ClientMac" { "value" = "binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6))" } } test Dhcpd.lns get "set myvariable = foo;" = { "set" = "myvariable" { "value" = "foo" } } test Dhcpd.stmt_hardware get "hardware fddi 00:01:02:03:04:05;" = { "hardware" { "type" = "fddi" } { "address" = "00:01:02:03:04:05" } } test Dhcpd.lns get "on commit { set test = thing; }" = { "on" = "commit" { "set" = "test" { "value" = "thing" } } } (* key block get/put/set test *) let key_tests = "key sample { algorithm hmac-md5; secret \"secret==\"; } key \"interesting\" { }; key \"third key\" { secret \"two==\"; }" test Dhcpd.lns get key_tests = { "key_block" = "sample" { "algorithm" = "hmac-md5" } { "secret" = "secret==" } } { "key_block" = "interesting" } { "key_block" = "third key" { "secret" = "two==" } } test Dhcpd.lns put key_tests after set "/key_block[1]" "sample2" = "key sample2 { algorithm hmac-md5; secret \"secret==\"; } key \"interesting\" { }; key \"third key\" { secret \"two==\"; }" test Dhcpd.lns get "group \"hello\" { }" = { "group" = "hello" } test Dhcpd.lns get "class \"testing class with spaces and quotes and ()\" {}" = { "class" = "testing class with spaces and quotes and ()" } PK ! �� ?� � ( lenses/dist/tests/test_activemq_conf.augnu �[��� (* Module: Test_ActiveMQ_Conf Provides unit tests and examples for the <ActiveMQ_Conf> lens. *) module Test_ActiveMQ_Conf = (* Variable: conf *) let conf = " ACTIVEMQ_HOME=/usr/share/activemq ACTIVEMQ_BASE=${ACTIVEMQ_HOME} " (* Variable: new_conf *) let new_conf = " ACTIVEMQ_HOME=/usr/local/share/activemq ACTIVEMQ_BASE=${ACTIVEMQ_HOME} " let lns = ActiveMQ_Conf.lns (* Test: ActiveMQ_Conf.lns * Get test against tree structure *) test lns get conf = { } { "ACTIVEMQ_HOME" = "/usr/share/activemq" } { "ACTIVEMQ_BASE" = "${ACTIVEMQ_HOME}" } (* Test: ActiveMQ_Conf.lns * Put test changing user to nobody *) test lns put conf after set "/ACTIVEMQ_HOME" "/usr/local/share/activemq" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! ޭ�S� � $ lenses/dist/tests/test_authinfo2.augnu �[��� module Test_authinfo2 = let conf = "# Comment [s3] storage-url: s3:// backend-login: joe backend-password: notquitesecret [fs1] storage-url: s3://joes-first-bucket fs-passphrase: neitheristhis [fs2] storage-url: s3://joes-second-bucket fs-passphrase: swordfish [fs3] storage-url: s3://joes-second-bucket/with-prefix backend-login: bill backend-password: bi23ll fs-passphrase: ll23bi " test Authinfo2.lns get conf = { "#comment" = "Comment" } { "s3" { "storage-url" = "s3://" } { "backend-login" = "joe" } { "backend-password" = "notquitesecret" } {} } { "fs1" { "storage-url" = "s3://joes-first-bucket" } { "fs-passphrase" = "neitheristhis" } {} } { "fs2" {} { "storage-url" = "s3://joes-second-bucket" } { "fs-passphrase" = "swordfish" } } { "fs3" { "storage-url" = "s3://joes-second-bucket/with-prefix" } { "backend-login" = "bill" } { "backend-password" = "bi23ll" } { "fs-passphrase" = "ll23bi" } } PK ! ե�u ( lenses/dist/tests/test_mongodbserver.augnu �[��� (* Module: Test_MongoDBServer Provides unit tests and examples for the <MongoDBServer> lens. *) module Test_MongoDBServer = (* Variable: conf *) let conf = "port = 27017 fork = true pidfilepath = /var/run/mongodb/mongodb.pid logpath = /var/log/mongodb/mongodb.log dbpath =/var/lib/mongodb journal = true nohttpinterface = true " (* Test: MongoDBServer.lns *) test MongoDBServer.lns get conf = { "port" = "27017" } { "fork" = "true" } { "pidfilepath" = "/var/run/mongodb/mongodb.pid" } { "logpath" = "/var/log/mongodb/mongodb.log" } { "dbpath" = "/var/lib/mongodb" } { "journal" = "true" } { "nohttpinterface" = "true" } (* Test: MongoDBServer.lns Values have to be without quotes *) test MongoDBServer.lns get "port = 27017\n" = { "port" = "27017" } PK ! ��`� � # lenses/dist/tests/test_smbusers.augnu �[��� (* Module: Test_SmbUsers Provides unit tests and examples for the <SmbUsers> lens. *) module Test_SmbUsers = (* Variable: conf *) let conf = "# this is a comment jarwin = JosephArwin manderso = MarkAnderson MarkusAndersonus users = @account nobody = * ;commented = SomeOne " (* Test: Simplevars.lns *) test SmbUsers.lns get conf = { "#comment" = "this is a comment" } { } { "jarwin" { "username" = "JosephArwin" } } { "manderso" { "username" = "MarkAnderson" } { "username" = "MarkusAndersonus" } } { "users" { "username" = "@account" } } { "nobody" { "username" = "*" } } { "#comment" = "commented = SomeOne" } PK ! X�t�� � lenses/dist/tests/test_pam.augnu �[��� module Test_pam = let example = "#%PAM-1.0 AUTH [user_unknown=ignore success=ok ignore=ignore default=bad] pam_securetty.so session optional pam_keyinit.so force revoke " test Pam.lns get example = { "#comment" = "%PAM-1.0" } { "1" { "type" = "AUTH" } { "control" = "[user_unknown=ignore success=ok ignore=ignore default=bad]" } { "module" = "pam_securetty.so" } } { "2" { "type" = "session" } { "control" = "optional" } { "module" = "pam_keyinit.so" } { "argument" = "force" } { "argument" = "revoke" } } test Pam.lns put example after set "/1/control" "requisite" = "#%PAM-1.0 AUTH requisite pam_securetty.so session optional pam_keyinit.so force revoke " (* Check that trailing whitespace is handled & preserved *) let trailing_ws = "auth\trequired\tpam_unix.so \n" test Pam.lns put trailing_ws after set "/1/type" "auth" = trailing_ws test Pam.lns get "@include common-password\n" = { "include" = "common-password" } test Pam.lns get "-password optional pam_gnome_keyring.so\n" = { "1" { "optional" } { "type" = "password" } { "control" = "optional" } { "module" = "pam_gnome_keyring.so" } } test Pam.lns get "session optional pam_motd.so [motd=/etc/bad example]\n" = { "1" { "type" = "session" } { "control" = "optional" } { "module" = "pam_motd.so" } { "argument" = "[motd=/etc/bad example]" } } (* Multiline PAM entries; issue #590 *) test Pam.lns get "account \\\ninclude \\\n system-auth\n" = { "1" { "type" = "account" } { "control" = "include" } { "module" = "system-auth" } } test Pam.lns get "account\\\n[success=1 default=ignore] \\ pam_succeed_if.so\\\nuser\\\n =\\\nvagrant\\\nuse_uid\\\nquiet\n" = { "1" { "type" = "account" } { "control" = "[success=1 default=ignore]" } { "module" = "pam_succeed_if.so" } { "argument" = "user" } { "argument" = "=" } { "argument" = "vagrant" } { "argument" = "use_uid" } { "argument" = "quiet" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��� � " lenses/dist/tests/test_aliases.augnu �[��� (* Module: Test_Aliases Provides unit tests and examples for the <Aliases> lens. *) module Test_aliases = (* Variable: file A full configuration file *) let file = "# # Aliases in this file will NOT be expanded in the header from # Mail, but WILL be visible over networks or from /bin/mail. # Basic system aliases -- these MUST be present. mailer-daemon: postmaster postmaster: root # General redirections for pseudo accounts. bin: root , adm, bob daemon: root adm: root file: /var/foo pipe1: |/bin/ls pipe2 : |\"/usr/bin/ls args,\" " (* Test: Aliases.lns Testing <Aliases.lns> on <file> *) test Aliases.lns get file = { } { "#comment" = "Aliases in this file will NOT be expanded in the header from" } { "#comment" = "Mail, but WILL be visible over networks or from /bin/mail." } {} { "#comment" = "Basic system aliases -- these MUST be present." } { "1" { "name" = "mailer-daemon" } { "value" = "postmaster" } } { "2" { "name" = "postmaster" } { "value" = "root" } } {} { "#comment" = "General redirections for pseudo accounts." } { "3" { "name" = "bin" } { "value" = "root" } { "value" = "adm" } { "value" = "bob" } } { "4" { "name" = "daemon" } { "value" = "root" } } { "5" { "name" = "adm" } { "value" = "root" } } { "6" { "name" = "file" } { "value" = "/var/foo" } } { "7" { "name" = "pipe1" } { "value" = "|/bin/ls" } } { "8" { "name" = "pipe2" } { "value" = "|\"/usr/bin/ls args,\"" } } (* Test: Aliases.lns Put test for <Aliases.lns> on <file> *) test Aliases.lns put file after rm "/4" ; rm "/5" ; rm "/6" ; rm "/7" ; rm "/8" ; set "/1/value[2]" "barbar" ; set "/3/value[2]" "ruth" = "# # Aliases in this file will NOT be expanded in the header from # Mail, but WILL be visible over networks or from /bin/mail. # Basic system aliases -- these MUST be present. mailer-daemon: postmaster, barbar postmaster: root # General redirections for pseudo accounts. bin: root , ruth, bob " (* Test: Aliases.lns Schema violation, no 3/name *) test Aliases.lns put file after rm "/3" ; set "/3/value/2" "ruth" = * (* Variable: nocomma Don't have to have whitespace after a comma *) let nocomma = "alias: target1,target2\n" (* Test: Aliases.lns Testing <Aliases.lns> on <nocomma> *) test Aliases.lns get nocomma = { "1" { "name" = "alias" } { "value" = "target1" } { "value" = "target2" } } (* Test: Aliases.lns Ticket #229: commands can be fully enclosed in quotes *) test Aliases.lns get "somebody: \"|exit 67\"\n" = { "1" { "name" = "somebody" } { "value" = "\"|exit 67\"" } } (* Test: Aliases.lns Don't have to have whitespace after the colon *) test Aliases.lns get "alias:target\n" = { "1" { "name" = "alias" } { "value" = "target" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! /u"� � & lenses/dist/tests/test_jmxpassword.augnu �[��� (* Module: Test_JMXPassword Provides unit tests and examples for the <JMXPassword> lens. *) module Test_JMXPassword = (* Variable: conf *) let conf = "# Comment admin activemq " (* Variable: new_conf *) let new_conf = "# Comment admin password " let lns = JMXPassword.lns (* Test: JMXPassword.lns * Get test against tree structure *) test lns get conf = { "#comment" = "Comment" } { "user" { "username" = "admin" } { "password" = "activemq" } } (* Test: JMXPassword.lns * Put test changing password to password *) test lns put conf after set "/user/password" "password" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! A"�%a a lenses/dist/tests/test_squid.augnu �[��� module Test_squid = let conf = "# comment at the beginning of the file auth_param negotiate children 5 acl many_spaces rep_header Content-Disposition -i [[:space:]]{3,} acl CONNECT method CONNECT # comment in the middle acl local_network src 192.168.1.0/24 http_access allow manager localhost http_access allow local_network " test Squid.lns get conf = { "#comment" = "comment at the beginning of the file" } {} { "auth_param" { "scheme" = "negotiate" } { "parameter" = "children" } { "setting" = "5" } } { "acl" { "many_spaces" { "type" = "rep_header" } { "setting" = "Content-Disposition" } { "parameters" { "1" = "-i" } { "2" = "[[:space:]]{3,}" } } } } { "acl" { "CONNECT" { "type" = "method" } { "setting" = "CONNECT" } } } { "#comment" = "comment in the middle" } { "acl" { "local_network" { "type" = "src" } { "setting" = "192.168.1.0/24" } } } {} { "http_access" { "allow" = "manager" { "parameters" { "1" = "localhost" } } } } { "http_access" { "allow" = "local_network" } } (* This tests the Debian lenny default squid.conf Comments were stripped out *) let debian_lenny_default = "acl all src all acl manager proto cache_object acl localhost src 127.0.0.1/32 acl to_localhost dst 127.0.0.0/8 acl purge method PURGE acl CONNECT method CONNECT http_access allow manager localhost http_access deny manager http_access allow purge localhost http_access deny purge http_access deny !Safe_ports http_access deny CONNECT !SSL_ports http_access allow localhost http_access deny all no_cache deny query_no_cache icp_access allow localnet icp_access deny all http_port 3128 hierarchy_stoplist cgi-bin ? access_log /var/log/squid/access.log squid refresh_pattern ^ftp: 1440 20% 10080 refresh_pattern ^gopher: 1440 0% 1440 refresh_pattern -i (/cgi-bin/|\?) 0 0% 0 refresh_pattern (Release|Package(.gz)*)$ 0 20% 2880 refresh_pattern . 0 20% 4320 ignore-reload ignore-auth # testing options acl shoutcast rep_header X-HTTP09-First-Line ^ICY\s[0-9] upgrade_http0.9 deny shoutcast acl apache rep_header Server ^Apache broken_vary_encoding allow apache extension_methods REPORT MERGE MKACTIVITY CHECKOUT hosts_file /etc/hosts coredump_dir /var/spool/squid " test Squid.lns get debian_lenny_default = { "acl" { "all" { "type" = "src" } { "setting" = "all" } } } { "acl" { "manager" { "type" = "proto" } { "setting" = "cache_object" } } } { "acl" { "localhost" { "type" = "src" } { "setting" = "127.0.0.1/32" } } } { "acl" { "to_localhost" { "type" = "dst" } { "setting" = "127.0.0.0/8" } } } { "acl" { "purge" { "type" = "method" } { "setting" = "PURGE" } } } { "acl" { "CONNECT" { "type" = "method" } { "setting" = "CONNECT" } } } { "http_access" { "allow" = "manager" { "parameters" { "1" = "localhost" } } } } { "http_access" { "deny" = "manager" } } { "http_access" { "allow" = "purge" { "parameters" { "1" = "localhost" } } } } { "http_access" { "deny" = "purge" } } { "http_access" { "deny" = "!Safe_ports" } } { "http_access" { "deny" = "CONNECT" { "parameters" { "1" = "!SSL_ports" } } } } { "http_access" { "allow" = "localhost" } } { "http_access" { "deny" = "all" } } { "no_cache" = "deny query_no_cache" } { "icp_access" = "allow localnet" } { "icp_access" = "deny all" } { "http_port" = "3128" } { "hierarchy_stoplist" = "cgi-bin ?" } { "access_log" = "/var/log/squid/access.log squid" } { "refresh_pattern" = "^ftp:" { "min" = "1440" } { "percent" = "20" } { "max" = "10080" } } { "refresh_pattern" = "^gopher:" { "min" = "1440" } { "percent" = "0" } { "max" = "1440" } } { "refresh_pattern" = "(/cgi-bin/|\?)" { "case_insensitive" } { "min" = "0" } { "percent" = "0" } { "max" = "0" } } { "refresh_pattern" = "(Release|Package(.gz)*)$" { "min" = "0" } { "percent" = "20" } { "max" = "2880" } } { "refresh_pattern" = "." { "min" = "0" } { "percent" = "20" } { "max" = "4320" } { "option" = "ignore-reload" } { "option" = "ignore-auth" } { "#comment" = "testing options" } } { "acl" { "shoutcast" { "type" = "rep_header" } { "setting" = "X-HTTP09-First-Line" } { "parameters" { "1" = "^ICY\s[0-9]" } } } } { "upgrade_http0.9" { "deny" = "shoutcast" } } { "acl" { "apache" { "type" = "rep_header" } { "setting" = "Server" } { "parameters" { "1" = "^Apache" } } } } { "broken_vary_encoding" { "allow" = "apache" } } { "extension_methods" { "1" = "REPORT" } { "2" = "MERGE" } { "3" = "MKACTIVITY" } { "4" = "CHECKOUT" } } { "hosts_file" = "/etc/hosts" } { "coredump_dir" = "/var/spool/squid" } PK ! �<�c� � ( lenses/dist/tests/test_nagiosobjects.augnu �[��� module Test_NagiosObjects = let conf=" # # Nagios Objects definitions file # define host { host_name plonk alias plonk address plonk use generic_template contact_groups Monitoring-Team,admins } define service { service_description gen use generic_template_passive host_name plonk check_command nopassivecheckreceived contact_groups admins } ; This is a semicolon comment define service{ service_description gen2 use generic_template_passive host_name plonk } " test NagiosObjects.lns get conf = {} {} { "#comment" = "Nagios Objects definitions file" } {} {} { "host" { "host_name" = "plonk" } { "alias" = "plonk" } { "address" = "plonk" } { "use" = "generic_template" } { "contact_groups" = "Monitoring-Team,admins" } } {} { "service" { "service_description" = "gen" } { "use" = "generic_template_passive" } { "host_name" = "plonk" } { "check_command" = "nopassivecheckreceived" } { "contact_groups" = "admins" } } {} { "#comment" = "This is a semicolon comment" } {} { "service" { "service_description" = "gen2" } { "use" = "generic_template_passive" } { "host_name" = "plonk" } } PK ! j6]�I I % lenses/dist/tests/test_strongswan.augnu �[��� (* Some of the configuration snippets have been copied from the strongSwan source tree. *) module Test_Strongswan = (* conf/strongswan.conf *) let default = " # strongswan.conf - strongSwan configuration file # # Refer to the strongswan.conf(5) manpage for details # # Configuration changes should be made in the included files charon { load_modular = yes plugins { include strongswan.d/charon/*.conf } } include strongswan.d/*.conf " test Strongswan.lns get default = { "#comment" = "strongswan.conf - strongSwan configuration file" } { "#comment" = "Refer to the strongswan.conf(5) manpage for details" } { "#comment" = "Configuration changes should be made in the included files" } { "charon" { "load_modular" = "yes" } { "plugins" { "include" = "strongswan.d/charon/*.conf" } } } { "include" = "strongswan.d/*.conf" } (* conf/strongswan.conf.5.head.in *) let man_example = " a = b section-one { somevalue = asdf subsection { othervalue = xxx } # yei, a comment yetanother = zz } section-two { x = 12 } " test Strongswan.lns get man_example = { "a" = "b" } { "section-one" { "somevalue" = "asdf" } { "subsection" { "othervalue" = "xxx" } } { "#comment" = "yei, a comment" } { "yetanother" = "zz" } } { "section-two" { "x" = "12" } } test Strongswan.lns get "foo { bar = baz\n } quux {}\t#quuux\n" = { "foo" { "bar" = "baz" } } { "quux" } { "#comment" = "quuux" } let connection = " connections { foo { pools = bar, baz proposals = aes256gcm16-aes128gcm16-ecp512, aes256-sha256-sha1-ecp256-modp4096-modp2048, 3des-md5-modp768 } children { bar { esp_proposals = aes128-sha256-sha1,3des-md5 } } } " test Strongswan.lns get connection = { "connections" { "foo" { "#list" = "pools" { "1" = "bar" } { "2" = "baz" } } { "#proposals" = "proposals" { "1" { "1" = "aes256gcm16" } { "2" = "aes128gcm16" } { "3" = "ecp512" } } { "2" { "1" = "aes256" } { "2" = "sha256" } { "3" = "sha1" } { "4" = "ecp256" } { "5" = "modp4096" } { "6" = "modp2048" } } { "3" { "1" = "3des" } { "2" = "md5" } { "3" = "modp768" } } } } { "children" { "bar" { "#proposals" = "esp_proposals" { "1" { "1" = "aes128" } { "2" = "sha256" } { "3" = "sha1" } } { "2" { "1" = "3des" } { "2" = "md5" } } } } } } PK ! d���B B $ lenses/dist/tests/test_host_conf.augnu �[��� module Test_Host_Conf = let conf = " # /etc/host.conf # We have named running, but no NIS (yet) order bind, hosts # Allow multiple addrs multi on # Guard against spoof attempts nospoof on # Trim local domain (not really necessary). trim vbrew.com.:fedora.org. trim augeas.net.,ubuntu.com. " test Host_Conf.lns get conf = { } { "#comment" = "/etc/host.conf" } { "#comment" = "We have named running, but no NIS (yet)" } { "order" { "1" = "bind" } { "2" = "hosts" } } { "#comment" = "Allow multiple addrs" } { "multi" = "on" } { "#comment" = "Guard against spoof attempts" } { "nospoof" = "on" } { "#comment" = "Trim local domain (not really necessary)." } { "trim" { "1" = "vbrew.com." } { "2" = "fedora.org." } } { "trim" { "3" = "augeas.net." } { "4" = "ubuntu.com." } } PK ! 8�; ; lenses/dist/tests/test_star.augnu �[��� module Test_star = let conf = "# @(#)star.dfl 1.2 05/08/09 Copyright 2003 J. Schilling # # This file is /etc/default/star STAR_FIFOSIZE= 32m STAR_FIFOSIZE_MAX= 100m archive0=/dev/rmt/0 20 0 N archive1=/dev/rmt/0n 20 0 n archive2=/dev/rmt/1 20 0 y archive3=/dev/rmt/1n 20 0 archive4=/dev/rmt/0 126 0 archive5=/dev/rmt/0n 126 0 archive6=/dev/rmt/1 126 0 archive7=/dev/rmt/1n 126 0 " test Star.lns get conf = { "#comment" = "@(#)star.dfl 1.2 05/08/09 Copyright 2003 J. Schilling" } { } { "#comment" = "This file is /etc/default/star" } { } { "STAR_FIFOSIZE" = "32m" } { } { "STAR_FIFOSIZE_MAX" = "100m" } { } { "archive0" { "device" = "/dev/rmt/0" } { "block" = "20" } { "size" = "0" } { "istape" = "N" } } { "archive1" { "device" = "/dev/rmt/0n" } { "block" = "20" } { "size" = "0" } { "istape" = "n" } } { "archive2" { "device" = "/dev/rmt/1" } { "block" = "20" } { "size" = "0" } { "istape" = "y" } } { "archive3" { "device" = "/dev/rmt/1n" } { "block" = "20" } { "size" = "0" } } { "archive4" { "device" = "/dev/rmt/0" } { "block" = "126" } { "size" = "0" } } { "archive5" { "device" = "/dev/rmt/0n" } { "block" = "126" } { "size" = "0" } } { "archive6" { "device" = "/dev/rmt/1" } { "block" = "126" } { "size" = "0" } } { "archive7" { "device" = "/dev/rmt/1n" } { "block" = "126" } { "size" = "0" } } PK ! ;%��M �M lenses/dist/tests/test_fonts.augnu �[��� (* Module: Test_Fonts Provides unit tests and examples for the <Fonts> lens. *) module Test_Fonts = (* Variable: conf *) let conf = "<?xml version=\"1.0\"?> <!DOCTYPE fontconfig SYSTEM \"fonts.dtd\"> <!-- /etc/fonts/fonts.conf file to configure system font access --> <fontconfig> <!-- DO NOT EDIT THIS FILE. IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED. LOCAL CHANGES BELONG IN 'local.conf'. The intent of this standard configuration file is to be adequate for most environments. If you have a reasonably normal environment and have found problems with this configuration, they are probably things that others will also want fixed. Please submit any problems to the fontconfig bugzilla system located at fontconfig.org Note that the normal 'make install' procedure for fontconfig is to replace any existing fonts.conf file with the new version. Place any local customizations in local.conf which this file references. Keith Packard --> <!-- Font directory list --> <dir>/usr/share/fonts</dir> <dir>/usr/X11R6/lib/X11/fonts</dir> <dir>/usr/local/share/fonts</dir> <dir>~/.fonts</dir> <!-- Accept deprecated 'mono' alias, replacing it with 'monospace' --> <match target=\"pattern\"> <test qual=\"any\" name=\"family\"> <string>mono</string> </test> <edit name=\"family\" mode=\"assign\"> <string>monospace</string> </edit> </match> <!-- Accept alternate 'sans serif' spelling, replacing it with 'sans-serif' --> <match target=\"pattern\"> <test qual=\"any\" name=\"family\"> <string>sans serif</string> </test> <edit name=\"family\" mode=\"assign\"> <string>sans-serif</string> </edit> </match> <!-- Accept deprecated 'sans' alias, replacing it with 'sans-serif' --> <match target=\"pattern\"> <test qual=\"any\" name=\"family\"> <string>sans</string> </test> <edit name=\"family\" mode=\"assign\"> <string>sans-serif</string> </edit> </match> <!-- Load local system customization file --> <include ignore_missing=\"yes\">conf.d</include> <!-- Font cache directory list --> <cachedir>/var/cache/fontconfig</cachedir> <cachedir>~/.fontconfig</cachedir> <config> <!-- These are the default Unicode chars that are expected to be blank in fonts. All other blank chars are assumed to be broken and won't appear in the resulting charsets --> <blank> <int>0x0020</int> <!-- SPACE --> <int>0x00A0</int> <!-- NO-BREAK SPACE --> <int>0x00AD</int> <!-- SOFT HYPHEN --> <int>0x034F</int> <!-- COMBINING GRAPHEME JOINER --> <int>0x0600</int> <!-- ARABIC NUMBER SIGN --> <int>0x0601</int> <!-- ARABIC SIGN SANAH --> <int>0x0602</int> <!-- ARABIC FOOTNOTE MARKER --> <int>0x0603</int> <!-- ARABIC SIGN SAFHA --> <int>0x06DD</int> <!-- ARABIC END OF AYAH --> <int>0x070F</int> <!-- SYRIAC ABBREVIATION MARK --> <int>0x115F</int> <!-- HANGUL CHOSEONG FILLER --> <int>0x1160</int> <!-- HANGUL JUNGSEONG FILLER --> <int>0x1680</int> <!-- OGHAM SPACE MARK --> <int>0x17B4</int> <!-- KHMER VOWEL INHERENT AQ --> <int>0x17B5</int> <!-- KHMER VOWEL INHERENT AA --> <int>0x180E</int> <!-- MONGOLIAN VOWEL SEPARATOR --> <int>0x2000</int> <!-- EN QUAD --> <int>0x2001</int> <!-- EM QUAD --> <int>0x2002</int> <!-- EN SPACE --> <int>0x2003</int> <!-- EM SPACE --> <int>0x2004</int> <!-- THREE-PER-EM SPACE --> <int>0x2005</int> <!-- FOUR-PER-EM SPACE --> <int>0x2006</int> <!-- SIX-PER-EM SPACE --> <int>0x2007</int> <!-- FIGURE SPACE --> <int>0x2008</int> <!-- PUNCTUATION SPACE --> <int>0x2009</int> <!-- THIN SPACE --> <int>0x200A</int> <!-- HAIR SPACE --> <int>0x200B</int> <!-- ZERO WIDTH SPACE --> <int>0x200C</int> <!-- ZERO WIDTH NON-JOINER --> <int>0x200D</int> <!-- ZERO WIDTH JOINER --> <int>0x200E</int> <!-- LEFT-TO-RIGHT MARK --> <int>0x200F</int> <!-- RIGHT-TO-LEFT MARK --> <int>0x2028</int> <!-- LINE SEPARATOR --> <int>0x2029</int> <!-- PARAGRAPH SEPARATOR --> <int>0x202A</int> <!-- LEFT-TO-RIGHT EMBEDDING --> <int>0x202B</int> <!-- RIGHT-TO-LEFT EMBEDDING --> <int>0x202C</int> <!-- POP DIRECTIONAL FORMATTING --> <int>0x202D</int> <!-- LEFT-TO-RIGHT OVERRIDE --> <int>0x202E</int> <!-- RIGHT-TO-LEFT OVERRIDE --> <int>0x202F</int> <!-- NARROW NO-BREAK SPACE --> <int>0x205F</int> <!-- MEDIUM MATHEMATICAL SPACE --> <int>0x2060</int> <!-- WORD JOINER --> <int>0x2061</int> <!-- FUNCTION APPLICATION --> <int>0x2062</int> <!-- INVISIBLE TIMES --> <int>0x2063</int> <!-- INVISIBLE SEPARATOR --> <int>0x206A</int> <!-- INHIBIT SYMMETRIC SWAPPING --> <int>0x206B</int> <!-- ACTIVATE SYMMETRIC SWAPPING --> <int>0x206C</int> <!-- INHIBIT ARABIC FORM SHAPING --> <int>0x206D</int> <!-- ACTIVATE ARABIC FORM SHAPING --> <int>0x206E</int> <!-- NATIONAL DIGIT SHAPES --> <int>0x206F</int> <!-- NOMINAL DIGIT SHAPES --> <int>0x2800</int> <!-- BRAILLE PATTERN BLANK --> <int>0x3000</int> <!-- IDEOGRAPHIC SPACE --> <int>0x3164</int> <!-- HANGUL FILLER --> <int>0xFEFF</int> <!-- ZERO WIDTH NO-BREAK SPACE --> <int>0xFFA0</int> <!-- HALFWIDTH HANGUL FILLER --> <int>0xFFF9</int> <!-- INTERLINEAR ANNOTATION ANCHOR --> <int>0xFFFA</int> <!-- INTERLINEAR ANNOTATION SEPARATOR --> <int>0xFFFB</int> <!-- INTERLINEAR ANNOTATION TERMINATOR --> </blank> <!-- Rescan configuration every 30 seconds when FcFontSetList is called --> <rescan> <int>30</int> </rescan> </config> </fontconfig> " (* Test: Fonts.lns *) test Fonts.lns get conf = { "#declaration" { "#attribute" { "version" = "1.0" } } } { "!DOCTYPE" = "fontconfig" { "SYSTEM" = "fonts.dtd" } } { "#comment" = " /etc/fonts/fonts.conf file to configure system font access " } { "fontconfig" { "#text" = " " } { "#comment" = " DO NOT EDIT THIS FILE. IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED. LOCAL CHANGES BELONG IN 'local.conf'. The intent of this standard configuration file is to be adequate for most environments. If you have a reasonably normal environment and have found problems with this configuration, they are probably things that others will also want fixed. Please submit any problems to the fontconfig bugzilla system located at fontconfig.org Note that the normal 'make install' procedure for fontconfig is to replace any existing fonts.conf file with the new version. Place any local customizations in local.conf which this file references. Keith Packard " } { "#text" = " " } { "#comment" = " Font directory list " } { "#text" = " " } { "dir" { "#text" = "/usr/share/fonts" } } { "#text" = " " } { "dir" { "#text" = "/usr/X11R6/lib/X11/fonts" } } { "#text" = " " } { "dir" { "#text" = "/usr/local/share/fonts" } } { "#text" = " " } { "dir" { "#text" = "~/.fonts" } } { "#text" = " " } { "#comment" = " Accept deprecated 'mono' alias, replacing it with 'monospace' " } { "#text" = " " } { "match" { "#attribute" { "target" = "pattern" } } { "#text" = " " } { "test" { "#attribute" { "qual" = "any" } { "name" = "family" } } { "#text" = " " } { "string" { "#text" = "mono" } } { "#text" = " " } } { "#text" = " " } { "edit" { "#attribute" { "name" = "family" } { "mode" = "assign" } } { "#text" = " " } { "string" { "#text" = "monospace" } } { "#text" = " " } } { "#text" = " " } } { "#text" = " " } { "#comment" = " Accept alternate 'sans serif' spelling, replacing it with 'sans-serif' " } { "#text" = " " } { "match" { "#attribute" { "target" = "pattern" } } { "#text" = " " } { "test" { "#attribute" { "qual" = "any" } { "name" = "family" } } { "#text" = " " } { "string" { "#text" = "sans serif" } } { "#text" = " " } } { "#text" = " " } { "edit" { "#attribute" { "name" = "family" } { "mode" = "assign" } } { "#text" = " " } { "string" { "#text" = "sans-serif" } } { "#text" = " " } } { "#text" = " " } } { "#text" = " " } { "#comment" = " Accept deprecated 'sans' alias, replacing it with 'sans-serif' " } { "#text" = " " } { "match" { "#attribute" { "target" = "pattern" } } { "#text" = " " } { "test" { "#attribute" { "qual" = "any" } { "name" = "family" } } { "#text" = " " } { "string" { "#text" = "sans" } } { "#text" = " " } } { "#text" = " " } { "edit" { "#attribute" { "name" = "family" } { "mode" = "assign" } } { "#text" = " " } { "string" { "#text" = "sans-serif" } } { "#text" = " " } } { "#text" = " " } } { "#text" = " " } { "#comment" = " Load local system customization file " } { "#text" = " " } { "include" { "#attribute" { "ignore_missing" = "yes" } } { "#text" = "conf.d" } } { "#text" = " " } { "#comment" = " Font cache directory list " } { "#text" = " " } { "cachedir" { "#text" = "/var/cache/fontconfig" } } { "#text" = " " } { "cachedir" { "#text" = "~/.fontconfig" } } { "#text" = " " } { "config" { "#text" = " " } { "#comment" = " These are the default Unicode chars that are expected to be blank in fonts. All other blank chars are assumed to be broken and won't appear in the resulting charsets " } { "#text" = " " } { "blank" { "#text" = " " } { "int" { "#text" = "0x0020" } } { "#text" = " " } { "#comment" = " SPACE " } { "#text" = " " } { "int" { "#text" = "0x00A0" } } { "#text" = " " } { "#comment" = " NO-BREAK SPACE " } { "#text" = " " } { "int" { "#text" = "0x00AD" } } { "#text" = " " } { "#comment" = " SOFT HYPHEN " } { "#text" = " " } { "int" { "#text" = "0x034F" } } { "#text" = " " } { "#comment" = " COMBINING GRAPHEME JOINER " } { "#text" = " " } { "int" { "#text" = "0x0600" } } { "#text" = " " } { "#comment" = " ARABIC NUMBER SIGN " } { "#text" = " " } { "int" { "#text" = "0x0601" } } { "#text" = " " } { "#comment" = " ARABIC SIGN SANAH " } { "#text" = " " } { "int" { "#text" = "0x0602" } } { "#text" = " " } { "#comment" = " ARABIC FOOTNOTE MARKER " } { "#text" = " " } { "int" { "#text" = "0x0603" } } { "#text" = " " } { "#comment" = " ARABIC SIGN SAFHA " } { "#text" = " " } { "int" { "#text" = "0x06DD" } } { "#text" = " " } { "#comment" = " ARABIC END OF AYAH " } { "#text" = " " } { "int" { "#text" = "0x070F" } } { "#text" = " " } { "#comment" = " SYRIAC ABBREVIATION MARK " } { "#text" = " " } { "int" { "#text" = "0x115F" } } { "#text" = " " } { "#comment" = " HANGUL CHOSEONG FILLER " } { "#text" = " " } { "int" { "#text" = "0x1160" } } { "#text" = " " } { "#comment" = " HANGUL JUNGSEONG FILLER " } { "#text" = " " } { "int" { "#text" = "0x1680" } } { "#text" = " " } { "#comment" = " OGHAM SPACE MARK " } { "#text" = " " } { "int" { "#text" = "0x17B4" } } { "#text" = " " } { "#comment" = " KHMER VOWEL INHERENT AQ " } { "#text" = " " } { "int" { "#text" = "0x17B5" } } { "#text" = " " } { "#comment" = " KHMER VOWEL INHERENT AA " } { "#text" = " " } { "int" { "#text" = "0x180E" } } { "#text" = " " } { "#comment" = " MONGOLIAN VOWEL SEPARATOR " } { "#text" = " " } { "int" { "#text" = "0x2000" } } { "#text" = " " } { "#comment" = " EN QUAD " } { "#text" = " " } { "int" { "#text" = "0x2001" } } { "#text" = " " } { "#comment" = " EM QUAD " } { "#text" = " " } { "int" { "#text" = "0x2002" } } { "#text" = " " } { "#comment" = " EN SPACE " } { "#text" = " " } { "int" { "#text" = "0x2003" } } { "#text" = " " } { "#comment" = " EM SPACE " } { "#text" = " " } { "int" { "#text" = "0x2004" } } { "#text" = " " } { "#comment" = " THREE-PER-EM SPACE " } { "#text" = " " } { "int" { "#text" = "0x2005" } } { "#text" = " " } { "#comment" = " FOUR-PER-EM SPACE " } { "#text" = " " } { "int" { "#text" = "0x2006" } } { "#text" = " " } { "#comment" = " SIX-PER-EM SPACE " } { "#text" = " " } { "int" { "#text" = "0x2007" } } { "#text" = " " } { "#comment" = " FIGURE SPACE " } { "#text" = " " } { "int" { "#text" = "0x2008" } } { "#text" = " " } { "#comment" = " PUNCTUATION SPACE " } { "#text" = " " } { "int" { "#text" = "0x2009" } } { "#text" = " " } { "#comment" = " THIN SPACE " } { "#text" = " " } { "int" { "#text" = "0x200A" } } { "#text" = " " } { "#comment" = " HAIR SPACE " } { "#text" = " " } { "int" { "#text" = "0x200B" } } { "#text" = " " } { "#comment" = " ZERO WIDTH SPACE " } { "#text" = " " } { "int" { "#text" = "0x200C" } } { "#text" = " " } { "#comment" = " ZERO WIDTH NON-JOINER " } { "#text" = " " } { "int" { "#text" = "0x200D" } } { "#text" = " " } { "#comment" = " ZERO WIDTH JOINER " } { "#text" = " " } { "int" { "#text" = "0x200E" } } { "#text" = " " } { "#comment" = " LEFT-TO-RIGHT MARK " } { "#text" = " " } { "int" { "#text" = "0x200F" } } { "#text" = " " } { "#comment" = " RIGHT-TO-LEFT MARK " } { "#text" = " " } { "int" { "#text" = "0x2028" } } { "#text" = " " } { "#comment" = " LINE SEPARATOR " } { "#text" = " " } { "int" { "#text" = "0x2029" } } { "#text" = " " } { "#comment" = " PARAGRAPH SEPARATOR " } { "#text" = " " } { "int" { "#text" = "0x202A" } } { "#text" = " " } { "#comment" = " LEFT-TO-RIGHT EMBEDDING " } { "#text" = " " } { "int" { "#text" = "0x202B" } } { "#text" = " " } { "#comment" = " RIGHT-TO-LEFT EMBEDDING " } { "#text" = " " } { "int" { "#text" = "0x202C" } } { "#text" = " " } { "#comment" = " POP DIRECTIONAL FORMATTING " } { "#text" = " " } { "int" { "#text" = "0x202D" } } { "#text" = " " } { "#comment" = " LEFT-TO-RIGHT OVERRIDE " } { "#text" = " " } { "int" { "#text" = "0x202E" } } { "#text" = " " } { "#comment" = " RIGHT-TO-LEFT OVERRIDE " } { "#text" = " " } { "int" { "#text" = "0x202F" } } { "#text" = " " } { "#comment" = " NARROW NO-BREAK SPACE " } { "#text" = " " } { "int" { "#text" = "0x205F" } } { "#text" = " " } { "#comment" = " MEDIUM MATHEMATICAL SPACE " } { "#text" = " " } { "int" { "#text" = "0x2060" } } { "#text" = " " } { "#comment" = " WORD JOINER " } { "#text" = " " } { "int" { "#text" = "0x2061" } } { "#text" = " " } { "#comment" = " FUNCTION APPLICATION " } { "#text" = " " } { "int" { "#text" = "0x2062" } } { "#text" = " " } { "#comment" = " INVISIBLE TIMES " } { "#text" = " " } { "int" { "#text" = "0x2063" } } { "#text" = " " } { "#comment" = " INVISIBLE SEPARATOR " } { "#text" = " " } { "int" { "#text" = "0x206A" } } { "#text" = " " } { "#comment" = " INHIBIT SYMMETRIC SWAPPING " } { "#text" = " " } { "int" { "#text" = "0x206B" } } { "#text" = " " } { "#comment" = " ACTIVATE SYMMETRIC SWAPPING " } { "#text" = " " } { "int" { "#text" = "0x206C" } } { "#text" = " " } { "#comment" = " INHIBIT ARABIC FORM SHAPING " } { "#text" = " " } { "int" { "#text" = "0x206D" } } { "#text" = " " } { "#comment" = " ACTIVATE ARABIC FORM SHAPING " } { "#text" = " " } { "int" { "#text" = "0x206E" } } { "#text" = " " } { "#comment" = " NATIONAL DIGIT SHAPES " } { "#text" = " " } { "int" { "#text" = "0x206F" } } { "#text" = " " } { "#comment" = " NOMINAL DIGIT SHAPES " } { "#text" = " " } { "int" { "#text" = "0x2800" } } { "#text" = " " } { "#comment" = " BRAILLE PATTERN BLANK " } { "#text" = " " } { "int" { "#text" = "0x3000" } } { "#text" = " " } { "#comment" = " IDEOGRAPHIC SPACE " } { "#text" = " " } { "int" { "#text" = "0x3164" } } { "#text" = " " } { "#comment" = " HANGUL FILLER " } { "#text" = " " } { "int" { "#text" = "0xFEFF" } } { "#text" = " " } { "#comment" = " ZERO WIDTH NO-BREAK SPACE " } { "#text" = " " } { "int" { "#text" = "0xFFA0" } } { "#text" = " " } { "#comment" = " HALFWIDTH HANGUL FILLER " } { "#text" = " " } { "int" { "#text" = "0xFFF9" } } { "#text" = " " } { "#comment" = " INTERLINEAR ANNOTATION ANCHOR " } { "#text" = " " } { "int" { "#text" = "0xFFFA" } } { "#text" = " " } { "#comment" = " INTERLINEAR ANNOTATION SEPARATOR " } { "#text" = " " } { "int" { "#text" = "0xFFFB" } } { "#text" = " " } { "#comment" = " INTERLINEAR ANNOTATION TERMINATOR " } { "#text" = " " } } { "#comment" = " Rescan configuration every 30 seconds when FcFontSetList is called " } { "#text" = " " } { "rescan" { "#text" = " " } { "int" { "#text" = "30" } } { "#text" = " " } } { "#text" = " " } } { "#text" = " " } } PK ! '�ǧl l ) lenses/dist/tests/test_cobblermodules.augnu �[��� module Test_cobblermodules = let conf = " [serializes] settings = serializer_catalog [authentication] modules = auth_denyall " test CobblerModules.lns get conf = {} { "serializes" { "settings" = "serializer_catalog" } {} } { "authentication" { "modules" = "auth_denyall" } } test CobblerModules.lns put conf after set "serializes/distro" "serializer_catalog"; set "serializes/repo" "serializer_catalog" = " [serializes] settings = serializer_catalog distro=serializer_catalog repo=serializer_catalog [authentication] modules = auth_denyall " PK ! ǼYB B lenses/dist/tests/test_dpkg.augnu �[��� module Test_dpkg = let conf ="# dpkg configuration file # Do not enable debsig-verify by default no-debsig log /var/log/dpkg.log\n" test Dpkg.lns get conf = { "#comment" = "dpkg configuration file" } { "#comment" = "Do not enable debsig-verify by default" } { "no-debsig" } {} { "log" = "/var/log/dpkg.log" } PK ! k � % lenses/dist/tests/test_automaster.augnu �[��� module Test_automaster = let example = "# # Sample auto.master file # /- auto.data /net -hosts ro /misc /etc/auto.misc /home /etc/auto.home /home ldap:example.com:ou=auto.home,dc=example,dc=com /mnt yp:mnt.map -strict,-Dfoo=bar,uid=1000 /mnt yp,sun:mnt.map /auto /etc/auto.HD --timeout=15 --ghost +dir:/etc/auto.master.d + auto.master " test Automaster.lns get example = { } { "#comment" = "Sample auto.master file" } { } { } { "1" = "/-" { "map" = "auto.data" } } { "2" = "/net" { "map" = "-hosts" } { "opt" = "ro" } } { "3" = "/misc" { "map" = "/etc/auto.misc" } } { "4" = "/home" { "map" = "/etc/auto.home" } } { "5" = "/home" { "type" = "ldap" } { "host" = "example.com" } { "map" = "ou=auto.home,dc=example,dc=com" } } { "6" = "/mnt" { "type" = "yp" } { "map" = "mnt.map" } { "opt" = "-strict" } { "opt" = "-Dfoo" { "value" = "bar" } } { "opt" = "uid" { "value" = "1000" } } } { "7" = "/mnt" { "type" = "yp" } { "format" = "sun" } { "map" = "mnt.map" } } { "8" = "/auto" { "map" = "/etc/auto.HD" } { "opt" = "--timeout" { "value" = "15" } } { "opt" = "--ghost" } } { } { "9" = "+" { "type" = "dir" } { "map" = "/etc/auto.master.d" } } { "10" = "+" { "map" = "auto.master" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �d�� � lenses/dist/tests/test_ldso.augnu �[��� (* Module: Test_Ldso Provides unit tests and examples for the <Ldso> lens. *) module Test_Ldso = (* Variable: conf *) let conf = "include /etc/ld.so.conf.d/*.conf # libc default configuration /usr/local/lib hwcap 1 nosegneg " (* Test: Ldso.lns *) test Ldso.lns get conf = { "include" = "/etc/ld.so.conf.d/*.conf" } { } { "#comment" = "libc default configuration" } { "path" = "/usr/local/lib" } { } { "hwcap" { "bit" = "1" } { "name" = "nosegneg" } } PK ! {$��� � % lenses/dist/tests/test_devfsrules.augnu �[��� module Test_DevfsRules = let manpage_example = "[localrules=10] add path 'da*s*' mode 0660 group usb " test DevfsRules.lns get manpage_example = { "localrules" { "id" = "10" } { "1" = "add path 'da*s*' mode 0660 group usb" } } let example = "[devfsrules_jail_unhide_usb_printer_and_scanner=30] add include $devfsrules_hide_all add include $devfsrules_unhide_basic add include $devfsrules_unhide_login add path 'ulpt*' mode 0660 group printscan unhide add path 'unlpt*' mode 0660 group printscan unhide add path 'ugen2.8' mode 0660 group printscan unhide # Scanner (ugen2.8 is a symlink to usb/2.8.0) add path usb unhide add path usbctl unhide add path 'usb/2.8.0' mode 0660 group printscan unhide [devfsrules_jail_unhide_usb_scanner_only=30] add include $devfsrules_hide_all add include $devfsrules_unhide_basic add include $devfsrules_unhide_login add path 'ugen2.8' mode 0660 group scan unhide # Scanner add path usb unhide add path usbctl unhide add path 'usb/2.8.0' mode 0660 group scan unhide " test DevfsRules.lns get example = { "devfsrules_jail_unhide_usb_printer_and_scanner" { "id" = "30" } { "1" = "add include $devfsrules_hide_all" } { "2" = "add include $devfsrules_unhide_basic" } { "3" = "add include $devfsrules_unhide_login" } { "4" = "add path 'ulpt*' mode 0660 group printscan unhide" } { "5" = "add path 'unlpt*' mode 0660 group printscan unhide" } { "6" = "add path 'ugen2.8' mode 0660 group printscan unhide" { "#comment" = "Scanner (ugen2.8 is a symlink to usb/2.8.0)" } } { "7" = "add path usb unhide" } { "8" = "add path usbctl unhide" } { "9" = "add path 'usb/2.8.0' mode 0660 group printscan unhide" } { } } { "devfsrules_jail_unhide_usb_scanner_only" { "id" = "30" } { "1" = "add include $devfsrules_hide_all" } { "2" = "add include $devfsrules_unhide_basic" } { "3" = "add include $devfsrules_unhide_login" } { "4" = "add path 'ugen2.8' mode 0660 group scan unhide" { "#comment" = "Scanner" } } { "5" = "add path usb unhide" } { "6" = "add path usbctl unhide" } { "7" = "add path 'usb/2.8.0' mode 0660 group scan unhide" } } PK ! �j�� � ! lenses/dist/tests/test_iscsid.augnu �[��� (* Module: Test_Iscsid Provides unit tests and examples for the <Iscsid> lens. *) module Test_Iscsid = (* Variable: conf A full configuration *) let conf = "################ # iSNS settings ################ # Address of iSNS server isns.address = 127.0.0.1 isns.port = 3260 # ************* # CHAP Settings # ************* # To enable CHAP authentication set node.session.auth.authmethod # to CHAP. The default is None. node.session.auth.authmethod = CHAP # To set a CHAP username and password for initiator # authentication by the target(s), uncomment the following lines: node.session.auth.username = someuser1 node.session.auth.password = somep$31#$^&7! # To enable CHAP authentication for a discovery session to the target # set discovery.sendtargets.auth.authmethod to CHAP. The default is None. discovery.sendtargets.auth.authmethod = CHAP # To set a discovery session CHAP username and password for the initiator # authentication by the target(s), uncomment the following lines: discovery.sendtargets.auth.username = someuser3 discovery.sendtargets.auth.password = _09+7)(,./?;'p[] " (* Test: Iscsid.lns Test the full <conf> *) test Iscsid.lns get conf = { "#comment" = "###############" } { "#comment" = "iSNS settings" } { "#comment" = "###############" } { "#comment" = "Address of iSNS server" } { "isns.address" = "127.0.0.1" } { "isns.port" = "3260" } { } { "#comment" = "*************" } { "#comment" = "CHAP Settings" } { "#comment" = "*************" } { } { "#comment" = "To enable CHAP authentication set node.session.auth.authmethod" } { "#comment" = "to CHAP. The default is None." } { "node.session.auth.authmethod" = "CHAP" } { } { "#comment" = "To set a CHAP username and password for initiator" } { "#comment" = "authentication by the target(s), uncomment the following lines:" } { "node.session.auth.username" = "someuser1" } { "node.session.auth.password" = "somep$31#$^&7!" } { } { "#comment" = "To enable CHAP authentication for a discovery session to the target" } { "#comment" = "set discovery.sendtargets.auth.authmethod to CHAP. The default is None." } { "discovery.sendtargets.auth.authmethod" = "CHAP" } { } { "#comment" = "To set a discovery session CHAP username and password for the initiator" } { "#comment" = "authentication by the target(s), uncomment the following lines:" } { "discovery.sendtargets.auth.username" = "someuser3" } { "discovery.sendtargets.auth.password" = "_09+7)(,./?;'p[]" } PK ! �|'�W W # lenses/dist/tests/test_updatedb.augnu �[��� (* Module: Test_UpdateDB Provides unit tests and examples for the <UpdateDB> lens. *) module Test_UpdateDB = (* Test: UpdateDB.lns Simple get test *) test UpdateDB.lns get "# A comment PRUNEPATHS=\"/tmp /var/spool /media /home/.ecryptfs\" PRUNEFS= \"NFS nfs nfs4 rpc_pipefs\" PRUNE_BIND_MOUNTS = \"yes\"\n" = { "#comment" = "A comment" } { "PRUNEPATHS" { "entry" = "/tmp" } { "entry" = "/var/spool" } { "entry" = "/media" } { "entry" = "/home/.ecryptfs" } } { "PRUNEFS" { "entry" = "NFS" } { "entry" = "nfs" } { "entry" = "nfs4" } { "entry" = "rpc_pipefs" } } { "PRUNE_BIND_MOUNTS" = "yes" } (* Test: UpdateDB.lns Adding to a list *) test UpdateDB.lns put "PRUNEFS=\"NFS nfs nfs4 rpc_pipefs\"\n" after set "/PRUNEFS/entry[last()+1]" "ecryptfs" = "PRUNEFS=\"NFS nfs nfs4 rpc_pipefs ecryptfs\"\n" PK ! j��� ! lenses/dist/tests/test_rsyncd.augnu �[��� module Test_rsyncd = let conf = " # A more sophisticated example would be: uid = nobody gid = nobody use chroot = yes max connections = 4 syslog facility = local5 pid file = /var/run/rsyncd.pid [ftp] # this is a comment path = /var/ftp/./pub comment = whole ftp area (approx 6.1 GB) [cvs] ; comment with semicolon path = /data/cvs comment = CVS repository (requires authentication) auth users = tridge, susan # comment at EOL secrets file = /etc/rsyncd.secrets " test Rsyncd.lns get conf = { ".anon" {} { "#comment" = "A more sophisticated example would be:" } {} { "uid" = "nobody" } { "gid" = "nobody" } { "use chroot" = "yes" } { "max connections" = "4" } { "syslog facility" = "local5" } { "pid file" = "/var/run/rsyncd.pid" } {} } { "ftp" { "#comment" = "this is a comment" } { "path" = "/var/ftp/./pub" } { "comment" = "whole ftp area (approx 6.1 GB)" } {} } { "cvs" { "#comment" = "comment with semicolon" } { "path" = "/data/cvs" } { "comment" = "CVS repository (requires authentication)" } { "auth users" = "tridge, susan" { "#comment" = "comment at EOL" } } { "secrets file" = "/etc/rsyncd.secrets" } {} } PK ! �J;[ [ ! lenses/dist/tests/test_rtadvd.augnu �[��� module Test_rtadvd = (* Example from rtadvd.conf(5) *) let rtadvd_conf = "default:\\ :chlim#64:raflags#0:rltime#1800:rtime#0:retrans#0:\\ :pinfoflags=\"la\":vltime#2592000:pltime#604800:mtu#0: ef0:\\ :addr=\"2001:db8:ffff:1000::\":prefixlen#64:tc=default: " test Rtadvd.lns get rtadvd_conf = { "record" { "name" = "default" } { "capability" = "chlim#64" } { "capability" = "raflags#0" } { "capability" = "rltime#1800" } { "capability" = "rtime#0" } { "capability" = "retrans#0" } { "capability" = "pinfoflags=\"la\"" } { "capability" = "vltime#2592000" } { "capability" = "pltime#604800" } { "capability" = "mtu#0" } } { "record" { "name" = "ef0" } { "capability" = "addr=\"2001:db8:ffff:1000::\"" } { "capability" = "prefixlen#64" } { "capability" = "tc=default" } } PK ! �l� l l lenses/dist/tests/test_gdm.augnu �[��� module Test_gdm = let conf = "[daemon] # Automatic login, if true the first attached screen will automatically logged # in as user as set with AutomaticLogin key. AutomaticLoginEnable=false AutomaticLogin= [server] 0=Standard device=/dev/console " test Gdm.lns get conf = { "daemon" { "#comment" = "Automatic login, if true the first attached screen will automatically logged" } { "#comment" = "in as user as set with AutomaticLogin key." } { "AutomaticLoginEnable" = "false" } { "AutomaticLogin" } {} } { "server" { "0" = "Standard device=/dev/console" } } PK ! /4b�e e ) lenses/dist/tests/test_postfix_master.augnu �[��� module Test_postfix_master = let conf = "# master.cf smtp inet n - - 10? - smtpd maildrop unix - n n - - pipe flags=DRhu user=vmail argv=/usr/bin/maildrop -d ${recipient} " test Postfix_Master.lns get conf = { "#comment" = "master.cf" } { "smtp" { "type" = "inet" } { "private" = "n" } { "unprivileged" = "-" } { "chroot" = "-" } { "wakeup" = "10?" } { "limit" = "-" } { "command" = "smtpd" } } { "maildrop" { "type" = "unix" } { "private" = "-" } { "unprivileged" = "n" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "pipe\n flags=DRhu user=vmail argv=/usr/bin/maildrop -d ${recipient}" } } (* fixes bug #69 : accept double quotes in arguments *) let conf2 = "# The Cyrus deliver program has changed incompatibly, multiple times. cyrus unix - n n - - pipe flags=R user=cyrus argv=/usr/sbin/cyrdeliver -e -m \"${extension}\" ${user} " test Postfix_Master.lns get conf2 = { "#comment" = "The Cyrus deliver program has changed incompatibly, multiple times." } { "cyrus" { "type" = "unix" } { "private" = "-" } { "unprivileged" = "n" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "pipe\n flags=R user=cyrus argv=/usr/sbin/cyrdeliver -e -m \"${extension}\" ${user}" } } (* accept commas in arguments *) let conf3 = "# master.cf submission inet n - n - - smtpd -o smtpd_client_restrictions=permit_sasl_authenticated,reject " test Postfix_Master.lns get conf3 = { "#comment" = "master.cf" } { "submission" { "type" = "inet" } { "private" = "n" } { "unprivileged" = "-" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "smtpd\n -o smtpd_client_restrictions=permit_sasl_authenticated,reject" } } (* : is allowed *) let conf4 = "127.0.0.1:10060 inet n n n - 0 spawn user=nobody argv=/usr/sbin/hapolicy -l --default=DEFER " test Postfix_Master.lns get conf4 = { "127.0.0.1:10060" { "type" = "inet" } { "private" = "n" } { "unprivileged" = "n" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "0" } { "command" = "spawn user=nobody argv=/usr/sbin/hapolicy -l --default=DEFER" } } (* Spaces are allowed after the first word of the command *) let conf5 = "sympa unix - n n - - pipe \n flags=R user=sympa argv=/home/sympa/bin/queue ${recipient} " test Postfix_Master.lns get conf5 = { "sympa" { "type" = "unix" } { "private" = "-" } { "unprivileged" = "n" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "pipe \n flags=R user=sympa argv=/home/sympa/bin/queue ${recipient}" } } (* Arobase is allowed in command *) let conf6 = "sympafamilypfs unix - n n - - pipe flags=R user=sympa argv=/home/sympa/bin/familyqueue ${user}@domain.net pfs " test Postfix_Master.lns get conf6 = { "sympafamilypfs" { "type" = "unix" } { "private" = "-" } { "unprivileged" = "n" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "pipe flags=R user=sympa argv=/home/sympa/bin/familyqueue ${user}@domain.net pfs" } } (* Ticket #345 *) let conf7 = "# master.cf submission inet n - n - - smtpd -o mynetworks=127.0.0.1/8,[::1] " test Postfix_Master.lns get conf7 = { "#comment" = "master.cf" } { "submission" { "type" = "inet" } { "private" = "n" } { "unprivileged" = "-" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "-" } { "command" = "smtpd\n -o mynetworks=127.0.0.1/8,[::1]" } } (* Ticket #635 *) let conf8 = "postlog unix-dgram n - n - 1 postlogd\n" test Postfix_Master.lns get conf8 = { "postlog" { "type" = "unix-dgram" } { "private" = "n" } { "unprivileged" = "-" } { "chroot" = "n" } { "wakeup" = "-" } { "limit" = "1" } { "command" = "postlogd" } } PK ! ��� # lenses/dist/tests/test_crypttab.augnu �[��� module Test_crypttab = let simple = "sda1_crypt\t /dev/sda1\t /dev/random \t swap\n" let simple_tree = { "1" { "target" = "sda1_crypt" } { "device" = "/dev/sda1" } { "password" = "/dev/random" } { "opt" = "swap" } } let trailing_ws = "sda1_crypt\t /dev/sda1\t /dev/random \t swap\t\n" let no_opts = "sda1_crypt\t /dev/sda1\t /etc/key\n" let no_opts_tree = { "1" { "target" = "sda1_crypt" } { "device" = "/dev/sda1" } { "password" = "/etc/key" } } let no_password = "sda1_crypt\t /dev/sda1\n" let no_password_tree = { "1" { "target" = "sda1_crypt" } { "device" = "/dev/sda1" } } let multi_opts = "sda1_crypt\t /dev/sda1\t /etc/key \t cipher=aes-cbc-essiv:sha256,verify\n" let multi_opts_tree = { "1" { "target" = "sda1_crypt" } { "device" = "/dev/sda1" } { "password" = "/etc/key" } { "opt" = "cipher" { "value" = "aes-cbc-essiv:sha256" } } { "opt" = "verify" } } let uuid = "sda3_crypt UUID=5b8b6e72-acf9-43bc-bd2d-8dbcaee82f99 none luks,keyscript=/usr/share/yubikey-luks/ykluks-keyscript,discard\n" let uuid_tree = { "1" { "target" = "sda3_crypt" } { "device" = "UUID=5b8b6e72-acf9-43bc-bd2d-8dbcaee82f99" } { "password" = "none" } { "opt" = "luks" } { "opt" = "keyscript" { "value" = "/usr/share/yubikey-luks/ykluks-keyscript" } } { "opt" = "discard" } } test Crypttab.lns get simple = simple_tree test Crypttab.lns get trailing_ws = simple_tree test Crypttab.lns get no_opts = no_opts_tree test Crypttab.lns get no_password = no_password_tree test Crypttab.lns get multi_opts = multi_opts_tree test Crypttab.lns get uuid = uuid_tree PK ! 7M,~� � # lenses/dist/tests/test_networks.augnu �[��� module Test_Networks = let conf = "# Sample networks default 0.0.0.0 # default route - mandatory loopnet 127.0.0.0 loopnet_alias loopnet_alias2 # loopback network - mandatory mynet 128.253.154 # Modify for your own network address loopback 127 arpanet 10 arpa # Historical localnet 192.168.25.192 " test Networks.lns get conf = { "#comment" = "Sample networks" } { "1" { "name" = "default" } { "number" = "0.0.0.0" } { "#comment" = "default route - mandatory" } } { "2" { "name" = "loopnet" } { "number" = "127.0.0.0" } { "aliases" { "1" = "loopnet_alias" } { "2" = "loopnet_alias2" } } { "#comment" = "loopback network - mandatory" } } { "3" { "name" = "mynet" } { "number" = "128.253.154" } { "#comment" = "Modify for your own network address" } } {} { "4" { "name" = "loopback" } { "number" = "127" } } { "5" { "name" = "arpanet" } { "number" = "10" } { "aliases" { "1" = "arpa" } } { "#comment" = "Historical" } } { "6" { "name" = "localnet" } { "number" = "192.168.25.192" } } PK ! ��� % lenses/dist/tests/test_mdadm_conf.augnu �[��� module Test_mdadm_conf = let conf = " # Comment device containers # Comment DEVICE partitions \ndev /dev/hda* \n /dev/hdc* deVI ARRAY /dev/md0 UUID=c3d3134f-2aa9-4514-9da3-82ccd1cccc7b Name=foo=bar supeR-minor=3 devicEs=/dev/hda,/dev/hdb Level=1 num-devices=5 spares=2 spare-group=bar auTo=yes BITMAP=/path/to/bitmap metadata=frob container=/dev/sda member=1 MAIL # Initial comment user@example.com # End of line comment MAILF user@example.com # MAILFROM can only be abbreviated to 5 characters PROGRA /usr/sbin/handle-mdadm-events CREA group=system mode=0640 auto=part-8 HOME <system> AUT +1.x Homehost -all POL domain=domain1 metadata=imsm path=pci-0000:00:1f.2-scsi-* action=spare PART domain=domain1 metadata=imsm path=pci-0000:04:00.0-scsi-[01]* action=include " test Mdadm_conf.lns get conf = {} { "#comment" = "Comment" } { "device" { "containers" } } { "#comment" = "Comment" } { "device" { "partitions" } } { "device" { "name" = "/dev/hda*" } { "name" = "/dev/hdc*" } } { "device" } { "array" { "devicename" = "/dev/md0" } { "uuid" = "c3d3134f-2aa9-4514-9da3-82ccd1cccc7b" } { "name" = "foo=bar" } { "super-minor" = "3" } { "devices" = "/dev/hda,/dev/hdb" } { "level" = "1" } { "num-devices" = "5" } { "spares" = "2" } { "spare-group" = "bar" } { "auto" = "yes" } { "bitmap" = "/path/to/bitmap" } { "metadata" = "frob" } { "container" = "/dev/sda" } { "member" = "1" } } { "mailaddr" { "#comment" = "Initial comment" } { "value" = "user@example.com" } { "#comment" = "End of line comment" } } { "mailfrom" { "value" = "user@example.com" } { "#comment" = "MAILFROM can only be abbreviated to 5 characters" } } { "program" { "value" = "/usr/sbin/handle-mdadm-events" } } { "create" { "group" = "system" } { "mode" = "0640" } { "auto" = "part-8" } } { "homehost" { "value" = "<system>" } } { "auto" { "+" = "1.x" } { "homehost" } { "-" = "all" } } { "policy" { "domain" = "domain1" } { "metadata" = "imsm" } { "path" = "pci-0000:00:1f.2-scsi-*" } { "action" = "spare" } } { "part-policy" { "domain" = "domain1" } { "metadata" = "imsm" } { "path" = "pci-0000:04:00.0-scsi-[01]*" } { "action" = "include" } } PK ! %��N N lenses/dist/tests/test_fuse.augnu �[��� (* Module: Test_Fuse Provides unit tests and examples for the <Fuse> lens. *) module Test_Fuse = (* Variable: conf *) let conf = "# Set the maximum number of FUSE mounts allowed to non-root users. mount_max = 1000 # Allow non-root users to specify the 'allow_other' or 'allow_root' user_allow_other " (* Test: Fuse.lns *) test Fuse.lns get conf = { "#comment" = "Set the maximum number of FUSE mounts allowed to non-root users." } { "mount_max" = "1000" } { } { "#comment" = "Allow non-root users to specify the 'allow_other' or 'allow_root'" } { "user_allow_other" } PK ! �۩O O ! lenses/dist/tests/test_mke2fs.augnu �[��� (* Test for keepalived lens *) module Test_mke2fs = let conf = "# This is a comment ; and another comment [defaults] base_features = sparse_super,filetype,resize_inode,dir_index,ext_attr default_mntopts = acl,user_xattr enable_periodic_fsck = 0 blocksize = 4096 inode_size = 256 ; here goes inode_ratio inode_ratio = 16384 [fs_types] ; here we have fs_types ext4dev = { # this is ext4dev conf features = has_journal,^extent auto_64-bit_support = 1 inode_size = 256 options = test_fs=1 } small = { blocksize = 1024 inode_size = 128 inode_ratio = 4096 } largefile = { inode_ratio = 1048576 blocksize = -1 } [options] proceed_delay = 1 sync_kludge = 1 " test Mke2fs.lns get conf = { "#comment" = "This is a comment" } { "#comment" = "and another comment" } {} { "defaults" { "base_features" { "sparse_super" } { "filetype" } { "resize_inode" } { "dir_index" } { "ext_attr" } } { "default_mntopts" { "acl" } { "user_xattr" } } { "enable_periodic_fsck" = "0" } { "blocksize" = "4096" } { "inode_size" = "256" } { "#comment" = "here goes inode_ratio" } { "inode_ratio" = "16384" } {} } { "fs_types" { "#comment" = "here we have fs_types" } { "filesystem" = "ext4dev" { "#comment" = "this is ext4dev conf" } {} { "features" { "has_journal" } { "extent" { "disable" } } } { "auto_64-bit_support" = "1" } { "inode_size" = "256" } { "options" { "test_fs" = "1" } } } { "filesystem" = "small" { "blocksize" = "1024" } { "inode_size" = "128" } { "inode_ratio" = "4096" } } { "filesystem" = "largefile" { "inode_ratio" = "1048576" } { "blocksize" = "-1" } } {} } { "options" { "proceed_delay" = "1" } { "sync_kludge" = "1" } } let quoted_conf = "[defaults] base_features = \"sparse_super,filetype,resize_inode,dir_index,ext_attr\" [fs_types] ext4dev = { features = \"has_journal,^extent\" default_mntopts = \"user_xattr\" encoding = \"utf8\" encoding = \"\" } " test Mke2fs.lns get quoted_conf = { "defaults" { "base_features" { "sparse_super" } { "filetype" } { "resize_inode" } { "dir_index" } { "ext_attr" } } {} } { "fs_types" { "filesystem" = "ext4dev" { "features" { "has_journal" } { "extent" { "disable" } } } { "default_mntopts" { "user_xattr" } } { "encoding" = "utf8" } { "encoding" } } } test Mke2fs.common_entry put "features = has_journal,^extent\n" after set "/features/has_journal/disable" ""; rm "/features/extent/disable" = "features = ^has_journal,extent\n" PK ! ʉ:�� � & lenses/dist/tests/test_simplelines.augnu �[��� (* Module: Test_Simplelines Provides unit tests and examples for the <Simplelines> lens. *) module Test_Simplelines = (* Variable: conf *) let conf = "# This is a comment word a line indented line with $péci@l cH@r2ct3rs " (* Test: Simplelines.lns *) test Simplelines.lns get conf = { "#comment" = "This is a comment" } { } { "1" = "word" } { "2" = "a line" } { "3" = "indented line" } { "4" = "with $péci@l cH@r2ct3rs" } (* Variable: cronallow *) let cronallow = "# Test comment # user1 another user2 " (* Test: cron.allow file *) test SimpleLines.lns get cronallow = { "#comment" = "Test comment" } { } { "1" = "user1" } { "2" = "another" } { } { "3" = "user2" } PK ! ��� � " lenses/dist/tests/test_dnsmasq.augnu �[��� module Test_dnsmasq = let conf = "# Configuration file for dnsmasq. # #bogus-priv conf-dir=/etc/dnsmasq.d selfmx address=/foo.com/bar.net/10.1.2.3 server=10.4.5.6#1234 server=/bar.com/foo.net/10.7.8.9 server=/foo.org/bar.org/10.3.2.1@eth0#5678 server=/baz.org/# server=/baz.net/#@eth1 server=10.6.5.4#1234@eth0#5678 server=/qux.com/qux.net/ " test Dnsmasq.lns get conf = { "#comment" = "Configuration file for dnsmasq." } {} { "#comment" = "bogus-priv" } {} { "conf-dir" = "/etc/dnsmasq.d" } { "selfmx" } {} { "address" = "10.1.2.3" { "domain" = "foo.com" } { "domain" = "bar.net" } } {} { "server" = "10.4.5.6" { "port" = "1234" } } { "server" = "10.7.8.9" { "domain" = "bar.com" } { "domain" = "foo.net" } } { "server" = "10.3.2.1" { "domain" = "foo.org" } { "domain" = "bar.org" } { "source" = "eth0" { "port" = "5678" } } } { "server" = "#" { "domain" = "baz.org" } } { "server" = "#" { "domain" = "baz.net" } { "source" = "eth1" } } { "server" = "10.6.5.4" { "port" = "1234" } { "source" = "eth0" { "port" = "5678" } } } { "server" { "domain" = "qux.com" } { "domain" = "qux.net" } } PK ! E��L �L $ lenses/dist/tests/test_shellvars.augnu �[��� (* Test for shell lens *) module Test_shellvars = let lns = Shellvars.lns let eth_static = "# Intel Corporation PRO/100 VE Network Connection DEVICE=eth0 BOOTPROTO=static BROADCAST=172.31.0.255 HWADDR=ab:cd:ef:12:34:56 export IPADDR=172.31.0.31 # this is our IP #DHCP_HOSTNAME=host.example.com NETMASK=255.255.255.0 NETWORK=172.31.0.0 unset ONBOOT # We do not want this var " let empty_val = "EMPTY=\nDEVICE=eth0\n" let key_brack = "SOME_KEY[1]=\nDEVICE=eth0\n" test lns get eth_static = { "#comment" = "Intel Corporation PRO/100 VE Network Connection" } { "DEVICE" = "eth0" } { "BOOTPROTO" = "static" } { "BROADCAST" = "172.31.0.255" } { "HWADDR" = "ab:cd:ef:12:34:56" } { "IPADDR" = "172.31.0.31" { "export" } { "#comment" = "this is our IP" } } { "#comment" = "DHCP_HOSTNAME=host.example.com" } { "NETMASK" = "255.255.255.0" } { "NETWORK" = "172.31.0.0" } { "@unset" { "1" = "ONBOOT" } { "#comment" = "We do not want this var" } } test lns put eth_static after set "BOOTPROTO" "dhcp" ; rm "IPADDR" ; rm "BROADCAST" ; rm "NETMASK" ; rm "NETWORK" = "# Intel Corporation PRO/100 VE Network Connection DEVICE=eth0 BOOTPROTO=dhcp HWADDR=ab:cd:ef:12:34:56 #DHCP_HOSTNAME=host.example.com unset ONBOOT # We do not want this var " test lns get empty_val = { "EMPTY" = "" } { "DEVICE" = "eth0" } test lns get key_brack = { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" } test lns get "smartd_opts=\"-q never\"\n" = { "smartd_opts" = "\"-q never\"" } test lns get "var=val \n" = { "var" = "val" } test lns get ". /etc/java/java.conf\n" = { ".source" = "/etc/java/java.conf" } (* Quoted strings and other oddities *) test lns get "var=\"foo 'bar'\"\n" = { "var" = "\"foo 'bar'\"" } test lns get "var='Some \"funny\" value'\n" = { "var" = "'Some \"funny\" value'" } test lns get "var=\"\\\"\"\n" = { "var" = "\"\\\"\"" } test lns get "var=\\\"\n" = { "var" = "\\\"" } test lns get "var=ab#c\n" = { "var" = "ab#c" } test lns get "var=ab #c\n" = { "var" = "ab" { "#comment" = "c" } } test lns get "var=ab; #c\n" = { "var" = "ab" } { "#comment" = "c" } test lns put "var=ab; #c\n" after set "/#comment" "d" = "var=ab; #d\n" test lns get "var=ab;\n" = { "var" = "ab" } test lns get "var='ab#c'\n" = { "var" = "'ab#c'" } test lns get "var=\"ab#c\"\n" = { "var" = "\"ab#c\"" } test lns get "ESSID='Joe'\"'\"'s net'\n" = { "ESSID" = "'Joe'\"'\"'s net'" } test lns get "var=`ab#c`\n" = { "var" = "`ab#c`" } test lns get "var=`grep nameserver /etc/resolv.conf | head -1`\n" = { "var" = "`grep nameserver /etc/resolv.conf | head -1`" } test lns put "var=ab #c\n" after rm "/var/#comment" = "var=ab\n" test lns put "var=ab\n" after set "/var/#comment" "this is a var" = "var=ab # this is a var\n" (* Handling of arrays *) test lns get "var=(val1 \"val\\\"2\\\"\" val3)\n" = { "var" { "1" = "val1" } { "2" = "\"val\\\"2\\\"\"" } { "3" = "val3" } } test lns get "var=()\n" = { "var" = "()" } test lns put "var=()\n" after set "var" "value" = "var=value\n" test lns put "var=(v1 v2)\n" after rm "var/*" ; set "var" "value" = "var=value\n" test lns put "var=(v1 v2)\n" after set "var/3" "v3" = "var=(v1 v2 v3)\n" test lns get "var=(v1 v2 \n \t v3)\n" = { "var" { "1" = "v1" } { "2" = "v2" } { "3" = "v3" } } (* Allow spaces after/before opening/closing parens for array *) test lns get "config_eth1=( \"10.128.0.48/24\" )\n" = { "config_eth1" { "1" = "\"10.128.0.48/24\"" } } (* Bug 109: allow a bare export *) test lns get "export FOO\n" = { "@export" { "1" = "FOO" } } (* Bug 73: allow ulimit builtin *) test lns get "ulimit -c unlimited\n" = { "@builtin" = "ulimit" { "args" = "-c unlimited" } } (* Allow shift builtin *) test Shellvars.lns get "shift\nshift 2\n" = { "@builtin" = "shift" } { "@builtin" = "shift" { "args" = "2" } } (* Allow exit builtin *) test Shellvars.lns get "exit\nexit 2\n" = { "@builtin" = "exit" } { "@builtin" = "exit" { "args" = "2" } } (* Allow wrapping builtin arguments to multiple lines *) test Shellvars.lns get "ulimit -c \\\nunlimited\nulimit \\\n -x 123\n" = { "@builtin" = "ulimit" { "args" = "-c \\\nunlimited" } } { "@builtin" = "ulimit" { "args" = "-x 123" } } (* Test semicolons *) test lns get "VAR1=\"this;is;a;test\"\nVAR2=this;\n" = { "VAR1" = "\"this;is;a;test\"" } { "VAR2" = "this" } (* Bug 230: parse conditions *) test lns get "if [ -f /etc/default/keyboard ]; then\n. /etc/default/keyboard\nfi\n" = { "@if" = "[ -f /etc/default/keyboard ]" { ".source" = "/etc/default/keyboard" } } (* Recursive condition *) test lns get "if [ -f /tmp/file1 ]; then if [ -f /tmp/file2 ] then . /tmp/file2 elif [ -f /tmp/file3 ]; then . /tmp/file3; else; . /tmp/file4 fi else . /tmp/file3 fi\n" = { "@if" = "[ -f /tmp/file1 ]" { "@if" = "[ -f /tmp/file2 ]" { ".source" = "/tmp/file2" } { "@elif" = "[ -f /tmp/file3 ]" { ".source" = "/tmp/file3" } } { "@else" { ".source" = "/tmp/file4" } } } { "@else" { ".source" = "/tmp/file3" } } } (* Multiple elif *) test Shellvars.lns get "if [ -f /tmp/file1 ]; then . /tmp/file1 elif [ -f /tmp/file2 ]; then . /tmp/file2 elif [ -f /tmp/file3 ]; then . /tmp/file3 fi\n" = { "@if" = "[ -f /tmp/file1 ]" { ".source" = "/tmp/file1" } { "@elif" = "[ -f /tmp/file2 ]" { ".source" = "/tmp/file2" } } { "@elif" = "[ -f /tmp/file3 ]" { ".source" = "/tmp/file3" } } } (* Comment or eol *) test lns get "VAR=value # eol-comment\n" = { "VAR" = "value" { "#comment" = "eol-comment" } } (* One-liners *) test lns get "if [ -f /tmp/file1 ]; then . /tmp/file1; else . /tmp/file2; fi\n" = { "@if" = "[ -f /tmp/file1 ]" { ".source" = "/tmp/file1" } { "@else" { ".source" = "/tmp/file2" } } } (* Loops *) test lns get "for f in /tmp/file*; do while [ 1 ]; do . $f; done done\n" = { "@for" = "f in /tmp/file*" { "@while" = "[ 1 ]" { ".source" = "$f" } } } (* Case *) test lns get "case $f in /tmp/file1) . /tmp/file1 ;; /tmp/file2) . /tmp/file2 ;; *) unset f ;; esac\n" = { "@case" = "$f" { "@case_entry" { "@pattern" = "/tmp/file1" } { ".source" = "/tmp/file1" } } { "@case_entry" { "@pattern" = "/tmp/file2" } { ".source" = "/tmp/file2" } } { "@case_entry" { "@pattern" = "*" } { "@unset" { "1" = "f" } } } } (* Select *) test lns get "select i in a b c; do . /tmp/file$i done\n" = { "@select" = "i in a b c" { ".source" = "/tmp/file$i" } } (* Return *) test lns get "return\nreturn 2\n" = { "@return" } { "@return" = "2" } (* Functions *) test Shellvars.lns get "foo() { . /tmp/bar }\n" = { "@function" = "foo" { ".source" = "/tmp/bar" } } test Shellvars.lns get "function foo () { . /tmp/bar }\n" = { "@function" = "foo" { ".source" = "/tmp/bar" } } test Shellvars.lns get "foo() ( . /tmp/bar )\n" = { "@function" = "foo" { ".source" = "/tmp/bar" } } (* Dollar assignment *) test Shellvars.lns get "FOO=$(bar arg)\n" = { "FOO" = "$(bar arg)" } (* Empty lines before esac *) test Shellvars.lns get "case $f in a) B=C ;; esac\n" = { "@case" = "$f" { "@case_entry" { "@pattern" = "a" } { "B" = "C" } } } (* Empty lines before a case_entry *) test Shellvars.lns get "case $f in a) B=C ;; b) A=D ;; esac\n" = { "@case" = "$f" { "@case_entry" { "@pattern" = "a" } { "B" = "C" } } { "@case_entry" { "@pattern" = "b" } { "A" = "D" } } } (* Comments anywhere *) test Shellvars.lns get "case ${INTERFACE} in # comment before eth0) # comment in OPTIONS=() ;; # comment before 2 *) # comment in 2 unset f ;; # comment after esac\n" = { "@case" = "${INTERFACE}" { "#comment" = "comment before" } { "@case_entry" { "@pattern" = "eth0" } { "#comment" = "comment in" } { "OPTIONS" = "()" } } { "#comment" = "comment before 2" } { "@case_entry" { "@pattern" = "*" } { "#comment" = "comment in 2" } { "@unset" { "1" = "f" } } } { "#comment" = "comment after" } } (* Empty case *) test Shellvars.lns get "case $a in *) ;; esac\n" = { "@case" = "$a" { "@case_entry" { "@pattern" = "*" } } } (* case variables can be surrounded by double quotes *) test Shellvars.lns get "case \"${options}\" in *debug*) shift ;; esac\n" = { "@case" = "\"${options}\"" { "@case_entry" { "@pattern" = "*debug*" } { "@builtin" = "shift" } } } (* Double quoted values can have newlines *) test Shellvars.lns get "FOO=\"123\n456\"\n" = { "FOO" = "\"123\n456\"" } (* Single quoted values can have newlines *) test Shellvars.lns get "FOO='123\n456'\n" = { "FOO" = "'123\n456'" } (* bquoted values can have semi-colons *) test Shellvars.lns get "FOO=`bar=date;$bar`\n" = { "FOO" = "`bar=date;$bar`" } (* dollar-assigned values can have semi-colons *) test Shellvars.lns get "FOO=$(bar=date;$bar)\n" = { "FOO" = "$(bar=date;$bar)" } (* dollar-assigned value in bquot *) test Shellvars.lns get "FOO=`echo $(date)`\n" = { "FOO" = "`echo $(date)`" } (* bquot value in dollar-assigned value *) test Shellvars.lns get "FOO=$(echo `date`)\n" = { "FOO" = "$(echo `date`)" } (* dbquot *) test Shellvars.lns get "FOO=``bar``\n" = { "FOO" = "``bar``" } (* Partial quoting is allowed *) test Shellvars.lns get "FOO=\"$bar\"/'baz'/$(quux)$((1 + 2))\n" = { "FOO" = "\"$bar\"/'baz'/$(quux)$((1 + 2))" } (* unset can be used on wildcard variables *) test Shellvars.lns get "unset ${!LC_*}\n" = { "@unset" { "1" = "${!LC_*}" } } (* Empty comment before entries *) test Shellvars.lns get "# \nfoo=bar\n" = { "foo" = "bar" } (* Empty comment after entries *) test Shellvars.lns get "foo=bar\n# \n\n" = { "foo" = "bar" } (* Whitespace between lines *) test Shellvars.lns get "DEVICE=eth0\n\nBOOTPROTO=static\n" = { "DEVICE" = "eth0" } { "BOOTPROTO" = "static" } (* Whitespace after line *) test Shellvars.lns get "DEVICE=eth0\n\n" = { "DEVICE" = "eth0" } (* Fails adding variable assignment between comment and blank line *) let ins_after_comment = "# foo " test lns put ins_after_comment after insa "foo" "#comment" ; set "foo" "yes" = "# foo\n\nfoo=yes\n" (* Make sure to support empty comments *) test lns get "# foo # # foo=bar #\n" = { "#comment" = "foo" } { "foo" = "bar" } (* Single quotes in arrays, ticket #357 *) test lns get "DLAGENTS=('ftp::/usr/bin/curl -fC - --ftp-pasv --retry 3 --retry-delay 3 -o %o %u' 'scp::/usr/bin/scp -C %u %o')\n" = { "DLAGENTS" { "1" = "'ftp::/usr/bin/curl -fC - --ftp-pasv --retry 3 --retry-delay 3 -o %o %u'" } { "2" = "'scp::/usr/bin/scp -C %u %o'" } } (* Accept continued lines in quoted values *) test lns get "BLAH=\" \ test \ test2\"\n" = { "BLAH" = "\" \\\ntest \\\ntest2\"" } (* Export of multiple variables, RHBZ#1033795 *) test lns get "export TestVar1 TestVar2\n" = { "@export" { "1" = "TestVar1" } { "2" = "TestVar2" } } (* Support ;; on same line as a case statement entry, RHBZ#1033799 *) test lns get "case $ARG in 0) TestVar=\"test0\" ;; 1) TestVar=\"test1\" ;; esac\n" = { "@case" = "$ARG" { "@case_entry" { "@pattern" = "0" } { "TestVar" = "\"test0\"" } } { "@case_entry" { "@pattern" = "1" } { "TestVar" = "\"test1\"" } } } (* case: support ;; on the same line with multiple commands *) test lns get "case $ARG in 0) Foo=0; Bar=1;; 1) Foo=2 Bar=3; Baz=4;; esac\n" = { "@case" = "$ARG" { "@case_entry" { "@pattern" = "0" } { "Foo" = "0" } { "Bar" = "1" } } { "@case_entry" { "@pattern" = "1" } { "Foo" = "2" } { "Bar" = "3" } { "Baz" = "4" } } } (* Test: Shellvars.lns Support `##` bashism in conditions (GH issue #118) *) test Shellvars.lns get "if [ \"${APACHE_CONFDIR##/etc/apache2-}\" != \"${APACHE_CONFDIR}\" ] ; then SUFFIX=\"-${APACHE_CONFDIR##/etc/apache2-}\" else SUFFIX= fi\n" = { "@if" = "[ \"${APACHE_CONFDIR##/etc/apache2-}\" != \"${APACHE_CONFDIR}\" ]" { "SUFFIX" = "\"-${APACHE_CONFDIR##/etc/apache2-}\"" } { "@else" { "SUFFIX" = "" } } } (* Support $(( .. )) arithmetic expansion in variable assignment, RHBZ#1100550 *) test lns get "export MALLOC_PERTURB_=$(($RANDOM % 255 + 1))\n" = { "MALLOC_PERTURB_" = "$(($RANDOM % 255 + 1))" { "export" } } (* * Github issue 202 *) let starts_with_blank = "\n \nVAR=value\n" test lns get starts_with_blank = { "VAR" = "value" } (* It is now possible to insert at the beginning of a file * that starts with blank lines *) test lns put starts_with_blank after insb "#comment" "/*[1]"; set "/#comment[1]" "a comment" = " # a comment\nVAR=value\n" (* Modifications of the file lose the blank lines though *) test lns put starts_with_blank after set "/VAR2" "abc" = "VAR=value\nVAR2=abc\n" test lns put starts_with_blank after rm "/VAR"; set "/VAR2" "abc" = "VAR2=abc\n" test lns put starts_with_blank after rm "/VAR" = "" (* Support associative arrays *) test lns get "var[alpha_beta,gamma]=something\n" = { "var[alpha_beta,gamma]" = "something" } (* GH #188: support more conditions *) test Shellvars.lns get "[ -f $FILENAME ]\n" = { "@condition" = "-f $FILENAME" { "type" = "[" } } test Shellvars.lns get "[[ -f $FILENAME ]]\n" = { "@condition" = "-f $FILENAME" { "type" = "[[" } } (* Allow wrapping loop condition to multiple lines *) test Shellvars.lns get "for x in foo \\\nbar\\\nbaz; do y=$x; done\n" = { "@for" = "x in foo \\\nbar\\\nbaz" { "y" = "$x" } } (* Allow quotes in loop conditions *) test Shellvars.lns get "for x in \"$@\"; do y=$x; done\n" = { "@for" = "x in \"$@\"" { "y" = "$x" } } (* case: support quotes and spaces in pattern lists *) test lns get "case $ARG in \"foo bar\") Foo=0 ;; baz | quux) Foo=1 ;; esac\n" = { "@case" = "$ARG" { "@case_entry" { "@pattern" = "\"foo bar\"" } { "Foo" = "0" } } { "@case_entry" { "@pattern" = "baz" } { "@pattern" = "quux" } { "Foo" = "1" } } } (* eval *) test lns get "eval `dircolors`\n" = { "@eval" = "`dircolors`" } (* alias *) test lns get "alias ls='ls $LS_OPTIONS'\n" = { "@alias" = "ls" { "value" = "'ls $LS_OPTIONS'" } } test lns get "alias ls-options='ls $LS_OPTIONS'\n" = { "@alias" = "ls-options" { "value" = "'ls $LS_OPTIONS'" } } (* Allow && and || constructs after condition *) test Shellvars.lns get "[ -f $FILENAME ] && do this || or that\n" = { "@condition" = "-f $FILENAME" { "type" = "[" } { "@and" = "do this" } { "@or" = "or that" } } (* Test: Shellvars.lns Parse (almost) any command *) test Shellvars.lns get "echo foobar 'and this is baz' /usr/local/bin/myscript-with-dash_and_underscore.sh with args echo foo \ bar\n" = { "@command" = "echo" { "@arg" = "foobar 'and this is baz'" } } { "@command" = "/usr/local/bin/myscript-with-dash_and_underscore.sh" { "@arg" = "with args" } } { "@command" = "echo" { "@arg" = "foo \\\nbar" } } (* Test: Shellvars.lns Support pipes in commands *) test Shellvars.lns get "echo \"$STRING\" | grep foo\n" = { "@command" = "echo" { "@arg" = "\"$STRING\"" } { "@pipe" { "@command" = "grep" { "@arg" = "foo" } } } } (* Test: Shellvars.lns Support && and || after command GH #215 *) test Shellvars.lns get "grep -q \"Debian\" /etc/issue && echo moo\n" = { "@command" = "grep" { "@arg" = "-q \"Debian\" /etc/issue" } { "@and" { "@command" = "echo" { "@arg" = "moo" } } } } test Shellvars.lns get "grep -q \"Debian\" /etc/issue || echo baa\n" = { "@command" = "grep" { "@arg" = "-q \"Debian\" /etc/issue" } { "@or" { "@command" = "echo" { "@arg" = "baa" } } } } test Shellvars.lns get "grep -q \"Debian\" /etc/issue && DEBIAN=1\n" = { "@command" = "grep" { "@arg" = "-q \"Debian\" /etc/issue" } { "@and" { "DEBIAN" = "1" } } } test Shellvars.lns get "cat /etc/issue | grep -q \"Debian\" && echo moo || echo baa\n" = { "@command" = "cat" { "@arg" = "/etc/issue" } { "@pipe" { "@command" = "grep" { "@arg" = "-q \"Debian\"" } { "@and" { "@command" = "echo" { "@arg" = "moo" } { "@or" { "@command" = "echo" { "@arg" = "baa" } } } } } } } } (* Command-specific environment variables *) test Shellvars.lns get "abc=def \\\n ghi=\"jkl mno\" command arg1 arg2\n" = { "@command" = "command" { "abc" = "def" } { "ghi" = "\"jkl mno\"" } { "@arg" = "arg1 arg2" } } (* Wrapped command sequences *) test Shellvars.lns get "foo && \\\nbar baz \\\n|| qux \\\n quux\\\ncorge grault\n" = { "@command" = "foo" { "@and" { "@command" = "bar" { "@arg" = "baz" } { "@or" { "@command" = "qux" { "@arg" = "quux\\\ncorge grault" } } } } } } (* Comment after function definition (Issue #339) *) test Shellvars.lns get "SetDir() # hello { echo }\n" = { "@function" = "SetDir" { "#comment" = "hello" } { "@command" = "echo" } } (* Function with new lines *) test Shellvars.lns get "MyFunc() { echo }\n" = { "@function" = "MyFunc" { "@command" = "echo" } } (* Pipe and newline without cl (Issue #339) *) test Shellvars.lns get "echo | tr\n" = { "@command" = "echo" { "@pipe" { "@command" = "tr" } } } (* Subshell (Issue #339) *) test Shellvars.lns get "{ echo }\n" = { "@subshell" { "@command" = "echo" } } (* One-liner function *) test Shellvars.lns get "MyFunc() { echo; }\n" = { "@function" = "MyFunc" { "@command" = "echo" } } (* Support and/or in if conditions *) test Shellvars.lns get "if [ -f /tmp/file1 ] && [ -f /tmp/file2 ] || [ -f /tmp/file3 ]; then echo foo fi " = { "@if" = "[ -f /tmp/file1 ]" { "@and" = "[ -f /tmp/file2 ]" } { "@or" = "[ -f /tmp/file3 ]" } { "@command" = "echo" { "@arg" = "foo" } } } (* Support variable as command *) test Shellvars.lns get "$FOO bar\n" = { "@command" = "$FOO" { "@arg" = "bar" } } (********************************************************* * Group: Unsupported syntax * * * * The following tests are known to be failing currently * *********************************************************) (* Any piping (Issue #343) *) test Shellvars.lns get "FOO=bar && BAR=foo echo foo || { echo bar; } echo FOO | myfunc() { echo bar; }\n" = * (* Stream redirections (Issue #626 *) test Shellvars.lns get "echo foo 2>&1 >/dev/null\n" = * (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �+�yh h lenses/dist/tests/test_jaas.augnu �[��� (* Module Jaas *) (* Author: Simon Vocella <voxsim@gmail.com> *) module Test_jaas = let conf = " /* This is the JAAS configuration file used by the Shibboleth IdP. A JAAS configuration file is a grouping of LoginModules defined in the following manner: <LoginModuleClass> <Flag> <ModuleOptions>; LoginModuleClass - fully qualified class name of the LoginModule class Flag - indicates whether the requirement level for the modules; allowed values: required, requisite, sufficient, optional ModuleOptions - a space delimited list of name=\"value\" options For complete documentation on the format of this file see: http://java.sun.com/j2se/1.5.0/docs/api/javax/security/auth/login/Configuration.html For LoginModules available within the Sun JVM see: http://java.sun.com/j2se/1.5.0/docs/guide/security/jaas/tutorials/LoginConfigFile.html Warning: Do NOT use Sun's JNDI LoginModule to authentication against an LDAP directory, Use the LdapLoginModule that ships with Shibboleth and is demonstrated below. Note, the application identifier MUST be ShibUserPassAuth */ ShibUserPassAuth { // Example LDAP authentication // See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass /* edu.vt.middleware.ldap.jaas.LdapLoginModule required ldapUrl=\"ldap://ldap.example.org\" baseDn=\"ou=people,dc=example,dc=org\" ssl=\"true\" userFilter=\"uid={0}\"; */ // Example Kerberos authentication, requires Sun's JVM // See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass /* com.sun.security.auth.module.Krb5LoginModule required useKeyTab=\"true\" keyTab=\"/path/to/idp/keytab/file\"; */ edu.vt.middleware.ldap.jaas.LdapLoginModule required host = \"ldap://127.0.0.1:389\" base = \"dc=example,dc=com\" serviceUser = \"cn=admin,dc=example,dc=com\" serviceCredential = \"ldappassword\" ssl = \"false\" userField = \"uid\" // Example comment within definition subtreeSearch = \"true\"; }; NetAccountAuth { // Test of optionless flag nz.ac.auckland.jaas.Krb5LoginModule required; }; com.sun.security.jgss.krb5.initiate { // Test of omitted linebreaks and naked boolean com.sun.security.auth.module.Krb5LoginModule required useTicketCache=true; };" test Jaas.lns get conf = { } { "#mcomment" { "1" = "This is the JAAS configuration file used by the Shibboleth IdP." } { "2" = "A JAAS configuration file is a grouping of LoginModules defined in the following manner:" } { "3" = "<LoginModuleClass> <Flag> <ModuleOptions>;" } { "4" = "LoginModuleClass - fully qualified class name of the LoginModule class" } { "5" = "Flag - indicates whether the requirement level for the modules;" } { "6" = "allowed values: required, requisite, sufficient, optional" } { "7" = "ModuleOptions - a space delimited list of name=\"value\" options" } { "8" = "For complete documentation on the format of this file see:" } { "9" = "http://java.sun.com/j2se/1.5.0/docs/api/javax/security/auth/login/Configuration.html" } { "10" = "For LoginModules available within the Sun JVM see:" } { "11" = "http://java.sun.com/j2se/1.5.0/docs/guide/security/jaas/tutorials/LoginConfigFile.html" } { "12" = "Warning: Do NOT use Sun's JNDI LoginModule to authentication against an LDAP directory," } { "13" = "Use the LdapLoginModule that ships with Shibboleth and is demonstrated below." } { "14" = "Note, the application identifier MUST be ShibUserPassAuth" } } { } { } { "login" = "ShibUserPassAuth" { } { "#comment" = "Example LDAP authentication" } { "#comment" = "See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass" } { "#mcomment" { "1" = "edu.vt.middleware.ldap.jaas.LdapLoginModule required" } { "2" = "ldapUrl=\"ldap://ldap.example.org\"" } { "3" = "baseDn=\"ou=people,dc=example,dc=org\"" } { "4" = "ssl=\"true\"" } { "5" = "userFilter=\"uid={0}\";" } } { } { "#comment" = "Example Kerberos authentication, requires Sun's JVM" } { "#comment" = "See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass" } { "#mcomment" { "1" = "com.sun.security.auth.module.Krb5LoginModule required" } { "2" = "useKeyTab=\"true\"" } { "3" = "keyTab=\"/path/to/idp/keytab/file\";" } } { } { "loginModuleClass" = "edu.vt.middleware.ldap.jaas.LdapLoginModule" { "flag" = "required" { "host" = "\"ldap://127.0.0.1:389\"" } { "base" = "\"dc=example,dc=com\"" } { "serviceUser" = "\"cn=admin,dc=example,dc=com\"" } { "serviceCredential" = "\"ldappassword\"" } { "ssl" = "\"false\"" } { "userField" = "\"uid\"" } { "#comment" = "Example comment within definition" } { "subtreeSearch" = "\"true\"" } } } { } } { } { } { "login" = "NetAccountAuth" { "#comment" = "Test of optionless flag" } { "loginModuleClass" = "nz.ac.auckland.jaas.Krb5LoginModule" { "flag" = "required" } } { } } { } { } { "login" = "com.sun.security.jgss.krb5.initiate" { "#comment" = "Test of omitted linebreaks and naked boolean" } { "loginModuleClass" = "com.sun.security.auth.module.Krb5LoginModule" { "flag" = "required" { "useTicketCache" = "true" } } } { } } PK ! F� mh h , lenses/dist/tests/test_mailscanner_rules.augnu �[��� module Test_Mailscanner_Rules = let conf = "# JKF 10/08/2007 Adobe Acrobat nastiness rename \.fdf$ Dangerous Adobe Acrobat data-file Opening this file can cause auto-loading of any file from the internet # JKF 04/01/2005 More Microsoft security vulnerabilities deny \.ico$ Windows icon file security vulnerability Possible buffer overflow in Windows allow \.(jan|feb|mar|apr|may|jun|june|jul|july|aug|sep|sept|oct|nov|dec)\.[a-z0-9]{3}$ - - deny+delete \.cur$ Windows cursor file security vulnerability Possible buffer overflow in Windows andrew@baruwa.com,andrew@baruwa.net \.reg$ Possible Windows registry attack Windows registry entries are very dangerous in email andrew@baruwa.com andrew@baruwa.net \.chm$ Possible compiled Help file-based virus Compiled help files are very dangerous in email rename to .ppt \.pps$ Renamed .pps to .ppt Renamed .pps to .ppt " test Mailscanner_Rules.lns get conf = { "#comment" = "JKF 10/08/2007 Adobe Acrobat nastiness" } { "1" { "action" = "rename" } { "regex" = "\.fdf$" } { "log-text" = "Dangerous Adobe Acrobat data-file" } { "user-report" = "Opening this file can cause auto-loading of any file from the internet" } } {} { "#comment" = "JKF 04/01/2005 More Microsoft security vulnerabilities" } { "2" { "action" = "deny" } { "regex" = "\.ico$" } { "log-text" = "Windows icon file security vulnerability" } { "user-report" = "Possible buffer overflow in Windows" } } { "3" { "action" = "allow" } { "regex" = "\.(jan|feb|mar|apr|may|jun|june|jul|july|aug|sep|sept|oct|nov|dec)\.[a-z0-9]{3}$" } { "log-text" = "-" } { "user-report" = "-" } } { "4" { "action" = "deny+delete" } { "regex" = "\.cur$" } { "log-text" = "Windows cursor file security vulnerability" } { "user-report" = "Possible buffer overflow in Windows" } } { "5" { "action" = "andrew@baruwa.com,andrew@baruwa.net" } { "regex" = "\.reg$" } { "log-text" = "Possible Windows registry attack" } { "user-report" = "Windows registry entries are very dangerous in email" } } { "6" { "action" = "andrew@baruwa.com andrew@baruwa.net" } { "regex" = "\.chm$" } { "log-text" = "Possible compiled Help file-based virus" } { "user-report" = "Compiled help files are very dangerous in email" } } { "7" { "action" = "rename to .ppt" } { "regex" = "\.pps$" } { "log-text" = "Renamed .pps to .ppt" } { "user-report" = "Renamed .pps to .ppt" } }PK ! v ��1 �1 0 lenses/dist/tests/test_openshift_quickstarts.augnu �[��� (* Module: Test_OpenShift_Quickstarts Provides unit tests and examples for the <OpenShift_Quickstarts> lens. *) module Test_OpenShift_Quickstarts = (* Variable: conf *) let conf = "[ {\"quickstart\": { \"id\": \"1\", \"name\":\"CakePHP\", \"website\":\"http://cakephp.org/\", \"initial_git_url\":\"git://github.com/openshift/cakephp-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC.\", \"tags\":[\"php\",\"cakephp\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\": { \"id\": \"2\", \"name\":\"Django\", \"website\":\"https://www.djangoproject.com/\", \"initial_git_url\":\"git://github.com/openshift/django-example.git\", \"cartridges\":[\"python-2.7\"], \"summary\":\"A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"python\",\"django\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"4\", \"name\":\"Drupal\", \"website\":\"http://drupal.org/\", \"initial_git_url\":\"git://github.com/openshift/drupal-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"php\",\"drupal\",\"wiki\",\"framework\",\"instant_app\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"6\", \"name\":\"Ruby on Rails\", \"website\":\"http://rubyonrails.org/\", \"initial_git_url\":\"git://github.com/openshift/rails-example.git\", \"cartridges\":[\"ruby-1.9\",\"mysql-5.1\"], \"summary\":\"An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration.\", \"tags\":[\"ruby\",\"rails\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"8\", \"name\":\"WordPress\", \"website\":\"http://wordpress.org\", \"initial_git_url\":\"git://github.com/openshift/wordpress-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"php\",\"wordpress\",\"blog\",\"framework\",\"instant_app\"], \"admin_tags\":[] }} ]" (* Variable: new_conf *) let new_conf = "[ {\"quickstart\": { \"id\": \"1\", \"name\":\"CakePHP\", \"website\":\"http://cakephp.org/\", \"initial_git_url\":\"git://github.com/openshift/cakephp-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC.\", \"tags\":[\"php\",\"cakephp\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\": { \"id\": \"2\", \"name\":\"Django\", \"website\":\"https://www.djangoproject.com/\", \"initial_git_url\":\"git://github.com/openshift/django-example.git\", \"cartridges\":[\"python-2.7\"], \"summary\":\"A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"python\",\"django\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"4\", \"name\":\"Drupal\", \"website\":\"http://drupal.org/\", \"initial_git_url\":\"git://github.com/openshift/drupal-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"php\",\"drupal\",\"wiki\",\"framework\",\"instant_app\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"6\", \"name\":\"Ruby on Rails\", \"website\":\"http://rubyonrails.org/\", \"initial_git_url\":\"git://github.com/openshift/rails-example.git\", \"cartridges\":[\"ruby-1.9\",\"mysql-5.1\"], \"summary\":\"An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration.\", \"tags\":[\"ruby\",\"rails\",\"framework\"], \"admin_tags\":[] }}, {\"quickstart\":{ \"id\": \"8\", \"name\":\"WordPress\", \"website\":\"https://wordpress.org\", \"initial_git_url\":\"git://github.com/openshift/wordpress-example.git\", \"cartridges\":[\"php-5.4\",\"mysql-5.1\"], \"summary\":\"A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\", \"tags\":[\"php\",\"wordpress\",\"blog\",\"framework\",\"instant_app\"], \"admin_tags\":[] }} ]" (* Test: OpenShift_Quickstarts.lns *) test OpenShift_Quickstarts.lns get conf = { "array" { } { "dict" { "entry" = "quickstart" { "dict" { } { "entry" = "id" { "string" = "1" } } { } { "entry" = "name" { "string" = "CakePHP" } } { } { "entry" = "website" { "string" = "http://cakephp.org/" } } { } { "entry" = "initial_git_url" { "string" = "git://github.com/openshift/cakephp-example.git" } } { } { "entry" = "cartridges" { "array" { "string" = "php-5.4" } { "string" = "mysql-5.1" } } } { } { "entry" = "summary" { "string" = "CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC." } } { } { "entry" = "tags" { "array" { "string" = "php" } { "string" = "cakephp" } { "string" = "framework" } } } { } { "entry" = "admin_tags" { "array" } } } } } { } { "dict" { "entry" = "quickstart" { "dict" { } { "entry" = "id" { "string" = "2" } } { } { "entry" = "name" { "string" = "Django" } } { } { "entry" = "website" { "string" = "https://www.djangoproject.com/" } } { } { "entry" = "initial_git_url" { "string" = "git://github.com/openshift/django-example.git" } } { } { "entry" = "cartridges" { "array" { "string" = "python-2.7" } } } { } { "entry" = "summary" { "string" = "A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." } } { } { "entry" = "tags" { "array" { "string" = "python" } { "string" = "django" } { "string" = "framework" } } } { } { "entry" = "admin_tags" { "array" } } } } } { } { "dict" { "entry" = "quickstart" { "dict" { } { "entry" = "id" { "string" = "4" } } { } { "entry" = "name" { "string" = "Drupal" } } { } { "entry" = "website" { "string" = "http://drupal.org/" } } { } { "entry" = "initial_git_url" { "string" = "git://github.com/openshift/drupal-example.git" } } { } { "entry" = "cartridges" { "array" { "string" = "php-5.4" } { "string" = "mysql-5.1" } } } { } { "entry" = "summary" { "string" = "An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." } } { } { "entry" = "tags" { "array" { "string" = "php" } { "string" = "drupal" } { "string" = "wiki" } { "string" = "framework" } { "string" = "instant_app" } } } { } { "entry" = "admin_tags" { "array" } } } } } { } { "dict" { "entry" = "quickstart" { "dict" { } { "entry" = "id" { "string" = "6" } } { } { "entry" = "name" { "string" = "Ruby on Rails" } } { } { "entry" = "website" { "string" = "http://rubyonrails.org/" } } { } { "entry" = "initial_git_url" { "string" = "git://github.com/openshift/rails-example.git" } } { } { "entry" = "cartridges" { "array" { "string" = "ruby-1.9" } { "string" = "mysql-5.1" } } } { } { "entry" = "summary" { "string" = "An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration." } } { } { "entry" = "tags" { "array" { "string" = "ruby" } { "string" = "rails" } { "string" = "framework" } } } { } { "entry" = "admin_tags" { "array" } } } } } { } { "dict" { "entry" = "quickstart" { "dict" { } { "entry" = "id" { "string" = "8" } } { } { "entry" = "name" { "string" = "WordPress" } } { } { "entry" = "website" { "string" = "http://wordpress.org" } } { } { "entry" = "initial_git_url" { "string" = "git://github.com/openshift/wordpress-example.git" } } { } { "entry" = "cartridges" { "array" { "string" = "php-5.4" } { "string" = "mysql-5.1" } } } { } { "entry" = "summary" { "string" = "A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." } } { } { "entry" = "tags" { "array" { "string" = "php" } { "string" = "wordpress" } { "string" = "blog" } { "string" = "framework" } { "string" = "instant_app" } } } { } { "entry" = "admin_tags" { "array" } } } } { } } } (* FIXME: not yet supported: * The manner in which the JSON utility lens currently works does not maintain * whitepsace as per the Augeas specification in the put direction. test OpenShift_Quickstarts.lns put conf after set "/array/dict[5]/entry/dict/entry[3]/string" "https://wordpress.org" = new_conf *) (* vim: set ts=4 expandtab sw=4: *) PK ! �gH�. . ! lenses/dist/tests/test_vfstab.augnu �[��� module Test_vfstab = let simple = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro\n" let simple_tree = { "1" { "spec" = "/dev/dsk/c0t0d0s1" } { "fsck" = "/dev/rdsk/c0t0d0s1" } { "file" = "/test" } { "vfstype" = "ufs" } { "passno" = "1" } { "atboot" = "yes" } { "opt" = "ro" } } test Vfstab.lns get simple = simple_tree let trailing_ws = "/dev/dsk/c0t0d0s1\t /dev/rdsk/c0t0d0s1\t /test\t ufs\t 1\t yes\t ro \t \n" test Vfstab.lns get trailing_ws = simple_tree (* Now test combinations where unneeded fields can be replaced by dashes and then should not appear in the tree. *) let gen_empty_field(fsck:string) (passno:string) (opt:string) = "/dev/dsk/c0t0d0s1\t " . fsck . "\t /test\t ufs\t " . passno . " yes " . opt . "\t\n" (* Missing fsck *) let no_fsck = gen_empty_field "-" "1" "ro" test Vfstab.lns get no_fsck = { "1" { "spec" = "/dev/dsk/c0t0d0s1" } { "file" = "/test" } { "vfstype" = "ufs" } { "passno" = "1" } { "atboot" = "yes" } { "opt" = "ro" } } test Vfstab.lns put no_fsck after insa "fsck" "/1/spec" ; set "/1/fsck" "/dev/rdsk/c0t0d0s1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro" (* Missing passno *) let no_passno = gen_empty_field "/dev/rdsk/c0t0d0s1" "-" "ro" test Vfstab.lns get no_passno = { "1" { "spec" = "/dev/dsk/c0t0d0s1" } { "fsck" = "/dev/rdsk/c0t0d0s1" } { "file" = "/test" } { "vfstype" = "ufs" } { "atboot" = "yes" } { "opt" = "ro" } } test Vfstab.lns put no_passno after insa "passno" "/1/vfstype" ; set "/1/passno" "1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro" (* Missing opts *) let no_opts = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "-" test Vfstab.lns get no_opts = { "1" { "spec" = "/dev/dsk/c0t0d0s1" } { "fsck" = "/dev/rdsk/c0t0d0s1" } { "file" = "/test" } { "vfstype" = "ufs" } { "passno" = "1" } { "atboot" = "yes" } } test Vfstab.lns put no_opts after insa "opt" "/1/atboot" ; insa "opt" "/1/atboot" ; set "/1/opt[1]" "ro" ; set "/1/opt[2]" "fg" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro,fg" let multi_opts = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro,nosuid,retry=5,fg\n" let multi_opts_tree = { "1" { "spec" = "/dev/dsk/c0t0d0s1" } { "fsck" = "/dev/rdsk/c0t0d0s1" } { "file" = "/test" } { "vfstype" = "ufs" } { "passno" = "1" } { "atboot" = "yes" } { "opt" = "ro" } { "opt" = "nosuid" } { "opt" = "retry" { "value" = "5" } } { "opt" = "fg" } } test Vfstab.lns get multi_opts = multi_opts_tree (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ?n n ) lenses/dist/tests/test_aptpreferences.augnu �[��� module Test_aptpreferences = let conf ="Explanation: Backport packages are never prioritary Package: * Pin: release a=backports Pin-Priority: 100 # This is a comment Explanation: My packages are the most prioritary Package: * Pin: release l=Raphink, v=3.0 Pin-Priority: 700 Package: liferea-data Pin: version 1.4.26-4 Pin-Priority: 600 Package: * Pin: origin packages.linuxmint.com Pin-Priority: 700 " test AptPreferences.lns get conf = { "1" { "Explanation" = "Backport packages are never prioritary" } { "Package" = "*" } { "Pin" = "release" { "a" = "backports" } } { "Pin-Priority" = "100" } } { "2" { "#comment" = "This is a comment" } { "Explanation" = "My packages are the most prioritary" } { "Package" = "*" } { "Pin" = "release" { "l" = "Raphink" } { "v" = "3.0" } } { "Pin-Priority" = "700" } } { "3" { "Package" = "liferea-data" } { "Pin" = "version" { "version" = "1.4.26-4" } } { "Pin-Priority" = "600" } } { "4" { "Package" = "*" } { "Pin" = "origin" { "origin" = "packages.linuxmint.com" } } { "Pin-Priority" = "700" } } (*************************************************************************) test AptPreferences.lns put "\n" after set "/1/Package" "something-funny"; set "/1/Pin" "version"; set "/1/Pin/version" "1.2.3-4"; set "/1/Pin-Priority" "2000" = " Package: something-funny Pin: version 1.2.3-4 Pin-Priority: 2000 " (* Test: AptPreferences.pin Spaces in origins are valid *) test AptPreferences.pin get "Pin: release o=Quantum GIS project\n" = { "Pin" = "release" { "o" = "Quantum GIS project" } } PK ! ����F F # lenses/dist/tests/test_anaconda.augnu �[��� (* Module: Test_Anaconda Provides unit tests and examples for the <Anaconda> lens. - 'exampleN' snippets are taken from the documentation: https://anaconda-installer.readthedocs.io/en/latest/user-interaction-config-file-spec.html - 'installedN' snippets are taken from the resulting files after a successful installation *) module Test_Anaconda = let example1 = "# comment example - before the section headers [section_1] # comment example - inside section 1 key_a_in_section1=some_value key_b_in_section1=some_value [section_2] # comment example - inside section 2 key_a_in_section2=some_value " test Anaconda.lns get example1 = { "#comment" = "comment example - before the section headers" } { } { "section_1" { "#comment" = "comment example - inside section 1" } { "key_a_in_section1" = "some_value" } { "key_b_in_section1" = "some_value" } { } } { "section_2" { "#comment" = "comment example - inside section 2" } { "key_a_in_section2" = "some_value" } } let example2 = "# this is the user interaction config file [General] post_install_tools_disabled=0 [DatetimeSpoke] # the date and time spoke has been visited visited=1 changed_timezone=1 changed_ntp=0 changed_timedate=1 [KeyboardSpoke] # the keyboard spoke has not been visited visited=0 " test Anaconda.lns get example2 = { "#comment" = "this is the user interaction config file" } { } { "General" { "post_install_tools_disabled" = "0" } { } } { "DatetimeSpoke" { "#comment" = "the date and time spoke has been visited" } { "visited" = "1" } { "changed_timezone" = "1" } { "changed_ntp" = "0" } { "changed_timedate" = "1" } { } } { "KeyboardSpoke" { "#comment" = "the keyboard spoke has not been visited" } { "visited" = "0" } } let installed1 = "# This file has been generated by the Anaconda Installer 21.48.22.134-1 [ProgressSpoke] visited = 1 " test Anaconda.lns get installed1 = { "#comment" = "This file has been generated by the Anaconda Installer 21.48.22.134-1" } { } { "ProgressSpoke" { "visited" = "1" } { } } PK ! 'Mʎ� � lenses/dist/tests/test_tinc.augnu �[��� module Test_tinc = let lns = Tinc.lns test lns get "Subnet = 10.1.4.5\n" = { "Subnet" = "10.1.4.5" } test lns get "foo = bar\n" = { "foo" = "bar" } test lns get "foo bar\n" = { "foo" = "bar" } test lns get "foo bar\n" = { "foo" = "bar" } test lns get "-----BEGIN RSA PUBLIC KEY----- abcde -----END RSA PUBLIC KEY-----" = { "#key" = "abcde" } test lns get "foo = bar\nbar = baz\n" = { "foo" = "bar" } { "bar" = "baz" } test lns get "foo = bar -----BEGIN RSA PUBLIC KEY----- bar -----END RSA PUBLIC KEY-----" = { "foo" = "bar" } { } { "#key" = "bar" } (* test lns get "-----BEGIN RSA PUBLIC KEY----- foo -----END RSA PUBLIC KEY----- -----BEGIN RSA PUBLIC KEY----- bar -----END RSA PUBLIC KEY----- " = ? *) PK ! Nlj� � + lenses/dist/tests/test_openshift_config.augnu �[��� (* Module: Test_OpenShift_Config Provides unit tests and examples for the <OpenShift_Config> lens. *) module Test_OpenShift_Config = (* Variable: conf *) let conf = "CLOUD_DOMAIN=\"example.com\" VALID_GEAR_SIZES=\"small,medium\" DEFAULT_MAX_GEARS=\"100\" DEFAULT_GEAR_CAPABILITIES=\"small\" DEFAULT_GEAR_SIZE=\"small\" MONGO_HOST_PORT=\"localhost:27017\" MONGO_USER=\"openshift\" MONGO_PASSWORD=\"mooo\" MONGO_DB=\"openshift_broker_dev\" MONGO_SSL=\"false\" ENABLE_USAGE_TRACKING_DATASTORE=\"false\" ENABLE_USAGE_TRACKING_AUDIT_LOG=\"false\" USAGE_TRACKING_AUDIT_LOG_FILE=\"/var/log/openshift/broker/usage.log\" ENABLE_ANALYTICS=\"false\" ENABLE_USER_ACTION_LOG=\"true\" USER_ACTION_LOG_FILE=\"/var/log/openshift/broker/user_action.log\" AUTH_PRIVKEYFILE=\"/etc/openshift/server_priv.pem\" AUTH_PRIVKEYPASS=\"\" AUTH_PUBKEYFILE=\"/etc/openshift/server_pub.pem\" AUTH_RSYNC_KEY_FILE=\"/etc/openshift/rsync_id_rsa\" AUTH_SCOPE_TIMEOUTS=\"session=1.days|7.days, *=1.months|6.months\" ENABLE_MAINTENANCE_MODE=\"false\" MAINTENANCE_NOTIFICATION_FILE=\"/etc/openshift/outage_notification.txt\" DOWNLOAD_CARTRIDGES_ENABLED=\"false\" " (* Variable: new_conf *) let new_conf = "CLOUD_DOMAIN=\"rhcloud.com\" VALID_GEAR_SIZES=\"small,medium\" DEFAULT_MAX_GEARS=\"100\" DEFAULT_GEAR_CAPABILITIES=\"small\" DEFAULT_GEAR_SIZE=\"small\" MONGO_HOST_PORT=\"localhost:27017\" MONGO_USER=\"openshift\" MONGO_PASSWORD=\"mooo\" MONGO_DB=\"openshift_broker_dev\" MONGO_SSL=\"false\" ENABLE_USAGE_TRACKING_DATASTORE=\"false\" ENABLE_USAGE_TRACKING_AUDIT_LOG=\"false\" USAGE_TRACKING_AUDIT_LOG_FILE=\"/var/log/openshift/broker/usage.log\" ENABLE_ANALYTICS=\"false\" ENABLE_USER_ACTION_LOG=\"true\" USER_ACTION_LOG_FILE=\"/var/log/openshift/broker/user_action.log\" AUTH_PRIVKEYFILE=\"/etc/openshift/server_priv.pem\" AUTH_PRIVKEYPASS=\"\" AUTH_PUBKEYFILE=\"/etc/openshift/server_pub.pem\" AUTH_RSYNC_KEY_FILE=\"/etc/openshift/rsync_id_rsa\" AUTH_SCOPE_TIMEOUTS=\"session=1.days|7.days, *=1.months|6.months\" ENABLE_MAINTENANCE_MODE=\"false\" MAINTENANCE_NOTIFICATION_FILE=\"/etc/openshift/outage_notification.txt\" DOWNLOAD_CARTRIDGES_ENABLED=\"false\" " (* Test: OpenShift_Config.lns *) test OpenShift_Config.lns get conf = { "CLOUD_DOMAIN" = "example.com" } { "VALID_GEAR_SIZES" = "small,medium" } { "DEFAULT_MAX_GEARS" = "100" } { "DEFAULT_GEAR_CAPABILITIES" = "small" } { "DEFAULT_GEAR_SIZE" = "small" } { "MONGO_HOST_PORT" = "localhost:27017" } { "MONGO_USER" = "openshift" } { "MONGO_PASSWORD" = "mooo" } { "MONGO_DB" = "openshift_broker_dev" } { "MONGO_SSL" = "false" } { "ENABLE_USAGE_TRACKING_DATASTORE" = "false" } { "ENABLE_USAGE_TRACKING_AUDIT_LOG" = "false" } { "USAGE_TRACKING_AUDIT_LOG_FILE" = "/var/log/openshift/broker/usage.log" } { "ENABLE_ANALYTICS" = "false" } { "ENABLE_USER_ACTION_LOG" = "true" } { "USER_ACTION_LOG_FILE" = "/var/log/openshift/broker/user_action.log" } { "AUTH_PRIVKEYFILE" = "/etc/openshift/server_priv.pem" } { "AUTH_PRIVKEYPASS" } { "AUTH_PUBKEYFILE" = "/etc/openshift/server_pub.pem" } { "AUTH_RSYNC_KEY_FILE" = "/etc/openshift/rsync_id_rsa" } { "AUTH_SCOPE_TIMEOUTS" = "session=1.days|7.days, *=1.months|6.months" } { "ENABLE_MAINTENANCE_MODE" = "false" } { "MAINTENANCE_NOTIFICATION_FILE" = "/etc/openshift/outage_notification.txt" } { "DOWNLOAD_CARTRIDGES_ENABLED" = "false" } (* Test: OpenShift_Config.lns * Second get test against OpenShift configs *) test OpenShift_Config.lns get "MONGO_SSL=\"false\"\n" = { "MONGO_SSL" = "false" } (* Test: OpenShift_Config.lns * Put test changing CLOUD_DOMAIN to rhcloud.com *) test OpenShift_Config.lns put conf after set "CLOUD_DOMAIN" "rhcloud.com" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! 6���� � ! lenses/dist/tests/test_thttpd.augnu �[��� (* Module: Test_Thttpd Provides unit tests and examples for the <Thttpd> lens. *) module Test_Thttpd = let conf = "# This file is for thttpd processes created by /etc/init.d/thttpd. # Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer. # Specifies an alternate port number to listen on. port=80 host= dir=/var/www chroot novhost # Specifies what user to switch to after initialization when started as root. user=www-data # EOL comment nosymlinks # EOL comment " test Thttpd.lns get conf = { "#comment" = "This file is for thttpd processes created by /etc/init.d/thttpd." } { "#comment" = "Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer." } { } { "#comment" = "Specifies an alternate port number to listen on." } { "port" = "80" } { "host" = "" } { } { "dir" = "/var/www" } { "chroot" } { "novhost" } { } { "#comment" = "Specifies what user to switch to after initialization when started as root." } { "user" = "www-data" { "#comment" = "EOL comment" } } { "nosymlinks" { "#comment" = "EOL comment" } } (* There must not be spaces around the '=' *) test Thttpd.lns get "port = 80" = * PK ! �Y"D� � lenses/dist/tests/test_php.augnu �[��� module Test_php = let conf = " safe_mode = Off [PHP] ; Enable the PHP scripting language engine under Apache. engine = On ; Enable compatibility mode with Zend Engine 1 (PHP 4.x) zend.ze1_compatibility_mode = Off unserialize_callback_func= date.default_latitude = 31.7667 [sqlite] sqlite.assoc_case = 0 " test PHP.lns get conf = { ".anon" {} { "safe_mode" = "Off" } } { "PHP" { "#comment" = "Enable the PHP scripting language engine under Apache." } { "engine" = "On" } {} { "#comment" = "Enable compatibility mode with Zend Engine 1 (PHP 4.x)" } { "zend.ze1_compatibility_mode" = "Off" } { "unserialize_callback_func" } { "date.default_latitude" = "31.7667" } {} } { "sqlite" { "sqlite.assoc_case" = "0" } } test PHP.lns put conf after rm "noop" = conf test PHP.lns get ";\n" = { ".anon" {} } (* Section titles can have spaces *) test PHP.lns get "[mail function]\n" = { "mail function" } (* Keys can be lower and upper case *) test PHP.lns get "[fake] SMTP = localhost mixed_KEY = 25 " = { "fake" { "SMTP" = "localhost" } { "mixed_KEY" = "25" } } (* Ticket #243 *) test PHP.lns get "session.save_path = \"3;/var/lib/php5\"\n" = { ".anon" { "session.save_path" = "3;/var/lib/php5" } } (* GH issue #35 php-fpm syntax *) test PHP.lns get "php_admin_flag[log_errors] = on\n" = { ".anon" { "php_admin_flag[log_errors]" = "on" } } PK ! 2��* �* " lenses/dist/tests/test_sudoers.augnu �[��� (* Module: Test_sudoers *) module Test_sudoers = let test_user = [ label "user" . Sudoers.sto_to_com_user . Util.eol ]* (* Test: test_user *) test test_user get "root @pbuilder +secre-taries @my\ admin\ group EXAMPLE\\\\cslack %ad.domain.com\\\\sudo-users MY\ EX-AMPLE\ 9\\\\cslack\ group " = { "user" = "root" } { "user" = "@pbuilder" } { "user" = "+secre-taries" } { "user" = "@my\\ admin\\ group" } { "user" = "EXAMPLE\\\\cslack" } { "user" = "%ad.domain.com\\\\sudo-users" } { "user" = "MY\\ EX-AMPLE\\ 9\\\\cslack\\ group" } let conf = " Host_Alias LOCALNET = 192.168.0.0/24, localhost # User alias specification User_Alias EXAMPLE_ADMINS = cslack, EXAMPLE\\\\cslack,\ EXAMPLE\\\\jmalstrom # Cmnd alias specification Cmnd_Alias \ DEBIAN_TOOLS \ = \ /usr/bin/apt-get,\ /usr/bin/auto-get, \ /usr/bin/dpkg, /usr/bin/dselect, /usr/sbin/dpkg-reconfigure \ : PBUILDER = /usr/sbin/pbuilder Cmnd_Alias ICAL = /bin/cat /home/rpinson/.kde/share/apps/korganizer/std.ics Defaults@LOCALNET !lecture, \ \t\t tty_tickets,!fqdn, !!env_reset Defaults !visiblepw Defaults:buildd env_keep+=\"APT_CONFIG DEBIAN_FRONTEND SHELL\" Defaults!PBUILDER env_keep+=\"HOME ARCH DIST DISTRIBUTION PDEBUILD_PBUILDER\" # User privilege specification root ALL=(ALL) ALL root ALL=(: ALL) ALL root ALL=(ALL :ALL) ALL # Members of the admin group may gain root privileges %admin ALL=(ALL) ALL, NOPASSWD : NOSETENV: \ DEBIAN_TOOLS %pbuilder LOCALNET = NOPASSWD: PBUILDER www-data +biglab=(rpinson)NOEXEC: ICAL \ : \ localhost = NOPASSWD: /usr/bin/test +secretaries ALPHA = /usr/bin/su [!-]*, !/usr/bin/su *root* @my\ admin\ group ALL=(root) NOPASSWD: /usr/bin/python /usr/local/sbin/filterlog -iu\\=www /var/log/something.log #includedir /etc/sudoers.d #include /etc/sudoers.d @includedir /etc/sudoers.d @include /etc/sudoers.file " test Sudoers.lns get conf = {} { "Host_Alias" { "alias" { "name" = "LOCALNET" } { "host" = "192.168.0.0/24" } { "host" = "localhost" } } } {} { "#comment" = "User alias specification" } {} { "User_Alias" { "alias" { "name" = "EXAMPLE_ADMINS" } { "user" = "cslack" } { "user" = "EXAMPLE\\\\cslack" } { "user" = "EXAMPLE\\\\jmalstrom" } } } {} { "#comment" = "Cmnd alias specification" } {} { "Cmnd_Alias" { "alias" { "name" = "DEBIAN_TOOLS" } { "command" = "/usr/bin/apt-get" } { "command" = "/usr/bin/auto-get" } { "command" = "/usr/bin/dpkg" } { "command" = "/usr/bin/dselect" } { "command" = "/usr/sbin/dpkg-reconfigure" } } { "alias" { "name" = "PBUILDER" } { "command" = "/usr/sbin/pbuilder" } } } {} { "Cmnd_Alias" { "alias" { "name" = "ICAL" } { "command" = "/bin/cat /home/rpinson/.kde/share/apps/korganizer/std.ics" } } } {} { "Defaults" { "type" = "@LOCALNET" } { "lecture" { "negate" } } { "tty_tickets" } { "fqdn" { "negate" } } { "env_reset" } } {} { "Defaults" { "visiblepw" { "negate" } } } {} { "Defaults" { "type" = ":buildd" } { "env_keep" { "append" } { "var" = "APT_CONFIG" } { "var" = "DEBIAN_FRONTEND" } { "var" = "SHELL" } } } { "Defaults" { "type" = "!PBUILDER" } { "env_keep" { "append" } { "var" = "HOME" } { "var" = "ARCH" } { "var" = "DIST" } { "var" = "DISTRIBUTION" } { "var" = "PDEBUILD_PBUILDER" } } } {} { "#comment" = "User privilege specification" } { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } } } { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_group" = "ALL" } } } } { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } { "runas_group" = "ALL" } } } } {} { "#comment" = "Members of the admin group may gain root privileges" } { "spec" { "user" = "%admin" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } { "command" = "DEBIAN_TOOLS" { "tag" = "NOPASSWD" } { "tag" = "NOSETENV" } } } } { "spec" { "user" = "%pbuilder" } { "host_group" { "host" = "LOCALNET" } { "command" = "PBUILDER" { "tag" = "NOPASSWD" } } } } { "spec" { "user" = "www-data" } { "host_group" { "host" = "+biglab" } { "command" = "ICAL" { "runas_user" = "rpinson" } { "tag" = "NOEXEC" } } } { "host_group" { "host" = "localhost" } { "command" = "/usr/bin/test" { "tag" = "NOPASSWD" } } } } {} { "spec" { "user" = "+secretaries" } { "host_group" { "host" = "ALPHA" } { "command" = "/usr/bin/su [!-]*" } { "command" = "/usr/bin/su *root*" { "negate" } } } } {} { "spec" { "user" = "@my\ admin\ group" } { "host_group" { "host" = "ALL" } { "command" = "/usr/bin/python /usr/local/sbin/filterlog -iu\\=www /var/log/something.log" { "runas_user" = "root" } { "tag" = "NOPASSWD" } } } } { "#includedir" = "/etc/sudoers.d" } { "#include" = "/etc/sudoers.d" } { "@includedir" = "/etc/sudoers.d" } { "@include" = "/etc/sudoers.file" } test Sudoers.parameter_integer_bool put "umask = 022" after set "/umask/negate" "" = "!umask" test Sudoers.parameter_integer_bool put "!!!!!umask" after rm "/umask/negate"; set "/umask" "022" = "!!!!umask = 022" test Sudoers.parameter_integer_bool put "!!!!umask = 022" after set "/umask/negate" "" = "!!!!!umask" test Sudoers.parameter_integer_bool get "!!!umask = 022" = * (* BZ 566134 *) let s = "Defaults secure_path = /sbin:/bin:/usr/sbin:/usr/bin\n" test Sudoers.lns get s = { "Defaults" { "secure_path" = "/sbin:/bin:/usr/sbin:/usr/bin" } } (* #724 - check timestamp_timeout is extracted OK if unsigned OR negative (-1) *) test Sudoers.lns get "Defaults timestamp_timeout = 3\n" = { "Defaults" { "timestamp_timeout" = "3" } } test Sudoers.lns get "Defaults timestamp_timeout = -1\n" = { "Defaults" { "timestamp_timeout" = "-1" } } (* Ticket #206, comments at end of lines *) let commenteol = "# Defaults targetpw # ask for Host_Alias LOCALNET = 192.168.0.0/24 # foo eol root ALL=(ALL) ALL # all root\n" test Sudoers.lns get commenteol = {} { "Defaults" { "targetpw" } { "#comment" = "ask for" } } { "Host_Alias" { "alias" { "name" = "LOCALNET" } { "host" = "192.168.0.0/24" } } { "#comment" = "foo eol" } } { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } } { "#comment" = "all root" } } (* Allow = in commands *) test Sudoers.spec get "root ALL= /usr/bin/mylvmbackup --configfile=/etc/mylvbackup_amanda.conf\n" = { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "/usr/bin/mylvmbackup --configfile=/etc/mylvbackup_amanda.conf" } } } (* Allow commands without full path -- if they begin with a lowcase letter *) test Sudoers.spec get "root ALL= sudoedit /etc/passwd\n" = { "spec" { "user" = "root" } { "host_group" { "host" = "ALL" } { "command" = "sudoedit /etc/passwd" } } } (* Ticket #263, quoted values in defaults line *) let defaults_spaces = "Defaults passprompt=\"Your SecurID Passcode: \"\n" test Sudoers.lns get defaults_spaces = { "Defaults" { "passprompt" = "\"Your SecurID Passcode: \"" } } (* Ticket #263, quoted values in defaults line (string/bool parameters) *) let defaults_spaces_strbool = "Defaults mailfrom=\"root@example.com\"\n" test Sudoers.lns get defaults_spaces_strbool = { "Defaults" { "mailfrom" = "\"root@example.com\"" } } (* Test: Sudoers.spec Spec users can be aliases *) test Sudoers.spec get "APACHE_ADMIN ALL= ALL\n" = { "spec" { "user" = "APACHE_ADMIN" } { "host_group" { "host" = "ALL" } { "command" = "ALL" } } } (* Test: Sudoers.spec Ticket #337: allow period in user names *) test Sudoers.spec get "user.one somehost = ALL\n" = { "spec" { "user" = "user.one" } { "host_group" { "host" = "somehost" } { "command" = "ALL" } } } (* Test: Sudoers.spec Ticket #370: allow underscore in group names *) test Sudoers.spec get "%sudo_users ALL=(ALL) ALL\n" = { "spec" { "user" = "%sudo_users" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } } } (* Test: Sudoers.spec allow ad group names with backslashes *) test Sudoers.spec get "%ad.domain.com\\\\sudo-users ALL=(ALL) ALL\n" = { "spec" { "user" = "%ad.domain.com\\\\sudo-users" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } } } (* Test: Sudoers.spec Ticket #376: allow uppercase characters in user names *) test Sudoers.spec get "%GrOup ALL = (ALL) ALL\n" = { "spec" { "user" = "%GrOup" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } } } (* Test: Sudoers.spec allow + in user-/groupnames *) test Sudoers.spec get "group+user somehost = ALL\n" = { "spec" { "user" = "group+user" } { "host_group" { "host" = "somehost" } { "command" = "ALL" } } } (* Test: Sudoers.spec GH #262: Sudoers lens doesn't support `!` for command aliases *) test Sudoers.spec get "%opssudoers ALL=(ALL) ALL, !!!BANNED\n" = { "spec" { "user" = "%opssudoers" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } { "command" = "BANNED" { "negate" } } } } (* Test: Sudoers.spec Handle multiple `!` properly in commands *) test Sudoers.spec get "%opssudoers ALL=(ALL) ALL, !!!/bin/mount\n" = { "spec" { "user" = "%opssudoers" } { "host_group" { "host" = "ALL" } { "command" = "ALL" { "runas_user" = "ALL" } } { "command" = "/bin/mount" { "negate" } } } } PK ! �Aj� � ! lenses/dist/tests/test_rancid.augnu �[��� module Test_rancid = (* Examples from router.db(5) *) let rancid = "dial1.paris;cisco;up core1.paris;cisco;down;in testing until 5/5/2001. core2.paris;cisco;ticketed;Ticket 6054234, 5/3/2001 border1.paris;juniper;up; " test Rancid.lns get rancid = { "device" = "dial1.paris" { "type" = "cisco" } { "state" = "up" } } { "device" = "core1.paris" { "type" = "cisco" } { "state" = "down" } { "comment" = "in testing until 5/5/2001." } } { "device" = "core2.paris" { "type" = "cisco" } { "state" = "ticketed" } { "comment" = "Ticket 6054234, 5/3/2001" } } { "device" = "border1.paris" { "type" = "juniper" } { "state" = "up" } { "comment" = "" } } PK ! �q?z! ! lenses/dist/tests/test_avahi.augnu �[��� module Test_avahi = let conf = " [server] host-name=web domain=example.com [wide-area] enable-wide-area=yes " test Avahi.lns get conf = {} { "server" { "host-name" = "web" } { "domain" = "example.com" } {} } { "wide-area" { "enable-wide-area" = "yes" } } test Avahi.lns put conf after set "server/use-ipv4" "yes"; set "server/clients-max" "4096" = " [server] host-name=web domain=example.com use-ipv4=yes clients-max=4096 [wide-area] enable-wide-area=yes " PK ! �2�B B # lenses/dist/tests/test_logwatch.augnu �[��� module Test_logwatch = let conf = "# Configuration file for logwatch. # #Mailto_host1 = user@example.com MailFrom = root@example.com " test Logwatch.lns get conf = { "#comment" = "Configuration file for logwatch." } {} { "#comment" = "Mailto_host1 = user@example.com" } {} { "MailFrom" = "root@example.com" } PK ! $���c c ! lenses/dist/tests/test_lokkit.augnu �[��� module Test_lokkit = let conf = "# Configuration file for system-config-firewall --enabled --port=111:tcp -p 111:udp -p 2020-2049:tcp --port=5900-5910:tcp --custom-rules=ipv4:filter:/var/lib/misc/iptables-forward-bridged -s dns --service=ssh --trust=trust1 --masq=eth42 --block-icmp=5 -t trust0 --addmodule=fancy --removemodule=broken --forward-port=if=forw0:port=42:proto=tcp:toport=42:toaddr=192.168.0.42 --selinux=permissive " test Lokkit.lns get conf = { "#comment" = "Configuration file for system-config-firewall" } { } { "enabled" } { "port" { "start" = "111" } { "protocol" = "tcp" } } { "port" { "start" = "111" } { "protocol" = "udp" } } { "port" { "start" = "2020" } { "end" = "2049" } { "protocol" = "tcp" } } { "port" { "start" = "5900" } { "end" = "5910" } { "protocol" = "tcp" } } { "custom-rules" = "/var/lib/misc/iptables-forward-bridged" { "type" = "ipv4" } { "table" = "filter" } } { "service" = "dns" } { "service" = "ssh" } { "trust" = "trust1" } { "masq" = "eth42" } { "block-icmp" = "5" } { "trust" = "trust0" } { "addmodule" = "fancy" } { "removemodule" = "broken" } { "forward-port" { "if" = "forw0" } { "port" = "42" } { "proto" = "tcp" } { "toport" = "42" } { "toaddr" = "192.168.0.42" } } { "selinux" = "permissive" } test Lokkit.custom_rules get "--custom-rules=ipv4:filter:/some/file\n" = { "custom-rules" = "/some/file" { "type" = "ipv4" } { "table" = "filter" } } test Lokkit.custom_rules get "--custom-rules=filter:/some/file\n" = { "custom-rules" = "/some/file" { "table" = "filter" } } test Lokkit.custom_rules get "--custom-rules=ipv4:/some/file\n" = { "custom-rules" = "/some/file" { "type" = "ipv4" } } test Lokkit.custom_rules get "--custom-rules=/some/file\n" = { "custom-rules" = "/some/file" } test Lokkit.lns get "--trust=tun+\n--trust=eth0.42\n--trust=eth0:1\n" = { "trust" = "tun+" } { "trust" = "eth0.42" } { "trust" = "eth0:1" } (* We didn't allow '-' in the service name *) test Lokkit.lns get "--service=samba-client\n" = { "service" = "samba-client" } PK ! _�1�. �. " lenses/dist/tests/test_inifile.augnu �[��� (* Module: Test_IniFile Provides unit tests and examples for the <IniFile> module. About: Tests to run The tests are run with all combinations of the following three parameters: > separator : (a) default (/[:=]/ "=") ; (b) "=" "=" > comment : (c) default (/[;#]/ ";") ; (d) ";" ";" > empty lines : (e) default ; (f) noempty *) module Test_IniFile = (* ALL TESTS TO RUN *) (* Group: TEST a/c/e *) (* Variable: comment_ace *) let comment_ace = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_ace *) let sep_ace = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_ace *) let entry_ace = IniFile.entry IniFile.entry_re sep_ace comment_ace (* Variable: title_ace *) let title_ace = IniFile.title IniFile.record_re (* Variable: record_ace *) let record_ace = IniFile.record title_ace entry_ace (* Variable: lns_ace *) let lns_ace = IniFile.lns record_ace comment_ace (* Variable: conf_ace *) let conf_ace = "# comment with sharp [section1] test_ace = value # end of line comment test_ace = test_ace = \"value with spaces\" ; comment with colon " (* Test: lns_ace Testing the a/c/e combination *) test lns_ace get conf_ace = { "#comment" = "comment with sharp" } {} { "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } {} } test lns_ace put conf_ace after set "section1/foo" "yes" = "# comment with sharp [section1] test_ace = value # end of line comment test_ace = test_ace = \"value with spaces\" ; comment with colon foo=yes " (* Test: lns_ace Quotes can appear within bare values *) test lns_ace get "[section]\ntest_ace = value \"with quotes\" inside\n" = { "section" { "test_ace" = "value \"with quotes\" inside" } } (* Group: TEST a/c/f *) (* Variable: comment_acf *) let comment_acf = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_acf *) let sep_acf = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_acf *) let entry_acf = IniFile.entry IniFile.entry_re sep_acf comment_acf (* Variable: title_acf *) let title_acf = IniFile.title IniFile.record_re (* Variable: record_acf *) let record_acf = IniFile.record_noempty title_acf entry_acf (* Variable: lns_acf *) let lns_acf = IniFile.lns_noempty record_acf comment_acf (* Variable: conf_acf *) let conf_acf = "# comment with sharp [section1] test_acf = value test_acf = test_acf : value2 # end of line comment ; comment with colon " (* Test: lns_acf Testing the a/c/f combination *) test lns_acf get conf_acf = { "#comment" = "comment with sharp" } { "section1" { "test_acf" = "value" } { "test_acf" } { "test_acf" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } } (* Group: TEST a/d/e *) (* Variable: comment_ade *) let comment_ade = IniFile.comment ";" ";" (* Variable: sep_ade *) let sep_ade = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_ade *) let entry_ade = IniFile.entry IniFile.entry_re sep_ade comment_ade (* Variable: title_ade *) let title_ade = IniFile.title IniFile.record_re (* Variable: record_ade *) let record_ade = IniFile.record title_ade entry_ade (* Variable: lns_ade *) let lns_ade = IniFile.lns record_ade comment_ade (* Variable: conf_ade *) let conf_ade = "; a first comment with colon [section1] test_ade = value test_ade : value2 ; end of line comment ; comment with colon test_ade = " (* Test: lns_ade Testing the a/d/e combination *) test lns_ade get conf_ade = { "#comment" = "a first comment with colon" } { "section1" { "test_ade" = "value" } { "test_ade" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_ade" } } (* Group: TEST a/d/f *) (* Variable: comment_adf *) let comment_adf = IniFile.comment ";" ";" (* Variable: sep_adf *) let sep_adf = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_adf *) let entry_adf = IniFile.entry IniFile.entry_re sep_adf comment_adf (* Variable: title_adf *) let title_adf = IniFile.title IniFile.record_re (* Variable: record_adf *) let record_adf = IniFile.record_noempty title_adf entry_adf (* Variable: lns_adf *) let lns_adf = IniFile.lns_noempty record_adf comment_adf (* Variable: conf_adf *) let conf_adf = "; a first comment with colon [section1] test_adf = value test_adf : value2 ; end of line comment ; comment with colon test_adf = " (* Test: lns_adf Testing the a/d/f combination *) test lns_adf get conf_adf = { "#comment" = "a first comment with colon" } { "section1" { "test_adf" = "value" } { "test_adf" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_adf" } } (* Group: TEST b/c/e *) (* Variable: comment_bce *) let comment_bce = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_bce *) let sep_bce = IniFile.sep "=" "=" (* Variable: entry_bce *) let entry_bce = IniFile.entry IniFile.entry_re sep_bce comment_bce (* Variable: title_bce *) let title_bce = IniFile.title IniFile.record_re (* Variable: record_bce *) let record_bce = IniFile.record title_bce entry_bce (* Variable: lns_bce *) let lns_bce = IniFile.lns record_bce comment_bce (* Variable: conf_bce *) let conf_bce = "# comment with sharp [section1] test_bce = value # end of line comment ; comment with colon test_bce = " (* Test: lns_bce Testing the b/c/e combination *) test lns_bce get conf_bce = { "#comment" = "comment with sharp" } {} { "section1" { "test_bce" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_bce" } } (* Group: TEST b/c/f *) (* Variable: comment_bcf *) let comment_bcf = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_bcf *) let sep_bcf = IniFile.sep "=" "=" (* Variable: entry_bcf *) let entry_bcf = IniFile.entry IniFile.entry_re sep_bcf comment_bcf (* Variable: title_bcf *) let title_bcf = IniFile.title IniFile.record_re (* Variable: record_bcf *) let record_bcf = IniFile.record_noempty title_bce entry_bcf (* Variable: lns_bcf *) let lns_bcf = IniFile.lns_noempty record_bce comment_bcf (* Variable: conf_bcf *) let conf_bcf = "# conf with sharp [section1] test_bcf = value # end of line comment ; comment with colon test_bcf = " (* Test: lns_bcf Testing the b/c/f combination *) test lns_bcf get conf_bcf = { "#comment" = "conf with sharp" } { "section1" { "test_bcf" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_bcf" } } (* Group: TEST b/d/e *) (* Variable: comment_bde *) let comment_bde = IniFile.comment ";" ";" (* Variable: sep_bde *) let sep_bde = IniFile.sep "=" "=" (* Variable: entry_bde *) let entry_bde = IniFile.entry IniFile.entry_re sep_bde comment_bde (* Variable: title_bde *) let title_bde = IniFile.title IniFile.record_re (* Variable: record_bde *) let record_bde = IniFile.record title_bde entry_bde (* Variable: lns_bde *) let lns_bde = IniFile.lns record_bde comment_bde (* Variable: conf_bde *) let conf_bde = "; first comment with colon [section1] test_bde = value ; end of line comment ; comment with colon test_bde = " (* Test: lns_bde Testing the b/d/e combination *) test lns_bde get conf_bde = { "#comment" = "first comment with colon" } {} { "section1" { "test_bde" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_bde" } } (* Group: TEST b/d/f *) (* Variable: comment_bdf *) let comment_bdf = IniFile.comment ";" ";" (* Variable: sep_bdf *) let sep_bdf = IniFile.sep "=" "=" (* Variable: entry_bdf *) let entry_bdf = IniFile.entry IniFile.entry_re sep_bdf comment_bdf (* Variable: title_bdf *) let title_bdf = IniFile.title IniFile.record_re (* Variable: record_bdf *) let record_bdf = IniFile.record_noempty title_bdf entry_bdf (* Variable: lns_bdf *) let lns_bdf = IniFile.lns_noempty record_bdf comment_bdf (* Variable: conf_bdf *) let conf_bdf = "; first comment with colon [section1] test_bdf = value ; end of line comment ; comment with colon test_bdf = " (* Test: lns_bdf Testing the b/d/f combination *) test lns_bdf get conf_bdf = { "#comment" = "first comment with colon" } { "section1" { "test_bdf" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_bdf" } } (* Group: TEST multiline values *) (* Variable: multiline_test *) let multiline_test = "test_ace = val1\n val2\n val3\n" (* Variable: multiline_nl *) let multiline_nl = "test_ace =\n val2\n val3\n" (* Variable: multiline_ace *) let multiline_ace = IniFile.entry_multiline IniFile.entry_re sep_ace comment_ace (* Test: multiline_ace Testing the a/c/e combination with a multiline entry *) test multiline_ace get multiline_test = { "test_ace" = "val1\n val2\n val3" } (* Test: multiline_nl Multiline values can begin with a single newline *) test multiline_ace get multiline_nl = { "test_ace" = "\n val2\n val3" } (* Test: lns_ace Ticket #243 *) test lns_ace get "[section1] ticket_243 = \"value1;value2#value3\" # end of line comment " = { "section1" { "ticket_243" = "value1;value2#value3" { "#comment" = "end of line comment" } } } (* Group: TEST list entries *) (* Variable: list_test *) let list_test = "test_ace = val1,val2,val3 # a comment\n" (* Lens: list_ace *) let list_ace = IniFile.entry_list IniFile.entry_re sep_ace RX.word Sep.comma comment_ace (* Test: list_ace Testing the a/c/e combination with a list entry *) test list_ace get list_test = { "test_ace" { "1" = "val1" } { "2" = "val2" } { "3" = "val3" } { "#comment" = "a comment" } } (* Variable: list_nocomment_test *) let list_nocomment_test = "test_ace = val1,val2,val3 \n" (* Lens: list_nocomment_ace *) let list_nocomment_ace = IniFile.entry_list_nocomment IniFile.entry_re sep_ace RX.word Sep.comma (* Test: list_nocomment_ace Testing the a/c/e combination with a list entry without end-of-line comment *) test list_nocomment_ace get list_nocomment_test = { "test_ace" { "1" = "val1" } { "2" = "val2" } { "3" = "val3" } } (* Test: IniFile.lns_loose *) test IniFile.lns_loose get conf_ace = { "section" = ".anon" { "#comment" = "comment with sharp" } { } } { "section" = "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } { } } (* Test: IniFile.lns_loose_multiline *) test IniFile.lns_loose_multiline get conf_ace = { "section" = ".anon" { "#comment" = "comment with sharp" } { } } { "section" = "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } { } } test IniFile.lns_loose_multiline get multiline_test = { "section" = ".anon" { "test_ace" = "val1\n val2\n val3" } } PK ! ��J J lenses/dist/tests/test_ssh.augnu �[��� (* Module: Test_ssh *) module Test_ssh = let conf = "# start IdentityFile /etc/ssh/identity.asc Match final all GSSAPIAuthentication yes Host suse.cz ForwardAgent yes SendEnv LC_LANG Host * ForwardAgent no ForwardX11Trusted yes # IdentityFile ~/.ssh/identity SendEnv LC_IDENTIFICATION LC_ALL LC_* ProxyCommand ssh -q -W %h:%p gateway.example.com RemoteForward [1.2.3.4]:20023 localhost:22 RemoteForward 2221 lhost1:22 LocalForward 3001 remotehost:3000 Ciphers aes128-ctr,aes192-ctr MACs hmac-md5,hmac-sha1,umac-64@openssh.com HostKeyAlgorithms ssh-ed25519-cert-v01@openssh.com,ssh-ed25519,ssh-rsa-cert-v01@openssh.com,ssh-rsa KexAlgorithms curve25519-sha256@libssh.org,diffie-hellman-group-exchange-sha256 PubkeyAcceptedKeyTypes ssh-ed25519-cert-v01@openssh.com,ssh-ed25519,ssh-rsa-cert-v01@openssh.com,ssh-rsa " test Ssh.lns get conf = { "#comment" = "start" } { "IdentityFile" = "/etc/ssh/identity.asc" } { } { "Match" { "Condition" { "final" = "all" } } { "Settings" { "GSSAPIAuthentication" = "yes" } { } } } { "Host" = "suse.cz" { "ForwardAgent" = "yes" } { "SendEnv" { "1" = "LC_LANG" } } { } } { "Host" = "*" { "ForwardAgent" = "no" } { "ForwardX11Trusted" = "yes" } { } { "#comment" = "IdentityFile ~/.ssh/identity" } { "SendEnv" { "1" = "LC_IDENTIFICATION" } { "2" = "LC_ALL" } { "3" = "LC_*" } } { "ProxyCommand" = "ssh -q -W %h:%p gateway.example.com" } { "RemoteForward" { "[1.2.3.4]:20023" = "localhost:22" } } { "RemoteForward" { "2221" = "lhost1:22" } } { "LocalForward" { "3001" = "remotehost:3000" } } { "Ciphers" { "1" = "aes128-ctr" } { "2" = "aes192-ctr" } } { "MACs" { "1" = "hmac-md5" } { "2" = "hmac-sha1" } { "3" = "umac-64@openssh.com" } } { "HostKeyAlgorithms" { "1" = "ssh-ed25519-cert-v01@openssh.com" } { "2" = "ssh-ed25519" } { "3" = "ssh-rsa-cert-v01@openssh.com" } { "4" = "ssh-rsa" } } { "KexAlgorithms" { "1" = "curve25519-sha256@libssh.org" } { "2" = "diffie-hellman-group-exchange-sha256" } } { "PubkeyAcceptedKeyTypes" { "1" = "ssh-ed25519-cert-v01@openssh.com" } { "2" = "ssh-ed25519" } { "3" = "ssh-rsa-cert-v01@openssh.com" } { "4" = "ssh-rsa" } } } (* Test: Ssh.lns Proxycommand is case-insensitive *) test Ssh.lns get "Proxycommand ssh -q test nc -q0 %h 22\n" = { "Proxycommand" = "ssh -q test nc -q0 %h 22" } (* Test: Ssh.lns GlobalKnownHostsFile *) test Ssh.lns get "GlobalKnownHostsFile /etc/ssh/ssh_known_hosts /etc/ssh/ssh_known_hosts2\n" = { "GlobalKnownHostsFile" { "1" = "/etc/ssh/ssh_known_hosts" } { "2" = "/etc/ssh/ssh_known_hosts2" } } (* Keywords can be separated from their arguments with '=', too *) test Ssh.lns get "Host mail.watzmann.net LocalForward=11111 mail.watzmann.net:110\n" = { "Host" = "mail.watzmann.net" { "LocalForward" { "11111" = "mail.watzmann.net:110" } } } test Ssh.lns get "ForwardAgent=yes\n" = { "ForwardAgent" = "yes" } test Ssh.lns get "ForwardAgent =\tyes\n" = { "ForwardAgent" = "yes" } (* Issue #605 *) test Ssh.lns get "RekeyLimit 1G 1h\n" = { "RekeyLimit" { "amount" = "1G" } { "duration" = "1h" } } test Ssh.lns get "RekeyLimit 1G\n" = { "RekeyLimit" { "amount" = "1G" } } PK ! W�p� � " lenses/dist/tests/test_inputrc.augnu �[��� (* Module: Test_Inputrc Provides unit tests and examples for the <Inputrc> lens. *) module Test_Inputrc = (* Variable: conf *) let conf = "# /etc/inputrc - global inputrc for libreadline # See readline(3readline) and `info rluserman' for more information. # Be 8 bit clean. set input-meta on set output-meta on # To allow the use of 8bit-characters like the german umlauts, uncomment # the line below. However this makes the meta key not work as a meta key, # which is annoying to those which don't need to type in 8-bit characters. # set convert-meta off # try to enable the application keypad when it is called. Some systems # need this to enable the arrow keys. # set enable-keypad on # see /usr/share/doc/bash/inputrc.arrows for other codes of arrow keys # do not bell on tab-completion # set bell-style none # set bell-style visible # some defaults / modifications for the emacs mode $if mode=emacs # allow the use of the Home/End keys \"\\e[1~\": beginning-of-line \"\\e[4~\": end-of-line # allow the use of the Delete/Insert keys \"\\e[3~\": delete-char \"\\e[2~\": quoted-insert # mappings for \"page up\" and \"page down\" to step to the beginning/end # of the history # \"\\e[5~\": beginning-of-history # \"\\e[6~\": end-of-history # alternate mappings for \"page up\" and \"page down\" to search the history # \"\\e[5~\": history-search-backward # \"\\e[6~\": history-search-forward # mappings for Ctrl-left-arrow and Ctrl-right-arrow for word moving \"\\e[1;5C\": forward-word \"\\e[1;5D\": backward-word \"\\e[5C\": forward-word \"\\e[5D\": backward-word \"\\e\\e[C\": forward-word \"\\e\\e[D\": backward-word $if term=rxvt \"\\e[8~\": end-of-line \"\\eOc\": forward-word \"\\eOd\": backward-word $else \"\\e[G\": \",\" $endif # for non RH/Debian xterm, can't hurt for RH/Debian xterm # \"\\eOH\": beginning-of-line # \"\\eOF\": end-of-line # for freebsd console # \"\\e[H\": beginning-of-line # \"\\e[F\": end-of-line $endif " (* Test: Inputrc.lns *) test Inputrc.lns get conf = { "#comment" = "/etc/inputrc - global inputrc for libreadline" } { "#comment" = "See readline(3readline) and `info rluserman' for more information." } { } { "#comment" = "Be 8 bit clean." } { "input-meta" = "on" } { "output-meta" = "on" } { } { "#comment" = "To allow the use of 8bit-characters like the german umlauts, uncomment" } { "#comment" = "the line below. However this makes the meta key not work as a meta key," } { "#comment" = "which is annoying to those which don't need to type in 8-bit characters." } { } { "#comment" = "set convert-meta off" } { } { "#comment" = "try to enable the application keypad when it is called. Some systems" } { "#comment" = "need this to enable the arrow keys." } { "#comment" = "set enable-keypad on" } { } { "#comment" = "see /usr/share/doc/bash/inputrc.arrows for other codes of arrow keys" } { } { "#comment" = "do not bell on tab-completion" } { "#comment" = "set bell-style none" } { "#comment" = "set bell-style visible" } { } { "#comment" = "some defaults / modifications for the emacs mode" } { "@if" = "mode=emacs" { } { "#comment" = "allow the use of the Home/End keys" } { "entry" = "\\e[1~" { "mapping" = "beginning-of-line" } } { "entry" = "\\e[4~" { "mapping" = "end-of-line" } } { } { "#comment" = "allow the use of the Delete/Insert keys" } { "entry" = "\\e[3~" { "mapping" = "delete-char" } } { "entry" = "\\e[2~" { "mapping" = "quoted-insert" } } { } { "#comment" = "mappings for \"page up\" and \"page down\" to step to the beginning/end" } { "#comment" = "of the history" } { "#comment" = "\"\\e[5~\": beginning-of-history" } { "#comment" = "\"\\e[6~\": end-of-history" } { } { "#comment" = "alternate mappings for \"page up\" and \"page down\" to search the history" } { "#comment" = "\"\\e[5~\": history-search-backward" } { "#comment" = "\"\\e[6~\": history-search-forward" } { } { "#comment" = "mappings for Ctrl-left-arrow and Ctrl-right-arrow for word moving" } { "entry" = "\\e[1;5C" { "mapping" = "forward-word" } } { "entry" = "\\e[1;5D" { "mapping" = "backward-word" } } { "entry" = "\\e[5C" { "mapping" = "forward-word" } } { "entry" = "\\e[5D" { "mapping" = "backward-word" } } { "entry" = "\\e\\e[C" { "mapping" = "forward-word" } } { "entry" = "\\e\\e[D" { "mapping" = "backward-word" } } { } { "@if" = "term=rxvt" { "entry" = "\\e[8~" { "mapping" = "end-of-line" } } { "entry" = "\\eOc" { "mapping" = "forward-word" } } { "entry" = "\\eOd" { "mapping" = "backward-word" } } { "@else" { "entry" = "\\e[G" { "mapping" = "\",\"" } } } } { } { "#comment" = "for non RH/Debian xterm, can't hurt for RH/Debian xterm" } { "#comment" = "\"\\eOH\": beginning-of-line" } { "#comment" = "\"\\eOF\": end-of-line" } { } { "#comment" = "for freebsd console" } { "#comment" = "\"\\e[H\": beginning-of-line" } { "#comment" = "\"\\e[F\": end-of-line" } { } } PK ! ]�T�q q # lenses/dist/tests/test_sip_conf.augnu �[��� module Test_sip_conf = let conf = "[general] context=default ; Default context for incoming calls udpbindaddr=0.0.0.0 ; IP address to bind UDP listen socket to (0.0.0.0 binds to all) ; The address family of the bound UDP address is used to determine how Asterisk performs ; DNS lookups. In cases a) and c) above, only A records are considered. In case b), only ; AAAA records are considered. In case d), both A and AAAA records are considered. Note, [basic-options-title](!,superclass-template);a template for my preferred codecs !@#$%#@$%^^&%%^*&$% #comment after the title dtmfmode=rfc2833 context=from-office type=friend [my-codecs](!) ; a template for my preferred codecs disallow=all allow=ilbc allow=g729 allow=gsm allow=g723 allow=ulaw [2133](natted-phone,my-codecs) ;;;;; some sort of comment secret = peekaboo [2134](natted-phone,ulaw-phone) secret = not_very_secret [2136](public-phone,ulaw-phone) secret = not_very_secret_either " test Sip_Conf.lns get conf = { "title" = "general" { "context" = "default" { "#comment" = "Default context for incoming calls" } } { "udpbindaddr" = "0.0.0.0" { "#comment" = "IP address to bind UDP listen socket to (0.0.0.0 binds to all)" } } { "#comment" = "The address family of the bound UDP address is used to determine how Asterisk performs" } { "#comment" = "DNS lookups. In cases a) and c) above, only A records are considered. In case b), only" } { "#comment" = "AAAA records are considered. In case d), both A and AAAA records are considered. Note," } { } { } } { "title" = "basic-options-title" { "@is_template" } { "@use_template" = "superclass-template" } { "#title_comment" = ";a template for my preferred codecs !@#$%#@$%^^&%%^*&$%" } { "#comment" = "comment after the title" } { "dtmfmode" = "rfc2833" } { "context" = "from-office" } { "type" = "friend" } { } { } } { "title" = "my-codecs" { "@is_template" } { "#title_comment" = " ; a template for my preferred codecs" } { "disallow" = "all" } { "allow" = "ilbc" } { "allow" = "g729" } { "allow" = "gsm" } { "allow" = "g723" } { "allow" = "ulaw" } { } } { "title" = "2133" { "@use_template" = "natted-phone" } { "@use_template" = "my-codecs" } { "#title_comment" = " ;;;;; some sort of comment" } { "secret" = "peekaboo" } } { "title" = "2134" { "@use_template" = "natted-phone" } { "@use_template" = "ulaw-phone" } { "secret" = "not_very_secret" } } { "title" = "2136" { "@use_template" = "public-phone" } { "@use_template" = "ulaw-phone" } { "secret" = "not_very_secret_either" } } (********************************************* * Tests for update, create, delete * *********************************************) (********************************************* * Test to confirm that we can update the * default context * *********************************************) test Sip_Conf.lns put "[general]\ncontext=default\n" after set "title[.='general']/context" "updated" = "[general]\ncontext=updated " (********************************************* * Test to confirm that we can create a * new title with a context * *********************************************) test Sip_Conf.lns put "[general]\ncontext=default\n" after set "/title[.='newtitle']" "newtitle"; set "/title[.='newtitle']/context" "foobarbaz" = "[general]\ncontext=default [newtitle] context=foobarbaz " PK ! ���v v ! lenses/dist/tests/test_cpanel.augnu �[��� (* Module: Test_CPanel Provides unit tests and examples for the <CPanel> lens. *) module Test_CPanel = (* Variable: config A sample cpanel.config file *) let config = "#### NOTICE #### # After manually editing any configuration settings in this file, # please run '/usr/local/cpanel/whostmgr/bin/whostmgr2 --updatetweaksettings' # to fully update your server's configuration. skipantirelayd=1 ionice_optimizefs=6 account_login_access=owner_root enginepl=cpanel.pl stats_log=/usr/local/cpanel/logs/stats_log cpaddons_notify_users=Allow users to choose apache_port=0.0.0.0:80 allow_server_info_status_from= system_diskusage_warn_percent=82.5500 maxemailsperhour email_send_limits_max_defer_fail_percentage default_archive-logs=1 SecurityPolicy::xml-api=1\n" (* Test: CPanel.lns Get <config> *) test CPanel.lns get config = { "#comment" = "### NOTICE ####" } { "#comment" = "After manually editing any configuration settings in this file," } { "#comment" = "please run '/usr/local/cpanel/whostmgr/bin/whostmgr2 --updatetweaksettings'" } { "#comment" = "to fully update your server's configuration." } { } { "skipantirelayd" = "1" } { "ionice_optimizefs" = "6" } { "account_login_access" = "owner_root" } { "enginepl" = "cpanel.pl" } { "stats_log" = "/usr/local/cpanel/logs/stats_log" } { "cpaddons_notify_users" = "Allow users to choose" } { "apache_port" = "0.0.0.0:80" } { "allow_server_info_status_from" = "" } { "system_diskusage_warn_percent" = "82.5500" } { "maxemailsperhour" } { "email_send_limits_max_defer_fail_percentage" } { "default_archive-logs" = "1" } { "SecurityPolicy::xml-api" = "1" } PK ! ��_zS S ! lenses/dist/tests/test_erlang.augnu �[��� (* Module: Test_Erlang Provides unit tests and examples for the <Erlang> lens. *) module Test_Erlang = (* Group: comments *) test Erlang.comment get "% This is a comment\n" = { "#comment" = "This is a comment" } (* Group: simple values *) let value_bare = Erlang.value Rx.word Erlang.bare test value_bare get "{foo, bar}" = { "foo" = "bar" } let value_decimal = Erlang.value Rx.word Erlang.decimal test value_bare get "{foo, 0.25}" = { "foo" = "0.25" } let value_quoted = Erlang.value Rx.word Erlang.quoted test value_quoted get "{foo, '0.25'}" = { "foo" = "0.25" } let value_glob = Erlang.value Rx.word Erlang.glob test value_glob get "{foo, <<\".*\">>}" = { "foo" = ".*" } let value_boolean = Erlang.value Rx.word Erlang.boolean test value_boolean get "{foo, false}" = { "foo" = "false" } (* Group: list values *) let list_bare = Erlang.value_list Rx.word Erlang.bare test list_bare get "{foo, [bar, baz]}" = { "foo" { "value" = "bar" } { "value" = "baz" } } (* Group: tuple values *) let tuple_bare = Erlang.tuple Erlang.bare Erlang.bare test tuple_bare get "{foo, bar}" = { "tuple" { "value" = "foo" } { "value" = "bar" } } let tuple3_bare = Erlang.tuple3 Erlang.bare Erlang.bare Erlang.bare test tuple3_bare get "{foo, bar, baz}" = { "tuple" { "value" = "foo" } { "value" = "bar" } { "value" = "baz" } } (* Group: application *) let list_bare_app = Erlang.application (Rx.word - "kernel") list_bare test list_bare_app get "{foo, [{bar, [baz, bat]}]}" = { "foo" { "bar" { "value" = "baz" } { "value" = "bat" } } } (* no settings *) test list_bare_app get "{foo, []}" = { "foo" } (* Group: kernel *) test Erlang.kernel get "{kernel, [ {browser_cmd, \"/foo/bar\"}, {dist_auto_connect, once}, {error_logger, tty}, {net_setuptime, 5}, {start_dist_ac, true} ]}" = { "kernel" { "browser_cmd" = "/foo/bar" } { "dist_auto_connect" = "once" } { "error_logger" = "tty" } { "net_setuptime" = "5" } { "start_dist_ac" = "true" } } (* Group: config *) let list_bare_config = Erlang.config list_bare_app test list_bare_config get "[ {foo, [{bar, [baz, bat]}]}, {goo, [{gar, [gaz, gat]}]} ].\n" = { "foo" { "bar" { "value" = "baz" } { "value" = "bat" } } } { "goo" { "gar" { "value" = "gaz" } { "value" = "gat" } } } (* Test Erlang's kernel app config is parsed *) test list_bare_config get "[ {foo, [{bar, [baz, bat]}]}, {kernel, [{start_timer, true}]} ].\n" = { "foo" { "bar" { "value" = "baz" } { "value" = "bat" } } } { "kernel" { "start_timer" = "true" } } PK ! �rt�� � lenses/dist/tests/test_fstab.augnu �[��� module Test_fstab = let simple = "/dev/vg00/lv00\t /\t ext3\t defaults 1 1\n" let simple_tree = { "1" { "spec" = "/dev/vg00/lv00" } { "file" = "/" } { "vfstype" = "ext3" } { "opt" = "defaults" } { "dump" = "1" } { "passno" = "1" } } let leading_ws = " /dev/vg00/lv00\t /\t ext3\t defaults 1 1\n" let trailing_ws = "/dev/vg00/lv00\t /\t ext3\t defaults 1 1 \t\n" let gen_no_passno(passno:string) = "LABEL=/boot\t /boot\t ext3\t defaults 1" . passno . " \t\n" let no_passno = gen_no_passno "" let no_passno_tree = { "1" { "spec" = "LABEL=/boot" } { "file" = "/boot" } { "vfstype" = "ext3" } { "opt" = "defaults" } { "dump" = "1" } } let no_dump = "/dev/vg00/lv00\t /\t ext3\t defaults\n" let no_dump_tree = { "1" { "spec" = "/dev/vg00/lv00" } { "file" = "/" } { "vfstype" = "ext3" } { "opt" = "defaults" } } let no_opts = "/dev/vg00/lv00\t /\t ext3\n" let no_opts_tree = { "1" { "spec" = "/dev/vg00/lv00" } { "file" = "/" } { "vfstype" = "ext3" } } let multi_opts = "devpts\t /dev/pts\t devpts gid=5,mode=620,fscontext=system_u:object_r:removable_t 0 0\n" let multi_opts_tree = { "1" { "spec" = "devpts" } { "file" = "/dev/pts" } { "vfstype" = "devpts" } { "opt" = "gid" { "value" = "5" } } { "opt" = "mode" { "value" = "620" } } { "opt" = "fscontext" { "value" = "system_u:object_r:removable_t" } } { "dump" = "0" } { "passno" = "0" } } test Fstab.lns get simple = simple_tree test Fstab.lns get leading_ws = simple_tree test Fstab.lns get trailing_ws = simple_tree test Fstab.lns get no_passno = no_passno_tree test Fstab.lns put no_passno after set "/1/passno" "1" = gen_no_passno " 1" test Fstab.lns get no_dump = no_dump_tree test Fstab.lns get no_opts = no_opts_tree test Fstab.lns get multi_opts = multi_opts_tree test Fstab.lns get "/dev/hdc /media/cdrom0 udf,iso9660 user,noauto\t0\t0\n" = { "1" { "spec" = "/dev/hdc" } { "file" = "/media/cdrom0" } { "vfstype" = "udf" } { "vfstype" = "iso9660" } { "opt" = "user" } { "opt" = "noauto" } { "dump" = "0" } { "passno" = "0" } } (* Allow # in the spec *) test Fstab.lns get "sshfs#jon@10.0.0.2:/home /media/server fuse uid=1000,gid=100,port=1022 0 0\n" = { "1" { "spec" = "sshfs#jon@10.0.0.2:/home" } { "file" = "/media/server" } { "vfstype" = "fuse" } { "opt" = "uid" { "value" = "1000" } } { "opt" = "gid" { "value" = "100" } } { "opt" = "port" { "value" = "1022" } } { "dump" = "0" } { "passno" = "0" } } (* Bug #191 *) test Fstab.lns get "tmpfs /dev/shm tmpfs rw,rootcontext=\"system_u:object_r:tmpfs_t:s0\" 0 0\n" = { "1" { "spec" = "tmpfs" } { "file" = "/dev/shm" } { "vfstype" = "tmpfs" } { "opt" = "rw" } { "opt" = "rootcontext" { "value" = "\"system_u:object_r:tmpfs_t:s0\"" } } { "dump" = "0" } { "passno" = "0" } } (* BZ https://bugzilla.redhat.com/show_bug.cgi?id=751342 * Mounting multiple cgroups together results in path with ',' *) test Fstab.lns get "spec /path/file1,file2 vfs opts 0 0\n" = { "1" { "spec" = "spec" } { "file" = "/path/file1,file2" } { "vfstype" = "vfs" } { "opt" = "opts" } { "dump" = "0" } { "passno" = "0" } } (* Parse when empty option value given, only equals sign *) test Fstab.lns get "//host.example.org/a_share /mnt cifs defaults,ro,password= 0 0\n" = { "1" { "spec" = "//host.example.org/a_share" } { "file" = "/mnt" } { "vfstype" = "cifs" } { "opt" = "defaults" } { "opt" = "ro" } { "opt" = "password" { "value" } } { "dump" = "0" } { "passno" = "0" } } (* Allow end of line comments *) test Fstab.lns get "UUID=0314be77-bb1e-47d4-b2a2-e69ae5bc954f / ext4 rw,errors=remount-ro 0 1 # device at install: /dev/sda3\n" = { "1" { "spec" = "UUID=0314be77-bb1e-47d4-b2a2-e69ae5bc954f" } { "file" = "/" } { "vfstype" = "ext4" } { "opt" = "rw" } { "opt" = "errors" { "value" = "remount-ro" } } { "dump" = "0" } { "passno" = "1" } { "#comment" = "device at install: /dev/sda3" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! w[��# # ! lenses/dist/tests/test_puppet.augnu �[��� module Test_puppet = let conf = " [main] logdir=/var/log/puppet [puppetd] server=misspiggy.network.com " test Puppet.lns get conf = {} { "main" { "logdir" = "/var/log/puppet" } {} } { "puppetd" { "server" = "misspiggy.network.com" } } test Puppet.lns put conf after set "main/vardir" "/var/lib/puppet"; set "main/rundir" "/var/run/puppet" = " [main] logdir=/var/log/puppet vardir=/var/lib/puppet rundir=/var/run/puppet [puppetd] server=misspiggy.network.com " PK ! �2?�� � ! lenses/dist/tests/test_resolv.augnu �[��� module Test_resolv = let conf = "# Sample resolv.conf ; With multiple comment styles nameserver 192.168.0.3 # and EOL comments nameserver ff02::1 domain mynet.com # and EOL comments search mynet.com anotherorg.net # A sortlist now sortlist 130.155.160.0/255.255.240.0 130.155.0.0 options ndots:3 debug timeout:2 options no-ip6-dotint single-request-reopen # and EOL comments lookup file bind family inet6 inet4 " test Resolv.lns get conf = { "#comment" = "Sample resolv.conf" } { "#comment" = "With multiple comment styles" } { "nameserver" = "192.168.0.3" { "#comment" = "and EOL comments" } } { "nameserver" = "ff02::1" } { "domain" = "mynet.com" { "#comment" = "and EOL comments" } } { "search" { "domain" = "mynet.com" } { "domain" = "anotherorg.net" } } {} { "#comment" = "A sortlist now" } { "sortlist" { "ipaddr" = "130.155.160.0" { "netmask" = "255.255.240.0" } } { "ipaddr" = "130.155.0.0" } } {} { "options" { "ndots" = "3" } { "debug" } { "timeout" = "2" } } { "options" { "ip6-dotint" { "negate" } } { "single-request-reopen" } { "#comment" = "and EOL comments" } } {} { "lookup" { "file" } { "bind" } } { "family" { "inet6" } { "inet4" } } test Resolv.ip6_dotint put "ip6-dotint" after set "/ip6-dotint/negate" "" = "no-ip6-dotint" test Resolv.lns get "; \r\n; \t \n" = { } { } PK ! ģ8IE E " lenses/dist/tests/test_inittab.augnu �[��� module Test_inittab = let simple = "id:5:initdefault:\n" let inittab = "id:5:initdefault: # System initialization. si::sysinit:/etc/rc.d/rc.sysinit # Trap CTRL-ALT-DELETE ca::ctrlaltdel:/sbin/shutdown -t3 -r now l0:0:wait:/etc/rc.d/rc 0 " test Inittab.lns get inittab = { "id" { "runlevels" = "5" } { "action" = "initdefault" } { "process" = "" } } { "#comment" = "System initialization." } { "si" { "runlevels" = "" } { "action" = "sysinit" } { "process" = "/etc/rc.d/rc.sysinit" } } { } { "#comment" = "Trap CTRL-ALT-DELETE" } { "ca" { "runlevels" = "" } { "action" = "ctrlaltdel" } { "process" = "/sbin/shutdown -t3 -r now" } } { } { "l0" { "runlevels" = "0" } { "action" = "wait" } { "process" = "/etc/rc.d/rc 0" } } test Inittab.lns put simple after rm "/id/process" = * test Inittab.lns put simple after set "/id/runlevels" "3" = "id:3:initdefault:\n" test Inittab.lns get "co:2345:respawn:/usr/bin/command # End of line comment\n" = { "co" { "runlevels" = "2345" } { "action" = "respawn" } { "process" = "/usr/bin/command " } { "#comment" = "End of line comment" } } test Inittab.lns get "co:2345:respawn:/usr/bin/blank_comment # \t \n" = { "co" { "runlevels" = "2345" } { "action" = "respawn" } { "process" = "/usr/bin/blank_comment " } { "#comment" = "" } } (* Bug 108: allow ':' in the process field *) test Inittab.record get "co:234:respawn:ttymon -p \"console login: \"\n" = { "co" { "runlevels" = "234" } { "action" = "respawn" } { "process" = "ttymon -p \"console login: \"" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! b493o o ( lenses/dist/tests/test_backuppchosts.augnu �[��� module Test_BackupPCHosts = let conf = "host dhcp user moreUsers hostname1 0 user1 anotheruser,athirduser hostname2 1 user2 stillanotheruser\n" test BackupPCHosts.lns get conf = { "1" { "host" = "host" } { "dhcp" = "dhcp" } { "user" = "user" } { "moreusers" = "moreUsers" } } { "2" { "host" = "hostname1" } { "dhcp" = "0" } { "user" = "user1" } { "moreusers" = "anotheruser" } { "moreusers" = "athirduser" } } { "3" { "host" = "hostname2" } { "dhcp" = "1" } { "user" = "user2" } { "moreusers" = "stillanotheruser" } } PK ! ;��d| | lenses/dist/tests/test_rx.augnu �[��� module Test_rx = let sto_ipv4 = [ label "IP" . store Rx.ipv4 ] test sto_ipv4 get "192.168.0.1" = { "IP" = "192.168.0.1" } test sto_ipv4 get "255.255.255.254" = { "IP" = "255.255.255.254" } let sto_ipv6 = [ label "IP" . store Rx.ipv6 ] test sto_ipv6 get "fe80::215:f2ff:fea4:b8d9" = { "IP" = "fe80::215:f2ff:fea4:b8d9" } let sto_ip = [ label "IP" . store Rx.ip ] test sto_ip get "192.168.0.1" = { "IP" = "192.168.0.1" } test sto_ip get "255.255.255.254" = { "IP" = "255.255.255.254" } test sto_ip get "fe80::215:f2ff:fea4:b8d9" = { "IP" = "fe80::215:f2ff:fea4:b8d9" } (* iso_8601 *) let iso_8601 = [ label "date" . store Rx.iso_8601 ] test iso_8601 get "2009-12T12:34" = { "date" = "2009-12T12:34" } test iso_8601 get "2009" = { "date" = "2009" } test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" } test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" } test iso_8601 get "20090519" = { "date" = "20090519" } test iso_8601 get "2009123" = { "date" = "2009123" } test iso_8601 get "2009-05" = { "date" = "2009-05" } test iso_8601 get "2009-123" = { "date" = "2009-123" } test iso_8601 get "2009-222" = { "date" = "2009-222" } test iso_8601 get "2009-001" = { "date" = "2009-001" } test iso_8601 get "2009-W01-1" = { "date" = "2009-W01-1" } test iso_8601 get "2009-W51-1" = { "date" = "2009-W51-1" } test iso_8601 get "2009-W511" = { "date" = "2009-W511" } test iso_8601 get "2009-W33" = { "date" = "2009-W33" } test iso_8601 get "2009W511" = { "date" = "2009W511" } test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" } test iso_8601 get "2009-05-19 00:00" = { "date" = "2009-05-19 00:00" } test iso_8601 get "2009-05-19 14" = { "date" = "2009-05-19 14" } test iso_8601 get "2009-05-19 14:31" = { "date" = "2009-05-19 14:31" } test iso_8601 get "2009-05-19 14:39:22" = { "date" = "2009-05-19 14:39:22" } test iso_8601 get "2009-05-19T14:39Z" = { "date" = "2009-05-19T14:39Z" } test iso_8601 get "2009-W21-2" = { "date" = "2009-W21-2" } test iso_8601 get "2009-W21-2T01:22" = { "date" = "2009-W21-2T01:22" } test iso_8601 get "2009-139" = { "date" = "2009-139" } test iso_8601 get "2009-05-19 14:39:22-06:00" = { "date" = "2009-05-19 14:39:22-06:00" } test iso_8601 get "2009-05-19 14:39:22+0600" = { "date" = "2009-05-19 14:39:22+0600" } test iso_8601 get "2009-05-19 14:39:22-01" = { "date" = "2009-05-19 14:39:22-01" } test iso_8601 get "20090621T0545Z" = { "date" = "20090621T0545Z" } test iso_8601 get "2007-04-06T00:00" = { "date" = "2007-04-06T00:00" } test iso_8601 get "2007-04-05T24:00" = { "date" = "2007-04-05T24:00" } test iso_8601 get "2010-02-18T16:23:48.5" = { "date" = "2010-02-18T16:23:48.5" } test iso_8601 get "2010-02-18T16:23:48,444" = { "date" = "2010-02-18T16:23:48,444" } test iso_8601 get "2010-02-18T16:23:48,3-06:00" = { "date" = "2010-02-18T16:23:48,3-06:00" } test iso_8601 get "2010-02-18T16:23.4" = { "date" = "2010-02-18T16:23.4" } test iso_8601 get "2010-02-18T16:23,25" = { "date" = "2010-02-18T16:23,25" } test iso_8601 get "2010-02-18T16:23.33+0600" = { "date" = "2010-02-18T16:23.33+0600" } test iso_8601 get "2010-02-18T16.23334444" = { "date" = "2010-02-18T16.23334444" } test iso_8601 get "2010-02-18T16,2283" = { "date" = "2010-02-18T16,2283" } test iso_8601 get "2009-05-19 143922.500" = { "date" = "2009-05-19 143922.500" } test iso_8601 get "2009-05-19 1439,55" = { "date" = "2009-05-19 1439,55" } (* url_3986 *) let url_3986 = [ label "url" . store Rx.url_3986 ] test url_3986 get "http://tools.ietf.org/rfc/rfc3986.txt" = { "url" = "http://tools.ietf.org/rfc/rfc3986.txt" } test url_3986 get "https://github.com/hercules-team/augeas/" = { "url" = "https://github.com/hercules-team/augeas/" } test url_3986 get "http://www.ics.uci.edu:80/pub/ietf/uri/#Related" = { "url" = "http://www.ics.uci.edu:80/pub/ietf/uri/#Related" } test url_3986 get "EXAMPLE://a/./b/../b/%63/%7bfoo%7d" = { "url" = "EXAMPLE://a/./b/../b/%63/%7bfoo%7d" } test url_3986 get "http://a/b/c/g;?x=1/y#z" = { "url" = "http://a/b/c/g;?x=1/y#z" } test url_3986 get "eXaMpLe://a.very.sub.domain.tld:1234/b/c/e/f/g.txt;?x=1/y&q=%7b-w-%7b#z" = { "url" = "eXaMpLe://a.very.sub.domain.tld:1234/b/c/e/f/g.txt;?x=1/y&q=%7b-w-%7b#z" } PK ! �o�&C C & lenses/dist/tests/test_cachefilesd.augnu �[��� module Test_Cachefilesd = let conf = " # I am a comment dir /var/cache/fscache tAg mycache brun 10% bcull 7% bstop 3% frun 10% fcull 7% fstop 3% nocull secctx system_u:system_r:cachefiles_kernel_t:s0 " test Cachefilesd.lns get conf = { } { "#comment" = "I am a comment" } { "dir" = "/var/cache/fscache" } { "tAg" = "mycache" } { "brun" = "10%" } { "bcull" = "7%" } { "bstop" = "3%" } { "frun" = "10%" } { "fcull" = "7%" } { "fstop" = "3%" } { "nocull" } { } { "secctx" = "system_u:system_r:cachefiles_kernel_t:s0" } PK ! �C�J� � & lenses/dist/tests/test_mcollective.augnu �[��� (* Module: Test_MCollective Provides unit tests and examples for the <MCollective> lens. *) module Test_MCollective = let conf = "topicprefix = /topic/ main_collective = mcollective collectives = mcollective libdir = /usr/libexec/mcollective logger_type = console loglevel = warn # Plugins securityprovider = psk plugin.psk = unset connector = stomp plugin.stomp.host = localhost plugin.stomp.port = 61613 plugin.stomp.user = mcollective plugin.stomp.password = secret # Facts factsource = yaml # bla plugin.yaml=/etc/mcollective/facts.yaml " test MCollective.lns get conf = { "topicprefix" = "/topic/" } { "main_collective" = "mcollective" } { "collectives" = "mcollective" } { "libdir" = "/usr/libexec/mcollective" } { "logger_type" = "console" } { "loglevel" = "warn" } { } { "#comment" = "Plugins" } { "securityprovider" = "psk" } { "plugin.psk" = "unset" } { } { "connector" = "stomp" } { "plugin.stomp.host" = "localhost" } { "plugin.stomp.port" = "61613" } { "plugin.stomp.user" = "mcollective" } { "plugin.stomp.password" = "secret" } { } { "#comment" = "Facts" } { "factsource" = "yaml" { "#comment" = "bla" } } { "plugin.yaml" = "/etc/mcollective/facts.yaml" } PK ! Y��C� � ! lenses/dist/tests/test_ethers.augnu �[��� (* Tests for the Ethers module *) module Test_ethers = (* let empty_entries = "# see man ethers for syntax\n" test Ethers.record get empty_entries = { "#comment" = "see man ethers for syntax" } *) let three_entries = "54:52:00:01:00:01 192.168.1.1 # \tcomment\t 54:52:00:01:00:02 foo.example.com 00:16:3e:01:fe:03 bar " test Ethers.lns get three_entries = { "1" { "mac" = "54:52:00:01:00:01" } { "ip" = "192.168.1.1" } } { "#comment" = "comment" } { "2" { "mac" = "54:52:00:01:00:02" } { "ip" = "foo.example.com" } } { "3" { "mac" = "00:16:3e:01:fe:03" } { "ip" = "bar" } } (* Deleting the 'ip' node violates the schema *) test Ethers.lns put three_entries after rm "/1/ip" = * test Ethers.lns put three_entries after set "/2/ip" "192.168.1.2" ; set "/3/ip" "baz" = "54:52:00:01:00:01 192.168.1.1 # \tcomment\t 54:52:00:01:00:02 192.168.1.2 00:16:3e:01:fe:03 baz " test Ethers.lns put three_entries after rm "/3" = "54:52:00:01:00:01 192.168.1.1 # \tcomment\t 54:52:00:01:00:02 foo.example.com " (* Make sure blank and indented lines get through *) test Ethers.lns get "54:52:00:01:00:01\tfoo \n \n\n 54:52:00:01:00:02 bar\n" = { "1" { "mac" = "54:52:00:01:00:01" } { "ip" = "foo" } } {} {} {} { "2" { "mac" = "54:52:00:01:00:02" } { "ip" = "bar" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! f k�* �* lenses/dist/tests/test_grub.augnu �[��� module Test_grub = let conf = "# grub.conf generated by anaconda # # Note that you do not have to rerun grub after making changes to this file # NOTICE: You have a /boot partition. This means that # all kernel and initrd paths are relative to /boot/, eg. # root (hd0,0) # kernel /vmlinuz-version ro root=/dev/vg00/lv00 # initrd /initrd-version.img boot=/dev/sda device (hd0) HD(1,800,64000,9895c137-d4b2-4e3b-a93b-dc9ac4) password --md5 $1$M9NLj$p2gs87vwNv48BUu.wAfVw0 default=0 setkey setkey less backquote background 103332 timeout=5 splashimage=(hd0,0)/grub/splash.xpm.gz gfxmenu=(hd0,0)/boot/message verbose = 0 hiddenmenu title Fedora (2.6.24.4-64.fc8) root (hd0,0) kernel /vmlinuz-2.6.24.4-64.fc8 ro root=/dev/vg00/lv00 crashkernel= initrd /initrd-2.6.24.4-64.fc8.img title=Fedora (2.6.24.3-50.fc8) root (hd0,0) kernel /vmlinuz-2.6.24.3-50.fc8 ro root=/dev/vg00/lv00 initrd /initrd-2.6.24.3-50.fc8.img title Fedora (2.6.21.7-3.fc8xen) root (hd0,0) kernel /xen.gz-2.6.21.7-3.fc8 module /vmlinuz-2.6.21.7-3.fc8xen ro root=/dev/vg00/lv00 module /initrd-2.6.21.7-3.fc8xen.img title Fedora (2.6.24.3-34.fc8) root (hd0,0) kernel /vmlinuz-2.6.24.3-34.fc8 ro root=/dev/vg00/lv00 initrd /initrd-2.6.24.3-34.fc8.img map (hd0) (hd1) title othermenu lock makeactive configfile /boot/grub/othergrub.conf " test Grub.lns get conf = { "#comment" = "grub.conf generated by anaconda" } {} { "#comment" = "Note that you do not have to rerun grub after making changes to this file" } { "#comment" = "NOTICE: You have a /boot partition. This means that" } { "#comment" = "all kernel and initrd paths are relative to /boot/, eg." } { "#comment" = "root (hd0,0)" } { "#comment" = "kernel /vmlinuz-version ro root=/dev/vg00/lv00" } { "#comment" = "initrd /initrd-version.img" } { "boot" = "/dev/sda" } { "device" = "(hd0)" { "file" = "HD(1,800,64000,9895c137-d4b2-4e3b-a93b-dc9ac4)" } } { "password" = "$1$M9NLj$p2gs87vwNv48BUu.wAfVw0" { "md5" } } { "default" = "0" } { "setkey" } { "setkey" { "to" = "less" } { "from" = "backquote" } } { "background" = "103332" } { "timeout" = "5" } { "splashimage" = "(hd0,0)/grub/splash.xpm.gz" } { "gfxmenu" = "(hd0,0)/boot/message" } { "verbose" = "0" } { "hiddenmenu" } { "title" = "Fedora (2.6.24.4-64.fc8)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.6.24.4-64.fc8" { "ro" } { "root" = "/dev/vg00/lv00" } {"crashkernel" = ""} } { "initrd" = "/initrd-2.6.24.4-64.fc8.img" } } { "title" = "Fedora (2.6.24.3-50.fc8)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.6.24.3-50.fc8" { "ro" } { "root" = "/dev/vg00/lv00" } } { "initrd" = "/initrd-2.6.24.3-50.fc8.img" } } { "title" = "Fedora (2.6.21.7-3.fc8xen)" { "root" = "(hd0,0)" } { "kernel" = "/xen.gz-2.6.21.7-3.fc8" } { "module" = "/vmlinuz-2.6.21.7-3.fc8xen" { "ro" } { "root" = "/dev/vg00/lv00" } } { "module" = "/initrd-2.6.21.7-3.fc8xen.img" } } { "title" = "Fedora (2.6.24.3-34.fc8)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.6.24.3-34.fc8" { "ro" } { "root" = "/dev/vg00/lv00" } } { "initrd" = "/initrd-2.6.24.3-34.fc8.img" } { "map" { "from" = "(hd0)" } { "to" = "(hd1)" } } } { "title" = "othermenu" { "lock" } { "makeactive" } { "configfile" = "/boot/grub/othergrub.conf" } } test Grub.lns put conf after set "default" "0" = conf test Grub.lns get "# menu.lst - See: grub(8), info grub, update-grub(8) ## default num\n" = { "#comment" = "menu.lst - See: grub(8), info grub, update-grub(8)" } {} { "#comment" = "# default num" } (* Color directive *) test Grub.lns get "color cyan/blue white/blue\n" = { "color" { "normal" { "foreground" = "cyan" } { "background" = "blue" } } { "highlight" { "foreground" = "white" } { "background" = "blue" } } } test Grub.lns get "\tcolor cyan/light-blue\n" = { "color" { "normal" { "foreground" = "cyan" } { "background" = "light-blue" } } } test Grub.lns put "color cyan/light-blue\n" after set "/color/highlight/foreground" "white"; set "/color/highlight/background" "black" = "color cyan/light-blue white/black\n" (* Boot stanza with savedefault *) let boot_savedefault = "title\t\tDebian GNU/Linux, kernel 2.6.18-6-vserver-686 root\t\t(hd0,0) kernel\t\t/boot/vmlinuz-2.6.18-6-vserver-686 root=/dev/md0 ro initrd\t\t/boot/initrd.img-2.6.18-6-vserver-686 \tsavedefault\n" test Grub.lns get boot_savedefault = { "title" = "Debian GNU/Linux, kernel 2.6.18-6-vserver-686" { "root" = "(hd0,0)" } { "kernel" = "/boot/vmlinuz-2.6.18-6-vserver-686" { "root" = "/dev/md0" } { "ro" } } { "initrd" = "/boot/initrd.img-2.6.18-6-vserver-686" } { "savedefault" } } test Grub.lns get "serial --unit=0 --speed=9600 --word=8 --parity=no --stop=1\n" = { "serial" { "unit" = "0" } { "speed" = "9600" } { "word" = "8" } { "parity" = "no" } { "stop" = "1" } } test Grub.lns get "terminal --timeout=10 serial console\n" = { "terminal" { "timeout" = "10" } { "serial" } { "console" } } test Grub.boot_setting get "chainloader --force +1 \n" = { "chainloader" = "+1" { "force" } } test Grub.savedefault put "savedefault\n" after set "/savedefault" "3" = "savedefault 3\n" test Grub.lns get "password foo password foo /boot/grub/custom.lst password --md5 $1$Ahx/T0$Sgcp7Z0xgGlyANIJCdESi. password --encrypted ^9^32kwzzX./3WISQ0C password --encrypted ^9^32kwzzX./3WISQ0C /boot/grub/custom.lst " = { "password" = "foo" } { "password" = "foo" { "file" = "/boot/grub/custom.lst" } } { "password" = "$1$Ahx/T0$Sgcp7Z0xgGlyANIJCdESi." { "md5" } } { "password" = "^9^32kwzzX./3WISQ0C" { "encrypted" } } { "password" = "^9^32kwzzX./3WISQ0C" { "encrypted" } { "file" = "/boot/grub/custom.lst" } } (* BZ 590067 - handle comments in a title section *) (* Comments within a boot stanza belong to that boot stanza *) test Grub.lns get "title Red Hat Enterprise Linux AS (2.4.21-63.ELsmp) root (hd0,0) kernel /vmlinuz-2.4.21-63.ELsmp ro root=LABEL=/ #initrd /initrd-2.4.21-63.ELsmp.img initrd /initrd-2.4.21-63.EL.img.e1000.8139\n" = { "title" = "Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.4.21-63.ELsmp" { "ro" } { "root" = "LABEL=/" } } { "#comment" = "initrd /initrd-2.4.21-63.ELsmp.img" } { "initrd" = "/initrd-2.4.21-63.EL.img.e1000.8139" } } (* Comments at the end of a boot stanza go into the top level *) test Grub.lns get "title Red Hat Enterprise Linux AS (2.4.21-63.ELsmp) root (hd0,0) kernel /vmlinuz-2.4.21-63.ELsmp ro root=LABEL=/ initrd /initrd-2.4.21-63.EL.img.e1000.8139 # Now for something completely different\n" = { "title" = "Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.4.21-63.ELsmp" { "ro" } { "root" = "LABEL=/" } } { "initrd" = "/initrd-2.4.21-63.EL.img.e1000.8139" } } { "#comment" = "Now for something completely different" } (* Solaris 10 extensions: kernel$ and module$ are permitted and enable *) (* variable expansion. findroot (similar to root) and bootfs added *) test Grub.lns get "title Solaris 10 10/09 s10x_u8wos_08a X86 findroot (pool_rpool,0,a) bootfs rpool/mybootenv-alt kernel$ /platform/i86pc/multiboot -B $ZFS-BOOTFS module$ /platform/i86pc/boot_archive\n" = { "title" = "Solaris 10 10/09 s10x_u8wos_08a X86" { "findroot" = "(pool_rpool,0,a)" } { "bootfs" = "rpool/mybootenv-alt" } { "kernel$" = "/platform/i86pc/multiboot" { "-B" } { "$ZFS-BOOTFS" } } { "module$" = "/platform/i86pc/boot_archive" } } (* Solaris 10 extension: multiboot kernel may take a path as its first *) (* argument. *) test Grub.lns get "title Solaris failsafe findroot (pool_rpool,0,a) kernel /boot/multiboot kernel/unix -s module /boot/x86.miniroot-safe\n" = { "title" = "Solaris failsafe" { "findroot" = "(pool_rpool,0,a)" } { "kernel" = "/boot/multiboot" { "@path" = "kernel/unix" } { "-s" } } { "module" = "/boot/x86.miniroot-safe" } } test Grub.lns get "title SUSE Linux Enterprise Server 11 SP1 - 2.6.32.27-0.2 kernel (hd0,0)/vmlinuz root=/dev/vg_root/lv_root resume=/dev/vg_root/lv_swap splash=silent showopts initrd (hd0,0)/initrd\n" = { "title" = "SUSE Linux Enterprise Server 11 SP1 - 2.6.32.27-0.2" { "kernel" = "(hd0,0)/vmlinuz" { "root" = "/dev/vg_root/lv_root" } { "resume" = "/dev/vg_root/lv_swap" } { "splash" = "silent" } { "showopts" } } { "initrd" = "(hd0,0)/initrd" } } (* Password protected kernel, issue #229 *) test Grub.lns get "title Password Protected Kernel root (hd0,0) kernel /vmlinuz ro root=/dev/mapper/root initrd /initramfs password --md5 secret\n" = { "title" = "Password Protected Kernel" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz" { "ro" } { "root" = "/dev/mapper/root" } } { "initrd" = "/initramfs" } { "password" = "secret" { "md5" } } } (* Test kernel options with different special characters. *) test Grub.lns get "title Fedora (2.6.24.4-64.fc8) root (hd0,0) kernel /vmlinuz-2.6.24.4-64.fc8 ro root=/dev/vg00/lv00 with.dot=1 with-dash=1 with_underscore=1 with+plus=1 initrd /initrd-2.6.24.4-64.fc8.img\n" = { "title" = "Fedora (2.6.24.4-64.fc8)" { "root" = "(hd0,0)" } { "kernel" = "/vmlinuz-2.6.24.4-64.fc8" { "ro" } { "root" = "/dev/vg00/lv00" } { "with.dot" = "1" } { "with-dash" = "1" } { "with_underscore" = "1" } { "with+plus" = "1" } } { "initrd" = "/initrd-2.6.24.4-64.fc8.img" } } (* Test parsing of invalid entries via menu_error *) test Grub.lns get "default=0\ncrud=no\n" = { "default" = "0" } { "#error" = "crud=no" } (* We handle some pretty bizarre bad syntax *) test Grub.lns get "default=0 crud no valid:nope nonsense = yes bad arg1 arg2 arg3=v\n" = { "default" = "0" } { "#error" = "crud no" } { "#error" = "valid:nope" } { "#error" = "nonsense = yes" } { "#error" = "bad arg1 arg2 arg3=v" } (* Test parsing of invalid entries via boot_error *) test Grub.lns get "title test root (hd0,0) crud foo\n" = { "title" = "test" { "root" = "(hd0,0)" } { "#error" = "crud foo" } } PK ! M�� E E lenses/dist/tests/test_json.augnu �[��� module Test_json = let lns = Json.lns (* Non recursive checks *) (* Typecheck finitely deep nesting *) let value0 = Json.str | Json.number | Json.const /true|false|null/ let value1 = Json.fix_value value0 (* This test is usually too heavy, activate at will let value2 = Json.fix_value value1 *) test lns get "\"menu\"" = { "string" = "menu" } test lns get "true" = { "const" = "true" } test lns get "3.141" = { "number" = "3.141" } test lns get "{ \"key\" : 666 }" = { "dict" { "entry" = "key" { "number" = "666" } } } test lns get "[true, 0, \"yo\"]" = { "array" { "const" = "true" } { "number" = "0" } { "string" = "yo" } } test lns get "{\"a\" : true}" = { "dict" { "entry" = "a" { "const" = "true" } } } test lns get "{ \"0\":true, \"1\":false }" = { "dict" { "entry" = "0" { "const" = "true" } } { "entry" = "1" { "const" = "false" } } } test lns get "{ \"0\": true, \"1\":false }" = { "dict" { "entry" = "0" { "const" = "true" } } { "entry" = "1" { "const" = "false" } } } test lns get "{\"menu\": \"entry one\"}" = { "dict" { "entry" = "menu" { "string" = "entry one" } } } test lns get "[ ]" = { "array" } test lns get "{}" = { "dict" } let s = "{\"menu\": { \"id\": \"file\", \"value\": \"File\", \"popup\": { \"menuitem\": [ {\"value\": \"New\", \"onclick\": \"CreateNewDoc()\"}, {\"value\": \"Open\", \"onclick\": \"OpenDoc()\"}, {\"value\": \"Close\", \"onclick\": \"CloseDoc()\"} ] } }}" test lns get s = { "dict" { "entry" = "menu" { "dict" { } { "entry" = "id" { "string" = "file" } } { } { "entry" = "value" { "string" = "File" } } { } { "entry" = "popup" { "dict" { } { "entry" = "menuitem" { "array" { } { "dict" { "entry" = "value" { "string" = "New" } } { "entry" = "onclick" { "string" = "CreateNewDoc()" } } } { } { "dict" { "entry" = "value" { "string" = "Open" } } { "entry" = "onclick" { "string" = "OpenDoc()" } } } { } { "dict" { "entry" = "value" { "string" = "Close" } } { "entry" = "onclick" { "string" = "CloseDoc()" } } { } } { } } } { } } } } } } let t = " {\"web-app\": { \"servlet\": [ { \"servlet-name\": \"cofaxCDS\", \"servlet-class\": \"org.cofax.cds.CDSServlet\", \"init-param\": { \"configGlossary:installationAt\": \"Philadelphia, PA\", \"configGlossary:adminEmail\": \"ksm@pobox.com\", \"configGlossary:poweredBy\": \"Cofax\", \"configGlossary:poweredByIcon\": \"/images/cofax.gif\", \"configGlossary:staticPath\": \"/content/static\", \"templateProcessorClass\": \"org.cofax.WysiwygTemplate\", \"templateLoaderClass\": \"org.cofax.FilesTemplateLoader\", \"templatePath\": \"templates\", \"templateOverridePath\": \"\", \"defaultListTemplate\": \"listTemplate.htm\", \"defaultFileTemplate\": \"articleTemplate.htm\", \"useJSP\": false, \"jspListTemplate\": \"listTemplate.jsp\", \"jspFileTemplate\": \"articleTemplate.jsp\", \"cachePackageTagsTrack\": 200, \"cachePackageTagsStore\": 200, \"cachePackageTagsRefresh\": 60, \"cacheTemplatesTrack\": 100, \"cacheTemplatesStore\": 50, \"cacheTemplatesRefresh\": 15, \"cachePagesTrack\": 200, \"cachePagesStore\": 100, \"cachePagesRefresh\": 10, \"cachePagesDirtyRead\": 10, \"searchEngineListTemplate\": \"forSearchEnginesList.htm\", \"searchEngineFileTemplate\": \"forSearchEngines.htm\", \"searchEngineRobotsDb\": \"WEB-INF/robots.db\", \"useDataStore\": true, \"dataStoreClass\": \"org.cofax.SqlDataStore\", \"redirectionClass\": \"org.cofax.SqlRedirection\", \"dataStoreName\": \"cofax\", \"dataStoreDriver\": \"com.microsoft.jdbc.sqlserver.SQLServerDriver\", \"dataStoreUrl\": \"jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon\", \"dataStoreUser\": \"sa\", \"dataStorePassword\": \"dataStoreTestQuery\", \"dataStoreTestQuery\": \"SET NOCOUNT ON;select test='test';\", \"dataStoreLogFile\": \"/usr/local/tomcat/logs/datastore.log\", \"dataStoreInitConns\": 10, \"dataStoreMaxConns\": 100, \"dataStoreConnUsageLimit\": 100, \"dataStoreLogLevel\": \"debug\", \"maxUrlLength\": 500}}, { \"servlet-name\": \"cofaxEmail\", \"servlet-class\": \"org.cofax.cds.EmailServlet\", \"init-param\": { \"mailHost\": \"mail1\", \"mailHostOverride\": \"mail2\"}}, { \"servlet-name\": \"cofaxAdmin\", \"servlet-class\": \"org.cofax.cds.AdminServlet\"}, { \"servlet-name\": \"fileServlet\", \"servlet-class\": \"org.cofax.cds.FileServlet\"}, { \"servlet-name\": \"cofaxTools\", \"servlet-class\": \"org.cofax.cms.CofaxToolsServlet\", \"init-param\": { \"templatePath\": \"toolstemplates/\", \"log\": 1, \"logLocation\": \"/usr/local/tomcat/logs/CofaxTools.log\", \"logMaxSize\": \"\", \"dataLog\": 1, \"dataLogLocation\": \"/usr/local/tomcat/logs/dataLog.log\", \"dataLogMaxSize\": \"\", \"removePageCache\": \"/content/admin/remove?cache=pages&id=\", \"removeTemplateCache\": \"/content/admin/remove?cache=templates&id=\", \"fileTransferFolder\": \"/usr/local/tomcat/webapps/content/fileTransferFolder\", \"lookInContext\": 1, \"adminGroupID\": 4, \"betaServer\": true}}], \"servlet-mapping\": { \"cofaxCDS\": \"/\", \"cofaxEmail\": \"/cofaxutil/aemail/*\", \"cofaxAdmin\": \"/admin/*\", \"fileServlet\": \"/static/*\", \"cofaxTools\": \"/tools/*\"}, \"taglib\": { \"taglib-uri\": \"cofax.tld\", \"taglib-location\": \"/WEB-INF/tlds/cofax.tld\"}}}" test lns get t = { } { "dict" { "entry" = "web-app" { "dict" { } { "entry" = "servlet" { "array" { } { "dict" { } { "entry" = "servlet-name" { "string" = "cofaxCDS" } } { } { "entry" = "servlet-class" { "string" = "org.cofax.cds.CDSServlet" } } { } { "entry" = "init-param" { "dict" { } { "entry" = "configGlossary:installationAt" { "string" = "Philadelphia, PA" } } { } { "entry" = "configGlossary:adminEmail" { "string" = "ksm@pobox.com" } } { } { "entry" = "configGlossary:poweredBy" { "string" = "Cofax" } } { } { "entry" = "configGlossary:poweredByIcon" { "string" = "/images/cofax.gif" } } { } { "entry" = "configGlossary:staticPath" { "string" = "/content/static" } } { } { "entry" = "templateProcessorClass" { "string" = "org.cofax.WysiwygTemplate" } } { } { "entry" = "templateLoaderClass" { "string" = "org.cofax.FilesTemplateLoader" } } { } { "entry" = "templatePath" { "string" = "templates" } } { } { "entry" = "templateOverridePath" { "string" = "" } } { } { "entry" = "defaultListTemplate" { "string" = "listTemplate.htm" } } { } { "entry" = "defaultFileTemplate" { "string" = "articleTemplate.htm" } } { } { "entry" = "useJSP" { "const" = "false" } } { } { "entry" = "jspListTemplate" { "string" = "listTemplate.jsp" } } { } { "entry" = "jspFileTemplate" { "string" = "articleTemplate.jsp" } } { } { "entry" = "cachePackageTagsTrack" { "number" = "200" } } { } { "entry" = "cachePackageTagsStore" { "number" = "200" } } { } { "entry" = "cachePackageTagsRefresh" { "number" = "60" } } { } { "entry" = "cacheTemplatesTrack" { "number" = "100" } } { } { "entry" = "cacheTemplatesStore" { "number" = "50" } } { } { "entry" = "cacheTemplatesRefresh" { "number" = "15" } } { } { "entry" = "cachePagesTrack" { "number" = "200" } } { } { "entry" = "cachePagesStore" { "number" = "100" } } { } { "entry" = "cachePagesRefresh" { "number" = "10" } } { } { "entry" = "cachePagesDirtyRead" { "number" = "10" } } { } { "entry" = "searchEngineListTemplate" { "string" = "forSearchEnginesList.htm" } } { } { "entry" = "searchEngineFileTemplate" { "string" = "forSearchEngines.htm" } } { } { "entry" = "searchEngineRobotsDb" { "string" = "WEB-INF/robots.db" } } { } { "entry" = "useDataStore" { "const" = "true" } } { } { "entry" = "dataStoreClass" { "string" = "org.cofax.SqlDataStore" } } { } { "entry" = "redirectionClass" { "string" = "org.cofax.SqlRedirection" } } { } { "entry" = "dataStoreName" { "string" = "cofax" } } { } { "entry" = "dataStoreDriver" { "string" = "com.microsoft.jdbc.sqlserver.SQLServerDriver" } } { } { "entry" = "dataStoreUrl" { "string" = "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon" } } { } { "entry" = "dataStoreUser" { "string" = "sa" } } { } { "entry" = "dataStorePassword" { "string" = "dataStoreTestQuery" } } { } { "entry" = "dataStoreTestQuery" { "string" = "SET NOCOUNT ON;select test='test';" } } { } { "entry" = "dataStoreLogFile" { "string" = "/usr/local/tomcat/logs/datastore.log" } } { } { "entry" = "dataStoreInitConns" { "number" = "10" } } { } { "entry" = "dataStoreMaxConns" { "number" = "100" } } { } { "entry" = "dataStoreConnUsageLimit" { "number" = "100" } } { } { "entry" = "dataStoreLogLevel" { "string" = "debug" } } { } { "entry" = "maxUrlLength" { "number" = "500" } } } } } { } { "dict" { } { "entry" = "servlet-name" { "string" = "cofaxEmail" } } { } { "entry" = "servlet-class" { "string" = "org.cofax.cds.EmailServlet" } } { } { "entry" = "init-param" { "dict" { } { "entry" = "mailHost" { "string" = "mail1" } } { } { "entry" = "mailHostOverride" { "string" = "mail2" } } } } } { } { "dict" { } { "entry" = "servlet-name" { "string" = "cofaxAdmin" } } { } { "entry" = "servlet-class" { "string" = "org.cofax.cds.AdminServlet" } } } { } { } { "dict" { } { "entry" = "servlet-name" { "string" = "fileServlet" } } { } { "entry" = "servlet-class" { "string" = "org.cofax.cds.FileServlet" } } } { } { "dict" { } { "entry" = "servlet-name" { "string" = "cofaxTools" } } { } { "entry" = "servlet-class" { "string" = "org.cofax.cms.CofaxToolsServlet" } } { } { "entry" = "init-param" { "dict" { } { "entry" = "templatePath" { "string" = "toolstemplates/" } } { } { "entry" = "log" { "number" = "1" } } { } { "entry" = "logLocation" { "string" = "/usr/local/tomcat/logs/CofaxTools.log" } } { } { "entry" = "logMaxSize" { "string" = "" } } { } { "entry" = "dataLog" { "number" = "1" } } { } { "entry" = "dataLogLocation" { "string" = "/usr/local/tomcat/logs/dataLog.log" } } { } { "entry" = "dataLogMaxSize" { "string" = "" } } { } { "entry" = "removePageCache" { "string" = "/content/admin/remove?cache=pages&id=" } } { } { "entry" = "removeTemplateCache" { "string" = "/content/admin/remove?cache=templates&id=" } } { } { "entry" = "fileTransferFolder" { "string" = "/usr/local/tomcat/webapps/content/fileTransferFolder" } } { } { "entry" = "lookInContext" { "number" = "1" } } { } { "entry" = "adminGroupID" { "number" = "4" } } { } { "entry" = "betaServer" { "const" = "true" } } } } } } } { } { "entry" = "servlet-mapping" { "dict" { } { "entry" = "cofaxCDS" { "string" = "/" } } { } { "entry" = "cofaxEmail" { "string" = "/cofaxutil/aemail/*" } } { } { "entry" = "cofaxAdmin" { "string" = "/admin/*" } } { } { "entry" = "fileServlet" { "string" = "/static/*" } } { } { "entry" = "cofaxTools" { "string" = "/tools/*" } } } } { } { } { "entry" = "taglib" { "dict" { } { "entry" = "taglib-uri" { "string" = "cofax.tld" } } { } { "entry" = "taglib-location" { "string" = "/WEB-INF/tlds/cofax.tld" } } } } } } } (* Comments *) test lns get "// A comment // {\"menu\": 1 } // /* This is a multiline comment */\n" = { "#comment" = "A comment" } { } { "dict" { "entry" = "menu" { "number" = "1" } } { } { } { "#mcomment" { "1" = "This is a multiline comment" } } } let s_commented = "/* before */ { // before all values \"key\": // my key \"value\" // my value , // after value \"key2\": [ // before array values \"val21\", \"val22\" // after value 22 ] // after all values } " test lns get s_commented = { "#mcomment" { "1" = "before" } } { "dict" { "#comment" = "before all values" } { "entry" = "key" { "#comment" = "my key" } { "string" = "value" { "#comment" = "my value" } } } { "#comment" = "after value" } { "entry" = "key2" { "array" { "#comment" = "before array values" } { "string" = "val21" } { } { "string" = "val22" { } { "#comment" = "after value 22" } } { } { "#comment" = "after all values" } } } { } } (* Test lns Allow escaped quotes, backslashes and tabs/newlines *) test lns get "{ \"filesystem\": \"ext3\\\" \\\\ \t \r\n SEC_TYPE=\\\"ext2\" }\n" = { "dict" { "entry" = "filesystem" { "string" = "ext3\\\" \\\\ \t \r\n SEC_TYPE=\\\"ext2" } } { } } test Json.str get "\"\\\"\"" = { "string" = "\\\"" } test Json.str get "\"\\\"" = * test Json.str get "\"\"\"" = * test Json.str get "\"\\u1234\"" = { "string" = "\u1234" } (* Allow spurious backslashes; Issue #557 *) test Json.str get "\"\\/\"" = { "string" = "\\/" } test lns get "{ \"download-dir\": \"\\/var\\/tmp\\/\" }" = { "dict" { "entry" = "download-dir" { "string" = "\/var\/tmp\/" } } } PK ! �A2z� � " lenses/dist/tests/test_exports.augnu �[��� module Test_exports = let s = "/local 172.31.0.0/16(rw,sync) \t /home 172.31.0.0/16(rw,root_squash,sync) @netgroup(rw) *.example.com # Yes, we export /tmp /tmp 172.31.0.0/16(rw,root_squash,sync,) /local2 somehost(rw,sync) /local3 some-host(rw,sync) /local3 an-other-host(rw,sync) /local4 2000:123:456::/64(rw) /local5 somehost-[01](rw) " test Exports.lns get s = { "dir" = "/local" { "client" = "172.31.0.0/16" { "option" = "rw" } { "option" = "sync" } } } { } { "dir" = "/home" { "client" = "172.31.0.0/16" { "option" = "rw"} { "option" = "root_squash" } { "option" = "sync" } } { "client" = "@netgroup" { "option" = "rw" } } { "client" = "*.example.com" } } { "#comment" = "Yes, we export /tmp" } { "dir" = "/tmp" { "client" = "172.31.0.0/16" { "option" = "rw" } { "option" = "root_squash" } { "option" = "sync" } { "option" = "" } } } { "dir" = "/local2" { "client" = "somehost" { "option" = "rw" } { "option" = "sync" } } } { "dir" = "/local3" { "client" = "some-host" { "option" = "rw" } { "option" = "sync" } } } { "dir" = "/local3" { "client" = "an-other-host" { "option" = "rw" } { "option" = "sync" } } } { "dir" = "/local4" { "client" = "2000:123:456::/64" { "option" = "rw" } } } { "dir" = "/local5" { "client" = "somehost-[01]" { "option" = "rw" } } } test Exports.lns get "\"/path/in/quotes\" 192.168.0.1(rw,all_squash)\n" = { "dir" = "\"/path/in/quotes\"" { "client" = "192.168.0.1" { "option" = "rw" } { "option" = "all_squash" } } } PK ! ,�0&� � # lenses/dist/tests/test_pagekite.augnu �[��� module Test_Pagekite = let conf1 = "# Use the pagekite.net service defaults. defaults " test Pagekite.lns get conf1 = { "#comment" = "Use the pagekite.net service defaults." } { "defaults" } let conf2 =" frontends = pagekite.freedombox.me ports=80,81 " test Pagekite.lns get conf2 = { } { "frontends" = "pagekite.freedombox.me" } { "ports" { "1" = "80" } { "2" = "81" } } let conf3 = "frontend=pagekite.freedombox.me host=192.168.0.3 " test Pagekite.lns get conf3 = { "frontend" = "pagekite.freedombox.me" } { "host" = "192.168.0.3" } let conf4 = "isfrontend ports=80,443 protos=http,https domain=http,https:*.your.domain:MakeUpAPasswordHere " test Pagekite.lns get conf4 = { "isfrontend" } { "ports" { "1" = "80" } { "2" = "443" } } { "protos" { "1" = "http" } { "2" = "https" } } { "domain" = "http,https:*.your.domain:MakeUpAPasswordHere" } let conf_account = "kitename = my.freedombox.me kitesecret = 0420 # Delete this line! abort_not_configured " test Pagekite.lns get conf_account = { "kitename" = "my.freedombox.me" } { "kitesecret" = "0420" } { "#comment" = "Delete this line!" } { "abort_not_configured" } let conf_service = " service_on = raw/22:@kitename : localhost:22 : @kitesecret service_on=http:192.168.0.1:127.0.0.1:80: service_on=https:yourhostname,fqdn:127.0.0.1:443: " test Pagekite.lns get conf_service = { } { "service_on" { "1" { "protocol" = "raw/22" } { "kitename" = "@kitename" } { "backend_host" = "localhost" } { "backend_port" = "22" } { "secret" = "@kitesecret" } } } { "service_on" { "2" { "protocol" = "http" } { "kitename" = "192.168.0.1" } { "backend_host" = "127.0.0.1" } { "backend_port" = "80" } } } { "service_on" { "3" { "protocol" = "https" } { "kitename" = "yourhostname,fqdn" } { "backend_host" = "127.0.0.1" } { "backend_port" = "443" } } } let conf_encryption = " frontend=frontend.your.domain:443 fe_certname=frontend.your/domain ca_certs=/etc/pagekite.d/site-cert.pem tls_endpoint=frontend.your.domain:/path/to/frontend.pem " test Pagekite.lns get conf_encryption = { } { "frontend" = "frontend.your.domain:443" } { "fe_certname" = "frontend.your/domain" } { "ca_certs" = "/etc/pagekite.d/site-cert.pem" } { "tls_endpoint" = "frontend.your.domain:/path/to/frontend.pem" } let conf_service_cfg = "insecure service_cfg = KITENAME.pagekite.me/80 : insecure : True " test Pagekite.lns get conf_service_cfg = { "insecure" } { "service_cfg" = "KITENAME.pagekite.me/80 : insecure : True" } PK ! ��NL L # lenses/dist/tests/test_opendkim.augnu �[��� module Test_Opendkim = let simple_string_value = "ADSPAction discard\n" test Opendkim.lns get simple_string_value = { "ADSPAction" = "discard" } test Opendkim.lns put simple_string_value after set "ADSPAction" "discard" = simple_string_value let simple_integer_value = "AutoRestartCount 1\n" test Opendkim.lns get simple_integer_value = { "AutoRestartCount" = "1" } test Opendkim.lns put simple_integer_value after set "AutoRestartCount" "1" = simple_integer_value let simple_boolean_value = "AddAllSignatureResults true\n" test Opendkim.lns get simple_boolean_value = { "AddAllSignatureResults" = "true" } test Opendkim.lns put simple_boolean_value after set "AddAllSignatureResults" "true" = simple_boolean_value let yes_boolean_value= "AddAllSignatureResults yes\n" test Opendkim.lns get yes_boolean_value = { "AddAllSignatureResults" = "yes" } test Opendkim.lns put yes_boolean_value after set "AddAllSignatureResults" "yes" = yes_boolean_value let one_boolean_value= "AddAllSignatureResults 1\n" test Opendkim.lns get one_boolean_value = { "AddAllSignatureResults" = "1" } test Opendkim.lns put one_boolean_value after set "AddAllSignatureResults" "1" = one_boolean_value let one_boolean_value_uppercase_yes = "AutoRestart Yes\n" test Opendkim.lns get one_boolean_value_uppercase_yes = { "AutoRestart" = "Yes" } test Opendkim.lns put one_boolean_value_uppercase_yes after set "AutoRestart" "Yes" = one_boolean_value_uppercase_yes let one_boolean_value_uppercase_no = "AutoRestart No\n" test Opendkim.lns get one_boolean_value_uppercase_no = { "AutoRestart" = "No" } test Opendkim.lns put one_boolean_value_uppercase_no after set "AutoRestart" "No" = one_boolean_value_uppercase_no let one_boolean_value_uppercase_true = "AutoRestart True\n" test Opendkim.lns get one_boolean_value_uppercase_true = { "AutoRestart" = "True" } test Opendkim.lns put one_boolean_value_uppercase_true after set "AutoRestart" "True" = one_boolean_value_uppercase_true let one_boolean_value_uppercase_false = "AutoRestart False\n" test Opendkim.lns get one_boolean_value_uppercase_false = { "AutoRestart" = "False" } test Opendkim.lns put one_boolean_value_uppercase_false after set "AutoRestart" "False" = one_boolean_value_uppercase_false let string_value_starting_with_number = "AutoRestartRate 10/1h\n" test Opendkim.lns get string_value_starting_with_number = { "AutoRestartRate" = "10/1h" } test Opendkim.lns put string_value_starting_with_number after set "AutoRestartRate" "10/1h" = string_value_starting_with_number let string_value_containing_slash = "TrustAnchorFile /usr/share/dns/root.key\n" test Opendkim.lns get string_value_containing_slash = { "TrustAnchorFile" = "/usr/share/dns/root.key" } test Opendkim.lns put string_value_containing_slash after set "TrustAnchorFile" "/usr/share/dns/root.key" = string_value_containing_slash let logwhy_keyword_boolean = "LogWhy Yes\n" test Opendkim.lns get logwhy_keyword_boolean = { "LogWhy" = "Yes" } test Opendkim.lns put logwhy_keyword_boolean after set "LogWhy" "Yes" = logwhy_keyword_boolean let three_type_value = "AddAllSignatureResults false\nADSPAction discard\nAutoRestartCount 2\n" test Opendkim.lns get three_type_value = { "AddAllSignatureResults" = "false" } { "ADSPAction" = "discard" } { "AutoRestartCount" = "2" } test Opendkim.lns put "" after set "AddAllSignatureResults" "false"; set "ADSPAction" "discard"; set "AutoRestartCount" "2" = three_type_value let two_boolean_value = "AddAllSignatureResults false\nADSPNoSuchDomain true\n" test Opendkim.lns get two_boolean_value = { "AddAllSignatureResults" = "false" } { "ADSPNoSuchDomain" = "true" } test Opendkim.lns put "" after set "AddAllSignatureResults" "false"; set "ADSPNoSuchDomain" "true" = two_boolean_value let blank_line_between= "AddAllSignatureResults false\n\nADSPNoSuchDomain true\n" test Opendkim.lns get blank_line_between = { "AddAllSignatureResults" = "false" } { } { "ADSPNoSuchDomain" = "true" } test Opendkim.lns put "" after set "AddAllSignatureResults" "false"; set "ADSPNoSuchDomain" "true" = "AddAllSignatureResults false\nADSPNoSuchDomain true\n" let include_comment_line= "AddAllSignatureResults false\n#A comment\nADSPNoSuchDomain true\n" test Opendkim.lns get include_comment_line = { "AddAllSignatureResults" = "false" } { "#comment" = "A comment" } { "ADSPNoSuchDomain" = "true" } test Opendkim.lns put "" after set "AddAllSignatureResults" "false"; set "#comment" "A comment"; set "ADSPNoSuchDomain" "true" = include_comment_line let default_config_file = "# This is a basic configuration that can easily be adapted to suit a standard # installation. For more advanced options, see opendkim.conf(5) and/or # /usr/share/doc/opendkim/examples/opendkim.conf.sample. # Log to syslog Syslog yes # Required to use local socket with MTAs that access the socket as a non- # privileged user (e.g. Postfix) UMask 002 # Sign for example.com with key in /etc/mail/dkim.key using # selector '2007' (e.g. 2007._domainkey.example.com) #Domain example.com #KeyFile /etc/mail/dkim.key #Selector 2007 # Commonly-used options; the commented-out versions show the defaults. #Canonicalization simple #Mode sv #SubDomains no #ADSPAction continue # Always oversign From (sign using actual From and a null From to prevent # malicious signatures header fields (From and/or others) between the signer # and the verifier. From is oversigned by default in the Debian package # because it is often the identity key used by reputation systems and thus # somewhat security sensitive. OversignHeaders From # List domains to use for RFC 6541 DKIM Authorized Third-Party Signatures # (ATPS) (experimental) #ATPSDomains example.com " test Opendkim.lns get default_config_file = { "#comment" = "This is a basic configuration that can easily be adapted to suit a standard" } { "#comment" = "installation. For more advanced options, see opendkim.conf(5) and/or" } { "#comment" = "/usr/share/doc/opendkim/examples/opendkim.conf.sample." } { } { "#comment" = "Log to syslog" } { "Syslog" = "yes" } { "#comment" = "Required to use local socket with MTAs that access the socket as a non-" } { "#comment" = "privileged user (e.g. Postfix)" } { "UMask" = "002" } { } { "#comment" = "Sign for example.com with key in /etc/mail/dkim.key using" } { "#comment" = "selector '2007' (e.g. 2007._domainkey.example.com)" } { "#comment" = "Domain example.com" } { "#comment" = "KeyFile /etc/mail/dkim.key" } { "#comment" = "Selector 2007" } { } { "#comment" = "Commonly-used options; the commented-out versions show the defaults." } { "#comment" = "Canonicalization simple" } { "#comment" = "Mode sv" } { "#comment" = "SubDomains no" } { "#comment" = "ADSPAction continue" } { } { "#comment" = "Always oversign From (sign using actual From and a null From to prevent" } { "#comment" = "malicious signatures header fields (From and/or others) between the signer" } { "#comment" = "and the verifier. From is oversigned by default in the Debian package" } { "#comment" = "because it is often the identity key used by reputation systems and thus" } { "#comment" = "somewhat security sensitive." } { "OversignHeaders" = "From" } { } { "#comment" = "List domains to use for RFC 6541 DKIM Authorized Third-Party Signatures" } { "#comment" = "(ATPS) (experimental)" } { } { "#comment" = "ATPSDomains example.com" } PK ! �`w� � # lenses/dist/tests/test_bootconf.augnu �[��� (* Module: Test_BootConf Provides unit tests for the <BootConf> lens. *) module Test_bootconf = test BootConf.boot get "boot /bsd -s\n" = { "boot" { "image" = "/bsd" } { "arg" = "-s" } } test BootConf.echo get "echo 42\n" = { "echo" = "42" } test BootConf.ls get "ls /\n" = { "ls" = "/" } test BootConf.ls get "ls //\n" = { "ls" = "//" } test BootConf.ls get "ls /some/path/\n" = { "ls" = "/some/path/" } test BootConf.machine get "machine diskinfo\n" = { "machine" { "diskinfo" } } test BootConf.machine get "machine comaddr 0xdeadbeef\n" = { "machine" { "comaddr" = "0xdeadbeef" } } test BootConf.set get "set tty com0\n" = { "set" { "tty" = "com0" } } test BootConf.single_command get "help\n" = { "help" } test BootConf.stty get "stty /dev/cuaU0 115200\n" = { "stty" { "device" = "/dev/cuaU0" } { "speed" = "115200" } } test BootConf.stty get "stty /dev/cuaU0\n" = { "stty" { "device" = "/dev/cuaU0" } } PK ! � � � # lenses/dist/tests/test_semanage.augnu �[��� (* Module: Test_Semanage Provides unit tests and examples for the <Semanage> lens. *) module Test_Semanage = (* Variable: phony_conf *) let phony_conf = "# this is a comment mykey = myvalue # eol comment anotherkey = another value " (* Test: Semanage.lns *) test Semanage.lns get phony_conf = { "#comment" = "this is a comment" } { } { "mykey" = "myvalue" { "#comment" = "eol comment" } } { "anotherkey" = "another value" } (* Test: Semanage.lns Quotes are OK in variables that do not begin with a quote *) test Semanage.lns get "UserParameter=custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'\n" = { "UserParameter" = "custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'" } (* Test: Semanage.lns Support empty values *) test Semanage.lns get "foo =\n" = { "foo" } (* Variable: conf *) let conf = "module-store = direct module-store = \"source\" #policy-version = 19 expand-check=0 usepasswd=False bzip-small=true bzip-blocksize=5 ignoredirs=/root [sefcontext_compile] path = /usr/sbin/sefcontext_compile args = -r $@ [end] config=test [verify module] test=value [end] " (* Test: Semanage.lns *) test Semanage.lns get conf = { "module-store" = "direct" } { "module-store" = "source" } { } { "#comment" = "policy-version = 19" } { } { "expand-check" = "0" } { } { "usepasswd" = "False" } { "bzip-small" = "true" } { "bzip-blocksize" = "5" } { "ignoredirs" = "/root" } { } { "@group" = "sefcontext_compile" { "path" = "/usr/sbin/sefcontext_compile" } { "args" = "-r $@" } { } } { } { "config" = "test" } { } { "@group" = "verify module" { "test" = "value" } } PK ! �xU� � * lenses/dist/tests/test_authorized_keys.augnu �[��� (* Module: Test_Authorized_Keys Provides unit tests and examples for the <Authorized_Keys> lens. *) module Test_Authorized_Keys = (* Test: Authorized_Keys *) test Authorized_Keys.lns get "tunnel=\"0\",no-agent-forwarding,command=\"sh /etc/netstart tun0\",permitopen=\"192.0.2.1:80\",permitopen=\"192.0.2.2:25\" ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEA3RC8whKGFx+b7BMTFtnIWl6t/qyvOvnuqIrMNI9J8+1sEYv8Y/pJRh0vAe2RaSKAgB2hyzXwSJ1Fh+ooraUAJ+q7P2gg2kQF1nCFeGVjtV9m4ZrV5kZARcQMhp0Bp67tPo2TCtnthPYZS/YQG6u/6Aco1XZjPvuKujAQMGSgqNskhKBO9zfhhkAMIcKVryjKYHDfqbDUCCSNzlwFLts3nJ0Hfno6Hz+XxuBIfKOGjHfbzFyUQ7smYnzF23jFs4XhvnjmIGQJcZT4kQAsRwQubyuyDuqmQXqa+2SuQfkKTaPOlVqyuEWJdG2weIF8g3YP12czsBgNppz3jsnhEgstnQ== rpinson on rpinson\n" = { "key" = "AAAAB3NzaC1yc2EAAAABIwAAAQEA3RC8whKGFx+b7BMTFtnIWl6t/qyvOvnuqIrMNI9J8+1sEYv8Y/pJRh0vAe2RaSKAgB2hyzXwSJ1Fh+ooraUAJ+q7P2gg2kQF1nCFeGVjtV9m4ZrV5kZARcQMhp0Bp67tPo2TCtnthPYZS/YQG6u/6Aco1XZjPvuKujAQMGSgqNskhKBO9zfhhkAMIcKVryjKYHDfqbDUCCSNzlwFLts3nJ0Hfno6Hz+XxuBIfKOGjHfbzFyUQ7smYnzF23jFs4XhvnjmIGQJcZT4kQAsRwQubyuyDuqmQXqa+2SuQfkKTaPOlVqyuEWJdG2weIF8g3YP12czsBgNppz3jsnhEgstnQ==" { "options" { "tunnel" = "0" } { "no-agent-forwarding" } { "command" = "sh /etc/netstart tun0" } { "permitopen" = "192.0.2.1:80" } { "permitopen" = "192.0.2.2:25" } } { "type" = "ssh-rsa" } { "comment" = "rpinson on rpinson" } } (* Variable: keys *) let keys = "# Example keys, one of each type # ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDpWrKYsEsVUyuwMN4ReBN/TMGsaUWzDKDz/uQr6MlNNM95MDK/BPyJ+DiBiNMFVLpRt3gH3eCJBLJKMuUDaTNy5uym2zNgAaAIVct6M2GHI68W3iY3Ja8/MaRPbyTpMh1O74S+McpAW1SGL2YzFchYMjTnu/kOD3lxiWNiDLvdLFZu0wPOi7CYG37VXR4Thb0cC92zqnCjaP1TwfhpEYUZoowElYkoV2vG+19O6cRm/zduYcf8hmegZKB4GFUJTtZ2gZ18XJDSQd0ykK3KPt/+bKskdrtfiOwSZAmUZmd2YuAlY6+CBn1T3UBdQntueukd0z1xhd6SX7Bl8+qyqLQ3 user@example ssh-dsa AAAA user@example ecdsa-sha2-nistp256 AAAA user@example ssh-ed25519 AAAA user@example # Example comments ssh-dsa AAAA ssh-dsa AAAA user@example " (* Test: Authorized_Keys.lns *) test Authorized_Keys.lns get keys = { "#comment" = "Example keys, one of each type" } { } { "key" = "AAAAB3NzaC1yc2EAAAADAQABAAABAQDpWrKYsEsVUyuwMN4ReBN/TMGsaUWzDKDz/uQr6MlNNM95MDK/BPyJ+DiBiNMFVLpRt3gH3eCJBLJKMuUDaTNy5uym2zNgAaAIVct6M2GHI68W3iY3Ja8/MaRPbyTpMh1O74S+McpAW1SGL2YzFchYMjTnu/kOD3lxiWNiDLvdLFZu0wPOi7CYG37VXR4Thb0cC92zqnCjaP1TwfhpEYUZoowElYkoV2vG+19O6cRm/zduYcf8hmegZKB4GFUJTtZ2gZ18XJDSQd0ykK3KPt/+bKskdrtfiOwSZAmUZmd2YuAlY6+CBn1T3UBdQntueukd0z1xhd6SX7Bl8+qyqLQ3" { "type" = "ssh-rsa" } { "comment" = "user@example" } } { "key" = "AAAA" { "type" = "ssh-dsa" } { "comment" = "user@example" } } { "key" = "AAAA" { "type" = "ecdsa-sha2-nistp256" } { "comment" = "user@example" } } { "key" = "AAAA" { "type" = "ssh-ed25519" } { "comment" = "user@example" } } { } { "#comment" = "Example comments" } { "key" = "AAAA" { "type" = "ssh-dsa" } } { "key" = "AAAA" { "type" = "ssh-dsa" } { "comment" = "user@example" } } (* Variable: options *) let options = "# Example options no-pty ssh-dsa AAAA no-pty ssh-ed25519 AAAA no-pty,command=\"foo\" ssh-dsa AAAA no-pty,command=\"foo bar\" ssh-dsa AAAA no-pty,from=\"example.com,10.1.1.0/16\" ssh-dsa AAAA no-pty,environment=\"LANG=en_GB.UTF8\" ssh-dsa AAAA " (* Test: Authorized_Keys.lns *) test Authorized_Keys.lns get options = { "#comment" = "Example options" } { "key" = "AAAA" { "options" { "no-pty" } } { "type" = "ssh-dsa" } } { "key" = "AAAA" { "options" { "no-pty" } } { "type" = "ssh-ed25519" } } { "key" = "AAAA" { "options" { "no-pty" } { "command" = "foo" } } { "type" = "ssh-dsa" } } { "key" = "AAAA" { "options" { "no-pty" } { "command" = "foo bar" } } { "type" = "ssh-dsa" } } { "key" = "AAAA" { "options" { "no-pty" } { "from" = "example.com,10.1.1.0/16" } } { "type" = "ssh-dsa" } } { "key" = "AAAA" { "options" { "no-pty" } { "environment" = "LANG=en_GB.UTF8" } } { "type" = "ssh-dsa" } } (* Test: Authorized_keys.lns GH 165 *) test Authorized_keys.lns get "command=\"echo 'Please login as the user \\\"blaauser\\\" rather than the user \\\"root\\\".';echo;sleep 10\" ssh-rsa DEADBEEF== username1\n" = { "key" = "DEADBEEF==" { "options" { "command" = "echo 'Please login as the user \\\"blaauser\\\" rather than the user \\\"root\\\".';echo;sleep 10" } } { "type" = "ssh-rsa" } { "comment" = "username1" } } PK ! �� ! lenses/dist/tests/test_shadow.augnu �[��� module Test_Shadow = let conf = "root:x:0:0:999999:7::: libuuid:*:0:0:0:::: expired:$6$INVALID:0:0:0:::100: locked:!$6$INVALID:0:0:0:::: " test Shadow.lns get conf = { "root" { "password" = "x" } { "lastchange_date" = "0" } { "minage_days" = "0" } { "maxage_days" = "999999" } { "warn_days" = "7" } { "inactive_days" = "" } { "expire_date" = "" } { "flag" = "" } } { "libuuid" { "password" = "*" } { "lastchange_date" = "0" } { "minage_days" = "0" } { "maxage_days" = "0" } { "warn_days" = "" } { "inactive_days" = "" } { "expire_date" = "" } { "flag" = "" } } { "expired" { "password" = "$6$INVALID" } { "lastchange_date" = "0" } { "minage_days" = "0" } { "maxage_days" = "0" } { "warn_days" = "" } { "inactive_days" = "" } { "expire_date" = "100" } { "flag" = "" } } { "locked" { "password" = "!$6$INVALID" } { "lastchange_date" = "0" } { "minage_days" = "0" } { "maxage_days" = "0" } { "warn_days" = "" } { "inactive_days" = "" } { "expire_date" = "" } { "flag" = "" } } test Shadow.lns get "+\n" = { "@nisdefault" } test Shadow.lns get "+::::::::\n" = { "@nisdefault" { "password" = "" } { "lastchange_date" = "" } { "minage_days" = "" } { "maxage_days" = "" } { "warn_days" = "" } { "inactive_days" = "" } { "expire_date" = "" } { "flag" = "" } } test Shadow.lns put "+\n" after set "@nisdefault/password" ""; set "@nisdefault/lastchange_date" ""; set "@nisdefault/minage_days" ""; set "@nisdefault/maxage_days" ""; set "@nisdefault/warn_days" ""; set "@nisdefault/inactive_days" ""; set "@nisdefault/expire_date" ""; set "@nisdefault/flag" "" = "+::::::::\n" test Shadow.lns put "+::::::::\n" after rm "@nisdefault/password"; rm "@nisdefault/lastchange_date"; rm "@nisdefault/minage_days"; rm "@nisdefault/maxage_days"; rm "@nisdefault/warn_days"; rm "@nisdefault/inactive_days"; rm "@nisdefault/expire_date"; rm "@nisdefault/flag" = "+\n" PK ! Di�� � % lenses/dist/tests/test_jettyrealm.augnu �[��� (* Module: Test_JettyRealm Provides unit tests and examples for the <JettyRealm> lens. *) module Test_JettyRealm = (* Variable: conf *) let conf = "### Comment admin: admin, admin " (* Variable: conf_norealm *) let conf_norealm = "### Comment admin: admin " (* Variable: new_conf *) let new_conf = "### Comment admin: password, admin " let lns = JettyRealm.lns (* Test: JettyRealm.lns * Get test against tree structure *) test lns get conf = { "#comment" = "## Comment" } { "user" { "username" = "admin" } { "password" = "admin" } { "realm" = "admin" } } (* Test: JettyRealm.lns * Get test against tree structure without a realm *) test lns get conf_norealm = { "#comment" = "## Comment" } { "user" { "username" = "admin" } { "password" = "admin" } } (* Test: JettyRealm.lns * Put test changing password to password *) test lns put conf after set "/user/password" "password" = new_conf (* vim: set ts=4 expandtab sw=4: *) PK ! [�l j) j) # lenses/dist/tests/test_tmpfiles.augnu �[��� (* Module: Test_Tmpfiles Provides unit tests and examples for the <Tmpfiles> lens. *) module Test_Tmpfiles = (************************************************************************ * Group: VALID EXAMPLES *************************************************************************) (* Variable: simple One line, simple example *) let simple = "d /run/user 0755 root mysql 10d -\n" (* Variable: simple_tree Tree for <simple> *) let simple_tree = { "1" { "type" = "d" } { "path" = "/run/user" } { "mode" = "0755" } { "uid" = "root" } { "gid" = "mysql" } { "age" = "10d" } { "argument" = "-" } } (* Variable: complex A more complex example, comes from the manual *) let complex = "#Type Path Mode UID GID Age Argument\nd /run/user 0755 root root 10d -\nL /tmp/foobar - - - - /dev/null\n" (* Variable: complex_tree Tree for <complex> and <trailing_ws> *) let complex_tree = { "#comment" = "Type Path Mode UID GID Age Argument" } { "1" { "type" = "d" } { "path" = "/run/user" } { "mode" = "0755" } { "uid" = "root" } { "gid" = "root" } { "age" = "10d" } { "argument" = "-" } } { "2" { "type" = "L" } { "path" = "/tmp/foobar" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "/dev/null" } } (* Variable: trailing_ws The complex example with extra spaces *) let trailing_ws = " #Type Path Mode UID GID Age Argument \n d /run/user 0755 root root 10d - \t\n L /tmp/foobar - - - - /dev/null\t\n" (* Variable: empty Empty example *) let empty = "\n\n\n" (* Variable: exclamation_mark Example with an exclamation mark in the type *) let exclamation_mark = "D! /tmp/foo - - - - -\n" (* Variable: exclamation_mark_tree Tree for <exclamation_mark> *) let exclamation_mark_tree = { "1" { "type" = "D!" } { "path" = "/tmp/foo" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "-" } } (* Variable: minus Example with an minus mark in the type *) let minus = "D- /tmp/foo - - - - -\n" (* Variable: minus_tree Tree for <minus_tree> *) let minus_tree = { "1" { "type" = "D-" } { "path" = "/tmp/foo" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "-" } } (* Variable: short Example with only type and path *) let short = "A+ /tmp/foo\n" (* Variable: short_tree Tree for <short> *) let short_tree = { "1" { "type" = "A+" } { "path" = "/tmp/foo" } } (* Variable: short_mode Example with only 3 fields *) let short_mode = "c+! /tmp/foo ~0755\n" (* Variable: short_mode_tree Tree for <short_mode> *) let short_mode_tree = { "1" { "type" = "c+!" } { "path" = "/tmp/foo" } { "mode" = "~0755" } } (* Variable: short_uid Example with only 4 fields *) let short_uid = "A+ /tmp/foo - 0\n" (* Variable: short_uid_tree Tree for <short_uid> *) let short_uid_tree = { "1" { "type" = "A+" } { "path" = "/tmp/foo" } { "mode" = "-" } { "uid" = "0" } } (* Variable: short_gid Example with only 5 fields *) let short_gid = "z /tmp/bar/foo -\t- augd\n" (* Variable: short_gid_tree Tree for <short_gid> *) let short_gid_tree = { "1" { "type" = "z" } { "path" = "/tmp/bar/foo" } { "mode" = "-" } { "uid" = "-" } { "gid" = "augd" } } (* Variable: short_age Example with only 6 fields *) let short_age = "H /var/tmp/fooBarFOO - jj jj ~10d\n" (* Variable: short_age_tree Tree for <short_age> *) let short_age_tree = { "1" { "type" = "H" } { "path" = "/var/tmp/fooBarFOO" } { "mode" = "-" } { "uid" = "jj" } { "gid" = "jj" } { "age" = "~10d" } } (* Variable: complex_arg Complex argument example. That one comes from the manual *) let complex_arg = "t /run/screen - - - - user.name=\"John Smith\" security.SMACK64=screen\n" (* Variable: complex_arg_tree Tree for <complex_arg> *) let complex_arg_tree = { "1" { "type" = "t" } { "path" = "/run/screen" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "user.name=\"John Smith\" security.SMACK64=screen" } } (* Variable: valid_short_args A short argument value example. *) let valid_short_args = "h /var/log/journal - - - - C\nh /var/log/journal - - - - +C\n" (* Variable: valid_short_args_tree Tree for <valid_short_args> *) let valid_short_args_tree = { "1" { "type" = "h" } { "path" = "/var/log/journal" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "C" } } { "2" { "type" = "h" } { "path" = "/var/log/journal" } { "mode" = "-" } { "uid" = "-" } { "gid" = "-" } { "age" = "-" } { "argument" = "+C" } } (* Variable: valid_age Example with a complex age. *) let valid_age = "v /var/tmp/js 4221 johnsmith - ~10d12h\n" (* Variable: valid_age_tree Tree for <valid_age> *) let valid_age_tree = { "1" { "type" = "v" } { "path" = "/var/tmp/js" } { "mode" = "4221" } { "uid" = "johnsmith" } { "gid" = "-" } { "age" = "~10d12h" } } (* Variable: valid_second Example with full age unit *) let valid_second = "p+ /var/tmp - jsmith - 0second\n" (* Variable: valid_second_tree Tree for <valid_second> *) let valid_second_tree = { "1" { "type" = "p+" } { "path" = "/var/tmp" } { "mode" = "-" } { "uid" = "jsmith" } { "gid" = "-" } { "age" = "0second" } } (* Variable: valid_days Example with full age unit (plural) *) let valid_days = "x /var/tmp/manu - jonhsmith - 9days\n" (* Variable: valid_days_tree Tree for <valid_days> *) let valid_days_tree = { "1" { "type" = "x" } { "path" = "/var/tmp/manu" } { "mode" = "-" } { "uid" = "jonhsmith" } { "gid" = "-" } { "age" = "9days" } } (* Variable: percent Test with a percent sign *) let percent = "m /var/log/%m 2755 root systemdjournal - -\n" (* Variable: percent_tree Tree for <percent> *) let percent_tree = { "1" { "type" = "m" } { "path" = "/var/log/%m" } { "mode" = "2755" } { "uid" = "root" } { "gid" = "systemdjournal" } { "age" = "-" } { "argument" = "-" } } (* Variable: hyphen Test with a hyphen in gid *) let hyphen = "L /var/log/journal 2755 root systemd-journal - -\n" (* Variable: hyphen_tree Tree for <hyphen> *) let hyphen_tree = { "1" { "type" = "L" } { "path" = "/var/log/journal" } { "mode" = "2755" } { "uid" = "root" } { "gid" = "systemd-journal" } { "age" = "-" } { "argument" = "-" } } (* Variable: valid_base A valid test to be re-used by the failure cases *) let valid_base = "H /var/tmp/js 0000 jonhsmith 60 1s foo\n" (* Variable: valid_base_tree Tree for <valid_base> *) let valid_base_tree = { "1" { "type" = "H" } { "path" = "/var/tmp/js" } { "mode" = "0000" } { "uid" = "jonhsmith" } { "gid" = "60" } { "age" = "1s" } { "argument" = "foo" } } (* Variable: mode3 Mode field example with only three digits *) let mode3 = "c+! /tmp/foo 755\n" (* Variable: mode3_tree Tree for <mode3> *) let mode3_tree = { "1" { "type" = "c+!" } { "path" = "/tmp/foo" } { "mode" = "755" } } (************************************************************************ * Group: INVALID EXAMPLES *************************************************************************) (* Variable: invalid_too_short Invalid example that do not contain path *) let invalid_too_short = "H\n" (* Variable: invalid_age Invalid example that contain invalid age *) let invalid_age = "H /var/tmp/js 0000 jonhsmith 60 1sss foo\n" (* Variable: invalid_type Invalid example that contain invalid type (bad letter) *) let invalid_type = "i /var/tmp/js 0000 jonhsmith 60 1s foo\n" (* Variable: invalid_type_num Invalid example that contain invalid type (numeric) *) let invalid_type_num = "1 /var/tmp/js 0000 jonhsmith 60 1s foo\n" (* Variable: invalid_mode Invalid example that contain invalid mode (bad int) *) let invalid_mode = "H /var/tmp/js 8000 jonhsmith 60 1s foo\n" (* Variable: invalid_mode_alpha Invalid example that contain invalid mode (letter) *) let invalid_mode_alpha = "H /var/tmp/js a000 jonhsmith 60 1s foo\n" test Tmpfiles.lns get simple = simple_tree test Tmpfiles.lns get complex = complex_tree test Tmpfiles.lns get trailing_ws = complex_tree test Tmpfiles.lns get empty = {}{}{} test Tmpfiles.lns get exclamation_mark = exclamation_mark_tree test Tmpfiles.lns get minus = minus_tree test Tmpfiles.lns get short = short_tree test Tmpfiles.lns get short_mode = short_mode_tree test Tmpfiles.lns get short_uid = short_uid_tree test Tmpfiles.lns get short_gid = short_gid_tree test Tmpfiles.lns get short_age = short_age_tree test Tmpfiles.lns get complex_arg = complex_arg_tree test Tmpfiles.lns get valid_short_args = valid_short_args_tree test Tmpfiles.lns get valid_second = valid_second_tree test Tmpfiles.lns get valid_days = valid_days_tree test Tmpfiles.lns get valid_age = valid_age_tree test Tmpfiles.lns get percent = percent_tree test Tmpfiles.lns get hyphen = hyphen_tree test Tmpfiles.lns get valid_base = valid_base_tree test Tmpfiles.lns get mode3 = mode3_tree (* failure cases *) test Tmpfiles.lns get invalid_too_short = * test Tmpfiles.lns get invalid_age = * test Tmpfiles.lns get invalid_type = * test Tmpfiles.lns get invalid_type_num = * test Tmpfiles.lns get invalid_mode = * test Tmpfiles.lns get invalid_mode_alpha = * (* Local Variables: *) (* mode: caml *) (* End: *) PK ! ��W�� � $ lenses/dist/tests/test_memcached.augnu �[��� (* Module: Test_Memcached Provides unit tests and examples for the <Memcached> lens. *) module Test_Memcached = let conf = "# memcached default config file # Run memcached as a daemon. This command is implied, and is not needed for the # daemon to run. See the README.Debian that comes with this package for more # information. -d -l 127.0.0.1 # Log memcached's output to /var/log/memcached logfile /var/log/memcached.log # Default connection port is 11211 -p 11211 -m 64 # Start with a cap of 64 megs of memory. -M " test Memcached.lns get conf = { "#comment" = "memcached default config file" } { } { "#comment" = "Run memcached as a daemon. This command is implied, and is not needed for the" } { "#comment" = "daemon to run. See the README.Debian that comes with this package for more" } { "#comment" = "information." } { "d" } { "l" = "127.0.0.1" } { } { "#comment" = "Log memcached's output to /var/log/memcached" } { "logfile" = "/var/log/memcached.log" } { } { "#comment" = "Default connection port is 11211" } { "p" = "11211" } { "m" = "64" { "#comment" = "Start with a cap of 64 megs of memory." } } { "M" } PK ! & �� � # lenses/dist/tests/test_dhclient.augnu �[��� module Test_dhclient = let conf =" # Sample dhclient.conf # Protocol timing timeout 3; # Expect a fast server retry 10; # Lease requirements and requests request subnet-mask, broadcast-address, ntp-servers; # Dynamic DNS send fqdn.fqdn \"grosse.fugue.com.\"; option rfc3442-classless-static-routes code 121 = array of unsigned integer 8; interface ep0 { script /sbin/dhclient-script; send dhcp-client-identifier 1:0:a0:24:ab:fb:9c; send dhcp-lease-time 3600; request subnet-mask, broadcast-address, time-offset, routers, domain-name, domain-name-servers, host-name; media media10baseT/UTP, \"media10base2/BNC\"; } alias { interface \"ep0\"; fixed-address 192.5.5.213; option subnet-mask 255.255.255.255; } lease { interface \"eth0\"; fixed-address 192.33.137.200; medium \"link0 link1\"; vendor option space \"name\"; option host-name \"andare.swiftmedia.com\"; option subnet-mask 255.255.255.0; option broadcast-address 192.33.137.255; option routers 192.33.137.250; option domain-name-servers 127.0.0.1; renew 2 2000/1/12 00:00:01; rebind 2 2000/1/12 00:00:01; expire 2 2000/1/12 00:00:01; } " test Dhclient.lns get conf = { "#comment" = "Sample dhclient.conf" } { "#comment" = "Protocol timing" } { "timeout" = "3" { "#comment" = "Expect a fast server" } } { "retry" = "10" } { "#comment" = "Lease requirements and requests" } { "request" { "1" = "subnet-mask" } { "2" = "broadcast-address" } { "3" = "ntp-servers" } } { "#comment" = "Dynamic DNS" } { "send" { "fqdn.fqdn" = "\"grosse.fugue.com.\"" } } {} { "option" { "rfc3442-classless-static-routes" { "code" = "121" } { "value" = "array of unsigned integer 8" } } } {} { "interface" = "ep0" { "script" = "/sbin/dhclient-script" } { "send" { "dhcp-client-identifier" = "1:0:a0:24:ab:fb:9c" } } { "send" { "dhcp-lease-time" = "3600" } } { "request" { "1" = "subnet-mask" } { "2" = "broadcast-address" } { "3" = "time-offset" } { "4" = "routers" } { "5" = "domain-name" } { "6" = "domain-name-servers" } { "7" = "host-name" } } { "media" { "1" = "media10baseT/UTP" } { "2" = "\"media10base2/BNC\"" } } } {} { "alias" { "interface" = "\"ep0\"" } { "fixed-address" = "192.5.5.213" } { "option" { "subnet-mask" = "255.255.255.255" } } } {} { "lease" { "interface" = "\"eth0\"" } { "fixed-address" = "192.33.137.200" } { "medium" = "\"link0 link1\"" } { "vendor option space" = "\"name\"" } { "option" { "host-name" = "\"andare.swiftmedia.com\"" } } { "option" { "subnet-mask" = "255.255.255.0" } } { "option" { "broadcast-address" = "192.33.137.255" } } { "option" { "routers" = "192.33.137.250" } } { "option" { "domain-name-servers" = "127.0.0.1" } } { "renew" { "weekday" = "2" } { "year" = "2000" } { "month" = "1" } { "day" = "12" } { "hour" = "00" } { "minute" = "00" } { "second" = "01" } } { "rebind" { "weekday" = "2" } { "year" = "2000" } { "month" = "1" } { "day" = "12" } { "hour" = "00" } { "minute" = "00" } { "second" = "01" } } { "expire" { "weekday" = "2" } { "year" = "2000" } { "month" = "1" } { "day" = "12" } { "hour" = "00" } { "minute" = "00" } { "second" = "01" } } } test Dhclient.lns get "append domain-name-servers 127.0.0.1;\n" = { "append" { "domain-name-servers" = "127.0.0.1" } } test Dhclient.lns put "" after set "/prepend/domain-name-servers" "127.0.0.1" = "prepend domain-name-servers 127.0.0.1;\n" (* When = is used before the value, it's an evaluated string, see dhcp-eval *) test Dhclient.lns get "send dhcp-client-identifier = hardware;\n" = { "send" { "dhcp-client-identifier" { "#eval" = "hardware" } } } test Dhclient.lns put "send host-name = gethostname();\n" after set "/send/host-name/#eval" "test" = "send host-name = test;\n" PK ! @;�� % lenses/dist/tests/test_device_map.augnu �[��� module Test_device_map = let conf = "# this device map was generated by anaconda (fd0) /dev/fda (hd0) /dev/sda (cd0) /dev/cdrom (hd1,1) /dev/sdb1 (hd0,a) /dev/sda1 (0x80) /dev/sda (128) /dev/sda " test Device_map.lns get conf = { "#comment" = "this device map was generated by anaconda" } { "fd0" = "/dev/fda" } { "hd0" = "/dev/sda" } { "cd0" = "/dev/cdrom" } { "hd1,1" = "/dev/sdb1" } { "hd0,a" = "/dev/sda1" } { "0x80" = "/dev/sda" } { "128" = "/dev/sda" } test Device_map.lns put conf after set "hd2\,1" "/dev/sdb1" = "# this device map was generated by anaconda (fd0) /dev/fda (hd0) /dev/sda (cd0) /dev/cdrom (hd1,1) /dev/sdb1 (hd0,a) /dev/sda1 (0x80) /dev/sda (128) /dev/sda (hd2,1)\t/dev/sdb1 " PK ! Ϙ��� � * lenses/dist/tests/test_postfix_virtual.augnu �[��� (* Module: Test_Postfix_Virtual Provides unit tests and examples for the <Postfix_Virtual> lens. *) module Test_Postfix_Virtual = (* View: conf *) let conf = "# a comment virtual-alias.domain anything postmaster@virtual-alias.domain postmaster user1@virtual-alias.domain address1 user2@virtual-alias.domain address2, address3 root robert.oot@domain.com @example.net root,postmaster postmaster mtaadmin+root=mta1 some_user localuser " (* Test: Postfix_Virtual.lns *) test Postfix_Virtual.lns get conf = { "#comment" = "a comment" } { "pattern" = "virtual-alias.domain" { "destination" = "anything" } } { "pattern" = "postmaster@virtual-alias.domain" { "destination" = "postmaster" } } { "pattern" = "user1@virtual-alias.domain" { "destination" = "address1" } } { "pattern" = "user2@virtual-alias.domain" { "destination" = "address2" } { "destination" = "address3" } } { "pattern" = "root" { "destination" = "robert.oot@domain.com" } } { "pattern" = "@example.net" { "destination" = "root" } { "destination" = "postmaster" } } { "pattern" = "postmaster" { "destination" = "mtaadmin+root=mta1" } } { "pattern" = "some_user" { "destination" = "localuser" } } PK ! j4s� � # lenses/dist/tests/test_cgconfig.augnu �[��� module Test_cgconfig = let conf="#cgconfig test cofiguration file mount { 123 = 456; 456 = 789;} " test Cgconfig.lns get conf = { "#comment" = "cgconfig test cofiguration file" } { "mount" { "123" = "456" } { "456" = "789" } } {} (* white spaces before mount sign *) let conf2=" mount { 123 = 456;} mount { 123 = 456;} mount { 123 = 456;}mount { 123 = 456;} " test Cgconfig.lns get conf2 = { } { "mount" { "123" = "456"} } { } { "mount" { "123" = "456"} } { } { } { "mount" { "123" = "456"} } { "mount" { "123" = "456" } } { } let conf3="#cgconfig test cofiguration file mount { 123 = 456; #eswkh 456 = 789;} " test Cgconfig.lns get conf3 = { "#comment" = "cgconfig test cofiguration file" } { "mount" { "123" = "456" } {} { "#comment" = "eswkh" } { "456" = "789" } } {} let conf4="#cgconfig test cofiguration file mount { 123 = 456;1245=456; } mount { 323=324;}mount{324=5343; }# this is a comment " test Cgconfig.lns get conf4 = {"#comment" = "cgconfig test cofiguration file" } {"mount" { } { "123" = "456"} { "1245" = "456" } { }} { } { "mount" { "323" = "324" } } { "mount" { "324" = "5343" } } { "#comment" = "this is a comment" } let group1=" group user { cpuacct { lll = jjj; } cpu { } }" test Cgconfig.lns get group1 = { } { "group" = "user" { } { "controller" = "cpuacct" { } { "lll" = "jjj" } { } } { } { "controller" = "cpu" { } } { } } let group2=" group aa-1{ perm { task { } admin { } } }" test Cgconfig.lns get group2 = { } { "group" = "aa-1" { } { "perm" { } { "task" } { } { "admin" } { } } { } } let group3 =" group xx/www { perm { task { gid = root; uid = root; } admin { gid = aaa; # no aaa uid = aaa; } } } " test Cgconfig.lns get group3 = { } { "group" = "xx/www" { } { "perm" { } { "task" { } { "gid" = "root" } { } { "uid" = "root" } { } } { } { "admin" { } { "gid" = "aaa" } { } { "#comment" = "no aaa" } { "uid" = "aaa" } { } } { } } { } } { } let group4 =" #group daemons { # cpuacct{ # } #} group daemons/ftp { cpuacct{ } } group daemons/www { perm { task { uid = root; gid = root; } admin { uid = root; gid = root; } } # cpu { # cpu.shares = 1000; # } } # # mount { devices = /mnt/cgroups/devices;cpuacct = /mnt/cgroups/cpuset; cpuset = /mnt/cgroups/cpuset; cpu = /mnt/cpu; # cpuset = /mnt/cgroups/cpuset2; } mount { devices = /mnt/cgroups/devices; # cpuacct = /mnt/cgroups/cpuacct; ns = /mnt/cgroups/ns; # } " test Cgconfig.lns get group4 = { } { "#comment" = "group daemons {" } { "#comment" = "cpuacct{" } { "#comment" = "}" } { "#comment" = "}" } { } { "group" = "daemons/ftp" { } { "controller" = "cpuacct" { } } { } } { } { } { "group" = "daemons/www" { } { "perm" { } { "task" { } { "uid" = "root" } { } { "gid" = "root" } { } } { } { "admin" { } { "uid" = "root" } { } { "gid" = "root" } { } } { } } { } { "#comment" = "cpu {" } { "#comment" = "cpu.shares = 1000;" } { "#comment" = "}" } } { } { } { } { } { "mount" { } { "devices" = "/mnt/cgroups/devices" } { "cpuacct" = "/mnt/cgroups/cpuset" } { } { "cpuset" = "/mnt/cgroups/cpuset" } { } { } { } { "cpu" = "/mnt/cpu" } { } { "#comment" = "cpuset = /mnt/cgroups/cpuset2;" } } { } { "mount" { } { "devices" = "/mnt/cgroups/devices" } { } { "#comment" = "cpuacct = /mnt/cgroups/cpuacct;" } { "ns" = "/mnt/cgroups/ns" } { } { } } { } { } test Cgconfig.lns put "group tst {memory {}}" after set "/group" "tst2" = "group tst2 {memory {}}" let group5=" group user { cpuacct {} cpu {} cpuset {} devices {} freezer {} memory {} net_cls {} blkio {} hugetlb {} perf_event {} }" test Cgconfig.lns get group5 = { } { "group" = "user" { } { "controller" = "cpuacct" } { } { "controller" = "cpu" } { } { "controller" = "cpuset" } { } { "controller" = "devices" } { } { "controller" = "freezer" } { } { "controller" = "memory" } { } { "controller" = "net_cls" } { } { "controller" = "blkio" } { } { "controller" = "hugetlb" } { } { "controller" = "perf_event" } { } } (* quoted controller parameter whitespace *) let group6=" group blklimit { blkio { blkio.throttle.read_iops_device=\"8:0 50\"; } }" test Cgconfig.lns get group6 = { } { "group" = "blklimit" { } { "controller" = "blkio" { } { "blkio.throttle.read_iops_device" = "\"8:0 50\"" } { } } { } } let group7 =" group daemons/www { perm { task { uid = root; gid = root; fperm = 770; } admin { uid = root; gid = root; dperm = 777; } } } " test Cgconfig.lns get group7 = { } { "group" = "daemons/www" { } { "perm" { } { "task" { } { "uid" = "root" } { } { "gid" = "root" } { } { "fperm" = "770" } { } } { } { "admin" { } { "uid" = "root" } { } { "gid" = "root" } { } { "dperm" = "777" } { } } { } } { } } { } PK ! eBN*� � ' lenses/dist/tests/test_masterpasswd.augnu �[��� module Test_MasterPasswd = let conf = "root:*:0:0:daemon:0:0:Charlie &:/root:/bin/ksh sshd:*:27:27::0:0:sshd privsep:/var/empty:/sbin/nologin _portmap:*:28:28::0:0:portmap:/var/empty:/sbin/nologin test:x:1000:1000:ldap:1434329080:1434933880:Test User,,,:/home/test:/bin/bash " test MasterPasswd.lns get conf = { "root" { "password" = "*" } { "uid" = "0" } { "gid" = "0" } { "class" = "daemon" } { "change_date" = "0" } { "expire_date" = "0" } { "name" = "Charlie &" } { "home" = "/root" } { "shell" = "/bin/ksh" } } { "sshd" { "password" = "*" } { "uid" = "27" } { "gid" = "27" } { "class" } { "change_date" = "0" } { "expire_date" = "0" } { "name" = "sshd privsep" } { "home" = "/var/empty" } { "shell" = "/sbin/nologin" } } { "_portmap" { "password" = "*" } { "uid" = "28" } { "gid" = "28" } { "class" } { "change_date" = "0" } { "expire_date" = "0" } { "name" = "portmap" } { "home" = "/var/empty" } { "shell" = "/sbin/nologin" } } { "test" { "password" = "x" } { "uid" = "1000" } { "gid" = "1000" } { "class" = "ldap" } { "change_date" = "1434329080" } { "expire_date" = "1434933880" } { "name" = "Test User,,," } { "home" = "/home/test" } { "shell" = "/bin/bash" } } (* Popular on Solaris *) test MasterPasswd.lns get "+@some-nis-group:::::::::\n" = { "@nis" = "some-nis-group" } test MasterPasswd.lns get "+\n" = { "@nisdefault" } test MasterPasswd.lns get "+:::::::::\n" = { "@nisdefault" { "password" = "" } { "uid" = "" } { "gid" = "" } { "class" } { "change_date" = "" } { "expire_date" = "" } { "name" } { "home" } { "shell" } } test MasterPasswd.lns get "+:::::::::/sbin/nologin\n" = { "@nisdefault" { "password" = "" } { "uid" = "" } { "gid" = "" } { "class" } { "change_date" = "" } { "expire_date" = "" } { "name" } { "home" } { "shell" = "/sbin/nologin" } } test MasterPasswd.lns get "+:*:::ldap:::::\n" = { "@nisdefault" { "password" = "*" } { "uid" = "" } { "gid" = "" } { "class" = "ldap" } { "change_date" = "" } { "expire_date" = "" } { "name" } { "home" } { "shell" } } (* NIS entries with overrides, ticket #339 *) test MasterPasswd.lns get "+@bob::::::::/home/bob:/bin/bash\n" = { "@nis" = "bob" { "home" = "/home/bob" } { "shell" = "/bin/bash" } } (* NIS user entries *) test MasterPasswd.lns get "+bob:::::::::\n" = { "@+nisuser" = "bob" } test MasterPasswd.lns get "+bob:::::::User Comment:/home/bob:/bin/bash\n" = { "@+nisuser" = "bob" { "name" = "User Comment" } { "home" = "/home/bob" } { "shell" = "/bin/bash" } } test MasterPasswd.lns put "+bob:::::::::\n" after set "@+nisuser" "alice" = "+alice:::::::::\n" test MasterPasswd.lns put "+bob:::::::::\n" after set "@+nisuser/name" "User Comment"; set "@+nisuser/home" "/home/bob"; set "@+nisuser/shell" "/bin/bash" = "+bob:::::::User Comment:/home/bob:/bin/bash\n" test MasterPasswd.lns get "-bob:::::::::\n" = { "@-nisuser" = "bob" } test MasterPasswd.lns put "-bob:::::::::\n" after set "@-nisuser" "alice" = "-alice:::::::::\n" PK ! ?ױK�" �" lenses/dist/tests/test_redis.augnu �[��� (* Module: Test_Redis Provides unit tests and examples for the <Redis> lens. *) module Test_Redis = let standard_entry = "dir /var/lib/redis\n" test Redis.lns get standard_entry = { "dir" = "/var/lib/redis" } let double_quoted_entry = "dir \"/var/lib/redis\"\n" test Redis.lns get double_quoted_entry = { "dir" = "/var/lib/redis" } let single_quoted_entry = "dir '/var/lib/redis'\n" test Redis.lns get single_quoted_entry = { "dir" = "/var/lib/redis" } let extra_whitespace_entry = " dir /var/lib/redis \n" test Redis.lns get extra_whitespace_entry = { "dir" = "/var/lib/redis" } let save_entry = "save 60 10000\n" test Redis.lns get save_entry = { "save" { "seconds" = "60" } { "keys" = "10000" } } let save_entry_quotes = "save '60' \"10000\"\n" test Redis.lns get save_entry_quotes = { "save" { "seconds" = "60" } { "keys" = "10000" } } let replicaof_entry = "slaveof 192.168.0.10 6379\nreplicaof 192.168.0.11 6380\n" test Redis.lns get replicaof_entry = { "slaveof" { "ip" = "192.168.0.10" } { "port" = "6379" } } { "replicaof" { "ip" = "192.168.0.11" } { "port" = "6380" } } let rename_command_entry = "rename-command CONFIG CONFIG2\n" test Redis.lns get rename_command_entry = { "rename-command" { "from" = "CONFIG" } { "to" = "CONFIG2" } } let client_output_buffer_limit_entry_1 = "client-output-buffer-limit normal 0 0 0\n" test Redis.lns get client_output_buffer_limit_entry_1 = { "client-output-buffer-limit" { "class" = "normal" } { "hard_limit" = "0" } { "soft_limit" = "0" } { "soft_seconds" = "0" } } let client_output_buffer_limit_entry_2 = "client-output-buffer-limit slave 256mb 64mb 60\n" test Redis.lns get client_output_buffer_limit_entry_2 = { "client-output-buffer-limit" { "class" = "slave" } { "hard_limit" = "256mb" } { "soft_limit" = "64mb" } { "soft_seconds" = "60" } } let include_entry = "include /foo/redis.conf\ninclude /bar/redis.conf\n" test Redis.lns get include_entry = { "include" = "/foo/redis.conf" } { "include" = "/bar/redis.conf" } let standard_comment = "# a comment\n" test Redis.lns get standard_comment = { "#comment" = "a comment" } let extra_whitespace_comment = " # another comment \n" test Redis.lns get extra_whitespace_comment = { "#comment" = "another comment" } let redis_conf = "# Redis configuration file example # Note on units: when memory size is needed, it is possible to specify # it in the usual form of 1k 5GB 4M and so forth: # # 1k => 1000 bytes # 1kb => 1024 bytes # 1m => 1000000 bytes # 1mb => 1024*1024 bytes # 1g => 1000000000 bytes # 1gb => 1024*1024*1024 bytes # # units are case insensitive so 1GB 1Gb 1gB are all the same. # By default Redis does not run as a daemon. Use 'yes' if you need it. # Note that Redis will write a pid file in /var/run/redis.pid when daemonized. daemonize yes # When running daemonized, Redis writes a pid file in /var/run/redis.pid by # default. You can specify a custom pid file location here. pidfile /var/run/redis/redis-server.pid # Accept connections on the specified port, default is 6379. # If port 0 is specified Redis will not listen on a TCP socket. port 6379 # If you want you can bind a single interface, if the bind option is not # specified all the interfaces will listen for incoming connections. # bind 127.0.0.1 # Note: you can disable saving at all commenting all the \"save\" lines. save 900 1 save 300 10 save 60 10000 # Include one or more other config files here. This is useful if you # have a standard template that goes to all redis server but also need # to customize a few per-server settings. Include files can include # other files, so use this wisely. # include /path/to/local.conf include /path/to/other.conf " test Redis.lns get redis_conf = { "#comment" = "Redis configuration file example" } { } { "#comment" = "Note on units: when memory size is needed, it is possible to specify" } { "#comment" = "it in the usual form of 1k 5GB 4M and so forth:" } { } { "#comment" = "1k => 1000 bytes" } { "#comment" = "1kb => 1024 bytes" } { "#comment" = "1m => 1000000 bytes" } { "#comment" = "1mb => 1024*1024 bytes" } { "#comment" = "1g => 1000000000 bytes" } { "#comment" = "1gb => 1024*1024*1024 bytes" } { } { "#comment" = "units are case insensitive so 1GB 1Gb 1gB are all the same." } { } { "#comment" = "By default Redis does not run as a daemon. Use 'yes' if you need it." } { "#comment" = "Note that Redis will write a pid file in /var/run/redis.pid when daemonized." } { "daemonize" = "yes" } { } { "#comment" = "When running daemonized, Redis writes a pid file in /var/run/redis.pid by" } { "#comment" = "default. You can specify a custom pid file location here." } { "pidfile" = "/var/run/redis/redis-server.pid" } { } { "#comment" = "Accept connections on the specified port, default is 6379." } { "#comment" = "If port 0 is specified Redis will not listen on a TCP socket." } { "port" = "6379" } { } { "#comment" = "If you want you can bind a single interface, if the bind option is not" } { "#comment" = "specified all the interfaces will listen for incoming connections." } { } { "bind" { "ip" = "127.0.0.1" } } { } { "#comment" = "Note: you can disable saving at all commenting all the \"save\" lines." } { } { "save" { "seconds" = "900" } { "keys" = "1" } } { "save" { "seconds" = "300" } { "keys" = "10" } } { "save" { "seconds" = "60" } { "keys" = "10000" } } { } { "#comment" = "Include one or more other config files here. This is useful if you" } { "#comment" = "have a standard template that goes to all redis server but also need" } { "#comment" = "to customize a few per-server settings. Include files can include" } { "#comment" = "other files, so use this wisely." } { } { "include" = "/path/to/local.conf" } { "include" = "/path/to/other.conf" } (* Test: Redis.lns Empty value (GH issue #115) *) test Redis.lns get "notify-keyspace-events \"\"\n" = { "notify-keyspace-events" = "" } (* Test: Redis.lns Multiple bind IP addresses (GH issue #194) *) test Redis.lns get "bind 127.0.0.1 \"::1\" 192.168.1.1\n" = { "bind" { "ip" = "127.0.0.1" } { "ip" = "::1" } { "ip" = "192.168.1.1" } } test Redis.lns get "bind 127.0.0.1\n bind 192.168.1.1\n" = { "bind" { "ip" = "127.0.0.1" } } { "bind" { "ip" = "192.168.1.1" } } let sentinel_conf = "sentinel myid ccae7d051dfaa62078cb3ac3dec100240e637d5a sentinel deny-scripts-reconfig yes sentinel monitor Master 8.8.8.8 6379 2 sentinel monitor Othercluster 1.1.1.1 6380 4 sentinel config-epoch Master 693 sentinel leader-epoch Master 691 sentinel known-replica Master 4.4.4.4 6379 sentinel known-replica Master 1.1.1.1 6379 sentinel known-sentinel Master 4.4.4.4 26379 9bbd89f3846b5366f7da4d20b516fdc3f5c3a993 sentinel known-sentinel Master 1.1.1.1 26379 f435adae0efeb9d5841712d05d7399f7584f333b sentinel known-sentinel Othercluster 4.4.4.4 26379 9bbd89f3846b5366f7da4d20b516fdc3f5c3a993 sentinel known-sentinel Othercluster 1.1.1.1 26379 f435adae0efeb9d5841712d05d7399f7584f333b sentinel current-epoch 693 " test Redis.lns get sentinel_conf = { "sentinel" = "myid" { "value" = "ccae7d051dfaa62078cb3ac3dec100240e637d5a" } } { "sentinel" = "deny-scripts-reconfig" { "value" = "yes" } } { "sentinel" = "monitor" { "cluster" = "Master" } { "ip" = "8.8.8.8" } { "port" = "6379" } { "quorum" = "2" } } { "sentinel" = "monitor" { "cluster" = "Othercluster" } { "ip" = "1.1.1.1" } { "port" = "6380" } { "quorum" = "4" } } { "sentinel" = "config-epoch" { "cluster" = "Master" } { "epoch" = "693" } } { "sentinel" = "leader-epoch" { "cluster" = "Master" } { "epoch" = "691" } } { "sentinel" = "known-replica" { "cluster" = "Master" } { "ip" = "4.4.4.4" } { "port" = "6379" } } { "sentinel" = "known-replica" { "cluster" = "Master" } { "ip" = "1.1.1.1" } { "port" = "6379" } } { "sentinel" = "known-sentinel" { "cluster" = "Master" } { "ip" = "4.4.4.4" } { "port" = "26379" } { "id" = "9bbd89f3846b5366f7da4d20b516fdc3f5c3a993" } } { "sentinel" = "known-sentinel" { "cluster" = "Master" } { "ip" = "1.1.1.1" } { "port" = "26379" } { "id" = "f435adae0efeb9d5841712d05d7399f7584f333b" } } { "sentinel" = "known-sentinel" { "cluster" = "Othercluster" } { "ip" = "4.4.4.4" } { "port" = "26379" } { "id" = "9bbd89f3846b5366f7da4d20b516fdc3f5c3a993" } } { "sentinel" = "known-sentinel" { "cluster" = "Othercluster" } { "ip" = "1.1.1.1" } { "port" = "26379" } { "id" = "f435adae0efeb9d5841712d05d7399f7584f333b" } } { "sentinel" = "current-epoch" { "value" = "693" } } PK ! �S�@? ? " lenses/dist/tests/test_darkice.augnu �[��� module Test_darkice = let conf = "# this is a comment [general] duration = 0 bufferSecs = 5 # size of internal slip buffer, in seconds [icecast2-0] bitrateMode=cbr format = vorbis " test Darkice.lns get conf = { "#comment" = "this is a comment" } {} { "target" = "general" { "duration" = "0" } { "bufferSecs" = "5" { "#comment" = "size of internal slip buffer, in seconds" } } {} } { "target" = "icecast2-0" { "bitrateMode" = "cbr" } { "format" = "vorbis" } } PK ! hw�� � $ lenses/dist/tests/test_pgbouncer.augnu �[��� module Test_Pgbouncer = let pgconfig =";; database name = connect string ;; ;; connect string params: ;; dbname= host= port= user= password= [databases] ; foodb over unix socket foodb = ; redirect bardb to bazdb on localhost bardb = host=localhost dbname=bazdb ; acceess to dest database will go with single user forcedb = host=127.0.0.1 port=300 user=baz password=foo client_encoding=UNICODE datestyle=ISO connect_query='SELECT 1' [pgbouncer] ;;; Administrative settings logfile = /var/log/pgbouncer/pgbouncer.log pidfile = /var/run/pgbouncer/pgbouncer.pid ; ip address or * which means all ip-s listen_addr = 127.0.0.1 listen_port = 6432 ;auth_file = /8.0/main/global/pg_auth auth_file = /var/lib/pgsql/data/global/pg_auth admin_users = postgres server_reset_query = DISCARD ALL " test Pgbouncer.lns get pgconfig = { "#comment" = "; database name = connect string" } { "#comment" = ";" } { "#comment" = "; connect string params:" } { "#comment" = "; dbname= host= port= user= password=" } { "databases" { "#comment" = "foodb over unix socket" } { "foodb" } { } { "#comment" = "redirect bardb to bazdb on localhost" } { "bardb" = "host=localhost dbname=bazdb" } { } { "#comment" = "acceess to dest database will go with single user" } { "forcedb" = "host=127.0.0.1 port=300 user=baz password=foo client_encoding=UNICODE datestyle=ISO connect_query='SELECT 1'" } } { "pgbouncer" { "#comment" = ";; Administrative settings" } { "logfile" = "/var/log/pgbouncer/pgbouncer.log" } { "pidfile" = "/var/run/pgbouncer/pgbouncer.pid" } { "#comment" = "ip address or * which means all ip-s" } { "listen_addr" = "127.0.0.1" } { "listen_port" = "6432" } { "#comment" = "auth_file = /8.0/main/global/pg_auth" } { "auth_file" = "/var/lib/pgsql/data/global/pg_auth" } { "admin_users" = "postgres" } { "server_reset_query" = "DISCARD ALL" } } PK ! si��� � , lenses/dist/tests/test_postfix_transport.augnu �[��� (* Module: Test_Postfix_Transport Provides unit tests and examples for the <Postfix_Transport> lens. *) module Test_Postfix_Transport = (* View: conf *) let conf = "# a comment the.backed-up.domain.tld relay:[their.mail.host.tld] .my.domain : * smtp:outbound-relay.my.domain example.com uucp:example example.com slow: example.com :[gateway.example.com] user.foo@example.com smtp:bar.example:2025 firstname_lastname@example.com discard: .example.com error:mail for *.example.com is not deliverable " (* Test: Postfix_Transport.lns *) test Postfix_Transport.lns get conf = { "#comment" = "a comment" } { "pattern" = "the.backed-up.domain.tld" { "transport" = "relay" } { "nexthop" = "[their.mail.host.tld]" } } { "pattern" = ".my.domain" { "transport" } { "nexthop" } } { "pattern" = "*" { "transport" = "smtp" } { "nexthop" = "outbound-relay.my.domain" } } { "pattern" = "example.com" { "transport" = "uucp" } { "nexthop" = "example" } } { "pattern" = "example.com" { "transport" = "slow" } { "nexthop" } } { "pattern" = "example.com" { "transport" } { "nexthop" = "[gateway.example.com]" } } { "pattern" = "user.foo@example.com" { "transport" = "smtp" } { "nexthop" = "bar.example:2025" } } { "pattern" = "firstname_lastname@example.com" { "transport" = "discard" } { "nexthop" } } { "pattern" = ".example.com" { "transport" = "error" } { "nexthop" = "mail for *.example.com is not deliverable" } } (* Test: Postfix_Transport.lns Bug #303 *) test Postfix_Transport.lns get "user@example.com [12.34.56.78]:587\n" = { "pattern" = "user@example.com" { "host" = "[12.34.56.78]" } { "port" = "587" } } PK ! �i,�Y Y * lenses/dist/tests/test_cobblersettings.augnu �[��� module Test_cobblersettings = test Cobblersettings.lns get "Simple_Setting: Value \n" = { "Simple_Setting" = "Value" } test Cobblersettings.lns get "Simple_Setting2: 'Value2@acme.com' \n" = { "Simple_Setting2" = "'Value2@acme.com'" } test Cobblersettings.lns get "Simple_Setting3: ''\n" = { "Simple_Setting3" = "''" } test Cobblersettings.lns get "Simple_Setting4: \"\"\n" = { "Simple_Setting4" = "\"\"" } test Cobblersettings.lns get "Simple_Setting_Trailing_Space : Value \n" = { "Simple_Setting_Trailing_Space" = "Value" } test Cobblersettings.lns get "Setting_List:[Value1, Value2, Value3]\n" = { "Setting_List" { "sequence" { "item" = "Value1" } { "item" = "Value2" } { "item" = "Value3" } } } test Cobblersettings.lns get "Empty_Setting_List: []\n" = { "Empty_Setting_List" { "sequence" } } test Cobblersettings.lns get "# Commented_Out_Setting: 'some value'\n" = { "#comment" = "Commented_Out_Setting: 'some value'" } test Cobblersettings.lns get "---\n" = { "---" = "---"} test Cobblersettings.lns get "Nested_Setting:\n Test: Value\n" = { "Nested_Setting" { "Test" = "Value" } } test Cobblersettings.lns get "Nested_Setting:\n - Test \n" = { "Nested_Setting" { "list" { "value" = "Test" } } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! N5ǐ� � % lenses/dist/tests/test_puppetfile.augnu �[��� (* Module: Test_Puppetfile Provides unit tests and examples for the <Puppetfile> lens. *) module Test_Puppetfile = (* Test: Puppetfile.lns *) test Puppetfile.lns get "forge \"https://forgeapi.puppetlabs.com\" # the default forge mod 'puppetlabs-razor' mod 'puppetlabs-ntp', \"0.0.3\" mod 'puppetlabs-apt', :git => \"git://github.com/puppetlabs/puppetlabs-apt.git\" mod 'puppetlabs-stdlib', :git => \"git://github.com/puppetlabs/puppetlabs-stdlib.git\" mod 'puppetlabs-apache', '0.6.0', :github_tarball => 'puppetlabs/puppetlabs-apache' metadata # we want metadata\n" = { "forge" = "https://forgeapi.puppetlabs.com" { "#comment" = "the default forge" } } { } { "1" = "puppetlabs-razor" } { "2" = "puppetlabs-ntp" { "@version" = "0.0.3" } } { } { "3" = "puppetlabs-apt" { "git" = "git://github.com/puppetlabs/puppetlabs-apt.git" } } { } { "4" = "puppetlabs-stdlib" { "git" = "git://github.com/puppetlabs/puppetlabs-stdlib.git" } } { } { "5" = "puppetlabs-apache" { "@version" = "0.6.0" } { "github_tarball" = "puppetlabs/puppetlabs-apache" } } { } { "metadata" { "#comment" = "we want metadata" } } (* Test: Puppetfile.lns Complex version conditions *) test Puppetfile.lns get "mod 'puppetlabs/stdlib', '< 5.0.0' mod 'theforeman/concat_native', '>= 1.3.0 < 1.4.0' mod 'herculesteam/augeasproviders', '2.1.x'\n" = { "1" = "puppetlabs/stdlib" { "@version" = "< 5.0.0" } } { "2" = "theforeman/concat_native" { "@version" = ">= 1.3.0 < 1.4.0" } } { "3" = "herculesteam/augeasproviders" { "@version" = "2.1.x" } } (* Test: Puppetfile.lns Owner is not mandatory if git is given *) test Puppetfile.lns get "mod 'stdlib', :git => \"git://github.com/puppetlabs/puppetlabs-stdlib.git\"\n" = { "1" = "stdlib" { "git" = "git://github.com/puppetlabs/puppetlabs-stdlib.git" } } (* Issue #427 *) test Puppetfile.lns get "mod 'puppetlabs/apache', :latest\n" = { "1" = "puppetlabs/apache" { "latest" } } test Puppetfile.lns get "mod 'data', :git => 'ssh://git@stash.example.com/bp/puppet-hiera.git', :branch => :control_branch, :default_branch => 'development', :install_path => '.'\n" = { "1" = "data" { "git" = "ssh://git@stash.example.com/bp/puppet-hiera.git" } { "branch" = ":control_branch" } { "default_branch" = "development" } { "install_path" = "." } } (* Comment: after module name comma This conflicts with the comma comment tree below *) test Puppetfile.lns get "mod 'data' # eol comment\n" = * (* Comment: after first comma *) test Puppetfile.lns get "mod 'data', # eol comment # and another '1.2.3'\n" = { "1" = "data" { "#comment" = "eol comment" } { "#comment" = "and another" } { "@version" = "1.2.3" } } (* Comment: after version Current culprit: need two \n *) test Puppetfile.lns get "mod 'data', '1.2.3' # eol comment\n" = * test Puppetfile.lns get "mod 'data', '1.2.3' # eol comment\n\n" = { "1" = "data" { "@version" = "1.2.3" { "#comment" = "eol comment" } } } (* Comment: eol after version comma *) test Puppetfile.lns get "mod 'data', '1.2.3', # a comment :local => true\n" = { "1" = "data" { "@version" = "1.2.3" } { "#comment" = "a comment" } { "local" = "true" } } (* Comment: after version comma with newline *) test Puppetfile.lns get "mod 'data', '1.2.3', # a comment :local => true\n" = { "1" = "data" { "@version" = "1.2.3" } { "#comment" = "a comment" } { "local" = "true" } } (* Comment: eol before opts, without version *) test Puppetfile.lns get "mod 'data', # a comment # :ref => 'abcdef', :local => true\n" = { "1" = "data" { "#comment" = "a comment" } { "#comment" = ":ref => 'abcdef'," } { "local" = "true" } } (* Comment: after opt comma *) test Puppetfile.lns get "mod 'data', '1.2.3', :ref => 'abcdef', # eol comment :local => true\n" = { "1" = "data" { "@version" = "1.2.3" } { "ref" = "abcdef" } { "#comment" = "eol comment" } { "local" = "true" } } (* Comment: in opts *) test Puppetfile.lns get "mod 'data', '1.2.3', :ref => 'abcdef', # a comment :local => true\n" = { "1" = "data" { "@version" = "1.2.3" } { "ref" = "abcdef" } { "#comment" = "a comment" } { "local" = "true" } } (* Comment: after last opt *) test Puppetfile.lns get "mod 'data', '1.2.3', :local => true # eol comment\n\n" = { "1" = "data" { "@version" = "1.2.3" } { "local" = "true" } { "#comment" = "eol comment" } } PK ! k$l� � " lenses/dist/tests/test_cgrules.augnu �[��� module Test_cgrules = let conf="#cgrules test configuration file poooeter cpu test1/ % memory test2/ @somegroup cpu toto/ % devices toto1/ % memory toto3/ " test Cgrules.lns get conf = { "#comment" = "cgrules test configuration file" } { "user" = "poooeter" { "cpu" = "test1/" } { "memory" = "test2/" } } { "group" = "somegroup" { "cpu" = "toto/" } { "devices" = "toto1/" } { "memory" = "toto3/" } } test Cgrules.lns put conf after set "user/cpu" "test3/"; rm "user/memory"; rm "group"; insa "devices" "user/*[last()]"; set "user/devices" "newtest/"; insb "memory" "user/devices"; set "user/memory" "memtest/" = "#cgrules test configuration file poooeter cpu test3/ % memory memtest/ % devices newtest/ " PK ! ��Y��w �w lenses/dist/tests/test_krb5.augnu �[��� module Test_krb5 = (* Krb5.conf from Fermilab *) let fermi_str = "### ### This krb5.conf template is intended for use with Fermi ### Kerberos v1_2 and later. Earlier versions may choke on the ### \"auth_to_local = \" lines unless they are commented out. ### The installation process should do all the right things in ### any case, but if you are reading this and haven't updated ### your kerberos product to v1_2 or later, you really should! ### [libdefaults] ticket_lifetime = 1560m default_realm = FNAL.GOV ccache_type = 4 default_tgs_enCtypes = des-cbc-crc default_tkt_enctypes = des-cbc-crc permitted_enctypes = des-cbc-crc des3-cbc-sha1 default_lifetime = 7d renew_lifetime = 7d autologin = true forward = true forwardable = true renewable = true encrypt = true v4_name_convert = { host = { rcmd = host } } [realms] FNAL.GOV = { kdc = krb-fnal-1.fnal.gov:88 kdc = krb-fnal-2.fnal.gov:88 kdc = krb-fnal-3.fnal.gov:88 kdc = krb-fnal-4.fnal.gov:88 kdc = krb-fnal-5.fnal.gov:88 kdc = krb-fnal-6.fnal.gov:88 kdc = krb-fnal-7.fnal.gov:88 master_kdc = krb-fnal-admin.fnal.gov:88 admin_server = krb-fnal-admin.fnal.gov default_domain = fnal.gov } WIN.FNAL.GOV = { kdc = littlebird.win.fnal.gov:88 kdc = bigbird.win.fnal.gov:88 default_domain = fnal.gov } FERMI.WIN.FNAL.GOV = { kdc = sully.fermi.win.fnal.gov:88 kdc = elmo.fermi.win.fnal.gov:88 kdc = grover.fermi.win.fnal.gov:88 kdc = oscar.fermi.win.fnal.gov:88 kdc = cookie.fermi.win.fnal.gov:88 kdc = herry.fermi.win.fnal.gov:88 default_domain = fnal.gov } UCHICAGO.EDU = { kdc = kerberos-0.uchicago.edu kdc = kerberos-1.uchicago.edu kdc = kerberos-2.uchicago.edu admin_server = kerberos.uchicago.edu default_domain = uchicago.edu } PILOT.FNAL.GOV = { kdc = i-krb-2.fnal.gov:88 master_kdc = i-krb-2.fnal.gov:88 admin_server = i-krb-2.fnal.gov default_domain = fnal.gov } WINBETA.FNAL.GOV = { kdc = wbdc1.winbeta.fnal.gov:88 kdc = wbdc2.winbeta.fnal.gov:88 default_domain = fnal.gov } FERMIBETA.WINBETA.FNAL.GOV = { kdc = fbdc1.fermibeta.winbeta.fnal.gov:88 kdc = fbdc2.fermibeta.winbeta.fnal.gov:88 default_domain = fnal.gov } CERN.CH = { kdc = afsdb2.cern.ch kdc = afsdb3.cern.ch kdc = afsdb1.cern.ch default_domain = cern.ch kpasswd_server = afskrb5m.cern.ch admin_server = afskrb5m.cern.ch v4_name_convert = { host = { rcmd = host } } } 1TS.ORG = { kdc = kerberos.1ts.org admin_server = kerberos.1ts.org } stanford.edu = { kdc = krb5auth1.stanford.edu kdc = krb5auth2.stanford.edu kdc = krb5auth3.stanford.edu master_kdc = krb5auth1.stanford.edu admin_server = krb5-admin.stanford.edu default_domain = stanford.edu krb524_server = krb524.stanford.edu } [instancemapping] afs = { cron/* = \"\" cms/* = \"\" afs/* = \"\" e898/* = \"\" } [capaths] # FNAL.GOV and PILOT.FNAL.GOV are the MIT Kerberos Domains # FNAL.GOV is production and PILOT is for testing # The FERMI Windows domain uses the WIN.FNAL.GOV root realm # with the FERMI.WIN.FNAL.GOV sub-realm where machines and users # reside. The WINBETA and FERMIBETA domains are the equivalent # testing realms for the FERMIBETA domain. The 2-way transitive # trust structure of this complex is as follows: # # FNAL.GOV <=> PILOT.FNAL.GOV # FNAL.GOV <=> WIN.FERMI.GOV <=> FERMI.WIN.FERMI.GOV # PILOT.FNAL.GOV <=> WINBETA.FNAL.GOV <=> FERMIBETA.WINBETA.FNAL.GOV FNAL.GOV = { PILOT.FNAL.GOV = . FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV WIN.FNAL.GOV = . FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV WINBETA.FNAL.GOV = PILOT.FNAL.GOV } PILOT.FNAL.GOV = { FNAL.GOV = . FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV WIN.FNAL.GOV = FNAL.GOV FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV WINBETA.FNAL.GOV = . } WIN.FNAL.GOV = { FNAL.GOV = . PILOT.FNAL.GOV = FNAL.GOV FERMI.WIN.FNAL.GOV = . FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV WINBETA.FNAL.GOV = PILOT.FNAL.GOV } WINBETA.FNAL.GOV = { PILOT.FNAL.GOV = . FERMIBETA.WINBETA.FNAL.GOV = . FNAL.GOV = PILOT.FNAL.GOV FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV WIN.FNAL.GOV = PILOT.FNAL.GOV } [logging] kdc = SYSLOG:info:local1 admin_server = SYSLOG:info:local2 default = SYSLOG:err:auth [domain_realm] # Fermilab's (non-windows-centric) domains .fnal.gov = FNAL.GOV .cdms-soudan.org = FNAL.GOV .deemz.net = FNAL.GOV .dhcp.fnal.gov = FNAL.GOV .minos-soudan.org = FNAL.GOV i-krb-2.fnal.gov = PILOT.FNAL.GOV .win.fnal.gov = WIN.FNAL.GOV .fermi.win.fnal.gov = FERMI.WIN.FNAL.GOV .winbeta.fnal.gov = WINBETA.FNAL.GOV .fermibeta.winbeta.fnal.gov = FERMIBETA.WINBETA.FNAL.GOV # Fermilab's KCA servers so FERMI.WIN principals work in FNAL.GOV realm # winserver.fnal.gov = FERMI.WIN.FNAL.GOV # winserver2.fnal.gov = FERMI.WIN.FNAL.GOVA # Accelerator nodes to FERMI.WIN for Linux/OS X users adgroups.fnal.gov = FERMI.WIN.FNAL.GOV adusers.fnal.gov = FERMI.WIN.FNAL.GOV webad.fnal.gov = FERMI.WIN.FNAL.GOV # Friends and family (by request) .cs.ttu.edu = FNAL.GOV .geol.uniovi.es = FNAL.GOV .harvard.edu = FNAL.GOV .hpcc.ttu.edu = FNAL.GOV .infn.it = FNAL.GOV .knu.ac.kr = FNAL.GOV .lns.mit.edu = FNAL.GOV .ph.liv.ac.uk = FNAL.GOV .pha.jhu.edu = FNAL.GOV .phys.ttu.edu = FNAL.GOV .phys.ualberta.ca = FNAL.GOV .physics.lsa.umich.edu = FNAL.GOV .physics.ucla.edu = FNAL.GOV .physics.ucsb.edu = FNAL.GOV .physics.utoronto.ca = FNAL.GOV .rl.ac.uk = FNAL.GOV .rockefeller.edu = FNAL.GOV .rutgers.edu = FNAL.GOV .sdsc.edu = FNAL.GOV .sinica.edu.tw = FNAL.GOV .tsukuba.jp.hep.net = FNAL.GOV .ucsd.edu = FNAL.GOV .unl.edu = FNAL.GOV .in2p3.fr = FNAL.GOV .wisc.edu = FNAL.GOV .pic.org.es = FNAL.GOV .kisti.re.kr = FNAL.GOV # The whole \"top half\" is replaced during \"ups installAsRoot krb5conf\", so: # It would probably be a bad idea to change anything on or above this line # If you need to add any .domains or hosts, put them here [domain_realm] mojo.lunet.edu = FNAL.GOV [appdefaults] default_lifetime = 7d retain_ccache = false autologin = true forward = true forwardable = true renewable = true encrypt = true krb5_aklog_path = /usr/bin/aklog telnet = { } rcp = { forward = true encrypt = false allow_fallback = true } rsh = { allow_fallback = true } rlogin = { allow_fallback = false } login = { forwardable = true krb5_run_aklog = false krb5_get_tickets = true krb4_get_tickets = false krb4_convert = false } kinit = { forwardable = true krb5_run_aklog = false } kadmin = { forwardable = false } rshd = { krb5_run_aklog = false } ftpd = { krb5_run_aklog = false default_lifetime = 10h } pam = { debug = false forwardable = true renew_lifetime = 7d ticket_lifetime = 1560m krb4_convert = true afs_cells = fnal.gov krb5_run_aklog = false } " test Krb5.lns get fermi_str = { "#comment" = "##" } { "#comment" = "## This krb5.conf template is intended for use with Fermi" } { "#comment" = "## Kerberos v1_2 and later. Earlier versions may choke on the" } { "#comment" = "## \"auth_to_local = \" lines unless they are commented out." } { "#comment" = "## The installation process should do all the right things in" } { "#comment" = "## any case, but if you are reading this and haven't updated" } { "#comment" = "## your kerberos product to v1_2 or later, you really should!" } { "#comment" = "##" } { "libdefaults" { "ticket_lifetime" = "1560m" } { "default_realm" = "FNAL.GOV" } { "ccache_type" = "4" } { "default_tgs_enctypes" = "des-cbc-crc" } { "#eol" } { "default_tkt_enctypes" = "des-cbc-crc" } { "#eol" } { "permitted_enctypes" = "des-cbc-crc" } { "permitted_enctypes" = "des3-cbc-sha1" } { "#eol" } { "default_lifetime" = "7d" } { "renew_lifetime" = "7d" } { "autologin" = "true" } { "forward" = "true" } { "forwardable" = "true" } { "renewable" = "true" } { "encrypt" = "true" } { "v4_name_convert" { "host" { "rcmd" = "host" } } } { } } { "realms" { "realm" = "FNAL.GOV" { "kdc" = "krb-fnal-1.fnal.gov:88" } { "kdc" = "krb-fnal-2.fnal.gov:88" } { "kdc" = "krb-fnal-3.fnal.gov:88" } { "kdc" = "krb-fnal-4.fnal.gov:88" } { "kdc" = "krb-fnal-5.fnal.gov:88" } { "kdc" = "krb-fnal-6.fnal.gov:88" } { "kdc" = "krb-fnal-7.fnal.gov:88" } { "master_kdc" = "krb-fnal-admin.fnal.gov:88" } { "admin_server" = "krb-fnal-admin.fnal.gov" } { "default_domain" = "fnal.gov" } } { "realm" = "WIN.FNAL.GOV" { "kdc" = "littlebird.win.fnal.gov:88" } { "kdc" = "bigbird.win.fnal.gov:88" } { "default_domain" = "fnal.gov" } } { "realm" = "FERMI.WIN.FNAL.GOV" { "kdc" = "sully.fermi.win.fnal.gov:88" } { "kdc" = "elmo.fermi.win.fnal.gov:88" } { "kdc" = "grover.fermi.win.fnal.gov:88" } { "kdc" = "oscar.fermi.win.fnal.gov:88" } { "kdc" = "cookie.fermi.win.fnal.gov:88" } { "kdc" = "herry.fermi.win.fnal.gov:88" } { "default_domain" = "fnal.gov" } } { "realm" = "UCHICAGO.EDU" { "kdc" = "kerberos-0.uchicago.edu" } { "kdc" = "kerberos-1.uchicago.edu" } { "kdc" = "kerberos-2.uchicago.edu" } { "admin_server" = "kerberos.uchicago.edu" } { "default_domain" = "uchicago.edu" } } { "realm" = "PILOT.FNAL.GOV" { "kdc" = "i-krb-2.fnal.gov:88" } { "master_kdc" = "i-krb-2.fnal.gov:88" } { "admin_server" = "i-krb-2.fnal.gov" } { "default_domain" = "fnal.gov" } } { "realm" = "WINBETA.FNAL.GOV" { "kdc" = "wbdc1.winbeta.fnal.gov:88" } { "kdc" = "wbdc2.winbeta.fnal.gov:88" } { "default_domain" = "fnal.gov" } } { "realm" = "FERMIBETA.WINBETA.FNAL.GOV" { "kdc" = "fbdc1.fermibeta.winbeta.fnal.gov:88" } { "kdc" = "fbdc2.fermibeta.winbeta.fnal.gov:88" } { "default_domain" = "fnal.gov" } } { "realm" = "CERN.CH" { "kdc" = "afsdb2.cern.ch" } { "kdc" = "afsdb3.cern.ch" } { "kdc" = "afsdb1.cern.ch" } { "default_domain" = "cern.ch" } { "kpasswd_server" = "afskrb5m.cern.ch" } { "admin_server" = "afskrb5m.cern.ch" } { "v4_name_convert" { "host" { "rcmd" = "host" } } } } { "realm" = "1TS.ORG" { "kdc" = "kerberos.1ts.org" } { "admin_server" = "kerberos.1ts.org" } } { "realm" = "stanford.edu" { "kdc" = "krb5auth1.stanford.edu" } { "kdc" = "krb5auth2.stanford.edu" } { "kdc" = "krb5auth3.stanford.edu" } { "master_kdc" = "krb5auth1.stanford.edu" } { "admin_server" = "krb5-admin.stanford.edu" } { "default_domain" = "stanford.edu" } { "krb524_server" = "krb524.stanford.edu" } } { } } { "instancemapping" { "afs" { "mapping" = "cron/*" { "value" = "" } } { "mapping" = "cms/*" { "value" = "" } } { "mapping" = "afs/*" { "value" = "" } } { "mapping" = "e898/*" { "value" = "" } } } { } } { "capaths" { } { "#comment" = "FNAL.GOV and PILOT.FNAL.GOV are the MIT Kerberos Domains" } { "#comment" = "FNAL.GOV is production and PILOT is for testing" } { "#comment" = "The FERMI Windows domain uses the WIN.FNAL.GOV root realm" } { "#comment" = "with the FERMI.WIN.FNAL.GOV sub-realm where machines and users" } { "#comment" = "reside. The WINBETA and FERMIBETA domains are the equivalent" } { "#comment" = "testing realms for the FERMIBETA domain. The 2-way transitive" } { "#comment" = "trust structure of this complex is as follows:" } {} { "#comment" = "FNAL.GOV <=> PILOT.FNAL.GOV" } { "#comment" = "FNAL.GOV <=> WIN.FERMI.GOV <=> FERMI.WIN.FERMI.GOV" } { "#comment" = "PILOT.FNAL.GOV <=> WINBETA.FNAL.GOV <=> FERMIBETA.WINBETA.FNAL.GOV" } { } { "FNAL.GOV" { "PILOT.FNAL.GOV" = "." } { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" } { "WIN.FNAL.GOV" = "." } { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" } { "WINBETA.FNAL.GOV" = "PILOT.FNAL.GOV" } } { "PILOT.FNAL.GOV" { "FNAL.GOV" = "." } { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" } { "WIN.FNAL.GOV" = "FNAL.GOV" } { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" } { "WINBETA.FNAL.GOV" = "." } } { "WIN.FNAL.GOV" { "FNAL.GOV" = "." } { "PILOT.FNAL.GOV" = "FNAL.GOV" } { "FERMI.WIN.FNAL.GOV" = "." } { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" } { "WINBETA.FNAL.GOV" = "PILOT.FNAL.GOV" } } { "WINBETA.FNAL.GOV" { "PILOT.FNAL.GOV" = "." } { "FERMIBETA.WINBETA.FNAL.GOV" = "." } { "FNAL.GOV" = "PILOT.FNAL.GOV" } { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" } { "WIN.FNAL.GOV" = "PILOT.FNAL.GOV" } } { } } { "logging" { "kdc" { "syslog" { "severity" = "info" } { "facility" = "local1" } } } { "admin_server" { "syslog" { "severity" = "info" } { "facility" = "local2" } } } { "default" { "syslog" { "severity" = "err" } { "facility" = "auth" } } } { } } { "domain_realm" { "#comment" = "Fermilab's (non-windows-centric) domains" } { ".fnal.gov" = "FNAL.GOV" } { ".cdms-soudan.org" = "FNAL.GOV" } { ".deemz.net" = "FNAL.GOV" } { ".dhcp.fnal.gov" = "FNAL.GOV" } { ".minos-soudan.org" = "FNAL.GOV" } { "i-krb-2.fnal.gov" = "PILOT.FNAL.GOV" } { ".win.fnal.gov" = "WIN.FNAL.GOV" } { ".fermi.win.fnal.gov" = "FERMI.WIN.FNAL.GOV" } { ".winbeta.fnal.gov" = "WINBETA.FNAL.GOV" } { ".fermibeta.winbeta.fnal.gov" = "FERMIBETA.WINBETA.FNAL.GOV" } { "#comment" = "Fermilab's KCA servers so FERMI.WIN principals work in FNAL.GOV realm" } { "#comment" = "winserver.fnal.gov = FERMI.WIN.FNAL.GOV" } { "#comment" = "winserver2.fnal.gov = FERMI.WIN.FNAL.GOVA" } { "#comment" = "Accelerator nodes to FERMI.WIN for Linux/OS X users" } { "adgroups.fnal.gov" = "FERMI.WIN.FNAL.GOV" } { "adusers.fnal.gov" = "FERMI.WIN.FNAL.GOV" } { "webad.fnal.gov" = "FERMI.WIN.FNAL.GOV" } { "#comment" = "Friends and family (by request)" } { ".cs.ttu.edu" = "FNAL.GOV" } { ".geol.uniovi.es" = "FNAL.GOV" } { ".harvard.edu" = "FNAL.GOV" } { ".hpcc.ttu.edu" = "FNAL.GOV" } { ".infn.it" = "FNAL.GOV" } { ".knu.ac.kr" = "FNAL.GOV" } { ".lns.mit.edu" = "FNAL.GOV" } { ".ph.liv.ac.uk" = "FNAL.GOV" } { ".pha.jhu.edu" = "FNAL.GOV" } { ".phys.ttu.edu" = "FNAL.GOV" } { ".phys.ualberta.ca" = "FNAL.GOV" } { ".physics.lsa.umich.edu" = "FNAL.GOV" } { ".physics.ucla.edu" = "FNAL.GOV" } { ".physics.ucsb.edu" = "FNAL.GOV" } { ".physics.utoronto.ca" = "FNAL.GOV" } { ".rl.ac.uk" = "FNAL.GOV" } { ".rockefeller.edu" = "FNAL.GOV" } { ".rutgers.edu" = "FNAL.GOV" } { ".sdsc.edu" = "FNAL.GOV" } { ".sinica.edu.tw" = "FNAL.GOV" } { ".tsukuba.jp.hep.net" = "FNAL.GOV" } { ".ucsd.edu" = "FNAL.GOV" } { ".unl.edu" = "FNAL.GOV" } { ".in2p3.fr" = "FNAL.GOV" } { ".wisc.edu" = "FNAL.GOV" } { ".pic.org.es" = "FNAL.GOV" } { ".kisti.re.kr" = "FNAL.GOV" } { } { "#comment" = "The whole \"top half\" is replaced during \"ups installAsRoot krb5conf\", so:" } { "#comment" = "It would probably be a bad idea to change anything on or above this line" } { } { "#comment" = "If you need to add any .domains or hosts, put them here" } } { "domain_realm" { "mojo.lunet.edu" = "FNAL.GOV" } { } } { "appdefaults" { "default_lifetime" = "7d" } { "retain_ccache" = "false" } { "autologin" = "true" } { "forward" = "true" } { "forwardable" = "true" } { "renewable" = "true" } { "encrypt" = "true" } { "krb5_aklog_path" = "/usr/bin/aklog" } { } { "application" = "telnet" } { } { "application" = "rcp" { "forward" = "true" } { "encrypt" = "false" } { "allow_fallback" = "true" } } { } { "application" = "rsh" { "allow_fallback" = "true" } } { } { "application" = "rlogin" { "allow_fallback" = "false" } } { } { } { "application" = "login" { "forwardable" = "true" } { "krb5_run_aklog" = "false" } { "krb5_get_tickets" = "true" } { "krb4_get_tickets" = "false" } { "krb4_convert" = "false" } } { } { "application" = "kinit" { "forwardable" = "true" } { "krb5_run_aklog" = "false" } } { } { "application" = "kadmin" { "forwardable" = "false" } } { } { "application" = "rshd" { "krb5_run_aklog" = "false" } } { } { "application" = "ftpd" { "krb5_run_aklog" = "false" } { "default_lifetime" = "10h" } } { } { "application" = "pam" { "debug" = "false" } { "forwardable" = "true" } { "renew_lifetime" = "7d" } { "ticket_lifetime" = "1560m" } { "krb4_convert" = "true" } { "afs_cells" = "fnal.gov" } { "krb5_run_aklog" = "false" } } } (* Example from the krb5 distrubution *) let dist_str = "[libdefaults] default_realm = ATHENA.MIT.EDU krb4_config = /usr/kerberos/lib/krb.conf krb4_realms = /usr/kerberos/lib/krb.realms [realms] ATHENA.MIT.EDU = { admin_server = KERBEROS.MIT.EDU default_domain = MIT.EDU v4_instance_convert = { mit = mit.edu lithium = lithium.lcs.mit.edu } } ANDREW.CMU.EDU = { admin_server = vice28.fs.andrew.cmu.edu } # use \"kdc =\" if realm admins haven't put SRV records into DNS GNU.ORG = { kdc = kerberos.gnu.org kdc = kerberos-2.gnu.org admin_server = kerberos.gnu.org } [domain_realm] .mit.edu = ATHENA.MIT.EDU mit.edu = ATHENA.MIT.EDU .media.mit.edu = MEDIA-LAB.MIT.EDU media.mit.edu = MEDIA-LAB.MIT.EDU .ucsc.edu = CATS.UCSC.EDU [logging] # kdc = CONSOLE " test Krb5.lns get dist_str = { "libdefaults" { "default_realm" = "ATHENA.MIT.EDU" } { "krb4_config" = "/usr/kerberos/lib/krb.conf" } { "krb4_realms" = "/usr/kerberos/lib/krb.realms" } { } } { "realms" { "realm" = "ATHENA.MIT.EDU" { "admin_server" = "KERBEROS.MIT.EDU" } { "default_domain" = "MIT.EDU" } { "v4_instance_convert" { "mit" = "mit.edu" } { "lithium" = "lithium.lcs.mit.edu" } } } { "realm" = "ANDREW.CMU.EDU" { "admin_server" = "vice28.fs.andrew.cmu.edu" } } { "#comment" = "use \"kdc =\" if realm admins haven't put SRV records into DNS" } { "realm" = "GNU.ORG" { "kdc" = "kerberos.gnu.org" } { "kdc" = "kerberos-2.gnu.org" } { "admin_server" = "kerberos.gnu.org" } } { } } { "domain_realm" { ".mit.edu" = "ATHENA.MIT.EDU" } { "mit.edu" = "ATHENA.MIT.EDU" } { ".media.mit.edu" = "MEDIA-LAB.MIT.EDU" } { "media.mit.edu" = "MEDIA-LAB.MIT.EDU" } { ".ucsc.edu" = "CATS.UCSC.EDU" } { } } { "logging" { "#comment" = "kdc = CONSOLE" } } (* Test for [libdefaults] *) test Krb5.libdefaults get "[libdefaults] default_realm = ATHENA.MIT.EDU krb4_config = /usr/kerberos/lib/krb.conf krb4_realms = /usr/kerberos/lib/krb.realms\n\n" = { "libdefaults" { "default_realm" = "ATHENA.MIT.EDU" } { "krb4_config" = "/usr/kerberos/lib/krb.conf" } { "krb4_realms" = "/usr/kerberos/lib/krb.realms" } { } } (* Test for [appfdefaults] *) test Krb5.appdefaults get "[appdefaults]\n\tdefault_lifetime = 7d\n" = { "appdefaults" { "default_lifetime" = "7d" } } test Krb5.appdefaults get "[appdefaults]\nrcp = { \n forward = true\n encrypt = false\n }\n" = { "appdefaults" { "application" = "rcp" { "forward" = "true" } { "encrypt" = "false" } } } test Krb5.appdefaults get "[appdefaults]\ntelnet = {\n\t}\n" = { "appdefaults" { "application" = "telnet" } } test Krb5.appdefaults get "[appdefaults] rcp = { forward = true ATHENA.MIT.EDU = { encrypt = false } MEDIA-LAB.MIT.EDU = { encrypt = true } forwardable = true }\n" = { "appdefaults" { "application" = "rcp" { "forward" = "true" } { "realm" = "ATHENA.MIT.EDU" { "encrypt" = "false" } } { "realm" = "MEDIA-LAB.MIT.EDU" { "encrypt" = "true" } } { "forwardable" = "true" } } } let appdef = "[appdefaults] default_lifetime = 7d retain_ccache = false autologin = true forward = true forwardable = true renewable = true encrypt = true krb5_aklog_path = /usr/bin/aklog telnet = { } rcp = { forward = true encrypt = false allow_fallback = true } rsh = { allow_fallback = true } rlogin = { allow_fallback = false } login = { forwardable = true krb5_run_aklog = false krb5_get_tickets = true krb4_get_tickets = false krb4_convert = false } kinit = { forwardable = true krb5_run_aklog = false } kadmin = { forwardable = false } rshd = { krb5_run_aklog = false } ftpd = { krb5_run_aklog = false default_lifetime = 10h } pam = { debug = false forwardable = true renew_lifetime = 7d ticket_lifetime = 1560m krb4_convert = true afs_cells = fnal.gov krb5_run_aklog = false }\n" let appdef_tree = { "appdefaults" { "default_lifetime" = "7d" } { "retain_ccache" = "false" } { "autologin" = "true" } { "forward" = "true" } { "forwardable" = "true" } { "renewable" = "true" } { "encrypt" = "true" } { "krb5_aklog_path" = "/usr/bin/aklog" } { } { "application" = "telnet" } { } { "application" = "rcp" { "forward" = "true" } { "encrypt" = "false" } { "allow_fallback" = "true" } } { } { "application" = "rsh" { "allow_fallback" = "true" } } { } { "application" = "rlogin" { "allow_fallback" = "false" } } { } { } { "application" = "login" { "forwardable" = "true" } { "krb5_run_aklog" = "false" } { "krb5_get_tickets" = "true" } { "krb4_get_tickets" = "false" } { "krb4_convert" = "false" } } { } { "application" = "kinit" { "forwardable" = "true" } { "krb5_run_aklog" = "false" } } { } { "application" = "kadmin" { "forwardable" = "false" } } { } { "application" = "rshd" { "krb5_run_aklog" = "false" } } { } { "application" = "ftpd" { "krb5_run_aklog" = "false" } { "default_lifetime" = "10h" } } { } { "application" = "pam" { "debug" = "false" } { "forwardable" = "true" } { "renew_lifetime" = "7d" } { "ticket_lifetime" = "1560m" } { "krb4_convert" = "true" } { "afs_cells" = "fnal.gov" } { "krb5_run_aklog" = "false" } } } test Krb5.appdefaults get appdef = appdef_tree test Krb5.lns get appdef = appdef_tree (* Test realms section *) let realms_str = "[realms] ATHENA.MIT.EDU = { admin_server = KERBEROS.MIT.EDU default_domain = MIT.EDU database_module = ldapconf # test v4_instance_convert = { mit = mit.edu lithium = lithium.lcs.mit.edu } v4_realm = LCS.MIT.EDU }\n" test Krb5.lns get realms_str = { "realms" { "realm" = "ATHENA.MIT.EDU" { "admin_server" = "KERBEROS.MIT.EDU" } { "default_domain" = "MIT.EDU" } { "database_module" = "ldapconf" } { } { "#comment" = "test" } { "v4_instance_convert" { "mit" = "mit.edu" } { "lithium" = "lithium.lcs.mit.edu" } } { "v4_realm" = "LCS.MIT.EDU" } } } (* Test dpmain_realm section *) let domain_realm_str = "[domain_realm] .mit.edu = ATHENA.MIT.EDU mit.edu = ATHENA.MIT.EDU dodo.mit.edu = SMS_TEST.MIT.EDU .ucsc.edu = CATS.UCSC.EDU\n" test Krb5.lns get domain_realm_str = { "domain_realm" { ".mit.edu" = "ATHENA.MIT.EDU" } { "mit.edu" = "ATHENA.MIT.EDU" } { "dodo.mit.edu" = "SMS_TEST.MIT.EDU" } { ".ucsc.edu" = "CATS.UCSC.EDU" } } (* Test logging section *) let logging_str = "[logging] kdc = CONSOLE kdc = SYSLOG:INFO:DAEMON admin_server = FILE:/var/adm/kadmin.log admin_server = DEVICE=/dev/tty04\n" test Krb5.lns get logging_str = { "logging" { "kdc" { "console" } } { "kdc" { "syslog" { "severity" = "INFO" } { "facility" = "DAEMON" } } } { "admin_server" { "file" = "/var/adm/kadmin.log" } } { "admin_server" { "device" = "/dev/tty04" } } } (* Test capaths section *) let capaths_str = "[capaths] ANL.GOV = { TEST.ANL.GOV = . PNL.GOV = ES.NET NERSC.GOV = ES.NET ES.NET = . } TEST.ANL.GOV = { ANL.GOV = . } PNL.GOV = { ANL.GOV = ES.NET } NERSC.GOV = { ANL.GOV = ES.NET } ES.NET = { ANL.GOV = . }\n" test Krb5.lns get capaths_str = { "capaths" { "ANL.GOV" { "TEST.ANL.GOV" = "." } { "PNL.GOV" = "ES.NET" } { "NERSC.GOV" = "ES.NET" } { "ES.NET" = "." } } { "TEST.ANL.GOV" { "ANL.GOV" = "." } } { "PNL.GOV" { "ANL.GOV" = "ES.NET" } } { "NERSC.GOV" { "ANL.GOV" = "ES.NET" } } { "ES.NET" { "ANL.GOV" = "." } } } (* Test instancemapping *) test Krb5.instance_mapping get "[instancemapping] afs = { cron/* = \"\" cms/* = \"\" afs/* = \"\" e898/* = \"\" }\n" = { "instancemapping" { "afs" { "mapping" = "cron/*" { "value" = "" } } { "mapping" = "cms/*" { "value" = "" } } { "mapping" = "afs/*" { "value" = "" } } { "mapping" = "e898/*" { "value" = "" } } } } test Krb5.kdc get "[kdc] profile = /var/kerberos/krb5kdc/kdc.conf\n" = { "kdc" { "profile" = "/var/kerberos/krb5kdc/kdc.conf" } } (* v4_name_convert in libdefaults *) test Krb5.libdefaults get "[libdefaults] default_realm = MY.REALM clockskew = 300 v4_instance_resolve = false v4_name_convert = { host = { rcmd = host ftp = ftp } plain = { something = something-else } }\n" = { "libdefaults" { "default_realm" = "MY.REALM" } { "clockskew" = "300" } { "v4_instance_resolve" = "false" } { "v4_name_convert" { "host" { "rcmd" = "host" } { "ftp" = "ftp" } } { "plain" { "something" = "something-else" } } } } (* Test pam section *) let pam_str = "[pam] debug = false ticket_lifetime = 36000 renew_lifetime = 36000 forwardable = true krb4_convert = false " test Krb5.lns get pam_str = { "pam" { "debug" = "false" } { "ticket_lifetime" = "36000" } { "renew_lifetime" = "36000" } { "forwardable" = "true" } { "krb4_convert" = "false" } } (* Ticket #274 - multiple *enctypes values *) let multiple_enctypes = "[libdefaults] permitted_enctypes = arcfour-hmac-md5 arcfour-hmac des3-cbc-sha1 des-cbc-md5 des-cbc-crc aes128-cts default_tgs_enctypes = des3-cbc-sha1 des-cbc-md5 default_tkt_enctypes = des-cbc-md5 " test Krb5.lns get multiple_enctypes = { "libdefaults" { "permitted_enctypes" = "arcfour-hmac-md5" } { "permitted_enctypes" = "arcfour-hmac" } { "permitted_enctypes" = "des3-cbc-sha1" } { "permitted_enctypes" = "des-cbc-md5" } { "permitted_enctypes" = "des-cbc-crc" } { "permitted_enctypes" = "aes128-cts" } { "#eol" } { "default_tgs_enctypes" = "des3-cbc-sha1" } { "default_tgs_enctypes" = "des-cbc-md5" } { "#eol" } { "default_tkt_enctypes" = "des-cbc-md5" } { "#eol" } } (* Ticket #274 - v4_name_convert subsection *) let v4_name_convert = "[realms] EXAMPLE.COM = { kdc = kerberos.example.com:88 admin_server = kerberos.example.com:749 default_domain = example.com ticket_lifetime = 12h v4_name_convert = { host = { rcmd = host } } } " test Krb5.lns get v4_name_convert = { "realms" { "realm" = "EXAMPLE.COM" { "kdc" = "kerberos.example.com:88" } { "admin_server" = "kerberos.example.com:749" } { "default_domain" = "example.com" } { "ticket_lifetime" = "12h" } { "v4_name_convert" { "host" { "rcmd" = "host" } } } } } (* Ticket #288: semicolons for comments *) test Krb5.lns get "; AD : This Kerberos configuration is for CERN's Active Directory realm.\n" = { "#comment" = "AD : This Kerberos configuration is for CERN's Active Directory realm." } (* RHBZ#1066419: braces in values *) test Krb5.lns get "[libdefaults]\n default_ccache_name = KEYRING:persistent:%{uid}\n" = { "libdefaults" { } { "default_ccache_name" = "KEYRING:persistent:%{uid}" } } (* Include(dir) tests *) let include_test = "include /etc/krb5.other_conf.d/other.conf includedir /etc/krb5.conf.d/ " test Krb5.lns get include_test = { "include" = "/etc/krb5.other_conf.d/other.conf" } { "includedir" = "/etc/krb5.conf.d/" } let include2_test = "[logging] default = FILE:/var/log/krb5libs.log include /etc/krb5.other_conf.d/other.conf includedir /etc/krb5.conf.d/ " test Krb5.lns get include2_test = { "logging" { "default" { "file" = "/var/log/krb5libs.log" } } { } } { "include" = "/etc/krb5.other_conf.d/other.conf" } { } { "includedir" = "/etc/krb5.conf.d/" } (* [dbmodules] test *) let dbmodules_test = "[dbmodules] ATHENA.MIT.EDU = { disable_last_success = true } db_module_dir = /some/path " test Krb5.lns get dbmodules_test = { "dbmodules" { "realm" = "ATHENA.MIT.EDU" { "disable_last_success" = "true" } } { "db_module_dir" = "/some/path" } } (* [plugins] test *) let plugins_test = "[plugins] clpreauth = { module = mypreauth:/path/to/mypreauth.so } ccselect = { disable = k5identity } pwqual = { module = mymodule:/path/to/mymodule.so module = mymodule2:/path/to/mymodule2.so enable_only = mymodule } kadm5_hook = { } " test Krb5.lns get plugins_test = { "plugins" { "clpreauth" { "module" = "mypreauth:/path/to/mypreauth.so" } } { "ccselect" { "disable" = "k5identity" } } { "pwqual" { "module" = "mymodule:/path/to/mymodule.so" } { "module" = "mymodule2:/path/to/mymodule2.so" } { "enable_only" = "mymodule" } } { "kadm5_hook" } } PK ! ��� � ) lenses/dist/tests/test_shellvars_list.augnu �[��� (* Test for shell list handling lens *) module Test_shellvars_list = let list_vals = "# Some comment MODULES_LOADED_ON_BOOT=\"ipv6 sunrpc\" DEFAULT_APPEND=\"showopts noresume console=tty0 console=ttyS0,115200n8 ro\" LOADER_TYPE=\"grub\" " test Shellvars_list.lns get list_vals = { "#comment" = "Some comment" } { "MODULES_LOADED_ON_BOOT" { "quote" = "\"" } { "value" = "ipv6" } { "value" = "sunrpc" } } { } { "DEFAULT_APPEND" { "quote" = "\"" } { "value" = "showopts" } { "value" = "noresume" } { "value" = "console=tty0" } { "value" = "console=ttyS0,115200n8" } { "value" = "ro" } } { } { "LOADER_TYPE" { "quote" = "\"" } { "value" = "grub" } } (* append a value *) test Shellvars_list.lns put "VAR=\"test1\t \ntest2\"\n" after set "VAR/value[last()+1]" "test3" = "VAR=\"test1\t \ntest2 test3\"\n" (* in double quoted lists, single quotes and escaped values are allowed *) test Shellvars_list.lns get "VAR=\"test'1 test2 a\ \\\"longer\\\"\ test\"\n" = { "VAR" { "quote" = "\"" } { "value" = "test'1" } { "value" = "test2" } { "value" = "a\ \\\"longer\\\"\ test" } } (* add new value, delete one and append something *) test Shellvars_list.lns put list_vals after set "FAILSAVE_APPEND/quote" "\"" ; set "FAILSAVE_APPEND/value[last()+1]" "console=ttyS0" ; rm "LOADER_TYPE" ; rm "MODULES_LOADED_ON_BOOT/value[1]" ; set "DEFAULT_APPEND/value[last()+1]" "teststring" = "# Some comment MODULES_LOADED_ON_BOOT=\"sunrpc\" DEFAULT_APPEND=\"showopts noresume console=tty0 console=ttyS0,115200n8 ro teststring\" FAILSAVE_APPEND=\"console=ttyS0\" " (* test of single quotes (leading/trailing whitespaces are kept *) (* leading/trailing) *) test Shellvars_list.lns put "VAR=' \t test1\t \ntest2 '\n" after set "VAR/value[last()+1]" "test3" = "VAR=' \t test1\t \ntest2 test3 '\n" (* change quotes (leading/trailing whitespaces are lost *) test Shellvars_list.lns put "VAR=' \t test1\t \ntest2 '\n" after set "VAR/quote" "\"" = "VAR=\"test1\t \ntest2\"\n" (* double quotes are allowed in single quoted lists *) test Shellvars_list.lns get "VAR='test\"1 test2'\n" = { "VAR" { "quote" = "'" } { "value" = "test\"1" } { "value" = "test2" } } (* empty list with quotes *) test Shellvars_list.lns get "VAR=''\n" = { "VAR" { "quote" = "'" } } (* unquoted value *) test Shellvars_list.lns get "VAR=test\n" = { "VAR" { "quote" = "" } { "value" = "test" } } (* uquoted value with escaped space etc. *) test Shellvars_list.lns get "VAR=a\\ \\\"long\\\"\\ test\n" = { "VAR" { "quote" = "" } { "value" = "a\\ \\\"long\\\"\\ test" } } (* append to unquoted value *) test Shellvars_list.lns put "VAR=test1\n" after set "VAR/quote" "\""; set "VAR/value[last()+1]" "test2" = "VAR=\"test1 test2\"\n" (* empty entry *) test Shellvars_list.lns get "VAR=\n" = { "VAR" { "quote" = "" } } (* set value w/o quotes to empty value... *) test Shellvars_list.lns put "VAR=\n" after set "VAR/value[last()+1]" "test" = "VAR=test\n" (* ... or no value *) test Shellvars_list.lns put "" after set "VAR/quote" ""; set "VAR/value[1]" "test" = "VAR=test\n" (* Ticket #368 - backticks *) test Shellvars_list.lns get "GRUB_DISTRIBUTOR=`lsb_release -i -s 2> /dev/null || echo Debian`\n" = { "GRUB_DISTRIBUTOR" { "quote" = "" } { "value" = "`lsb_release -i -s 2> /dev/null || echo Debian`" } } (* Test: Shellvars_list.lns Ticket #342: end-of-line comments *) test Shellvars_list.lns get "service_ping=\"ping/icmp\" #ping\n" = { "service_ping" { "quote" = "\"" } { "value" = "ping/icmp" } { "#comment" = "ping" } } (* Test: Shellvars_list.lns Support double-quoted continued lines *) test Shellvars_list.lns get "DAEMON_OPTS=\"-a :6081 \ -T localhost:6082\"\n" = { "DAEMON_OPTS" { "quote" = "\"" } { "value" = "-a" } { "value" = ":6081" } { "value" = "-T" } { "value" = "localhost:6082" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! � � lenses/dist/tests/test_yum.augnu �[��� (* Module: Test_Yum Provides unit tests and examples for the <Yum> lens. *) module Test_yum = let yum_simple = "[sec1] # comment key=value [sec-two] key1=value1 # comment key2=value2 " let yum_conf = "[main] cachedir=/var/cache/yum keepcache=0 debuglevel=2 logfile=/var/log/yum.log exactarch=1 obsoletes=1 gpgcheck=1 plugins=1 metadata_expire=1800 installonly_limit=100 # PUT YOUR REPOS HERE OR IN separate files named file.repo # in /etc/yum.repos.d " let yum_repo1 = "[fedora] name=Fedora $releasever - $basearch failovermethod=priority #baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/$basearch/os/ mirrorlist=http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-$releasever&arch=$basearch enabled=1 gpgcheck=1 gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora file:///etc/pki/rpm-gpg/RPM-GPG-KEY [fedora-debuginfo] name=Fedora $releasever - $basearch - Debug failovermethod=priority #baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/$basearch/debug/ mirrorlist=http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-debug-$releasever&arch=$basearch enabled=0 gpgcheck=1 gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora file:///etc/pki/rpm-gpg/RPM-GPG-KEY [fedora-source] name=Fedora $releasever - Source failovermethod=priority #baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/source/SRPMS/ mirrorlist=http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-source-$releasever&arch=$basearch enabled=0 gpgcheck=1 gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora file:///etc/pki/rpm-gpg/RPM-GPG-KEY " let yum_repo2 = "[remi] name=Les RPM de remi pour FC$releasever - $basearch baseurl=http://remi.collet.free.fr/rpms/fc$releasever.$basearch/ http://iut-info.ens.univ-reims.fr/remirpms/fc$releasever.$basearch/ enabled=0 gpgcheck=1 gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-remi [remi-test] name=Les RPM de remi en test pour FC$releasever - $basearch baseurl=http://remi.collet.free.fr/rpms/test-fc$releasever.$basearch/ http://iut-info.ens.univ-reims.fr/remirpms/test-fc$releasever.$basearch/ enabled=0 gpgcheck=1 gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-remi " let cont = "[main]\nbaseurl=url1\n url2 , url3\n \n" test Yum.lns get yum_simple = { "sec1" { "#comment" = "comment" } { "key" = "value" } } { "sec-two" { "key1" = "value1" } { "#comment" = "comment" } { "key2" = "value2" } } test Yum.lns put yum_conf after rm "main" = "" test Yum.lns put yum_simple after set "sec1/key" "othervalue" = "[sec1]\n# comment\nkey=othervalue\n[sec-two]\nkey1=value1\n# comment\nkey2=value2\n" test Yum.lns put yum_simple after rm "sec1" ; rm "sec-two/key1" = "[sec-two]\n# comment\nkey2=value2\n" test Yum.lns put yum_simple after rm "sec1" ; rm "sec-two/key1" ; set "sec-two/newkey" "newvalue" = "[sec-two]\n# comment\nkey2=value2\nnewkey=newvalue\n" test Yum.lns put yum_simple after rm "sec1" ; set "sec-two/key1" "newvalue" = "[sec-two]\nkey1=newvalue\n# comment\nkey2=value2\n" test Yum.lns get cont = { "main" { "baseurl" = "url1" } { "baseurl" = "url2" } { "baseurl" = "url3" } {} } test Yum.lns put cont after set "main/gpgcheck" "1" = cont . "gpgcheck=1\n" (* We are actually stricter than yum in checking syntax. The yum.conf *) (* man page mentions that it is illegal to have multiple baseurl keys *) (* in the same section, but yum will just carry on, usually with *) (* results that surpise the unsuspecting user *) test Yum.lns get "[repo]\nbaseurl=url1\nbaseurl=url2\n" = * (* This checks that we take the right branch in the section lens. *) test Yum.record get "[repo]\nname=A name\nbaseurl=url1\n" = { "repo" { "name" = "A name" } { "baseurl" = "url1" } } (* Handle continuation lines for gpgkey; bug #132 *) test Yum.lns get "[main]\ngpgkey=key1\n key2\n" = { "main" { "gpgkey" = "key1" } { "gpgkey" = "key2" } } test Yum.lns get yum_repo1 = { "fedora" { "name" = "Fedora $releasever - $basearch" } { "failovermethod" = "priority" } { "#comment" = "baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/$basearch/os/" } { "mirrorlist" = "http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-$releasever&arch=$basearch" } { "enabled" = "1" } { "gpgcheck" = "1" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY" } { } } { "fedora-debuginfo" { "name" = "Fedora $releasever - $basearch - Debug" } { "failovermethod" = "priority" } { "#comment" = "baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/$basearch/debug/" } { "mirrorlist" = "http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-debug-$releasever&arch=$basearch" } { "enabled" = "0" } { "gpgcheck" = "1" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY" } { } } { "fedora-source" { "name" = "Fedora $releasever - Source" } { "failovermethod" = "priority" } { "#comment" = "baseurl=http://download.fedora.redhat.com/pub/fedora/linux/releases/$releasever/Everything/source/SRPMS/" } { "mirrorlist" = "http://mirrors.fedoraproject.org/mirrorlist?repo=fedora-source-$releasever&arch=$basearch" } { "enabled" = "0" } { "gpgcheck" = "1" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY-fedora" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY" } } test Yum.lns get yum_repo2 = { "remi" { "name" = "Les RPM de remi pour FC$releasever - $basearch" } { "baseurl" = "http://remi.collet.free.fr/rpms/fc$releasever.$basearch/" } { "baseurl" = "http://iut-info.ens.univ-reims.fr/remirpms/fc$releasever.$basearch/" } { "enabled" = "0" } { "gpgcheck" = "1" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY-remi" } { } } { "remi-test" { "name" = "Les RPM de remi en test pour FC$releasever - $basearch" } { "baseurl" = "http://remi.collet.free.fr/rpms/test-fc$releasever.$basearch/" } { "baseurl" = "http://iut-info.ens.univ-reims.fr/remirpms/test-fc$releasever.$basearch/" } { "enabled" = "0" } { "gpgcheck" = "1" } { "gpgkey" = "file:///etc/pki/rpm-gpg/RPM-GPG-KEY-remi" } } (* Test: Yum.lns Check that we can parse an empty line, to fix test-save *) test Yum.lns get "\n" = { } (* Test: Yum.lns Issue #45: allow spaces around equals sign *) test Yum.lns get "[rpmforge] name = RHEL $releasever - RPMforge.net - dag baseurl = http://apt.sw.be/redhat/el6/en/$basearch/rpmforge\n" = { "rpmforge" { "name" = "RHEL $releasever - RPMforge.net - dag" } { "baseurl" = "http://apt.sw.be/redhat/el6/en/$basearch/rpmforge" } } (* Test: Yum.lns Issue #275: parse excludes as a list *) test Yum.lns get "[epel] name=Extra Packages for Enterprise Linux 6 - $basearch exclude=ocs* clamav* " = { "epel" { "name" = "Extra Packages for Enterprise Linux 6 - $basearch" } { "exclude" = "ocs*" } { "exclude" = "clamav*" } } (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �T�� � " lenses/dist/tests/test_up2date.augnu �[��� (* Module: Test_Up2date Provides unit tests and examples for the <Up2date> lens. *) module Test_Up2date = (* Variable: empty *) let empty = "keyword= " test Up2date.lns get empty = { "1" = "keyword" } (* Variable: list_empty *) let list_empty = "keyword=; " test Up2date.lns get list_empty = { "1" = "keyword" { "values" } } (* Variable: list_one *) let list_one = "keyword=foo; " test Up2date.lns get list_one = { "1" = "keyword" { "values" { "1" = "foo" } } } (* Variable: list_two Probably not useful, up2date throws "bar" away *) let list_two = "keyword=foo;bar " test Up2date.lns get list_two = { "1" = "keyword" { "values" { "1" = "foo" } { "2" = "bar" } } } (* Variable: list_two_trailing *) let list_two_trailing = "keyword=foo;bar; " test Up2date.lns get list_two_trailing = { "1" = "keyword" { "values" { "1" = "foo" } { "2" = "bar" } } } (* Variable: conf *) let conf = "# Red Hat Update Agent config file. # Format: 1.0 debug[comment]=Whether or not debugging is enabled debug=0 systemIdPath[comment]=Location of system id systemIdPath=/etc/sysconfig/rhn/systemid serverURL[comment]=Remote server URL (use FQDN) #serverURL=https://xmlrpc.rhn.redhat.com/XMLRPC serverURL=https://enter.your.server.url.here/XMLRPC hostedWhitelist[comment]=RHN Hosted URL's hostedWhitelist= enableProxy[comment]=Use a HTTP Proxy enableProxy=0 versionOverride[comment]=Override the automatically determined system version versionOverride= httpProxy[comment]=HTTP proxy in host:port format, e.g. squid.redhat.com:3128 httpProxy= noReboot[comment]=Disable the reboot actions noReboot=0 networkRetries[comment]=Number of attempts to make at network connections before giving up networkRetries=1 disallowConfChanges[comment]=Config options that can not be overwritten by a config update action disallowConfChanges=noReboot;sslCACert;useNoSSLForPackages;noSSLServerURL;serverURL;disallowConfChanges; sslCACert[comment]=The CA cert used to verify the ssl server sslCACert=/usr/share/rhn/RHNS-CA-CERT # Akamai does not support http protocol, therefore setting this option as side effect disable \"Location aware\" function useNoSSLForPackages[comment]=Use the noSSLServerURL for package, package list, and header fetching (disable Akamai) useNoSSLForPackages=0 retrieveOnly[comment]=Retrieve packages only retrieveOnly=0 skipNetwork[comment]=Skips network information in hardware profile sync during registration. skipNetwork=0 tmpDir[comment]=Use this Directory to place the temporary transport files tmpDir=/tmp writeChangesToLog[comment]=Log to /var/log/up2date which packages has been added and removed writeChangesToLog=0 stagingContent[comment]=Retrieve content of future actions in advance stagingContent=1 stagingContentWindow[comment]=How much forward we should look for future actions. In hours. stagingContentWindow=24 " (* Test: Up2date.lns *) test Up2date.lns get conf = { "#comment" = "Red Hat Update Agent config file." } { "#comment" = "Format: 1.0" } { } { "1" = "debug[comment]" { "value" = "Whether or not debugging is enabled" } } { "2" = "debug" { "value" = "0" } } { } { "3" = "systemIdPath[comment]" { "value" = "Location of system id" } } { "4" = "systemIdPath" { "value" = "/etc/sysconfig/rhn/systemid" } } { } { "5" = "serverURL[comment]" { "value" = "Remote server URL (use FQDN)" } } { "#comment" = "serverURL=https://xmlrpc.rhn.redhat.com/XMLRPC" } { "6" = "serverURL" { "value" = "https://enter.your.server.url.here/XMLRPC" } } { } { "7" = "hostedWhitelist[comment]" { "value" = "RHN Hosted URL's" } } { "8" = "hostedWhitelist" } { } { "9" = "enableProxy[comment]" { "value" = "Use a HTTP Proxy" } } { "10" = "enableProxy" { "value" = "0" } } { } { "11" = "versionOverride[comment]" { "value" = "Override the automatically determined system version" } } { "12" = "versionOverride" } { } { "13" = "httpProxy[comment]" { "value" = "HTTP proxy in host:port format, e.g. squid.redhat.com:3128" } } { "14" = "httpProxy" } { } { "15" = "noReboot[comment]" { "value" = "Disable the reboot actions" } } { "16" = "noReboot" { "value" = "0" } } { } { "17" = "networkRetries[comment]" { "value" = "Number of attempts to make at network connections before giving up" } } { "18" = "networkRetries" { "value" = "1" } } { } { "19" = "disallowConfChanges[comment]" { "value" = "Config options that can not be overwritten by a config update action" } } { "20" = "disallowConfChanges" { "values" { "1" = "noReboot" } { "2" = "sslCACert" } { "3" = "useNoSSLForPackages" } { "4" = "noSSLServerURL" } { "5" = "serverURL" } { "6" = "disallowConfChanges" } } } { } { "21" = "sslCACert[comment]" { "value" = "The CA cert used to verify the ssl server" } } { "22" = "sslCACert" { "value" = "/usr/share/rhn/RHNS-CA-CERT" } } { } { "#comment" = "Akamai does not support http protocol, therefore setting this option as side effect disable \"Location aware\" function" } { "23" = "useNoSSLForPackages[comment]" { "value" = "Use the noSSLServerURL for package, package list, and header fetching (disable Akamai)" } } { "24" = "useNoSSLForPackages" { "value" = "0" } } { } { "25" = "retrieveOnly[comment]" { "value" = "Retrieve packages only" } } { "26" = "retrieveOnly" { "value" = "0" } } { } { "27" = "skipNetwork[comment]" { "value" = "Skips network information in hardware profile sync during registration." } } { "28" = "skipNetwork" { "value" = "0" } } { } { "29" = "tmpDir[comment]" { "value" = "Use this Directory to place the temporary transport files" } } { "30" = "tmpDir" { "value" = "/tmp" } } { } { "31" = "writeChangesToLog[comment]" { "value" = "Log to /var/log/up2date which packages has been added and removed" } } { "32" = "writeChangesToLog" { "value" = "0" } } { } { "33" = "stagingContent[comment]" { "value" = "Retrieve content of future actions in advance" } } { "34" = "stagingContent" { "value" = "1" } } { } { "35" = "stagingContentWindow[comment]" { "value" = "How much forward we should look for future actions. In hours." } } { "36" = "stagingContentWindow" { "value" = "24" } } PK ! �֥�\ \ lenses/dist/tests/test_yaml.augnu �[��� module Test_YAML = (* Inherit test *) test YAML.lns get "host1: <<: *production\n" = { "host1" { "<<" = "production" } } (* top level sequence *) test YAML.lns get " - foo: 1 bar: 2 - baz: 3 gee: 4 " = { } { "@sequence" { "foo" = "1" } { "bar" = "2" } } { } { "@sequence" { "baz" = "3" } { "gee" = "4" } } test YAML.lns get " defaults: &defaults repo1: master repo2: master # Live production: &production # repo3: dc89d7a repo4: 2d39995 # repo5: bc4a40d host1: <<: *production host2: <<: *defaults repo6: branch1 host3: <<: *defaults # repo7: branch2 repo8: branch3 " = {} { "defaults" = "defaults" { "repo1" = "master" } { "repo2" = "master" } } {} { "#comment" = "Live" } { "production" = "production" { "#comment" = "repo3: dc89d7a" } { "repo4" = "2d39995" } { "#comment" = "repo5: bc4a40d" } } {} { "host1" { "<<" = "production" } } {} { "host2" { "<<" = "defaults" } { "repo6" = "branch1" } } {} { "host3" { "<<" = "defaults" } { "#comment" = "repo7: branch2" } { "repo8" = "branch3" } } (* Ruby YAML header *) test YAML.lns get "--- !ruby/object:Puppet::Node::Factspress RETURN)\n" = { "@yaml" = "!ruby/object:Puppet::Node::Factspress RETURN)" } (* Continued lines *) test YAML.lns get "abc: def: |- ghi \n" = { "abc" { "def" { "@mval" { "@line" = "ghi" } } } } PK ! �^J � � & lenses/dist/tests/test_pythonpaste.augnu �[��� module Test_pythonpaste = let conf = " #blah blah [main] pipeline = hello [composite:main] use = egg:Paste#urlmap /v2.0 = public_api /: public_version_api " test PythonPaste.lns get conf = { } { "#comment" = "blah blah" } { "main" { "pipeline" = "hello" } { } } { "composite:main" { "use" = "egg:Paste#urlmap" } { "1" = "/v2.0 = public_api" } { "2" = "/: public_version_api" } } test PythonPaste.lns put conf after set "main/pipeline" "goodbye"; set "composite:main/3" "/v3: a_new_api_version" = " #blah blah [main] pipeline = goodbye [composite:main] use = egg:Paste#urlmap /v2.0 = public_api /: public_version_api /v3: a_new_api_version " (* Paste can define global config in DEFAULT, then override with "set" in sections, RHBZ#1175545 *) test PythonPaste.lns get "[DEFAULT] log_name = swift log_facility = LOG_LOCAL1 [app:proxy-server] use = egg:swift#proxy set log_name = proxy-server\n" = { "DEFAULT" { "log_name" = "swift" } { "log_facility" = "LOG_LOCAL1" } { } } { "app:proxy-server" { "use" = "egg:swift#proxy" } { "log_name" = "proxy-server" { "@set" } } } PK ! I���% % # lenses/dist/tests/test_nsswitch.augnu �[��� module Test_nsswitch = let conf = "# Sample nsswitch.conf passwd: compat hosts: files mdns4_minimal [NOTFOUND=return] dns mdns4 networks: nis [!UNAVAIL=return success=continue] files protocols: db files netgroup: nis bootparams: nisplus [NOTFOUND=return] files aliases: files # uses by mail sudoers: files ldap " test Nsswitch.lns get conf = { "#comment" = "Sample nsswitch.conf" } { "database" = "passwd" { "service" = "compat" } } {} { "database" = "hosts" { "service" = "files" } { "service" = "mdns4_minimal" } { "reaction" { "status" = "NOTFOUND" { "action" = "return" } } } { "service" = "dns" } { "service" = "mdns4" } } { "database" = "networks" { "service" = "nis" } { "reaction" { "status" = "UNAVAIL" { "negate" } { "action" = "return" } } { "status" = "success" { "action" = "continue" } } } { "service" = "files" } } { "database" = "protocols" { "service" = "db" } { "service" = "files" } } { "database" = "netgroup" { "service" = "nis" } } { "database" = "bootparams" { "service" = "nisplus" } { "reaction" { "status" = "NOTFOUND" { "action" = "return" } } } { "service" = "files" } } { "database" = "aliases" { "service" = "files" } { "#comment" = "uses by mail" } } { "database" = "sudoers" { "service" = "files" } { "service" = "ldap" } } PK ! ì�}�7 �7 lenses/dist/tests/test_cups.augnu �[��� (* Module: Test_Cups Provides unit tests and examples for the <Cups> lens. *) module Test_Cups = (* Variable: conf *) let conf = "# Sample configuration file for the CUPS scheduler. LogLevel warn # Deactivate CUPS' internal logrotating, as we provide a better one, especially # LogLevel debug2 gets usable now MaxLogSize 0 # Administrator user group... SystemGroup lpadmin # Only listen for connections from the local machine. Listen localhost:631 Listen /var/run/cups/cups.sock # Show shared printers on the local network. BrowseOrder allow,deny BrowseAllow all BrowseLocalProtocols CUPS dnssd BrowseAddress @LOCAL # Default authentication type, when authentication is required... DefaultAuthType Basic # Web interface setting... WebInterface Yes # Restrict access to the server... <Location /> Order allow,deny </Location> # Restrict access to the admin pages... <Location /admin> Order allow,deny </Location> # Restrict access to configuration files... <Location /admin/conf> AuthType Default Require user @SYSTEM Order allow,deny </Location> # Set the default printer/job policies... <Policy default> # Job/subscription privacy... JobPrivateAccess default JobPrivateValues default SubscriptionPrivateAccess default SubscriptionPrivateValues default # Job-related operations must be done by the owner or an administrator... <Limit Create-Job Print-Job Print-URI Validate-Job> Order deny,allow </Limit> <Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document> Require user @OWNER @SYSTEM Order deny,allow </Limit> # All administration operations require an administrator to authenticate... <Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default CUPS-Get-Devices> AuthType Default Require user @SYSTEM Order deny,allow </Limit> # All printer operations require a printer operator to authenticate... <Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs> AuthType Default Require user @SYSTEM Order deny,allow </Limit> # Only the owner or an administrator can cancel or authenticate a job... <Limit Cancel-Job CUPS-Authenticate-Job> Require user @OWNER @SYSTEM Order deny,allow </Limit> <Limit All> Order deny,allow </Limit> </Policy> # Set the authenticated printer/job policies... <Policy authenticated> # Job/subscription privacy... JobPrivateAccess default JobPrivateValues default SubscriptionPrivateAccess default SubscriptionPrivateValues default # Job-related operations must be done by the owner or an administrator... <Limit Create-Job Print-Job Print-URI Validate-Job> AuthType Default Order deny,allow </Limit> <Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document> AuthType Default Require user @OWNER @SYSTEM Order deny,allow </Limit> # All administration operations require an administrator to authenticate... <Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default> AuthType Default Require user @SYSTEM Order deny,allow </Limit> # All printer operations require a printer operator to authenticate... <Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs> AuthType Default Require user @SYSTEM Order deny,allow </Limit> # Only the owner or an administrator can cancel or authenticate a job... <Limit Cancel-Job CUPS-Authenticate-Job> AuthType Default Require user @OWNER @SYSTEM Order deny,allow </Limit> <Limit All> Order deny,allow </Limit> </Policy> " (* Test: Simplevars.lns *) test Cups.lns get conf = { "#comment" = "Sample configuration file for the CUPS scheduler." } { "directive" = "LogLevel" { "arg" = "warn" } } { } { "#comment" = "Deactivate CUPS' internal logrotating, as we provide a better one, especially" } { "#comment" = "LogLevel debug2 gets usable now" } { "directive" = "MaxLogSize" { "arg" = "0" } } { } { "#comment" = "Administrator user group..." } { "directive" = "SystemGroup" { "arg" = "lpadmin" } } { } { } { "#comment" = "Only listen for connections from the local machine." } { "directive" = "Listen" { "arg" = "localhost:631" } } { "directive" = "Listen" { "arg" = "/var/run/cups/cups.sock" } } { } { "#comment" = "Show shared printers on the local network." } { "directive" = "BrowseOrder" { "arg" = "allow,deny" } } { "directive" = "BrowseAllow" { "arg" = "all" } } { "directive" = "BrowseLocalProtocols" { "arg" = "CUPS" } { "arg" = "dnssd" } } { "directive" = "BrowseAddress" { "arg" = "@LOCAL" } } { } { "#comment" = "Default authentication type, when authentication is required..." } { "directive" = "DefaultAuthType" { "arg" = "Basic" } } { } { "#comment" = "Web interface setting..." } { "directive" = "WebInterface" { "arg" = "Yes" } } { } { "#comment" = "Restrict access to the server..." } { "Location" { "arg" = "/" } { "directive" = "Order" { "arg" = "allow,deny" } } } { "#comment" = "Restrict access to the admin pages..." } { "Location" { "arg" = "/admin" } { "directive" = "Order" { "arg" = "allow,deny" } } } { "#comment" = "Restrict access to configuration files..." } { "Location" { "arg" = "/admin/conf" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "allow,deny" } } } { "#comment" = "Set the default printer/job policies..." } { "Policy" { "arg" = "default" } { "#comment" = "Job/subscription privacy..." } { "directive" = "JobPrivateAccess" { "arg" = "default" } } { "directive" = "JobPrivateValues" { "arg" = "default" } } { "directive" = "SubscriptionPrivateAccess" { "arg" = "default" } } { "directive" = "SubscriptionPrivateValues" { "arg" = "default" } } { } { "#comment" = "Job-related operations must be done by the owner or an administrator..." } { "Limit" { "arg" = "Create-Job" } { "arg" = "Print-Job" } { "arg" = "Print-URI" } { "arg" = "Validate-Job" } { "directive" = "Order" { "arg" = "deny,allow" } } } { "Limit" { "arg" = "Send-Document" } { "arg" = "Send-URI" } { "arg" = "Hold-Job" } { "arg" = "Release-Job" } { "arg" = "Restart-Job" } { "arg" = "Purge-Jobs" } { "arg" = "Set-Job-Attributes" } { "arg" = "Create-Job-Subscription" } { "arg" = "Renew-Subscription" } { "arg" = "Cancel-Subscription" } { "arg" = "Get-Notifications" } { "arg" = "Reprocess-Job" } { "arg" = "Cancel-Current-Job" } { "arg" = "Suspend-Current-Job" } { "arg" = "Resume-Job" } { "arg" = "Cancel-My-Jobs" } { "arg" = "Close-Job" } { "arg" = "CUPS-Move-Job" } { "arg" = "CUPS-Get-Document" } { "directive" = "Require" { "arg" = "user" } { "arg" = "@OWNER" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "All administration operations require an administrator to authenticate..." } { "Limit" { "arg" = "CUPS-Add-Modify-Printer" } { "arg" = "CUPS-Delete-Printer" } { "arg" = "CUPS-Add-Modify-Class" } { "arg" = "CUPS-Delete-Class" } { "arg" = "CUPS-Set-Default" } { "arg" = "CUPS-Get-Devices" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "All printer operations require a printer operator to authenticate..." } { "Limit" { "arg" = "Pause-Printer" } { "arg" = "Resume-Printer" } { "arg" = "Enable-Printer" } { "arg" = "Disable-Printer" } { "arg" = "Pause-Printer-After-Current-Job" } { "arg" = "Hold-New-Jobs" } { "arg" = "Release-Held-New-Jobs" } { "arg" = "Deactivate-Printer" } { "arg" = "Activate-Printer" } { "arg" = "Restart-Printer" } { "arg" = "Shutdown-Printer" } { "arg" = "Startup-Printer" } { "arg" = "Promote-Job" } { "arg" = "Schedule-Job-After" } { "arg" = "Cancel-Jobs" } { "arg" = "CUPS-Accept-Jobs" } { "arg" = "CUPS-Reject-Jobs" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." } { "Limit" { "arg" = "Cancel-Job" } { "arg" = "CUPS-Authenticate-Job" } { "directive" = "Require" { "arg" = "user" } { "arg" = "@OWNER" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "Limit" { "arg" = "All" } { "directive" = "Order" { "arg" = "deny,allow" } } } } { "#comment" = "Set the authenticated printer/job policies..." } { "Policy" { "arg" = "authenticated" } { "#comment" = "Job/subscription privacy..." } { "directive" = "JobPrivateAccess" { "arg" = "default" } } { "directive" = "JobPrivateValues" { "arg" = "default" } } { "directive" = "SubscriptionPrivateAccess" { "arg" = "default" } } { "directive" = "SubscriptionPrivateValues" { "arg" = "default" } } { } { "#comment" = "Job-related operations must be done by the owner or an administrator..." } { "Limit" { "arg" = "Create-Job" } { "arg" = "Print-Job" } { "arg" = "Print-URI" } { "arg" = "Validate-Job" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "Limit" { "arg" = "Send-Document" } { "arg" = "Send-URI" } { "arg" = "Hold-Job" } { "arg" = "Release-Job" } { "arg" = "Restart-Job" } { "arg" = "Purge-Jobs" } { "arg" = "Set-Job-Attributes" } { "arg" = "Create-Job-Subscription" } { "arg" = "Renew-Subscription" } { "arg" = "Cancel-Subscription" } { "arg" = "Get-Notifications" } { "arg" = "Reprocess-Job" } { "arg" = "Cancel-Current-Job" } { "arg" = "Suspend-Current-Job" } { "arg" = "Resume-Job" } { "arg" = "Cancel-My-Jobs" } { "arg" = "Close-Job" } { "arg" = "CUPS-Move-Job" } { "arg" = "CUPS-Get-Document" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@OWNER" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "All administration operations require an administrator to authenticate..." } { "Limit" { "arg" = "CUPS-Add-Modify-Printer" } { "arg" = "CUPS-Delete-Printer" } { "arg" = "CUPS-Add-Modify-Class" } { "arg" = "CUPS-Delete-Class" } { "arg" = "CUPS-Set-Default" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "All printer operations require a printer operator to authenticate..." } { "Limit" { "arg" = "Pause-Printer" } { "arg" = "Resume-Printer" } { "arg" = "Enable-Printer" } { "arg" = "Disable-Printer" } { "arg" = "Pause-Printer-After-Current-Job" } { "arg" = "Hold-New-Jobs" } { "arg" = "Release-Held-New-Jobs" } { "arg" = "Deactivate-Printer" } { "arg" = "Activate-Printer" } { "arg" = "Restart-Printer" } { "arg" = "Shutdown-Printer" } { "arg" = "Startup-Printer" } { "arg" = "Promote-Job" } { "arg" = "Schedule-Job-After" } { "arg" = "Cancel-Jobs" } { "arg" = "CUPS-Accept-Jobs" } { "arg" = "CUPS-Reject-Jobs" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." } { "Limit" { "arg" = "Cancel-Job" } { "arg" = "CUPS-Authenticate-Job" } { "directive" = "AuthType" { "arg" = "Default" } } { "directive" = "Require" { "arg" = "user" } { "arg" = "@OWNER" } { "arg" = "@SYSTEM" } } { "directive" = "Order" { "arg" = "deny,allow" } } } { "Limit" { "arg" = "All" } { "directive" = "Order" { "arg" = "deny,allow" } } } } PK ! p�T� lenses/dist/tests/test_slapd.augnu �[��� module Test_slapd = let conf = "# This is the main slapd configuration file. See slapd.conf(5) for more # info on the configuration options. ####################################################################### # Global Directives: # Features to permit #allow bind_v2 # Schema and objectClass definitions include /etc/ldap/schema/core.schema ####################################################################### # Specific Directives for database #1, of type hdb: # Database specific directives apply to this databasse until another # 'database' directive occurs database hdb # The base of your directory in database #1 suffix \"dc=nodomain\" access to attrs=userPassword,shadowLastChange by dn=\"cn=admin,dc=nodomain\" write by anonymous auth by self write by * none " test Slapd.lns get conf = { "#comment" = "This is the main slapd configuration file. See slapd.conf(5) for more" } { "#comment" = "info on the configuration options." } {} { "#comment" = "######################################################################" } { "#comment" = "Global Directives:"} {} { "#comment" = "Features to permit" } { "#comment" = "allow bind_v2" } {} { "#comment" = "Schema and objectClass definitions" } { "include" = "/etc/ldap/schema/core.schema" } {} { "#comment" = "######################################################################" } { "#comment" = "Specific Directives for database #1, of type hdb:" } { "#comment" = "Database specific directives apply to this databasse until another" } { "#comment" = "'database' directive occurs" } { "database" = "hdb" {} { "#comment" = "The base of your directory in database #1" } { "suffix" = "dc=nodomain" } {} { "access to" = "attrs=userPassword,shadowLastChange" { "by" = "dn=\"cn=admin,dc=nodomain\"" { "access" = "write" } } { "by" = "anonymous" { "access" = "auth" } } { "by" = "self" { "access" = "write" } } { "by" = "*" { "access" = "none" } } } } (* Test: Slapd.lns Full access test with who/access/control *) test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\" by self write stop\n" = { "access to" = "dn.subtree=\"dc=example,dc=com\"" { "by" = "self" { "access" = "write" } { "control" = "stop" } } } (* Test: Slapd.lns access test with who *) test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\" by self\n" = { "access to" = "dn.subtree=\"dc=example,dc=com\"" { "by" = "self" } } (* Test: Slapd.lns access test with who/access *) test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\" by self write\n" = { "access to" = "dn.subtree=\"dc=example,dc=com\"" { "by" = "self" { "access" = "write" } } } (* Test: Slapd.lns access test with who/control *) test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\" by self stop\n" = { "access to" = "dn.subtree=\"dc=example,dc=com\"" { "by" = "self" { "control" = "stop" } } } PK ! �G�� � " lenses/dist/tests/test_desktop.augnu �[��� module Test_desktop = let conf = "# A comment [Desktop Entry] Version=1.0 Type=Application Name=Foo Viewer # another comment Comment=The best viewer for Foo objects available! TryExec=fooview Exec=fooview %F Icon=fooview MimeType=image/x-foo; X-KDE-Library=libfooview X-KDE-FactoryName=fooviewfactory X-KDE-ServiceType=FooService " test Desktop.lns get conf = { "#comment" = "A comment" } { "Desktop Entry" { "Version" = "1.0" } { "Type" = "Application" } { "Name" = "Foo Viewer" } { "#comment" = "another comment" } { "Comment" = "The best viewer for Foo objects available!" } { "TryExec" = "fooview" } { "Exec" = "fooview %F" } { "Icon" = "fooview" } { "MimeType" = "image/x-foo;" } { "X-KDE-Library" = "libfooview" } { "X-KDE-FactoryName" = "fooviewfactory" } { "X-KDE-ServiceType" = "FooService" } } (* Entries with square brackets *) test Desktop.lns get "[Desktop Entry] X-GNOME-FullName[ca]=En canadien " = { "Desktop Entry" { "X-GNOME-FullName[ca]" = "En canadien" } } (* Test: Desktop.lns Allow @ in setting (GH issue #92) *) test Desktop.lns get "[Desktop Entry] Name[sr@latin] = foobar\n" = { "Desktop Entry" { "Name[sr@latin]" = "foobar" } } PK ! �e3x� � lenses/dist/cobblersettings.augnu �[��� (* Parse the /etc/cobbler/settings file which is in YAML 1.0 format. The lens can handle the following constructs * key: value * key: "value" * key: 'value' * key: [value1, value2] * key: - value1 - value2 * key: key2: value1 key3: value2 Author: Bryan Kearney About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module CobblerSettings = autoload xfm let kw = /[a-zA-Z0-9_]+/ (* TODO Would be better if this stripped off the "" and '' characters *) let kv = /([^]['", \t\n#:@-]+|"[^"\n]*"|'[^'\n]*')/ let lbr = del /\[/ "[" let rbr = del /\]/ "]" let colon = del /[ \t]*:[ \t]*/ ": " let dash = del /-[ \t]*/ "- " (* let comma = del /,[ \t]*(\n[ \t]+)?/ ", " *) let comma = del /[ \t]*,[ \t]*/ ", " let eol_only = del /\n/ "\n" (* TODO Would be better to make items a child of a document *) let docmarker = /-{3}/ let eol = Util.eol let comment = Util.comment let empty = Util.empty let indent = del /[ \t]+/ "\t" let ws = del /[ \t]*/ " " let value_list = Build.opt_list [label "item" . store kv] comma let setting = [key kw . colon . store kv] . eol let simple_setting_suffix = store kv . eol let setting_list_suffix = [label "sequence" . lbr . ws . (value_list . ws)? . rbr ] . eol let indendented_setting_list_suffix = eol_only . (indent . setting)+ let indented_list_suffix = [label "list" . eol_only . ([ label "value" . indent . dash . store kv] . eol)+] (* Break out setting because of a current bug in augeas *) let nested_setting = [key kw . colon . ( (* simple_setting_suffix | *) setting_list_suffix | indendented_setting_list_suffix | indented_list_suffix ) ] let document = [label "---" . store docmarker] . eol let lns = (document | comment | empty | setting | nested_setting )* let xfm = transform lns (incl "/etc/cobbler/settings") (* Local Variables: *) (* mode: caml *) (* End: *) PK ! �4[� � lenses/dist/star.augnu �[��� (* Module: Star Parses star's configuration file Author: Cedric Bosdonnat <cbosdonnat@suse.com> About: Reference This lens is based on star(1) About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Star = autoload xfm let sto_to_tab = store Rx.no_spaces let size = Build.key_value_line "STAR_FIFOSIZE" Sep.space_equal ( store /[0-9x*.a-z]+/ ) let size_max = Build.key_value_line "STAR_FIFOSIZE_MAX" Sep.space_equal ( store /[0-9x*.a-z]+/ ) let archive = Build.key_value_line ( "archive". /[0-7]/ ) Sep.equal ( [ label "device" . sto_to_tab ] . Sep.tab . [ label "block" . sto_to_tab ] . Sep.tab . [ label "size" . sto_to_tab ] . ( Sep.tab . [ label "istape" . sto_to_tab ] )? ) let lns = ( size | size_max | archive | Util.comment | Util.empty )* let filter = incl "/etc/default/star" let xfm = transform lns filter PK ! r5/vx x lenses/dist/exports.augnu �[��� (* Lens for Linux syntax of NFS exports(5) *) (* Module: Exports Parses /etc/exports Author: David Lutterkort <lutter@redhat.com> About: Description /etc/exports contains lines associating a directory with one or more hosts, and NFS options for each host. About: Usage Example (start code) $ augtool augtool> ls /files/etc/exports/ comment[1] = /etc/exports: the access control list for filesystems which may be exported comment[2] = to NFS clients. See exports(5). comment[3] = sample /etc/exports file dir[1]/ = / dir[2]/ = /projects dir[3]/ = /usr dir[4]/ = /home/joe augtool> ls /files/etc/exports/dir[1] client[1]/ = master client[2]/ = trusty (end code) The corresponding line in the file is: (start code) / master(rw) trusty(rw,no_root_squash) (end code) Digging further: (start code) augtool> ls /files/etc/exports/dir[1]/client[1] option = rw To add a new entry, you'd do something like this: (end code) (start code) augtool> set /files/etc/exports/dir[10000] /foo augtool> set /files/etc/exports/dir[last()]/client[1] weeble augtool> set /files/etc/exports/dir[last()]/client[1]/option[1] ro augtool> set /files/etc/exports/dir[last()]/client[1]/option[2] all_squash augtool> save Saved 1 file(s) (end code) Which creates the line: (start code) /foo weeble(ro,all_squash) (end code) About: Limitations This lens cannot handle options without a host, as with the last example line in "man 5 exports": /pub (ro,insecure,all_squash) In this case, though, you can just do: /pub *(ro,insecure,all_squash) It also can't handle whitespace before the directory name. *) module Exports = autoload xfm let client_re = /[][a-zA-Z0-9.@*?\/:-]+/ let eol = Util.eol let lbracket = Util.del_str "(" let rbracket = Util.del_str ")" let sep_com = Sep.comma let sep_spc = Sep.space let option = [ label "option" . store /[^,)]*/ ] let client = [ label "client" . store client_re . ( Build.brackets lbracket rbracket ( Build.opt_list option sep_com ) )? ] let entry = [ label "dir" . store /[^ \t\n#]*/ . sep_spc . Build.opt_list client sep_spc . eol ] let lns = (Util.empty | Util.comment | entry)* let xfm = transform lns (incl "/etc/exports") PK ! ���r� � lenses/dist/hosts.augnu �[��� (* Parsing /etc/hosts *) module Hosts = autoload xfm let word = /[^# \n\t]+/ let record = [ seq "host" . Util.indent . [ label "ipaddr" . store word ] . Sep.tab . [ label "canonical" . store word ] . [ label "alias" . Sep.space . store word ]* . Util.comment_or_eol ] let lns = ( Util.empty | Util.comment | record ) * let xfm = transform lns (incl "/etc/hosts") PK ! ��2� � lenses/dist/cups.augnu �[��� (* Module: Cups Parses cups configuration files Author: Raphael Pinson <raphink@gmail.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Examples The <Test_Cups> file contains various examples and tests. *) module Cups = autoload xfm (* View: lns *) let lns = Httpd.lns (* Variable: filter *) let filter = incl "/etc/cups/*.conf" let xfm = transform lns filter PK ! ���� � lenses/dist/host_conf.augnu �[��� (* Module: Host_Conf Parses /etc/host.conf Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man 5 host.conf` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/host.conf. See <filter>. *) module Host_Conf = autoload xfm (************************************************************************ * Group: ENTRY TYPES *************************************************************************) (* View: sto_bool Store a boolean value *) let sto_bool = store ("on"|"off") (* View: sto_bool_warn Store a boolean value *) let sto_bool_warn = store ("on"|"off"|"warn"|"nowarn") (* View: bool A boolean switch *) let bool (kw:regexp) = Build.key_value_line kw Sep.space sto_bool (* View: bool_warn A boolean switch with extended values *) let bool_warn (kw:regexp) = Build.key_value_line kw Sep.space sto_bool_warn (* View: list A list of items *) let list (kw:regexp) (elem:string) = let list_elems = Build.opt_list [seq elem . store Rx.word] (Sep.comma . Sep.opt_space) in Build.key_value_line kw Sep.space list_elems (* View: trim *) let trim = let trim_list = Build.opt_list [seq "trim" . store Rx.word] (del /[:;,]/ ":") in Build.key_value_line "trim" Sep.space trim_list (* View: entry *) let entry = bool ("multi"|"nospoof"|"spoofalert"|"reorder") | bool_warn "spoof" | list "order" "order" | trim (************************************************************************ * Group: LENS AND FILTER *************************************************************************) (* View: lns *) let lns = ( Util.empty | Util.comment | entry )* (* View: filter *) let filter = incl "/etc/host.conf" let xfm = transform lns filter PK ! q lenses/dist/postfix_access.augnu �[��� (* Parsing /etc/postfix/access *) module Postfix_Access = autoload xfm let sep_tab = Util.del_ws_tab let sep_spc = Util.del_ws_spc let eol = del /[ \t]*\n/ "\n" let indent = del /[ \t]*/ "" let comment = Util.comment let empty = Util.empty let char = /[^# \n\t]/ let text = let cont = /\n[ \t]+/ in let any = /[^#\n]/ in char | (char . (any | cont)* .char) let word = char+ let record = [ seq "spec" . [ label "pattern" . store word ] . sep_tab . [ label "action" . store word ] . [ label "parameters" . sep_spc . store text ]? . eol ] let lns = ( empty | comment | record )* let xfm = transform lns (incl "/etc/postfix/access" . incl "/usr/local/etc/postfix/access") PK ! ���] ] lenses/dist/sssd.augnu �[��� (* Module Sssd Lens for parsing sssd.conf Author: Erinn Looney-Triggs <erinn.looneytriggs@gmail.com> About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/sssd/sssd.conf. See <filter>. *) module Sssd = autoload xfm let comment = IniFile.comment /[#;]/ "#" let sep = IniFile.sep "=" "=" let entry = IniFile.indented_entry IniFile.entry_re sep comment (* View: title An sssd.conf section title *) let title = IniFile.indented_title_label "target" IniFile.record_label_re (* View: record An sssd.conf record *) let record = IniFile.record title entry (* View: lns The sssd.conf lens *) let lns = ( comment | IniFile.empty )* . (record)* (* View: filter *) let filter = (incl "/etc/sssd/sssd.conf") let xfm = transform lns filter PK ! ���7' ' lenses/dist/redis.augnu �[��� (* Module: Redis Parses Redis's configuration files Author: Marc Fournier <marc.fournier@camptocamp.com> About: Reference This lens is based on Redis's default redis.conf About: Usage Example (start code) augtool> set /augeas/load/Redis/incl "/etc/redis/redis.conf" augtool> set /augeas/load/Redis/lens "Redis.lns" augtool> load augtool> get /files/etc/redis/redis.conf/vm-enabled /files/etc/redis/redis.conf/vm-enabled = no augtool> print /files/etc/redis/redis.conf/rename-command[1]/ /files/etc/redis/redis.conf/rename-command /files/etc/redis/redis.conf/rename-command/from = "CONFIG" /files/etc/redis/redis.conf/rename-command/to = "CONFIG2" augtool> set /files/etc/redis/redis.conf/activerehashing no augtool> save Saved 1 file(s) augtool> set /files/etc/redis/redis.conf/save[1]/seconds 123 augtool> set /files/etc/redis/redis.conf/save[1]/keys 456 augtool> save Saved 1 file(s) (end code) The <Test_Redis> file also contains various examples. About: License This file is licensed under the LGPL v2+, like the rest of Augeas. *) module Redis = autoload xfm let k = Rx.word let v = /[^ \t\n'"]+/ let comment = Util.comment let empty = Util.empty let indent = Util.indent let eol = Util.eol let del_ws_spc = Util.del_ws_spc let dquote = Util.del_str "\"" (* View: standard_entry A standard entry is a key-value pair, separated by blank space, with optional blank spaces at line beginning & end. The value part can be optionnaly enclosed in single or double quotes. Comments at end-of-line ar NOT allowed by redis-server. *) let standard_entry = let reserved_k = "save" | "rename-command" | "replicaof" | "slaveof" | "bind" | "client-output-buffer-limit" | "sentinel" in let entry_noempty = [ indent . key (k - reserved_k) . del_ws_spc . Quote.do_quote_opt_nil (store v) . eol ] in let entry_empty = [ indent . key (k - reserved_k) . del_ws_spc . dquote . store "" . dquote . eol ] in entry_noempty | entry_empty let save = /save/ let seconds = [ label "seconds" . Quote.do_quote_opt_nil (store Rx.integer) ] let keys = [ label "keys" . Quote.do_quote_opt_nil (store Rx.integer) ] (* View: save_entry Entries identified by the "save" keyword can be found more than once. They have 2 mandatory parameters, both integers. The same rules as standard_entry apply for quoting, comments and whitespaces. *) let save_entry = [ indent . key save . del_ws_spc . seconds . del_ws_spc . keys . eol ] let replicaof = /replicaof|slaveof/ let ip = [ label "ip" . Quote.do_quote_opt_nil (store Rx.ip) ] let port = [ label "port" . Quote.do_quote_opt_nil (store Rx.integer) ] (* View: replicaof_entry Entries identified by the "replicaof" keyword can be found more than once. They have 2 mandatory parameters, the 1st one is an IP address, the 2nd one is a port number. The same rules as standard_entry apply for quoting, comments and whitespaces. *) let replicaof_entry = [ indent . key replicaof . del_ws_spc . ip . del_ws_spc . port . eol ] let sentinel_global_entry = let keys = "deny-scripts-reconfig" | "current-epoch" | "myid" in store keys . del_ws_spc . [ label "value" . store ( Rx.word | Rx.integer ) ] let sentinel_cluster_setup = let keys = "config-epoch" | "leader-epoch" in store keys . del_ws_spc . [ label "cluster" . store Rx.word ] . del_ws_spc . [ label "epoch" . store Rx.integer ] let sentinel_cluster_instance_setup = let keys = "monitor" | "known-replica" in store keys . del_ws_spc . [ label "cluster" . store Rx.word ] . del_ws_spc. [ label "ip" . store Rx.ip ] . del_ws_spc . [ label "port" . store Rx.integer ] . (del_ws_spc . [ label "quorum" . store Rx.integer ])? let sentinel_clustering = let keys = "known-sentinel" in store keys . del_ws_spc . [ label "cluster" . store Rx.word ] . del_ws_spc . [ label "ip" . store Rx.ip ] . del_ws_spc . [ label "port" . store Rx.integer ] . del_ws_spc . [ label "id" . store Rx.word ] (* View: sentinel_entry *) let sentinel_entry = indent . [ key "sentinel" . del_ws_spc . (sentinel_global_entry | sentinel_cluster_setup | sentinel_cluster_instance_setup | sentinel_clustering) ] . eol (* View: bind_entry The "bind" entry can be passed one or several ip addresses. A bind statement "bind ip1 ip2 .. ipn" results in a tree { "bind" { "ip" = ip1 } { "ip" = ip2 } ... { "ip" = ipn } } *) let bind_entry = let ip = del_ws_spc . Quote.do_quote_opt_nil (store Rx.ip) in indent . [ key "bind" . [ label "ip" . ip ]+ ] . eol let renamecmd = /rename-command/ let from = [ label "from" . Quote.do_quote_opt_nil (store Rx.word) ] let to = [ label "to" . Quote.do_quote_opt_nil (store Rx.word) ] (* View: save_entry Entries identified by the "rename-command" keyword can be found more than once. They have 2 mandatory parameters, both strings. The same rules as standard_entry apply for quoting, comments and whitespaces. *) let renamecmd_entry = [ indent . key renamecmd . del_ws_spc . from . del_ws_spc . to . eol ] let cobl_cmd = /client-output-buffer-limit/ let class = [ label "class" . Quote.do_quote_opt_nil (store Rx.word) ] let hard_limit = [ label "hard_limit" . Quote.do_quote_opt_nil (store Rx.word) ] let soft_limit = [ label "soft_limit" . Quote.do_quote_opt_nil (store Rx.word) ] let soft_seconds = [ label "soft_seconds" . Quote.do_quote_opt_nil (store Rx.integer) ] (* View: client_output_buffer_limit_entry Entries identified by the "client-output-buffer-limit" keyword can be found more than once. They have four mandatory parameters, of which the first is a string, the last one is an integer and the others are either integers or words, although redis is very liberal and takes "4242yadayadabytes" as a valid limit. The same rules as standard_entry apply for quoting, comments and whitespaces. *) let client_output_buffer_limit_entry = [ indent . key cobl_cmd . del_ws_spc . class . del_ws_spc . hard_limit . del_ws_spc . soft_limit . del_ws_spc . soft_seconds . eol ] let entry = standard_entry | save_entry | renamecmd_entry | replicaof_entry | bind_entry | sentinel_entry | client_output_buffer_limit_entry (* View: lns The Redis lens *) let lns = (comment | empty | entry )* let filter = incl "/etc/redis.conf" . incl "/etc/redis/redis.conf" let xfm = transform lns filter PK ! ����A A lenses/dist/thttpd.augnu �[��� (* 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 PK ! �H� � lenses/dist/backuppchosts.augnu �[��� (* Module: BackupPCHosts Parses /etc/backuppc/hosts About: Reference This lens tries to keep as close as possible to `man backuppc` where possible. About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/backuppc/hosts. See <filter>. *) module BackupPCHosts = autoload xfm (* View: word *) let word = /[^#, \n\t\/]+/ (* View: record *) let record = let moreusers = Build.opt_list [ label "moreusers" . store word ] Sep.comma in [ seq "host" . [ label "host" . store word ] . Util.del_ws_tab . [ label "dhcp" . store word ] . Util.del_ws_tab . [ label "user" . store word ] . (Util.del_ws_tab . moreusers)? . (Util.comment|Util.eol) ] (* View: lns *) let lns = ( Util.empty | Util.comment | record ) * (* View: filter *) let filter = incl "/etc/backuppc/hosts" let xfm = transform lns filter PK ! ��`� lenses/dist/puppet.augnu �[��� (* Puppet module for Augeas Author: Raphael Pinson <raphink@gmail.com> puppet.conf is a standard INI File. *) module Puppet = autoload xfm (************************************************************************ * INI File settings * * puppet.conf only supports "# as commentary and "=" as separator *************************************************************************) let comment = IniFile.comment "#" "#" let sep = IniFile.sep "=" "=" (************************************************************************ * ENTRY * puppet.conf uses standard INI File entries *************************************************************************) let entry = IniFile.indented_entry IniFile.entry_re sep comment (************************************************************************ * RECORD * puppet.conf uses standard INI File records *************************************************************************) let title = IniFile.indented_title IniFile.record_re let record = IniFile.record title entry (************************************************************************ * LENS & FILTER * puppet.conf uses standard INI File records *************************************************************************) let lns = IniFile.lns record comment let filter = (incl "/etc/puppet/puppet.conf" .incl "/usr/local/etc/puppet/puppet.conf" .incl "/etc/puppetlabs/puppet/puppet.conf") let xfm = transform lns filter PK ! �a#� � lenses/dist/gshadow.augnu �[��� (* Module: Gshadow Parses /etc/gshadow Author: Lorenzo M. Catucci <catucci@ccd.uniroma2.it> Original Author: Free Ekanayaka <free@64studio.com> About: Reference - man 5 gshadow About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Each line in the gshadow files represents the additional shadow-defined attributes for the corresponding group, as defined in the group file. *) module Gshadow = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let comment = Util.comment let empty = Util.empty let colon = Sep.colon let comma = Sep.comma let sto_to_spc = store Rx.space_in let word = Rx.word let password = /[A-Za-z0-9_.!*-]*/ let integer = Rx.integer (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: member *) let member = [ label "member" . store word ] (* View: member_list the member list is a comma separated list of users allowed to chgrp to the group without being prompted for the group's password *) let member_list = Build.opt_list member comma (* View: admin *) let admin = [ label "admin" . store word ] (* View: admin_list the admin_list is a comma separated list of users allowed to change the group's password and the member_list *) let admin_list = Build.opt_list admin comma (* View: params *) let params = [ label "password" . store password . colon ] . admin_list? . colon . member_list? let entry = Build.key_value_line word colon params (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|entry) * let filter = incl "/etc/gshadow" . Util.stdexcl let xfm = transform lns filter PK ! W^Y� � lenses/dist/dnsmasq.augnu �[��� (* Dnsmasq module for Augeas Author: Free Ekanayaka <free@64studio.com> Reference: man dnsmasq (8) "Format is one option per line, legal options are the same as the long options legal on the command line. See "/usr/sbin/dnsmasq --help" or "man 8 dnsmasq" for details." *) module Dnsmasq = autoload xfm (************************************************************************ * USEFUL PRIMITIVES *************************************************************************) let eol = Util.eol let spc = Util.del_ws_spc let comment = Util.comment let empty = Util.empty let sep_eq = Sep.equal let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ let slash = Util.del_str "/" let sto_no_slash = store /([^\/ \t\n]+)/ let domains = slash . [ label "domain" . sto_no_slash . slash ]+ (************************************************************************ * SIMPLE ENTRIES *************************************************************************) let entry_re = Rx.word - /(address|server)/ let entry = [ key entry_re . (sep_eq . sto_to_eol)? . eol ] (************************************************************************ * STRUCTURED ENTRIES *************************************************************************) let address = [ key "address" . sep_eq . domains . sto_no_slash . eol ] let server = let port = [ Build.xchgs "#" "port" . store Rx.integer ] in let source = [ Build.xchgs "@" "source" . store /[^#\/ \t\n]+/ . port? ] in let srv_spec = store /(#|([^#@\/ \t\n]+))/ . port? . source? in [ key "server" . sep_eq . domains? . srv_spec? . eol ] (************************************************************************ * LENS *************************************************************************) let lns = (comment|empty|address|server|entry) * let filter = incl "/etc/dnsmasq.conf" . incl "/etc/dnsmasq.d/*" . excl ".*" . Util.stdexcl let xfm = transform lns filter PK ! m+��� � lenses/dist/csv.augnu �[��� (* Module: CSV Generic CSV lens collection Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference https://tools.ietf.org/html/rfc4180 About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files About: Examples The <Test_CSV> file contains various examples and tests. Caveats: No support for files without an ending CRLF *) module CSV = (* View: eol *) let eol = Util.del_str "\n" (* View: comment *) let comment = Util.comment | [ del /#[ \t]*\r?\n/ "#\n" ] (* View: entry An entry of fields, quoted or not *) let entry (sep_str:string) = let field = [ seq "field" . store (/[^"#\r\n]/ - sep_str)* ] | [ seq "field" . store /("[^"#]*")+/ ] in let sep = Util.del_str sep_str in [ seq "entry" . counter "field" . Build.opt_list field sep . eol ] (* View: lns The generic lens, taking the separator as a parameter *) let lns_generic (sep:string) = (comment | entry sep)* (* View: lns The comma-separated value lens *) let lns = lns_generic "," (* View: lns_semicol A semicolon-separated value lens *) let lns_semicol = lns_generic ";" PK ! cފg g lenses/dist/login_defs.augnu �[��� (* Module: Login_defs Lense for login.defs Author: Erinn Looney-Triggs About: License This file is licensed under the LGPL v2+, like the rest of Augeas. About: Configuration files This lens applies to /etc/login.defs. See <filter>. *) module Login_defs = autoload xfm (* View: record A login.defs record *) let record = let value = store /[^ \t\n]+([ \t]+[^ \t\n]+)*/ in [ key Rx.word . Sep.space . value . Util.eol ] (* View: lns The login.defs lens *) let lns = (record | Util.comment | Util.empty) * (* View: filter *) let filter = incl "/etc/login.defs" let xfm = transform lns filter PK ! �|w� � lenses/dist/ssh.augnu �[��� (* Module: Ssh Parses ssh client configuration Author: Jiri Suchomel <jsuchome@suse.cz> About: Reference ssh_config man page About: License This file is licensed under the GPL. About: Lens Usage Sample usage of this lens in augtool (start code) augtool> set /files/etc/ssh/ssh_config/Host example.com augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/RemoteForward/machine1:1234 machine2:5678 augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/Ciphers/1 aes128-ctr augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/Ciphers/2 aes192-ctr (end code) *) module Ssh = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) let eol = Util.doseol let spc = Util.del_ws_spc let spc_eq = del /[ \t]+|[ \t]*=[ \t]*/ " " let comment = Util.comment let empty = Util.empty let comma = Util.del_str "," let indent = Util.indent let value_to_eol = store Rx.space_in let value_to_spc = store /[^ \t\r\n=][^ \t\r\n]*/ let value_to_comma = store /[^, \t\r\n=][^, \t\r\n]*/ (************************************************************************ * Group: ENTRIES *************************************************************************) let array_entry (k:regexp) = [ indent . key k . counter "array_entry" . [ spc . seq "array_entry" . value_to_spc]* . eol ] let commas_entry (k:regexp) = let value = [ seq "commas_entry" . value_to_comma] in [ indent . key k . counter "commas_entry" . spc_eq . Build.opt_list value comma . eol ] let spaces_entry (k:regexp) = let value = [ seq "spaces_entry" . value_to_spc ] in [ indent . key k . counter "spaces_entry" . spc_eq . Build.opt_list value spc . eol ] let fw_entry (k:regexp) = [ indent . key k . spc_eq . [ key /[^ \t\r\n\/=][^ \t\r\n\/]*/ . spc . value_to_eol . eol ]] let send_env = array_entry /SendEnv/i let proxy_command = [ indent . key /ProxyCommand/i . spc . value_to_eol . eol ] let remote_fw = fw_entry /RemoteForward/i let local_fw = fw_entry /LocalForward/i let ciphers = commas_entry /Ciphers/i let macs = commas_entry /MACs/i let algorithms = commas_entry /(HostKey|Kex)Algorithms/i let pubkey_accepted_key_types = commas_entry /PubkeyAcceptedKeyTypes/i let global_knownhosts_file = spaces_entry /GlobalKnownHostsFile/i let rekey_limit = [ indent . key /RekeyLimit/i . spc_eq . [ label "amount" . value_to_spc ] . [ spc . label "duration" . value_to_spc ]? . eol ] let special_entry = send_env | proxy_command | remote_fw | local_fw | macs | ciphers | algorithms | pubkey_accepted_key_types | global_knownhosts_file | rekey_limit let key_re = /[A-Za-z0-9]+/ - /SendEnv|Host|Match|ProxyCommand|RemoteForward|LocalForward|MACs|Ciphers|(HostKey|Kex)Algorithms|PubkeyAcceptedKeyTypes|GlobalKnownHostsFile|RekeyLimit/i let other_entry = [ indent . key key_re . spc_eq . value_to_spc . eol ] let entry = comment | empty | special_entry | other_entry let host = [ key /Host/i . spc . value_to_eol . eol . entry* ] let condition_entry = let k = /[A-Za-z0-9]+/ in let no_spc = Quote.do_dquote_opt (store /[^"' \t\r\n=]+/) in let with_spc = Quote.do_quote (store /[^"'\t\r\n]* [^"'\t\r\n]*/) in [ spc . key k . spc . no_spc ] | [ spc . key k . spc . with_spc ] let match_cond = [ label "Condition" . condition_entry+ . eol ] let match_entry = entry let match = [ key /Match/i . match_cond . [ label "Settings" . match_entry+ ] ] (************************************************************************ * Group: LENS *************************************************************************) let lns = entry* . (host | match)* let xfm = transform lns (incl "/etc/ssh/ssh_config" . incl (Sys.getenv("HOME") . "/.ssh/config") . incl "/etc/ssh/ssh_config.d/*.conf") PK ! *MP MP lenses/dist/sudoers.augnu �[��� (* Module: Sudoers Parses /etc/sudoers Author: Raphael Pinson <raphink@gmail.com> About: Reference This lens tries to keep as close as possible to `man sudoers` where possible. For example, recursive definitions such as > Cmnd_Spec_List ::= Cmnd_Spec | > Cmnd_Spec ',' Cmnd_Spec_List are replaced by > let cmnd_spec_list = cmnd_spec . ( sep_com . cmnd_spec )* since Augeas cannot deal with recursive definitions. The definitions from `man sudoers` are put as commentaries for reference throughout the file. More information can be found in the manual. 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 * Set first Defaults to apply to the "LOCALNET" network alias > set /files/etc/sudoers/Defaults[1]/type "@LOCALNET" * List all user specifications applying explicitly to the "admin" Unix group > match /files/etc/sudoers/spec/user "%admin" * Remove the full 3rd user specification > rm /files/etc/sudoers/spec[3] About: Configuration files This lens applies to /etc/sudoers. See <filter>. *) module Sudoers = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* Group: Generic primitives *) (* Variable: eol *) let eol = Util.eol (* Variable: indent *) let indent = Util.indent (* Group: Separators *) (* Variable: sep_spc *) let sep_spc = Sep.space (* Variable: sep_cont *) let sep_cont = Sep.cl_or_space (* Variable: sep_cont_opt *) let sep_cont_opt = Sep.cl_or_opt_space (* Variable: sep_cont_opt_build *) let sep_cont_opt_build (sep:string) = del (Rx.cl_or_opt_space . sep . Rx.cl_or_opt_space) (" " . sep . " ") (* Variable: sep_com *) let sep_com = sep_cont_opt_build "," (* Variable: sep_eq *) let sep_eq = sep_cont_opt_build "=" (* Variable: sep_col *) let sep_col = sep_cont_opt_build ":" (* Variable: sep_dquote *) let sep_dquote = Util.del_str "\"" (* Group: Negation expressions *) (************************************************************************ * View: del_negate * Delete an even number of '!' signs *************************************************************************) let del_negate = del /(!!)*/ "" (************************************************************************ * View: negate_node * Negation of boolean values for <defaults>. Accept one optional '!' * and produce a 'negate' node if there is one. *************************************************************************) let negate_node = [ del "!" "!" . label "negate" ] (************************************************************************ * View: negate_or_value * A <del_negate>, followed by either a negated key, or a key/value pair *************************************************************************) let negate_or_value (key:lens) (value:lens) = [ del_negate . (negate_node . key | key . value) ] (* Group: Stores *) (* Variable: sto_to_com_cmnd sto_to_com_cmnd does not begin or end with a space *) let sto_to_com_cmnd = del_negate . negate_node? . ( let alias = Rx.word - /(NO)?(PASSWD|EXEC|SETENV)/ in let non_alias = /[\/a-z]([^,:#()\n\\]|\\\\[=:,\\])*[^,=:#() \t\n\\]|[^,=:#() \t\n\\]/ in store (alias | non_alias)) (* Variable: sto_to_com There could be a \ in the middle of a command *) let sto_to_com = store /([^,=:#() \t\n\\][^,=:#()\n]*[^,=:#() \t\n\\])|[^,=:#() \t\n\\]/ (* Variable: sto_to_com_host *) let sto_to_com_host = store /[^,=:#() \t\n\\]+/ (* Variable: sto_to_com_user Escaped spaces and NIS domains and allowed*) let sto_to_com_user = let nis_re = /([A-Z]([-A-Z0-9]|(\\\\[ \t]))*+\\\\\\\\)/ in let user_re = /[%+@a-z]([-A-Za-z0-9._+]|(\\\\[ \t])|\\\\\\\\[A-Za-z0-9])*/ - /@include(dir)?/ in let alias_re = /[A-Z_]+/ in store ((nis_re? . user_re) | alias_re) (* Variable: to_com_chars *) let to_com_chars = /[^",=#() \t\n\\]+/ (* " relax emacs *) (* Variable: to_com_dquot *) let to_com_dquot = /"[^",=#()\n\\]+"/ (* " relax emacs *) (* Variable: sto_to_com_dquot *) let sto_to_com_dquot = store (to_com_chars|to_com_dquot) (* Variable: sto_to_com_col *) let sto_to_com_col = store to_com_chars (* Variable: sto_to_eq *) let sto_to_eq = store /[^,=:#() \t\n\\]+/ (* Variable: sto_to_spc *) let sto_to_spc = store /[^", \t\n\\]+|"[^", \t\n\\]+"/ (* Variable: sto_to_spc_no_dquote *) let sto_to_spc_no_dquote = store /[^",# \t\n\\]+/ (* " relax emacs *) (* Variable: sto_integer *) let sto_integer = store /-?[0-9]+/ (* Group: Comments and empty lines *) (* View: comment Map comments in "#comment" nodes *) let comment = let sto_to_eol = store (/([^ \t\n].*[^ \t\n]|[^ \t\n])/ - /include(dir)?.*/) in [ label "#comment" . del /[ \t]*#[ \t]*/ "# " . sto_to_eol . eol ] (* View: comment_eol Requires a space before the # *) let comment_eol = Util.comment_generic /[ \t]+#[ \t]*/ " # " (* View: comment_or_eol A <comment_eol> or <eol> *) let comment_or_eol = comment_eol | (del /([ \t]+#\n|[ \t]*\n)/ "\n") (* View: empty Map empty lines *) let empty = [ del /[ \t]*#?[ \t]*\n/ "\n" ] (* View: includedir *) let includedir = [ key /(#|@)include(dir)?/ . Sep.space . store Rx.fspath . eol ] (************************************************************************ * Group: ALIASES *************************************************************************) (************************************************************************ * View: alias_field * Generic alias field to gather all Alias definitions * * Definition: * > User_Alias ::= NAME '=' User_List * > Runas_Alias ::= NAME '=' Runas_List * > Host_Alias ::= NAME '=' Host_List * > Cmnd_Alias ::= NAME '=' Cmnd_List * * Parameters: * kw:string - the label string * sto:lens - the store lens *************************************************************************) let alias_field (kw:string) (sto:lens) = [ label kw . sto ] (* View: alias_list List of <alias_fields>, separated by commas *) let alias_list (kw:string) (sto:lens) = Build.opt_list (alias_field kw sto) sep_com (************************************************************************ * View: alias_name * Name of an <alias_entry_single> * * Definition: * > NAME ::= [A-Z]([A-Z][0-9]_)* *************************************************************************) let alias_name = [ label "name" . store /[A-Z][A-Z0-9_]*/ ] (************************************************************************ * View: alias_entry_single * Single <alias_entry>, named using <alias_name> and listing <alias_list> * * Definition: * > Alias_Type NAME = item1, item2, ... * * Parameters: * field:string - the field name, passed to <alias_list> * sto:lens - the store lens, passed to <alias_list> *************************************************************************) let alias_entry_single (field:string) (sto:lens) = [ label "alias" . alias_name . sep_eq . alias_list field sto ] (************************************************************************ * View: alias_entry * Alias entry, a list of comma-separated <alias_entry_single> fields * * Definition: * > Alias_Type NAME = item1, item2, item3 : NAME = item4, item5 * * Parameters: * kw:string - the alias keyword string * field:string - the field name, passed to <alias_entry_single> * sto:lens - the store lens, passed to <alias_entry_single> *************************************************************************) let alias_entry (kw:string) (field:string) (sto:lens) = [ indent . key kw . sep_cont . alias_entry_single field sto . ( sep_col . alias_entry_single field sto )* . comment_or_eol ] (* TODO: go further in user definitions *) (* View: user_alias User_Alias, see <alias_field> *) let user_alias = alias_entry "User_Alias" "user" sto_to_com (* View: runas_alias Run_Alias, see <alias_field> *) let runas_alias = alias_entry "Runas_Alias" "runas_user" sto_to_com (* View: host_alias Host_Alias, see <alias_field> *) let host_alias = alias_entry "Host_Alias" "host" sto_to_com (* View: cmnd_alias Cmnd_Alias, see <alias_field> *) let cmnd_alias = alias_entry "Cmnd_Alias" "command" sto_to_com_cmnd (************************************************************************ * View: alias * Every kind of Alias entry, * see <user_alias>, <runas_alias>, <host_alias> and <cmnd_alias> * * Definition: * > Alias ::= 'User_Alias' User_Alias (':' User_Alias)* | * > 'Runas_Alias' Runas_Alias (':' Runas_Alias)* | * > 'Host_Alias' Host_Alias (':' Host_Alias)* | * > 'Cmnd_Alias' Cmnd_Alias (':' Cmnd_Alias)* *************************************************************************) let alias = user_alias | runas_alias | host_alias | cmnd_alias (************************************************************************ * Group: DEFAULTS *************************************************************************) (************************************************************************ * View: default_type * Type definition for <defaults> * * Definition: * > Default_Type ::= 'Defaults' | * > 'Defaults' '@' Host_List | * > 'Defaults' ':' User_List | * > 'Defaults' '!' Cmnd_List | * > 'Defaults' '>' Runas_List *************************************************************************) let default_type = let value = store /[@:!>][^ \t\n\\]+/ in [ label "type" . value ] (************************************************************************ * View: parameter_flag * A flag parameter for <defaults> * * Flags are implicitly boolean and can be turned off via the '!' operator. * Some integer, string and list parameters may also be used in a boolean * context to disable them. *************************************************************************) let parameter_flag_kw = "always_set_home" | "authenticate" | "env_editor" | "env_reset" | "fqdn" | "ignore_dot" | "ignore_local_sudoers" | "insults" | "log_host" | "log_year" | "long_otp_prompt" | "mail_always" | "mail_badpass" | "mail_no_host" | "mail_no_perms" | "mail_no_user" | "noexec" | "path_info" | "passprompt_override" | "preserve_groups" | "requiretty" | "root_sudo" | "rootpw" | "runaspw" | "set_home" | "set_logname" | "setenv" | "shell_noargs" | "stay_setuid" | "targetpw" | "tty_tickets" | "visiblepw" | "closefrom_override" | "closefrom_override" | "compress_io" | "fast_glob" | "log_input" | "log_output" | "pwfeedback" | "umask_override" | "use_pty" | "match_group_by_gid" | "always_query_group_plugin" let parameter_flag = [ del_negate . negate_node? . key parameter_flag_kw ] (************************************************************************ * View: parameter_integer * An integer parameter for <defaults> *************************************************************************) let parameter_integer_nobool_kw = "passwd_tries" let parameter_integer_nobool = [ key parameter_integer_nobool_kw . sep_eq . del /"?/ "" . sto_integer . del /"?/ "" ] let parameter_integer_bool_kw = "loglinelen" | "passwd_timeout" | "timestamp_timeout" | "umask" let parameter_integer_bool = negate_or_value (key parameter_integer_bool_kw) (sep_eq . del /"?/ "" . sto_integer . del /"?/ "") let parameter_integer = parameter_integer_nobool | parameter_integer_bool (************************************************************************ * View: parameter_string * A string parameter for <defaults> * * An odd number of '!' operators negate the value of the item; * an even number just cancel each other out. *************************************************************************) let parameter_string_nobool_kw = "badpass_message" | "editor" | "mailsub" | "noexec_file" | "passprompt" | "runas_default" | "syslog_badpri" | "syslog_goodpri" | "timestampdir" | "timestampowner" | "secure_path" let parameter_string_nobool = [ key parameter_string_nobool_kw . sep_eq . sto_to_com_dquot ] let parameter_string_bool_kw = "exempt_group" | "lecture" | "lecture_file" | "listpw" | "logfile" | "mailerflags" | "mailerpath" | "mailto" | "mailfrom" | "syslog" | "verifypw" let parameter_string_bool = negate_or_value (key parameter_string_bool_kw) (sep_eq . sto_to_com_dquot) let parameter_string = parameter_string_nobool | parameter_string_bool (************************************************************************ * View: parameter_lists * A single list parameter for <defaults> * * All lists can be used in a boolean context * The argument may be a double-quoted, space-separated list or a single * value without double-quotes. * The list can be replaced, added to, deleted from, or disabled * by using the =, +=, -=, and ! operators respectively. * An odd number of '!' operators negate the value of the item; * an even number just cancel each other out. *************************************************************************) let parameter_lists_kw = "env_check" | "env_delete" | "env_keep" let parameter_lists_value = [ label "var" . sto_to_spc_no_dquote ] let parameter_lists_value_dquote = [ label "var" . del /"?/ "" . sto_to_spc_no_dquote . del /"?/ "" ] let parameter_lists_values = parameter_lists_value_dquote | ( sep_dquote . parameter_lists_value . ( sep_cont . parameter_lists_value )+ . sep_dquote ) let parameter_lists_sep = sep_cont_opt . ( [ del "+" "+" . label "append" ] | [ del "-" "-" . label "remove" ] )? . del "=" "=" . sep_cont_opt let parameter_lists = negate_or_value (key parameter_lists_kw) (parameter_lists_sep . parameter_lists_values) (************************************************************************ * View: parameter * A single parameter for <defaults> * * Definition: * > Parameter ::= Parameter '=' Value | * > Parameter '+=' Value | * > Parameter '-=' Value | * > '!'* Parameter * * Parameters may be flags, integer values, strings, or lists. * *************************************************************************) let parameter = parameter_flag | parameter_integer | parameter_string | parameter_lists (************************************************************************ * View: parameter_list * A list of comma-separated <parameters> for <defaults> * * Definition: * > Parameter_List ::= Parameter | * > Parameter ',' Parameter_List *************************************************************************) let parameter_list = parameter . ( sep_com . parameter )* (************************************************************************ * View: defaults * A Defaults entry * * Definition: * > Default_Entry ::= Default_Type Parameter_List *************************************************************************) let defaults = [ indent . key "Defaults" . default_type? . sep_cont . parameter_list . comment_or_eol ] (************************************************************************ * Group: USER SPECIFICATION *************************************************************************) (************************************************************************ * View: runas_spec * A runas specification for <spec>, using <alias_list> for listing * users and/or groups used to run a command * * Definition: * > Runas_Spec ::= '(' Runas_List ')' | * > '(:' Runas_List ')' | * > '(' Runas_List ':' Runas_List ')' *************************************************************************) let runas_spec_user = alias_list "runas_user" sto_to_com let runas_spec_group = Util.del_str ":" . indent . alias_list "runas_group" sto_to_com let runas_spec_usergroup = runas_spec_user . indent . runas_spec_group let runas_spec = Util.del_str "(" . (runas_spec_user | runas_spec_group | runas_spec_usergroup ) . Util.del_str ")" . sep_cont_opt (************************************************************************ * View: tag_spec * Tag specification for <spec> * * Definition: * > Tag_Spec ::= ('NOPASSWD:' | 'PASSWD:' | 'NOEXEC:' | 'EXEC:' | * > 'SETENV:' | 'NOSETENV:') *************************************************************************) let tag_spec = [ label "tag" . store /(NO)?(PASSWD|EXEC|SETENV)/ . sep_col ] (************************************************************************ * View: cmnd_spec * Command specification for <spec>, * with optional <runas_spec> and any amount of <tag_specs> * * Definition: * > Cmnd_Spec ::= Runas_Spec? Tag_Spec* Cmnd *************************************************************************) let cmnd_spec = [ label "command" . runas_spec? . tag_spec* . sto_to_com_cmnd ] (************************************************************************ * View: cmnd_spec_list * A list of comma-separated <cmnd_specs> * * Definition: * > Cmnd_Spec_List ::= Cmnd_Spec | * > Cmnd_Spec ',' Cmnd_Spec_List *************************************************************************) let cmnd_spec_list = Build.opt_list cmnd_spec sep_com (************************************************************************ * View: spec_list * Group of hosts with <cmnd_spec_list> *************************************************************************) let spec_list = [ label "host_group" . alias_list "host" sto_to_com_host . sep_eq . cmnd_spec_list ] (************************************************************************ * View: spec * A user specification, listing colon-separated <spec_lists> * * Definition: * > User_Spec ::= User_List Host_List '=' Cmnd_Spec_List \ * > (':' Host_List '=' Cmnd_Spec_List)* *************************************************************************) let spec = [ label "spec" . indent . alias_list "user" sto_to_com_user . sep_cont . Build.opt_list spec_list sep_col . comment_or_eol ] (************************************************************************ * Group: LENS & FILTER *************************************************************************) (* View: lns The sudoers lens, any amount of * <empty> lines * <comments> * <includedirs> * <aliases> * <defaults> * <specs> *) let lns = ( empty | comment | includedir | alias | defaults | spec )* (* View: filter *) let filter = (incl "/etc/sudoers") . (incl "/usr/local/etc/sudoers") . (incl "/etc/sudoers.d/*") . (incl "/usr/local/etc/sudoers.d/*") . (incl "/opt/csw/etc/sudoers") . (incl "/etc/opt/csw/sudoers") . Util.stdexcl let xfm = transform lns filter PK ! e�O� � lenses/dist/quote.augnu �[��� (* Module: Quote Generic module providing useful primitives for quoting Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage This is a generic module which doesn't apply to files directly. You can use its definitions to build lenses that require quoted values. It provides several levels of definitions, allowing to define more or less fine-grained quoted values: - the quote separators are separators that are useful to define quoted values; - the quoting functions are useful wrappers to easily enclose a lens in various kinds of quotes (single, double, any, optional or not); - the quoted values definitions are common quoted patterns. They use the quoting functions in order to provide useful shortcuts for commonly met needs. In particular, the <quote_spaces> (and similar) function force values that contain spaces to be quoted, but allow values without spaces to be unquoted. About: Examples The <Test_Quote> file contains various examples and tests. *) module Quote = (* Group: QUOTE SEPARATORS *) (* Variable: dquote A double quote *) let dquote = Util.del_str "\"" (* Variable: dquote_opt An optional double quote, default to double *) let dquote_opt = del /"?/ "\"" (* Variable: dquote_opt_nil An optional double quote, default to nothing *) let dquote_opt_nil = del /"?/ "" (* Variable: squote A single quote *) let squote = Util.del_str "'" (* Variable: squote_opt An optional single quote, default to single *) let squote_opt = del /'?/ "'" (* Variable: squote_opt_nil An optional single quote, default to nothing *) let squote_opt_nil = del /'?/ "" (* Variable: quote A quote, either double or single, default to double *) let quote = del /["']/ "\"" (* Variable: quote_opt An optional quote, either double or single, default to double *) let quote_opt = del /["']?/ "\"" (* Variable: quote_opt_nil An optional quote, either double or single, default to nothing *) let quote_opt_nil = del /["']?/ "" (* Group: QUOTING FUNCTIONS *) (* View: do_dquote Enclose a lens in <dquote>s Parameters: body:lens - the lens to be enclosed *) let do_dquote (body:lens) = square dquote body dquote (* View: do_dquote_opt Enclose a lens in optional <dquote>s, use <dquote>s by default. Parameters: body:lens - the lens to be enclosed *) let do_dquote_opt (body:lens) = square dquote_opt body dquote_opt (* View: do_dquote_opt_nil Enclose a lens in optional <dquote>s, default to no quotes. Parameters: body:lens - the lens to be enclosed *) let do_dquote_opt_nil (body:lens) = square dquote_opt_nil body dquote_opt_nil (* View: do_squote Enclose a lens in <squote>s Parameters: body:lens - the lens to be enclosed *) let do_squote (body:lens) = square squote body squote (* View: do_squote_opt Enclose a lens in optional <squote>s, use <squote>s by default. Parameters: body:lens - the lens to be enclosed *) let do_squote_opt (body:lens) = square squote_opt body squote_opt (* View: do_squote_opt_nil Enclose a lens in optional <squote>s, default to no quotes. Parameters: body:lens - the lens to be enclosed *) let do_squote_opt_nil (body:lens) = square squote_opt_nil body squote_opt_nil (* View: do_quote Enclose a lens in <quote>s. Parameters: body:lens - the lens to be enclosed *) let do_quote (body:lens) = square quote body quote (* View: do_quote Enclose a lens in options <quote>s. Parameters: body:lens - the lens to be enclosed *) let do_quote_opt (body:lens) = square quote_opt body quote_opt (* View: do_quote Enclose a lens in options <quote>s, default to no quotes. Parameters: body:lens - the lens to be enclosed *) let do_quote_opt_nil (body:lens) = square quote_opt_nil body quote_opt_nil (* Group: QUOTED VALUES *) (* View: double A double-quoted value *) let double = let body = store /[^\n]*/ in do_dquote body (* Variable: double_opt_re The regexp to store when value is optionally double-quoted *) let double_opt_re = /[^\n\t "]([^\n"]*[^\n\t "])?/ (* View: double_opt An optionally double-quoted value Double quotes are not allowed in value Value cannot begin or end with spaces *) let double_opt = let body = store double_opt_re in do_dquote_opt body (* View: single A single-quoted value *) let single = let body = store /[^\n]*/ in do_squote body (* Variable: single_opt_re The regexp to store when value is optionally single-quoted *) let single_opt_re = /[^\n\t ']([^\n']*[^\n\t '])?/ (* View: single_opt An optionally single-quoted value Single quotes are not allowed in value Value cannot begin or end with spaces *) let single_opt = let body = store single_opt_re in do_squote_opt body (* View: any A quoted value *) let any = let body = store /[^\n]*/ in do_quote body (* Variable: any_opt_re The regexp to store when value is optionally single- or double-quoted *) let any_opt_re = /[^\n\t "']([^\n"']*[^\n\t "'])?/ (* View: any_opt An optionally quoted value Double or single quotes are not allowed in value Value cannot begin or end with spaces *) let any_opt = let body = store any_opt_re in do_quote_opt body (* View: quote_spaces Make quotes mandatory if value contains spaces, and optional if value doesn't contain spaces. Parameters: lns:lens - the lens to be enclosed *) let quote_spaces (lns:lens) = (* bare has no spaces, and is optionally quoted *) let bare = Quote.do_quote_opt (store /[^"' \t\n]+/) (* quoted has at least one space, and must be quoted *) in let quoted = Quote.do_quote (store /[^"'\n]*[ \t]+[^"'\n]*/) in [ lns . bare ] | [ lns . quoted ] (* View: dquote_spaces Make double quotes mandatory if value contains spaces, and optional if value doesn't contain spaces. Parameters: lns:lens - the lens to be enclosed *) let dquote_spaces (lns:lens) = (* bare has no spaces, and is optionally quoted *) let bare = Quote.do_dquote_opt (store /[^" \t\n]+/) (* quoted has at least one space, and must be quoted *) in let quoted = Quote.do_dquote (store /[^"\n]*[ \t]+[^"\n]*/) in [ lns . bare ] | [ lns . quoted ] (* View: squote_spaces Make single quotes mandatory if value contains spaces, and optional if value doesn't contain spaces. Parameters: lns:lens - the lens to be enclosed *) let squote_spaces (lns:lens) = (* bare has no spaces, and is optionally quoted *) let bare = Quote.do_squote_opt (store /[^' \t\n]+/) (* quoted has at least one space, and must be quoted *) in let quoted = Quote.do_squote (store /[^'\n]*[ \t]+[^'\n]*/) in [ lns . bare ] | [ lns . quoted ] PK ! �V� lenses/dist/puppetfile.augnu �[��� (* Module: Puppetfile Parses libarian-puppet's Puppetfile format Author: Raphael Pinson <raphael.pinson@camptocamp.com> About: Reference See https://github.com/rodjek/librarian-puppet About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to Puppetfiles. About: Examples The <Test_Puppetfile> file contains various examples and tests. *) module Puppetfile = (* View: comma a comma, optionally preceded or followed by spaces or newlines *) let comma = del /[ \t\n]*,[ \t\n]*/ ", " let comma_nospace = del /[ \t\n]*,/ "," let comment_or_eol = Util.eol | Util.comment_eol let quote_to_comment_or_eol = Quote.do_quote (store /[^#\n]*/) . comment_or_eol (* View: moduledir The moduledir setting specifies where modules from the Puppetfile will be installed *) let moduledir = [ Util.indent . key "moduledir" . Sep.space . quote_to_comment_or_eol ] (* View: forge a forge entry *) let forge = [ Util.indent . key "forge" . Sep.space . quote_to_comment_or_eol ] (* View: metadata a metadata entry *) let metadata = [ Util.indent . key "metadata" . comment_or_eol ] (* View: mod a module entry, with optional version and options *) let mod = let mod_name = Quote.do_quote (store ((Rx.word . /[\/-]/)? . Rx.word)) in let version = [ label "@version" . Quote.do_quote (store /[^#:\n]+/) . Util.comment_eol? ] in let sto_opt_val = store /[^#"', \t\n][^#"',\n]*[^#"', \t\n]|[^#"', \t\n]/ in let opt = [ Util.del_str ":" . key Rx.word . (del /[ \t]*=>[ \t]*/ " => " . Quote.do_quote_opt sto_opt_val)? ] in let opt_eol = del /([ \t\n]*\n)?/ "" in let opt_space_or_eol = del /[ \t\n]*/ " " in let comma_opt_eol_comment = comma_nospace . (opt_eol . Util.comment_eol)* . opt_space_or_eol in let opts = Build.opt_list opt comma_opt_eol_comment in [ Util.indent . Util.del_str "mod" . seq "mod" . Sep.space . mod_name . (comma_opt_eol_comment . version)? . (comma_opt_eol_comment . opts . Util.comment_eol?)? . Util.eol ] (* View: lns the Puppetfile lens *) let lns = (Util.empty | Util.comment | forge | metadata | mod | moduledir )* PK ! A�1L� � lenses/dist/sysctl.augnu �[��� (* Module: Sysctl Parses /etc/sysctl.conf and /etc/sysctl.d/* Author: David Lutterkort <lutter@redhat.com> About: Reference About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/sysctl.conf and /etc/sysctl.d/*. See <filter>. About: Examples The <Test_Sysctl> file contains various examples and tests. *) module Sysctl = autoload xfm (* Variable: filter *) let filter = incl "/boot/loader.conf" . incl "/etc/sysctl.conf" . incl "/etc/sysctl.d/*" . excl "/etc/sysctl.d/README" . excl "/etc/sysctl.d/README.sysctl" . Util.stdexcl (* View: comment *) let comment = Util.comment_generic /[ \t]*[#;][ \t]*/ "# " (* View: lns The sysctl lens *) let lns = (Util.empty | comment | Simplevars.entry)* let xfm = transform lns filter PK ! �8��� � lenses/dist/dovecot.augnu �[��� (* Module: Dovecot Parses dovecot configuration files. Author: Serge Smetana <serge.smetana@gmail.com> Acunote http://www.acunote.com Pluron, Inc. http://pluron.com About: License This file is licensed under the LGPL v2+. About: Configuration files This lens applies to /etc/dovecot/dovecot.conf and files in /etc/dovecot/conf.d/. See <filter>. About: Examples The <Test_Dovecot> file contains various examples and tests. About: TODO Support for multiline values like queries in dict-sql.conf *) module Dovecot = autoload xfm (****************************************************************** * Group: USEFUL PRIMITIVES ******************************************************************) (* View: indent *) let indent = Util.indent (* View: eol *) let eol = Util.eol (* View: empty Map empty lines. *) let empty = Util.empty (* View: comment Map comments in "#comment" nodes. *) let comment = Util.comment (* View: eq *) let eq = del /[ \t]*=/ " =" (* Variable: any *) let any = Rx.no_spaces (* Variable: value Match any value after " =". Should not start and end with spaces. May contain spaces inside *) let value = any . (Rx.space . any)* (* View: command_start *) let command_start = Util.del_str "!" (****************************************************************** * Group: ENTRIES ******************************************************************) (* Variable: commands *) let commands = /include|include_try/ (* Variable: block_names *) let block_names = /dict|userdb|passdb|protocol|service|plugin|namespace|map|fields|unix_listener|fifo_listener|inet_listener/ (* Variable: keys Match any possible key except commands and block names. *) let keys = Rx.word - (commands | block_names) (* View: entry Map simple "key = value" entries including "key =" entries with empty value. *) let entry = [ indent . key keys. eq . (Sep.opt_space . store value)? . eol ] (* View: command Map commands started with "!". *) let command = [ command_start . key commands . Sep.space . store Rx.fspath . eol ] (* View: dquote_spaces Make double quotes mandatory if value contains spaces, and optional if value doesn't contain spaces. Based off Quote.dquote_spaces Parameters: lns1:lens - the lens before lns2:lens - the lens after *) let dquote_spaces (lns1:lens) (lns2:lens) = (* bare has no spaces, and is optionally quoted *) let bare = Quote.do_dquote_opt (store /[^" \t\n]+/) (* quoted has at least one space, and must be quoted *) in let quoted = Quote.do_dquote (store /[^"\n]*[ \t]+[^"\n]*/) in [ lns1 . bare . lns2 ] | [ lns1 . quoted . lns2 ] let mailbox = indent . dquote_spaces (key /mailbox/ . Sep.space) (Build.block_newlines_spc entry comment . eol) let block_ldelim_newlines_re = /[ \t]+\{([ \t\n]*\n)?/ let block_newlines (entry:lens) (comment:lens) = let indent = del Rx.opt_space "\t" in del block_ldelim_newlines_re Build.block_ldelim_default . ((entry | comment) . (Util.empty | entry | comment)*)? . del Build.block_rdelim_newlines_re Build.block_rdelim_newlines_default (* View: block Map block enclosed in brackets recursively. Block may be indented and have optional argument. Block body may have entries, comments, empty lines, and nested blocks recursively. *) let rec block = [ indent . key block_names . (Sep.space . Quote.do_dquote_opt (store /!?[\/A-Za-z0-9_-]+/))? . block_newlines (entry|block|mailbox) comment . eol ] (****************************************************************** * Group: LENS AND FILTER ******************************************************************) (* View: lns The Dovecot lens *) let lns = (comment|empty|entry|command|block)* (* Variable: filter *) let filter = incl "/etc/dovecot/dovecot.conf" . (incl "/etc/dovecot/conf.d/*.conf") . incl "/usr/local/etc/dovecot/dovecot.conf" . (incl "/usr/local/etc/dovecot/conf.d/*.conf") . Util.stdexcl let xfm = transform lns filter PK ! �(��� � lenses/dist/pg_hba.augnu �[��� PK ! ;֣�/ / ) lenses/dist/cron.augnu �[��� PK ! �Eī� � � lenses/dist/fstab.augnu �[��� PK ! ��PI I �! lenses/dist/xendconfsxp.augnu �[��� PK ! � �� � " ^& lenses/dist/reprepro_uploaders.augnu �[��� PK ! ��i�� � �< lenses/dist/multipath.augnu �[��� PK ! �j � � �M lenses/dist/iptables.augnu �[��� PK ! Oe�� � �X lenses/dist/samba.augnu �[��� PK ! ��� �_ lenses/dist/postfix_main.augnu �[��� PK ! x��� � # f lenses/dist/aptcacherngsecurity.augnu �[��� PK ! /d��o o " 3i lenses/dist/apt_update_manager.augnu �[��� PK ! ~n��� � �m lenses/dist/activemq_conf.augnu �[��� PK ! �:f� � &t lenses/dist/openshift_config.augnu �[��� PK ! (iAc c R~ lenses/dist/util.augnu �[��� PK ! GA j j �� lenses/dist/jmxaccess.augnu �[��� PK ! !�ڱ �� lenses/dist/xinetd.augnu �[��� PK ! �1�i8 8 � lenses/dist/protocols.augnu �[��� PK ! U��?g g �� lenses/dist/httpd.augnu �[��� PK ! P��_� � 7� lenses/dist/shells.augnu �[��� PK ! �Fc e e f� lenses/dist/collectd.augnu �[��� PK ! �o|� � � lenses/dist/odbc.augnu �[��� PK ! �� h h � lenses/dist/oz.augnu �[��� PK ! ��"� �� lenses/dist/systemd.augnu �[��� PK ! �~�0f f �� lenses/dist/opendkim.augnu �[��� PK ! �ɩF_ _ ! � lenses/dist/mailscanner_rules.augnu �[��� PK ! 4��� � Z lenses/dist/soma.augnu �[��� PK ! �F��g g - lenses/dist/pagekite.augnu �[��� PK ! ��{�} } � lenses/dist/interfaces.augnu �[��� PK ! ��Y� � �/ lenses/dist/resolv.augnu �[��� PK ! � � � � �? lenses/dist/solaris_system.augnu �[��� PK ! �f* �L lenses/dist/lightdm.augnu �[��� PK ! =�i� � T lenses/dist/simplelines.augnu �[��� PK ! �UnO� � �X lenses/dist/grubenv.augnu �[��� PK ! �<+�' ' [ lenses/dist/nslcd.augnu �[��� PK ! H��S� � � lenses/dist/group.augnu �[��� PK ! ɜ�KM M Ή lenses/dist/pam.augnu �[��� PK ! o�0�� � ^� lenses/dist/rancid.augnu �[��� PK ! ��u� � C� lenses/dist/dput.augnu �[��� PK ! �i( ( ,� lenses/dist/schroot.augnu �[��� PK ! ��uy� � �� lenses/dist/qpid.augnu �[��� PK ! ��#W W }� lenses/dist/gtkbookmarks.augnu �[��� PK ! Q,���? �? � lenses/dist/squid.augnu �[��� PK ! �aG-/, /, /� lenses/dist/grub.augnu �[��� PK ! Kh�� � � lenses/dist/mailscanner.augnu �[��� PK ! n�ݨ � �" lenses/dist/lokkit.augnu �[��� PK ! r�y= ~+ lenses/dist/smbusers.augnu �[��� PK ! {l�H �. lenses/dist/xymon.augnu �[��� PK ! ��h6� � "8 lenses/dist/json.augnu �[��� PK ! S��3 3 �@ lenses/dist/fonts.augnu �[��� PK ! *z9� � tD lenses/dist/strongswan.augnu �[��� PK ! � ��k k EK lenses/dist/phpvars.augnu �[��� PK ! 0x�bs s �Z lenses/dist/xymon_alerting.augnu �[��� PK ! )�U�� � �s lenses/dist/logrotate.augnu �[��� PK ! ܍�� � lenses/dist/inittab.augnu �[��� PK ! �i� % % A� lenses/dist/fai_diskconfig.augnu �[��� PK ! � B�� � �� lenses/dist/webmin.augnu �[��� PK ! �-�- - ܲ lenses/dist/yaml.augnu �[��� PK ! fm9 M� lenses/dist/openshift_http.augnu �[��� PK ! �5� � �� lenses/dist/yum.augnu �[��� PK ! �m"�� � �� lenses/dist/stunnel.augnu �[��� PK ! ;E~~ ~ �� lenses/dist/inputrc.augnu �[��� PK ! ����� � �� lenses/dist/mysql.augnu �[��� PK ! i�݉ � �� lenses/dist/avahi.augnu �[��� PK ! � �� � w� lenses/dist/slapd.augnu �[��� PK ! z���� � �� lenses/dist/postfix_master.augnu �[��� PK ! ���� w lenses/dist/trapperkeeper.augnu �[��� PK ! xe��� � � lenses/dist/aptconf.augnu �[��� PK ! �H y[ [ �! lenses/dist/authorized_keys.augnu �[��� PK ! ���� � X) lenses/dist/anacron.augnu �[��� PK ! i�� � �3 lenses/dist/dhclient.augnu �[��� PK ! It,�� � �N lenses/dist/pgbouncer.augnu �[��� PK ! JJ\qw w �T lenses/dist/cgconfig.augnu �[��� PK ! �i� Xb lenses/dist/limits.augnu �[��� PK ! >n;R R �j lenses/dist/nsswitch.augnu �[��� PK ! �Y�� � Jt lenses/dist/spacevars.augnu �[��� PK ! ~�i&� � <z lenses/dist/monit.augnu �[��� PK ! O� �O O � lenses/dist/tinc.augnu �[��� PK ! ��K�l l �� lenses/dist/device_map.augnu �[��� PK ! u ��Z Z P� lenses/dist/nagioscfg.augnu �[��� PK ! ]�e� � lenses/dist/htpasswd.augnu �[��� PK ! ai�u # N� lenses/dist/postfix_passwordmap.augnu �[��� PK ! B�K�g g �� lenses/dist/fuse.augnu �[��� PK ! �� � l� lenses/dist/tuned.augnu �[��� PK ! �^�C C 4� lenses/dist/postfix_virtual.augnu �[��� PK ! ��)� � Ƨ lenses/dist/pamconf.augnu �[��� PK ! �:& % �� lenses/dist/openshift_quickstarts.augnu �[��� PK ! ��gk� � ^� lenses/dist/clamav.augnu �[��� PK ! �-յ$ $ X� lenses/dist/mke2fs.augnu �[��� PK ! �UZ��6 �6 �� lenses/dist/chrony.augnu �[��� PK ! �x�� � � lenses/dist/desktop.augnu �[��� PK ! ��%q�S �S { lenses/dist/dhcpd.augnu �[��� PK ! u���# # Cb lenses/dist/dpkg.augnu �[��� PK ! ����U U �m lenses/dist/access.augnu �[��� PK ! ނ�� � E| lenses/dist/logwatch.augnu �[��� PK ! ��a\ \ N� lenses/dist/networks.augnu �[��� PK ! �&#E+ + � lenses/dist/fail2ban.augnu �[��� PK ! 0.E� � e� lenses/dist/memcached.augnu �[��� PK ! $J��� � �� lenses/dist/shellvars_list.augnu �[��� PK ! ��L L � lenses/dist/jaas.augnu �[��� PK ! ߣ�e8 8 w� lenses/dist/cpanel.augnu �[��� PK ! d�ɒ� � �� lenses/dist/aliases.augnu �[��� PK ! ��)�Y Y � lenses/dist/php.augnu �[��� PK ! �w�� � �� lenses/dist/bootconf.augnu �[��� PK ! {� �� � o� lenses/dist/modules.augnu �[��� PK ! 1�/�O O �� lenses/dist/toml.augnu �[��� PK ! �ƩI .� lenses/dist/termcap.augnu �[��� PK ! S��C C �� lenses/dist/iproute2.augnu �[��� PK ! �c��5 5 � lenses/dist/properties.augnu �[��� PK ! � K� � �� lenses/dist/rabbitmq.augnu �[��� PK ! ���J J �� lenses/dist/getcap.augnu �[��� PK ! ��@_� � 5 lenses/dist/krb5.augnu �[��� PK ! �ن/ f lenses/dist/cachefilesd.augnu �[��� PK ! �=�� � �' lenses/dist/pythonpaste.augnu �[��� PK ! �C� � �/ lenses/dist/aptsources.augnu �[��� PK ! u��� � #8 lenses/dist/bbhosts.augnu �[��� PK ! ǒU�� � `I lenses/dist/vsftpd.augnu �[��� PK ! �� �T lenses/dist/subversion.augnu �[��� PK ! �j2XV V �_ lenses/dist/rtadvd.augnu �[��� PK ! C�{�, , nc lenses/dist/modules_conf.augnu �[��� PK ! �av~ ~ �g lenses/dist/pbuilder.augnu �[��� PK ! ��� � �j lenses/dist/authinfo2.augnu �[��� PK ! +��y� � �p lenses/dist/sysconfig.augnu �[��� PK ! ����\ \ �z lenses/dist/modprobe.augnu �[��� PK ! �N@�' ' �� lenses/dist/aptpreferences.augnu �[��� PK ! �r� � � lenses/dist/ldif.augnu �[��� PK ! �0��u u � lenses/dist/debctrl.augnu �[��� PK ! �)ĺ�* �* �� lenses/dist/keepalived.augnu �[��� PK ! �N�Q� � �� lenses/dist/cobblermodules.augnu �[��� PK ! �(e�� � �� lenses/dist/rsyncd.augnu �[��� PK ! �30 �� lenses/dist/rsyslog.augnu �[��� PK ! ��@nQ Q lenses/dist/xml.augnu �[��� PK ! ��v4 4 � lenses/dist/automounter.augnu �[��� PK ! d� & & /* lenses/dist/carbon.augnu �[��� PK ! G➻ � �0 lenses/dist/known_hosts.augnu �[��� PK ! ���[? ? �8 lenses/dist/automaster.augnu �[��� PK ! �<F�� � *F lenses/dist/sshd.augnu �[��� PK ! �~��� � W lenses/dist/kdump.augnu �[��� PK ! �uB� � ! �b lenses/dist/postfix_transport.augnu �[��� PK ! �ԑ�� � 'i lenses/dist/up2date.augnu �[��� PK ! t�[ [ Fr lenses/dist/semanage.augnu �[��� PK ! L�)wG G �u lenses/dist/services.augnu �[��� PK ! P��j x� lenses/dist/passwd.augnu �[��� PK ! �n{AD D lenses/dist/nagiosobjects.augnu �[��� PK ! �-�VB B h� lenses/dist/afs_cellalias.augnu �[��� PK ! ��� � �� lenses/dist/vmware_config.augnu �[��� PK ! �9��` ` � lenses/dist/activemq_xml.augnu �[��� PK ! �§8� � �� lenses/dist/iscsid.augnu �[��� PK ! K�~%U U �� lenses/dist/tmpfiles.augnu �[��� PK ! �� �) �) =� lenses/dist/xorg.augnu �[��� PK ! t�'~ 8� lenses/dist/sep.augnu �[��� PK ! �jP � � �� lenses/dist/splunk.augnu �[��� PK ! {��-� � h� lenses/dist/koji.augnu �[��� PK ! ��7 7 .� lenses/dist/sysconfig_route.augnu �[��� PK ! �,� �� lenses/dist/anaconda.augnu �[��� PK ! O�()X X � lenses/dist/mcollective.augnu �[��� PK ! L��v v �� lenses/dist/puppetfileserver.augnu �[��� PK ! �F��� � l lenses/dist/nginx.augnu �[��� PK ! �j)l� � M lenses/dist/netmasks.augnu �[��� PK ! YDi�# # Y" lenses/dist/nrpe.augnu �[��� PK ! F�ڪ� � �) lenses/dist/ethers.augnu �[��� PK ! fDqR� � �, lenses/dist/mongodbserver.augnu �[��� PK ! .��� �1 lenses/dist/cyrus_imapd.augnu �[��� PK ! �L� �7 lenses/dist/cron_user.augnu �[��� PK ! ��s s C= lenses/dist/sip_conf.augnu �[��� PK ! � (�!Y !Y �C lenses/dist/openvpn.augnu �[��� PK ! ���j j f� lenses/dist/rhsm.augnu �[��� PK ! ���{d d � lenses/dist/shadow.augnu �[��� PK ! ]Aص� � �� lenses/dist/ntpd.augnu �[��� PK ! �Y��_ _ �� lenses/dist/jmxpassword.augnu �[��� PK ! ��� � �� lenses/dist/puppet_auth.augnu �[��� PK ! -n ,J J �� lenses/dist/hosts_access.augnu �[��� PK ! t�Z� � [� lenses/dist/cmdline.augnu �[��� PK ! �_j�h h �� lenses/dist/postgresql.augnu �[��� PK ! �T�� � H� lenses/dist/hostname.augnu �[��� PK ! � �0+ + C� lenses/dist/ntp.augnu �[��� PK ! W��Tt t � lenses/dist/masterpasswd.augnu �[��� PK ! ����B �B q lenses/dist/build.augnu �[��� PK ! �#� P P KU lenses/dist/erlang.augnu �[��� PK ! =j�e� � �f lenses/dist/radicale.augnu �[��� PK ! ���0� � m lenses/dist/rx.augnu �[��� PK ! �4gO O (~ lenses/dist/crypttab.augnu �[��� PK ! ���� � �� lenses/dist/dns_zone.augnu �[��� PK ! ۱xtk k �� lenses/dist/devfsrules.augnu �[��� PK ! ����7 7 O� lenses/dist/pylonspaste.augnu �[��� PK ! *�x6� � Ѣ lenses/dist/ceph.augnu �[��� PK ! ��ӊ� � � lenses/dist/networkmanager.augnu �[��� PK ! �0 0 � lenses/dist/shellvars.augnu �[��� PK ! DX�8� � " K� lenses/dist/postfix_sasl_smtpd.augnu �[��� PK ! N��� � V� lenses/dist/vfstab.augnu �[��� PK ! �����= �= x� lenses/dist/inifile.augnu �[��� PK ! 2JX� � �' lenses/dist/inetd.augnu �[��� PK ! ��}H �@ lenses/dist/approx.augnu �[��� PK ! 1��� F lenses/dist/darkice.augnu �[��� PK ! [��� � lI lenses/dist/securetty.augnu �[��� PK ! �H� wK lenses/dist/rmt.augnu �[��� PK ! v�2i1( 1( �N lenses/dist/mdadm_conf.augnu �[��� PK ! �Q=� Iw lenses/dist/jettyrealm.augnu �[��� PK ! ��ծ � �} lenses/dist/wine.augnu �[��� PK ! ���M M �� lenses/dist/syslog.augnu �[��� PK ! i�)� � (� lenses/dist/updatedb.augnu �[��� PK ! Mlv�1 1 �� lenses/dist/gdm.augnu �[��� PK ! �V�� � k� lenses/dist/simplevars.augnu �[��� PK ! �$��Y Y S� lenses/dist/channels.augnu �[��� PK ! ���= = �� lenses/dist/ldso.augnu �[��� PK ! ��)� u� lenses/dist/lvm.augnu �[��� PK ! �#� � �� lenses/dist/cgrules.augnu �[��� PK ! �6�� � �� lenses/dist/authselectpam.augnu �[��� PK ! ���� � ) �� lenses/dist/tests/test_openshift_http.augnu �[��� PK ! t��� � ! �� lenses/dist/tests/test_chrony.augnu �[��� PK ! T�a=�� �� & � lenses/dist/tests/test_mailscanner.augnu �[��� PK ! ���]� � # u� lenses/dist/tests/test_iptables.augnu �[��� PK ! �h �`p `p " Y� lenses/dist/tests/test_openvpn.augnu �[��� PK ! �s�� � $ ! lenses/dist/tests/test_nagioscfg.augnu �[��� PK ! �~]� � " 0- lenses/dist/tests/test_bbhosts.augnu �[��� PK ! ɜC4� � ( :< lenses/dist/tests/test_trapperkeeper.augnu �[��� PK ! ��3P P & (M lenses/dist/tests/test_cyrus_imapd.augnu �[��� PK ! � ʔw w �R lenses/dist/tests/test_ntpd.augnu �[��� PK ! P��4 4 ' �Z lenses/dist/tests/test_gtkbookmarks.augnu �[��� PK ! h%ϱ� � % ^ lenses/dist/tests/test_simplevars.augnu �[��� PK ! U�U� � # Vb lenses/dist/tests/test_htpasswd.augnu �[��� PK ! �3]� � $ }d lenses/dist/tests/test_multipath.augnu �[��� PK ! 8��� � ! �~ lenses/dist/tests/test_splunk.augnu �[��� PK ! Ӽ;�; ; ( �� lenses/dist/tests/test_afs_cellalias.augnu �[��� PK ! r,� " �� lenses/dist/tests/test_stunnel.augnu �[��� PK ! hf�2, 2, ! �� lenses/dist/tests/test_syslog.augnu �[��� PK ! ƅW9 9 . z� lenses/dist/tests/test_postfix_passwordmap.augnu �[��� PK ! � H{ { � lenses/dist/tests/test_odbc.augnu �[��� PK ! ]T-� � $ �� lenses/dist/tests/test_spacevars.augnu �[��� PK ! �b$�� � $ �� lenses/dist/tests/test_logrotate.augnu �[��� PK ! Q��" �" �� lenses/dist/tests/test_mysql.augnu �[��� PK ! ����� � # M lenses/dist/tests/test_channels.augnu �[��� PK ! Eog= ' }% lenses/dist/tests/test_postfix_main.augnu �[��� PK ! �D�+,P ,P �) lenses/dist/tests/test_xml.augnu �[��� PK ! �� d| | $ kz lenses/dist/tests/test_securetty.augnu �[��� PK ! %���U) U) # ;} lenses/dist/tests/test_dns_zone.augnu �[��� PK ! � q� � ' � lenses/dist/tests/test_modules_conf.augnu �[��� PK ! A��� � " #� lenses/dist/tests/test_grubenv.augnu �[��� PK ! 6 �: : 7� lenses/dist/tests/test_csv.augnu �[��� PK ! ��U9 U9 % �� lenses/dist/tests/test_keepalived.augnu �[��� PK ! :^N�� � - i� lenses/dist/tests/test_reprepro_uploaders.augnu �[��� PK ! �jg�� � ) } lenses/dist/tests/test_xymon_alerting.augnu �[��� PK ! ?cft� � �/ lenses/dist/tests/test_cron.augnu �[��� PK ! �:�[� � + �7 lenses/dist/tests/test_puppetfileserver.augnu �[��� PK ! փW c c �; lenses/dist/tests/test_oz.augnu �[��� PK ! &���� � " > lenses/dist/tests/test_modules.augnu �[��� PK ! �>� - �? lenses/dist/tests/test_apt_update_manager.augnu �[��� PK ! Q-�/Y /Y " �D lenses/dist/tests/test_dovecot.augnu �[��� PK ! �-��c c ! � lenses/dist/tests/test_pg_hba.augnu �[��� PK ! 8��- - ! Ƕ lenses/dist/tests/test_limits.augnu �[��� PK ! t �H E� lenses/dist/tests/test_inetd.augnu �[��� PK ! ʞ�4 4 # �� lenses/dist/tests/test_collectd.augnu �[��� PK ! ��� } } $ +� lenses/dist/tests/test_jmxaccess.augnu �[��� PK ! ���� � ! �� lenses/dist/tests/test_webmin.augnu �[��� PK ! Dg�� � " � lenses/dist/tests/test_pamconf.augnu �[��� PK ! bB�̀ � T� lenses/dist/tests/test_ldif.augnu �[��� PK ! b�e:9 9 " #� lenses/dist/tests/test_rsyslog.augnu �[��� PK ! =��\ � lenses/dist/tests/test_monit.augnu �[��� PK ! C��EA EA lenses/dist/tests/test_httpd.augnu �[��� PK ! ���,� � ' �M lenses/dist/tests/test_activemq_xml.augnu �[��� PK ! �®�� � �T lenses/dist/tests/test_sssd.augnu �[��� PK ! �|, , ! ^X lenses/dist/tests/test_carbon.augnu �[��� PK ! %ȴ�� � % �b lenses/dist/tests/test_postgresql.augnu �[��� PK ! �fAa�7 �7 " � lenses/dist/tests/test_debctrl.augnu �[��� PK ! |<�"> > �� lenses/dist/tests/test_lvm.augnu �[��� PK ! =�)� % �� lenses/dist/tests/test_login_defs.augnu �[��� PK ! � �6} } ' �� lenses/dist/tests/test_hosts_access.augnu �[��� PK ! �܄&� � # �� lenses/dist/tests/test_iproute2.augnu �[��� PK ! S�!_ _ �� lenses/dist/tests/test_kdump.augnu �[��� PK ! 2���\ \ ! s� lenses/dist/tests/test_shells.augnu �[��� PK ! #�� � lenses/dist/tests/test_xorg.augnu �[��� PK ! �;Fݝ � # w lenses/dist/tests/test_fail2ban.augnu �[��� PK ! D���i i & g lenses/dist/tests/test_puppet_auth.augnu �[��� PK ! ]�dP^ ^ ( & lenses/dist/tests/test_authselectpam.augnu �[��� PK ! /��� ! � lenses/dist/tests/test_xinetd.augnu �[��� PK ! 4P� � � % G lenses/dist/tests/test_aptsources.augnu �[��� PK ! t��p� � ! M+ lenses/dist/tests/test_vsftpd.augnu �[��� PK ! lr�� " �5 lenses/dist/tests/test_aptconf.augnu �[��� PK ! ��2 2 �J lenses/dist/tests/test_sshd.augnu �[��� PK ! ��FӚ � s` lenses/dist/tests/test_koji.augnu �[��� PK ! M�0�'< '< ) \g lenses/dist/tests/test_fai_diskconfig.augnu �[��� PK ! ��+~� � & ܣ lenses/dist/tests/test_automounter.augnu �[��� PK ! ;B��� � ! � lenses/dist/tests/test_access.augnu �[��� PK ! �c�� � " � lenses/dist/tests/test_anacron.augnu �[��� PK ! ��f#� � ) =� lenses/dist/tests/test_solaris_system.augnu �[��� PK ! �� )5 5 �� lenses/dist/tests/test_qpid.augnu �[��� PK ! T�N# # � lenses/dist/tests/test_hosts.augnu �[��� PK ! �ˀ � # }� lenses/dist/tests/test_netmasks.augnu �[��� PK ! l��H� � " P� lenses/dist/tests/test_phpvars.augnu �[��� PK ! �ؠ��! �! ! "� lenses/dist/tests/test_clamav.augnu �[��� PK ! I� � � [ lenses/dist/tests/test_ldap.augnu �[��� PK ! �%Eg� � 8 lenses/dist/tests/test_nginx.augnu �[��� PK ! . k - - 0 lenses/dist/tests/test_xymon.augnu �[��� PK ! �'\ " �A lenses/dist/tests/test_schroot.augnu �[��� PK ! �SCx x # �J lenses/dist/tests/test_services.augnu �[��� PK ! �fkx x % �V lenses/dist/tests/test_properties.augnu �[��� PK ! =���B �B " �e lenses/dist/tests/test_termcap.augnu �[��� PK ! Ey��g g " �� lenses/dist/tests/test_gshadow.augnu �[��� PK ! ή�� # N� lenses/dist/tests/test_pbuilder.augnu �[��� PK ! �"� �� lenses/dist/tests/test_samba.augnu �[��� PK ! �|l�I I # � lenses/dist/tests/test_modprobe.augnu �[��� PK ! ��m m �� lenses/dist/tests/test_ceph.augnu �[��� PK ! A;��� � ( o� lenses/dist/tests/test_vmware_config.augnu �[��� PK ! �f2�� � % �� lenses/dist/tests/test_interfaces.augnu �[��� PK ! �~ �� lenses/dist/tests/test_dput.augnu �[��� PK ! !}a� � . Q lenses/dist/tests/test_aptcacherngsecurity.augnu �[��� PK ! 14o5� � a lenses/dist/tests/test_rhsm.augnu �[��� PK ! ��� � & � lenses/dist/tests/test_xendconfsxp.augnu �[��� PK ! V��w� � ! �9 lenses/dist/tests/test_approx.augnu �[��� PK ! z1�� � & �? lenses/dist/tests/test_pylonspaste.augnu �[��� PK ! ��-#g g # (G lenses/dist/tests/test_hostname.augnu �[��� PK ! �!o � � �G lenses/dist/tests/test_util.augnu �[��� PK ! À�� � �I lenses/dist/tests/test_toml.augnu �[��� PK ! �XH�� � �j lenses/dist/tests/test_nrpe.augnu �[��� PK ! ��Щ $ �s lenses/dist/tests/test_cron_user.augnu �[��� PK ! �s:� � ! �v lenses/dist/tests/test_passwd.augnu �[��� PK ! !918* * & � lenses/dist/tests/test_known_hosts.augnu �[��� PK ! �[+� ) �� lenses/dist/tests/test_postfix_access.augnu �[��� PK ! [״� � # �� lenses/dist/tests/test_rabbitmq.augnu �[��� PK ! �EH6� � ) � lenses/dist/tests/test_networkmanager.augnu �[��� PK ! 9;��" �" �� lenses/dist/tests/test_quote.augnu �[��� PK ! ^�8FT T �� lenses/dist/tests/test_wine.augnu �[��� PK ! �hH: : �� lenses/dist/tests/test_rmt.augnu �[��� PK ! �FM& & # � lenses/dist/tests/test_radicale.augnu �[��� PK ! c�$b\3 \3 �� lenses/dist/tests/test_nslcd.augnu �[��� PK ! QFk C lenses/dist/tests/test_tuned.augnu �[��� PK ! Z�k� � " � lenses/dist/tests/test_lightdm.augnu �[��� PK ! xP֕� � �, lenses/dist/tests/test_soma.augnu �[��� PK ! � �' �. lenses/dist/tests/test_build.augnu �[��� PK ! 1<�6 6 $ �O lenses/dist/tests/test_protocols.augnu �[��� PK ! �r�� � " U lenses/dist/tests/test_cmdline.augnu �[��� PK ! !��C * \Y lenses/dist/tests/test_sysconfig_route.augnu �[��� PK ! xQ; ! �[ lenses/dist/tests/test_getcap.augnu �[��� PK ! ����; ; % #k lenses/dist/tests/test_subversion.augnu �[��� PK ! 5���a a �w lenses/dist/tests/test_ntp.augnu �[��� PK ! �\� - b� lenses/dist/tests/test_postfix_sasl_smtpd.augnu �[��� PK ! .��>Y Y ю lenses/dist/tests/test_group.augnu �[��� PK ! ����� � " z� lenses/dist/tests/test_systemd.augnu �[��� PK ! ���vg g $ �� lenses/dist/tests/test_sysconfig.augnu �[��� PK ! �� b^ ^ ! Y� lenses/dist/tests/test_sysctl.augnu �[��� PK ! W0�{E< E< � lenses/dist/tests/test_dhcpd.augnu �[��� PK ! �� ?� � ( � lenses/dist/tests/test_activemq_conf.augnu �[��� PK ! ޭ�S� � $ � lenses/dist/tests/test_authinfo2.augnu �[��� PK ! ե�u ( lenses/dist/tests/test_mongodbserver.augnu �[��� PK ! ��`� � # } lenses/dist/tests/test_smbusers.augnu �[��� PK ! X�t�� � h lenses/dist/tests/test_pam.augnu �[��� PK ! ��� � " 6 lenses/dist/tests/test_aliases.augnu �[��� PK ! /u"� � & ~* lenses/dist/tests/test_jmxpassword.augnu �[��� PK ! A"�%a a a- lenses/dist/tests/test_squid.augnu �[��� PK ! �<�c� � ( B lenses/dist/tests/test_nagiosobjects.augnu �[��� PK ! j6]�I I % .I lenses/dist/tests/test_strongswan.augnu �[��� PK ! d���B B $ �S lenses/dist/tests/test_host_conf.augnu �[��� PK ! 8�; ; bW lenses/dist/tests/test_star.augnu �[��� PK ! ;%��M �M �] lenses/dist/tests/test_fonts.augnu �[��� PK ! '�ǧl l ) � lenses/dist/tests/test_cobblermodules.augnu �[��� PK ! ǼYB B Ѯ lenses/dist/tests/test_dpkg.augnu �[��� PK ! k � % b� lenses/dist/tests/test_automaster.augnu �[��� PK ! �d�� � Ӷ lenses/dist/tests/test_ldso.augnu �[��� PK ! {$��� � % � lenses/dist/tests/test_devfsrules.augnu �[��� PK ! �j�� � ! � lenses/dist/tests/test_iscsid.augnu �[��� PK ! �|'�W W # 0� lenses/dist/tests/test_updatedb.augnu �[��� PK ! j��� ! �� lenses/dist/tests/test_rsyncd.augnu �[��� PK ! �J;[ [ ! D� lenses/dist/tests/test_rtadvd.augnu �[��� PK ! �l� l l �� lenses/dist/tests/test_gdm.augnu �[��� PK ! /4b�e e ) �� lenses/dist/tests/test_postfix_master.augnu �[��� PK ! ��� # h� lenses/dist/tests/test_crypttab.augnu �[��� PK ! 7M,~� � # �� lenses/dist/tests/test_networks.augnu �[��� PK ! ��� % � lenses/dist/tests/test_mdadm_conf.augnu �[��� PK ! %��N N 8 lenses/dist/tests/test_fuse.augnu �[��� PK ! �۩O O ! � lenses/dist/tests/test_mke2fs.augnu �[��� PK ! ʉ:�� � & u lenses/dist/tests/test_simplelines.augnu �[��� PK ! ��� � " � lenses/dist/tests/test_dnsmasq.augnu �[��� PK ! E��L �L $ � lenses/dist/tests/test_shellvars.augnu �[��� PK ! �+�yh h �g lenses/dist/tests/test_jaas.augnu �[��� PK ! F� mh h , Y} lenses/dist/tests/test_mailscanner_rules.augnu �[��� PK ! v ��1 �1 0 � lenses/dist/tests/test_openshift_quickstarts.augnu �[��� PK ! �gH�. . ! .� lenses/dist/tests/test_vfstab.augnu �[��� PK ! ?n n ) �� lenses/dist/tests/test_aptpreferences.augnu �[��� PK ! ����F F # t� lenses/dist/tests/test_anaconda.augnu �[��� PK ! 'Mʎ� � � lenses/dist/tests/test_tinc.augnu �[��� PK ! Nlj� � + 1� lenses/dist/tests/test_openshift_config.augnu �[��� PK ! 6���� � ! � lenses/dist/tests/test_thttpd.augnu �[��� PK ! �Y"D� � � lenses/dist/tests/test_php.augnu �[��� PK ! 2��* �* " � lenses/dist/tests/test_sudoers.augnu �[��� PK ! �Aj� � ! 6 lenses/dist/tests/test_rancid.augnu �[��� PK ! �q?z! ! I! lenses/dist/tests/test_avahi.augnu �[��� PK ! �2�B B # �# lenses/dist/tests/test_logwatch.augnu �[��� PK ! $���c c ! O% lenses/dist/tests/test_lokkit.augnu �[��� PK ! _�1�. �. " . lenses/dist/tests/test_inifile.augnu �[��� PK ! ��J J �\ lenses/dist/tests/test_ssh.augnu �[��� PK ! W�p� � " yj lenses/dist/tests/test_inputrc.augnu �[��� PK ! ]�T�q q # O lenses/dist/tests/test_sip_conf.augnu �[��� PK ! ���v v ! � lenses/dist/tests/test_cpanel.augnu �[��� PK ! ��_zS S ! ڔ lenses/dist/tests/test_erlang.augnu �[��� PK ! �rt�� � ~� lenses/dist/tests/test_fstab.augnu �[��� PK ! w[��# # ! �� lenses/dist/tests/test_puppet.augnu �[��� PK ! �2?�� � ! � lenses/dist/tests/test_resolv.augnu �[��� PK ! ģ8IE E " 8� lenses/dist/tests/test_inittab.augnu �[��� PK ! b493o o ( � lenses/dist/tests/test_backuppchosts.augnu �[��� PK ! ;��d| | �� lenses/dist/tests/test_rx.augnu �[��� PK ! �o�&C C & _� lenses/dist/tests/test_cachefilesd.augnu �[��� PK ! �C�J� � & �� lenses/dist/tests/test_mcollective.augnu �[��� PK ! Y��C� � ! � lenses/dist/tests/test_ethers.augnu �[��� PK ! f k�* �* � lenses/dist/tests/test_grub.augnu �[��� PK ! M�� E E � lenses/dist/tests/test_json.augnu �[��� PK ! �A2z� � " WS lenses/dist/tests/test_exports.augnu �[��� PK ! ,�0&� � # lZ lenses/dist/tests/test_pagekite.augnu �[��� PK ! ��NL L # �e lenses/dist/tests/test_opendkim.augnu �[��� PK ! �`w� � # \� lenses/dist/tests/test_bootconf.augnu �[��� PK ! � � � # �� lenses/dist/tests/test_semanage.augnu �[��� PK ! �xU� � * �� lenses/dist/tests/test_authorized_keys.augnu �[��� PK ! �� ! � lenses/dist/tests/test_shadow.augnu �[��� PK ! Di�� � % @� lenses/dist/tests/test_jettyrealm.augnu �[��� PK ! [�l j) j) # k� lenses/dist/tests/test_tmpfiles.augnu �[��� PK ! ��W�� � $ (� lenses/dist/tests/test_memcached.augnu �[��� PK ! & �� � # � lenses/dist/tests/test_dhclient.augnu �[��� PK ! @;�� % -� lenses/dist/tests/test_device_map.augnu �[��� PK ! Ϙ��� � * �� lenses/dist/tests/test_postfix_virtual.augnu �[��� PK ! j4s� � # � lenses/dist/tests/test_cgconfig.augnu �[��� PK ! eBN*� � ' � lenses/dist/tests/test_masterpasswd.augnu �[��� PK ! ?ױK�" �" lenses/dist/tests/test_redis.augnu �[��� PK ! �S�@? ? " �@ lenses/dist/tests/test_darkice.augnu �[��� PK ! hw�� � $ �C lenses/dist/tests/test_pgbouncer.augnu �[��� PK ! si��� � , �K lenses/dist/tests/test_postfix_transport.augnu �[��� PK ! �i,�Y Y * �R lenses/dist/tests/test_cobblersettings.augnu �[��� PK ! N5ǐ� � % �X lenses/dist/tests/test_puppetfile.augnu �[��� PK ! k$l� � " �j lenses/dist/tests/test_cgrules.augnu �[��� PK ! ��Y��w �w �n lenses/dist/tests/test_krb5.augnu �[��� PK ! ��� � ) �� lenses/dist/tests/test_shellvars_list.augnu �[��� PK ! � � � lenses/dist/tests/test_yum.augnu �[��� PK ! �T�� � " K lenses/dist/tests/test_up2date.augnu �[��� PK ! �֥�\ \ �. lenses/dist/tests/test_yaml.augnu �[��� PK ! �^J � � & 84 lenses/dist/tests/test_pythonpaste.augnu �[��� PK ! I���% % # u9 lenses/dist/tests/test_nsswitch.augnu �[��� PK ! ì�}�7 �7 �? lenses/dist/tests/test_cups.augnu �[��� PK ! p�T� �w lenses/dist/tests/test_slapd.augnu �[��� PK ! �G�� � " _� lenses/dist/tests/test_desktop.augnu �[��� PK ! �e3x� � �� lenses/dist/cobblersettings.augnu �[��� PK ! �4[� � � lenses/dist/star.augnu �[��� PK ! r5/vx x Ֆ lenses/dist/exports.augnu �[��� PK ! ���r� � �� lenses/dist/hosts.augnu �[��� PK ! ��2� � �� lenses/dist/cups.augnu �[��� PK ! ���� � ͤ lenses/dist/host_conf.augnu �[��� PK ! q �� lenses/dist/postfix_access.augnu �[��� PK ! ���] ] �� lenses/dist/sssd.augnu �[��� PK ! ���7' ' �� lenses/dist/redis.augnu �[��� PK ! ����A A � lenses/dist/thttpd.augnu �[��� PK ! �H� � �� lenses/dist/backuppchosts.augnu �[��� PK ! ��`� �� lenses/dist/puppet.augnu �[��� PK ! �a#� � /� lenses/dist/gshadow.augnu �[��� PK ! W^Y� � 6� lenses/dist/dnsmasq.augnu �[��� PK ! m+��� � � lenses/dist/csv.augnu �[��� PK ! cފg g � lenses/dist/login_defs.augnu �[��� PK ! �|w� � � lenses/dist/ssh.augnu �[��� PK ! *MP MP � lenses/dist/sudoers.augnu �[��� PK ! e�O� � 2Y lenses/dist/quote.augnu �[��� PK ! �V� Nt lenses/dist/puppetfile.augnu �[��� PK ! A�1L� � �} lenses/dist/sysctl.augnu �[��� PK ! �8��� � �� lenses/dist/dovecot.augnu �[��� PK ��H� ��
| ver. 1.1 | |
.
| PHP 8.4.18 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0.15 |
proxy
|
phpinfo
|
ÐаÑтройка