#!/bin/sh

export DATE="18.10.2009";SCRIPT=${0#/rom}
export TITLE="Netperf : Mesure du débit"
. ${SCRIPT%/*}/cgi-bin-pre.sh

cat<<EOF
<H1>Netperf&nbsp;: Mesure du d&eacute;bit</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
params=${QUERY_STRING%%[^%&=+-:@-_a-z~]*}
params=${params##*server_ip=}
server_ip=${params%%&*}
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>D&eacute;bit en upload&nbsp;:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>Depuis&nbsp;:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>Vers&nbsp;:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>Taille des messages&nbsp;:</TD>
<TD>$size_up octets</TD>
</TR>
<TR>
<TD>Dur&eacute;e
du test&nbsp;:</TD>
<TD>$time_up sec.</TD>
</TR>
<TR>
<TD>D&eacute;bit net mesur&eacute;&nbsp;:</TD>
<TD><B>$bw_up Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>D&eacute;bit en download&nbsp;:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>Depuis&nbsp;:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>Vers&nbsp;:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>Taille des messages&nbsp;:</TD>
<TD>$size_down octets</TD>
</TR>
<TR>
<TD>Dur&eacute;e
du test&nbsp;:</TD>
<TD>$time_down sec.</TD>
</TR>
<TR>
<TD>D&eacute;bit net mesur&eacute;&nbsp;:</TD>
<TD><B>$bw_down Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2"><HR></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Autre mesure&nbsp;:</H2>
EOF

else

cat<<EOF
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Lien &agrave; mesurer&nbsp;:</H2>
EOF

fi

cat<<EOF
</TD>
</TR>
<TR
TITLE="Entrez l'adresse IP du serveur Netperf &agrave; l'autre extr&eacute;mit&eacute; du lien à mesurer">
<TD>Avec l'h&ocirc;te&nbsp;:</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="Appliquer">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Annuler le test." TYPE="SUBMIT" VALUE="Annuler"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
<P><B>Note</B>:
Cette page sert &agrave; mesurer le d&eacute;bit net d'un flux TCP entre
le pr&eacute;sent appareil et un autre dont l'adresse IP est sp&eacute;cifi&eacute;e
dans le champ &quot;Avec l'h&ocirc;te&quot;. Cette adresse IP doit &ecirc;tre
celle d'une machine sur laquelle Netperf tourne en mode serveur. Le test
dure 10 secondes environ avant d'afficher le r&eacute;sultat.</P>
</FORM>
EOF

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