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
📁 Alerts	-	2025-05-25 12:27
📁 Data	-	2025-05-25 12:27
📄 DateTime.elm module DateTime exposing (DateTime, decoder, encoder, toString) import Iso8601 import Json.Decode as Decode exposing (Decoder) import Json.Encode as Encode import Result import Time type alias DateTime = Time.Posix decoder : Decoder DateTime decoder = Decode.string \|> Decode.andThen decodeIsoString encoder : DateTime -> Encode.Value encoder = Encode.string << toString decodeIsoString : String -> Decoder DateTime decodeIsoString str = case Iso8601.toTime str of Result.Ok posix -> Decode.succeed posix Result.Err _ -> Decode.fail <\| "Invalid date: " ++ str toString : DateTime -> String toString = Iso8601.fromTime	698 B	2025-05-25 12:27
📄 Main.elm module Main exposing (main) import Browser exposing (UrlRequest(..)) import Browser.Navigation exposing (Key) import Json.Decode as Json import Parsing import Types exposing (Model, Msg(..), Route(..)) import Updates exposing (update) import Url exposing (Url) import Utils.Api as Api import Utils.DateTimePicker.Utils exposing (FirstDayOfWeek(..)) import Utils.Filter exposing (nullFilter) import Utils.Types exposing (ApiData(..)) import Views import Views.AlertList.Types exposing (initAlertList) import Views.SilenceForm.Types exposing (initSilenceForm) import Views.SilenceList.Types exposing (initSilenceList) import Views.SilenceView.Types exposing (initSilenceView) import Views.Status.Types exposing (initStatusModel) main : Program Json.Value Model Msg main = Browser.application { init = init , update = update , view = \model -> { title = "Alertmanager" , body = [ Views.view model ] } , subscriptions = always Sub.none , onUrlRequest = \request -> case request of Internal url -> NavigateToInternalUrl (Url.toString url) External url -> NavigateToExternalUrl url , onUrlChange = urlUpdate } init : Json.Value -> Url -> Key -> ( Model, Cmd Msg ) init flags url key = let route = Parsing.urlParser url filter = case route of AlertsRoute filter_ -> filter_ SilenceListRoute filter_ -> filter_ _ -> nullFilter prod = flags \|> Json.decodeValue (Json.field "production" Json.bool) \|> Result.withDefault False defaultCreator = flags \|> Json.decodeValue (Json.field "defaultCreator" Json.string) \|> Result.withDefault "" groupExpandAll = flags \|> Json.decodeValue (Json.field "groupExpandAll" Json.bool) \|> Result.withDefault False apiUrl = if prod then Api.makeApiUrl url.path else Api.makeApiUrl "http://localhost:9093/" libUrl = if prod then url.path else "/" firstDayOfWeek = flags \|> Json.decodeValue (Json.field "firstDayOfWeek" Json.string) \|> Result.withDefault "Sunday" \|> (\d -> case d of "Sunday" -> Sunday _ -> Monday ) in update (urlUpdate url) (Model (initSilenceList key) (initSilenceView key) (initSilenceForm key firstDayOfWeek) (initAlertList key groupExpandAll) route filter initStatusModel url.path apiUrl libUrl Loading Loading Loading defaultCreator groupExpandAll key { firstDayOfWeek = firstDayOfWeek } ) urlUpdate : Url -> Msg urlUpdate url = let route = Parsing.urlParser url in case route of SilenceListRoute maybeFilter -> NavigateToSilenceList maybeFilter SilenceViewRoute silenceId -> NavigateToSilenceView silenceId SilenceFormEditRoute silenceId -> NavigateToSilenceFormEdit silenceId SilenceFormNewRoute params -> NavigateToSilenceFormNew params AlertsRoute filter -> NavigateToAlerts filter StatusRoute -> NavigateToStatus SettingsRoute -> NavigateToSettings TopLevelRoute -> RedirectAlerts NotFoundRoute -> NavigateToNotFound	4.05 KB	2025-05-25 12:27
📄 Parsing.elm module Parsing exposing (urlParser) import Regex import Types exposing (Route(..)) import Url exposing (Url) import Url.Parser exposing (Parser, map, oneOf, parse, top) import Views.AlertList.Parsing exposing (alertsParser) import Views.Settings.Parsing exposing (settingsViewParser) import Views.SilenceForm.Parsing exposing (silenceFormEditParser, silenceFormNewParser) import Views.SilenceList.Parsing exposing (silenceListParser) import Views.SilenceView.Parsing exposing (silenceViewParser) import Views.Status.Parsing exposing (statusParser) urlParser : Url -> Route urlParser url = let -- Parse a query string occurring after the hash if it exists, and use -- it for routing. hashAndQuery = url.fragment \|> Maybe.map (Regex.splitAtMost 1 (Regex.fromString "\\?" \|> Maybe.withDefault Regex.never)) \|> Maybe.withDefault [] ( path, query ) = case hashAndQuery of [] -> ( "/", Nothing ) h :: [] -> ( h, Nothing ) h :: rest -> ( h, Just (String.concat rest) ) in case parse routeParser { url \| query = query, fragment = Nothing, path = path } of Just route -> route Nothing -> NotFoundRoute routeParser : Parser (Route -> a) a routeParser = oneOf [ map SilenceListRoute silenceListParser , map StatusRoute statusParser , map SettingsRoute settingsViewParser , map SilenceFormNewRoute silenceFormNewParser , map SilenceViewRoute silenceViewParser , map SilenceFormEditRoute silenceFormEditParser , map AlertsRoute alertsParser , map TopLevelRoute top ]	1.76 KB	2025-05-25 12:27
📁 Silences	-	2025-05-25 12:27
📁 Status	-	2025-05-25 12:27
📄 Types.elm module Types exposing (Model, Msg(..), Route(..)) import Browser.Navigation exposing (Key) import Utils.Filter exposing (Filter, SilenceFormGetParams) import Utils.Types exposing (ApiData) import Views.AlertList.Types as AlertList exposing (AlertListMsg) import Views.Settings.Types as SettingsView exposing (SettingsMsg) import Views.SilenceForm.Types as SilenceForm exposing (SilenceFormMsg) import Views.SilenceList.Types as SilenceList exposing (SilenceListMsg) import Views.SilenceView.Types as SilenceView exposing (SilenceViewMsg) import Views.Status.Types exposing (StatusModel, StatusMsg) type alias Model = { silenceList : SilenceList.Model , silenceView : SilenceView.Model , silenceForm : SilenceForm.Model , alertList : AlertList.Model , route : Route , filter : Filter , status : StatusModel , basePath : String , apiUrl : String , libUrl : String , bootstrapCSS : ApiData String , fontAwesomeCSS : ApiData String , elmDatepickerCSS : ApiData String , defaultCreator : String , expandAll : Bool , key : Key , settings : SettingsView.Model } type Msg = MsgForAlertList AlertListMsg \| MsgForSilenceView SilenceViewMsg \| MsgForSilenceForm SilenceFormMsg \| MsgForSilenceList SilenceListMsg \| MsgForStatus StatusMsg \| MsgForSettings SettingsMsg \| NavigateToAlerts Filter \| NavigateToNotFound \| NavigateToSilenceView String \| NavigateToSilenceFormEdit String \| NavigateToSilenceFormNew SilenceFormGetParams \| NavigateToSilenceList Filter \| NavigateToStatus \| NavigateToSettings \| NavigateToInternalUrl String \| NavigateToExternalUrl String \| RedirectAlerts \| BootstrapCSSLoaded (ApiData String) \| FontAwesomeCSSLoaded (ApiData String) \| ElmDatepickerCSSLoaded (ApiData String) \| SetDefaultCreator String \| SetGroupExpandAll Bool type Route = AlertsRoute Filter \| NotFoundRoute \| SilenceFormEditRoute String \| SilenceFormNewRoute SilenceFormGetParams \| SilenceListRoute Filter \| SilenceViewRoute String \| StatusRoute \| TopLevelRoute \| SettingsRoute	2.11 KB	2025-05-25 12:27
📄 Updates.elm module Updates exposing (update) import Browser.Navigation as Navigation import Task import Types exposing (Model, Msg(..), Route(..)) import Views.AlertList.Types exposing (AlertListMsg(..)) import Views.AlertList.Updates import Views.Settings.Updates import Views.SilenceForm.Types exposing (SilenceFormMsg(..)) import Views.SilenceForm.Updates import Views.SilenceList.Types exposing (SilenceListMsg(..)) import Views.SilenceList.Updates import Views.SilenceView.Types as SilenceViewTypes import Views.SilenceView.Updates import Views.Status.Types exposing (StatusMsg(..)) import Views.Status.Updates update : Msg -> Model -> ( Model, Cmd Msg ) update msg ({ basePath, apiUrl } as model) = case msg of NavigateToAlerts filter -> let ( alertList, cmd ) = Views.AlertList.Updates.update FetchAlerts model.alertList filter apiUrl basePath in ( { model \| alertList = alertList, route = AlertsRoute filter, filter = filter }, cmd ) NavigateToSilenceList filter -> let ( silenceList, cmd ) = Views.SilenceList.Updates.update FetchSilences model.silenceList filter basePath apiUrl in ( { model \| silenceList = silenceList, route = SilenceListRoute filter, filter = filter } , Cmd.map MsgForSilenceList cmd ) NavigateToStatus -> ( { model \| route = StatusRoute }, Task.perform identity (Task.succeed <\| MsgForStatus <\| InitStatusView apiUrl) ) NavigateToSilenceView silenceId -> let ( silenceView, cmd ) = Views.SilenceView.Updates.update (SilenceViewTypes.InitSilenceView silenceId) model.silenceView apiUrl in ( { model \| route = SilenceViewRoute silenceId, silenceView = silenceView } , Cmd.map MsgForSilenceView cmd ) NavigateToSilenceFormNew params -> ( { model \| route = SilenceFormNewRoute params } , Task.perform (NewSilenceFromMatchersAndComment model.defaultCreator >> MsgForSilenceForm) (Task.succeed params) ) NavigateToSilenceFormEdit uuid -> ( { model \| route = SilenceFormEditRoute uuid }, Task.perform identity (Task.succeed <\| (FetchSilence uuid \|> MsgForSilenceForm)) ) NavigateToNotFound -> ( { model \| route = NotFoundRoute }, Cmd.none ) NavigateToInternalUrl url -> ( model, Navigation.pushUrl model.key url ) NavigateToExternalUrl url -> ( model, Navigation.load url ) RedirectAlerts -> ( model, Navigation.pushUrl model.key (basePath ++ "#/alerts") ) NavigateToSettings -> ( { model \| route = SettingsRoute }, Cmd.none ) MsgForStatus subMsg -> Views.Status.Updates.update subMsg model MsgForAlertList subMsg -> let ( alertList, cmd ) = Views.AlertList.Updates.update subMsg model.alertList model.filter apiUrl basePath in ( { model \| alertList = alertList }, cmd ) MsgForSilenceList subMsg -> let ( silenceList, cmd ) = Views.SilenceList.Updates.update subMsg model.silenceList model.filter basePath apiUrl in ( { model \| silenceList = silenceList }, Cmd.map MsgForSilenceList cmd ) MsgForSettings subMsg -> let ( settingsView, cmd ) = Views.Settings.Updates.update subMsg model.settings in ( { model \| settings = settingsView }, cmd ) MsgForSilenceView subMsg -> let ( silenceView, cmd ) = Views.SilenceView.Updates.update subMsg model.silenceView apiUrl in ( { model \| silenceView = silenceView }, Cmd.map MsgForSilenceView cmd ) MsgForSilenceForm subMsg -> let ( silenceForm, cmd ) = Views.SilenceForm.Updates.update subMsg model.silenceForm basePath apiUrl in ( { model \| silenceForm = silenceForm }, cmd ) BootstrapCSSLoaded css -> ( { model \| bootstrapCSS = css }, Cmd.none ) FontAwesomeCSSLoaded css -> ( { model \| fontAwesomeCSS = css }, Cmd.none ) ElmDatepickerCSSLoaded css -> ( { model \| elmDatepickerCSS = css }, Cmd.none ) SetDefaultCreator name -> ( { model \| defaultCreator = name }, Cmd.none ) SetGroupExpandAll expanded -> ( { model \| expandAll = expanded }, Cmd.none )	4.61 KB	2025-05-25 12:27
📁 Utils	-	2025-05-25 12:27
📁 Views	-	2025-05-25 12:27
📄 Views.elm module Views exposing (view) import Html exposing (Html, div, node, text) import Html.Attributes exposing (class, href, rel, style) import Html.Events exposing (on) import Json.Decode exposing (succeed) import Types exposing (Model, Msg(..), Route(..)) import Utils.Filter exposing (emptySilenceFormGetParams) import Utils.Types exposing (ApiData(..)) import Utils.Views import Views.AlertList.Views as AlertList import Views.NavBar.Views exposing (navBar) import Views.NotFound.Views as NotFound import Views.Settings.Views as SettingsView import Views.SilenceForm.Views as SilenceForm import Views.SilenceList.Views as SilenceList import Views.SilenceView.Views as SilenceView import Views.Status.Views as Status view : Model -> Html Msg view model = div [] [ renderCSS model.libUrl , case ( model.bootstrapCSS, model.fontAwesomeCSS, model.elmDatepickerCSS ) of ( Success _, Success _, Success _ ) -> div [] [ navBar model.route , div [ class "container pb-4" ] [ currentView model ] ] ( Failure err, _, _ ) -> failureView model err ( _, Failure err, _ ) -> failureView model err ( _, _, Failure err ) -> failureView model err _ -> text "" ] failureView : Model -> String -> Html Msg failureView model err = div [] [ div [ style "padding" "40px", style "color" "red" ] [ text err ] , navBar model.route , div [ class "container pb-4" ] [ currentView model ] ] renderCSS : String -> Html Msg renderCSS assetsUrl = div [] [ cssNode (assetsUrl ++ "lib/bootstrap-4.0.0-alpha.6-dist/css/bootstrap.min.css") BootstrapCSSLoaded , cssNode (assetsUrl ++ "lib/font-awesome-4.7.0/css/font-awesome.min.css") FontAwesomeCSSLoaded , cssNode (assetsUrl ++ "lib/elm-datepicker/css/elm-datepicker.css") ElmDatepickerCSSLoaded ] cssNode : String -> (ApiData String -> Msg) -> Html Msg cssNode url msg = node "link" [ href url , rel "stylesheet" , on "load" (succeed (msg (Success url))) , on "error" (succeed (msg (Failure ("Failed to load CSS from: " ++ url)))) ] [] currentView : Model -> Html Msg currentView model = case model.route of SettingsRoute -> SettingsView.view model.settings \|> Html.map MsgForSettings StatusRoute -> Status.view model.status SilenceViewRoute _ -> SilenceView.view model.silenceView AlertsRoute filter -> AlertList.view model.alertList filter SilenceListRoute _ -> SilenceList.view model.silenceList SilenceFormNewRoute getParams -> SilenceForm.view Nothing getParams model.defaultCreator model.silenceForm \|> Html.map MsgForSilenceForm SilenceFormEditRoute silenceId -> SilenceForm.view (Just silenceId) emptySilenceFormGetParams "" model.silenceForm \|> Html.map MsgForSilenceForm TopLevelRoute -> Utils.Views.loading NotFoundRoute -> NotFound.view	3.15 KB	2025-05-25 12:27

Terminal