Revert "[stoream]: pin login support, some bug fixes"

stoream-engine/src/Config/Config.fs

@@ -43,7 +43,6 @@ open FSharp.Data
 type Config =
   JsonProvider<"""
 {
-    "PIN": "294538",
     "Account": {
         "Username": "admin",
         "Password": "admin"

stoream-engine/src/Logger/Logger.fs

@@ -1,32 +1,3 @@
-(* Copyright (c) 2024 The X-Files Research Institute
- * 
- * All rights reserved.
- * 
- * Redistribution and use in source and binary forms, with or without modification,
- * are permitted provided that the following conditions are met:
- * 
- *     * Redistributions of source code must retain the above copyright notice,
- *       this list of conditions and the following disclaimer.
- *     * Redistributions in binary form must reproduce the above copyright notice,
- *       this list of conditions and the following disclaimer in the documentation
- *       and/or other materials provided with the distribution.
- *     * Neither the name of Stoream nor the names of its contributors
- *       may be used to endorse or promote products derived from this software
- *       without specific prior written permission.
- * 
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *)
-
 module Stoream.Engine.Logger.StoreamLogger
 
 open System

stoream-engine/src/Server/Server.fs

@@ -36,7 +36,6 @@ open Suave.Filters
 open Suave.Operators
 open Config
 open Account
-open PIN
 open WebUI
 open Stoream.Engine.Storage.Storage
 
@@ -69,8 +68,7 @@ type Server () =
                   (* Please add new services here. *)
                   WebUI.App
                   Account.App
-                  Storage.GetApp
-                  PIN.App ])
+                  Storage.GetApp ])
         POST
         >=> fun context ->
           context

stoream-engine/stoream-engine.fsproj

@@ -23,7 +23,6 @@
         <Compile Include="src/Config/Config.fs" />
         <Compile Include="src/API/API.fs" />
         <Compile Include="src/API/Response.fs" />
-        <Compile Include="src/PIN/PIN.fs" />
         <Compile Include="src/Account/Account.fs" />
         <Compile Include="src/WebUI/WebUI.fs" />
         <Compile Include="src/Storage/Secure.fs" />

stoream-engine/stoream-engine.json

@@ -1,5 +1,4 @@
 {
-    "PIN": "294538",
     "Account": {
         "Username": "admin",
         "Password": "21232f297a57a5a743894a0e4a801fc3"

stoream-webui/src/model/Request.res

@@ -83,9 +83,10 @@ module Directory = {
 
 module File = {
   let cat = async (file: File.t): Fetch.Blob.t => {
-    await Fetch.fetch(`/cat?path=${file.filepath}`, {mode: #cors})->Promise.then(
-      Fetch.Response.blob,
-    )
+    await Fetch.fetch(
+      `/cat?path=${file.filepath}`,
+      {mode: #cors},
+    )->Promise.then(Fetch.Response.blob)
   }
 
   let upload = async (filename: string, directory: string, filevalue: Fetch.FormData.t) => {
@@ -150,30 +151,11 @@ module User = {
             status => {
               switch status {
               | "OK" => ()
-              | _ => Js.Exn.raiseError("Wrong username or password")
+              | _ => failwith("Wrong username or password")
               }
             }
           )
         })
     )
   }
 }
-
-module Pin = {
-  let request = async (pin: Pin.t): unit => {
-    await Fetch.fetch(`${Config.config.engine}/pin?value=${pin}`, {mode: #cors})
-    ->Promise.then(Fetch.Response.json)
-    ->Promise.thenResolve(response => {
-      response
-      ->Response.parseStatus
-      ->(
-        status => {
-          switch status {
-          | "OK" => ()
-          | _ => Js.Exn.raiseError("Wrong PIN code")
-          }
-        }
-      )
-    })
-  }
-}