Add iscloud var

tbsetup/ns2ir/lanlink.tcl

 # -*- tcl -*-
 #
 # EMULAB-COPYRIGHT
-# Copyright (c) 2000-2005 University of Utah and the Flux Group.
+# Copyright (c) 2000-2006 University of Utah and the Flux Group.
 # All rights reserved.
 #
 
@@ -262,6 +262,9 @@ LanLink instproc init {s nodes bw d type} {
     $self instvar cost
     $self instvar linkq
 
+    $self instvar iscloud
+    $self set iscloud 0
+
     foreach node $nodes {
 	set nodepair [list $node [$node add_lanlink $self]]
 	set bandwidth($nodepair) $bw