Parameters
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 + "/".