Hellow , i am looking for help regading this problem

root@bipul-Linux:~/Desktop# nse Emulation1.tcl
warning: no class variable Scheduler/RealTime::adjust_new_width_interval_

    see tcl-object.tcl in tclcl for info about this warning.

warning: no class variable Scheduler/RealTime::min_bin_width_

TapAgent(_o40): linked sock 6 as READABLE
TCPTapAgent(_o43): sent packet (sz: 40)
TCPTapAgent(_o43): sent packet (sz: 40)
TCPTapAgent(_o43): sent packet (sz: 40)
###########################################
Out put packet data below
root@bipul-Linux:~/Desktop# cat out.tr
+ 1.000118 2 1 tcp 40 ------- 0 2.0 1.0 0 0
- 1.000118 2 1 tcp 40 ------- 0 2.0 1.0 0 0
r 1.001166 2 1 tcp 40 ------- 0 2.0 1.0 0 0
+ 4.000225 2 1 tcp 40 ------- 0 2.0 1.0 0 1
- 4.000225 2 1 tcp 40 ------- 0 2.0 1.0 0 1
r 4.001263 2 1 tcp 40 ------- 0 2.0 1.0 0 1
+ 10.000309 2 1 tcp 40 ------- 0 2.0 1.0 0 2
- 10.000309 2 1 tcp 40 ------- 0 2.0 1.0 0 2
r 10.001342 2 1 tcp 40 ------- 0 2.0 1.0 0 2

##############################################
My .tcl script for network emulation between two computer is

set ns [new Simulator]
$ns use-scheduler RealTime

set f [open out.tr w]
$ns trace-all $f

set entry_node [$ns node]
set exit_node [$ns node]
set tcp_node [$ns node]

$ns simplex-link $entry_node $tcp_node 10Mb 1ms DropTail
$ns simplex-link $tcp_node $exit_node 10M 1ms DropTail

# Configure the entry node
set tap1 [new Agent/TCPTap];               # Create the TCPTap Agent
set bpf [new Network/Pcap/Live];           # Create the bpf
set dev [$bpf open readonly eth0]
$bpf filter "src 113.19.128.119 and src port 5000 and dst 113.19.128.22 and
dst port 80"
$tap1 network $bpf;                        # Connect bpf to TCPTap Agent
$ns attach-agent $entry_node $tap1;        # Attach TCPTap Agent to the node

# Configure the exit node
set tap2 [new Agent/TCPTap];       # Create a TCPTap Agent
set ipnet [new Network/IP];        # Create a Network agent
$ipnet open writeonly
$tap2 network $ipnet;              # Connect network agent to tap agent
$tap2 advertised-window 512
$tap2 extipaddr "113.19.128.119"
$tap2 extport 80
$ns attach-agent $exit_node $tap2;        # Attach agent to the node.

# Configure the TCP agent
set tcp [new Agent/TCP/FullTcp]
$ns attach-agent $tcp_node $tcp

# Connect the agents.
$ns simplex-connect $tap1 $tcp
$ns simplex-connect $tcp $tap2


$ns at 01.0 "$tcp advance 1"
$ns at 20.0 "finish"

    proc finish {} {
        global ns f nf
        $ns flush-trace
        close $f
        exit 0
    }

$ns run


PLease help me in knowing what's wrong as i am unable to see NAM on my
scree and i getting this error in my terminal

Thank you

Reply via email to