diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-08 10:06:52 +0100 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-08 10:06:52 +0100 |
commit | e15fa4cafeebc1298c81e78116f3e33f47ab86e2 (patch) | |
tree | a9a1ac8e4318d80f1f302f3ce8c502d25ccd09e7 | |
parent | 8fa8e584dd392993226bded66d892ab2d795e4f0 (diff) |
contrib: Add smalltalk script to send send UDP messages
These messages are a SLTM and a TRA message that we want
to test on the udt relay receiver. The speciality is the header.
-rw-r--r-- | contrib/TestSender.st | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/contrib/TestSender.st b/contrib/TestSender.st new file mode 100644 index 0000000..c059dae --- /dev/null +++ b/contrib/TestSender.st @@ -0,0 +1,25 @@ +PackageLoader fileInPackage: 'Sockets'. + +Eval [ + | msg socket datagram addr | + + addr := Sockets.SocketAddress byName: '127.0.0.1'. + socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000. + datagram := Sockets.Datagram new. + datagram port: 1313. + datagram address: addr. + + "SLTM" + msg := #(2 0 0 1 0 0 0 0 0 0 0 + 15 193 232 197 7 0 17 + 128 247 248 249 250 251 + 252 253 254 ) asByteArray. + + datagram data: msg. + socket nextPut: datagram. + + "TRA" + msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray. + datagram data: msg. + socket nextPut: datagram. +] |