[ns] error while using tracefile in ns-2

[ashfiquac]

Hi,

I was trying to send a trace file using UDP. I am having the following
error,

(I am running ns-2.29 under windows 2000 using xwin32)

warning: no class variable Tracefile::debug_
see tcl-object.tcl in tclcl for info about this warning.

bad file size in videoI11.dat
--- Classifier::no-slot{} default handler (tcl/lib/ns-lib.tcl)---
          _012: no target for slot -1
          _012 type: Classifier/Hash/Dest
content dump:
classifier _012
           0 offset
           0 shift
           2147483647 mask
           1 slots
                   slot 0: _073 (Classifier/Port)
           -1 default
---------------Finished standard no-slot{} default handler
-----------------

And my tcl script is:
set ns [new Simulator]
set nd [open out_tr.tr w]
$ns trace-all $nd

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

set s1 [$ns node]
set r1 [$ns node]
set r2 [$ns node]
set d1 [$ns node]

$ns duplex-link $s1 $r1 10Mb 1ms DropTail
$ns simplex-link $r1 $r2 10Mb 1ms DropTail
$ns duplex-link $r2 $d1 10Mb 1ms DropTail

set qr1r2 [[$ns link $r1 $r2] queue]
$qr1r2 set limit_ 10

set udp1 [new Agent/UDP]
$ns attach-agent $s1 $udp1

set null1 [new Agent/Null]
$ns attach-agent $d1 $null1

set original_file_name foreman_cif11.txt
set trace_file_name videoI11.dat
set original_file_id [open $original_file_name r]
set trace_file_id [open $trace_file_name w]

set frame_count 0
set last_time 0
set pre_time 0

while {[eof $original_file_id]==0} {
gets $original_file_id current_line
scan $current_line "%d%f%d%d" seq nexttime length type
set time [expr ($nexttime-$pre_time)*1000000.0]
puts $trace_file_id "$time $length $type"
set pre_time $nexttime
incr frame_count
}

close $original_file_id
close $trace_file_id

set end_sim_time $nexttime
puts "$end_sim_time"

set trace_file [new Tracefile]
$trace_file filename $trace_file_name
set videoI11 [new Application/Traffic/Trace]
$videoI11 attach-agent $udp1
$videoI11 attach-tracefile $trace_file



$ns at 0.0 "$videoI11 start"
$ns at [expr $end_sim_time + 0.5] "$videoI11 stop"
$ns at [expr $end_sim_time + 1.0] "$null1 closefile"
$ns at [expr $end_sim_time + 1.0] "finish"

$ns run

Any help or suggestions will be highly appreciated.

With regards,
Ashfiqua