//use WebGlobalFunctions.nui // WafGetHtmlFormValue and WafGetQueryString functions
Use Base.nui // Item_Property command, Various macros (FOR_EX...), cArray, cSet and cStack classes (No User Interface)
Use WebBrowser.nui // oWebBrowserInfo object

#IFDEF IS$WebApp
object oWafWebBusinessProcess is a cWebBusinessProcess
end_object
#ENDIF

// Get a value from a submitted form
function WafGetHtmlFormValue global string lsName returns string
  string lsValue
  #IFDEF IS$WebApp
    get DoGetHtmlFormValue of oWafWebBusinessProcess lsName to lsValue
  #ENDIF
  function_return lsValue
end_function

// Get a value from the URL request query string
function WafGetQueryString global string lsVarName returns string
  string lsValue
#IFDEF IS$WebApp
  get HtmlQueryString of ghInetSession lsVarName to lsValue
#ENDIF
  function_return lsValue
end_function

enumeration_list
  define WACFG_ASP_FILE //
  define WACFG_ALLOW_VIEW_SOURCE
end_enumeration_list

desktop_section
  object oWafConfig is a cArray
  end_object
end_desktop_section

procedure set waf_config_value integer liItem string lsValue
  set value of oWafConfig item liItem to lsValue
end_function

function waf_config_value integer liItem returns string
  function_return (value(oWafConfig(self),liItem))
end_function

set waf_config_value WACFG_ASP_FILE to "missing-asp-file-setting.asp"
set waf_config_value WACFG_ALLOW_VIEW_SOURCE to TRUE

// Global holding the object ID of a submitted form (or 0 if none was submitted)
integer ghFormSubmitted