ciena.grammar
changeset 7 a7936f72831c
parent 6 f6aa07070f6f
child 8 7d6516dd0b3e
equal deleted inserted replaced
6:f6aa07070f6f 7:a7936f72831c
   176 		{ consume_avl("tunnel-pair", $item{identifier}) }
   176 		{ consume_avl("tunnel-pair", $item{identifier}) }
   177 
   177 
   178 # Tunnel
   178 # Tunnel
   179 l_tunnel:	"tunnel" /encap|decap/ "create" /\S+/ identifier avls
   179 l_tunnel:	"tunnel" /encap|decap/ "create" /\S+/ identifier avls
   180 		{
   180 		{
   181 		$::res->{tunnel}->{$item{identifier}} = {
   181 		my ($tun_t, $pbt_t, $tun) = ($item[2], $item[4], $item{identifier});
   182 			"tunnel-type" => $item[2],
   182 		my $id = "$tun_t/$pbt_t/$tun";
   183 			"pbt-type" => $item[4],
   183 		$::res->{tunnel}->{$id} = {
       
   184 			"tunnel-type" => $tun_t,
       
   185 			"pbt-type" => $pbt_t,
       
   186 			"tunnel-name" => $tun,
   184 		};
   187 		};
   185 		consume_avl("tunnel", $item{identifier})
   188 		consume_avl("tunnel", $id);
   186 		}
   189 		}
   187 
   190 
   188 # CFM
   191 # CFM
   189 l_cfm_service:	"cfm" "service" "create" identifier identifier "name" identifier avls
   192 l_cfm_service:	"cfm" "service" "create" identifier identifier "name" identifier avls
   190 		{
   193 		{