--- a/ciena.grammar	Wed Nov 04 16:43:36 2009 +0100
+++ b/ciena.grammar	Fri Nov 06 09:56:53 2009 +0100
@@ -272,3 +272,17 @@
 		}
 		$vlan_range = {};
 		}
+		| "vlan" "add" "vlan" vlan_range "port" port_num
+		{
+		foreach my $vlan (keys %$vlan_range) {
+			$::res->{port}->{$item{port_num}}->{vlans}->{$vlan} = 1;
+		}
+		$vlan_range = {};
+		}
+		| "vlan" "remove" "vlan" vlan_range "port" port_num
+		{
+		foreach my $vlan (keys %$vlan_range) {
+			delete $::res->{port}->{$item{port_num}}->{vlans}->{$vlan};
+		}
+		$vlan_range = {};
+		}