Asset request with query & uri

Author: MarcoDaniels

infrastructure/lambda/AssetRequest.elm

@@ -4,11 +4,31 @@ import CloudWorker exposing (originRequest, toCloudWorker, toRequest)
 
 
 
--- TODO: implement
+-- TODO: access -> get it as flags?
+
+
+access =
+    { token = "TODO:TOKEN", assetURL = "TODO:URI" }
 
 
 main : Program () CloudWorker.Model CloudWorker.Msg
 main =
     originRequest
-        (\request -> request |> toRequest)
+        (\request ->
+            let
+                queryString =
+                    "token="
+                        ++ access.token
+                        ++ "&src="
+                        ++ access.assetURL
+                        ++ String.replace "image/api" "storage/uploads" request.uri
+                        ++ "&"
+                        ++ Maybe.withDefault "" request.querystring
+            in
+            { request
+                | uri = "/api/cockpit/image"
+                , querystring = Just queryString
+            }
+                |> toRequest
+        )
         |> toCloudWorker

tests/OriginRequest.json

@@ -52,8 +52,8 @@
               "region": "us-east-1"
             }
           },
-          "querystring": "",
-          "uri": "/"
+          "querystring": "width=100&q=60",
+          "uri": "/image/api/myAsset.png"
         }
       }
     }