set ns [new Simulator]
source tb_compat.tcl

$ns rtproto Static

set num_clients 5
set server_os FBSD-STD
set client_os RHL-STD

set server  [$ns node]
set routerA [$ns node]
set routerB [$ns node]
set send    [$ns node]
set receive [$ns node]

for {set i 1} {$i <= $num_clients} {incr i} {
    set client($i) [$ns node]
	tb-set-node-os $client($i) $client_os
    append lan_string "$client(${i}) "
}
tb-set-node-os $server $server_os

set routerLink  [$ns duplex-link $routerA $routerB 100Mb 0ms DropTail]
set serverLink  [$ns duplex-link $routerA $server  100Mb 0ms DropTail]
set sendLink    [$ns duplex-link $routerB $send    100Mb 0ms DropTail]
set receiveLink [$ns duplex-link $routerA $receive 100Mb 0ms DropTail]
set clientLAN   [$ns make-lan "$lan_string $routerB" 100Mb 0ms]

set tcp0 [new Agent/TCP]
$ns attach-agent $send $tcp0

set cbr0 [new Application/Traffic/CBR]
$cbr0 set packetSize_ 1200
$cbr0 set rate_ 50Mbps
$cbr0 attach-agent $tcp0

$ns at 1 "$cbr0 start"

set null0 [new Agent/Null] 
$ns attach-agent $receive $null0
$ns connect $tcp0 $null0

set server_prog [new Program $ns]
$server_prog set node $server
$server_prog set command "/proj/testbed/bin/serverprogram"
$ns at 1 "$server_prog start"

$ns run