Internal usage
BLF
program code (program1/componentpool.p)
subscribe procedure this-procedure to "ComponentPoolIsRunning" anywhere run-procedure "ComponentPoolIsRunning".
/* These widget pools will contain ALL dynamic objects of the business code. */
create widget-pool "non-persistent" persistent no-error.
create widget-pool "persistent" persistent no-error.
create widget-pool "queryobjects" persistent no-error.
/* ====================================================================================== */
/* Ensure that the program libraries that are located in the "lib" subdirectories */
/* are put in the propath. */
/* ====================================================================================== */
assign vcPropath = propath
vcPropath = replace(vcPropath,";":U,",":U).
if opsys = "UNIX":U
then assign vcPropath = replace(vcPropath,":":U,",":U).
do viCount = 1 to num-entries(vcPropath):
assign vcEntry = entry(viCount,vcPropath).
if vcEntry matches "*lib":U then do:
file-info:filename = vcEntry.
if file-info:file-type <> ?
and index(file-info:file-type, "D":U) > 0 then do:
input from os-dir(vcEntry).
repeat on stop undo, leave:
import vcFile vcFullFile.
if vcFullFile matches "*.pl":U and
Not can-do(vcPropath,vcFullFile)
then propath = propath + ",":U + vcFullFile.
end.
input close.
end.
end.
end.
/* start QRA */
/* cannot use QraConfig:IsEnabled before the bootstrap has been run */
if search("com/qad/qra/core/GlobalServiceLocator.r") <> ?
then run com/qad/qra/core/Bootstrap.p ("finBootstrap.xml").
else do:
/* ================================================================= */
/* Register the domain for client-principal authentication. */
/* hard-coded for now but this will change. */
/* ================================================================= */
security-policy:register-domain
("MFG":U,
"QADiSthEbesTcoMpanyiNtHewOrld":U,
"MFG/PRO Authentication":U,
"INTERNAL") no-error.
security-policy:lock-registration no-error.
end.
/* start persistence layer and database connections */
<M-24 run StartPersistenceInPool
(input ? (ihClass),
output vhFcComponent (ohPersistence),
output viReturnStatus (oiReturnStatus)) in ComponentPool>
/* start CustomizationController */
<M-1 run Main
(output viReturnStatus (oiReturnStatus)) in CustomizationController>
assign vhCustomizationController = vhFcComponent.