[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]

$!-----------------------------------------------------------------------------
$! DECNET_IV_OBJECTS.COM
$!
$! For DECnet based scripting.
$! Using NCP create DECnet Phase-IV network objects.
$! If P1 is supplied as "DEFINE" the objects are created in the permanent
$! database and then in the volatile (this procedure then needs only to be
$! executed once, ever, otherwise must be executed at each system
$! (or HTTP server) startup).
$!
$! 17-JUL-1998  MGD  objects specified CGI-BIN:[000000] rather than HT_EXE:
$! 10-JAN-1998  MGD  initial
$!-----------------------------------------------------------------------------
$ IF P1 .EQS "DEFINE"
$ THEN
$!(permanent database)
$ MCR NCP
! WASD CGI object
DEFINE OBJECT CGIWASD NUMBER 0 FILE CGI-BIN:[000000]CGIWASD.COM
! OSU object
DEFINE OBJECT WWWEXEC NUMBER 0 FILE CGI-BIN:[000000]WWWEXEC.COM
$ ENDIF
$!
$!(volatile database)
$ MCR NCP
! WASD CGI object (volatile)
SET OBJECT CGIWASD NUMBER 0 FILE CGI-BIN:[000000]CGIWASD.COM
! OSU object (volatile)
SET OBJECT WWWEXEC NUMBER 0 FILE CGI-BIN:[000000]WWWEXEC.COM
$!-----------------------------------------------------------------------------