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>&-