[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]

$! CGI_SYMBOLS.COM
$! (shows more detailed information if made subject to authorization)
$!
$ write sys$output "Content-Type: text/plain"
$ write sys$output "Script-Control: X-buffer-records"
$ write sys$output ""
$!
$ SysNet = f$trnlnm("SYS$NET")
$ if SysNet .nes. "" .and. f$extract(0,4,SysNet) .nes. "_MBA" 
$    then DECnet = 1
$    else DECnet = 0
$ endif
$!
$ if DECnet
$ then
$    write sys$output f$fao("!17*-!/DECnet CGI script!/!17*-!/") 
$ else
$    if f$getjpi("","master_pid") .eqs. f$getjpi("","pid")
$       then write sys$output f$fao("!27*-!/Detached process CGI script!/!27*-!/") 
$       else write sys$output f$fao("!21*-!/Subprocess CGI script!/!21*-!/") 
$    endif
$ endif
$!
$ remuser = ""
$ if f$type(www_server_software) .nes. ""
$ then
$    if f$type(www_remote_user) .nes. "" then remuser = www_remote_user
$ else
$    if f$type(remote_user) .nes. "" then remuser = remote_user
$ endif
$ if remuser .eqs. ""
$ then
$!   (not subject to authorization)
$    delete /symbol remuser
$    write sys$output ""
$    if f$type(www_server_software) .nes. ""
$       then show symbol www_*
$       else show symbol *
$    endif
$    if DECnet
$    then
$       write sys$output f$fao("!/!34*-!/How do we know it's really DECnet?!/!34*-!/!/") 
$       show logical /process sys$output
$    endif
$ else
$!   (subject to authorization)
$    delete /symbol remuser
$    show process 
$    write sys$output f$fao("!/!11*-!/CGI symbols!/!11*-!/!/") 
$    if f$type(www_server_software) .nes. ""
$       then show symbol www_*
$       else show symbol *
$    endif
$    if f$type(www_server_software) .nes. ""
$    then
$       write sys$output f$fao("!/!15*-!/All DCL symbols!/!15*-!/!/") 
$       show symbol *
$    endif
$    if DECnet
$    then
$       write sys$output f$fao("!/!34*-!/How do we know it's really DECnet?!/!34*-!/!/") 
$       show logical /process sys$output
$       show logical /job sys$rem_*
$    endif
$ endif