Index

F |
| facilities, Syslog
| FAI_DiskConfig
| family, Resolv
| fdrift, Chrony
| field Channels Keepalived Tmpfiles
| field_int, Channels
| field_no_colon, Channels
| field_word, Channels
| Fields and values, Xorg
| file Syslog Test_Aliases
| file_r, Syslog
| file_tmpl, Rsyslog
| filesystem, FAI_DiskConfig
| filesystem_kw, FAI_DiskConfig

filter
Global
puppetfileserver.aug sssd.aug
Access ActiveMQ_Conf Anacron Approx Apt_Update_Manager AptConf AptPreferences Aptsources Authorized_Keys Automaster Automounter Avahi BackupPCHosts BootConf Chrony ClamAV Collectd CPanel Cron Crypttab Cups Dovecot Fonts Fuse Grub Host_Conf Hostname Hosts_Access Inputrc JettyRealm JMXAccess JMXPassword Keepalived
keepalived.aug ldso.aug
Known_Hosts Login_defs Mke2fs Modprobe Modules MongoDBServer NagiosConfig Netmasks NetworkManager Networks Nginx Nrpe Nslcd Nsswitch Ntpd OpenShift_Config OpenShift_Http OpenShift_Quickstarts Oz Pagekite Pbuilder Pg_Hba Pgbouncer Postfix_Passwordmap Postfix_Transport Postfix_Virtual Postgresql Protocols Puppet_Auth Qpid Rabbitmq Resolv Schroot Semanage Services Shells Simplelines Simplevars SmbUsers Solaris_System Subversion Sudoers Sysconfig_Route Sysctl Syslog Systemd Tmpfiles Trapperkeeper Up2date UpdateDB VWware_Config Xorg Xymon_Alerting

| Filter entry, Nslcd
| filters Test_Collectd Xymon_Alerting
| FILTERS, Xymon_Alerting
| filters_opt, Xymon_Alerting
| Final lense summary, Chrony
| flag Build Keepalived Test_Build Xymon_Alerting
| flag_filters_opt, Xymon_Alerting
| flag_line Build Test_Build
| flags, Chrony
| flat_literal, LVM
| Fonts
| forge, Puppetfile
| format Automaster Xymon_Alerting
| fs_option, FAI_DiskConfig
| fs_options, FAI_DiskConfig
| fs_types, Mke2fs
| FS_TYPES SECTION, Mke2fs
| fs_types_entry, Mke2fs
| fs_types_record, Mke2fs
| fs_types_title, Mke2fs
| fspath BootConf Crypttab Rx
| full, Test_Puppet_Auth
| Full lens, Test_Xml
| Function, Syslog
| FUNCTIONS, Channels
| Fuse
G |
| General strings, Rx
| GENERIC CONSTRUCTIONS Build Test_Build
| Generic definitions, Nslcd
| GENERIC LENSES, IniFile
| Generic primitive definitions, cgrules
| Generic primitives Cron Crypttab FAI_DiskConfig Pg_Hba Services Sudoers Xorg
| generic_entry_re, Xorg
| generic_opt, FAI_DiskConfig
| generic_opt_list, FAI_DiskConfig
| Getcap
| gid MasterPasswd Passwd
| glob, Erlang
| GLOBAL CONFIGURATION, Keepalived
| global_conf, Keepalived
| global_defs, Keepalived
| global_defs_field, Keepalived
| group Access Channels Reprepro_Uploaders Xymon_Alerting
| group_record, cgrules
| Grub
| Gshadow
| GtkBookmarks

> let facilities = label_opt_list "facility" (store token) comma

a list of facilities, separated by commas
Parses disk_config files for FAI

> 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

> let fdrift = [ Util.indent . key "fallbackdrift" . space . [ label "min" . store integer ] . space . [ label "max" . store integer ] . eol ]

fallbackdrift has specific syntax

> let field (name:string) (sto:regexp) = [ label name . store sto ]

A generic field

> let field (kw:regexp) (sto:lens) = indent . Build.key_value_line_comment kw sep_spc sto comment_eol

