$!
$! SETUP.COM - Setup Kerberos & GSS API Examples
$!
$ VERIFY = F$VERIFY(0)
$ Set NoOn
$!
$!------------------------------------------------------------------------------
$! Establish the base symbols used by this procedure
$!------------------------------------------------------------------------------
$!
$ SAY := WRITE SYS$OUTPUT
$ EXE_DIR = F$ENVIRONMENT ("DEFAULT")
$!
$!------------------------------------------------------------------------------
$!  Get the local system's architecture type.  F$GETSYI returns either "VAX"
$!  or "Alpha".
$!------------------------------------------------------------------------------
$!
$ arch_name = F$GETSYI ("ARCH_NAME")
$!
$!------------------------------------------------------------------------------
$! Setup the foreign symbols for the krb and gss example images.
$!------------------------------------------------------------------------------
$!
$ tmp = "$''EXE_DIR'"
$ if (arch_name .eqs. "VAX")
$ then
$     image = tmp - "]" + ".gss.vax]" + "GSS-CLIENT.EXE;"
$     GSS_CLIENT :== 'image
$ !
$     image = tmp - "]" + ".gss.vax]" + "GSS-SERVER.EXE;"
$     GSS_SERVER :== 'image
$ !
$     image = tmp - "]" + ".krb.vax]" + "KRB-CLIENT.EXE;"
$     KRB_CLIENT :== 'image
$ !
$     image = tmp - "]" + ".krb.vax]" + "KRB-SERVER.EXE;"
$     KRB_SERVER :== 'image
$ !
$ else ! "Alpha"
$
$     image = tmp - "]" + ".gss.64bit]" + "GSS-CLIENT.EXE;"
$     GSS_CLIENT :== 'image
$ !
$     image = tmp - "]" + ".gss.64bit]" + "GSS-SERVER.EXE;"
$     GSS_SERVER :== 'image
$ !
$     image = tmp - "]" + ".krb.64bit]" + "KRB-CLIENT.EXE;"
$     KRB_CLIENT :== 'image
$ !
$     image = tmp - "]" + ".krb.64bit]" + "KRB-SERVER.EXE;"
$     KRB_SERVER :== 'image
$ !
$     image = tmp - "]" + ".gss.32bit]" + "GSS-CLIENT.EXE;"
$     GSS_CLIENT32 :== 'image
$ !
$     image = tmp - "]" + ".gss.32bit]" + "GSS-SERVER.EXE;"
$     GSS_SERVER32 :== 'image
$ !
$     image = tmp - "]" + ".krb.32bit]" + "KRB-CLIENT.EXE;"
$     KRB_CLIENT32 :== 'image
$ !
$     image = tmp - "]" + ".krb.32bit]" + "KRB-SERVER.EXE;"
$     KRB_SERVER32 :== 'image
$ !
$ endif
$!
$ SAY " "
$ SAY "The following foreign symbols have been created:
$ SAY "for Alpha and VAX :"
$ SAY "     GSS_CLIENT"
$ SAY "     GSS_SERVER"
$ SAY "     KRB_CLIENT"
$ SAY "     KRB_SERVER"
$ if (arch_name .eqs. "Alpha")
$ then
$     SAY ""
$     SAY "For Alpha 32 bit images:"
$     SAY "     GSS_CLIENT32"
$     SAY "     GSS_SERVER32"
$     SAY "     KRB_CLIENT32"
$     SAY "     KRB_SERVER32"
$     SAY " "
$ endif
$ SAY "Specify a -? with each foreign command to display the available"
$ SAY "parameters."
$ SAY "======================================================== "
$ SAY "  Also be sure to run setup_principals.com to configure  "
$ SAY "  the required principals for each client:               "
$ SAY "   $ @setup_principals clientnode ""adminpassword""      "
$ SAY "      and to clean up your KDC
$ SAY "   $ @setup_principals clientnode ""adminpassword""  CLEAN    "
$ SAY "======================================================== "
$ SAY "====== Running the krb and gss servers and clients ===== "
$ SAY "  Use ""-?"" as an argument to get usage help on either program." 
$ SAY "  GSS : $ gss_server -p 2048"
$ SAY "  GSS : $ gss_client -p 2048 ""your message"" "
$ SAY " "
$ SAY "  KRB : $ krb_server -p 2048"
$ SAY "  KRB : $ krb_client -p 2048 ""your message"" "
$ SAY " "
$!
$!------------------------------------------------------------------------------
$! Exit Setup Kerberos Clients
$!------------------------------------------------------------------------------
$!
$Exit:
$!
$ VERIFY = F$VERIFY(VERIFY)
$!
$ Exit