[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]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]
[0094]
[0095]
[0096]
[0097]
[0098]
[0099]
[0100]
[0101]
[0102]
[0103]
[0104]
[0105]
[0106]
[0107]
[0108]
[0109]
[0110]
[0111]
[0112]
[0113]
[0114]
[0115]
[0116]
[0117]
[0118]
[0119]
[0120]
[0121]
[0122]
[0123]
[0124]
[0125]
[0126]
[0127]
[0128]
[0129]
[0130]
[0131]
[0132]
[0133]
[0134]
[0135]
[0136]
[0137]
[0138]
$!-----------------------------------------------------------------------------
$! STARTUP_DECNET.COM
$!
$! Example startup for WASD DECnet-based scripting with OSU scripting support.
$! This procedure should be called from the HTTP server startup procedure
$! before actually starting-up the HTTPd.
$!
$! NOTE that using this procedure will cause (almost certainly undesireable)
$! interactions between WASD and OSU on sites that are attempting to run both.
$!
$! As there seems no way to instantiate DECnet objects into non-system-wide
$! enviroments this procedure just exits if it detects it is executing in
$! any but the primary WASD environment.
$!
$! Copyright (C) 1996-2009 Mark G.Daniel
$! This program, 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 3, or later version.
$! http://www.gnu.org/licenses/gpl.txt
$!
$! VERSION HISTORY
$! ---------------
$! 06-JUL-2009 MGD v10 and pre-v10 logical names
$! WASD autonomous environments
$! 17-JUL-1998 MGD renamed from STARTUP_OSU.COM
$! 10-JAN-1998 MGD initial
$!-----------------------------------------------------------------------------
$!
$ wasd_root = f$trnlnm("WASD_ROOT")
$ if f$trnlnm("WASD_ROOT") .eqs. "" then wasd_root = f$trnlnm("HT_ROOT")
$ if wasd_root .eqs. ""
$ then
$ say "%STARTUP_DECNET-E-WASD_ROOT, problem with WASD_ROOT logical"
$ exit %X10000014
$ endif
$!
$ if f$type(P1) .eqs. "INTEGER"
$ then
$ if P1 .gt. 15
$ then
$ write sys$output "%STARTUP_DECNET-E-ENV, out-of-range"
$ exit %X10000014
$ endif
$ if P1 .ge. 2
$ then table_is = "/table=WASD_TABLE_" + f$string(P1)
$ else table_is = "/table=WASD_TABLE"
$ endif
$ else
$ if P1 .eqs. "LNM$SYSTEM"
$ then
$ table_is = "/table=LNM$SYSTEM"
$ else
$! (if WASD_TABLE exists assume we actually want to use it)
$ if f$trnlnm("WASD_TABLE","LNM$SYSTEM_DIRECTORY",0,"EXECUTIVE",,"TABLE")
$ then table_is = "/table=WASD_TABLE"
$ else table_is = "/table=LNM$SYSTEM"
$ endif
$ endif
$ endif
$!
$! -----------------
$! OSU Logical Names
$! -----------------
$!
$ www_root = wasd_root - ".]" + ".SRC.OSU]"
$ define /nolog /executive 'table_is' /trans=concealed WWW_ROOT 'www_root'
$ define /nolog /executive 'table_is' HTBIN CGI-BIN:[000000]
$!(allows the OSU v3.3a WWWEXEC.COM to reuse DECnet connections)
$ define /nolog /executive 'table_is' WWW_SCRIPT_MAX_REUSE 999
$!
$! --------------------
$! object logical names
$! --------------------
$!
$!(exit here if these system-wide logical names already defined)
$ if f$trnlnm("WASD_DECNET_CGI_OBJECT") .nes. "" .and. -
f$trnlnm("WASD_DECNET_OSU_OBJECT") .nes. "" then exit
$!
$ wasd_cgi_decnet_object = wasd_root - ".]" + ".CGI-BIN]CGIWASD.COM"
$ define /nolog /system /exec WASD_DECNET_CGI_OBJECT 'wasd_cgi_decnet_object'
$!
$ osu_cgi_decnet_object = wasd_root - ".]" + ".CGI-BIN]WWWEXEC.COM"
$ define /nolog /system /exec WASD_DECNET_OSU_OBJECT 'osu_cgi_decnet_object'
$!
$ if f$search("SYS$SYSTEM:NCL.EXE") .nes. ""
$ then
$! -----------------------------
$! DECnet-Plus (Phase-V) Objects
$! -----------------------------
$ MCR NCL
!
! WASD CGI object
!
CREATE NODE 0 SESSION CONTROL APPLICATION CGIWASD
SET NODE 0 SESSION CONTROL APPLICATION CGIWASD ADDRESSES = {NAME=CGIWASD} -
,CLIENT = -
,INCOMING ALIAS = TRUE -
,INCOMING PROXY = TRUE -
,OUTGOING ALIAS = FALSE -
,OUTGOING PROXY = TRUE -
,NODE SYNONYM = TRUE -
,IMAGE NAME = WASD_DECNET_CGI_OBJECT -
,INCOMING OSI TSEL =
!
! OSU object
!
CREATE NODE 0 SESSION CONTROL APPLICATION WWWEXEC
SET NODE 0 SESSION CONTROL APPLICATION WWWEXEC ADDRESSES = {NAME=WWWEXEC} -
,CLIENT = -
,INCOMING ALIAS = TRUE -
,INCOMING PROXY = TRUE -
,OUTGOING ALIAS = FALSE -
,OUTGOING PROXY = TRUE -
,NODE SYNONYM = TRUE -
,IMAGE NAME = WASD_DECNET_OSU_OBJECT -
,INCOMING OSI TSEL =
$!
$ else
$! -----------------------
$! DECnet Phase-IV Objects
$! -----------------------
$ MCR NCP
! WASD CGI object (volatile)
SET OBJECT CGIWASD NUMBER 0 FILE WASD_DECNET_CGI_OBJECT
! OSU object (volatile)
SET OBJECT WWWEXEC NUMBER 0 FILE WASD_DECNET_OSU_OBJECT
$!
$ endif
$!
$! -----------------------
$! NETSERVER logical names
$! -----------------------
$!
$!(uncomment either of these definitions as appropriate)
$!! define /nolog /system NETSERVER$TIMEOUT "0 00:00:30"
$!! define /nolog /system NETSERVER$SERVERS_HTTP$SERVER 5
$!
$!-----------------------------------------------------------------------------