project BLF > class TDaemonUtility > method GetDaemonDebugLevelInternal
Parameters
icDaemonName | input | character | |
oiDebugLevel | output | integer | |
Internal usage
BLF
program code (program1/tdaemonutility.p)
vcFilename = search (caps(icDaemonName) + ".config").
if vcFilename <> ?
then do:
input stream sProcessRead from value (vcFilename).
repeat on error undo, leave:
import stream sProcessRead unformatted vcRead.
if vcRead begins "DebugLevel="
or vcRead begins "BLDebugLevel="
then oiDebugLevel = integer (entry(2,vcRead,"=")) no-error.
end.
input stream sProcessRead close.
end.