equal
deleted
inserted
replaced
56 file: <skip: qr/[^\S\n]*/> # Ignore non-newline whitespace |
56 file: <skip: qr/[^\S\n]*/> # Ignore non-newline whitespace |
57 line(s) eofile |
57 line(s) eofile |
58 |
58 |
59 line: s_controller |
59 line: s_controller |
60 | s_interface |
60 | s_interface |
|
61 | s_voice_port |
61 | l_vrf |
62 | l_vrf |
62 | l_sntp |
63 | l_sntp |
63 | l_syslog |
64 | l_syslog |
64 | indent comment |
65 | indent comment |
65 | indent cmdline |
66 | indent cmdline |
224 # sntp |
225 # sntp |
225 l_sntp: "0" "sntp" "server" ip via_iface[ctx => ctx('sntp-server', $item{ip})] eol |
226 l_sntp: "0" "sntp" "server" ip via_iface[ctx => ctx('sntp-server', $item{ip})] eol |
226 |
227 |
227 l_syslog: "0" "syslog" "server" ip num via_iface[ctx => ctx('syslog', 'server', $item{ip})] eol |
228 l_syslog: "0" "syslog" "server" ip num via_iface[ctx => ctx('syslog', 'server', $item{ip})] eol |
228 | "0" "logging" "syslog" /\w+/ eol |
229 | "0" "logging" "syslog" /\w+/ eol |
229 { $::res->{syslog}->{level} = $item[4]; } |
230 { $::res->{syslog}->{level} = $item[4] } |
230 |
231 |
|
232 # voice ports |
|
233 s_voice_port: "0" "voice-port" /\d+\/\d+/ eol s_voice_port_l[ctx => ctx('voice-port', $item[3])](s) "0" "exit" eol |
|
234 |
|
235 s_voice_port_l: "1" s_voice_port_content[ctx => $arg{ctx}] eol |
|
236 | l_section |
|
237 |
|
238 s_voice_port_content: /clock-source|tone|caller-id/ identifier |
|
239 { $arg{ctx}->{$item[1]} = $item{identifier} } |
|
240 | /(no)?/ /sntp-time|power-source-one/ |
|
241 { $arg{ctx}->{$item[2]} = ($item[1] eq 'no') ? 0 : 1 } |
|
242 | "modify-tone" identifier /\S+/ |
|
243 { $arg{ctx}->{$item[1]}->{$item{identifier}} = $item[3] } |
|
244 |