Metropoli BBS
VIEWER: dtdoc.ilf MODE: TEXT (ASCII)
; @Version 1.03
; @SyntaxVersion 1.00
; "CoPyRiGhT=(c) 1994 Novell, Inc.  All Rights Reserved."
; VeRsIoN=1.03
 
 
@FileSet
 
; If DOC Database selected, copy to target location.
; do this LAST because of its size
 
        Name: ENGLISH_DT_DB
 
    Bytes:     3880299
 
; copy over the version of ICMD that works for me
  CopyToServer        SYSTEM\NWIPTEMP, nwipinst\ibm_pc\nwip\220\4\icmd.nlm,                     '', ''
  CopyToServer        SYSTEM\NWIPTEMP, nwipinst\ibm_pc\nwip\220\4\icmd.msg,                     '', ''
  CopyToServer        SYSTEM\NWIPTEMP, nwipinst\ibm_pc\nwip\220\4\docupd.nlm,                     '', ''
; use the ICMD that we just copied
Command "SYS:SYSTEM\\NWIPTEMP\\ICMD"

; get the source - It is SAME as normal input path
  GetPath DTSource, 1, %{NWSRC}, '', NWSRC

  GetPath DTTargetD, 4, 'SYS:\\DOC',
    "If you are installing online documentation files, the
    default destination is %s\\.
    You may change this path, but doing so will invalidate the
    configuration file SYSDOCS.CFG. (See the printed instructions for
    details.)
    Be aware that all users within this server's Directory container
    will be granted rights to view documentation files. If you want
    to change access rights, you will need to do so after the
    installation is finished."
 
  GetPath DTTargetX, 1, 'SYS:\\PUBLIC', ''
 

; copy content of doc directory (but NO subdirs, no complaints if nothing there)
        CopyFile 0, 1,0,0,'', DTSource, doc,                 '', '', DTTargetD, '',           '', ''
; copy entire language tree
        CopyFile 1, 1,1,0,'', DTSource, doc\english,         '', '', DTTargetD, english,      '', ''
 
; Conditionally NW410DOC:PUBLIC\SYSDOCS.CFG to SYS:PUBLIC\SYSDOCS.CFG
;  IFF it does NOT exist in the target location
;  CopyFile 0, 0,1,2,'80', DTSource, public\sysdocs.cfg,                '', '', DTTargetX, '',                  '', '',1
  CopyFile 0, 0,1,2,'80', DTSource, public\sysdocs.new,                '', '', DTTargetX, '',                  '', '',1

  Exec "SYS:SYSTEM\\NWIPTEMP\\DOCUPD.NLM"

  ; set the directory attributes and grant trustee rights
  SetDir DTTargetD, '', '', '', 10, 1, 41
 
  GetPath TempDest2,    1, 'SYS:SYSTEM\\NWIPTEMP',''

  EraseFile 1,TempDest2,'','',''

@EndFileSet
 
 

[ RETURN TO DIRECTORY ]