project BLF > class TDocumentLink > method Main


Parameters


iiSessionIdinputinteger


Internal usage


unused


program code (program1/tdocumentlink.p)

viWebdavSessionId = iiSessionId.

<M-11 run MainBlock  () in XML>

<M-71 run ReadXMLNodeValue
   (input  search('server.xml') (icXMLFile), 
    input  'webdav' (icStartTag), 
    input  'host' (icNodeTag), 
    output vcWebdavHost (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>

<M-62 run ReadXMLNodeValue
   (input  search('server.xml') (icXMLFile), 
    input  'webdav' (icStartTag), 
    input  'port' (icNodeTag), 
    output vcWebdavPort (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>

<M-46 run ReadXMLNodeValue
   (input  search('server.xml') (icXMLFile), 
    input  'webdav' (icStartTag), 
    input  'root' (icNodeTag), 
    output vcWebdavRoot (ocNodeValue), 
    output viFcReturnSuper (oiReturnStatus)) in XML>

run gipr_deleteprocedure in vhFcComponent.
delete procedure vhFcComponent.

if not vcWebdavRoot begins "/"
then vcWebdavRoot = "/" + vcWebdavRoot.

if not vcWebdavRoot matches "*/"
then vcWebdavRoot = vcWebdavRoot + "/".