[Sumover-dev] [svn commit] r4296 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Wed Oct  8 17:59:11 2008
New Revision: 4296

Modified:
   vic/branches/mpeg4/tcl/cf-network.tcl

Log:
Fixed the automated address modification when sending layer video so that with
multicast the final octect is incremented for each layer, whereas with unicast
the address is not changed - only the port (which is also changed with
multicast).


Modified: vic/branches/mpeg4/tcl/cf-network.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/cf-network.tcl	(original)
+++ vic/branches/mpeg4/tcl/cf-network.tcl	Wed Oct  8 17:59:11 2008
@@ -127,13 +127,13 @@
 		    set separator .
 	    }
         		
-        while { $numLayers > $layer } {
+            while { $numLayers > $layer } {
 			incr port 
 			incr layer
-			incr offset
-			set dn [new network $IPaddrFamily]
-			$dn open $base$separator$offset $port $ttl
-			$session data-net $dn $layer
+			if { [$dn ismulticast] } { incr offset }
+			set ldn [new network $IPaddrFamily]
+			$ldn open $base$separator$offset $port $ttl
+			$session data-net $ldn $layer
 
 			if { $sessionType != "nv" } {
 				if { $sessionType == "ivs" } {
@@ -145,7 +145,7 @@
 				$cn open $base$separator$offset $port $ttl
 				$session ctrl-net $cn $layer
 			}
-		}
+            }
 	}
 
 	#