Sub Process_Globals
Public Server As Server
Public Config As Map
Public Element As Element
Public Controllers As List
Public SimpleResponse As SimpleResponse
Public DBConnector As DatabaseConnector
Public PRINT_FULL_REQUEST_URL As Boolean
Public SESSIONS_ENABLED As Boolean
Public COOKIES_ENABLED As Boolean
Public COOKIES_EXPIRATION As Long
Public Const VERSION As String = "2.06"
'Public Const PREFIX As String = "WebAPI_v2_" ' use for cookies and sessions
End Sub
' <link>Open in browser|http://localhost:19800/web</link>
Sub AppStart (Args() As String)
Server.Initialize("")
Config.Initialize
SimpleResponse.Initialize
' Read environment settings
If Not(File.Exists(File.DirApp, "config.ini")) Then
File.Copy(File.DirAssets, "config.example", File.DirApp, "config.ini")
End If
Config = WebApiUtils.ReadMapFile(File.DirApp, "config.ini")
Config.Put("VERSION", VERSION)
'Config.Put("PREFIX", PREFIX)
Dim sv As ServerConfiguration
sv.Initialize
sv.EnableCORS = True
sv.StaticFilesFolder = File.Combine(File.DirApp, "www")
sv.Update
sv.ShowWelcomeText
Dim db As DatabaseConfiguration
db.Initialize
db.ConfigureDatabase
Server.Start
' Show Controllers in Documentation
Controllers.Initialize
Controllers.Add("CategoriesController")
Controllers.Add("ProductsController")
Controllers.Add("FindController")
PRINT_FULL_REQUEST_URL = True
StartMessageLoop
End Sub
