| M | |
| machine, BootConf | |
| macro | |
| MACRO DEFINITION, Xymon_Alerting | |
| macro_def, NagiosConfig | |
| macrodefinition, Xymon_Alerting | |
| mail, Xymon_Alerting | |
| Mailscanner | |
| Mailscanner_rules | |
| MAIN OPTIONS, Resolv | |
| Make some sub-lenses for use in later lenses, Chrony | |
| make_value, Erlang | |
| makestep, Chrony | |
| map_format, Automaster | |
| map_generic, Automaster | |
| map_ldap, Automaster | |
| map_ldap_name, Automaster | |
| map_line, Grub | |
| map_mount, Automaster | |
| map_name | |
| map_type, Automaster | |
| maxchange, Chrony | |
| MCollective | |
| member, Gshadow | |
| member_list, Gshadow | |
| Memcached | |
| menu_setting, Grub | |
| meta_release, Test_Apt_Update_Manager | |
| metadata, Puppetfile | |
| method, Pg_Hba | |
| minute, Cron | |
| misc_check, Test_Keepalived | |
| misc_check_field, Keepalived | |
| Mke2fs | |
| mod, Puppetfile | |
| modpath, Solaris_System | |
| Modprobe | |
| module_line, Grub | |
| Modules | |
| Modules_conf | |
| MongoDBServer | |
| month, Cron | |
| mount_max, Fuse | |
| mount_option, FAI_DiskConfig | |
| mount_option_value, FAI_DiskConfig | |
| mount_options, FAI_DiskConfig | |
| mountpoint, FAI_DiskConfig | |
| mountpoint_kw, FAI_DiskConfig | |
| multi, Test_Systemd | |
| multi_empty, Up2date | |
| multi_entry, Up2date | |
| multi_single, Up2date | |
| multi_value, Up2date | |
| multi_values, Up2date | |
| multiboot_arg, Grub | |
| multiline_ace, Test_IniFile | |
| multiline_nl, Test_IniFile | |
| multiline_test, Test_IniFile |
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)
let macro = [ Util.indent . macro_def . Util.eol ]
The macro recipient definition
let macro = [ key /\$[^ =\t\n#\/]+/ . filters_opt ]
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
A string that starts with $ and that is assigned something
let macrodefinition = [ key /\$[^ =\t\n#\/]+/ . Sep.space_equal . store Rx.space_in . eol ]
The mail recipient definition
let mail = [ key "MAIL" . ws . store_word . filters_opt ]
Make a “value” subnode for arrays/tuples
let make_value (lns:lens) = [ label "value" . lns ]
makestep has specific syntax
let makestep = [ Util.indent . key "makestep" . space . [ label "threshold" . store number ] . space . [ label "limit" . store integer ] . eol ]
let map_format = [ label "format" . store format ]
Used for all except LDAP maps which are parsed further
let map_generic = ( map_type . ( Sep.comma . map_format )? . Sep.colon )? . map_name
let map_ldap = [ label "type" . store "ldap" ] . ( Sep.comma . map_format )? . Sep.colon . 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 ]
let map_line = [ command "map" "\t" . spc . [ label "from" . store /[()A-za-z0-9]+/ ] . spc . [ label "to" . store /[()A-za-z0-9]+/ ] . eol ]
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 ]
let map_name = [ label "map" . store name ]
let map_name = /[^: \t\n]+/
let map_type = [ label "type" . store type ]
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 ]
let member = [ label "member" . store word ]
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
let menu_setting = 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" | serial | terminal | password_arg | color | device | setkey
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 "
a metadata entry
let metadata = [ Util.indent . key "metadata" . Util.eol ]
can contain an option
let method = [ label "method" . store /[A-Za-z][A-Za-z0-9]+/ . ( Sep.tab . option )* ]
let minute = [ label "minute" . store num ]
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" } } } }
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
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]+/) ] in let opt = [ Util.del_str ":" . key Rx.word . del /[ \t]*=>[ \t]*/ " => " . Quote.do_quote (store /[^,\n]*/) ] in let opts = Build.opt_list opt comma in [ Util.indent . Util.del_str "mod" . seq "mod" . Sep.space . mod_name . (comma . version)? . (comma . opts)? . Util.eol ]
Individual moddir search path entry
let modpath = [ seq "modpath" . store /[^ :\t\n]+/ ]
Solaris extension adds module$ and kernel$ for variable interpolation
let module_line = [ command /module\$?/ "\t" . spc . kernel_args ]
let month = [ label "month" . store alphanum ]
let mount_max = Build.key_value_line "mount_max" equal (store Rx.integer)
Counting options
let mount_option = [ seq "mount_option" . store /[^,= \t\n]+/ . mount_option_value? ]
let mount_option_value = [ label "value" . Util.del_str "=" . store /[^,= \t\n]+/ ]
An array of mount_options
let mount_options = [ label "mount_options" . counter "mount_option" . Build.opt_list mount_option Sep.comma ]
let mountpoint_kw = "-" (* do not mount *) | "swap" (* swap space *)
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 "
key=;
let multi_empty = sep_semi
List settings go under a ‘values’ node
let multi_entry = [ label "values" . counter "multi" . ( multi_single | multi_values | multi_empty ) ]
key=foo; (parsed as a list)
let multi_single = multi_value . sep_semi
One value in a list setting
let multi_value = [ seq "multi" . store value_re ]
key=foo;bar key=foo;bar;
let multi_values = multi_value . ( sep_semi . multi_value )+ . del /;?/ ";"
Permits a second form for Solaris multiboot kernels that take a path (with a slash) as their first arg, e.g.
let multiboot_arg = [ label "@path" . store (Rx.word . "/" . Rx.no_spaces) ]
let multiline_ace = IniFile.entry_multiline IniFile.entry_re sep_ace comment_ace
let multiline_nl = "test_ace =\n val2\n val3\n"
let multiline_test = "test_ace = val1\n val2\n val3\n"