netconf-parser: ciena.grammar@7b9f165f3a45 (annotated)

1 7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	1	# Grammar for Ciena devices
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	2
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	3	<autotree>
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	4	{ # perl code follows
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	5
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	6	$::res = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	7	$::res->{port} ={};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	8	$::res->{sub_port} ={};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	9	$::res->{pm} = {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	10	instance => {},
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	11	service => {},
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	12	'sub-port' => {},
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	13	};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	14	$::res->{pbt} = {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	15	reserved => {}, # reserved bvids
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	16	'bridge-mac' => {},
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	17	};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	18	$::res->{'pbt-service'} = {};
2 7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	19	$::res->{'pbt-transit'} = {};
1 7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	20	$::res->{'pbt-tunnel-group'} = {};
2 7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	21	$::res->{'pbt-tunnel'} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	22	$::res->{'tunnel'} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	23	$::res->{'tunnel-pair'} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	24	$::res->{'cfm-service'} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	25	$::res->{vc} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	26	$::res->{vs} = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	27	$::res->{"vs-vlans"} = {};
1 7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	28
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	29
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	30	# local (current line) attribute-value-list, ie. property value
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	31	my $avl = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	32
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	33	# Consumes attribute value list.
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	34	# @param type Type (port/sub_port/etc).
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	35	# @param id Identifier, eg. port number.
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	36	sub consume_avl {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	37	my ($type, $id) = (@_);
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	38	$::res->{$type}->{$id} = {} unless exists $::res->{$type}->{$id};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	39	foreach my $k (keys %$avl) {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	40	$::res->{$type}->{$id}->{$k} = $avl->{$k};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	41	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	42	$avl = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	43	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	44
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	45	# Consumes attribute value list into supplied pointer (into hash).
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	46	# @param ptr Pointer where AVL will be stored.
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	47	# @param id Identifier, eg. port number.
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	48	sub consume_avl_ptr {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	49	my ($ptr, $id) = (@_);
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	50	$ptr->{$id} = {} unless exists $ptr->{$id};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	51	foreach my $k (keys %$avl) {
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	52	$ptr->{$id}->{$k} = $avl->{$k};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	53	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	54	$avl = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	55	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	56
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	57	} # end of perl code
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	58
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	59	file: <skip: qr/[^\S\n]*/> # Ignore non-newline whitespace
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	60	line(s) eofile
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	61
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	62	line: emptyline
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	63	\| comment
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	64	\| cmdline
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	65	\| <error>
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	66
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	67	emptyline: eol
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	68
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	69	comment: /^\!.*/ eol
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	70
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	71	cmdline: l_hostname
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	72	\| l_port
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	73	\| l_sub_port
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	74	\| l_pm
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	75	\| l_pbt
2 7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	76	\| l_tunnel_pair
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	77	\| l_tunnel
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	78	\| l_cfm_service
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	79	\| l_vc
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	80	\| l_vs
1 7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	81	\| word(s) eol
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	82
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	83	word: /[0-9a-zA-Z:\/_\#\"\.,-]+/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	84	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	85
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	86	identifier: /[0-9a-zA-Z:_-]+/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	87	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	88
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	89	quoted_text: <perl_quotelike>
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	90	{ $item[1][2] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	91	\| /[0-9a-zA-Z:\/_\#\"\.,-]+/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	92	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	93
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	94	value: /[0-9a-zA-Z:\/_\#\"\.,-]+/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	95	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	96
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	97	eofile: /^\Z/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	98
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	99	eol: /\n/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	100
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	101	rest_of_line: word(s)
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	102	\| eol
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	103
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	104	# Hostname
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	105	l_hostname: "system" "set" "host-name" identifier
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	106	{ $::res->{hostname} = $item{identifier} }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	107
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	108	# Port
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	109	l_port: "port" /disable\|set/ "port" port_num avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	110	{
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	111	$avl->{action} = $item[2];
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	112	consume_avl("port", $item{port_num});
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	113	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	114
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	115	port_num: /\d+(\/\d+)?/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	116	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	117
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	118	avls: avl(s)
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	119	\| eol
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	120
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	121	avl: "description" quoted_text
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	122	{ $avl->{description} = $item{quoted_text}; }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	123	\| word value
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	124	{ $avl->{$item{word}} = $item{value}; }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	125	# Sub-port
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	126	l_sub_port: "sub-port" /add\|create/ "sub-port" identifier avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	127	{
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	128	$avl->{action} = $item[2];
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	129	consume_avl("sub_port", $item{identifier});
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	130	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	131
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	132	# PM
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	133	l_pm: "pm" "enable" "pm-instance" identifier
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	134	{ $::res->{pm}->{instance}->{$item{identifier}} = "enabled" }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	135	\| "pm" "create" /service\|sub-port/ identifier avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	136	{
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	137	$::res->{pm}->{$item[3]}->{$item{identifier}} = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	138	consume_avl_ptr($::res->{pm}->{$item[3]}, $item{identifier});
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	139	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	140
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	141	# PBT
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	142	bvid: /\d+/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	143	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	144
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	145	mac: /\d{12}\|(\d\d:){5}\d\d/
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	146	{ $item[1] }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	147
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	148	l_pbt: "pbt" "reserve" "bvid" bvid
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	149	{ $::res->{pbt}->{reserved}->{$item{bvid}} = 1 }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	150	\| "pbt" "set" "bridge-mac" mac avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	151	{
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	152	$::res->{pbt}->{'bridge-mac'}->{$item{mac}} = {};
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	153	consume_avl_ptr($::res->{pbt}->{'bridge-mac'}, $item{mac})
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	154	}
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	155	\| "pbt" "service" "create" "service" identifier avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	156	{ consume_avl("pbt-service", $item{identifier}) }
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	157	\| "pbt" "tunnel-group" "create" "group" identifier avls
7e38ef20071f Ciena grammar: parse ports, sub-ports, pbt, hostname, pm "Tomas Zeman <tzeman@volny.cz>" parents: diff changeset	158	{ consume_avl("pbt-tunnel-group", $item{identifier}) }
2 7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	159	\| "pbt" "transit" /\w+/ "pbt-transit" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	160	{ consume_avl("pbt-transit", $item{identifier}) }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	161	\| "pbt" /encap\|decap/"-tunnel" /\w+/ /\S+/ identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	162	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	163	$::res->{"pbt-tunnel"}->{$item{identifier}}->{type} = $item[2];
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	164	consume_avl("pbt-tunnel", $item{identifier})
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	165	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	166
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	167	# Tunnel pair
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	168	l_tunnel_pair: "tunnel" "pair" "create" "tnl-pair" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	169	{ consume_avl("tunnel-pair", $item{identifier}) }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	170
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	171	# Tunnel
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	172	l_tunnel: "tunnel" /encap\|decap/ "create" /\S+/ identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	173	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	174	$::res->{tunnel}->{$item{identifier}} = {
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	175	"tunnel-type" => $item[2],
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	176	"pbt-type" => $item[4],
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	177	};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	178	consume_avl("tunnel", $item{identifier})
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	179	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	180
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	181	# CFM
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	182	l_cfm_service: "cfm" "service" "create" identifier identifier "name" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	183	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	184	my ($pbt_type, $pbt, $cfm) = ($item[4], $item[5], $item[7]);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	185	$::res->{"cfm-service"}->{$cfm} = {
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	186	"pbt-type" => $pbt_type,
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	187	"pbt" => $pbt,
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	188	};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	189	consume_avl("cfm-service", $cfm);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	190	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	191	\| "cfm" "service" "set" "service" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	192	{ consume_avl("cfm-service", $item{identifier}) }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	193	\| "cfm" "service" "enable" "service" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	194	{ $::res->{"cfm-service"}->{$item{identifier}}->{enabled} = 1; }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	195
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	196	# Virtual circuit
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	197	l_vc: "virtual-circuit" "pbt" "create" identifier identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	198	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	199	my ($vc_type, $vc) = ($item[4], $item[5]);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	200	$::res->{vc}->{$vc}->{type} = $vc_type;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	201	consume_avl("vc", $vc);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	202	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	203
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	204	# Virtual switch
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	205	l_vs: "virtual-switch" "create" "vs" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	206	{ $::res->{vs}->{$item{identifier}} = {}; }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	207	\| "virtual-switch" "ethernet" "create" "vs" identifier "vc" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	208	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	209	my ($vs, $vc) = ($item[5], $item[7]);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	210	$::res->{vs}->{$vs}->{ethernet}->{vc} = $vc;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	211	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	212	\| "virtual-switch" "ethernet" "add" "vs" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	213	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	214	my $vs = $item{identifier};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	215	$::res->{vs}->{$vs}->{ethernet}->{members} = []
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	216	unless exists $::res->{vs}->{$vs}->{ethernet}->{members};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	217	my %params = %$avl;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	218	push @{$::res->{vs}->{$vs}->{ethernet}->{members}}, \%params;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	219	$avl = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	220	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	221	\| "virtual-switch" "interface" "attach" /(\w\|-)+/ identifier "vs" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	222	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	223	my ($entity_type, $entity, $vs) = ($item[4], $item[5], $item[7]);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	224	$::res->{vs}->{$vs}->{interfaces} = []
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	225	unless exists $::res->{vs}->{$vs}->{interfaces};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	226	push @{$::res->{vs}->{$vs}->{interfaces}}, {
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	227	entity => $entity,
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	228	type => $entity_type,
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	229	};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	230	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	231	\| "virtual-switch" "l2-cft" "protocol" "add" "vs" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	232	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	233	my $vs = $item{identifier};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	234	$::res->{vs}->{$vs}->{"l2-cft"}->{protocols} = []
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	235	unless exists $::res->{vs}->{$vs}->{"l2-cft"}->{protocols};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	236	my %params = %$avl;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	237	push @{$::res->{vs}->{$vs}->{"l2-cft"}->{protocols}}, \%params;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	238	$avl = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	239	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	240	\| "virtual-switch" "l2-cft" "enable" "vs" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	241	{ $::res->{vs}->{$item{identifier}}->{"l2-cft"}->{enabled} = 1 }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	242	\| "virtual-switch" "private-forwarding-groups" "enable" "vs" identifier
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	243	{ $::res->{vs}->{$item{identifier}}->{"priv-fwd-grp"}->{enabled} = 1 }
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	244	\| "virtual-switch" "private-forwarding-groups" "set" "vs" identifier avls
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	245	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	246	my $vs = $item{identifier};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	247	my %params = %$avl;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	248	$::res->{vs}->{$vs}->{"priv-fwd-grp"} = \%params;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	249	$avl = {};
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	250	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	251	\| "virtual-switch" "add" "reserved-vlan" /\d+/"-"/\d+/
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	252	{
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	253	my ($from, $to) = ($item[4], $item[6]);
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	254	for (my $i = $from; $i <= $to; $i++) {
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	255	$::res->{"vs-vlans"}->{$i} = 1;
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	256	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	257	}
7b9f165f3a45 Ciena grammar: tunnel, tunnel-pair, virt. switch/circuit, cfm service "Tomas Zeman <tzeman@volny.cz>" parents: 1 diff changeset	258

author	"Tomas Zeman <tzeman@volny.cz>"
	Wed, 04 Nov 2009 16:16:32 +0100
changeset 2	7b9f165f3a45
parent 1	7e38ef20071f
child 3	23467e5d2602
permissions	-rw-r--r--