Q]DM, Multicast Routing Bug!

[gilsan <gilsan@csred.kaist.ac.kr>]

I can't resolve this problem.

In star topology, When central node and some nodes are not member of the
multicast group, some members are not receive packet...

How can i resolve?

My script is this.. node(1) does not receive at all !!!

Simulator set NumberInterfaces_ 1
set ns [new Simulator]
Simulator set EnableMcast_ 1

$ns trace-all [open srm2.tr w]
$ns namtrace-all [open srm2.nam w]
# make the nodes
set nmax 8
for {set i 0} {$i <= $nmax} {incr i} {
    set n($i) [$ns node]

}
$n(0) shape "other"
$n(1) shape "box"

# now the links
for {set i 1} {$i <= $nmax} {incr i} {
    $ns duplex-link $n($i) $n(0) 1.5Mb 10ms DropTail


set loss_module($i) [new ErrorModel]
$loss_module($i) set rate_ 0.2
$loss_module($i) unit pkt
$loss_module($i) drop-target [$ns set nullAgent_]
$ns lossmodel $loss_module($i) $n($i) $n(0)

set loss_module2($i) [new ErrorModel]
$loss_module2($i) set rate_ 0.2
$loss_module2($i) unit pkt
$loss_module2($i) drop-target [$ns set nullAgent_]
$ns lossmodel $loss_module2($i) $n(0) $n($i)
}

$ns duplex-link-op $n(1) $n(0) orient right
$ns duplex-link-op $n(2) $n(0) orient right-down
$ns duplex-link-op $n(3) $n(0) orient up
$ns duplex-link-op $n(4) $n(0) orient left-down
$ns duplex-link-op $n(5) $n(0) orient left
$ns duplex-link-op $n(6) $n(0) orient left-up
$ns duplex-link-op $n(7) $n(0) orient down
$ns duplex-link-op $n(8) $n(0) orient right-up

$ns duplex-link-op $n(0) $n(1) queuePos 0
set group 0x8000
set cmc [$ns mrtproto DM {}]
set fid 0
set packetSize 800


for {set i 1} {$i < $nmax} {incr i} {

        set srm($i) [new Agent/SRM/Adaptive]
    $srm($i) set dst_ $group
    $srm($i) set fid_ [incr fid]
    $ns at 1.0 "$srm($i) start"

    $ns attach-agent $n($i) $srm($i)

set s($i) [new Agent/CBR]
$s($i) set interval_ 0.1
$s($i) set packetSize_ $packetSize
$srm($i) traffic-source $s1
$srm($i) set packetSize_ $packetSize
$ns at 2.0 "$srm($i) start-source"

}

        $ns at 3.0 "$n(2) leave-group $srm(2) $group"


$ns at 10 "finish"
$ns run



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Thanks in Advance.