diff options
Diffstat (limited to 'server/server.lisp')
| -rw-r--r-- | server/server.lisp | 11 |
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 |