Conference bulova::decw_jan-89_to_nov-90

    Re: .1
    
    Your default width is very unfriendly to those of us running 80
    columns.
    
    							-Dave

Hmmm.  Sorry.  I'm using DECW Notes on a 100DPI screen, and don't have all
the widths set up right.

Burns

Well, we officially don't support captive accounts.  There were too many odd
things that we had to account for.  If your account would be willing to have the
person log on, though, I suppose you could put the appropriate commands to run
the application in DECW$LOGIN.COM, and then never exit from DECW$LOGIN.COM (thus
you never run the session manager, and thus can't get terminals).  I would not
guarantee anything about this being secure against malacious users, but it
should do about the right thing on the surface. 

Heck, for that matter, they could start their application from SYSTARTUP to
prevent the user from having to log in. 

Burns

>person log on, though, I suppose you could put the appropriate commands to run
>the application in DECW$LOGIN.COM, and then never exit from DECW$LOGIN.COM (thus
>you never run the session manager, and thus can't get terminals).  I would not



I tried this:  
	DECW$LOGIN.COM:

	$ run RZAudit
	$ logout

I log in from the start session screen. My application runs fine, (aside from
the watch cursor, which I guess the application will have to fix :-)

Upon exiting the application, I expected to get back to the start session screen
again but all I get is a blank screen with the icon box and nothing else!
(then requires a forcefull reboot!)

QUESTION:

How can I let a user log into an account via DECwindows start session screen,
then, in that account only, run an application. When the application exits,
I want to be back at the start session screen - i.e. NO user access
to anything other than the application!

John

re: .5

Try this DECW$LOGIN.COM

$ set noon
$ run sys$system:decw$clock
$loop:
$ p = f$pid(i)
$ if p .eqs. "" then logout
$ image = f$parse("''f$getjpi(p,"imagname")'",,,"name",)
$ if image .nes. "DECW$WINMGR" then goto loop
$ stop/id='p'
$ run sys$system:decw$startlogin		!needs priv's
$ logout
$ exit 1


Sean

Works Like a charm! 

Just so I understand,

It's the Window Manager that hangs onto the display, keeping it from
being destroyed?

And then since you logout without going through the session manager, you
need to re-run the startsession stuff.

In any case, Thanks!

John

re: .-1

I believe that the session manager stops the window manager and runs the
decw$startlogin image when you quit so that you get the login window back.


Sean

I've got the same 'captive user' problem to solve, except the customer's
captive menu system is a DCL command procedure... the login.com procedure of
the captive user, as a matter of fact.  

What the customer would like to happen is that when this special account
(operator's BACKUP account) logs in, no fileview or session manager gets
started.  Instead, a DECterm window gets created and runs the captive login.com
procedure.  Then after the captive user selects 'LOGOUT' from his menu, the
DECWindows Login screen reappears.

Something deep down inside tells me this should be amazingingly simple and I'm
gonna feel stupid when I find out the answer.  Nevertheless, customer
satisfaction demands that I make that sacrifice.  (What a martyr I am, huh?)

Any help you can provide would be greatly appreciated.  I may even include you
in my memoirs.  :-)

					John

re: .-1

From previous notes CHILD would be greate for this but it doesn't look like you
can use it because of some of the undocumented things it does.  I have a C
program that will create a decterm window and you can even tell it here is the
command file to use.  This program uses the document DECwTermPort interface
to create the decterm and the rest is just plain old vms system service calls.


Sean

Well..........(as we wait with baited breath)

Would it be possible for you to post source ??

				-=> Jim <=-

re: .11

Copy it from ATSE::USER3:[DAVDISON._C]DECW$CRETERM.C and DECW$CRETERM.COM

I hate coming across long notes with with DECwindows VAXnotes.


Sean

> Copy it from ATSE::USER3:[DAVDISON._C]DECW$CRETERM.C and DECW$CRETERM.COM
                               \/
                                \ 
           Don't you just hate it when your keyboard does this ??

  :^)

				-=> Jim <=-

re: .-1

> Copy it from ATSE::USER3:[DAVDISON._C]DECW$CRETERM.C and DECW$CRETERM.COM
>                              \/
>                               \ 
>          Don't you just hate it when your keyboard does this ??
>
>  :^)
>
>				-=> Jim <=-

Opps!  ATSE::USER3:[DAVIDSON._C]


Sean

Sean,

Thanks for posting the program DECW$CRETERM.C. It's a nice program.

I modified your command procedure mentioned in 564.6. My intention was to
invoke DECW$CRETERM to create a DECterm after login. The result was that
no DECterm was created and the session logout immediately after login.

$ set noon
$!
$ decterm = "$decw$creterm"
$ decterm -interactive
$!
$loop:
$ p = f$pid(i)
$ if p .eqs. "" then logout
$ image = f$parse("''f$getjpi(p,"imagname")'",,,"name",)
$ if image .nes. "DECW$WINMGR" then goto loop
$ stop/id='p'
$ run sys$system:decw$startlogin		!needs priv's
$ logout
$ exit 1

Any suggestion ?

Regards
Nick

Nick,

	You need to get the decterm controller (DECW$TE_1) running before
	creating a terminal window.

	You can do this with the -local switch.

$ decterm = "$decw$creterm"
$ decterm -local mynode-name -interactive

	Try this and see how it works out.


Sean

	I used your ideas/code to create a captive account to do some simple

system management jobs for remote satellites from our LAVC (captive login.com).

It works well on VWS but I also need it for DECwindows. 

Below is a printout of the log file, command procedure and directory.

Any help would be much appreciated...

VMS v5.1, DECwindows V1.0 (SDC)

			******* DECW$SM.LOG *******


 %SET-I-NEWLIMS, new working set:  Limit = 200  Quota = 200  Extent = 3100

 DECwTermPort failed with a status code of 2312 

 WEM          logged out at 10-AUG-1989 17:48:30.20


$!	*************  DECW$LOGIN.COM   ****************
$!
$ set noon
$ This_Node = F$Getsyi("NODENAME")
$ uic = f$user()
$ Here = f$trnlog("sys$login")
$!
$!
$ decterm = "$''Here'decw$creterm.exe"
$ decterm -local 'This_Node' -interactive
$!
$loop:
$ p = f$pid(i)
$ if p .eqs. "" then goto loop_2
$ if  f$getjpi(p,"UIC") .nes. uic then goto loop
$ if f$getjopi(p,"prcnam") .nes. "" then goto loop
$!
$sec_loop:
$ on warning then goto exit
$ wait 00:00:03
$ show process /id='p'/output=nl:
$ goto sec_loop
$!
$exit:
$loop_2:
$ p = f$pid(k)
$ if p .eqs. "" then goto restart
$ image = f$parse("''f$getjpi(p,"imagname")'",,,"name",)
$ if image .nes. "DECW$WINMGR" then goto loop_2
$ stop/id='p'
$!
$restart:
$run sys$system:decw$startlogin		!needs priv's
$
$logout:
$ logout


	       ******  Directory FNYMV7$DUA1:[WEM] ******

                       Workstation Environment Menu

DECW$CRETERM.EXE;1       17/18       9-AUG-1989 15:23:47.00  [WEM]            
DECW$LOGIN.COM;1          2/3       10-AUG-1989 17:36:39.97  [WEM]            
DECW$SM.LOG;1             1/3       10-AUG-1989 17:46:59.52  [WEM]            
LOGIN.COM;1              20/21       9-AUG-1989 16:20:50.66  [WEM]
SETWIN.EXE;1             11/12      27-JUL-1988 15:16:17.28  [WEM]