From 67ac11c2fab6f1b6ce561fcf783defca91fe8caf Mon Sep 17 00:00:00 2001
From: Roger Dingledine <arma@torproject.org>
Date: Sun, 21 Nov 2004 06:35:22 +0000
Subject: commit a short script to do lots of fetches through tor at once when
 you do 20 or so at once, things start going odd.

might be privoxy, might be tor.


svn:r2927
---
 contrib/tor-stress | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 contrib/tor-stress

(limited to 'contrib/tor-stress')

diff --git a/contrib/tor-stress b/contrib/tor-stress
new file mode 100755
index 000000000..ac82973aa
--- /dev/null
+++ b/contrib/tor-stress
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+require 'sys/syscall.ph';
+use POSIX qw(strftime);
+$|=1;
+
+$total = 1;
+
+for($i=0;$i<$total;$i++) {
+  print "Starting client $i\n";
+  $pid = fork();
+  if(!$pid) {
+    open(FD,"wget -q -O - http://www.cnn.com/|");
+    $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";
+    exit(0);
+  }
+# sleep(1);
+}
+
-- 
cgit v1.2.3