Wala shell

Advanced PHP File Manager

Server IP: 127.0.0.1 | PHP Version: 8.3.30 | Domains Hosted: 54

Name	Size	Last Modified	Actions
📁 ..	-	2025-05-25 12:27
📄 Api.elm module Silences.Api exposing (create, destroy, getSilence, getSilences) import Data.GettableSilence exposing (GettableSilence) import Data.PostableSilence exposing (PostableSilence) import Http import Json.Decode import Silences.Decoders import Utils.Api import Utils.Filter exposing (Filter, generateAPIQueryString) import Utils.Types exposing (ApiData(..)) getSilences : String -> Filter -> (ApiData (List GettableSilence) -> msg) -> Cmd msg getSilences apiUrl filter msg = let url = String.join "/" [ apiUrl, "silences" ++ generateAPIQueryString filter ] in Utils.Api.send (Utils.Api.get url (Json.Decode.list Data.GettableSilence.decoder)) \|> Cmd.map msg getSilence : String -> String -> (ApiData GettableSilence -> msg) -> Cmd msg getSilence apiUrl uuid msg = let url = String.join "/" [ apiUrl, "silence", uuid ] in Utils.Api.send (Utils.Api.get url Data.GettableSilence.decoder) \|> Cmd.map msg create : String -> PostableSilence -> Cmd (ApiData String) create apiUrl silence = let url = String.join "/" [ apiUrl, "silences" ] body = Http.jsonBody <\| Data.PostableSilence.encoder silence in -- TODO: This should return the silence, not just the ID, so that we can -- redirect to the silence show page. Utils.Api.send (Utils.Api.post url body Silences.Decoders.create) destroy : String -> GettableSilence -> (ApiData String -> msg) -> Cmd msg destroy apiUrl silence msg = -- The incorrect route using "silences" receives a 405. The route seems to -- be matching on /silences and ignoring the :sid, should be getting a 404. let url = String.join "/" [ apiUrl, "silence", silence.id ] responseDecoder = -- Silences.Encoders.silence silence Silences.Decoders.destroy in Utils.Api.send (Utils.Api.delete url responseDecoder) \|> Cmd.map msg	1.93 KB	2025-05-25 12:27
📄 Decoders.elm module Silences.Decoders exposing (create, destroy) import Json.Decode as Json import Utils.Types exposing (ApiData(..)) create : Json.Decoder String create = Json.at [ "silenceID" ] Json.string destroy : Json.Decoder String destroy = Json.at [ "status" ] Json.string	281 B	2025-05-25 12:27
📄 Types.elm module Silences.Types exposing ( nullSilence , stateToString ) import Data.Matcher exposing (Matcher) import Data.PostableSilence exposing (PostableSilence) import Data.SilenceStatus exposing (State(..)) import Time nullSilence : PostableSilence nullSilence = { id = Nothing , createdBy = "" , comment = "" , startsAt = Time.millisToPosix 0 , endsAt = Time.millisToPosix 0 , matchers = nullMatchers } nullMatchers : List Matcher nullMatchers = [ nullMatcher ] nullMatcher : Matcher nullMatcher = Matcher "" "" False (Just True) stateToString : State -> String stateToString state = case state of Active -> "active" Pending -> "pending" Expired -> "expired"	780 B	2025-05-25 12:27

Terminal