[_CDCSL_93-16_]<1>Cedar>release>Adobe>AccessCHImpl.mesa

AccessCHImpl.mesa

Philip James, March 19, 1992 4:32 pm PST

Laurie Horton, May 6, 1991 5:12 pm PDT

Foote, June 3, 1991 4:47 pm PDT

Christian Jacobi, April 7, 1992 5:38 pm PDT

Willie-s, May 12, 1992 2:17 pm PDT

DIRECTORY

AccessCH,

AdobeCommon,

AdobeP75V2,

IO,

PFS,

PFSNames,

Rope,

SystemSite,

UserProfile,

XNSCredentials,

XNSAuth;

AccessCHImpl: CEDAR PROGRAM IMPORTS AdobeCommon, IO, PFS, PFSNames, Rope, SystemSite, UserProfile, XNSAuth, XNSCredentials EXPORTS AccessCH ~ {

Problem: PUBLIC ERROR[type: AccessCH.TypeCode] = CODE;

GetFullLoginName: PUBLIC PROC [h: AdobeCommon.Handle Ź NIL] RETURNS[loginName: Rope.ROPE Ź NIL] ~ {

defaults: SystemSite.Names Ź SystemSite.Get[];

name: XNSAuth.Name;

identity: XNSAuth.Identity Ź XNSCredentials.GetIdentity[];

IF identity = NIL THEN

IF h # NIL THEN {

AdobeCommon.PostMessage[h, TRUE, "You must Login!"];

RETURN["Login!"];

}

ELSE

ERROR AdobeCommon.NoCredentials;

[name, , ] Ź XNSAuth.GetIdentityDetails[identity];

IF name.domain.IsEmpty[] THEN

name.domain Ź defaults.domain;

IF name.organization.IsEmpty[] THEN

name.domain Ź defaults.organization;

loginName Ź name.object.Cat[":", name.domain, ":", name.organization];

};

NSNameFromRope: PUBLIC PROC [r: Rope.ROPE]
RETURNS [nsn: AdobeP75V2.NSName Ź NIL] ~ {

current: {local, domain, org} Ź local;

nsn Ź NEW[AdobeP75V2.NSNameObject Ź [NIL, NIL, NIL]];

FOR i: CARD IN [0..r.Length) DO

IF r.Fetch[i] = ': THEN

SELECT current FROM

local => current Ź domain;

domain => current Ź org;

ENDCASE

ELSE SELECT current FROM

local => nsn.local Ź nsn.local.Concat[r.Substr[i, 1]];

domain => nsn.domain Ź nsn.domain.Concat[r.Substr[i, 1]];

org => nsn.org Ź nsn.org.Concat[r.Substr[i, 1]];

ENDCASE;

ENDLOOP;

};

