project BLF > class TDaemonUtility > method GetDaemonDebugLevelInternal


Parameters


icDaemonNameinputcharacter
oiDebugLeveloutputinteger


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.