diff options
Diffstat (limited to 'src/eldap/ELDAPv3.erl')
| -rw-r--r-- | src/eldap/ELDAPv3.erl | 2972 |
1 files changed, 0 insertions, 2972 deletions
diff --git a/src/eldap/ELDAPv3.erl b/src/eldap/ELDAPv3.erl deleted file mode 100644 index 44657eed6..000000000 --- a/src/eldap/ELDAPv3.erl +++ /dev/null @@ -1,2972 +0,0 @@ -%% Generated by the Erlang ASN.1 BER-compiler version, utilizing bit-syntax:1.3.2 -%% Purpose: encoder and decoder to the types in mod ELDAPv3 - --module('ELDAPv3'). --include("ELDAPv3.hrl"). --define('RT_BER',asn1rt_ber_bin). --export([encoding_rule/0]). --export([ -'enc_LDAPMessage'/2, -'enc_MessageID'/2, -'enc_LDAPString'/2, -'enc_LDAPOID'/2, -'enc_LDAPDN'/2, -'enc_RelativeLDAPDN'/2, -'enc_AttributeType'/2, -'enc_AttributeDescription'/2, -'enc_AttributeDescriptionList'/2, -'enc_AttributeValue'/2, -'enc_AttributeValueAssertion'/2, -'enc_AssertionValue'/2, -'enc_Attribute'/2, -'enc_MatchingRuleId'/2, -'enc_LDAPResult'/2, -'enc_Referral'/2, -'enc_LDAPURL'/2, -'enc_Controls'/2, -'enc_Control'/2, -'enc_BindRequest'/2, -'enc_AuthenticationChoice'/2, -'enc_SaslCredentials'/2, -'enc_BindResponse'/2, -'enc_UnbindRequest'/2, -'enc_SearchRequest'/2, -'enc_Filter'/2, -'enc_SubstringFilter'/2, -'enc_MatchingRuleAssertion'/2, -'enc_SearchResultEntry'/2, -'enc_PartialAttributeList'/2, -'enc_SearchResultReference'/2, -'enc_SearchResultDone'/2, -'enc_ModifyRequest'/2, -'enc_AttributeTypeAndValues'/2, -'enc_ModifyResponse'/2, -'enc_AddRequest'/2, -'enc_AttributeList'/2, -'enc_AddResponse'/2, -'enc_DelRequest'/2, -'enc_DelResponse'/2, -'enc_ModifyDNRequest'/2, -'enc_ModifyDNResponse'/2, -'enc_CompareRequest'/2, -'enc_CompareResponse'/2, -'enc_AbandonRequest'/2, -'enc_ExtendedRequest'/2, -'enc_ExtendedResponse'/2 -]). - --export([ -'dec_LDAPMessage'/2, -'dec_MessageID'/2, -'dec_LDAPString'/2, -'dec_LDAPOID'/2, -'dec_LDAPDN'/2, -'dec_RelativeLDAPDN'/2, -'dec_AttributeType'/2, -'dec_AttributeDescription'/2, -'dec_AttributeDescriptionList'/2, -'dec_AttributeValue'/2, -'dec_AttributeValueAssertion'/2, -'dec_AssertionValue'/2, -'dec_Attribute'/2, -'dec_MatchingRuleId'/2, -'dec_LDAPResult'/2, -'dec_Referral'/2, -'dec_LDAPURL'/2, -'dec_Controls'/2, -'dec_Control'/2, -'dec_BindRequest'/2, -'dec_AuthenticationChoice'/2, -'dec_SaslCredentials'/2, -'dec_BindResponse'/2, -'dec_UnbindRequest'/2, -'dec_SearchRequest'/2, -'dec_Filter'/2, -'dec_SubstringFilter'/2, -'dec_MatchingRuleAssertion'/2, -'dec_SearchResultEntry'/2, -'dec_PartialAttributeList'/2, -'dec_SearchResultReference'/2, -'dec_SearchResultDone'/2, -'dec_ModifyRequest'/2, -'dec_AttributeTypeAndValues'/2, -'dec_ModifyResponse'/2, -'dec_AddRequest'/2, -'dec_AttributeList'/2, -'dec_AddResponse'/2, -'dec_DelRequest'/2, -'dec_DelResponse'/2, -'dec_ModifyDNRequest'/2, -'dec_ModifyDNResponse'/2, -'dec_CompareRequest'/2, -'dec_CompareResponse'/2, -'dec_AbandonRequest'/2, -'dec_ExtendedRequest'/2, -'dec_ExtendedResponse'/2 -]). - --export([ -'dec_LDAPMessage'/3, -'dec_MessageID'/3, -'dec_LDAPString'/3, -'dec_LDAPOID'/3, -'dec_LDAPDN'/3, -'dec_RelativeLDAPDN'/3, -'dec_AttributeType'/3, -'dec_AttributeDescription'/3, -'dec_AttributeDescriptionList'/3, -'dec_AttributeValue'/3, -'dec_AttributeValueAssertion'/3, -'dec_AssertionValue'/3, -'dec_Attribute'/3, -'dec_MatchingRuleId'/3, -'dec_LDAPResult'/3, -'dec_Referral'/3, -'dec_LDAPURL'/3, -'dec_Controls'/3, -'dec_Control'/3, -'dec_BindRequest'/3, -'dec_AuthenticationChoice'/3, -'dec_SaslCredentials'/3, -'dec_BindResponse'/3, -'dec_UnbindRequest'/3, -'dec_SearchRequest'/3, -'dec_Filter'/3, -'dec_SubstringFilter'/3, -'dec_MatchingRuleAssertion'/3, -'dec_SearchResultEntry'/3, -'dec_PartialAttributeList'/3, -'dec_SearchResultReference'/3, -'dec_SearchResultDone'/3, -'dec_ModifyRequest'/3, -'dec_AttributeTypeAndValues'/3, -'dec_ModifyResponse'/3, -'dec_AddRequest'/3, -'dec_AttributeList'/3, -'dec_AddResponse'/3, -'dec_DelRequest'/3, -'dec_DelResponse'/3, -'dec_ModifyDNRequest'/3, -'dec_ModifyDNResponse'/3, -'dec_CompareRequest'/3, -'dec_CompareResponse'/3, -'dec_AbandonRequest'/3, -'dec_ExtendedRequest'/3, -'dec_ExtendedResponse'/3 -]). - --export([ -'maxInt'/0 -]). - - - --export([encode/2,decode/2,encode_disp/2,decode_disp/2]). - -encoding_rule() -> - ber_bin. - -encode(Type,Data) -> -case catch encode_disp(Type,Data) of - {'EXIT',{error,Reason}} -> - {error,Reason}; - {'EXIT',Reason} -> - {error,{asn1,Reason}}; - {Bytes,Len} -> - {ok,Bytes}; - X -> - {ok,X} -end. - -decode(Type,Data) -> -case catch decode_disp(Type,Data) of - {'EXIT',{error,Reason}} -> - {error,Reason}; - {'EXIT',Reason} -> - {error,{asn1,Reason}}; - {X,_Rest} -> - {ok,X}; - {X,_Rest,_Len} -> - {ok,X} -end. - -encode_disp('LDAPMessage',Data) -> 'enc_LDAPMessage'(Data,[]); -encode_disp('MessageID',Data) -> 'enc_MessageID'(Data,[]); -encode_disp('LDAPString',Data) -> 'enc_LDAPString'(Data,[]); -encode_disp('LDAPOID',Data) -> 'enc_LDAPOID'(Data,[]); -encode_disp('LDAPDN',Data) -> 'enc_LDAPDN'(Data,[]); -encode_disp('RelativeLDAPDN',Data) -> 'enc_RelativeLDAPDN'(Data,[]); -encode_disp('AttributeType',Data) -> 'enc_AttributeType'(Data,[]); -encode_disp('AttributeDescription',Data) -> 'enc_AttributeDescription'(Data,[]); -encode_disp('AttributeDescriptionList',Data) -> 'enc_AttributeDescriptionList'(Data,[]); -encode_disp('AttributeValue',Data) -> 'enc_AttributeValue'(Data,[]); -encode_disp('AttributeValueAssertion',Data) -> 'enc_AttributeValueAssertion'(Data,[]); -encode_disp('AssertionValue',Data) -> 'enc_AssertionValue'(Data,[]); -encode_disp('Attribute',Data) -> 'enc_Attribute'(Data,[]); -encode_disp('MatchingRuleId',Data) -> 'enc_MatchingRuleId'(Data,[]); -encode_disp('LDAPResult',Data) -> 'enc_LDAPResult'(Data,[]); -encode_disp('Referral',Data) -> 'enc_Referral'(Data,[]); -encode_disp('LDAPURL',Data) -> 'enc_LDAPURL'(Data,[]); -encode_disp('Controls',Data) -> 'enc_Controls'(Data,[]); -encode_disp('Control',Data) -> 'enc_Control'(Data,[]); -encode_disp('BindRequest',Data) -> 'enc_BindRequest'(Data,[]); -encode_disp('AuthenticationChoice',Data) -> 'enc_AuthenticationChoice'(Data,[]); -encode_disp('SaslCredentials',Data) -> 'enc_SaslCredentials'(Data,[]); -encode_disp('BindResponse',Data) -> 'enc_BindResponse'(Data,[]); -encode_disp('UnbindRequest',Data) -> 'enc_UnbindRequest'(Data,[]); -encode_disp('SearchRequest',Data) -> 'enc_SearchRequest'(Data,[]); -encode_disp('Filter',Data) -> 'enc_Filter'(Data,[]); -encode_disp('SubstringFilter',Data) -> 'enc_SubstringFilter'(Data,[]); -encode_disp('MatchingRuleAssertion',Data) -> 'enc_MatchingRuleAssertion'(Data,[]); -encode_disp('SearchResultEntry',Data) -> 'enc_SearchResultEntry'(Data,[]); -encode_disp('PartialAttributeList',Data) -> 'enc_PartialAttributeList'(Data,[]); -encode_disp('SearchResultReference',Data) -> 'enc_SearchResultReference'(Data,[]); -encode_disp('SearchResultDone',Data) -> 'enc_SearchResultDone'(Data,[]); -encode_disp('ModifyRequest',Data) -> 'enc_ModifyRequest'(Data,[]); -encode_disp('AttributeTypeAndValues',Data) -> 'enc_AttributeTypeAndValues'(Data,[]); -encode_disp('ModifyResponse',Data) -> 'enc_ModifyResponse'(Data,[]); -encode_disp('AddRequest',Data) -> 'enc_AddRequest'(Data,[]); -encode_disp('AttributeList',Data) -> 'enc_AttributeList'(Data,[]); -encode_disp('AddResponse',Data) -> 'enc_AddResponse'(Data,[]); -encode_disp('DelRequest',Data) -> 'enc_DelRequest'(Data,[]); -encode_disp('DelResponse',Data) -> 'enc_DelResponse'(Data,[]); -encode_disp('ModifyDNRequest',Data) -> 'enc_ModifyDNRequest'(Data,[]); -encode_disp('ModifyDNResponse',Data) -> 'enc_ModifyDNResponse'(Data,[]); -encode_disp('CompareRequest',Data) -> 'enc_CompareRequest'(Data,[]); -encode_disp('CompareResponse',Data) -> 'enc_CompareResponse'(Data,[]); -encode_disp('AbandonRequest',Data) -> 'enc_AbandonRequest'(Data,[]); -encode_disp('ExtendedRequest',Data) -> 'enc_ExtendedRequest'(Data,[]); -encode_disp('ExtendedResponse',Data) -> 'enc_ExtendedResponse'(Data,[]); -encode_disp(Type,Data) -> exit({error,{asn1,{undefined_type,Type}}}). - - -decode_disp('LDAPMessage',Data) -> 'dec_LDAPMessage'(Data,mandatory); -decode_disp('MessageID',Data) -> 'dec_MessageID'(Data,mandatory); -decode_disp('LDAPString',Data) -> 'dec_LDAPString'(Data,mandatory); -decode_disp('LDAPOID',Data) -> 'dec_LDAPOID'(Data,mandatory); -decode_disp('LDAPDN',Data) -> 'dec_LDAPDN'(Data,mandatory); -decode_disp('RelativeLDAPDN',Data) -> 'dec_RelativeLDAPDN'(Data,mandatory); -decode_disp('AttributeType',Data) -> 'dec_AttributeType'(Data,mandatory); -decode_disp('AttributeDescription',Data) -> 'dec_AttributeDescription'(Data,mandatory); -decode_disp('AttributeDescriptionList',Data) -> 'dec_AttributeDescriptionList'(Data,mandatory); -decode_disp('AttributeValue',Data) -> 'dec_AttributeValue'(Data,mandatory); -decode_disp('AttributeValueAssertion',Data) -> 'dec_AttributeValueAssertion'(Data,mandatory); -decode_disp('AssertionValue',Data) -> 'dec_AssertionValue'(Data,mandatory); -decode_disp('Attribute',Data) -> 'dec_Attribute'(Data,mandatory); -decode_disp('MatchingRuleId',Data) -> 'dec_MatchingRuleId'(Data,mandatory); -decode_disp('LDAPResult',Data) -> 'dec_LDAPResult'(Data,mandatory); -decode_disp('Referral',Data) -> 'dec_Referral'(Data,mandatory); -decode_disp('LDAPURL',Data) -> 'dec_LDAPURL'(Data,mandatory); -decode_disp('Controls',Data) -> 'dec_Controls'(Data,mandatory); -decode_disp('Control',Data) -> 'dec_Control'(Data,mandatory); -decode_disp('BindRequest',Data) -> 'dec_BindRequest'(Data,mandatory); -decode_disp('AuthenticationChoice',Data) -> 'dec_AuthenticationChoice'(Data,mandatory); -decode_disp('SaslCredentials',Data) -> 'dec_SaslCredentials'(Data,mandatory); -decode_disp('BindResponse',Data) -> 'dec_BindResponse'(Data,mandatory); -decode_disp('UnbindRequest',Data) -> 'dec_UnbindRequest'(Data,mandatory); -decode_disp('SearchRequest',Data) -> 'dec_SearchRequest'(Data,mandatory); -decode_disp('Filter',Data) -> 'dec_Filter'(Data,mandatory); -decode_disp('SubstringFilter',Data) -> 'dec_SubstringFilter'(Data,mandatory); -decode_disp('MatchingRuleAssertion',Data) -> 'dec_MatchingRuleAssertion'(Data,mandatory); -decode_disp('SearchResultEntry',Data) -> 'dec_SearchResultEntry'(Data,mandatory); -decode_disp('PartialAttributeList',Data) -> 'dec_PartialAttributeList'(Data,mandatory); -decode_disp('SearchResultReference',Data) -> 'dec_SearchResultReference'(Data,mandatory); -decode_disp('SearchResultDone',Data) -> 'dec_SearchResultDone'(Data,mandatory); -decode_disp('ModifyRequest',Data) -> 'dec_ModifyRequest'(Data,mandatory); -decode_disp('AttributeTypeAndValues',Data) -> 'dec_AttributeTypeAndValues'(Data,mandatory); -decode_disp('ModifyResponse',Data) -> 'dec_ModifyResponse'(Data,mandatory); -decode_disp('AddRequest',Data) -> 'dec_AddRequest'(Data,mandatory); -decode_disp('AttributeList',Data) -> 'dec_AttributeList'(Data,mandatory); -decode_disp('AddResponse',Data) -> 'dec_AddResponse'(Data,mandatory); -decode_disp('DelRequest',Data) -> 'dec_DelRequest'(Data,mandatory); -decode_disp('DelResponse',Data) -> 'dec_DelResponse'(Data,mandatory); -decode_disp('ModifyDNRequest',Data) -> 'dec_ModifyDNRequest'(Data,mandatory); -decode_disp('ModifyDNResponse',Data) -> 'dec_ModifyDNResponse'(Data,mandatory); -decode_disp('CompareRequest',Data) -> 'dec_CompareRequest'(Data,mandatory); -decode_disp('CompareResponse',Data) -> 'dec_CompareResponse'(Data,mandatory); -decode_disp('AbandonRequest',Data) -> 'dec_AbandonRequest'(Data,mandatory); -decode_disp('ExtendedRequest',Data) -> 'dec_ExtendedRequest'(Data,mandatory); -decode_disp('ExtendedResponse',Data) -> 'dec_ExtendedResponse'(Data,mandatory); -decode_disp(Type,Data) -> exit({error,{asn1,{undefined_type,Type}}}). - - - - - - - -%%================================ -%% LDAPMessage -%%================================ -'enc_LDAPMessage'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type INTEGER -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_integer([], ?RT_BER:cindex(2,Val,messageID), []), - -%%------------------------------------------------- -%% attribute number 2 with type CHOICE -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_LDAPMessage_protocolOp'(?RT_BER:cindex(3,Val,protocolOp), []), - -%%------------------------------------------------- -%% attribute number 3 External ELDAPv3:Controls OPTIONAL -%%------------------------------------------------- - {EncBytes3,EncLen3} = case ?RT_BER:cindex(4,Val,controls) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - 'enc_Controls'(?RT_BER:cindex(4,Val,controls), [{tag,128,0,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3], -LenSoFar = EncLen1 + EncLen2 + EncLen3, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% LDAPMessage_protocolOp -%%================================ - -'enc_LDAPMessage_protocolOp'({'LDAPMessage_protocolOp',Val}, TagIn) -> - 'enc_LDAPMessage_protocolOp'(Val, TagIn); - -'enc_LDAPMessage_protocolOp'(Val, TagIn) -> - {EncBytes,EncLen} = case element(1,Val) of - bindRequest -> - 'enc_BindRequest'(element(2,Val), []); - bindResponse -> - 'enc_BindResponse'(element(2,Val), []); - unbindRequest -> - ?RT_BER:encode_null(element(2,Val), [{tag,64,2,'IMPLICIT',32}]); - searchRequest -> - 'enc_SearchRequest'(element(2,Val), []); - searchResEntry -> - 'enc_SearchResultEntry'(element(2,Val), []); - searchResDone -> - 'enc_SearchResultDone'(element(2,Val), []); - searchResRef -> - 'enc_SearchResultReference'(element(2,Val), []); - modifyRequest -> - 'enc_ModifyRequest'(element(2,Val), []); - modifyResponse -> - 'enc_ModifyResponse'(element(2,Val), []); - addRequest -> - 'enc_AddRequest'(element(2,Val), []); - addResponse -> - 'enc_AddResponse'(element(2,Val), []); - delRequest -> - 'enc_DelRequest'(element(2,Val), []); - delResponse -> - 'enc_DelResponse'(element(2,Val), []); - modDNRequest -> - 'enc_ModifyDNRequest'(element(2,Val), []); - modDNResponse -> - 'enc_ModifyDNResponse'(element(2,Val), []); - compareRequest -> - 'enc_CompareRequest'(element(2,Val), []); - compareResponse -> - 'enc_CompareResponse'(element(2,Val), []); - abandonRequest -> - 'enc_AbandonRequest'(element(2,Val), []); - extendedReq -> - 'enc_ExtendedRequest'(element(2,Val), []); - extendedResp -> - 'enc_ExtendedResponse'(element(2,Val), []); - Else -> - exit({error,{asn1,{invalid_choice_type,Else}}}) - end, - -?RT_BER:encode_tags(TagIn ++[], EncBytes, EncLen). - - -'dec_LDAPMessage_protocolOp'(Bytes, OptOrMand, TagIn) -> - {FormLen,Bytes1, RbExp} = ?RT_BER:check_tags(TagIn++[], Bytes, OptOrMand), - case Bytes1 of - -%% 'bindRequest' - <<1:2,_:1,0:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_BindRequest'(Bytes1, mandatory, []), - {{bindRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'bindResponse' - <<1:2,_:1,1:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_BindResponse'(Bytes1, mandatory, []), - {{bindResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'unbindRequest' - <<1:2,_:1,2:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_null(Bytes1,[{tag,64,2,'IMPLICIT',32}], mandatory), - {{unbindRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'searchRequest' - <<1:2,_:1,3:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SearchRequest'(Bytes1, mandatory, []), - {{searchRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'searchResEntry' - <<1:2,_:1,4:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SearchResultEntry'(Bytes1, mandatory, []), - {{searchResEntry, Dec}, Rest, RbExp + RbCho}; - - -%% 'searchResDone' - <<1:2,_:1,5:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SearchResultDone'(Bytes1, mandatory, []), - {{searchResDone, Dec}, Rest, RbExp + RbCho}; - - -%% 'searchResRef' - <<1:2,_:1,19:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SearchResultReference'(Bytes1, mandatory, []), - {{searchResRef, Dec}, Rest, RbExp + RbCho}; - - -%% 'modifyRequest' - <<1:2,_:1,6:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ModifyRequest'(Bytes1, mandatory, []), - {{modifyRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'modifyResponse' - <<1:2,_:1,7:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ModifyResponse'(Bytes1, mandatory, []), - {{modifyResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'addRequest' - <<1:2,_:1,8:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AddRequest'(Bytes1, mandatory, []), - {{addRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'addResponse' - <<1:2,_:1,9:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AddResponse'(Bytes1, mandatory, []), - {{addResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'delRequest' - <<1:2,_:1,10:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_DelRequest'(Bytes1, mandatory, []), - {{delRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'delResponse' - <<1:2,_:1,11:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_DelResponse'(Bytes1, mandatory, []), - {{delResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'modDNRequest' - <<1:2,_:1,12:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ModifyDNRequest'(Bytes1, mandatory, []), - {{modDNRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'modDNResponse' - <<1:2,_:1,13:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ModifyDNResponse'(Bytes1, mandatory, []), - {{modDNResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'compareRequest' - <<1:2,_:1,14:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_CompareRequest'(Bytes1, mandatory, []), - {{compareRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'compareResponse' - <<1:2,_:1,15:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_CompareResponse'(Bytes1, mandatory, []), - {{compareResponse, Dec}, Rest, RbExp + RbCho}; - - -%% 'abandonRequest' - <<1:2,_:1,16:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AbandonRequest'(Bytes1, mandatory, []), - {{abandonRequest, Dec}, Rest, RbExp + RbCho}; - - -%% 'extendedReq' - <<1:2,_:1,23:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ExtendedRequest'(Bytes1, mandatory, []), - {{extendedReq, Dec}, Rest, RbExp + RbCho}; - - -%% 'extendedResp' - <<1:2,_:1,24:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_ExtendedResponse'(Bytes1, mandatory, []), - {{extendedResp, Dec}, Rest, RbExp + RbCho}; - - Else -> - case OptOrMand of - mandatory ->exit({error,{asn1,{invalid_choice_tag,Else}}}); - _ ->exit({error,{asn1,{no_optional_tag,Else}}}) - end - end. - - -'dec_LDAPMessage'(Bytes, OptOrMand) -> - 'dec_LDAPMessage'(Bytes, OptOrMand, []). - -'dec_LDAPMessage'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type INTEGER -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_integer(Bytes2,{0,2147483647},[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type CHOICE -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_LDAPMessage_protocolOp'(Bytes3, mandatory, []), - -%%------------------------------------------------- -%% attribute number 3 External ELDAPv3:Controls OPTIONAL -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = case Bytes4 of -<<2:2,_:1,0:5,_/binary>> -> -'dec_Controls'(Bytes4, opt_or_default, [{tag,128,0,'IMPLICIT',32}]); -_ -> -{ asn1_NOVALUE, Bytes4, 0 } -end, - -{Bytes6,Rb5} = ?RT_BER:restbytes2(RemBytes, Bytes5,noext), - {{'LDAPMessage', Term1, Term2, Term3}, Bytes6, Rb1+Rb2+Rb3+Rb4+Rb5}. - - -%%================================ -%% MessageID -%%================================ - -'enc_MessageID'({'MessageID',Val}, TagIn) -> - 'enc_MessageID'(Val, TagIn); - -'enc_MessageID'(Val, TagIn) -> -?RT_BER:encode_integer([], Val, TagIn ++ []). - - -'dec_MessageID'(Bytes, OptOrMand) -> - 'dec_MessageID'(Bytes, OptOrMand, []). - -'dec_MessageID'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_integer(Bytes,{0,2147483647},TagIn++[], OptOrMand). - - - -%%================================ -%% LDAPString -%%================================ - -'enc_LDAPString'({'LDAPString',Val}, TagIn) -> - 'enc_LDAPString'(Val, TagIn); - -'enc_LDAPString'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_LDAPString'(Bytes, OptOrMand) -> - 'dec_LDAPString'(Bytes, OptOrMand, []). - -'dec_LDAPString'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% LDAPOID -%%================================ - -'enc_LDAPOID'({'LDAPOID',Val}, TagIn) -> - 'enc_LDAPOID'(Val, TagIn); - -'enc_LDAPOID'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_LDAPOID'(Bytes, OptOrMand) -> - 'dec_LDAPOID'(Bytes, OptOrMand, []). - -'dec_LDAPOID'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% LDAPDN -%%================================ - -'enc_LDAPDN'({'LDAPDN',Val}, TagIn) -> - 'enc_LDAPDN'(Val, TagIn); - -'enc_LDAPDN'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_LDAPDN'(Bytes, OptOrMand) -> - 'dec_LDAPDN'(Bytes, OptOrMand, []). - -'dec_LDAPDN'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% RelativeLDAPDN -%%================================ - -'enc_RelativeLDAPDN'({'RelativeLDAPDN',Val}, TagIn) -> - 'enc_RelativeLDAPDN'(Val, TagIn); - -'enc_RelativeLDAPDN'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_RelativeLDAPDN'(Bytes, OptOrMand) -> - 'dec_RelativeLDAPDN'(Bytes, OptOrMand, []). - -'dec_RelativeLDAPDN'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% AttributeType -%%================================ - -'enc_AttributeType'({'AttributeType',Val}, TagIn) -> - 'enc_AttributeType'(Val, TagIn); - -'enc_AttributeType'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_AttributeType'(Bytes, OptOrMand) -> - 'dec_AttributeType'(Bytes, OptOrMand, []). - -'dec_AttributeType'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% AttributeDescription -%%================================ - -'enc_AttributeDescription'({'AttributeDescription',Val}, TagIn) -> - 'enc_AttributeDescription'(Val, TagIn); - -'enc_AttributeDescription'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_AttributeDescription'(Bytes, OptOrMand) -> - 'dec_AttributeDescription'(Bytes, OptOrMand, []). - -'dec_AttributeDescription'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% AttributeDescriptionList -%%================================ - -'enc_AttributeDescriptionList'({'AttributeDescriptionList',Val}, TagIn) -> - 'enc_AttributeDescriptionList'(Val, TagIn); - -'enc_AttributeDescriptionList'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_AttributeDescriptionList_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_AttributeDescriptionList_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_AttributeDescriptionList_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_AttributeDescriptionList_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - -'dec_AttributeDescriptionList'(Bytes, OptOrMand) -> - 'dec_AttributeDescriptionList'(Bytes, OptOrMand, []). - -'dec_AttributeDescriptionList'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - - - -%%================================ -%% AttributeValue -%%================================ - -'enc_AttributeValue'({'AttributeValue',Val}, TagIn) -> - 'enc_AttributeValue'(Val, TagIn); - -'enc_AttributeValue'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_AttributeValue'(Bytes, OptOrMand) -> - 'dec_AttributeValue'(Bytes, OptOrMand, []). - -'dec_AttributeValue'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% AttributeValueAssertion -%%================================ -'enc_AttributeValueAssertion'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,attributeDesc), []), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,assertionValue), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_AttributeValueAssertion'(Bytes, OptOrMand) -> - 'dec_AttributeValueAssertion'(Bytes, OptOrMand, []). - -'dec_AttributeValueAssertion'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'AttributeValueAssertion', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% AssertionValue -%%================================ - -'enc_AssertionValue'({'AssertionValue',Val}, TagIn) -> - 'enc_AssertionValue'(Val, TagIn); - -'enc_AssertionValue'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_AssertionValue'(Bytes, OptOrMand) -> - 'dec_AssertionValue'(Bytes, OptOrMand, []). - -'dec_AssertionValue'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% Attribute -%%================================ -'enc_Attribute'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,type), []), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_Attribute_vals'(?RT_BER:cindex(3,Val,vals), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% Attribute_vals -%%================================ - -'enc_Attribute_vals'({'Attribute_vals',Val}, TagIn) -> - 'enc_Attribute_vals'(Val, TagIn); - -'enc_Attribute_vals'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_Attribute_vals_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_Attribute_vals_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_Attribute_vals_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_Attribute_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_Attribute_vals'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - - - -'dec_Attribute'(Bytes, OptOrMand) -> - 'dec_Attribute'(Bytes, OptOrMand, []). - -'dec_Attribute'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_Attribute_vals'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'Attribute', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% MatchingRuleId -%%================================ - -'enc_MatchingRuleId'({'MatchingRuleId',Val}, TagIn) -> - 'enc_MatchingRuleId'(Val, TagIn); - -'enc_MatchingRuleId'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_MatchingRuleId'(Bytes, OptOrMand) -> - 'dec_MatchingRuleId'(Bytes, OptOrMand, []). - -'dec_MatchingRuleId'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% LDAPResult -%%================================ -'enc_LDAPResult'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {EncBytes1,EncLen1} = case (case ?RT_BER:cindex(2,Val,resultCode) of {_,_}->element(2,?RT_BER:cindex(2,Val,resultCode));_->?RT_BER:cindex(2,Val,resultCode) end) of -success -> ?RT_BER:encode_enumerated(0,[]); -operationsError -> ?RT_BER:encode_enumerated(1,[]); -protocolError -> ?RT_BER:encode_enumerated(2,[]); -timeLimitExceeded -> ?RT_BER:encode_enumerated(3,[]); -sizeLimitExceeded -> ?RT_BER:encode_enumerated(4,[]); -compareFalse -> ?RT_BER:encode_enumerated(5,[]); -compareTrue -> ?RT_BER:encode_enumerated(6,[]); -authMethodNotSupported -> ?RT_BER:encode_enumerated(7,[]); -strongAuthRequired -> ?RT_BER:encode_enumerated(8,[]); -referral -> ?RT_BER:encode_enumerated(10,[]); -adminLimitExceeded -> ?RT_BER:encode_enumerated(11,[]); -unavailableCriticalExtension -> ?RT_BER:encode_enumerated(12,[]); -confidentialityRequired -> ?RT_BER:encode_enumerated(13,[]); -saslBindInProgress -> ?RT_BER:encode_enumerated(14,[]); -noSuchAttribute -> ?RT_BER:encode_enumerated(16,[]); -undefinedAttributeType -> ?RT_BER:encode_enumerated(17,[]); -inappropriateMatching -> ?RT_BER:encode_enumerated(18,[]); -constraintViolation -> ?RT_BER:encode_enumerated(19,[]); -attributeOrValueExists -> ?RT_BER:encode_enumerated(20,[]); -invalidAttributeSyntax -> ?RT_BER:encode_enumerated(21,[]); -noSuchObject -> ?RT_BER:encode_enumerated(32,[]); -aliasProblem -> ?RT_BER:encode_enumerated(33,[]); -invalidDNSyntax -> ?RT_BER:encode_enumerated(34,[]); -aliasDereferencingProblem -> ?RT_BER:encode_enumerated(36,[]); -inappropriateAuthentication -> ?RT_BER:encode_enumerated(48,[]); -invalidCredentials -> ?RT_BER:encode_enumerated(49,[]); -insufficientAccessRights -> ?RT_BER:encode_enumerated(50,[]); -busy -> ?RT_BER:encode_enumerated(51,[]); -unavailable -> ?RT_BER:encode_enumerated(52,[]); -unwillingToPerform -> ?RT_BER:encode_enumerated(53,[]); -loopDetect -> ?RT_BER:encode_enumerated(54,[]); -namingViolation -> ?RT_BER:encode_enumerated(64,[]); -objectClassViolation -> ?RT_BER:encode_enumerated(65,[]); -notAllowedOnNonLeaf -> ?RT_BER:encode_enumerated(66,[]); -notAllowedOnRDN -> ?RT_BER:encode_enumerated(67,[]); -entryAlreadyExists -> ?RT_BER:encode_enumerated(68,[]); -objectClassModsProhibited -> ?RT_BER:encode_enumerated(69,[]); -affectsMultipleDSAs -> ?RT_BER:encode_enumerated(71,[]); -other -> ?RT_BER:encode_enumerated(80,[]); -Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}}) -end, - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,matchedDN), []), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {EncBytes3,EncLen3} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(4,Val,errorMessage), []), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {EncBytes4,EncLen4} = case ?RT_BER:cindex(5,Val,referral) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - 'enc_Referral'(?RT_BER:cindex(5,Val,referral), [{tag,128,3,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_LDAPResult'(Bytes, OptOrMand) -> - 'dec_LDAPResult'(Bytes, OptOrMand, []). - -'dec_LDAPResult'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_enumerated(Bytes2,[],[{success,0},{operationsError,1},{protocolError,2},{timeLimitExceeded,3},{sizeLimitExceeded,4},{compareFalse,5},{compareTrue,6},{authMethodNotSupported,7},{strongAuthRequired,8},{referral,10},{adminLimitExceeded,11},{unavailableCriticalExtension,12},{confidentialityRequired,13},{saslBindInProgress,14},{noSuchAttribute,16},{undefinedAttributeType,17},{inappropriateMatching,18},{constraintViolation,19},{attributeOrValueExists,20},{invalidAttributeSyntax,21},{noSuchObject,32},{aliasProblem,33},{invalidDNSyntax,34},{aliasDereferencingProblem,36},{inappropriateAuthentication,48},{invalidCredentials,49},{insufficientAccessRights,50},{busy,51},{unavailable,52},{unwillingToPerform,53},{loopDetect,54},{namingViolation,64},{objectClassViolation,65},{notAllowedOnNonLeaf,66},{notAllowedOnRDN,67},{entryAlreadyExists,68},{objectClassModsProhibited,69},{affectsMultipleDSAs,71},{other,80}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_octet_string(Bytes4,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = case Bytes5 of -<<2:2,_:1,3:5,_/binary>> -> -'dec_Referral'(Bytes5, opt_or_default, [{tag,128,3,'IMPLICIT',32}]); -_ -> -{ asn1_NOVALUE, Bytes5, 0 } -end, - -{Bytes7,Rb6} = ?RT_BER:restbytes2(RemBytes, Bytes6,noext), - {{'LDAPResult', Term1, Term2, Term3, Term4}, Bytes7, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6}. - - -%%================================ -%% Referral -%%================================ - -'enc_Referral'({'Referral',Val}, TagIn) -> - 'enc_Referral'(Val, TagIn); - -'enc_Referral'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_Referral_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_Referral_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_Referral_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_LDAPURL'(H, []), - 'enc_Referral_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - -'dec_Referral'(Bytes, OptOrMand) -> - 'dec_Referral'(Bytes, OptOrMand, []). - -'dec_Referral'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_LDAPURL'/3, [], []). - - - - -%%================================ -%% LDAPURL -%%================================ - -'enc_LDAPURL'({'LDAPURL',Val}, TagIn) -> - 'enc_LDAPURL'(Val, TagIn); - -'enc_LDAPURL'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ []). - - -'dec_LDAPURL'(Bytes, OptOrMand) -> - 'dec_LDAPURL'(Bytes, OptOrMand, []). - -'dec_LDAPURL'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[], no_length, OptOrMand). - - - -%%================================ -%% Controls -%%================================ - -'enc_Controls'({'Controls',Val}, TagIn) -> - 'enc_Controls'(Val, TagIn); - -'enc_Controls'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_Controls_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_Controls_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_Controls_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_Control'(H, []), - 'enc_Controls_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - -'dec_Controls'(Bytes, OptOrMand) -> - 'dec_Controls'(Bytes, OptOrMand, []). - -'dec_Controls'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_Control'/3, [], []). - - - - -%%================================ -%% Control -%%================================ -'enc_Control'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,controlType), []), - -%%------------------------------------------------- -%% attribute number 2 with type BOOLEAN DEFAULT = false -%%------------------------------------------------- - {EncBytes2,EncLen2} = case ?RT_BER:cindex(3,Val,criticality) of - asn1_DEFAULT -> {<<>>,0}; - false -> {<<>>,0}; - _ -> - ?RT_BER:encode_boolean(?RT_BER:cindex(3,Val,criticality), []) - end, - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes3,EncLen3} = case ?RT_BER:cindex(4,Val,controlValue) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(4,Val,controlValue), []) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3], -LenSoFar = EncLen1 + EncLen2 + EncLen3, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_Control'(Bytes, OptOrMand) -> - 'dec_Control'(Bytes, OptOrMand, []). - -'dec_Control'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type BOOLEAN DEFAULT = false -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = case Bytes3 of -<<0:2,_:1,1:5,_/binary>> -> -?RT_BER:decode_boolean(Bytes3,[], mandatory); -_ -> -{false,Bytes3, 0 } -end, - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = case Bytes4 of -<<0:2,_:1,4:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes4,[],[], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes4, 0 } -end, - -{Bytes6,Rb5} = ?RT_BER:restbytes2(RemBytes, Bytes5,noext), - {{'Control', Term1, Term2, Term3}, Bytes6, Rb1+Rb2+Rb3+Rb4+Rb5}. - - -%%================================ -%% BindRequest -%%================================ -'enc_BindRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type INTEGER -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_integer([], ?RT_BER:cindex(2,Val,version), []), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,name), []), - -%%------------------------------------------------- -%% attribute number 3 External ELDAPv3:AuthenticationChoice -%%------------------------------------------------- - {EncBytes3,EncLen3} = 'enc_AuthenticationChoice'(?RT_BER:cindex(4,Val,authentication), []), - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3], -LenSoFar = EncLen1 + EncLen2 + EncLen3, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,0,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_BindRequest'(Bytes, OptOrMand) -> - 'dec_BindRequest'(Bytes, OptOrMand, []). - -'dec_BindRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,0,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type INTEGER -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_integer(Bytes2,{1,127},[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 3 External ELDAPv3:AuthenticationChoice -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = 'dec_AuthenticationChoice'(Bytes4, mandatory, []), - -{Bytes6,Rb5} = ?RT_BER:restbytes2(RemBytes, Bytes5,noext), - {{'BindRequest', Term1, Term2, Term3}, Bytes6, Rb1+Rb2+Rb3+Rb4+Rb5}. - - -%%================================ -%% AuthenticationChoice -%%================================ - -'enc_AuthenticationChoice'({'AuthenticationChoice',Val}, TagIn) -> - 'enc_AuthenticationChoice'(Val, TagIn); - -'enc_AuthenticationChoice'(Val, TagIn) -> - {EncBytes,EncLen} = case element(1,Val) of - simple -> - ?RT_BER:encode_octet_string([], element(2,Val), [{tag,128,0,'IMPLICIT',32}]); - sasl -> - 'enc_SaslCredentials'(element(2,Val), [{tag,128,3,'IMPLICIT',32}]); - Else -> - exit({error,{asn1,{invalid_choice_type,Else}}}) - end, - -?RT_BER:encode_tags(TagIn ++[], EncBytes, EncLen). - - - - -'dec_AuthenticationChoice'(Bytes, OptOrMand) -> - 'dec_AuthenticationChoice'(Bytes, OptOrMand, []). - -'dec_AuthenticationChoice'(Bytes, OptOrMand, TagIn) -> - {FormLen,Bytes1, RbExp} = ?RT_BER:check_tags(TagIn++[], Bytes, OptOrMand), - case Bytes1 of - -%% 'simple' - <<2:2,_:1,0:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_octet_string(Bytes1,[],[{tag,128,0,'IMPLICIT',32}], no_length, mandatory), - {{simple, Dec}, Rest, RbExp + RbCho}; - - -%% 'sasl' - <<2:2,_:1,3:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SaslCredentials'(Bytes1, mandatory, [{tag,128,3,'IMPLICIT',32}]), - {{sasl, Dec}, Rest, RbExp + RbCho}; - - Else -> - case OptOrMand of - mandatory ->exit({error,{asn1,{invalid_choice_tag,Else}}}); - _ ->exit({error,{asn1,{no_optional_tag,Else}}}) - end - end. - - -%%================================ -%% SaslCredentials -%%================================ -'enc_SaslCredentials'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,mechanism), []), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes2,EncLen2} = case ?RT_BER:cindex(3,Val,credentials) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,credentials), []) - end, - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_SaslCredentials'(Bytes, OptOrMand) -> - 'dec_SaslCredentials'(Bytes, OptOrMand, []). - -'dec_SaslCredentials'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = case Bytes3 of -<<0:2,_:1,4:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes3, 0 } -end, - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'SaslCredentials', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% BindResponse -%%================================ -'enc_BindResponse'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {EncBytes1,EncLen1} = case (case ?RT_BER:cindex(2,Val,resultCode) of {_,_}->element(2,?RT_BER:cindex(2,Val,resultCode));_->?RT_BER:cindex(2,Val,resultCode) end) of -success -> ?RT_BER:encode_enumerated(0,[]); -operationsError -> ?RT_BER:encode_enumerated(1,[]); -protocolError -> ?RT_BER:encode_enumerated(2,[]); -timeLimitExceeded -> ?RT_BER:encode_enumerated(3,[]); -sizeLimitExceeded -> ?RT_BER:encode_enumerated(4,[]); -compareFalse -> ?RT_BER:encode_enumerated(5,[]); -compareTrue -> ?RT_BER:encode_enumerated(6,[]); -authMethodNotSupported -> ?RT_BER:encode_enumerated(7,[]); -strongAuthRequired -> ?RT_BER:encode_enumerated(8,[]); -referral -> ?RT_BER:encode_enumerated(10,[]); -adminLimitExceeded -> ?RT_BER:encode_enumerated(11,[]); -unavailableCriticalExtension -> ?RT_BER:encode_enumerated(12,[]); -confidentialityRequired -> ?RT_BER:encode_enumerated(13,[]); -saslBindInProgress -> ?RT_BER:encode_enumerated(14,[]); -noSuchAttribute -> ?RT_BER:encode_enumerated(16,[]); -undefinedAttributeType -> ?RT_BER:encode_enumerated(17,[]); -inappropriateMatching -> ?RT_BER:encode_enumerated(18,[]); -constraintViolation -> ?RT_BER:encode_enumerated(19,[]); -attributeOrValueExists -> ?RT_BER:encode_enumerated(20,[]); -invalidAttributeSyntax -> ?RT_BER:encode_enumerated(21,[]); -noSuchObject -> ?RT_BER:encode_enumerated(32,[]); -aliasProblem -> ?RT_BER:encode_enumerated(33,[]); -invalidDNSyntax -> ?RT_BER:encode_enumerated(34,[]); -aliasDereferencingProblem -> ?RT_BER:encode_enumerated(36,[]); -inappropriateAuthentication -> ?RT_BER:encode_enumerated(48,[]); -invalidCredentials -> ?RT_BER:encode_enumerated(49,[]); -insufficientAccessRights -> ?RT_BER:encode_enumerated(50,[]); -busy -> ?RT_BER:encode_enumerated(51,[]); -unavailable -> ?RT_BER:encode_enumerated(52,[]); -unwillingToPerform -> ?RT_BER:encode_enumerated(53,[]); -loopDetect -> ?RT_BER:encode_enumerated(54,[]); -namingViolation -> ?RT_BER:encode_enumerated(64,[]); -objectClassViolation -> ?RT_BER:encode_enumerated(65,[]); -notAllowedOnNonLeaf -> ?RT_BER:encode_enumerated(66,[]); -notAllowedOnRDN -> ?RT_BER:encode_enumerated(67,[]); -entryAlreadyExists -> ?RT_BER:encode_enumerated(68,[]); -objectClassModsProhibited -> ?RT_BER:encode_enumerated(69,[]); -affectsMultipleDSAs -> ?RT_BER:encode_enumerated(71,[]); -other -> ?RT_BER:encode_enumerated(80,[]); -Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}}) -end, - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,matchedDN), []), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {EncBytes3,EncLen3} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(4,Val,errorMessage), []), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {EncBytes4,EncLen4} = case ?RT_BER:cindex(5,Val,referral) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - 'enc_Referral'(?RT_BER:cindex(5,Val,referral), [{tag,128,3,'IMPLICIT',32}]) - end, - -%%------------------------------------------------- -%% attribute number 5 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes5,EncLen5} = case ?RT_BER:cindex(6,Val,serverSaslCreds) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(6,Val,serverSaslCreds), [{tag,128,7,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,1,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_BindResponse'(Bytes, OptOrMand) -> - 'dec_BindResponse'(Bytes, OptOrMand, []). - -'dec_BindResponse'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,1,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_enumerated(Bytes2,[],[{success,0},{operationsError,1},{protocolError,2},{timeLimitExceeded,3},{sizeLimitExceeded,4},{compareFalse,5},{compareTrue,6},{authMethodNotSupported,7},{strongAuthRequired,8},{referral,10},{adminLimitExceeded,11},{unavailableCriticalExtension,12},{confidentialityRequired,13},{saslBindInProgress,14},{noSuchAttribute,16},{undefinedAttributeType,17},{inappropriateMatching,18},{constraintViolation,19},{attributeOrValueExists,20},{invalidAttributeSyntax,21},{noSuchObject,32},{aliasProblem,33},{invalidDNSyntax,34},{aliasDereferencingProblem,36},{inappropriateAuthentication,48},{invalidCredentials,49},{insufficientAccessRights,50},{busy,51},{unavailable,52},{unwillingToPerform,53},{loopDetect,54},{namingViolation,64},{objectClassViolation,65},{notAllowedOnNonLeaf,66},{notAllowedOnRDN,67},{entryAlreadyExists,68},{objectClassModsProhibited,69},{affectsMultipleDSAs,71},{other,80}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_octet_string(Bytes4,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = case Bytes5 of -<<2:2,_:1,3:5,_/binary>> -> -'dec_Referral'(Bytes5, opt_or_default, [{tag,128,3,'IMPLICIT',32}]); -_ -> -{ asn1_NOVALUE, Bytes5, 0 } -end, - -%%------------------------------------------------- -%% attribute number 5 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term5,Bytes7,Rb6} = case Bytes6 of -<<2:2,_:1,7:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes6,[],[{tag,128,7,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes6, 0 } -end, - -{Bytes8,Rb7} = ?RT_BER:restbytes2(RemBytes, Bytes7,noext), - {{'BindResponse', Term1, Term2, Term3, Term4, Term5}, Bytes8, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6+Rb7}. - - -%%================================ -%% UnbindRequest -%%================================ - -'enc_UnbindRequest'({'UnbindRequest',Val}, TagIn) -> - 'enc_UnbindRequest'(Val, TagIn); - -'enc_UnbindRequest'(Val, TagIn) -> -?RT_BER:encode_null(Val, TagIn ++ [{tag,64,2,'IMPLICIT',32}]). - - -'dec_UnbindRequest'(Bytes, OptOrMand) -> - 'dec_UnbindRequest'(Bytes, OptOrMand, []). - -'dec_UnbindRequest'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_null(Bytes,TagIn++[{tag,64,2,'IMPLICIT',32}], OptOrMand). - - - -%%================================ -%% SearchRequest -%%================================ -'enc_SearchRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,baseObject), []), - -%%------------------------------------------------- -%% attribute number 2 with type ENUMERATED -%%------------------------------------------------- - {EncBytes2,EncLen2} = case (case ?RT_BER:cindex(3,Val,scope) of {_,_}->element(2,?RT_BER:cindex(3,Val,scope));_->?RT_BER:cindex(3,Val,scope) end) of -baseObject -> ?RT_BER:encode_enumerated(0,[]); -singleLevel -> ?RT_BER:encode_enumerated(1,[]); -wholeSubtree -> ?RT_BER:encode_enumerated(2,[]); -Enumval2 -> exit({error,{asn1, {enumerated_not_in_range,Enumval2}}}) -end, - -%%------------------------------------------------- -%% attribute number 3 with type ENUMERATED -%%------------------------------------------------- - {EncBytes3,EncLen3} = case (case ?RT_BER:cindex(4,Val,derefAliases) of {_,_}->element(2,?RT_BER:cindex(4,Val,derefAliases));_->?RT_BER:cindex(4,Val,derefAliases) end) of -neverDerefAliases -> ?RT_BER:encode_enumerated(0,[]); -derefInSearching -> ?RT_BER:encode_enumerated(1,[]); -derefFindingBaseObj -> ?RT_BER:encode_enumerated(2,[]); -derefAlways -> ?RT_BER:encode_enumerated(3,[]); -Enumval3 -> exit({error,{asn1, {enumerated_not_in_range,Enumval3}}}) -end, - -%%------------------------------------------------- -%% attribute number 4 with type INTEGER -%%------------------------------------------------- - {EncBytes4,EncLen4} = ?RT_BER:encode_integer([], ?RT_BER:cindex(5,Val,sizeLimit), []), - -%%------------------------------------------------- -%% attribute number 5 with type INTEGER -%%------------------------------------------------- - {EncBytes5,EncLen5} = ?RT_BER:encode_integer([], ?RT_BER:cindex(6,Val,timeLimit), []), - -%%------------------------------------------------- -%% attribute number 6 with type BOOLEAN -%%------------------------------------------------- - {EncBytes6,EncLen6} = ?RT_BER:encode_boolean(?RT_BER:cindex(7,Val,typesOnly), []), - -%%------------------------------------------------- -%% attribute number 7 External ELDAPv3:Filter -%%------------------------------------------------- - {EncBytes7,EncLen7} = 'enc_Filter'(?RT_BER:cindex(8,Val,filter), []), - -%%------------------------------------------------- -%% attribute number 8 External ELDAPv3:AttributeDescriptionList -%%------------------------------------------------- - {EncBytes8,EncLen8} = 'enc_AttributeDescriptionList'(?RT_BER:cindex(9,Val,attributes), []), - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5, EncBytes6, EncBytes7, EncBytes8], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5 + EncLen6 + EncLen7 + EncLen8, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,3,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_SearchRequest'(Bytes, OptOrMand) -> - 'dec_SearchRequest'(Bytes, OptOrMand, []). - -'dec_SearchRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,3,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type ENUMERATED -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_enumerated(Bytes3,[],[{baseObject,0},{singleLevel,1},{wholeSubtree,2}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 3 with type ENUMERATED -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_enumerated(Bytes4,[],[{neverDerefAliases,0},{derefInSearching,1},{derefFindingBaseObj,2},{derefAlways,3}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 4 with type INTEGER -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = ?RT_BER:decode_integer(Bytes5,{0,2147483647},[], mandatory), - -%%------------------------------------------------- -%% attribute number 5 with type INTEGER -%%------------------------------------------------- - {Term5,Bytes7,Rb6} = ?RT_BER:decode_integer(Bytes6,{0,2147483647},[], mandatory), - -%%------------------------------------------------- -%% attribute number 6 with type BOOLEAN -%%------------------------------------------------- - {Term6,Bytes8,Rb7} = ?RT_BER:decode_boolean(Bytes7,[], mandatory), - -%%------------------------------------------------- -%% attribute number 7 External ELDAPv3:Filter -%%------------------------------------------------- - {Term7,Bytes9,Rb8} = 'dec_Filter'(Bytes8, mandatory, []), - -%%------------------------------------------------- -%% attribute number 8 External ELDAPv3:AttributeDescriptionList -%%------------------------------------------------- - {Term8,Bytes10,Rb9} = 'dec_AttributeDescriptionList'(Bytes9, mandatory, []), - -{Bytes11,Rb10} = ?RT_BER:restbytes2(RemBytes, Bytes10,noext), - {{'SearchRequest', Term1, Term2, Term3, Term4, Term5, Term6, Term7, Term8}, Bytes11, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6+Rb7+Rb8+Rb9+Rb10}. - - -%%================================ -%% Filter -%%================================ - -'enc_Filter'({'Filter',Val}, TagIn) -> - 'enc_Filter'(Val, TagIn); - -'enc_Filter'(Val, TagIn) -> - {EncBytes,EncLen} = case element(1,Val) of - 'and' -> - 'enc_Filter_and'(element(2,Val), [{tag,128,0,'IMPLICIT',32}]); - 'or' -> - 'enc_Filter_or'(element(2,Val), [{tag,128,1,'IMPLICIT',32}]); - 'not' -> - 'enc_Filter'(element(2,Val), [{tag,128,2,'EXPLICIT',32}]); - equalityMatch -> - 'enc_AttributeValueAssertion'(element(2,Val), [{tag,128,3,'IMPLICIT',32}]); - substrings -> - 'enc_SubstringFilter'(element(2,Val), [{tag,128,4,'IMPLICIT',32}]); - greaterOrEqual -> - 'enc_AttributeValueAssertion'(element(2,Val), [{tag,128,5,'IMPLICIT',32}]); - lessOrEqual -> - 'enc_AttributeValueAssertion'(element(2,Val), [{tag,128,6,'IMPLICIT',32}]); - present -> - ?RT_BER:encode_octet_string([], element(2,Val), [{tag,128,7,'IMPLICIT',32}]); - approxMatch -> - 'enc_AttributeValueAssertion'(element(2,Val), [{tag,128,8,'IMPLICIT',32}]); - extensibleMatch -> - 'enc_MatchingRuleAssertion'(element(2,Val), [{tag,128,9,'IMPLICIT',32}]); - Else -> - exit({error,{asn1,{invalid_choice_type,Else}}}) - end, - -?RT_BER:encode_tags(TagIn ++[], EncBytes, EncLen). - - - - - -%%================================ -%% Filter_and -%%================================ - -'enc_Filter_and'({'Filter_and',Val}, TagIn) -> - 'enc_Filter_and'(Val, TagIn); - -'enc_Filter_and'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_Filter_and_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_Filter_and_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_Filter_and_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_Filter'(H, []), - 'enc_Filter_and_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_Filter_and'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_Filter'/3, [], []). - - - - - -%%================================ -%% Filter_or -%%================================ - -'enc_Filter_or'({'Filter_or',Val}, TagIn) -> - 'enc_Filter_or'(Val, TagIn); - -'enc_Filter_or'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_Filter_or_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_Filter_or_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_Filter_or_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_Filter'(H, []), - 'enc_Filter_or_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_Filter_or'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_Filter'/3, [], []). - - - - -'dec_Filter'(Bytes, OptOrMand) -> - 'dec_Filter'(Bytes, OptOrMand, []). - -'dec_Filter'(Bytes, OptOrMand, TagIn) -> - {FormLen,Bytes1, RbExp} = ?RT_BER:check_tags(TagIn++[], Bytes, OptOrMand), - case Bytes1 of - -%% 'and' - <<2:2,_:1,0:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_Filter_and'(Bytes1, mandatory, [{tag,128,0,'IMPLICIT',32}]), - {{'and', Dec}, Rest, RbExp + RbCho}; - - -%% 'or' - <<2:2,_:1,1:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_Filter_or'(Bytes1, mandatory, [{tag,128,1,'IMPLICIT',32}]), - {{'or', Dec}, Rest, RbExp + RbCho}; - - -%% 'not' - <<2:2,_:1,2:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_Filter'(Bytes1, mandatory, [{tag,128,2,'EXPLICIT',32}]), - {{'not', Dec}, Rest, RbExp + RbCho}; - - -%% 'equalityMatch' - <<2:2,_:1,3:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AttributeValueAssertion'(Bytes1, mandatory, [{tag,128,3,'IMPLICIT',32}]), - {{equalityMatch, Dec}, Rest, RbExp + RbCho}; - - -%% 'substrings' - <<2:2,_:1,4:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_SubstringFilter'(Bytes1, mandatory, [{tag,128,4,'IMPLICIT',32}]), - {{substrings, Dec}, Rest, RbExp + RbCho}; - - -%% 'greaterOrEqual' - <<2:2,_:1,5:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AttributeValueAssertion'(Bytes1, mandatory, [{tag,128,5,'IMPLICIT',32}]), - {{greaterOrEqual, Dec}, Rest, RbExp + RbCho}; - - -%% 'lessOrEqual' - <<2:2,_:1,6:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AttributeValueAssertion'(Bytes1, mandatory, [{tag,128,6,'IMPLICIT',32}]), - {{lessOrEqual, Dec}, Rest, RbExp + RbCho}; - - -%% 'present' - <<2:2,_:1,7:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_octet_string(Bytes1,[],[{tag,128,7,'IMPLICIT',32}], no_length, mandatory), - {{present, Dec}, Rest, RbExp + RbCho}; - - -%% 'approxMatch' - <<2:2,_:1,8:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_AttributeValueAssertion'(Bytes1, mandatory, [{tag,128,8,'IMPLICIT',32}]), - {{approxMatch, Dec}, Rest, RbExp + RbCho}; - - -%% 'extensibleMatch' - <<2:2,_:1,9:5,_/binary>> -> - {Dec, Rest, RbCho} = 'dec_MatchingRuleAssertion'(Bytes1, mandatory, [{tag,128,9,'IMPLICIT',32}]), - {{extensibleMatch, Dec}, Rest, RbExp + RbCho}; - - Else -> - case OptOrMand of - mandatory ->exit({error,{asn1,{invalid_choice_tag,Else}}}); - _ ->exit({error,{asn1,{no_optional_tag,Else}}}) - end - end. - - -%%================================ -%% SubstringFilter -%%================================ -'enc_SubstringFilter'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,type), []), - -%%------------------------------------------------- -%% attribute number 2 with type SEQUENCE OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_SubstringFilter_substrings'(?RT_BER:cindex(3,Val,substrings), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% SubstringFilter_substrings -%%================================ - -'enc_SubstringFilter_substrings'({'SubstringFilter_substrings',Val}, TagIn) -> - 'enc_SubstringFilter_substrings'(Val, TagIn); - -'enc_SubstringFilter_substrings'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_SubstringFilter_substrings_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_SubstringFilter_substrings_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_SubstringFilter_substrings_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_SubstringFilter_substrings_SEQOF'(H, []), - 'enc_SubstringFilter_substrings_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - - -%%================================ -%% SubstringFilter_substrings_SEQOF -%%================================ - -'enc_SubstringFilter_substrings_SEQOF'({'SubstringFilter_substrings_SEQOF',Val}, TagIn) -> - 'enc_SubstringFilter_substrings_SEQOF'(Val, TagIn); - -'enc_SubstringFilter_substrings_SEQOF'(Val, TagIn) -> - {EncBytes,EncLen} = case element(1,Val) of - initial -> - ?RT_BER:encode_octet_string([], element(2,Val), [{tag,128,0,'IMPLICIT',32}]); - any -> - ?RT_BER:encode_octet_string([], element(2,Val), [{tag,128,1,'IMPLICIT',32}]); - final -> - ?RT_BER:encode_octet_string([], element(2,Val), [{tag,128,2,'IMPLICIT',32}]); - Else -> - exit({error,{asn1,{invalid_choice_type,Else}}}) - end, - -?RT_BER:encode_tags(TagIn ++[], EncBytes, EncLen). - - -'dec_SubstringFilter_substrings_SEQOF'(Bytes, OptOrMand, TagIn) -> - {FormLen,Bytes1, RbExp} = ?RT_BER:check_tags(TagIn++[], Bytes, OptOrMand), - case Bytes1 of - -%% 'initial' - <<2:2,_:1,0:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_octet_string(Bytes1,[],[{tag,128,0,'IMPLICIT',32}], no_length, mandatory), - {{initial, Dec}, Rest, RbExp + RbCho}; - - -%% 'any' - <<2:2,_:1,1:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_octet_string(Bytes1,[],[{tag,128,1,'IMPLICIT',32}], no_length, mandatory), - {{any, Dec}, Rest, RbExp + RbCho}; - - -%% 'final' - <<2:2,_:1,2:5,_/binary>> -> - {Dec, Rest, RbCho} = ?RT_BER:decode_octet_string(Bytes1,[],[{tag,128,2,'IMPLICIT',32}], no_length, mandatory), - {{final, Dec}, Rest, RbExp + RbCho}; - - Else -> - case OptOrMand of - mandatory ->exit({error,{asn1,{invalid_choice_tag,Else}}}); - _ ->exit({error,{asn1,{no_optional_tag,Else}}}) - end - end. -'dec_SubstringFilter_substrings'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_SubstringFilter_substrings_SEQOF'/3, [], []). - - - - -'dec_SubstringFilter'(Bytes, OptOrMand) -> - 'dec_SubstringFilter'(Bytes, OptOrMand, []). - -'dec_SubstringFilter'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SEQUENCE OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_SubstringFilter_substrings'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'SubstringFilter', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% MatchingRuleAssertion -%%================================ -'enc_MatchingRuleAssertion'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes1,EncLen1} = case ?RT_BER:cindex(2,Val,matchingRule) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,matchingRule), [{tag,128,1,'IMPLICIT',32}]) - end, - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes2,EncLen2} = case ?RT_BER:cindex(3,Val,type) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,type), [{tag,128,2,'IMPLICIT',32}]) - end, - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {EncBytes3,EncLen3} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(4,Val,matchValue), [{tag,128,3,'IMPLICIT',32}]), - -%%------------------------------------------------- -%% attribute number 4 with type BOOLEAN DEFAULT = false -%%------------------------------------------------- - {EncBytes4,EncLen4} = case ?RT_BER:cindex(5,Val,dnAttributes) of - asn1_DEFAULT -> {<<>>,0}; - false -> {<<>>,0}; - _ -> - ?RT_BER:encode_boolean(?RT_BER:cindex(5,Val,dnAttributes), [{tag,128,4,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_MatchingRuleAssertion'(Bytes, OptOrMand) -> - 'dec_MatchingRuleAssertion'(Bytes, OptOrMand, []). - -'dec_MatchingRuleAssertion'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = case Bytes2 of -<<2:2,_:1,1:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes2,[],[{tag,128,1,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes2, 0 } -end, - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = case Bytes3 of -<<2:2,_:1,2:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes3,[],[{tag,128,2,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes3, 0 } -end, - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_octet_string(Bytes4,[],[{tag,128,3,'IMPLICIT',32}], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 4 with type BOOLEAN DEFAULT = false -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = case Bytes5 of -<<2:2,_:1,4:5,_/binary>> -> -?RT_BER:decode_boolean(Bytes5,[{tag,128,4,'IMPLICIT',32}], mandatory); -_ -> -{false,Bytes5, 0 } -end, - -{Bytes7,Rb6} = ?RT_BER:restbytes2(RemBytes, Bytes6,noext), - {{'MatchingRuleAssertion', Term1, Term2, Term3, Term4}, Bytes7, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6}. - - -%%================================ -%% SearchResultEntry -%%================================ -'enc_SearchResultEntry'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,objectName), []), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:PartialAttributeList -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_PartialAttributeList'(?RT_BER:cindex(3,Val,attributes), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,4,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_SearchResultEntry'(Bytes, OptOrMand) -> - 'dec_SearchResultEntry'(Bytes, OptOrMand, []). - -'dec_SearchResultEntry'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,4,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:PartialAttributeList -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_PartialAttributeList'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'SearchResultEntry', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% PartialAttributeList -%%================================ - -'enc_PartialAttributeList'({'PartialAttributeList',Val}, TagIn) -> - 'enc_PartialAttributeList'(Val, TagIn); - -'enc_PartialAttributeList'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_PartialAttributeList_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_PartialAttributeList_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_PartialAttributeList_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_PartialAttributeList_SEQOF'(H, []), - 'enc_PartialAttributeList_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - - -%%================================ -%% PartialAttributeList_SEQOF -%%================================ -'enc_PartialAttributeList_SEQOF'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,type), []), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_PartialAttributeList_SEQOF_vals'(?RT_BER:cindex(3,Val,vals), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% PartialAttributeList_SEQOF_vals -%%================================ - -'enc_PartialAttributeList_SEQOF_vals'({'PartialAttributeList_SEQOF_vals',Val}, TagIn) -> - 'enc_PartialAttributeList_SEQOF_vals'(Val, TagIn); - -'enc_PartialAttributeList_SEQOF_vals'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_PartialAttributeList_SEQOF_vals_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_PartialAttributeList_SEQOF_vals_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_PartialAttributeList_SEQOF_vals_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_PartialAttributeList_SEQOF_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_PartialAttributeList_SEQOF_vals'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - -'dec_PartialAttributeList_SEQOF'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_PartialAttributeList_SEQOF_vals'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'PartialAttributeList_SEQOF', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -'dec_PartialAttributeList'(Bytes, OptOrMand) -> - 'dec_PartialAttributeList'(Bytes, OptOrMand, []). - -'dec_PartialAttributeList'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_PartialAttributeList_SEQOF'/3, [], []). - - - - -%%================================ -%% SearchResultReference -%%================================ - -'enc_SearchResultReference'({'SearchResultReference',Val}, TagIn) -> - 'enc_SearchResultReference'(Val, TagIn); - -'enc_SearchResultReference'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_SearchResultReference_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,64,19,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_SearchResultReference_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_SearchResultReference_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_SearchResultReference_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - -'dec_SearchResultReference'(Bytes, OptOrMand) -> - 'dec_SearchResultReference'(Bytes, OptOrMand, []). - -'dec_SearchResultReference'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,19,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - - - -%%================================ -%% SearchResultDone -%%================================ - -'enc_SearchResultDone'({'SearchResultDone',Val}, TagIn) -> - 'enc_SearchResultDone'(Val, TagIn); - -'enc_SearchResultDone'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,5,'IMPLICIT',32}]). - - -'dec_SearchResultDone'(Bytes, OptOrMand) -> - 'dec_SearchResultDone'(Bytes, OptOrMand, []). - -'dec_SearchResultDone'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,5,'IMPLICIT',32}]). - - - -%%================================ -%% ModifyRequest -%%================================ -'enc_ModifyRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,object), []), - -%%------------------------------------------------- -%% attribute number 2 with type SEQUENCE OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_ModifyRequest_modification'(?RT_BER:cindex(3,Val,modification), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,6,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% ModifyRequest_modification -%%================================ - -'enc_ModifyRequest_modification'({'ModifyRequest_modification',Val}, TagIn) -> - 'enc_ModifyRequest_modification'(Val, TagIn); - -'enc_ModifyRequest_modification'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_ModifyRequest_modification_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_ModifyRequest_modification_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_ModifyRequest_modification_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_ModifyRequest_modification_SEQOF'(H, []), - 'enc_ModifyRequest_modification_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - - -%%================================ -%% ModifyRequest_modification_SEQOF -%%================================ -'enc_ModifyRequest_modification_SEQOF'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {EncBytes1,EncLen1} = case (case ?RT_BER:cindex(2,Val,operation) of {_,_}->element(2,?RT_BER:cindex(2,Val,operation));_->?RT_BER:cindex(2,Val,operation) end) of -add -> ?RT_BER:encode_enumerated(0,[]); -delete -> ?RT_BER:encode_enumerated(1,[]); -replace -> ?RT_BER:encode_enumerated(2,[]); -Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}}) -end, - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeTypeAndValues -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_AttributeTypeAndValues'(?RT_BER:cindex(3,Val,modification), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). -'dec_ModifyRequest_modification_SEQOF'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_enumerated(Bytes2,[],[{add,0},{delete,1},{replace,2}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeTypeAndValues -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_AttributeTypeAndValues'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'ModifyRequest_modification_SEQOF', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. -'dec_ModifyRequest_modification'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_ModifyRequest_modification_SEQOF'/3, [], []). - - - - -'dec_ModifyRequest'(Bytes, OptOrMand) -> - 'dec_ModifyRequest'(Bytes, OptOrMand, []). - -'dec_ModifyRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,6,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SEQUENCE OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_ModifyRequest_modification'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'ModifyRequest', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% AttributeTypeAndValues -%%================================ -'enc_AttributeTypeAndValues'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,type), []), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_AttributeTypeAndValues_vals'(?RT_BER:cindex(3,Val,vals), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% AttributeTypeAndValues_vals -%%================================ - -'enc_AttributeTypeAndValues_vals'({'AttributeTypeAndValues_vals',Val}, TagIn) -> - 'enc_AttributeTypeAndValues_vals'(Val, TagIn); - -'enc_AttributeTypeAndValues_vals'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_AttributeTypeAndValues_vals_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_AttributeTypeAndValues_vals_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_AttributeTypeAndValues_vals_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_AttributeTypeAndValues_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_AttributeTypeAndValues_vals'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - - - -'dec_AttributeTypeAndValues'(Bytes, OptOrMand) -> - 'dec_AttributeTypeAndValues'(Bytes, OptOrMand, []). - -'dec_AttributeTypeAndValues'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_AttributeTypeAndValues_vals'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'AttributeTypeAndValues', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% ModifyResponse -%%================================ - -'enc_ModifyResponse'({'ModifyResponse',Val}, TagIn) -> - 'enc_ModifyResponse'(Val, TagIn); - -'enc_ModifyResponse'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,7,'IMPLICIT',32}]). - - -'dec_ModifyResponse'(Bytes, OptOrMand) -> - 'dec_ModifyResponse'(Bytes, OptOrMand, []). - -'dec_ModifyResponse'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,7,'IMPLICIT',32}]). - - - -%%================================ -%% AddRequest -%%================================ -'enc_AddRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,entry), []), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeList -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_AttributeList'(?RT_BER:cindex(3,Val,attributes), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,8,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_AddRequest'(Bytes, OptOrMand) -> - 'dec_AddRequest'(Bytes, OptOrMand, []). - -'dec_AddRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,8,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeList -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_AttributeList'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'AddRequest', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% AttributeList -%%================================ - -'enc_AttributeList'({'AttributeList',Val}, TagIn) -> - 'enc_AttributeList'(Val, TagIn); - -'enc_AttributeList'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_AttributeList_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_AttributeList_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_AttributeList_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = 'enc_AttributeList_SEQOF'(H, []), - 'enc_AttributeList_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - - - - -%%================================ -%% AttributeList_SEQOF -%%================================ -'enc_AttributeList_SEQOF'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,type), []), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_AttributeList_SEQOF_vals'(?RT_BER:cindex(3,Val,vals), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - - -%%================================ -%% AttributeList_SEQOF_vals -%%================================ - -'enc_AttributeList_SEQOF_vals'({'AttributeList_SEQOF_vals',Val}, TagIn) -> - 'enc_AttributeList_SEQOF_vals'(Val, TagIn); - -'enc_AttributeList_SEQOF_vals'(Val, TagIn) -> - {EncBytes,EncLen} = 'enc_AttributeList_SEQOF_vals_components'(Val,[],0), - ?RT_BER:encode_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], EncBytes, EncLen). - -'enc_AttributeList_SEQOF_vals_components'([], AccBytes, AccLen) -> - {lists:reverse(AccBytes),AccLen}; - -'enc_AttributeList_SEQOF_vals_components'([H|T],AccBytes, AccLen) -> - {EncBytes,EncLen} = ?RT_BER:encode_octet_string([], H, []), - 'enc_AttributeList_SEQOF_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen). - -'dec_AttributeList_SEQOF_vals'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,17,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun(FBytes,_,_)-> -?RT_BER:decode_octet_string(FBytes,[],[], no_length, mandatory) -end, [], []). - - -'dec_AttributeList_SEQOF'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type SET OF -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_AttributeList_SEQOF_vals'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'AttributeList_SEQOF', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -'dec_AttributeList'(Bytes, OptOrMand) -> - 'dec_AttributeList'(Bytes, OptOrMand, []). - -'dec_AttributeList'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), - ?RT_BER:decode_components(Rb1, Len, Bytes1, fun 'dec_AttributeList_SEQOF'/3, [], []). - - - - -%%================================ -%% AddResponse -%%================================ - -'enc_AddResponse'({'AddResponse',Val}, TagIn) -> - 'enc_AddResponse'(Val, TagIn); - -'enc_AddResponse'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,9,'IMPLICIT',32}]). - - -'dec_AddResponse'(Bytes, OptOrMand) -> - 'dec_AddResponse'(Bytes, OptOrMand, []). - -'dec_AddResponse'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,9,'IMPLICIT',32}]). - - - -%%================================ -%% DelRequest -%%================================ - -'enc_DelRequest'({'DelRequest',Val}, TagIn) -> - 'enc_DelRequest'(Val, TagIn); - -'enc_DelRequest'(Val, TagIn) -> -?RT_BER:encode_octet_string([], Val, TagIn ++ [{tag,64,10,'IMPLICIT',32}]). - - -'dec_DelRequest'(Bytes, OptOrMand) -> - 'dec_DelRequest'(Bytes, OptOrMand, []). - -'dec_DelRequest'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_octet_string(Bytes,[],TagIn++[{tag,64,10,'IMPLICIT',32}], no_length, OptOrMand). - - - -%%================================ -%% DelResponse -%%================================ - -'enc_DelResponse'({'DelResponse',Val}, TagIn) -> - 'enc_DelResponse'(Val, TagIn); - -'enc_DelResponse'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,11,'IMPLICIT',32}]). - - -'dec_DelResponse'(Bytes, OptOrMand) -> - 'dec_DelResponse'(Bytes, OptOrMand, []). - -'dec_DelResponse'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,11,'IMPLICIT',32}]). - - - -%%================================ -%% ModifyDNRequest -%%================================ -'enc_ModifyDNRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,entry), []), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,newrdn), []), - -%%------------------------------------------------- -%% attribute number 3 with type BOOLEAN -%%------------------------------------------------- - {EncBytes3,EncLen3} = ?RT_BER:encode_boolean(?RT_BER:cindex(4,Val,deleteoldrdn), []), - -%%------------------------------------------------- -%% attribute number 4 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes4,EncLen4} = case ?RT_BER:cindex(5,Val,newSuperior) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(5,Val,newSuperior), [{tag,128,0,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,12,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_ModifyDNRequest'(Bytes, OptOrMand) -> - 'dec_ModifyDNRequest'(Bytes, OptOrMand, []). - -'dec_ModifyDNRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,12,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 3 with type BOOLEAN -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_boolean(Bytes4,[], mandatory), - -%%------------------------------------------------- -%% attribute number 4 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = case Bytes5 of -<<2:2,_:1,0:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes5,[],[{tag,128,0,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes5, 0 } -end, - -{Bytes7,Rb6} = ?RT_BER:restbytes2(RemBytes, Bytes6,noext), - {{'ModifyDNRequest', Term1, Term2, Term3, Term4}, Bytes7, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6}. - - -%%================================ -%% ModifyDNResponse -%%================================ - -'enc_ModifyDNResponse'({'ModifyDNResponse',Val}, TagIn) -> - 'enc_ModifyDNResponse'(Val, TagIn); - -'enc_ModifyDNResponse'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,13,'IMPLICIT',32}]). - - -'dec_ModifyDNResponse'(Bytes, OptOrMand) -> - 'dec_ModifyDNResponse'(Bytes, OptOrMand, []). - -'dec_ModifyDNResponse'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,13,'IMPLICIT',32}]). - - - -%%================================ -%% CompareRequest -%%================================ -'enc_CompareRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,entry), []), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeValueAssertion -%%------------------------------------------------- - {EncBytes2,EncLen2} = 'enc_AttributeValueAssertion'(?RT_BER:cindex(3,Val,ava), []), - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,14,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_CompareRequest'(Bytes, OptOrMand) -> - 'dec_CompareRequest'(Bytes, OptOrMand, []). - -'dec_CompareRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,14,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 External ELDAPv3:AttributeValueAssertion -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = 'dec_AttributeValueAssertion'(Bytes3, mandatory, []), - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'CompareRequest', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% CompareResponse -%%================================ - -'enc_CompareResponse'({'CompareResponse',Val}, TagIn) -> - 'enc_CompareResponse'(Val, TagIn); - -'enc_CompareResponse'(Val, TagIn) -> - 'enc_LDAPResult'(Val, TagIn ++ [{tag,64,15,'IMPLICIT',32}]). - - -'dec_CompareResponse'(Bytes, OptOrMand) -> - 'dec_CompareResponse'(Bytes, OptOrMand, []). - -'dec_CompareResponse'(Bytes, OptOrMand, TagIn) -> -'dec_LDAPResult'(Bytes, OptOrMand, TagIn++[{tag,64,15,'IMPLICIT',32}]). - - - -%%================================ -%% AbandonRequest -%%================================ - -'enc_AbandonRequest'({'AbandonRequest',Val}, TagIn) -> - 'enc_AbandonRequest'(Val, TagIn); - -'enc_AbandonRequest'(Val, TagIn) -> -?RT_BER:encode_integer([], Val, TagIn ++ [{tag,64,16,'IMPLICIT',32}]). - - -'dec_AbandonRequest'(Bytes, OptOrMand) -> - 'dec_AbandonRequest'(Bytes, OptOrMand, []). - -'dec_AbandonRequest'(Bytes, OptOrMand, TagIn) -> -?RT_BER:decode_integer(Bytes,{0,2147483647},TagIn++[{tag,64,16,'IMPLICIT',32}], OptOrMand). - - - -%%================================ -%% ExtendedRequest -%%================================ -'enc_ExtendedRequest'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {EncBytes1,EncLen1} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(2,Val,requestName), [{tag,128,0,'IMPLICIT',32}]), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes2,EncLen2} = case ?RT_BER:cindex(3,Val,requestValue) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,requestValue), [{tag,128,1,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2], -LenSoFar = EncLen1 + EncLen2, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,23,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_ExtendedRequest'(Bytes, OptOrMand) -> - 'dec_ExtendedRequest'(Bytes, OptOrMand, []). - -'dec_ExtendedRequest'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,23,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type OCTET STRING -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_octet_string(Bytes2,[],[{tag,128,0,'IMPLICIT',32}], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = case Bytes3 of -<<2:2,_:1,1:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes3,[],[{tag,128,1,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes3, 0 } -end, - -{Bytes5,Rb4} = ?RT_BER:restbytes2(RemBytes, Bytes4,noext), - {{'ExtendedRequest', Term1, Term2}, Bytes5, Rb1+Rb2+Rb3+Rb4}. - - -%%================================ -%% ExtendedResponse -%%================================ -'enc_ExtendedResponse'(Val, TagIn) -> - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {EncBytes1,EncLen1} = case (case ?RT_BER:cindex(2,Val,resultCode) of {_,_}->element(2,?RT_BER:cindex(2,Val,resultCode));_->?RT_BER:cindex(2,Val,resultCode) end) of -success -> ?RT_BER:encode_enumerated(0,[]); -operationsError -> ?RT_BER:encode_enumerated(1,[]); -protocolError -> ?RT_BER:encode_enumerated(2,[]); -timeLimitExceeded -> ?RT_BER:encode_enumerated(3,[]); -sizeLimitExceeded -> ?RT_BER:encode_enumerated(4,[]); -compareFalse -> ?RT_BER:encode_enumerated(5,[]); -compareTrue -> ?RT_BER:encode_enumerated(6,[]); -authMethodNotSupported -> ?RT_BER:encode_enumerated(7,[]); -strongAuthRequired -> ?RT_BER:encode_enumerated(8,[]); -referral -> ?RT_BER:encode_enumerated(10,[]); -adminLimitExceeded -> ?RT_BER:encode_enumerated(11,[]); -unavailableCriticalExtension -> ?RT_BER:encode_enumerated(12,[]); -confidentialityRequired -> ?RT_BER:encode_enumerated(13,[]); -saslBindInProgress -> ?RT_BER:encode_enumerated(14,[]); -noSuchAttribute -> ?RT_BER:encode_enumerated(16,[]); -undefinedAttributeType -> ?RT_BER:encode_enumerated(17,[]); -inappropriateMatching -> ?RT_BER:encode_enumerated(18,[]); -constraintViolation -> ?RT_BER:encode_enumerated(19,[]); -attributeOrValueExists -> ?RT_BER:encode_enumerated(20,[]); -invalidAttributeSyntax -> ?RT_BER:encode_enumerated(21,[]); -noSuchObject -> ?RT_BER:encode_enumerated(32,[]); -aliasProblem -> ?RT_BER:encode_enumerated(33,[]); -invalidDNSyntax -> ?RT_BER:encode_enumerated(34,[]); -aliasDereferencingProblem -> ?RT_BER:encode_enumerated(36,[]); -inappropriateAuthentication -> ?RT_BER:encode_enumerated(48,[]); -invalidCredentials -> ?RT_BER:encode_enumerated(49,[]); -insufficientAccessRights -> ?RT_BER:encode_enumerated(50,[]); -busy -> ?RT_BER:encode_enumerated(51,[]); -unavailable -> ?RT_BER:encode_enumerated(52,[]); -unwillingToPerform -> ?RT_BER:encode_enumerated(53,[]); -loopDetect -> ?RT_BER:encode_enumerated(54,[]); -namingViolation -> ?RT_BER:encode_enumerated(64,[]); -objectClassViolation -> ?RT_BER:encode_enumerated(65,[]); -notAllowedOnNonLeaf -> ?RT_BER:encode_enumerated(66,[]); -notAllowedOnRDN -> ?RT_BER:encode_enumerated(67,[]); -entryAlreadyExists -> ?RT_BER:encode_enumerated(68,[]); -objectClassModsProhibited -> ?RT_BER:encode_enumerated(69,[]); -affectsMultipleDSAs -> ?RT_BER:encode_enumerated(71,[]); -other -> ?RT_BER:encode_enumerated(80,[]); -Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}}) -end, - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {EncBytes2,EncLen2} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(3,Val,matchedDN), []), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {EncBytes3,EncLen3} = ?RT_BER:encode_octet_string([], ?RT_BER:cindex(4,Val,errorMessage), []), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {EncBytes4,EncLen4} = case ?RT_BER:cindex(5,Val,referral) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - 'enc_Referral'(?RT_BER:cindex(5,Val,referral), [{tag,128,3,'IMPLICIT',32}]) - end, - -%%------------------------------------------------- -%% attribute number 5 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes5,EncLen5} = case ?RT_BER:cindex(6,Val,responseName) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(6,Val,responseName), [{tag,128,10,'IMPLICIT',32}]) - end, - -%%------------------------------------------------- -%% attribute number 6 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {EncBytes6,EncLen6} = case ?RT_BER:cindex(7,Val,response) of - asn1_NOVALUE -> {<<>>,0}; - _ -> - ?RT_BER:encode_octet_string([], ?RT_BER:cindex(7,Val,response), [{tag,128,11,'IMPLICIT',32}]) - end, - - BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5, EncBytes6], -LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5 + EncLen6, -{TagBytes,Len} = ?RT_BER:encode_tags(TagIn ++ [{tag,64,24,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], BytesSoFar, LenSoFar). - - -'dec_ExtendedResponse'(Bytes, OptOrMand) -> - 'dec_ExtendedResponse'(Bytes, OptOrMand, []). - -'dec_ExtendedResponse'(Bytes, OptOrMand, TagIn) -> - %%------------------------------------------------- - %% decode tag and length - %%------------------------------------------------- - {{_,Len},Bytes1,Rb1} = ?RT_BER:check_tags(TagIn ++ [{tag,64,24,'IMPLICIT',32},{tag,0,16,'IMPLICIT',32}], Bytes, OptOrMand), -{Bytes2,RemBytes} = ?RT_BER:split_list(Bytes1,Len), - -%%------------------------------------------------- -%% attribute number 1 with type ENUMERATED -%%------------------------------------------------- - {Term1,Bytes3,Rb2} = ?RT_BER:decode_enumerated(Bytes2,[],[{success,0},{operationsError,1},{protocolError,2},{timeLimitExceeded,3},{sizeLimitExceeded,4},{compareFalse,5},{compareTrue,6},{authMethodNotSupported,7},{strongAuthRequired,8},{referral,10},{adminLimitExceeded,11},{unavailableCriticalExtension,12},{confidentialityRequired,13},{saslBindInProgress,14},{noSuchAttribute,16},{undefinedAttributeType,17},{inappropriateMatching,18},{constraintViolation,19},{attributeOrValueExists,20},{invalidAttributeSyntax,21},{noSuchObject,32},{aliasProblem,33},{invalidDNSyntax,34},{aliasDereferencingProblem,36},{inappropriateAuthentication,48},{invalidCredentials,49},{insufficientAccessRights,50},{busy,51},{unavailable,52},{unwillingToPerform,53},{loopDetect,54},{namingViolation,64},{objectClassViolation,65},{notAllowedOnNonLeaf,66},{notAllowedOnRDN,67},{entryAlreadyExists,68},{objectClassModsProhibited,69},{affectsMultipleDSAs,71},{other,80}],[], mandatory), - -%%------------------------------------------------- -%% attribute number 2 with type OCTET STRING -%%------------------------------------------------- - {Term2,Bytes4,Rb3} = ?RT_BER:decode_octet_string(Bytes3,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 3 with type OCTET STRING -%%------------------------------------------------- - {Term3,Bytes5,Rb4} = ?RT_BER:decode_octet_string(Bytes4,[],[], no_length, mandatory), - -%%------------------------------------------------- -%% attribute number 4 External ELDAPv3:Referral OPTIONAL -%%------------------------------------------------- - {Term4,Bytes6,Rb5} = case Bytes5 of -<<2:2,_:1,3:5,_/binary>> -> -'dec_Referral'(Bytes5, opt_or_default, [{tag,128,3,'IMPLICIT',32}]); -_ -> -{ asn1_NOVALUE, Bytes5, 0 } -end, - -%%------------------------------------------------- -%% attribute number 5 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term5,Bytes7,Rb6} = case Bytes6 of -<<2:2,_:1,10:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes6,[],[{tag,128,10,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes6, 0 } -end, - -%%------------------------------------------------- -%% attribute number 6 with type OCTET STRING OPTIONAL -%%------------------------------------------------- - {Term6,Bytes8,Rb7} = case Bytes7 of -<<2:2,_:1,11:5,_/binary>> -> -?RT_BER:decode_octet_string(Bytes7,[],[{tag,128,11,'IMPLICIT',32}], no_length, mandatory); -_ -> -{ asn1_NOVALUE, Bytes7, 0 } -end, - -{Bytes9,Rb8} = ?RT_BER:restbytes2(RemBytes, Bytes8,noext), - {{'ExtendedResponse', Term1, Term2, Term3, Term4, Term5, Term6}, Bytes9, Rb1+Rb2+Rb3+Rb4+Rb5+Rb6+Rb7+Rb8}. -'maxInt'() -> -2147483647. - |