$! This command procedure will start a Gopher server.  This will have to do
$! until the server is fixed to start from inetd, or multinet_server, or 
$! whatever you want to call the network process.
$!
$! @start_gopher p1 p2 p3 p4 p5
$!
$! Parameters:
$!    p1 : data directory root declaration
$!    p2 : root directory
$!    p3 : port
$!    p4 : logfile
$!    p5 : security file
$!
$!    example:
$! @start_gopher $1$dua2:[gopher_data.] gopher_root:[000000] 70 -
$!     sys$manager:gopher.log sys$manager:secur.
$!
$! if Data_Directory_Def is not defined, we will assume there is system logical
$! name defined.  We will then translate that logical name and place it into
$! the job logical name table of the server.  We want to have each server
$! have a private definition for the data directory so that more than one
$! server can reside on a machine.  This way, the data for each sever can be
$! in very different locations and neither will know about the data that the
$! other is serving.
$!
$ If ( p1 .nes. "" )
$  Then
$   Assign/system/exec 'p1 Data_Directory_Def
$ Endif
$!
$ If ( p2 .nes. "" )
$  Then
$   Assign/system/exec 'p2 Gopher_DataDir
$  Else
$   Assign/system/exec Gopher_root:[000000] Gopher_DataDir
$ Endif
$!
$ If ( p3 .nes. "" )
$  Then
$   Assign/system/exec 'p3 Gopher_TCPPort
$  Else
$   Assign/system/exec 70 Gopher_TCPPort
$ Endif
$!
$ If ( p4 .nes. "" )
$  Then
$   Assign/system/exec 'p4 Gopher_LogFile
$  Else
$   Assign/system/exec UMM$Manager:Gopher.log Gopher_LogFile
$ Endif
$!
$ If ( p5 .nes. "" )
$  Then
$   Assign/system/exec 'p5 Gopher_SecFile
$  Else
$   Assign/system/exec UMM$Manager:Secur. Gopher_SecFile
$ Endif
$!
$ run/detach/process_name=gopher1_server/working_set=500/extent=2500/-
    maximum_working_set=1500/-
    output=sys$manager:gopher.output/-
    error=sys$manager:gopher.error sys$system:vmsgopherd.exe
$!
$ exit
$!Last Modified:  20-MAR-1992 09:10:53.53, By: MARK 

.