#!/bin/tcsh

#
# 8q-exp
# 
# Michele Weigle, March 22, 2005, Clemson University
#

set NS = "/home2/mweigle/pub/ns-allinone-2.27/ns-2.27/ns"
set BINDIR = "/home2/mweigle/multi-cl/bin"

# DATA directory
set datadir = ../data/DT-PI-PI
mkdir -p $datadir

# R1-R2, R3-R4, R5-R6
set queuemethod = "DropTail PI PI"
set out = 1
set id = 2CL
set warmup =  60
set duration = 9000
set pairs = 50000
set ftp = 10
# set fwd PM rate and ct PM rate according to desired load
set fwd = 25
set rev = 25
set ct1 = 24
#set ct3 = 26
set ct3 = 27
set ct5 = 25.76
set bw = 10

# setup HTTP traffic based on level of cross-traffic
if ($id == "0CL") then
    set PMflows = "$fwd 0 0 0 0 0 0 0"
    set PMrev_flows = "0 0 0 0 0 0 0 $rev"
else if ($id == "1CL") then
    set PMflows = "$fwd $ct1 0 0 0 0 0 0"
    set PMrev_flows = "0 0 $ct1 0 0 0 0 $rev"
else if ($id == "2CL") then
    set PMflows = "$fwd $ct1 0 $ct3 0 0 0 0"
    set PMrev_flows = "0 0 $ct1 0 $ct3 0 0 $rev"
else if ($id == "3CL") then
    set PMflows = "$fwd $ct1 0 $ct3 0 $ct5 0 0"
    set PMrev_flows = "0 0 $ct1 0 $ct3 0 $ct5 $rev"
else
    echo "Error: ID should be {0CL, 1CL, 2CL, or 3CL}"
    exit
endif

# set ftp flows
set FTPflows = "$ftp 0 0 0 0 0 0 0"
set FTPrev_flows = "0 0 0 0 0 0 0 $ftp"

# trace at src, 01, 12, 34, 56, 67, dst
set trace =  "1 1 1 0 1 0 1 1 1"

# NS-2 command line
$NS parking-lot.tcl \
ID $id \
out $out \
duration $duration \
warmup $warmup \
tcptype Newreno \
queues 8 \
bw $bw \
HTTP-1.1 1 \
scheduler Heap \
pairs $pairs \
window 30 \
qlen 200 \
segsize 1460 \
PMrate "$PMflows" \
rev-PMrate "$PMrev_flows" \
flows "$FTPflows" \
rev-flows "$FTPrev_flows" \
trace "$trace" \
substream 1 \
queue-method "$queuemethod" \
delaytarget 0.010 \
avgpktsz 615 \
qib 1 \
datadir "$datadir" >&! $datadir/${fwd}cs-${ftp}FTP-$id-${duration}s.out

# post-processing
cd $datadir;  $BINDIR/process $fwd $ftp $id $duration $warmup $pairs