Changeset 4297 in genesis for tools/pencontrl/pencontrl.sh

Timestamp:

Apr 14, 2005, 4:04:56 PM (20 years ago)

Author:

dirk

Message:

een nieuwe pencontrl met fetch

File:

• tools/pencontrl/pencontrl.sh (modified) (1 diff)

tools/pencontrl/pencontrl.sh

@@ -1 +1 @@
 #!/bin/sh
-dir=/usr/local/etc/
-dbdir=/var/db
-echo > /tmp/proxytest
-for i in proxy1 proxy2 proxy3
-do
-  http_proxy=http://$i.wleiden.net:3128/
-  echo $i >> /tmp/proxytest
-  wget -t 1 -T 100 -O /dev/null www.planet.nl 2>>/tmp/proxytest
-done
-awk -f $dir/awkpencontrl /tmp/proxytest | sort -r -n >$dbdir/pensequence
-awk '{print $2 " "}' $dbdir/pensequence | tr -d "\n"
+echo "" > /tmp/tmp
 
+get_fetch() {
+  http_proxy="$1:$2"
+  export http_proxy
+  test=`fetch -T 10 -o /dev/null http://www.planet.nl 2>&1`
+  if [ $? = 0 ]; then
+    echo "`echo "$test" |grep kBps | \
+    sed 's/^.*(//' | awk '{print $1}'` $1" >> /tmp/tmp
+  fi
+}
+
+get_fetch proxy1.wleiden.net 3128
+get_fetch proxy2.wleiden.net 3128
+get_fetch proxy3.wleiden.net 3128
+
+sort -nr /tmp/tmp
+