From 8cd5f1fc7917039f946098fd2c576f95df00a68f Mon Sep 17 00:00:00 2001 From: Dominic Cleal Date: Fri, 12 Jun 2015 11:09:09 +0100 Subject: [PATCH] Dhcpd: revert Dhcpd module to 1.1.0-compatible, add Dhcpd_140 In order to keep the default sshd config lens compatible with 1.1.0, the lens from 1.4.0 has been kept in the Dhcpd_140 module and is not loaded by default. Use aug_transform, augtool --transform etc. to use it instead of Dhcpd. --- lenses/dhcpd.aug | 182 +++--------- lenses/dhcpd_140.aug | 512 +++++++++++++++++++++++++++++++++ lenses/tests/test_dhcpd.aug | 214 +------------- lenses/tests/test_dhcpd_140.aug | 606 ++++++++++++++++++++++++++++++++++++++++ tests/Makefile.am | 1 + 5 files changed, 1152 insertions(+), 363 deletions(-) create mode 100644 lenses/dhcpd_140.aug create mode 100644 lenses/tests/test_dhcpd_140.aug diff --git a/lenses/dhcpd.aug b/lenses/dhcpd.aug index f84a409..21a5ce6 100644 --- a/lenses/dhcpd.aug +++ b/lenses/dhcpd.aug @@ -65,12 +65,12 @@ let eos = comment? 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_obr = del /[ \t]*\{([ \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 sep_eq = del /[ \t]*=[ \t]*/ "=" let scl = del ";" ";" (* Define basic types *) @@ -94,11 +94,6 @@ let ip = Rx.ipv4 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;=]+/ @@ -197,7 +192,6 @@ let stmt_string_re = "ddns-update-style" | "use-lease-addr-for-default-route" | "vendor-option-space" | "primary" - | "omapi-key" let stmt_string_tpl (kw:regexp) (l:lens) = [ indent . key kw @@ -230,51 +224,26 @@ let stmt_range = [ indent let stmt_hardware = [ indent . key "hardware" . sep_spc - . [ label "type" . store /ethernet|tokenring|fddi/ ] + . [ label "type" . store /ethernet|tokenring/ ] . 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_code = [ label "label" . store word . sep_spc ] + . [ key "code" . sep_spc . store word ] + . sep_eq + . [ label "type" . store word ] -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 ] @@ -302,13 +271,10 @@ let stmt_option = stmt_option1 | stmt_option2 (* 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 ] - +let stmt_subclass = [ indent . key "subclass" . sep_spc . + ([ label "name" . quote ]| + [ label "name" . bare ]) . sep_spc . + [ label "value" . bare ] . sep_scl . eos ] (************************************************************************ * ALLOW/DENY STATEMENTS @@ -316,18 +282,10 @@ let stmt_subclass = [ indent . key "subclass" . sep_spc (* 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/ +let allow_deny_re = "unknown-clients" | /dynamic[ ]+bootp[ ]+clients/ | /authenticated[ ]+clients/ | /unauthenticated[ ]+clients/ - | "bootp" - | "booting" - | "duplicates" - | "declines" - | "client-updates" - | "leasequery" let stmt_secu_re = "allow" | "deny" @@ -335,17 +293,9 @@ let stmt_secu_re = "allow" 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 ] - + [ indent . l . sep_spc . label s . bare . sep_scl . eos ] | + [ indent . l . sep_spc . label s . quote . sep_scl . eos ] let stmt_secu = [ indent . key stmt_secu_re . sep_spc . store allow_deny_re . sep_scl . eos ] | @@ -356,62 +306,17 @@ let stmt_secu = [ indent . key stmt_secu_re . sep_spc . * MATCH STATEMENTS *************************************************************************) +let sto_fct = store (word . /[ \t]*\([^)]*\)/) +let sto_option = store (/option[ ]+/ . word) 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_re = "substring" | "binary-to-ascii" 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_if = [ dels "if" . sep_spc . store fct_re . sep_osp . label "function" . fct_args ] . + sep_eq . ([ label "value" . bare ]|[ label "value" . quote ]) let stmt_match_pfv = [ label "function" . store "pick-first-value" . sep_spc . dels "(" . sep_osp . @@ -422,7 +327,7 @@ let stmt_match_pfv = [ label "function" . store "pick-first-value" . sep_spc . 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) +let stmt_match = stmt_match_tpl (stmt_match_if | stmt_match_pfv ) (************************************************************************ * BLOCK STATEMENTS @@ -438,11 +343,12 @@ let stmt_entry = stmt_secu | stmt_noarg | stmt_match | stmt_subclass - | stmt_set | empty | comment -let stmt_block_noarg_re = "pool" | "group" +let stmt_block_noarg_re = "pool" + | "group" + | "allow-update" let stmt_block_noarg (body:lens) = [ indent @@ -456,14 +362,16 @@ let stmt_block_arg_re = "host" | "shared-network" | /failover[ ]+peer/ | "zone" - | "group" - | "on" + | "key" 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)*)?/ "" ]) + = [ indent + . key stmt_block_arg_re + . sep_spc + . sto_to_spc + . sep_obr + . body* + . sep_cbr ] let stmt_block_subnet (body:lens) = [ indent @@ -476,37 +384,11 @@ let stmt_block_subnet (body:lens) . 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) + (lns1 | lns2 | lns3 | stmt_entry) let rec lns_staging = stmt_entry|all_block lns_staging let lns = (lns_staging)* diff --git a/lenses/dhcpd_140.aug b/lenses/dhcpd_140.aug new file mode 100644 index 0000000..c907299 --- /dev/null +++ b/lenses/dhcpd_140.aug @@ -0,0 +1,512 @@ +(* +Module: Dhcpd_140 + BIND dhcp 3 server configuration module for Augeas + + This module is compatible with Augeas 1.4.0, but is not loaded by default. + +Author: Francis Giraldeau + +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 . +*) + +module Dhcpd_140 = + +(************************************************************************ + * 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)* diff --git a/lenses/tests/test_dhcpd.aug b/lenses/tests/test_dhcpd.aug index 0af337c..9663029 100644 --- a/lenses/tests/test_dhcpd.aug +++ b/lenses/tests/test_dhcpd.aug @@ -28,9 +28,6 @@ max-lease-time 7200; # 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; @@ -182,12 +179,7 @@ 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" } @@ -195,30 +187,6 @@ test Dhcpd.stmt_option get "option voip-boot-server code 66 = string;" = { "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; @@ -274,7 +242,7 @@ failover peer \"redondance01\" { } } { "next-server" = "10.1.1.1" } - { "failover peer" = "redondance01" + { "failover peer" = "\"redondance01\"" { "primary" } { "address" = "10.1.1.1" } { "port" = "647" } @@ -291,26 +259,6 @@ failover peer \"redondance01\" { { "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; @@ -386,25 +334,6 @@ test Dhcpd.stmt_match get "match if substring (option dhcp-client-identifier, 1, { "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" @@ -436,26 +365,12 @@ test Dhcpd.stmt_match get "match if binary-to-ascii(16, 32, \"\", substring(hard { "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 @@ -477,130 +392,3 @@ 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 ()" } diff --git a/lenses/tests/test_dhcpd_140.aug b/lenses/tests/test_dhcpd_140.aug new file mode 100644 index 0000000..9d6fdc8 --- /dev/null +++ b/lenses/tests/test_dhcpd_140.aug @@ -0,0 +1,606 @@ +module Test_dhcpd_140 = + +let lns = Dhcpd_140.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_140.stmt_secu get "allow members of \"foo\";" = { "allow-members-of" = "foo" } +test Dhcpd_140.stmt_secu get "allow booting;" = { "allow" = "booting" } +test Dhcpd_140.stmt_secu get "allow bootp;" = { "allow" = "bootp" } +test Dhcpd_140.stmt_option get "option voip-boot-server code 66 = string;" = + { "rfc-code" + { "label" = "voip-boot-server" } + { "code" = "66" } + { "type" = "string" } + } + +test Dhcpd_140.stmt_option get "option special-option code 25 = array of string;" = + { "rfc-code" + { "label" = "special-option" } + { "code" = "25" } + { "type" = "array of string" } + } + +test Dhcpd_140.stmt_option get "option special-option code 25 = integer 32;" = + { "rfc-code" + { "label" = "special-option" } + { "code" = "25" } + { "type" = "integer 32" } + } + + +test Dhcpd_140.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_140.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_140.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_140.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_140.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_140.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_140.lns get "option voip-vlan-id \"VLAN=1234;\";" = + { "option" + { "voip-vlan-id" + { "arg" = "VLAN=1234;" } + } + } + +test Dhcpd_140.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_140.lns get "include \"/etc/dhcpd.master\";" = + { "include" = "/etc/dhcpd.master" } + +test Dhcpd_140.lns put "\n" after set "/include" "/etc/dhcpd.master" = + "\ninclude \"/etc/dhcpd.master\";\n" + +test Dhcpd_140.fct_args get "(option dhcp-client-identifier, 1, 3)" = + { "args" + { "arg" = "option dhcp-client-identifier" } + { "arg" = "1" } + { "arg" = "3" } + } + +test Dhcpd_140.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_140.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_140.stmt_match get "match if option vendor-class-identifier=\"RAS\";" = + { "match" + { "option" = "vendor-class-identifier" + { "value" = "RAS" } + } + } + + +test Dhcpd_140.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_140.fct_args get "(16, 32, \"\", substring(hardware, 0, 4))" = + { "args" + { "arg" = "16" } + { "arg" = "32" } + { "arg" = "\"\"" } + { "arg" = "substring(hardware, 0, 4)" } + } + +test Dhcpd_140.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_140.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_140.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_140.lns get "subclass \"quoted class\" \"quoted value\";" = + { "subclass" + { "name" = "quoted class" } + { "value" = "quoted value" } + } + + +(* overall test *) +test Dhcpd_140.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_140.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_140.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_140.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_140.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_140.lns get gh34_simple = + { "@if" = "exists dhcp-parameter-request-list" + { "default-lease-time" = "600" } + { "@else" + { "default-lease-time" = "200" } } } + +test Dhcpd_140.lns get "omapi-key fookey;" = + { "omapi-key" = "fookey" } + +(* almost all DHCP groups should support braces starting on the next line *) +test Dhcpd_140.lns get "class introduction +{ +}" = + { "class" = "introduction" } + +(* equals should work the same *) +test Dhcpd_140.lns get "option test_records code 123 = + string;" = + { "rfc-code" + { "label" = "test_records" } + { "code" = "123" } + { "type" = "string" } + } + +test Dhcpd_140.lns get "deny members of \"Are things like () allowed?\";" = + { "deny-members-of" = "Are things like () allowed?" } + +test Dhcpd_140.lns get "deny unknown clients;" = + { "deny" = "unknown clients" } +test Dhcpd_140.lns get "deny known-clients;" = + { "deny" = "known-clients" } + +test Dhcpd_140.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_140.lns get "set myvariable = foo;" = + { "set" = "myvariable" + { "value" = "foo" } + } + +test Dhcpd_140.stmt_hardware get "hardware fddi 00:01:02:03:04:05;" = + { "hardware" + { "type" = "fddi" } + { "address" = "00:01:02:03:04:05" } + } + +test Dhcpd_140.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_140.lns get key_tests = + { "key_block" = "sample" + { "algorithm" = "hmac-md5" } + { "secret" = "secret==" } + } + { "key_block" = "interesting" } + { "key_block" = "third key" + { "secret" = "two==" } + } + +test Dhcpd_140.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_140.lns get "group \"hello\" { }" = + { "group" = "hello" } + +test Dhcpd_140.lns get "class \"testing class with spaces and quotes and ()\" {}" = + { "class" = "testing class with spaces and quotes and ()" } diff --git a/tests/Makefile.am b/tests/Makefile.am index 387ac7d..315cac9 100644 --- a/tests/Makefile.am +++ b/tests/Makefile.am @@ -58,6 +58,7 @@ lens_tests = \ lens-device_map.sh \ lens-dhclient.sh \ lens-dhcpd.sh \ + lens-dhcpd_140.sh \ lens-dns_zone.sh \ lens-dnsmasq.sh \ lens-dovecot.sh \