In the KERNEL SYSTEM PARAMETERS file set DEFAULT AUTO SIGN-ON to Disabled.
Similarly in the NEW PERSON file, set AUTO SIGN-ON to No (or null) for the
selected user or create a new user with the desired characteristics. It
shouldn't be necessary to modify any code.
Lloyd
----- Original Message -----
From: "Nancy E. Anthracite" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 15, 2004 4:14 PM
Subject: Re: [Hardhats-members] CPRS Demo auto-login rationale/difficulty...
> OK Gurus, here is the ZU code from the demo. Do we just put in a "real"
ZU
> routine or what?
>
> ZU ;SF/JLI,RWF - For GT.M, TIE ALL TERMINALS TO THIS ROUTINE!! ;06 May
2003
> 1:29 pm
> ;;8.0;KERNEL;**275**;Jul 10, 1995
> ; for GT.M for VMS & Unix, version 4.3
> ;
> EN ;See that escape processing is off, Conflict with Screenman
> U $P:(NOCENABLE:NOESCAPE)
> D:+$G(^%ZTSCH("LOGRSRC")) LOGRSRC^%ZOSV("$LOGIN$")
> N $ESTACK,$ETRAP S $ETRAP="D ERR^ZU Q:$QUIT -9 Q"
> S $ZINTERRUPT="I $$JOBEXAM^ZU($ZPOSITION)"
> D COUNT^XUSCNT(1)
> G ^XUS
> ;
> G ;Entry point for GUI device.
> Q
> ;
> ERR ;Come here on error
> ; handle stack overflow errors specially
> I $P($ZS,",",3)["STACKOFLOW" S $ET="Q:$ST>"_($ST-8)_" D ERR2^ZU" Q
> ;
> ERR2 S $ETRAP="D UNWIND^ZU" L U $P:NOCENABLE
> ;
> Q:$ECODE["<PROG>"
> I $P($ZS,",",2,3)["^XUS1A:2, %GTM-E-IOWRITERR" G HALT
> ;
> I $G(IO)]"",$D(IO(1,IO)),$E($G(IOST))="P" D
> . U IO
> . W @$S($D(IOF):IOF,1:"#")
> I $G(IO(0))]"" D
> . U IO(0)
> . W !!,"RECORDING THAT AN ERROR OCCURRED ---"
> . W !!?15,"Sorry 'bout that"
> . W !,*7
> . W !?10,"$STACK=",$STACK," $ECODE=",$ECODE
> . W !?10,"$ZSTATUS=",$ZSTATUS
> ;
> D ^%ZTER K %ZT S XUERF="" ; Capture symbol table first!
> ;
> I $G(DUZ)'>0 G HALT
> ;
> CTRLC I $D(IO)=11 U IO(0) C:IO'=IO(0) IO S IO=IO(0)
> W:$P($ZS,",",3)["-CTRLC" !,"--Interrupt Acknowledged",!
> D KILL1^XUSCLEAN ;Clean up symbol table
> S $ECODE=",<<POP>>,"
> Q
> ;
> UNWIND ;Unwind the stack
> Q:$ESTACK>1 G CONT:$ECODE["<<HALT>>",CTRLC2:$ECODE["<<POP>>"
> S $ECODE=""
> Q
> ;
> CTRLC2 S $ECODE="" G:$G(^XUTL("XQ",$J,"T"))<2 ^XUSCLEAN
> S ^XUTL("XQ",$J,"T")=1,XQY=$G(^(1)),XQY0=$P(XQY,"^",2,99)
> G:$P(XQY0,"^",4)'="M" CTRLC2
> S XQPSM=$P(XQY,"^",1),XQY=+XQPSM,XQPSM=$P(XQPSM,XQY,2,3)
> G:'XQY ^XUSCLEAN
> S $ECODE="",$ETRAP="D ERR^ZU Q:$QUIT 0 Q"
> U $P:NOESCAPE G M1^XQ
> ;
> HALT I $D(^XUTL("XQ",$J)) D:$G(DUZ)>0 BYE^XUSCLEAN
> D COUNT^XUSCNT(-1)
> I '$ESTACK G CONT
> S $ETRAP="D UNWIND^ZU" ;Set new trap
> S $ECODE=",<<HALT>>," ;Cause error to unwind stack
> D:+$G(^%ZTSCH("LOGRSRC")) LOGRSRC^%ZOSV("$LOGOUT$")
> Q
> CONT ;
> S $ECODE="",$ETRAP=""
> D:+$G(^%ZTSCH("LOGRSRC")) LOGRSRC^%ZOSV("$LOGOUT$")
> I $D(XQXFLG("HALT")) HALT
> I ($PRINCIPAL["_TNA") HALT ;Check for TelNet
> S X="Waiting "_($J#1000000) D SETENV^%ZOSV ;Change VMS name
> ;For sites that want to retain the connection, uncomment the next line
> ;U $P:NOCENABLE R !,"Enter return to continue: ",X:600 S:'$T X="^"
G:X'="^"
> ^ZU
> HALT
> ;
> JOBEXAM(%ZPOS) ;
> S ^XUTL("XUSYS",$J,0)=$H,^XUTL("XUSYS",$J,"INTERRUPT")=$G(%ZPOS)
> ZSHOW "S":^XUTL("XUSYS",$J,"JE")
> I $G(^XUTL("XUSYS","COMMAND"))="EXAM" ZSHOW "*":^XUTL("XUSYS",$J,"JE")
> Q 1
> ;
>
>
>
> On Friday 15 October 2004 03:15 pm, Steve Wagner wrote:
> > I've been working with the CPRS demo database, and find it frustrating
> > that I am randomly auto-logged in as different doctors each time. I
> > should think this is done intentionally, perhaps because we don't want
> > to worry about remembering passwords for dummy users? Anyway...
> >
> > Normally, I would never "give" a demo unless I could carefully
> > orchestrate each keystroke and mouseclick beforehand so there are no
> > "surprises" in the demo. Auto-login prevents me from practicing for a
> > demo and making the demo repeatable.
> >
> > Is there a way to turn off auto-login so that I can practice on a
> > specific flow for my demo?
> >
> > By the way, it isn't just CPRS that does the auto-login, if I do D ^ZU
> > in the terminal, I get auto-logged to a random doc also.
> >
> > Steve Wagner
> >
> >
> >
> > -------------------------------------------------------
> > This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
> > Use IT products in your business? Tell us what you think of them. Give
us
> > Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out
more
> > http://productguide.itmanagersjournal.com/guidepromo.tmpl
> > _______________________________________________
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
> --
> Nancy Anthracite
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
> Use IT products in your business? Tell us what you think of them. Give us
> Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out
more
> http://productguide.itmanagersjournal.com/guidepromo.tmpl
> _______________________________________________
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
-------------------------------------------------------
This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
Use IT products in your business? Tell us what you think of them. Give us
Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
http://productguide.itmanagersjournal.com/guidepromo.tmpl
_______________________________________________
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
