PC World Komputer 1995 November/PCWK1195.iso/esker/tcp_win.1/INSTALL.DAT

Text File | 1995-04-14 | 27KB | 721 lines

/*      Install TUN TCP TCP/IP Windows (C) Copyrights ESKER 93-95    */
@DefineProject
    @Name = "TUN TCP TCP/IP for Windows"
    @Version = "7.30"
    @OutDrive = C
    @Subdir ="\\WTUNTCP"
    @Requires @HardDisk
@EndProject

@DefineVars
    @Integer @Red        = @RGB(255,0,0)
    @Integer @Green      = @RGB(0,255,0)
    @Integer @Blue       = @RGB(0,0,255)
    @Integer @Black      = @RGB(0,0,0)
    @Integer @ShowIcon   = 0
    @Qstring @PrevNet    = " "
    @QString @PrevSndNet = " "
    @Qstring @PageCode   ="437"
    @Qstring @SLang      = "00"
    @Qstring @SLang2     = "ENGLISH"
    @Qstring @SKeyboard  = "US.NAT"
    @Qstring @FileCopy
    @Qstring @FileDest
    @Qstring @SerNum
    @Qstring @ProductPart = "TW"
    @Qstring @OldLang
    @Integer @OldLangFlag
    @Integer @PrevNetFlag
    @Integer @PrevNetTunFlag
    @Integer @PrevNetWfwFlag
    @Integer @PrevSndNetFlag
    @Integer @PrevSndNetTunFlag
    @Integer @Lang = 0
    @Integer @pop = 500
    @Integer @TCPIP = 1500
    @Integer @WINAPP = 2000
    @Integer @TSIZE      = @Eval(@pop+@WINAPP+@TCPIP)

@EndVars

//@Display
//      Goodinit=@GoodInit
//      ProductPart=@ProductPart
//      Sernum=@SerNum
//      Lang=@Lang
//      Lang2=@SLang2
//      Keyboard=@Skeyboard
//      SubDir=@SubDir
//      OutDrive=@Outdrive
//      @Pause
//@EndDisplay

@If(@GoodInit==0 || @GoodInit==2)
/*      Unit claim      */
NEWDRIVE:
@DlgCtrlSize(0,6,24,9,40)
@GetOutDrive @OutDrive @Suppress(0,17) @Prompt = "Enter target drive"
Please select the drive where you wish @Name
to be installed on your machine.  Any available drive can be used
assuming you have access rights to the drive you select, and there
is enough space for installation.
@EndOutDrive

/*      Directory claim */
NEWDIR:
@BackgroundMode(3,@Blue,@Black)
@DlgCtrlSize(0,7,0,8,35)
@GetSubdir @Subdir @Prompt = "Enter target directory"
Please select the directory PATH for the
@Name.
Additional subdirectories may be created
depending on the options you choose to install.
@EndSubdir

