method GetDaemonDebugLevelInternal

Parameters

icDaemonName	input	character
oiDebugLevel	output	integer

Internal usage

BLF

method TDaemonUtility.GetDaemonDebugLevel

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.