Comment out the check for only four links, since we have nodes now

(the IXPs) with more.  Will probably put this check back in later,
with the maixumum number of links coming from the database, per
node type.

tbsetup/ns2ir/node.tcl

@@ -178,11 +178,11 @@ Node instproc add_lanlink {lanlink} {
     # For now, no more than 4 links or interfaces per node
     # XXX Ignore if the lanlink is simulated i.e. one that
     # has all simulated nodes in it. 
-    set maxlanlinks 4
-    if { [$lanlink set simulated] != 1 && $maxlanlinks == [llength $portlist] } {
-	# adding this one would put us over
-	perror "Too many links/LANs to node $self! Maximum is $maxlanlinks."
-    }
+#    set maxlanlinks 4
+#    if { [$lanlink set simulated] != 1 && $maxlanlinks == [llength $portlist] } {
+#	# adding this one would put us over
+#	perror "Too many links/LANs to node $self! Maximum is $maxlanlinks."
+#    }
 
     lappend portlist $lanlink
     lappend iplist ""