nihilist/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2024-11-10 13:13:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

clean up tor-stress a bit, for posterity

Browse Source 
svn:r2933
This commit is contained in:
Roger Dingledine 2004-11-22 00:10:35 +00:00
parent 4f2c2c9948
commit 604be3ae44
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/tor-stress
View File

@ -1,28 +1,25 @@
#!/usr/bin/perl
require 'sys/syscall.ph';
use POSIX qw(strftime);
$|=1;
$total = 1;
$target = "http://www.cnn.com/";
for($i=0;$i<$total;$i++) {
print "Starting client $i\n";
$pid = fork();
if(!$pid) {
open(FD,"wget -q -O - http://www.cnn.com/|");
open(FD,"wget -q -O - $target|");
$c = 0;
while(<FD>) {
$c += length($_);
}
($s, $usec) = gettimeofday;
$TIMEVAL_T = "LL";
$now = pack($TIMEVAL_T, ());
syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
@now = unpack($TIMEVAL_T, $now);
# $now_string = strftime "%b %d %H:%M:%S", gmtime;
# $now_string .= $now[1]/1000;
print "Client $i exiting ($c chars: $now[1]).\n";
print "Client $i exiting ($c chars).\n";
exit(0);
}
# sleep(1);