@If(!@DirExists("@Outdrive:\\@Subdir"))
    @BackgroundMode(3,@Red,@Red)
    @SetOption(5)
    @ClearOption(6)
    @DlgCtrlSize(0,5,10,8,30)
    @GetOption @Prompt = "Check Subdirectory"
        The directory you entered does
        not exist.  Do you wish to
        create it?
    @Option 5 = "Yes, continue"
    @Option 6 = "No, re-enter"
    @EndOption

    @If(6 [= @Option) @GOTO NEWDIR @EndIf
@EndIf
    @BackgroundMode(3,@Blue,@Black)

@EndIf

@If(@NoCopy==0)

@SetOption(1001)

LOOP:
@If(@StrFind(@ProductPart,"TW")==0)
@TCPIP=1500
@WINAPP=2000
@BackgroundMode(3,@Blue,@Black) //set background to blue/black
@DlgCtrlSize(0,8,9,11,49)       // set coordinates & size of list box
@GetOption @Checkbox @Prompt = "Select files to install"
 By default, the entire @Name package
 will be installed :
        TCP/IP for Windows,
        Windows Applications,
        Unix Pop3 Server.
 The entire distribution takes approximately 4 Mb of disk space.

@Option 1001 = "Unix Pop3 Server"
@EndOption
@ElseIf(@StrFind(@ProductPart,"TK")==0)
@ClearOption(1001)
@TCPIP = 1500
@WinApp = 0
@Else
@TCPIP = 0
@WinApp = 2000
@BackgroundMode(3,@Blue,@Black) //set background to blue/black
@DlgCtrlSize(0,7,9,10,49)       // set coordinates & size of list box
@GetOption @Checkbox @Prompt = "Select files to install"
 By default, the entire Windows Applications package
 will be installed :
        Windows Applications,
        Unix Pop3 Server.
 The entire distribution takes approximately 2.5 Mb of disk space.

@Option 1001 = "Unix Pop3 Server"
@EndOption
@EndIf

@if(1001 [! @option) @pop=0 @Else @pop = 500  @EndIf //if group not selected zero out

@TSIZE = @Eval((@pop+@WinApp+@TCPIP))   // add selected options' size requirements

// if total size > free space OR the total size == 0, then display
// red background and set default to loop back and select again.
@If((@TSIZE*1024 > @DiskFree(@OutDrive)) || @TSIZE ==0 )
        @SetOption(1700) @ClearOption(1600)
        @BackgroundMode(3,@Red,@Red)
    @Else
        @BackgroundMode(3,@Blue,@Black)
        @SetOption(1600) @ClearOption(1700)
    @EndIf
@DlgCtrlSize(0,13,12,17,40)

@If(@StrFind(@ProductPart,"TW")==0)
@GetOption @Prompt = "Selected file"
@if(@TSIZE == 0) You have not selected any files to install. @Else You have selected to install the following options. @EndIf
       TCP/IP for Windows          1500 K
       Windows Applications       2000 K
@If(1001 [= @option)       Unix Pop3 Server                @pop K @EndIf

The selected files will require a total of @TSIZE K bytes.

The drive currently selected for installation has @Eval(@DiskFree(@OutDrive)/1K) K free.

 You may:
@Option 1600 = "Continue"
@Option 1700 = "Reselect options"
@EndOption

@ElseIf(@StrFind(@ProductPart,"TK")==0)

@GetOption @Prompt = "Selected file"
@if(@TSIZE == 0) You have not selected any files to install. @Else You have selected to install the following options. @EndIf
       TCP/IP for Windows          1500 K

The selected files will require a total of @TSIZE K bytes.

The drive currently selected for installation has @Eval(@DiskFree(@OutDrive)/1K) K free.

 You may:
@Option 1600 = "Continue"
@Option 1700 = "Reselect options"
@EndOption
@Else

@GetOption @Prompt = "Selected file"
@if(@TSIZE == 0) You have not selected any files to install. @Else You have selected to install the following options. @EndIf
       Windows Applications       2000 K
@If(1001 [= @option)       Unix Pop3 Server                @pop K @EndIf

The selected files will require a total of @TSIZE K bytes.

The drive currently selected for installation has @Eval(@DiskFree(@OutDrive)/1K) K free.

 You may:
@Option 1600 = "Continue"
@Option 1700 = "Reselect options"
@EndOption
@EndIf

@If(1700 [= @Option) @GOTO LOOP @EndIf
@BackgroundMode(3,@Blue,@Black)

@If((@TSIZE*1024) > @DiskFree(@OutDrive))
@BackgroundMode(3,@Red,@Red)
    @Display
        The drive you have selected does not have
        enough available space free to install
        all of the options you have selected.

        Please select another drive.
    @Pause
    @EndDisplay
    @GOTO NEWDRIVE
@EndIf
@BackgroundMode(3,@Blue,@Black)

@EndIf

// install of tuntcp.drv

@If(@StrFind(@ProductPart,"TK")==0)
@ClearOption(10)
@Else
@PrevNet = @GetINI("boot","network.drv","SYSTEM.INI")
@PrevSndNet = @GetINI("boot","secondnet.drv","SYSTEM.INI")
@PrevNetFlag = @StrLen("@PrevNet")
@PrevSndNetFlag = @StrLen("@PrevSndNet")

//@PrevNetTunFlag = @StrIFind("@PrevNet","TUNTCP.DRV")
@If(@StrIFind("@PrevNet","TUNTCP.DRV")!=-1)
    @PrevNetTunFlag=1
@Else
    @If(@StrIFind("@PrevNet","TUNNET.DRV")!=-1)
        @PrevNetTunFlag=2
    @Else
        @PrevNetTunFlag=0
    @EndIf
@EndIf

@PrevNetWfwFlag = @StrIFind("@PrevNet","WFWNET.DRV")

//@PrevSndNetTunFlag = @StrIFind("@PrevSndNet","TUNTCP.DRV")
@If(@StrIFind("@PrevSndNet","TUNTCP.DRV")!=-1)
    @PrevSndNetTunFlag=1
@Else
    @If(@StrIFind("@PrevSndNet","TUNNET.DRV")!=-1)
        @PrevSndNetTunFlag=2
    @Else
        @PrevSndNetTunFlag=0
    @EndIf
@EndIf

@SetOption(10)
@If((@PrevNetFlag != 0) && (@PrevNetTunFlag == 0) && (@PrevNetWfwFlag == -1))
    @BackgroundMode(3,@Red,@Red)
    @ClearOption(11)
    @DlgCtrlSize(0,6,22,9,32)
    @GetOption @Prompt = "TUN TCP Network Device Driver installation"
A Network Device Driver is already installed. Windows allows
only one network driver.

    Do you want to replace current driver by TUN TCP ?
    @Option 10 = "Yes"
    @Option 11 = "No"
    @EndOption
@EndIf
@If((@PrevNetWfwFlag != -1) && (@PrevSndNetFlag != 0) && (@PrevSndNetTunFlag == 0))
    @BackgroundMode(3,@Red,@Red)
    @ClearOption(11)
    @DlgCtrlSize(0,6,22,9,32)
    @GetOption @Prompt = "TUN TCP Network Device Driver installation"
A Second Network Device Driver is already installed. Windows allows
only one second network driver.

    Do you want to replace current driver by TUN TCP ?
    @Option 10 = "Yes"
    @Option 11 = "No"
    @EndOption
@EndIf
@EndIf

@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)
    @If(@Exists("@OutDrive:\\@Subdir\\WTUNTCP2.EXE"))
        @ShowIcon = 1
    @EndIf
    @If(@Exists("@OutDrive:\\@Subdir\\WTUNTCPW.EXE"))
        @ShowIcon = 2
    @EndIf
    @If(@Exists("@OutDrive:\\@Subdir\\WMAIL2.EXE"))
        @ShowIcon = 3
    @EndIf
@Else
    @If(@Exists("@OutDrive:\\@Subdir\\WFTP.EXE"))
        @ShowIcon = 1
        @If(@Exists("@OutDrive:\\@Subdir\\WVT320.EXE"))
            @ShowIcon = 2
            @If(@Exists("@OutDrive:\\@Subdir\\WMAIL2.EXE"))
            @ShowIcon = 3
            @EndIf
        @EndIf
    @EndIf
@EndIf

//@Display
//      Goodinit=@GoodInit
//      ProductPart=@ProductPart
//      Sernum=@SerNum
//      Lang=@Lang
//      Lang2=@SLang2
//      Keyboard=@Skeyboard
//      SubDir=@SubDir
//      OutDrive=@Outdrive
//      ShowIcon=@ShowIcon
//      NoCopy=@NoCopy
//      @Pause
//@EndDisplay
@BackgroundMode(3,@Blue,@Black)
/*
    The @DefineDisk blocks actually do the copying of the files, from the
    floppy disk to the hard disk of the end-users particular choice.
*/

@If(@NoCopy==0)

@DefineDisk
    @Label  ="Disk 1/2"
@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)

    @BeginLib SUPER.RED
        @File WTUNTCPW.EXE @Size 40448 @OVERWRITE
        @File WTUNTCPW.LG @Size 3058 @OVERWRITE
        @File CTL3D.TUN @Size 20976 @OVERWRITE
    @EndLib

    @BeginLib DATABASE.RED
        @File PACKET.DBA @Size 6838 @OVERWRITE
        @File PACKET.CTL @Size 279 @OVERWRITE
        @File ODI.CTL @Size 129 @OVERWRITE
        @File ODI.DBA @Size 1246 @OVERWRITE
        @File NDIS.CTL @Size 635 @OVERWRITE
        @File NDIS.DBA @Size 3949 @OVERWRITE
    @EndLib

    @BeginLib KERNEL.RED
        @File WTCPIP.EXE @Size 19456 @OVERWRITE
        @File WTCPIP.LG @Size 8788 @OVERWRITE
        @File TUNTCPIP.DLL @Size 101888 @OVERWRITE
        @File WINSOCK.DLL @Size 13312 @OVERWRITE
        @File BOOTP.DLL @Size 12288 @OVERWRITE
        @File WSNMPD.EXE @Size 48640 @OVERWRITE
        @File WSNMPD.LG @Size 5135 @OVERWRITE
        @File WTCPDLG.DLL @Size 144384 @OVERWRITE
        @File WTCPDLG.LG @Size 22303 @OVERWRITE
        @File WINPKT.COM @Size 3626 @OVERWRITE
        @File WPING.EXE @Size 35840 @OVERWRITE
        @File WPING.LG @Size 3949 @OVERWRITE
        @File HOSTTAB @Size 46 @OVERWRITE
        @File SERVICES @Size 2898 @OVERWRITE
        @File PROTOCOL @Size 213 @OVERWRITE
        @File WSCHECK.EXE @Size 43360 @OVERWRITE
        @File WLOG.EXE @Size 21504 @OVERWRITE
    @EndLib

@If(@StrFind(@ProductPart,"TW")==0)

    @BeginLib LPT.RED
        @File WLPD.EXE @Size 40960 @OVERWRITE
        @File WLPD.LG @Size 11832 @OVERWRITE
        @File WLPDDLG.DLL @Size 47616 @OVERWRITE
        @File WLPDDLG.LG @Size 3598 @OVERWRITE
        @File WLPR.DLL @Size 80896 @OVERWRITE
        @File WLPR.LG @Size 8119 @OVERWRITE
        @File WLPRDLG.DLL @Size 48640 @OVERWRITE
        @File WLPRDLG.LG @Size 6551 @OVERWRITE
        @File TUNNET.DRV @Size 21504 @OVERWRITE
        @File TUNNET.LG @Size 810 @OVERWRITE
    @EndLib

    @BeginLib NFS.RED
        @File WNFS.DLL @Size 100524 @OVERWRITE
        @File WNFSDLG.DLL @Size 63488 @OVERWRITE
        @File WNFSDLG.LG @Size 11455 @OVERWRITE
        @File TUNREDIR.386 @Size 9817 @OVERWRITE
    @EndLib
@EndIf

    @BeginLib CLARKSON.RED
          @File 3C501.COM @Size 7307 @OUT CLARKSON\*.* @OVERWRITE
          @File 3C503.COM @Size 9773 @OUT CLARKSON\*.* @OVERWRITE
          @File 3C505.COM @Size 12040 @OUT CLARKSON\*.* @OVERWRITE
          @File 3C507.COM @Size 8329 @OUT CLARKSON\*.* @OVERWRITE
          @File 3C509.COM @Size 8283 @OUT CLARKSON\*.* @OVERWRITE
          @File 3C523.COM @Size 8465 @OUT CLARKSON\*.* @OVERWRITE
          @File AQUILA.COM @Size 7783 @OUT CLARKSON\*.* @OVERWRITE
          @File AR450.COM @Size 7679 @OUT CLARKSON\*.* @OVERWRITE
          @File ARCETHER.COM @Size 9327 @OUT CLARKSON\*.* @OVERWRITE
          @File AT&T.COM @Size 8611 @OUT CLARKSON\*.* @OVERWRITE
          @File AT1500.COM @Size 22259 @OUT CLARKSON\*.* @OVERWRITE
          @File AT1700.COM @Size 8151 @OUT CLARKSON\*.* @OVERWRITE
          @File CTRONDNI.COM @Size 9619 @OUT CLARKSON\*.* @OVERWRITE
          @File DAVIDSYS.COM @Size 9089 @OUT CLARKSON\*.* @OVERWRITE
          @File AT&T_LP.COM @Size 8827 @OUT CLARKSON\*.* @OVERWRITE
          @File DE600.COM @Size 11349 @OUT CLARKSON\*.* @OVERWRITE
          @File DEPCA.COM @Size 8623 @OUT CLARKSON\*.* @OVERWRITE
          @File DK86960.COM @Size 7597 @OUT CLARKSON\*.* @OVERWRITE
          @File DK86965.COM @Size 7751 @OUT CLARKSON\*.* @OVERWRITE
          @File EN301.COM @Size 7625 @OUT CLARKSON\*.* @OVERWRITE
          @File ES3210.COM @Size 8951 @OUT CLARKSON\*.* @OVERWRITE
          @File ETHERSL.COM @Size 11371 @OUT CLARKSON\*.* @OVERWRITE
          @File ETHIIE.COM @Size 8915 @OUT CLARKSON\*.* @OVERWRITE
          @File EXOS205.COM @Size 9059 @OUT CLARKSON\*.* @OVERWRITE
          @File EXP16.COM @Size 10703 @OUT CLARKSON\*.* @OVERWRITE
          @File HPPCLAN.COM @Size 9617 @OUT CLARKSON\*.* @OVERWRITE
          @File HPPCLANP.COM @Size 9067 @OUT CLARKSON\*.* @OVERWRITE
          @File IBMTOKEN.COM @Size 18763 @OUT CLARKSON\*.* @OVERWRITE
          @File IPDRV.COM @Size 1547 @OUT CLARKSON\*.* @OVERWRITE
          @File ISOLAN.COM @Size 7527 @OUT CLARKSON\*.* @OVERWRITE
          @File ISOLINK.COM @Size 21643 @OUT CLARKSON\*.* @OVERWRITE
          @File KODIAK16.COM @Size 7969 @OUT CLARKSON\*.* @OVERWRITE
          @File KODIAK8.COM @Size 8357 @OUT CLARKSON\*.* @OVERWRITE
          @File KODIAKK.COM @Size 8701 @OUT CLARKSON\*.* @OVERWRITE
          @File MYLEX.COM @Size 9309 @OUT CLARKSON\*.* @OVERWRITE
          @File NCRET105.COM @Size 8364 @OUT CLARKSON\*.* @OVERWRITE
          @File NE1000.COM @Size 8751 @OUT CLARKSON\*.* @OVERWRITE
          @File NE2.COM @Size 8563 @OUT CLARKSON\*.* @OVERWRITE
          @File NE2000.COM @Size 8693 @OUT CLARKSON\*.* @OVERWRITE
          @File NE2100.COM @Size 21751 @OUT CLARKSON\*.* @OVERWRITE
          @File NI5010.COM @Size 7509 @OUT CLARKSON\*.* @OVERWRITE
          @File NI5210.COM @Size 8369 @OUT CLARKSON\*.* @OVERWRITE
          @File NI6510.COM @Size 22005 @OUT CLARKSON\*.* @OVERWRITE
          @File NI9210.COM @Size 8493 @OUT CLARKSON\*.* @OVERWRITE
          @File NTI16.COM @Size 8024 @OUT CLARKSON\*.* @OVERWRITE
          @File SKDRV.COM @Size 4415 @OUT CLARKSON\*.* @OVERWRITE
          @File SMC_WD.COM @Size 10329 @OUT CLARKSON\*.* @OVERWRITE
          @File TCENET.COM @Size 17145 @OUT CLARKSON\*.* @OVERWRITE
          @File TIARA.COM @Size 7701 @OUT CLARKSON\*.* @OVERWRITE
          @File UBNICPC.COM @Size 7315 @OUT CLARKSON\*.* @OVERWRITE
          @File UBNICPS2.COM @Size 8353 @OUT CLARKSON\*.* @OVERWRITE
          @File VAXMATE.COM @Size 8069 @OUT CLARKSON\*.* @OVERWRITE
          @File ZNOTE.COM @Size 19453 @OUT CLARKSON\*.* @OVERWRITE
          @File WD8003E.COM @Size 6788 @OUT CLARKSON\*.* @OVERWRITE
          @File TERMIN.COM @Size 1514 @OUT CLARKSON\*.* @OVERWRITE
          @File PKT8000.COM @Size 1514 @OUT CLARKSON\*.* @OVERWRITE
          @File HOWTOGET.IT @Size 1514 @OUT CLARKSON\*.* @OVERWRITE
          @File COPYING.DOC @Size 1514 @OUT CLARKSON\*.* @OVERWRITE
    @EndLib

    @BeginLib ODI.RED
          @File ODIPKT.COM @Size 3072 @OUT DRIVERS\*.* @OVERWRITE
          @File NET.CFG @Size 213 @OUT DRIVERS\*.* @OVERWRITE
    @EndLib
@EndIf

@EndDisk

@DefineDisk
    @Label  ="Disk 2/2"
@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)
    @BeginLib NDIS.RED
        @File AM2100.DOS @Size 9276 @OUT DRIVERS\*.* @OVERWRITE
        @File DEPCA.DOS @Size 15593 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNK.DOS @Size 7218 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNK16.DOS @Size 9792 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNK3.DOS @Size 12466 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNKII.DOS @Size 11322 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNKMC.DOS @Size 9542 @OUT DRIVERS\*.* @OVERWRITE
        @File ELNKPL.DOS @Size 17116 @OUT DRIVERS\*.* @OVERWRITE
        @File EXP16.DOS @Size 11668 @OUT DRIVERS\*.* @OVERWRITE
        @File HPLANB.DOS @Size 11744 @OUT DRIVERS\*.* @OVERWRITE
        @File HPLANP.DOS @Size 12640 @OUT DRIVERS\*.* @OVERWRITE
        @File IBMTOK.DOS @Size 10064 @OUT DRIVERS\*.* @OVERWRITE
        @File MACWD.DOS @Size 13392 @OUT DRIVERS\*.* @OVERWRITE
        @File NE1000.DOS @Size 13944 @OUT DRIVERS\*.* @OVERWRITE
        @File NE2000.DOS @Size 13766 @OUT DRIVERS\*.* @OVERWRITE
        @File SMCMAC.DOS @Size 17408 @OUT DRIVERS\*.* @OVERWRITE
        @File UBNEI.DOS @Size 24666 @OUT DRIVERS\*.* @OVERWRITE
        @File XLN2X5.DOS @Size 33527 @OUT DRIVERS\*.* @OVERWRITE
        @File CONVERT.DOS @Size 4734 @OUT DRIVERS\*.* @OVERWRITE
        @File NETBIND.COM @Size 8513 @OUT DRIVERS\*.* @OVERWRITE
        @File PRO.MSG @Size 1329 @OUT DRIVERS\*.* @OVERWRITE
        @File PROH.MSG @Size 5578 @OUT DRIVERS\*.* @OVERWRITE
        @File PROTMAN.DOS @Size 13352 @OUT DRIVERS\*.* @OVERWRITE
        @File PROTMAN.EXE @Size 14010 @OUT DRIVERS\*.* @OVERWRITE
        @File PROTOCOL.INI @Size 1853 @OUT DRIVERS\*.* @OVERWRITE
    @EndLib
@EndIf

@If(@StrFind(@ProductPart,"TK")!=0)
    @BeginLib APPLICA.RED
        @File WFTP.EXE @Size 250880 @OVERWRITE
        @File WFTP.LG @Size 46407 @OVERWRITE
        @File WMAIL2.EXE @Size 501760 @OVERWRITE
        @File WMAIL.LG @Size 66060 @OVERWRITE
        @File CPDDOC.DLL @Size 533504 @OVERWRITE
        @File CPDDOC.LG @Size 2785 @OVERWRITE
        @File MIME.DLL @Size 57253 @OVERWRITE
        @File WRSH.EXE @Size 98816 @OVERWRITE
        @File WRSH.LG @Size 14706 @OVERWRITE
        @File WTAR.EXE @Size 209408 @OVERWRITE
        @File WTAR.LG @Size 28661 @OVERWRITE
        @File WVT320.EXE @Size 289968 @OVERWRITE
        @File WVT320.LG @Size 40848 @OVERWRITE
        @File WINFTP.MAC @Size 475 @OVERWRITE
    @EndLib

    @If(1001 [= @Option)  // if examples selected, install them
    @BeginLib POP3.RED
          @File POP3.TAR @Size 296960 @OVERWRITE
    @EndLib
    @EndIf // Pop3 Server
@EndIf

@EndDisk

@EndIf // NoCopy

@BackgroundMode(3,@Blue,@Black)

//@Copy("@OutDrive:\\@SubDir\\TUNTCP.GRP","@Windowsdrive:\\@WindowsDir\\TUNTCP.GRP")
@MkDir("@OutDrive:\\@SubDir\\EMAILDAT")
@MkDir("@OutDrive:\\@SubDir\\SPOOL")

// TUN*TCP network device driver installation

@If(10 [= @Option)
    @If(@PrevNetWfwFlag != -1)
        @If(@StrFind(@ProductPart,"TW")==0)
            @SetINI( "boot", "secondnet.drv", "@OutDrive:\\@SubDir\\TUNNET.DRV", "system.ini" )
        @Else
            @SetINI( "boot", "secondnet.drv", "@OutDrive:\\@SubDir\\TUNTCP.DRV", "system.ini" )
        @EndIf
    @Else
        @If(@StrFind(@ProductPart,"TW")==0)
            @SetINI( "boot", "network.drv", "@OutDrive:\\@SubDir\\TUNNET.DRV", "system.ini" )
        @Else
            @SetINI( "boot", "network.drv", "@OutDrive:\\@SubDir\\TUNTCP.DRV", "system.ini" )
        @EndIf
    @EndIf
    @SetINI( "windows", "netwarn", "0", "win.ini" )
    @If((@PrevNetWfwFlag != -1) && (@PrevSndNetFlag != 0) && (@PrevSndNetTunFlag == 0))
        @SetINI( "boot", ";secondnet.drv", "@PrevSndNet", "system.ini" )
    @Else
        @If((@PrevNetWfwFlag == -1) && (@PrevNetFlag != 0) && (@PrevNetTunFlag == 0))
            @SetINI( "boot", ";network.drv", "@PrevNet", "system.ini" )
        @EndIf
    @EndIf
@EndIf


/*
@SetINI( "PING", "Language", @SLang, "@WindowsDrive:\\@WindowsDir\\WTUNTCP.INI")
@If(@StrFind(@ProductPart,"TK")!=0)
    @SetINI( "TUNRSH", "Language", @SLang )
    @SetINI( "TUNVT320", "Language", @SLang, "@WindowsDrive:\\@WindowsDir\\WTUNTCP.INI")
    @SetINI( "TUNVT320", "Keyboard", @SKeyboard, "@WindowsDrive:\\@WindowsDir\\WTUNTCP.INI")
    @SetINI( "TUNFTP", "Language", @SLang )
    @SetINI( "TUNTAR", "Language", @SLang )
    @SetINI( "TUNMAIL", "Language", @SLang )
    @SetINI( "TUNMAIL", "DBPath", "@OutDrive:\\@SubDir\\EMAILDAT" )
    @SetINI( "TUNMAIL", "Guest_FolderPath", "@OutDrive:\\@SubDir\\EMAILDAT" )
    @SetINI( "TUNMAIL","Version","1.1")
@EndIf
*/

@OldLang = @GetINI("Language", "Language" , "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@OldLangFlag = @StrLen("@OldLang")
@If(@OldLangFlag==0)
  @SetINI("Language", "Language", @SLang, "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@EndIf
@If(@StrFind(@ProductPart, "WA")==0)
  @SetINI( "INIT", "TUNTCP", "@OutDrive:\\@SubDir\\TUNTCP.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
  @SetINI( "Winsock", "WinsockPath", "@OutDrive:\\@SubDir\\WINSOCK.DLL", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@EndIf

@SetAutoexec
   @If(@StrFind(@ProductPart, "WA")==0)
      @Overwrite
      @SetReplace("TUNINIT","@WindowsDrive:\\@WindowsDir")
   @EndIf
@EndAutoexec

@SetINI( "INIT", "WPING", "@OutDrive:\\@SubDir\\WPING.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "Common", "Hosts", "@OutDrive:\\@SubDir\\HOSTTAB", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@If(@StrFind(@ProductPart,"TW")==0)
@SetINI( "INIT", "WLPD", "@OutDrive:\\@SubDir\\WLPD.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WLPDDLG", "@OutDrive:\\@SubDir\\WLPD.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WLPR", "@OutDrive:\\@SubDir\\WLPR.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WLPRDLG", "@OutDrive:\\@SubDir\\WLPR.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WNFS", "@OutDrive:\\@SubDir\\WNFS.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WNFSDLG", "@OutDrive:\\@SubDir\\WNFS.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@EndIf
@If(@StrFind(@ProductPart,"TK")!=0)
@SetINI( "INIT", "WRSH", "@OutDrive:\\@SubDir\\WRSH.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WTAR", "@OutDrive:\\@SubDir\\WTAR.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WFTP", "@OutDrive:\\@SubDir\\WFTP.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "TUNMAIL", "@OutDrive:\\@SubDir\\TUNMAIL.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "TUNMAIL2", "LanguagePath", "@OutDrive:\\@SubDir\\WMAIL.LG", "@OutDrive:\\@SubDir\\TUNMAIL.INI")
@SetINI( "TUNMAIL2", "DBPath", "@OutDrive:\\@SubDir\\EMAILDAT", "@OutDrive:\\@SubDir\\TUNMAIL.INI")
@SetINI( "TUNMAIL2", "NotUseQueues", "1", "@OutDrive:\\@SubDir\\TUNMAIL.INI")
@SetINI( "INIT", "WVT320", "@OutDrive:\\@SubDir\\WVT320.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "TUNVT320", "Keyboard", @SKeyboard, "@OutDrive:\\@SubDir\\WVT320.INI")
@SetINI( "TUNVT320", "JumpScroll", "4", "@OutDrive:\\@SubDir\\WVT320.INI")
@SetINI( "TUNVT320", "WindowPosition", "2", "@OutDrive:\\@SubDir\\WVT320.INI")
@SetINI( "Language", "LanguagePath", "@OutDrive:\\@SubDir\\WVT320.LG", "@OutDrive:\\@SubDir\\WVT320.INI")
@EndIf

@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)
@SetINI( "Winsock", "WinsockPath", "@OutDrive:\\@SubDir\\WINSOCK.DLL", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WTUNTCPW", "@OutDrive:\\@SubDir\\WTUNTCPW.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WTCPIP", "@OutDrive:\\@SubDir\\WTCPIP.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "INIT", "WTCPDLG", "@OutDrive:\\@SubDir\\WTCPIP.INI", "@WindowsDrive:\\@WindowsDir\\TUN.INI")
@SetINI( "Common", "InstDir", "@OutDrive:\\@SubDir" ,"@OutDrive:\\@SubDir\\WTCPIP.INI" )
@SetINI( "TCPIP", "Hosts", "@OutDrive:\\@SubDir\\HOSTTAB","@OutDrive:\\@SubDir\\WTCPIP.INI" )
@SetINI( "TCPIP", "Services", "@OutDrive:\\@SubDir\\SERVICES","@OutDrive:\\@SubDir\\WTCPIP.INI" )
@SetINI( "TCPIP", "Protocol", "@OutDrive:\\@SubDir\\PROTOCOL","@OutDrive:\\@SubDir\\WTCPIP.INI" )
@Else
@SetINI( "TUNADMIN", "Language", @SLang )
@EndIf
/*
@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)
@SetINI( "ADMIN", "Language", @SLang ,"@Windowsdrive:\\@WindowsDir\\WTUNTCP.INI" )
@SetINI( "ADMIN", "InstDir", "@OutDrive:\\@SubDir" ,"@Windowsdrive:\\@WindowsDir\\WTUNTCP.INI" )
@SetINI( "TCPIP", "Hosts", "@OutDrive:\\@SubDir\\HOSTTAB","@Windowsdrive:\\@WindowsDir\\WTUNTCP.INI" )
@SetINI( "TCPIP", "Services", "@OutDrive:\\@SubDir\\SERVICES","@Windowsdrive:\\@WindowsDir\\WTUNTCP.INI" )
@SetINI( "TCPIP", "Protocol", "@OutDrive:\\@SubDir\\PROTOCOL","@Windowsdrive:\\@WindowsDir\\WTUNTCP.INI" )
@Else
@SetINI( "TUNADMIN", "Language", @SLang )
@EndIf
*/

// Installation  of TUNREDIR.386 (NFS)
@If(@StrFind(@ProductPart,"TW")==0)
@AddINI( "386Enh", "device", "@OutDrive:\\@SubDir\\TUNREDIR.386","@Windowsdrive:\\@WindowsDir\\SYSTEM.INI" )
@Endif


//@If(@StrFind(@ProductPart,"TW")==0 || @StrFind(@ProductPart,"TK")==0)
//@SetAutoexec
    /* select one of the four lines */
//        @AskOverwrite
/*      @Overwrite */
/*      @DiskProto */
/*      @ScreenProto  */
//        @Path = "@OutDrive:\\@Subdir"
//@EndAutoexec
//@EndIf

// If -F show icons  v 7.20A' (network installation)

@If(@NoCopy==1)
    @ShowIcon = 0
@EndIf

@Finish
/*
    The following command is used to create the TUN*TCP group and
    add TUN*TCP items to the Windows Program Manager.  The
    command can be written on a single line, however it was written
    as below for clarity.
*/

// Test and Installation of CTL3D.DLL if necessery modified v 7.2OA'

@If(!@Exists("@Windowsdrive:\\@WindowsDir\\SYSTEM"))
       @Copy("@OutDrive:\\@SubDir\\CTL3D.TUN","@Windowsdrive:\\@WindowsDir\\CTL3D.DLL")
@ElseIf(!@Exists("@Windowsdrive:\\@WindowsDir\\SYSTEM\\CTL3D.DLL"))
       @Copy("@OutDrive:\\@SubDir\\CTL3D.TUN","@Windowsdrive:\\@WindowsDir\\SYSTEM\\CTL3D.DLL")
@EndIf



@If(@StrFind(@ProductPart,"TW")==0)
    @If(@ShowIcon==0 || @ShowIcon==1)
    @ProgramManager("[CreateGroup(TUN TCP for Windows)]
[AddItem(@Outdrive:\\@Subdir\\WTUNTCPW.EXE,Admin)]
[AddItem(@Outdrive:\\@Subdir\\WTCPIP.EXE,WTCPIP)]
[AddItem(@Outdrive:\\@Subdir\\WPING.EXE,Ping)]
[AddItem(@Outdrive:\\@Subdir\\WVT320.EXE,VT320 Emulator)]
[AddItem(@Outdrive:\\@Subdir\\WFTP.EXE,File Transfer)]
[AddItem(@Outdrive:\\@Subdir\\WMAIL2.EXE,EMail)]
[AddItem(@Outdrive:\\@Subdir\\WRSH.EXE,Remote Command)]
[AddItem(@Outdrive:\\@Subdir\\WTAR.EXE,Tape Archive)]
[AddItem(@Outdrive:\\@Subdir\\WLPD.EXE,WLPD)]
[ShowGroup(TUN TCP for Windows,1)]")
    @ElseIf(@ShowIcon==2)
    @ProgramManager("[CreateGroup(TUN TCP for Windows)]
[AddItem(@Outdrive:\\@Subdir\\WMAIL2.EXE,EMail2)]
[ShowGroup(TUN TCP for Windows,1)]")
    @EndIf


@ElseIf(@StrFind(@ProductPart,"TK")==0)
    @If(@ShowIcon==0 || @ShowIcon==1)
    @ProgramManager("[CreateGroup(TUN TCP for Windows)]
[AddItem(@Outdrive:\\@Subdir\\WTUNTCPW.EXE,Admin)]
[AddItem(@Outdrive:\\@Subdir\\WTCPIP.EXE,WTCPIP)]
[AddItem(@Outdrive:\\@Subdir\\WPING.EXE,Ping)]
[ShowGroup(TUN TCP for Windows,1)]")
    @EndIf
@Else
    @If(@ShowIcon==0)
    @ProgramManager("[CreateGroup(TUN TCP,@WindowsDrive:\\@WindowsDir\\TUNTCPD.GRP)]
[AddItem(@Outdrive:\\@Subdir\\WTUNTCP.EXE,Admin)]
[AddItem(@Outdrive:\\@Subdir\\WPING.EXE,Ping)]
[AddItem(@Outdrive:\\@Subdir\\WVT320.EXE,VT320 Emulator)]
[AddItem(@Outdrive:\\@Subdir\\WFTP.EXE,File Transfer)]
[AddItem(@Outdrive:\\@Subdir\\WMAIL2.EXE,EMail)]
[AddItem(@Outdrive:\\@Subdir\\WRSH.EXE,Remote Command)]
[AddItem(@Outdrive:\\@Subdir\\WTAR.EXE,Tape Archive)]
[ShowGroup(TUN TCP,1)]")
    @ElseIf(@ShowIcon==1)
    @ProgramManager("[CreateGroup(TUN*TCP,@WindowsDrive:\\@WindowsDir\\TUNTCP.GRP)]
[AddItem(@Outdrive:\\@Subdir\\WVT320.EXE,VT320 Emulator)]
[AddItem(@Outdrive:\\@Subdir\\WMAIL2.EXE,EMail2)]
[ShowGroup(TUN*TCP,1)]")
    @ElseIf(@ShowIcon==2)
    @ProgramManager("[CreateGroup(TUN*TCP,@WindowsDrive:\\@WindowsDir\\TUNTCP.GRP)]
[AddItem(@Outdrive:\\@Subdir\\WMAIL2.EXE,EMail2)]
[ShowGroup(TUN*TCP,1)]")
    @EndIf
@EndIf
@ChDrive (@OutDrive)
@ChDir ("@SubDir")
@EndFinish