| Server IP : 84.32.84.245 / Your IP : 216.73.216.135 Web Server : LiteSpeed System : Linux id-dci-web1986.main-hosting.eu 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64 User : u686484674 ( 686484674) PHP Version : 8.0.30 Disable Function : system, exec, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail MySQL : OFF | cURL : ON | WGET : ON | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /proc/./self/root/opt/go/pkg/mod/github.com/prometheus/alertmanager@v0.28.1/ui/app/src/ |
Upload File : |
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