3 ### A simple script for capturing TrIPE sessions, for testing the Wireshark
6 ty=${1?ty} param=${2-$ty}
13 for i in alice bob; do
14 key add -eforever -a$ty -t$i -pparam-$param tripe
16 cp keyring keyring.pub
18 for i in alice bob; do
20 TRIPE_SLIPIF=/usr/bin/tripe-uslip \
21 $tripe -d. -as.$i -F -nslip -t$i -p0 <$i.in >$i.out 2>$i.err&
23 exec 3>alice.in 4<alice.out; alice_in=3 alice_out=4
24 exec 5>bob.in 6<bob.out; bob_in=5 bob_out=6
28 eval in=\$${who}_in out=\$${who}_out
30 while read tag tail; do
34 FAIL) echo >&2 "command \`$*' failed: $tail"; exit 10 ;;
43 while read tag kind rest; do
51 docmd alice watch n-tw
54 p_alice=$(docmd alice port)
55 p_bob=$(docmd bob port)
57 tshark -ilo -f"udp port $p_alice or udp port $p_bob" \
58 -w../cap.$param& shark=$!
61 docmd alice add -cork bob 127.0.0.1 $p_bob
62 c=$(docmd bob getchal)
63 docmd alice greet bob $c
64 docmd bob add alice 127.0.0.1 $p_alice
65 await alice& walice=$!
70 echo ping | tripe-uslip -p bob
71 x=$(tripe-uslip -g alice)
75 exec 3>&- 4>&- 5>&- 6>&-