#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#AdditionalJar: mysql-connector-j-8.1.0.jar
#End Region
Sub Process_Globals
Public srvr As Server
Public pool As ConnectionPool
Private fs As FirebaseServer
End Sub
Sub AppStart (Args() As String)
pool.Initialize("com.mysql.jdbc.Driver","jdbc:mysql://127.0.0.1/sistemacloud?Encoding=utf8","user","pass")
srvr.Initialize("srvr")
srvr.Port = 51042
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.AddWebSocket("/login", "login")
srvr.AddWebSocket("/Dashboard", "Dashboard")
srvr.AddFilter("/b4j_ws.js", "SessionCreator", False)
ConfigureSSL(51044)
srvr.Start
fs.Initialize("fs", File.OpenInput(File.DirAssets, "sistema-prestamos-cloud-firebase-adminsdk-j5vcp-6e3a8c3bed.json"))
'fs.VerifyToken("AIzaSyBElE2gscykbUfTYKwQ7Omt5q-2cF18odc")
StartMessageLoop
'open browser and navigate to: http://127.0.0.1:51042/
End Sub
'Sub fs_TokenVerified (TokenId As String, Success As Boolean, Token As FirebaseToken)
' If Success Then
' Log(Token.DisplayName)
' Log(Token.Email)
' Log(Token.Uid)
' End If
'End Sub
Sub verifytoken(token As String)
fs.VerifyToken(token)
End Sub
Sub fs_TokenVerified (TokenId As String, Success As Boolean, Token As FirebaseToken)
If Success Then
Log("User verified:")
Log("Display Name: " & Token.DisplayName)
Log("Email: " & Token.Email)
Log("User ID: " & Token.Uid)
Else
Log("Token verification failed")
End If
End Sub
Private Sub ConfigureSSL (SslPort As Int)
'example of SSL connector configuration
Dim ssl As SslConfiguration
ssl.Initialize
ssl.SetKeyStorePath(File.DirApp, "localhost.jks") 'path to keystore file
ssl.KeyStorePassword = "xxxxxx"
ssl.KeyManagerPassword = "xxxxxxx"
srvr.SetSslConfiguration(ssl, SslPort)
'add filter to redirect all traffic from http to https (optional)
srvr.AddFilter("/*", "HttpsFilter", False)
End Sub
public Sub ValidarUsuario(ws As WebSocket, lblusernamemain As JQueryElement)
Try
If ws.Session.GetAttribute("id_usuario") = Null Or 0 = ws.Session.GetAttribute("id_usuario") Then
ws.Eval("document.location.replace('login.html')",Null)
Else
lblusernamemain.SetHtml(ws.Session.GetAttribute("nombre"))
End If
Catch
Log(LastException)
End Try
End Sub
