#!/bin/sh

export DATE="18.11.2006";SCRIPT=${0#/rom}
export TITLE="Netperf:
Bandwidth Measurement"
. ${SCRIPT%/*}/cgi-bin-pre.sh

cat<<EOF
<H1>Netperf:
Bandwidth Measurement</H1>
<FORM ACTION="cgi-bin-netperf.html" METHOD="POST">
<TABLE CLASS="shadow0" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow1" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow2" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE BORDER="1" CELLPADDING="1" CELLSPACING="0" CLASS="form"
RULES="rows" WIDTH="448">
<TR>
<TD>
EOF

if [ "$REQUEST_METHOD" = "POST" ]; then
read QUERY_STRING
fi
if [ -n "$QUERY_STRING" ]; then
IFS=\&;set ${QUERY_STRING%%[^%&=+-:@-_a-z~]*};unset IFS;eval $*
fi
if [ -n "$server_ip" ]; then
client_ip=$(ip route get $server_ip | grep $server_ip | sed 's/.*src //')
client_name=$(nslookup $client_ip | grep Name: | sed 's/Name:[ ]*//')
if [ -n "$client_name" ]; then
client="$client_ip ($client_name)"
else
client="$client_ip"
fi
server_name=$(nslookup $server_ip | grep Name: | sed 's/Name:[ ]*//')
if [ -n "$server_name" ]; then
server="$server_ip ($server_name)"
else
server="$server_ip"
fi
set `netperf -H $server_ip -t TCP_STREAM -l 5 | grep "^ [0-9]"`
size_up=$(echo $3)
time_up=$(echo $4)
bw_up=$(echo $5)
set `netperf -H $server_ip -t TCP_MAERTS -l 5 | grep "^ [0-9]"`
size_down=$(echo $3)
time_down=$(echo $4)
bw_down=$(echo $5)

cat<<EOF
</TD>
<TD></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Upload
Bandwidth:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>From:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>To:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>Message
size:</TD>
<TD>$size_up bytes</TD>
</TR>
<TR>
<TD>Test duration:</TD>
<TD>$time_up seconds</TD>
</TR>
<TR>
<TD>Net
bandwidth measured:</TD>
<TD><B>$bw_up Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Download
Bandwidth:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>From:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>To:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>Message
size:</TD>
<TD>$size_down bytes</TD>
</TR>
<TR>
<TD>Test duration:</TD>
<TD>$time_down seconds</TD>
</TR>
<TR>
<TD>Net
bandwidth measured:</TD>
<TD><B>$bw_down Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2"><HR></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Measured
Link:</H2>
EOF

else

cat<<EOF
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Link to be
measured:</H2>
EOF

fi

cat<<EOF
</TD>
</TR>
<TR
TITLE="Enter the Netperf server IP address at the other end of the link to be measured.">
<TD>With this
host:</TD>
<TD><INPUT NAME="server_ip" SIZE="15" STYLE="width: 100%;" TYPE="TEXT" VALUE="$server_ip"></TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN="2"><INPUT NAME="post_netperf" TYPE="SUBMIT" VALUE="Apply">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancel the test." TYPE="SUBMIT" VALUE="Cancel"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
<P><B>Note</B>:
This page allows to measure the net bandwidth of a TCP flow between this
router and another one whose IP address is indicated in the &quot;With
this host&quot; field. This IP address must be the address of a Netperf
server. The test needs about 10 seconds before displaying the result.</P>
</FORM>
EOF

. ${SCRIPT%/*}/cgi-bin-post.sh