$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!  This command file sets up the symbols you will need
$!  to run the simple MIT client and server.
$!
$!  This client and server pair require that the
$!  sample/nodename principal be set up.  You can use
$!  @setup KDC [CLEAN]
$!  to accomplish this initialization and cleanup step.
$!  
$!  This is a very simple program that sends authenticated,
$!  encrypted, and checksumed messages to the server.
$!  Both client and server exit when complete.
$!
$ if (p1 .eqs. "KDC")
$ then
$     if (p2 .eqs. "CLEAN")
$     then
$        if (p3 .eqs. "")
$        then
$            write sys$output "SETUP-F-NoNodeName, A client nodename (P3) is required for the principal."
$            exit
$        endif
$        @[-]setup_principal KDC CLEAN 'p3
$     else
$         if (p2 .eqs. "")
$         then
$             write sys$output "SETUP-F-NoNodeName, A client nodename (P2) is required for the principal."
$             exit
$         endif
$         @[-]setup_principal KDC 'p2
$     endif
$ else
$     write SYS$OUTPUT "------------ Setup ----------------------------------------"
$     write SYS$OUTPUT "SETUP-I-INFO, setup_principal.com is run ONE time for all the "
$     write sys$output "              MIT sample applications."
$     write SYS$OUTPUT "SETUP-I-INFO, You can do this now, if necessary, or use"
$     write sys$output "              @setup KDC
$     write SYS$OUTPUT "------------ Running the example --------------------------"
$ endif
$
$!------------------------------------------------------------------------------
$!  Get the local system's architecture type.  F$GETSYI returns either "VAX"
$!  or "Alpha".
$!------------------------------------------------------------------------------
$!
$ cur_dir = F$ENVIRONMENT ("DEFAULT")
$ arch_name = F$GETSYI ("ARCH_NAME")
$ image = "$" + cur_dir - "]" + ".server.''arch_name']" + "sim_server.exe;"
$ server :== 'image
$ image = "$" + cur_dir - "]" + ".client.''arch_name']" + "sim_client.exe;"
$ client :== 'image
$
$ write sys$output "  Run the server as follows:"
$ write sys$output "      $ server -p 1024"
$ write sys$output "
$ write sys$output "  Run the client as follows:"
$ write sys$output "      $ client -p 1024  -m ""Hi there!"" servernode"
$exit