Update hello-world-server to accept octet vector

Author: jgodbou

hello-world-server.asd

@@ -5,8 +5,7 @@
   :description      "CL-protobuf Hello World Server"
   :long-description "CL-protobuf Hello World Server"
   :defsystem-depends-on (:cl-protobufs)
-  :depends-on (:hunchentoot :flexi-streams
-               :cl-base64 :protobuf-utilities)
+  :depends-on (:hunchentoot)
   :components
   ((:module "src"
     :serial t

hello-world-server.lisp

@@ -4,8 +4,7 @@
   (:export #:start-server
            #:stop-server)
   (:local-nicknames
-   (#:hwp #:cl-protobufs.hello-world)
-   (#:pu #:protobuf-utilities)))
+   (#:hwp #:cl-protobufs.hello-world)))
 
 (in-package :hello-world-server)
 
@@ -17,14 +16,19 @@
 
 (setf *acceptor* nil)
 
-(define-easy-handler (hello-world :uri "/hello")
-    ((request :parameter-type 'string))
-  (pu:with-deserialized-protos-serializing-return ((request . hwp:request))
-    (hwp:make-response
-     :response
-     (if (hwp:request.has-name request)
-         (format nil "Hello ~a" (hwp:request.name request))
-         "Hello"))))
+(define-easy-handler (hello-world :uri "/hello") ()
+  (setf (hunchentoot:content-type*) "application/octet-stream")
+  (let* ((post-request (raw-post-data))
+         (request (if post-request
+                      (cl-protobufs:deserialize-from-bytes
+                       'hwp:request post-request)
+                      (hwp:make-request)))
+         (response (hwp:make-response
+                    :response
+                    (if (hwp:request.has-name request)
+                        (format nil "Hello ~a" (hwp:request.name request))
+                        "Hello"))))
+    (cl-protobufs:serialize-to-bytes response)))
 
 (defun stop-server ()
   (when *acceptor*