🎉 Add basic code for svg parsing to clj data structure.

Usage example:

curl -X POST http://localhost:6060/api/svg -H "content-type: image/svg+xml" -d "@example2.svg" |jq

backend/src/app/http.clj

@@ -37,6 +37,8 @@
                           [middleware/keyword-params]
                           [middleware/cookies]]}
 
+     ["/svg" {:post handlers/parse-svg}]
+
      ["/oauth"
       ["/google" {:post google/auth}]
       ["/google/callback" {:get google/callback}]
@@ -46,12 +48,9 @@
      ["/echo" {:get handlers/echo-handler
                :post handlers/echo-handler}]
 
-     ["/login" {:handler auth/login-handler
+     ["/login" {:post auth/login-handler}]
-                :method :post}]
+     ["/logout" {:post auth/logout-handler}]
-     ["/logout" {:handler auth/logout-handler
+     ["/login-ldap" {:post ldap/auth}]
-                 :method :post}]
-     ["/login-ldap" {:handler ldap/auth
-                     :method :post}]
 
      ["/w" {:middleware [session/middleware]}
       ["/query/:type" {:get handlers/query-handler}]

backend/src/app/http/handlers.clj

@@ -15,7 +15,8 @@
    [app.http.session :as session]
    [app.services.init]
    [app.services.mutations :as sm]
-   [app.services.queries :as sq]))
+   [app.services.queries :as sq]
+   [app.services.svgparse :as svgp]))
 
 (def unauthorized-services
   #{:create-demo-profile
@@ -74,3 +75,12 @@
           :cookies (:cookies req)
           :headers (:headers req)}})
 
+
+(defn parse-svg
+  [{:keys [headers body] :as request}]
+  (when (not= "image/svg+xml" (get headers "content-type"))
+    (ex/raise :type :validation
+              :code :unsupported-mime-type
+              :mime (get headers "content-type")))
+  {:status 200
+   :body (svgp/parse body)})

backend/src/app/services/svgparse.clj

@@ -0,0 +1,37 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; This Source Code Form is "Incompatible With Secondary Licenses", as
+;; defined by the Mozilla Public License, v. 2.0.
+;;
+;; Copyright (c) 2020 UXBOX Labs SL
+
+(ns app.services.svgparse
+  (:require
+   [app.common.exceptions :as ex]
+   [clojure.xml :as xml]
+   [clojure.java.shell :as shell]
+   [clojure.java.io :as io])
+  (:import
+   java.io.InputStream
+   org.apache.commons.io.IOUtils))
+
+(defn- string->input-stream
+  [^String data]
+  (IOUtils/toInputStream data "UTF-8"))
+
+(defn- clean-svg
+  [^InputStream input]
+  (let [result (shell/sh "svgcleaner" "-c" "-" :in input :out-enc :bytes)]
+    (when (not= 0 (:exit result))
+      (ex/raise :type :validation
+                :code :unable-to-optimize
+                :hint (:err result)))
+    (io/input-stream (:out result))))
+
+(defn parse
+  [^InputStream input]
+  (with-open [istream (io/input-stream input)]
+    (-> (clean-svg istream)
+        (xml/parse))))