equal
deleted
inserted
replaced
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 | s_voice_port |
|
62 | s_dial_peer |
62 | l_vrf |
63 | l_vrf |
63 | l_sntp |
64 | l_sntp |
64 | l_syslog |
65 | l_syslog |
65 | indent comment |
66 | indent comment |
66 | indent cmdline |
67 | indent cmdline |
240 | /(no)?/ /sntp-time|power-source-one/ |
241 | /(no)?/ /sntp-time|power-source-one/ |
241 { $arg{ctx}->{$item[2]} = ($item[1] eq 'no') ? 0 : 1 } |
242 { $arg{ctx}->{$item[2]} = ($item[1] eq 'no') ? 0 : 1 } |
242 | "modify-tone" identifier /\S+/ |
243 | "modify-tone" identifier /\S+/ |
243 { $arg{ctx}->{$item[1]}->{$item{identifier}} = $item[3] } |
244 { $arg{ctx}->{$item[1]}->{$item{identifier}} = $item[3] } |
244 |
245 |
|
246 # dial peers |
|
247 s_dial_peer: "0" "dial-peer" "voice" word num eol s_dial_peer_l[ctx => ctx('dial-peer', $item{word}.":".$item{num}), type => $item{word}, num => $item{num} ](s) "0" "exit" eol |
|
248 |
|
249 s_dial_peer_l: "1" s_dial_peer_content[ctx => $arg{ctx}] eol |
|
250 { |
|
251 $arg{ctx}->{type} = $arg{type}; |
|
252 $arg{ctx}->{num} = $arg{num} |
|
253 } |
|
254 | l_section |
|
255 |
|
256 s_dial_peer_content: identifier word |
|
257 { |
|
258 if ($item[1] eq 'no') { |
|
259 $arg{ctx}->{$item[2]} = 0; |
|
260 } else { |
|
261 $arg{ctx}->{$item[1]} = $item[2]; |
|
262 } |
|
263 } |
|
264 | identifier |
|
265 { $arg{ctx}->{$item[1]} = 1 } |
|
266 |