> let field = /[^# \t\n]+/

Applies to the other fields: path, gid and uid fields

> let field_int (name:string) = field name Rx.integer

A field storing Rx.integer

> let field_no_colon (name:string) = field name no_colon

A field storing no_colon

> let field_word (name:string) = field name Rx.word

A field storing Rx.word

> let file = [ Build.xchgs "-" "no_sync" ]? . [ label "file" . store file_r ]

a file may start with a “-” meaning it does not gets sync’ed everytime

> 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,\" "

A full configuration file

> let file_r = /\/[^ \t\n;]+/

a file begins with a / and get almost anything else after

> let file_tmpl = Syslog.file . [ label "template" . Util.del_str ";" . store Rx.word ]

File action with a specified template

> let filesystem = [ label "filesystem" . store filesystem_kw ]

> let filesystem_kw = "-" | "swap"

Regexps for filesystem
Exclude scripts/executable maps from here
The files parsed by default
File filter
The pbuilder conffiles
The pg_hba.conf conf file
all you need is /etc/syslog.conf
The filter

> let filters = "<Chain \"PreCache\"> <Rule \"no_fqdn\"> <Match \"regex\"> Host \"^[^\.]*$\" Invert false </Match> Target \"stop\" </Rule> </Chain> "

> let filters = [ label "filters" . Build.opt_list rule_filter ws ]

One or more filters

> let filters_opt = [ label "filters" . (ws . Build.opt_list rule_filter ws)? ]

Zero, one or more filters

> let flag (kw:regexp) = [ key kw ]

A simple flag subnode, consisting of a single key

> let flag (kw:regexp) = [ indent . key kw . comment_or_eol ]

A single word

> let flag = Build.flag Rx.word

> let flag (kw:string) = Build.flag kw

A flag value

> let flag_filters_opt (kw:string) = [ key kw . filters_opt ]

A flag with optional filters

> let flag_line (kw:regexp) = [ key kw . eol ]

A simple flag line, consisting of a single key

> let flag_line = Build.flag_line Rx.word

> let flags = "dumponexit" | "generatecommandkey" | "lock_all" | "manual" | "noclientlog" | "rtconutc" | "rtcsync"

Options without values

> let flat_literal = int|str

A literal without structure
Parses the /etc/fonts directory

> let forge = [ Util.indent . key "forge" . Sep.space . quote_to_comment_or_eol ]

a forge entry

> let format = Rx.word

sun, hesoid

> let format = kw_word_filters_opt "FORMAT"

The format recipient definition

> let fs_option = [ key /createopts|tuneopts/ . Util.del_str "=\"" . store /[^"\n]*/ . Util.del_str "\"" ]

> let fs_options =

An array of fs_options

> let fs_types = IniFile.record fs_types_title (fs_types_record | comment)

A fs_types section

> let fs_types_entry =list_sto "features" ([del /\^/ "^" . label "disable"]? . key Rx.word) | list_sto "options" (key Rx.word . Util.del_str "=" . store Rx.word) | entry_sto "lazy_itable_init" ("true"|"false") | entry_sto ("flex_bg_size"|"auto_64-bit_support") Rx.integer

Possible entries under a fs_types_record group

> let fs_types_record = [ label "filesystem" . Util.indent . store Rx.word . del /[ \t]*=[ \t]*\{[ \t]*\n/ " = {\n" . ((Util.indent . (fs_types_entry|common_entry)) | empty | comment)* . del /[ \t]*\}[ \t]*\n/ " }\n" ]

Fs group records under the fs_types section

> let fs_types_title = IniFile.title "fs_types"

Title for the fs_types section

> let fspath = Rx.fspath

> let fspath = Rx.fspath

> let fspath = /[^ \t\n]+/

A filesystem path

> 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 "

Parses /etc/fuse.conf

> let generic_entry_re = /[^# \t\n\/]+/ - entries_re

> let generic_opt (type:string) (kw:regexp) = [ key type . Util.del_str ":" . store kw ]

A generic key/value 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 ]

A generic key/list option
Parses generic termcap-style capability databases

> let gid = [ label "gid" . store integer . colon ]

pw_gid

> let gid = [ label "gid" . store integer . colon ]

pw_gid

> let glob = Util.del_str lglob . store /[^\n"]+/ . Util.del_str rglob

Store a glob

> let global_conf = global_defs | static_routes

A global configuration entry

> let global_defs = block "global_defs" global_defs_field

A 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

Possible fields in the global_defs block

> let group = [ label "group" . Util.del_str "(" . store identifier_re . Util.del_str ")" ]

Format is (GROUP)

> let group = [ Util.del_str ":" . label "group" . store no_colon . eol . entry_or_comment* ]

> 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 ]

A group declaration

> let group = kw_word /(EX)?GROUP/

The (ex)?group filter definition

> let group_record = generic_record "group" (Util.del_str "@" . store name)

Parses grub configuration
Parses /etc/gshadow
Parses $HOME/.gtk-bookmarks
Close