1
2
3

Exception: No remoting context available.
   at WebSharper.Web.Remoting.GetContext()
   at FsRoot.StackOverflow.Rpc.loginUser@3926.Invoke(Unit unitVar) 

1
2
3
4
5
6
7

[< Rpc >]
let loginUser (user:string) (password:string)  = 
    async {
        let ctx = Web.Remoting.GetContext()
        if checkUserPwd user password then
            do! ctx.UserSession.LoginUser user
    } 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

[< JavaScript false >]
module Server =
    open global.Owin
    open Microsoft.Owin.Hosting
    open Microsoft.Owin.StaticFiles
    open Microsoft.Owin.FileSystems
    open WebSharper.Owin
    open WebSharper.Sitelets
    open WebSharper.UI.Server
    open WebSharper.UI.Templating
    open WebSharper.UI.Html

    type EndPointServer = | [< EndPoint "/" >] EP

    let content (ctx:Context<EndPointServer>) (endpoint:EndPointServer) : Async<Content<EndPointServer>> =

        match ctx.UserSession.GetLoggedInUser() |> Async.RunSynchronously with
        | Some user ->
        (**)printfn "Serving Main page: %s" user
            Content.Page(
                TemplateLib()
                    .Initializer( Html.client <@  MainProgram.mainProgram(); Doc.TextNode "Initialized" @> )
                    .Elt(keepUnfilled = true)
            )
        | None ->
        (**)printfn "Serving Login page"
            Content.Page(
                TemplateLogin()
                    .Login(fun e -> 
                        if e.Vars.Username.Value <> "" && e.Vars.Password.Value <> "" 
                        then async {
                                do! Rpc.loginUser e.Vars.Username.Value e.Vars.Password.Value
                                JS.Window.Location.Reload()
                             } |> Async.start
                    )
                    .Doc()
            )

    [< EntryPoint >]
    let Main args =
        printfn "Usage: FSharpStation URL ROOT_DIRECTORY MaxMessageSize"
        let url           = args |> Seq.tryItem 0 |>                   Option.defaultValue "http://localhost:9005/"
        let rootDirectory = args |> Seq.tryItem 1 |>                   Option.defaultValue @"..\website"
        let max           = args |> Seq.tryItem 2 |> Option.map int |> Option.defaultValue 1_000_000
        //let epWebSocket = Endpoint.Create(url, "/ws", JsonEncoding.Readable)
        //let broker = Broker.BrokerAgent epWebSocket
        //Broker.BrokerAgent.FssWebSocketO <- Some broker
        use server = WebApp.Start(url, fun appB ->
            appB
                .UseWebSharperRemoting(rootdir)
                .UseWebSharper(WebSharperOptions(ServerRootDirectory = rootdir
                                               , Sitelet             = (Some <| Application.MultiPage content)
                                               , BinDirectory        = "."
                                               , Debug               = true))
                .UseStaticFiles(StaticFileOptions(FileSystem = PhysicalFileSystem(rootDirectory)))
                //.UseWebSocket(  epWebSocket, broker.Start, maxMessageSize = max)
            |> ignore)
        stdout.WriteLine("Listening on {0}, hit enter to finish", url)
        stdin.ReadLine() |> ignore
        0