<<>>
<<AccessCHImpl.mesa>>
<<Copyright Ó 1992 by Xerox Corporation.  All rights reserved.>>
<<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 => {};

                    ENDCASE => {};

                ENDCASE => {};

                ERROR Problem[badDatabaseName];

            };

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

        }.