From 64a3fe249cbf13a573f19478b303f75552b243c3 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Fri, 4 Mar 2011 08:06:03 +0100
Subject: [PATCH] m2ua: Add some code that is able to send simple M2UA packages

---
 contrib/m2ua.st | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 contrib/m2ua.st

diff --git a/contrib/m2ua.st b/contrib/m2ua.st
new file mode 100644
index 0000000..2a70f32
--- /dev/null
+++ b/contrib/m2ua.st
@@ -0,0 +1,19 @@
+Eval [
+    | msg dt socket dgram |
+
+    PackageLoader fileInPackage: #Sockets.
+    PackageLoader fileInPackage: #OsmoNetwork.
+    msg := Osmo.M2UAMSG fromClass: Osmo.M2UAConstants clsMAUP type: Osmo.M2UAConstants maupData.
+    msg addTag: (Osmo.M2UATag initWith: Osmo.M2UAConstants tagIdentText data: 'm2ua' asByteArray).
+    msg addTag: (Osmo.M2UATag initWith: Osmo.M2UAConstants tagData data: #(0 0 0 0 0 0 0 0 0 0) asByteArray).
+    dt := msg toMessage asByteArray.
+
+    dt inspect.
+
+    socket := Sockets.DatagramSocket new.
+    dgram := Sockets.Datagram data: dt.
+    dgram port: 5001.
+    dgram address: Sockets.SocketAddress loopbackHost.
+
+    socket nextPut: dgram.
+]