trying deploy script

.github/workflows/tests.yaml

@@ -32,4 +32,21 @@ jobs:
     - name: "test"
       run: caps --ci
 
-    - run: cr --emit-ir -1
+    - run: cr --emit-js -1
+
+    - run: mkdir -p dist-server && cp -r {package.json,main.mjs,js-out,yarn.lock} dist-server/
+
+    - name: Upload server script
+      id: deploy-server
+      uses: Pendect/[email protected]
+      env:
+        DEPLOY_KEY: ${{secrets.rsync_private_key}}
+      with:
+        flags: '-avzr --progress'
+        options: ''
+        ssh_options: ''
+        src: 'dist-server/*'
+        dest: '[email protected]:/servers/cos-up/'
+
+    - name: Display status from deploy
+      run: echo "${{ steps.deploy-server.outputs.status }}"

compact.cirru

@@ -45,6 +45,7 @@
             defn main! ()
               println "\"COS get" $ .-getAuthorization COS
               skir/create-server! on-request! $ {}
+                :port $ js/parseInt (get-env "\"PORT" "\"4000")
         |on-request! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn on-request! (req-data res)
@@ -68,7 +69,7 @@
                             = (:user body) (:user secrets)
                             = (:pass body) (:pass-md5 secrets)
                           handle-token (:bucket secrets) (:app-id secrets) (:secret secrets) (:file-key body) cb
-                          {} (:code 403) (:message "\"Not user")
+                          cb $ {} (:code 403) (:message "\"Not user")
                             :headers $ {}
                             :body $ {} (:message "\"not open for all users...")
                 if