HostForDatabase: PUBLIC PROC [dataBase: Rope.ROPE]
RETURNS [host: Rope.ROPE Ź NIL] ~ {

mappings: LIST OF Rope.ROPE Ź NIL;

dbName, serverName, cred: AdobeP75V2.NSName;

loc, dom, org, db, server: Rope.ROPE Ź NIL;

nsn: AdobeP75V2.NSName Ź NSNameFromRope[dataBase];

dataFile: IO.STREAM Ź NIL;

cred Ź NSNameFromRope[GetFullLoginName[]];

loc Ź cred.local;

dom Ź cred.domain;

org Ź cred.org;

Check User Entries

mappings Ź UserProfile.ListOfTokens [key: "Adobe.mappings", default: NIL];

WHILE mappings # NIL DO

db Ź mappings.first;

IF mappings.rest = NIL THEN

ERROR Problem[badDatabaseName];

server Ź mappings.rest.first;

mappings Ź mappings.rest.rest;

dbName Ź NSNameFromRope[db];

serverName Ź NSNameFromRope[server];

IF dbName.org = NIL THEN

dbName.org Ź cred.org;

IF serverName.org = NIL THEN

serverName.org Ź cred.org;

IF dbName.domain = NIL THEN

dbName.domain Ź cred.domain;

IF serverName.domain = NIL THEN

serverName.domain Ź cred.domain;

IF Rope.Equal[dbName.org, nsn.org, FALSE] THEN

IF Rope.Equal[dbName.domain, nsn.domain, FALSE] THEN

IF Rope.Equal[dbName.local, nsn.local, FALSE] THEN

RETURN[Rope.Cat[serverName.local, ":", serverName.domain, ":", serverName.org]];

ENDLOOP;

Check Adobe File Entries -- AdobeClearinghouse.data

These should be cached

{

ENABLE {

IO.Error => GOTO badFile;

IO.EndOfStream => GOTO badFile;

PFS.Error => GOTO badFile;

};

dataFile Ź PFS.StreamOpen[dataPath];

WHILE NOT dataFile.EndOf[] DO

db Ź IO.GetRopeLiteral[dataFile];

server Ź IO.GetRopeLiteral[dataFile];

dbName Ź NSNameFromRope[db];

serverName Ź NSNameFromRope[server];

IF dbName.org = NIL THEN

dbName.org Ź cred.org;

IF serverName.org = NIL THEN

serverName.org Ź cred.org;

IF dbName.domain = NIL THEN

dbName.domain Ź cred.domain;

IF serverName.domain = NIL THEN

serverName.domain Ź cred.domain;

IF Rope.Equal[dbName.org, nsn.org, FALSE] AND Rope.Equal[dbName.domain, nsn.domain, FALSE] AND Rope.Equal[dbName.local, nsn.local, FALSE] THEN

RETURN[Rope.Cat[serverName.local, ":", serverName.domain, ":", serverName.org]];

ENDLOOP;

EXITS

badFile => {} -- wish more could be done here.-- ;

};

Check Default Entries

these should be moved to the File Entries

SELECT TRUE FROM

Rope.Equal[nsn.org, "Xerox", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.domain, "OSBU North", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.local, "Customer Call", FALSE],

Rope.Equal[nsn.local, "Customer Profile", FALSE],

Rope.Equal[nsn.local, "Enable Status", FALSE],

Rope.Equal[nsn.local, "Equipment Profile", FALSE],

Rope.Equal[nsn.local, "ExpertARs", FALSE],

Rope.Equal[nsn.local, "ExpertSoftware", FALSE],

Rope.Equal[nsn.local, "XAPS Customers", FALSE] =>

RETURN["Bugheap:OSBU North:Xerox"];

Rope.Equal[nsn.local, "ExtraTest", FALSE] =>

RETURN["ExtraMiwuk:OSBU North:Xerox"];

Rope.Equal[nsn.local, "PA Service", FALSE],

Rope.Equal[nsn.local, "Par", FALSE],

Rope.Equal[nsn.local, "Soleil", FALSE],

Rope.Equal[nsn.local, "System Software", FALSE] =>

RETURN["Morongo:OSBU North:Xerox"];

Rope.Equal[nsn.local, "AdobePortTest", FALSE] =>

RETURN["PCAService:OSBU North:Xerox"];

Rope.Equal[nsn.local, "CedarAdobeTest", FALSE],

Rope.Equal[nsn.local, "EnumTest", FALSE] =>

RETURN["PCedarAdobeTestService:OSBU North:Xerox"];

Rope.Equal[nsn.local, "AT", FALSE],

Rope.Equal[nsn.local, "College AT", FALSE],

Rope.Equal[nsn.local, "Facilities", FALSE],

Rope.Equal[nsn.local, "HWDocs", FALSE],

Rope.Equal[nsn.local, "Moby", FALSE],

Rope.Equal[nsn.local, "SalientDocuments", FALSE],

Rope.Equal[nsn.local, "SDD Action Item Database", FALSE],

Rope.Equal[nsn.local, "SDD Horizon Issues", FALSE],

Rope.Equal[nsn.local, "SDD-OSD Glossary", FALSE],

Rope.Equal[nsn.local, "SUN Inventory", FALSE],

Rope.Equal[nsn.local, "SUN of System Software", FALSE],

Rope.Equal[nsn.local, "Unix Network Services", FALSE] =>

RETURN["Payute:OSBU North:Xerox"];

ENDCASE => {};

Rope.Equal[nsn.domain, "OSBU South", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.local, "FilingDesignIssues", FALSE] =>

RETURN["CopanAS:OSBU North:Xerox"];

Rope.Equal[nsn.local, "DE Configuration", FALSE],

Rope.Equal[nsn.local, "Documentation", FALSE],

Rope.Equal[nsn.local, "ES Service", FALSE],

Rope.Equal[nsn.local, "Fonts", FALSE],

Rope.Equal[nsn.local, "Fonts Tracking", FALSE],

Rope.Equal[nsn.local, "Image Filing", FALSE],

Rope.Equal[nsn.local, "MPCodes", FALSE],

Rope.Equal[nsn.local, "Network Services", FALSE],

Rope.Equal[nsn.local, "PrintServiceDesign", FALSE],

Rope.Equal[nsn.local, "Product Test Equipment", FALSE],

Rope.Equal[nsn.local, "PSCO Tracking", FALSE],

Rope.Equal[nsn.local, "SPAR", FALSE],

Rope.Equal[nsn.local, "Unix NS Documentation", FALSE],

Rope.Equal[nsn.local, "XGV-PC", FALSE],

Rope.Equal[nsn.local, "XGV-PC Customer", FALSE],

Rope.Equal[nsn.local, "XGV-PC Service", FALSE] =>

RETURN["Mud:OSBU South:Xerox"];

Rope.Equal[nsn.local, "Bitmapper", FALSE],

Rope.Equal[nsn.local, "EFS", FALSE],

Rope.Equal[nsn.local, "Segue Documentation", FALSE],

Rope.Equal[nsn.local, "Soleil", FALSE],

Rope.Equal[nsn.local, "Soleil Unix", FALSE],

Rope.Equal[nsn.local, "Workstation", FALSE] =>

RETURN["Straw:OSBU South:Xerox"];

Rope.Equal[nsn.local, "Unix Workstation", FALSE],

Rope.Equal[nsn.local, "Unix WS Documentation", FALSE] =>

RETURN["Water:OSBU South:Xerox"];

ENDCASE => {};

Rope.Equal[nsn.domain, "PaloAlto", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.local, "Par", FALSE] =>

RETURN["Morongo:OSBU North:Xerox"];

ENDCASE => {};

Rope.Equal[nsn.domain, "PARC", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.local, "AdobePortTest", FALSE],

Rope.Equal[nsn.local, "RoadRunnerARs", FALSE] =>

RETURN["Skate:Parc:Xerox"];

Rope.Equal[nsn.local, "Inventory", FALSE] =>

RETURN["Kaos:Parc:Xerox"];

ENDCASE => {};

Rope.Equal[nsn.domain, "Sunnyvale", FALSE] => SELECT TRUE FROM

Rope.Equal[nsn.local, "PTInventory", FALSE] =>

RETURN["CheckItOut:Sunnyvale:Xerox"];

ENDCASE => {};

ERROR Problem[badDatabaseName];

};

dataPath: PFS.PATH Ź PFSNames.ExpandName[name: PFS.PathFromRope["AdobeClearinghouse.data"], wDir: PFS.GetWDir[]];