Hi, lekkie
I'm sending you a script with a web server, a cache server and a router that
connects them with the point of entrance for 30 (=clients_num) clients.
In surveying the http (actually is tcp) traffic, you can calculate
bandwidth (be careful about the difference between B and throughput), delay,
jitter, number of dropped packets (important), etc.
Best of luck!
set ns [new Simulator]
set nf [open tcpweb.nam w]
$ns namtrace-all $nf
set allchan [open all.tr.tcp w]
$ns trace-all $allchan
proc finish {} {
global ns nf allchan
$ns flush-trace
close $nf
close $allchan
exec nam tcpweb.nam &
exit 0}
set clients_num 30
for {set i 1} {$i <= $clients_num} {incr i} {
set peer($i) [$ns node]
}
set jurancon [$ns node]
set lrmon3 [$ns node]
set lmcrt0 [$ns node]
set lmcrt1 [$ns node]
set jacob2 [$ns node]
#legarea nodurilor si a serverelor de fisiere
for {set i 1} {$i <= $clients_num} {incr i} {
$ns duplex-link $peer($i) $jurancon .5Mb 30ms DropTail
}
$ns duplex-link $jurancon $lrmon3 .5Mb 30ms DropTail
$ns duplex-link $lrmon3 $lmcrt0 .5Mb 30ms DropTail
$ns duplex-link $lrmon3 $lmcrt1 .5Mb 30ms DropTail
$ns duplex-link $lmcrt0 $jacob2 .5Mb 30ms DropTail
$ns duplex-link $lmcrt0 $lmcrt1 .5Mb 30ms DropTail
set server [new Http/Server $ns $jacob2]
for {set i 1} {$i <= $clients_num} {incr i} {
set client($i) [new Http/Client $ns $peer($i)]
}
set cache [new Http/Cache $ns $lmcrt1]
# Create page pool as a central page generator. Use PagePool/Math
set pgp [new PagePool/Math]
set tmp [new RandomVariable/Constant]
$tmp set val_ 4096 ## average page size;
$pgp ranvar-size $tmp
set tmp [new RandomVariable/Exponential]
$tmp set avg_ 6 ## average page age;
$pgp ranvar-age $tmp
$server set-page-generator $pgp
set tmp [new RandomVariable/Exponential]
$tmp set avg_ 0.5 ## average request interval;
for {set i 1} {$i <= $clients_num} {incr i} {
$client($i) set-interval-generator $tmp
$client($i) set-page-generator $pgp
}
# Schedule events
set startTime 1
set finishTime 9
$ns at $startTime "start-connection"
$ns at $finishTime "finish"
$ns at 10 "finish2"
proc start-connection {} {
global ns server cache client clients_num
for {set i 1} {$i <= $clients_num} {incr i} {
$client($i) connect $cache
$cache connect $server
$client($i) start-session $cache $server}
}
proc finish2 {} {
global ns log
$ns flush-trace
flush $log
close $log}
$ns run
lekkie omotayo <[EMAIL PROTECTED]> wrote:
Hi guys,
I was just wondering if I can get an HTTP traffic application simulator
(like packmime) but that can send can allow one web server to server
multiple clients. Presently, packmime do not support this, it only allows a
one-to-one client/server config.
Any suggestion will be appreciated. Also, when analysin http traffic, what
are the permance metrics to watch out for, apart from bandwidth consumption
and latency?
Lekkie.
---------------------------------
Get your email and more, right on the new Yahoo.com
