#!/usr/bin/perl $|++; print "HTTP/1.0 200 OK\r\n" if $0 =~ /nph-/; print < Testing streaming of content (with scripting)
If most of the tests below succeed then it is likely streaming of content works fine. If they fail then either the webserver, a proxy between you and the webserver or your browser is having problems with streams (and sometimes scripts embedded inside streams). If the difference in any failed tests is only a second then it is more likely that your internet connection to the server is slow.

EOF for(0..5) { print < d = new Date(); if((start + ($_ * 5)) == df(d.getTime()) || (start + 1 + ($_ * 5)) == df(d.getTime())) { document.write("OK"); ok++; }else{ document.write("Failed: " + (start + ($_ * 5)) + " != " + df(d.getTime())); }
EOF sleep 5 if $_ < 5; } print < if(ok >= 4) { document.write(ok + " out of 6 tests were OK, looks like streaming is working"); }else{ document.write("Less than 4 tests were successful. You probably have a problem with streaming of content (or a slow internet connection)"); }
End of test.
EOF