Fix interface misnumbering

backend/add_rack_nodes.in

@@ -110,5 +110,5 @@ system("perl newnode_research.in");
 
 # Commit Changes
 foreach my $node (@nodeList) {
-#    newAction("table" => "node", "id" => $node, "command" => "commit");
+    newAction("table" => "node", "id" => $node, "command" => "commit");
 }

backend/newnode_research.in

@@ -180,10 +180,10 @@ foreach my $key (keys(%mac_list)) {
     my $iface = $mac_list{$key}->{'iface'};
     my $protocols = $mac_list{$key}->{'protocols'};
     if (defined($protocols)) {
-	if (defined($iface)) {
-	    $iface_sort{"$protocols:$iface"} = $key;
+	if (defined($iface) && $iface ne 'unknown') {
+	    $iface_sort{"$protocols:$iface:$key"} = $key;
 	} else {
-	    $card_sort{"$protocols:$card"} = $key;
+	    $card_sort{"$protocols:$card:$key"} = $key;
 	}
     } else {
 	print STDERR "Protocols not defined on new_interface_id ".
@@ -194,17 +194,17 @@ foreach my $key (keys(%mac_list)) {
 my $current_card = 0;
 foreach my $iface_key (sort(keys(%iface_sort))) {
     $mac_list{$iface_sort{$iface_key}}->{'card'} = $current_card;
-    my $id = $mac_list{$iface_sort{$iface_key}}->{'id'};
-    my $card = $mac_list{$iface_sort{$iface_key}}->{'iface'};
-    print STDERR "iface $id:$card\n";
+#    my $id = $mac_list{$iface_sort{$iface_key}}->{'id'};
+#    my $card = $mac_list{$iface_sort{$iface_key}}->{'iface'};
+#    print STDERR "iface $id:$card\n";
     ++$current_card;
 }
 
 foreach my $card_key (sort(keys(%card_sort))) {
     $mac_list{$card_sort{$card_key}}->{'card'} = $current_card;
-    my $id = $mac_list{$card_sort{$card_key}}->{'id'};
-    my $card = $mac_list{$card_sort{$card_key}}->{'card'};
-    print STDERR "card $id:$card\n";
+#    my $id = $mac_list{$card_sort{$card_key}}->{'id'};
+#    my $card = $mac_list{$card_sort{$card_key}}->{'card'};
+#    print STDERR "card $id:$card\n";
     ++$current_card;
 }