#!/bin/sh

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

cat<<EOF
<H1>Netperf: Bandbreiten-Messung</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>Upload-Bandbreite:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>Von:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>Zu:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>Packet-Gr&ouml;&szlig;e:</TD>
<TD>$size_up Bytes</TD>
</TR>
<TR>
<TD>Testdauer:</TD>
<TD>$time_up Sekunden</TD>
</TR>
<TR>
<TD>Netto-Bandbreite gemessen:</TD>
<TD><B>$bw_up Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Download-Bandbreite:</H2>
<H2></H2></TD>
</TR>
<TR>
<TD>Von:</TD>
<TD>$server</TD>
</TR>
<TR>
<TD>Zu:</TD>
<TD>$client</TD>
</TR>
<TR>
<TD>Packet-Gr&ouml;&szlig;e:</TD>
<TD>$size_down Bytes</TD>
</TR>
<TR>
<TD>Testdauer:</TD>
<TD>$time_down Sekunden</TD>
</TR>
<TR>
<TD>Netto-Bandbreite gemessen:</TD>
<TD><B>$bw_down Mbit/sec</B></TD>
</TR>
<TR>
<TD COLSPAN="2"><HR></TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Gemessener Link:</H2>
EOF

else

cat<<EOF
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<H2>Mess-Verbindung:</H2>
EOF

fi

cat<<EOF
</TD>
</TR>
<TR
TITLE="Gib die IP-Adresse des Netperf-Server ein, zu dem eine Bandbreiten-Messung ausgeführt werden soll.">
<TD>Gegenstation:</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="Übernehmen">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Den Test abbrechen" TYPE="SUBMIT" VALUE="Abbrechen"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>
<P><B>Anmerkung</B>: Diese Seite erm&ouml;glicht die
Messung der Bandbreite zwischen diesem Router und einer Gegenstation. Die
IP-Adresse muss unter &quot;Gegenstation&quot; eingegegen werden. Auf der
Gegenstation muss ebenfalls ein Netperf-Dienstprogramm eingerichtet sein.
Der Test dauert ca. 10 Sekunden, danach wird das Ergebnis angezeigt.</P>
</FORM>
EOF

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