Implemented Maintainable GUI and added Settings for remaining fields

cfg/ConfigFile.txt

@@ -0,0 +1,116 @@
+use java.io.File
+declare File restBridgeFile!
+declare File directory!
+declare File adapterProgram!
+declare BBjAdmin admin!
+declare BBjJettyContextConfiguration contextConf!
+declare BBjJettyServerConfiguration serverconfig!
+declare BBjspServletConfiguration bridgeConf!
+
+user! = ""
+password! = ""
+
+if (user! = "") then
+  if (password! = "") then
+    M=MSGBOX("No Username and Password set.")
+  	bye
+  else
+    M=MSGBOX("No Username set.")
+    bye
+  endif
+else
+  if (password! = "") then
+    M=MSGBOX("No Password and Password set.")
+    bye
+  endif
+endif
+
+contextName! = "[[CONTEXTNAME]]"
+bridgeName! = "[[BRIDGENAME]]"
+configFilePath! = "[[CONFIGFILEPATH]]"
+timeOut! = "[[TIMEOUT]]"
+workingDirectory! = "[[WORKINGDIRECTORYPATH]]"
+authPgm! = "[[AUTHPROGRAMPATH]]"
+prefix! = "[[PREFIX]]"
+suffix! = "[[SUFFIX]]"
+useGetAllowedFilters! = [[USEGETALLOWEDFILTERS]]
+requestLogPath! = "[[REQUESTLOGPATH]]"
+inputHandler! = "[[INPUTHANDLER]]"
+outputHandler! = "[[OUTPUTHANDLER]]"
+adapterTerm! = "[[ADAPTERTERM]]"
+charset! = "[[CHARSET]]"
+
+admin! = BBjAPI().getAdmin(user!,password!)
+
+serverConfig! = admin!.getJettyServerConfig()
+directory! = new File(dsk("") + dir(""))
+
+REM Creating a new Context with default DocBase and a WelcomeFile
+contextConf! = serverConfig!.createCustomContext(contextName!)
+contextConf!.setDocBase("$basis_home/htdocs")
+contextConf!.addWelcomeFile("index.html")
+contextConf!.setPath("/" + contextName!)
+
+serverConfig!.saveConfig()
+
+restBridgeFile! = new File(directory!.getParentFile(),"RestBridge.bbj")
+
+bridgeConf! = contextConf!.addBBjspServlet("RestBridge",bridgeName!,restBridgeFile!.getAbsolutePath())
+bridgeConf!.setConfig(configFilePath!)
+
+adapterProgram! = new File(directory!.getParentFile(),"RestBCAdapter.bbj")
+
+REM Here you can add Parameter to your Bridge.
+if !timeOut!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_TIMEOUT",timeOut!.trim())
+endif
+
+if !workingDirectory!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_WD",workingDirectory!.trim())
+endif
+
+if !authpgm!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_AUTHPGM",authpgm!)
+endif
+
+if !prefix!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_PGM_PREFIX",prefix!)
+endif
+
+if !suffix!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_PGM_SUFFIX",suffix!)
+endif
+
+if !useGetAllowedFilter!.trim().isEmpty() then
+	bridgeConf!.addParam("USE_GET_ALLOWED_FILTER",useGetAllowedFilter!)
+endif
+
+if !requestLogPath!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_REQUESTLOG",requestLogPath!.trim())
+endif
+
+if !requestLogPath!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_REQUESTLOG",requestLogPath!.trim())
+endif
+
+if !inputHandler!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_REQUESTLOG",inputHandler!.trim())
+endif
+
+if !outputHandler!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_REQUESTLOG",outputHandler!.trim())
+endif
+
+if !adapterTerm!.trim().isEmpty() then
+	bridgeConf!.addParam("REST_ADAPTERTERM", adapterTerm!.trim())
+endif
+
+if !charset!.trim().isEmpty then
+	bridgeConf!.addParam("REST_DEFAULT_CHARSET", charset!.trim())
+endif
+
+if adapterProgram!.exists() then
+	bridgeConf!.addParam("REST_ADAPTERPGM", adapterProgram!.getAbsolutePath())
+endif
+
+serverConfig!.saveConfig()

cfg/RestBridge.arc

