Next we need to paste the below code to the Main.tcl file and save the file in the ns-2.35 folder.

Code:

set ns [new Simulator]

set n0 [$ns node]

set n1 [$ns node]

set namfile [open out.nam w]

$ns namtrace-all $namfile

$ns duplex-link $n0 $n1 1.5Mb 10ms DropTail

set src1 [$ns create-connection TCP $n0 TCPSink $n1 1]

set src2 [$ns create-connection TCP $n1 TCPSink $n0 2]

set ftp1 [$src1 attach-app FTP]

set ftp2 [$src2 attach-app FTP]

$ns at 0.0 “$ftp1 start”

$ns at 1.0 “$ftp2 start”

set tf [open out.tr w]

$ns trace-queue $n0 $n1 $tf

set qmon [$ns monitor-queue $n0 $n1 “”]

set integ [$qmon get-bytes-integrator]

proc dump { link interval } {

    global ns integ

    $ns at [expr [$ns now] + $interval] “dump $link $interval”

    set delay [expr 8 * [$integ set sum_] / [[$link link] set bandwidth_]]

    puts “[$ns now] delay=$delay”

}

proc stop {} {

    global ns namfile

    $ns flush-trace

    close $namfile

    exec nam out.nam &

    exit 0

}

$ns at 0.0 “dump [$ns link $n0 $n1] 1”

$ns at 20.0 “stop”

$ns run

Screenshot:

Here we will show the header file by opening Ftp.h file to show the class or function imported from the Ftp.h in the example code. This Tcl Script Line (set ftp1 [$src1 attach-app FTP]) are used to configure the FTP File Transfer protocol in this Network. This configuration helps to manage File Transfer process between nodes in the network. When the Tcl script executes this line, Ftp will be managed across all the links in each Nodes during the simulation.

Screenshot: