
DIRECTORY
Commander USING [CommandProc, Handle, Register],
CommanderBackdoor USING [AdamOrEve],
EnvironmentVariables USING [Get],
InstallationComforts USING [ProcName],
IO,
Rope USING [Concat, Length, ROPE],
RuntimeError USING [UnboundProcedureFault, UNCAUGHT],
SimpleFeedback USING [Append],
SystemSite USING [Get, Names, Set],
TypeScript USING [BackSpace, IsATypeScript],
ViewerClasses USING [Viewer],
ViewerIO USING [GetViewerFromStream],
XNSAuth USING [AuthenticationError, CallError, GetIdentityDetails, Identity, MakeIdentity, Name],
XNSCHName USING [Name, NameFromRope, RopeFromName],
XNSCredentials;

XNSCredentialsImpl: CEDAR MONITOR 
IMPORTS Commander, CommanderBackdoor, EnvironmentVariables, InstallationComforts, IO, Rope, RuntimeError, SimpleFeedback, SystemSite, TypeScript, ViewerIO, XNSAuth, XNSCHName
EXPORTS XNSCredentials ~ {

ROPE: TYPE ~ Rope.ROPE;
XNSCredentialsChangeProc: TYPE ~ XNSCredentials.XNSCredentialsChangeProc;
Identity: TYPE = XNSAuth.Identity;
currentIdentity: Identity м NIL;

GetIdentity: PUBLIC ENTRY PROC RETURNS [Identity] ~
{ RETURN[currentIdentity] };

SetIdentity: PUBLIC ENTRY PROC[id: XNSAuth.Identity] ~ {
ENABLE UNWIND => NULL;
InternalSetIdentity[id, XNSAuth.GetIdentityDetails[id].name];
};

XNSLoginFromNameAndPassword: PUBLIC ENTRY PROC[name, password: ROPE,
strongCredentials: BOOL м TRUE]
RETURNS[identityWasSet: BOOL м FALSE] ~ {
ENABLE UNWIND => NULL;
xnsName: XNSCHName.Name;
{
ENABLE {
XNSAuth.AuthenticationError =>  GOTO notDone;
XNSAuth.CallError => GOTO notDone;
};
IF ( name # NIL ) AND ( password # NIL ) THEN {
newId: XNSAuth.Identity;
xnsName м XNSCHName.NameFromRope[name];
newId м XNSAuth.MakeIdentity[xnsName, password, IF strongCredentials THEN strong ELSE simple, TRUE]; 
InternalSetIdentity[newId, xnsName];
RETURN[TRUE];
};
EXITS notDone => RETURN[FALSE];
};
};

XNSLogin: Commander.CommandProc = {
[] м ReallyDoLogin[cmd: cmd, strongCredentials: TRUE, source: NARROW[cmd.procData.clientData]];
};

SimpleLogin: Commander.CommandProc = {
[] м ReallyDoLogin[cmd: cmd, strongCredentials: FALSE, source: NARROW[cmd.procData.clientData]];
};

DoLogin: PUBLIC PROC[cmd: Commander.Handle, strongCredentials: BOOL]
RETURNS[identityWasSet: BOOL м FALSE] = {
RETURN[ReallyDoLogin[cmd, strongCredentials]];
};

ReallyDoLogin: ENTRY PROC[cmd: Commander.Handle, strongCredentials: BOOL, source: ATOMмNIL]
RETURNS[identityWasSet: BOOL м FALSE] = {
ENABLE UNWIND => NULL;
name, passwd: Rope.ROPE;
xnsName: XNSCHName.Name;
IF source=$keyboard THEN
cmd м CommanderBackdoor.AdamOrEve[cmd]; -- Use original in/out streams
BEGIN ENABLE BEGIN
XNSAuth.AuthenticationError =>  {
what: Rope.ROPE м SELECT problem FROM
credentialsInvalid => "credentialsInvalid",
verifierInvalid => "verifierInvalid",
verifierExpired => "verifierExpired",
verifierReused => "verifierReused",
credentialsExpired => "credentialsExpired",
inappropriateCredentials => "inappropriateCredentials",
ENDCASE => IO.PutFR1["\nUnknown error (%g)\n", [integer[ORD[problem]]] ];
cmd.out.PutF1["\nXNSAuth.AuthenticationError (%g)\n", [rope[what]] ];
GOTO notDone;
};
XNSAuth.CallError => {
IF ( problem = strongKeyDoesNotExist ) AND ( whichArg = initiator ) THEN
cmd.out.PutF1["\nXNSAuth.CallError: %g is probably an invalid name\n", [rope[XNSCHName.RopeFromName[xnsName]]] ]
ELSE {
what: Rope.ROPE м SELECT problem FROM
tooBusy => "tooBusy",
accessRightsInsufficient => "accessRightsInsufficient",
keysUnavailable => "keysUnavailable",
strongKeyDoesNotExist => "strongKeyDoesNotExist",
simpleKeyDoesNotExist => "simpleKeyDoesNotExist",
strongKeyAlreadyRegistered => "strongKeyAlreadyRegistered",
simpleKeyAlreadyRegistered => "simpleKeyAlreadyRegistered",
domainForNewKeyUnavailable => "domainForNewKeyUnavailable",
domainForNewKeyUnknown => "domainForNewKeyUnknown",
badKey => "badKey",
badName => "badName",
databaseFull => "databaseFull",
other => "other catchall error",
ENDCASE => IO.PutFR1["\nUnknown XNSAuth.CallError.problem (%g)\n", [integer[ORD[problem]]] ];
which: Rope.ROPE м SELECT whichArg FROM
notApplicable => "notApplicable",
initiator => "initiator",
recipient => "recipient",
client => "client",
ENDCASE => IO.PutFR1["\nUnknown XNSAuth.CallError.whichArg (%g)\n", [integer[ORD[whichArg]]] ];
cmd.out.PutF["\nXNSAuth.CallError: problem %g, whichArg: %g\n",
[rope[what]], [rope[which]] ];
};
GOTO notDone;
};
END;
name м PromptForLine[in: cmd.in, out: cmd.out, prompt: "user name", echo: TRUE];
IF name = NIL THEN RETURN;
passwd м PromptForLine[in: cmd.in, out: cmd.out, prompt: "password", echo: FALSE];
IF passwd = NIL THEN RETURN;
IF ( name # NIL ) AND ( passwd # NIL ) THEN {
newId: Identity;
xnsName м XNSCHName.NameFromRope[name];
newId м XNSAuth.MakeIdentity[xnsName, passwd, IF strongCredentials THEN strong ELSE simple, TRUE]; 
InternalSetIdentity[newId, xnsName];
RETURN[TRUE];
};
EXITS notDone => NULL;
END;
};

PromptForLine: PROC [in, out: IO.STREAM, prompt: Rope.ROPE, echo: BOOL м TRUE]
RETURNS [line: Rope.ROPE м NIL] ~ {
lookHidden: IO.Value ~ IO.rope["h"];
lookShiftHidden: IO.Value ~ IO.rope["H"];
TypeScriptHackery: PROC ~ {
ENABLE RuntimeError.UnboundProcedureFault => { GOTO NoViewers };
viewer: ViewerClasses.Viewer ~ ViewerIO.GetViewerFromStream[out];
out.PutF1["%l", lookShiftHidden];
IF TypeScript.IsATypeScript[viewer] THEN {
TypeScript.BackSpace[viewer, line.Length[] + 1];
out.PutRope["****\n"];
in.Reset[];
};
EXITS NoViewers => { NULL };
};
IO.PutF1[out, "  %g: ", [rope[prompt]]];
IF NOT echo THEN {
IO.PutF1[out, "%l", lookHidden];
};
BEGIN ENABLE UNWIND => IF NOT echo THEN out.PutF1["%l", lookShiftHidden];
BEGIN ENABLE BEGIN
IO.EndOfStream => CONTINUE;
IO.Rubout => {
IF NOT echo THEN out.PutF1["%l", lookShiftHidden];
out.PutRope[" <del>\n"];
in.Reset[];
CONTINUE;
};
END;
line м IO.GetLineRope[in];
END;
IF line = NIL THEN {
IF NOT echo THEN out.PutF1["%l", lookShiftHidden];
RETURN;
};
IF NOT echo THEN TypeScriptHackery[];
END;
};

RegisterForChange: PUBLIC ENTRY PROC [proc: XNSCredentialsChangeProc,
clientData: REF ANY м NIL] = {
procList м CONS[[proc, clientData], procList];
};

changeProc: TYPE = RECORD[proc: XNSCredentialsChangeProc, clientData: REF ANY];
procList: LIST OF changeProc м NIL;

InternalSetIdentity: INTERNAL PROC [this: Identity, xnsName: XNSCHName.Name] ~ {
currentIdentity м this;
SystemSite.Set[ [ SystemSite.Get[].registry, xnsName.domain, xnsName.organization ] ];
FOR pL: LIST OF changeProc м procList, pL.rest UNTIL pL = NIL DO
pL.first.proc[this, pL.first.clientData ! RuntimeError.UNCAUGHT => {
SimpleFeedback.Append[$XNSCredentials, $oneLiner, $info, Rope.Concat["\tUncaught error while executing XNSCredentialsChangeProc: ", InstallationComforts.ProcName[pL.first.proc]] ];
CONTINUE
 }];
ENDLOOP;
};

GetIdentityName: Commander.CommandProc = {
name: XNSAuth.Name ~ XNSAuth.GetIdentityDetails[GetIdentity[]].name;
IO.PutRope[cmd.out, XNSCHName.RopeFromName[name]];
IO.PutRope[cmd.out, "\n"];
};

PrintSystemSiteValues: Commander.CommandProc = {
names: SystemSite.Names м SystemSite.Get[];
cmd.out.PutF["\nSystemSite [domain: %g, organization: %g]\n", [rope[names.domain]], [rope[names.organization]] ];
};

SetDefaults: PROC = {
envDom, envOrg: ROPE;
defaultNames: SystemSite.Names м SystemSite.Get[];
envDom м EnvironmentVariables.Get["XNSDOMAIN"];
envOrg м EnvironmentVariables.Get["XNSORG"];

IF envDom # NIL THEN defaultNames.domain м envDom;
IF envOrg # NIL THEN defaultNames.organization м envOrg;
SystemSite.Set[defaultNames];
};

Commander.Register[ "GetIdentityName", GetIdentityName];
Commander.Register[ "PrintSystemSiteValues", PrintSystemSiteValues];
Commander.Register[ "XNSUser", GetIdentityName];

Commander.Register[ "XNSLogin", XNSLogin, "Allows one to set one's xns credentials"];
Commander.Register[ "SimpleLogin", SimpleLogin, "Allows one to set one's simple xns credentials"];
Commander.Register[ "XNSLoginFromKeyboard", XNSLogin, "Allows one to set one's xns credentials", $keyboard];
Commander.Register[ "SimpleLoginFromKeyboard", SimpleLogin, "Allows one to set one's simple xns credentials", $keyboard];
SetDefaults[];
}.


      
XNSCredentialsImpl.mesa
Copyright ╙ 1989, 1990, 1991, 1992, 1993 by Xerox Corporation.  All rights reserved.
Willie-sue, March 27, 1992 5:12 pm PST
Bill Jackson (bj), May 22, 1990 7:37 pm PDT
Swinehar, December 4, 1990 2:23 pm PST
Michael Plass, February 10, 1992 4:35 pm PST
Christian Jacobi, March 15, 1993 1:10 pm PST
Credentials keeping
Swinehart December 4, 1990 2:16:04 pm PST: Added XNSLoginFromKeyboard and SimpleLoginFromKeyboard commands, which set source=$keyboard.  There is no programming interface to this capability yet.
 Э╩	C  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬЩIcodeЪЬ
╧eЬIЩTKЩ&KЩ+KЩ&KЩ,KЩ,KШ ЧЪ╧k	Ш	KЪЬ
ЮЬ!Ш0KЪЬЮЬШ$KЪЬЮЬШ!KЪЬЮЬШ&KЪЮЬШKЪЬЮЬЮЬШ"KЪЬЮЬЮЬШ5KЪЬЮЬ
ШKЪЬЮЬШ#KЪЬЮЬШ,KЪЬЮЬ
ШKЪЬ	ЮЬШ%KЪЬЮЬTШaKЪЬ
ЮЬ$Ш3KШKШ ЧЪ╨blЬЮЬЮЬШ"KЪЮЬKЮЬZШоЪЮЬШKШ ЧKЪЮЬЮЬЮЬШKЪЬЮЬ+ШIheadЩKЪЬ
ЮЬШ"KЪЬЮЬШ KШ Ъ
╧nЬЮЬЮЬЮЬЮЬШ3KЪЬЮЬШKШ ЧЪаЬЮЬЮЬЮЬШ8KЪЮЬЮЬЮЬШKЪЬ=Ш=KШKШ ЧЪаЬЮЬЮ
ЬЮЬЮЬЮЬШdKЪЮЬЮЬЮЬШ)KЪЮЬЮЬЮЬШKШЪЬШЪЮЬШKЪЬ ЮЬ	Ш-KЪЬЮЬ	Ш"KШЧЪ
ЮЬ
ЮЬЮЬЮЬЮЬШ/KЪЬШKШ'KЪ	Ь0ЮЬЮЬЮЬ	ЮЬШeKЪЬ$Ш$KЪЮЬЮЬШKШЧKЪЮЬЮЬЮЬШKШЧKШЧKШ ЪаЬШ#KЪЬ0ЮЬ
ЮЬШ_KЪЬШKШ ЧЪаЬШ&KЪЬ0ЮЬ
ЮЬШ`KЪЬШKШ ЧЪаЬЮЬЮЬ+ЮЬЮЬЮЬЮЬШnKЪЮЬ(Ш.KШKШ ЧЪаЬЮЬЮЬ+ЮЬ
ЮЬЮЬЮЬЮЬЮЬШЕKЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬШKЩ┬ЪЮЬЮШKЪЬ(╧cШFЧЪЮЬЮЬЮШЪЬ!Ш!ЪЬЮЬЮЬ	ЮШ%KЪЬ+Ш+KЪЬ%Ш%KЪЬ%Ш%KЪЬ#Ш#KЪЬ+Ш+KЪЬ7Ш7KЪЮЬЮЬ+ЮЬШIЧKШEKЪЮЬ	ШKШЧЪЬШЪЮЬ%ЮЬЮЬqШ╣ЪЮЬШЪЬЮЬЮЬ	ЮШ%KЪЬ╧tЬвШKЪЬвЬвШ7KЪЬвЬвШ%KЪЬвЬвШ1KЪЬвЬвШ1KЪЬвЬвШ;KЪЬвЬвШ;KЪЬвЬвШ;KЪЬвЬвШ3KЪЬвЬвШKЪЬвЬвШKЪЬвЬвШKЪЬвЬвШ KЪЮЬЮЬ?ЮЬШ]ЧЪЬЮЬЮЬ
ЮШ'KЪЬ!Ш!KЪЬШKЪЬШKЪЬШKЪЮЬЮЬ@ЮЬШ_ЧKШ^KШЧKЪЮЬ	ШKШЧKЪЮЬШЧKЪЬJЮЬШPKЪЮЬЮЬЮЬЮЬШKЪЬKЮЬШRKЪЮЬ
ЮЬЮЬЮЬШЪ
ЮЬ
ЮЬЮЬЮЬЮЬШ-KЪЬШKШ'KЪ	Ь.ЮЬЮЬЮЬ	ЮЬШcKШ$KЪЮЬЮЬШKШЧKЪЮЬЮЬШKЪЮЬШЧKШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШrKЪЬЮЬ	ЮЬШ$KЪЬЮЬ	ЮЬШ)ЪаЬЮЬШKЪЮЬ)ЮЬШ@KЪЬAШAKШ!ЪЮЬ"ЮЬШ*KЪЬ0Ш0KШKШKШЧKЪЮЬЮЬШKШЧKЪЮЬ&Ш(ЪЮЬЮЬЮЬШKЪЮЬШ KЪЬШЧЪЮЬЮЬЮЬЮЬЮЬЮЬ"ШIЪЮЬЮЬЮШKЪЮЬЮЬШЪЮЬШKЪЮЬЮЬЮЬ"Ш2KЪЬШKШKЪЮЬШ	KШЧKЪЮЬШKЪЬЮЬШKЪЮЬШЧЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬ"Ш2KЪЮЬШKШЧKЪЮЬЮЬЮЬШ%ЧKЪЮЬШKШKШ ЧЪаЬЮЬЮЬЮЬ.ЮЬЮЬЮЬШdKЪЬЮЬШ.KШKШ ЧKЪ	ЬЮЬЮЬ-ЮЬЮЬШOЪЬ
ЮЬЮЬЮЬШ#KШ ЧЪаЬЮЬЮЬ.ШPKШKШVЪЮЬЮЬЮЬ ЮЬЮЬЮШ@ЪЬ7ЮЬШDKШ┤KЪЮШKШЧKЪЮЬШЧKШKШ ЧЪаЬШ*KШDKЪЮЬ0Ш2KЪЮЬШKШKШ ЧЪаЬШ0KШ+KЪЬqШqKШKШ ЧЪаЬЮЬШKЪЬЮЬШKШ2KШ/KШ,KШ KЪЮЬ
ЮЬЮЬШ2KЪЮЬ
ЮЬЮЬ$Ш8KЪЬШKШЧKШ KЪЬ8Ш8KЪЬDШDKЪЬ0Ш0KШ KЪЬUШUKЪЬbШbKЪЬlШlKЪЬyШyKШЧЪЬШKШ KШ ЧKШ ЧЧ ЕЧ    ~  *с  