@@ -0,0 +1,270 @@
+//#charset: windows-1252
+
+VERSION "4.0"
+
+WINDOW 101 "REST Endpoint Configuration" 200 200 800 464
+BEGIN
+    EVENTMASK 0
+    KEYBOARDNAVIGATION
+    NOT MAXIMIZABLE
+    NAME "Window101"
+    NOT SIZABLE
+    STATICTEXT 100, "Mapping:", 375, 25, 115, 25
+    BEGIN
+        NAME "Static Text100"
+        NOT WORDWRAP
+    END
+
+    INPUTE 102, "", 500, 20, 150, 25
+    BEGIN
+        NAME "inpeMapping"
+        PADCHARACTER 32
+        NOT TABTRAVERSABLE
+        NOT DRAGENABLED
+    END
+
+    STATICTEXT 103, "Timeout:", 375, 55, 115, 25
+    BEGIN
+        NAME "Static Text103"
+        NOT WORDWRAP
+    END
+
+    INPUTN 104, "", 500, 50, 150, 25
+    BEGIN
+        GROUP
+        NAME "inpnTimeout"
+        RESTORESTRING "0"
+        NOT DRAGENABLED
+        NOT INSERTMODE
+    END
+
+    STATICTEXT 105, "Program Prefix:", 375, 85, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 106, "", 500, 80, 150, 25
+    BEGIN
+        GROUP
+        NAME "inpeProgramPrefix"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    STATICTEXT 107, "Program Suffix:", 375, 115, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 108, "", 500, 111, 150, 25
+    BEGIN
+        GROUP
+        NAME "inpeProgramSuffix"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    STATICTEXT 109, "Default Charset:", 375, 145, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    LISTEDIT 110, "", 500, 140, 150, 150
+    BEGIN
+        NAME "leDefaultCharset"
+        SELECTIONHEIGHT 25
+        NOT DRAGENABLED
+    END
+
+    STATICTEXT 111, "Adapter Term: ", 375, 175, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 112, "", 500, 170, 150, 25
+    BEGIN
+        GROUP
+        NAME "inpeAdapterTerm"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    CHECKBOX 113, "Use getAllowedFilters() if applicable", 376, 200, 200, 25
+    BEGIN
+        GROUP
+        NAME "chbUseGetAllowedFilters"
+    END
+
+    STATICTEXT 114, "Config File:", 375, 235, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 115, "", 500, 230, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeConfigFile"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 116, "...", 750, 231, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseConfigFile"
+    END
+
+    STATICTEXT 117, "Working Directory:", 375, 265, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 118, "", 500, 260, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeWorkingDirectory"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 119, "...", 750, 261, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseWorkingDirectory"
+    END
+
+    STATICTEXT 120, "Auth Program:", 375, 295, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 121, "", 500, 290, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeAuthProgram"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 122, "...", 750, 291, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseAuthenticationFile"
+    END
+
+    STATICTEXT 123, "Request Log:", 375, 325, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 124, "", 500, 320, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeRequestLog"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 125, "...", 750, 321, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseRequestLogFile"
+    END
+
+    STATICTEXT 126, "Input Handler:", 375, 355, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 127, "", 500, 350, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeInputHandler"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 128, "...", 750, 351, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseInputHandler"
+    END
+
+    STATICTEXT 129, "Output Handler:", 375, 385, 115, 25
+    BEGIN
+        NAME "Static Text105"
+        NOT WORDWRAP
+    END
+
+    INPUTE 130, "", 500, 380, 241, 25
+    BEGIN
+        GROUP
+        NAME "inpeOutputHandler"
+        PADCHARACTER 32
+        NOT DRAGENABLED
+    END
+
+    BUTTON 131, "...", 750, 381, 30, 25
+    BEGIN
+        GROUP
+        NAME "btnBrowseOutputHandler"
+    END
+
+    BUTTON 132, "Add Context", 20, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnAddContext"
+    END
+
+    BUTTON 133, "Add Endpoint", 130, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnAddBridge"
+    END
+
+    BUTTON 134, "Remove Endpoint", 240, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnRemoveBridge"
+    END
+
+    BUTTON 135, "Cancel", 460, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnCancel"
+    END
+
+    BUTTON 136, "Save", 570, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnSave"
+    END
+
+    BUTTON 137, "OK", 680, 430, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnOK"
+    END
+
+    BUTTON 138, "Preview Code", 680, 20, 100, 25
+    BEGIN
+        GROUP
+        NAME "btnPreviewCode"
+    END
+
+    TREE 139, 20, 20, 320, 385
+    BEGIN
+        NAME "treeContext"
+    END
+
+END
+