From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 20-JUL-1989 12:35
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Problems with Bruce Tanner's Decwindows hack"

Message-Id:  <8907201631.AA05745@crdgw1.ge.com>
Received: From KL.SRI.COM ([0.0.0.0]) by CRVAX.SRI.COM with TCP; Thu, 20 JUL 89 09:05:02 PDT
Received: from icsa.rice.edu by KL.SRI.COM with TCP; Thu, 20 Jul 89 09:02:15 PDT
Received: from LSUVAX.SNCC.LSU.EDU by icsa.rice.edu (IBM VM SMTP R1.2.1) with BSMTP id 0027; Thu, 20 Jul 89 10:33:23 CDT
Date: Thu, 20 Jul 89 10:35 CDT
From: "Michael_Jacobson, Networks Manager, L.S.U."
 <JACOBSON@LSUVAX.SNCC.LSU.EDU>
Subject: Problems with Bruce Tanner's Decwindows hack"
To: info-vax@kl.sri.com
X-Vms-To: IN%"info-vax@kl.sri.com"

We have been using Bruce Tanners "hack" to decwindows that uses a decnet object
to create windows on the satellites for a process running on our 8800. (I did
not even believe it till I saw it happen myself!) The decnet object invokes the
com file DECW_SERVER.com. We have a strange problem that I can not explain. If
a user logins into one satellite with decwindows and he invokes
DECW_STARTUP.COM in his DECW$LOGIN.COM and then goes to a second satellite and
logins on decwindows on the second satellite before the first sattelite has
finished creating all the windows he asks for in his DECW_STARTUP.COM, he does
not get any windows created on the second satellite. Instead he gets two sets
of windows on the first satellite. The problem seems to be the translation of
the logical SYS$REM_NODE. If links from two different nodes end up using the
same netserver process is this logical not redefined when the second node
create its link? Anyone got any suggestions on what I have done wrong?

Note: To get this to work I had to define proxy logins for the accounts
otherwise it would try to use the default decnet account and then the
decwindows server would reject the connection because the decnet account is not
listed in the users security listing for decwindows. Can I turn proxy access
off for this one object?

-----------------------------
$!DECW_STARTUP.COM
$!WAIT FOR SESSION MANAGER TO ESTABLISH SECURITY
$  @LSU_TOOLS:DECW_WAIT
$! START A DECTERM
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
DECterm
$! run fileview
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
run sys$system:vue$master
$! run mail
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
run sys$system:decw$mail
$! run calendar
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
run sys$system:decw$calendar
$! run cardfiler
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
run sys$system:decw$cardfiler
$! run clock
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
run sys$system:decw$clock
$! run clock
$  COPY/NOLOG SYS$INPUT LSUVAX::"0=DECW_SERVER"
notes
$!
$LAFIN:
$  exit
----------------------
$! decw_server.com - set display and execute command
$ set noon
$ time = f$extract(18,4,f$time()) - "."
$ node = f$trnlnm("sys$rem_node") - "::"
$ pid = f$extract(4,4,f$getjpi("","pid"))
$ login = f$trnlnm("sys$login")
$ open network sys$net
$ read network prog
$ close network
$ if prog .eqs. "DECterm" ! special case, already runs detached
$ then
$  write sys$output "Create DECterm for node " + node
$  @lsu_tools:remote_decterm 'node'
$  exit
$ endif
$ open/write out decw_server_'pid''time'.com
$ write out "$ set noon"
$ write out "$ delete decw_server_" + pid + time + ".com;*"
$ write out "$ define/job sys$login ''login'"
$ write out "$ set display/crea/node=''node'"
$ write out "$ ''prog'"
$ write out "$ set display/noperm"
$ close out
$ type decw_server_'pid''time'.com
$ run/det/authorize/input=decw_server_'pid''time'.com/output=nl: -
     /process="Server_''pid'''time'" sys$system:loginout
$ exit


