Return to Authentication1.cr CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / examples / filing

Annotation of 43BSDTahoe/new/xns/examples/filing/Authentication1.cr, revision 1.1.1.1

1.1       root        1: -- $Header: Authentication1.cr,v 2.2 86/06/05 08:46:56 jqj Exp $ --
                      2: 
                      3: Authentication: PROGRAM 14 VERSION 1 =
                      4: 
                      5: -- $Log:       Authentication1.cr,v $
                      6: -- Revision 2.2  86/06/05  08:46:56  jqj
                      7: -- Added more values for AuthenticationError, since Clearinghouse (which
                      8: -- DEPENDS UPON this version) might need to report inappropriateCredentials.
                      9: -- 
                     10: -- Revision 2.1  85/12/17  07:52:44  jqj
                     11: -- cleaned up some comments
                     12: -- 
                     13: -- Revision 2.0  85/11/21  07:24:26  jqj
                     14: -- 4.3BSD standard release
                     15: -- 
                     16: -- Revision 1.4  85/03/11  16:43:49  jqj
                     17: -- *** empty log message ***
                     18: -- 
                     19: -- Revision 1.3  85/03/11  16:43:49  jqj
                     20: -- Public alpha-test version, released 11 March 1985
                     21: -- 
                     22: -- Revision 1.2  85/03/01  06:12:50  jqj
                     23: -- modifications for use with Unix Courier compiler:  eliminated dependency
                     24: --   on Clearinghouse.  Added HashedPassword declaration which had been
                     25: --   mysteriously forgotten.
                     26: -- 
                     27: -- Revision 1.1  85/03/01  06:06:51  jqj
                     28: -- Initial revision - from Rochester
                     29: -- 
                     30: 
                     31: BEGIN
                     32: 
                     33: -- faked dependency for Clearinghouse (2) VERSION 2 --
                     34: -- note that the dependency has been deleted to eliminate circularity --
                     35: 
                     36:        -- DEPENDS UPON
                     37:        --      Clearinghouse (2) VERSION 2;
                     38: 
                     39: ClearinghouseOrganization: TYPE = STRING;
                     40: ClearinghouseDomain: TYPE = STRING;
                     41: ClearinghouseObject: TYPE = STRING;
                     42: 
                     43: ClearinghouseThreePartName: TYPE = RECORD [
                     44:     organization: ClearinghouseOrganization,
                     45:     domain: ClearinghouseDomain,
                     46:     object: ClearinghouseObject
                     47:     ];
                     48: 
                     49: ClearinghouseName:  TYPE = ClearinghouseThreePartName;
                     50: 
                     51: -- Types --
                     52: 
                     53: CredentialsType: TYPE = CARDINAL;
                     54: 
                     55: Credentials: TYPE = RECORD[
                     56:        type: CredentialsType, 
                     57:        value: SEQUENCE OF UNSPECIFIED];
                     58: 
                     59: simpleCredentials: CredentialsType = 0;
                     60: 
                     61: SimpleCredentials: TYPE = ClearinghouseName;
                     62: 
                     63: Verifier: TYPE = SEQUENCE 12 OF UNSPECIFIED;
                     64: 
                     65: HashedPassword: TYPE = CARDINAL;
                     66: 
                     67: SimpleVerifier: TYPE = HashedPassword;
                     68: 
                     69: -- remote errors --
                     70: 
                     71: Which: TYPE = {notApplicable(0), initiator(1), recipient(2), client(3)};
                     72: CallProblem: TYPE = CARDINAL;
                     73: CallError: ERROR [problem: CallProblem, whichArg: Which] = 1;
                     74: 
                     75: Problem: TYPE = {credentialsInvalid(0), verifierInvalid(1),
                     76:        verifierExpired(2), verifierReused(3), credentialsExpired(4),
                     77:        inappropriateCredentials(5)
                     78:        };
                     79: AuthenticationError: ERROR [problem: Problem] = 2;
                     80: 
                     81: END.
                     82: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.