project BLF > class TApplication > method GetLogFileLocation

Description

Parameters

Internal usage

program code (program1/tapplication.p)

assign vcFile = search ("server.xml":U)
       vhFcComponent = ?.
<M-58 run MainBlock  () in XML>

<M-67 run ReadXMLNodeValue
   (input  vcFile (icXMLFile), 
    input  'logging':U (icStartTag), 
    input  'LoggingDirectory':U (icNodeTag), 
    output ocLogFile (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>

if index(ocLogFile,"$ENVROOT") > 0
then do:
    <M-76 run ReadXMLNodeValue
       (input  vcFile (icXMLFile), 
        input  'serverConfiguration' (icStartTag), 
        input  'ENVROOT' (icNodeTag), 
        output vcFile (ocNodeValue), 
        output viFcReturnSuper (oiReturnStatus)) in XML>
    ocLogFile = replace(ocLogFile,"$ENVROOT",vcFile).
end.

run gipr_DeleteProcedure in vhFcComponent.
delete procedure vhFcComponent.

if ocLogFile <> ""
then do:
    file-info:file-name = ocLogFile.
    if file-info:file-type = ?
    or index(file-info:file-type,"D":U) = 0
    or index(file-info:file-type,"R":U) = 0
    then 
        ocLogFile = "".    /* not a valid directory with write permissions */
    else
        ocLogFile = file-info:full-pathname.
end.

if ocLogFile = ""
THEN ASSIGN ocLogFile = REPLACE (search ("server.xml":U),"server.xml":U,"TApplication.ExecuteAction.out":U).
Else ASSIGN ocLogFile = ocLogFile + "/TApplication.ExecuteAction.out":U.