Add admin interfaceHEADmaster

1 files changed, 11 insertions, 0 deletions

diff --git a/server/server.lisp b/server/server.lisp
index 3676121..618f91e 100644
--- a/server/server.lisp
+++ b/server/server.lisp
@@ -6,6 +6,17 @@
 (defparameter *server-buffer* (make-array 10000
                                           :element-type '(unsigned-byte 8)
                                           :initial-element 0))
+;;; TODO: debug this function
+(defun send-cmd (host port game-id command arg)
+  (let ((socket (usocket:socket-connect host port :protocol :datagram))
+        (request (list :type "admin" :cmd command :game-id game-id :arg arg))
+        (buffer (make-array 500 :element-type '(unsigned-byte 8) :initial-element 0)))
+    (usocket:socket-send socket (string-downcase (to-json request)) 300)
+    (format t (babel:octets-to-string (usocket:socket-receive socket buffer 300)))
+    (force-output t)
+    (usocket:socket-close socket)))
+
+
 
 (defun handle-client (buffer) ; echo
   (declare (type (simple-array (unsigned-byte 8) *) buffer)) ; Seems to be to tell lisp which type is buffer