$!-----------------------------------------------------------------------------
$! INSTALL.COM
$!
$! Install and remove the FCGIPLUS FastCGI interface.
$!
$! 30-JUN-2003  MGD  initial
$!-----------------------------------------------------------------------------
$ say = "write sys$output"
$ ss$_abort = 44
$ copy = "copy/log"
$ delete = "delete/log"
$ archName = f$edit(f$getsyi("arch_name"),"UPCASE")
$ if archName .eqs. "ALPHA" then archName = "axp"
$!
$ if f$search("ht_exe:sechan.exe") .eqs. ""
$ then
$    type sys$input

                           ***********************
                           *  WASD 8.1 OR LATER  *
                           ***********************

This kit is only suitable for WASD 8.1 or later.
Please update your site (for this and other reasons) ASAP!

$    exit ss$_abort
$ endif
$!
$ type sys$input

                      Copyright (C) 2003 Mark G.Daniel.
 This package (all associated programs), comes with ABSOLUTELY NO WARRANTY.
        This is free software, and you are welcome to redistribute it
     under the conditions of the GNU GENERAL PUBLIC LICENSE, version 2.

$!
$ if p1 .nes. "REMOVE"
$ then
$    type sys$input
                           **********************
                           *  INSTALL FCGIPLUS  *
                           **********************

This procedure installs the FCGIPLUS.EXE FastCGI interface.

This installation can be removed using  $ @INSTALL REMOVE

$    response = ""
$    read sys$command /prompt="Continue? [N]: " response
$    say ""
$    if .not. response then exit
$!
$    response = ""
$    read sys$command /prompt="Install FCGIPLUS interface? [N]: " response
$    say ""
$    if response
$    then
$       copy ht_exe:fcgiplus.exe ht_root:['archName'-bin]
$       say ""
$    endif
$!
$ endif
$!
$ if p1 .eqs. "REMOVE"
$ then
$    type sys$input
                            *********************
                            *  REMOVE FCGIPLUS  *
                            *********************

This procedure removes the FCGIPLUS.EXE FastCGI interface.

Note: it does not delete the HT_ROOT:[SRC.FCGI] tree.

$    read sys$command /prompt="Continue? [N]: " response
$    say ""
$    if .not. response then exit
$    response = ""
$    read sys$command /prompt="Remove FCGIPLUS.EXE interface? [N]: " response
$    say ""
$    if response
$    then
$       delete ht_root:['archName'-bin]fcgiplus.exe;*
$       say ""
$    endif
$!
$ endif
$!
$ type sys$input
                            *********************
                            *  C O M P L E T E  *
                            *********************

$ exit
$!-----------------------------------------------------------------------------