banderdyn

Subversion Repositories:
[/] [banderdyn.cgi] - Rev 1 Go to most recent revision
Compare with Previous - Blame - Download
#!/usr/bin/perl
#
##############################################
# BanderDyn
##############################################
# Simple script for measuring download
# speed, with some dynamical ability
# to end up as soon as 10s are crossed.
#
# It's time precision is 1s - 
# we only relay on system time ability
# and are not using require 'sys/syscall.ph';
# http://www.perldoc.com/perl5.8.0/pod/perlfaq8.html
#
# Bander, maintenance: Adam Pribyl, covex@ahoj.fsik.cvut.cz
# Dyn: Petr Simandl, www.simandl.cz
###############################################

print "Content-type: text/html\n\n";

print "<HTML><HEAD><META HTTP-EQUIV=Pragma CONTENT=no-cache></HEAD><BODY>\n"; # nocache!

$kb = 1024;
@nkbp = (10,20,70,150,300,218);
$nkb = 0;
$lnkbp = $#nkbp;

@pism = ("aa","bb","cc","dd","ee","ff");

$svrtimeout = 30;       # httpd server timeout in seconds

$testtime = 10;         # maximum test time

$lospd = $nkbp[0]/$svrtimeout;

#print "<CENTER>\n";
printf "If no speed information is given then either your connection is too slow (< %1.2f kiB/s) or you are experiencing signal dropouts. <br>\n", $lospd;

print "Sending";

    
$tm2 = $tm1 = time;

for ($ii = 0; $ii <= $lnkbp; $ii++)   {
    if ( ($tm2-$tm1) < $testtime )
    {
    for ($f = 1; $f <= $nkbp[$ii]; $f++) {
        print "<!--";
        for ($g = 1; $g <= ($kb/2-5) ; $g++) { print "$pism[$ii]"; }
        print "-->. \n";
    }
    $tm2 = time;
    $nkb = $nkb + $nkbp[$ii];
    print "$nkb"."kiB";
    }
}

print "<br>\n";

$adresa   = "$ENV{'REMOTE_ADDR'}";
$server   = "$ENV{'SERVER_NAME'}";

print "\n<P>";
$time = ($tm2-$tm1);
printf "Sent $nkb kiB from $server to $adresa in $time seconds<br>\n";
print "Approximate download bandwidth speed of your connection is: ";
# to not divide accidentaly by zero we accept inacurrancy of 0.001s
$speed = $nkb*$kb/($time+0.001);
$speedkb = $speed/$kb;
$speedkbps = 8*$speed/$kb;
printf "%.2f B/s = %.2f kiB/s = %.2f kib/s\n", $speed, $speedkb, $speedkbps;
$date = `date`;
print "<BR>$date\n<BR>";
print "<A HREF=\"http://bbs.cvut.cz/~covex/czfree/index.html\#bander\">BanderDyn speed test</A>\n";

#print "</CENTER>\n";
print "</BODY></HTML>";