Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-30 16:36:29 +01:00
Code Releases Activity
3b3d3eaa04
xmpp.chapril.org-ejabberd/src/ELDAPv3.erl

3338 lines
104 KiB
Erlang
Raw Normal View History

Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%% Generated by the Erlang ASN.1 BER_V2-compiler version, utilizing bit-syntax:2.0.1
%% Purpose: encoder and decoder to the types in mod ELDAPv3
-module('ELDAPv3').
-compile(nowarn_unused_vars).
Use new configuration validator
2019-06-14 11:33:26 +02:00
-dialyzer(no_match).
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
-include("ELDAPv3.hrl").
-asn1_info([{vsn,'2.0.1'},
{module,'ELDAPv3'},
{options,[{i,"src"},{outdir,"src"},noobj,{i,"."},{i,"asn1"}]}]).
-export([encoding_rule/0,bit_string_format/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,
'enc_PasswdModifyRequestValue'/2,
'enc_PasswdModifyResponseValue'/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,
'dec_PasswdModifyRequestValue'/2,
'dec_PasswdModifyResponseValue'/2
]).
-export([
'maxInt'/0,
'passwdModifyOID'/0
]).
-export([info/0]).
-export([encode/2,decode/2]).
encoding_rule() -> ber.
bit_string_format() -> bitstring.
encode(Type,Data) ->
case catch encode_disp(Type,Data) of
{'EXIT',{error,Reason}} ->
{error,Reason};
{'EXIT',Reason} ->
{error,{asn1,Reason}};
{Bytes,_Len} ->
{ok,iolist_to_binary(Bytes)};
Bytes ->
{ok,iolist_to_binary(Bytes)}
end.
decode(Type,Data) ->
case catch decode_disp(Type,element(1, ber_decode_nif(Data))) of
{'EXIT',{error,Reason}} ->
{error,Reason};
{'EXIT',Reason} ->
{error,{asn1,Reason}};
Result ->
{ok,Result}
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('PasswdModifyRequestValue',Data) -> 'enc_PasswdModifyRequestValue'(Data);
encode_disp('PasswdModifyResponseValue',Data) -> 'enc_PasswdModifyResponseValue'(Data);
encode_disp(Type,_Data) -> exit({error,{asn1,{undefined_type,Type}}}).
decode_disp('LDAPMessage',Data) -> 'dec_LDAPMessage'(Data);
decode_disp('MessageID',Data) -> 'dec_MessageID'(Data);
decode_disp('LDAPString',Data) -> 'dec_LDAPString'(Data);
decode_disp('LDAPOID',Data) -> 'dec_LDAPOID'(Data);
decode_disp('LDAPDN',Data) -> 'dec_LDAPDN'(Data);
decode_disp('RelativeLDAPDN',Data) -> 'dec_RelativeLDAPDN'(Data);
decode_disp('AttributeType',Data) -> 'dec_AttributeType'(Data);
decode_disp('AttributeDescription',Data) -> 'dec_AttributeDescription'(Data);
decode_disp('AttributeDescriptionList',Data) -> 'dec_AttributeDescriptionList'(Data);
decode_disp('AttributeValue',Data) -> 'dec_AttributeValue'(Data);
decode_disp('AttributeValueAssertion',Data) -> 'dec_AttributeValueAssertion'(Data);
decode_disp('AssertionValue',Data) -> 'dec_AssertionValue'(Data);
decode_disp('Attribute',Data) -> 'dec_Attribute'(Data);
decode_disp('MatchingRuleId',Data) -> 'dec_MatchingRuleId'(Data);
decode_disp('LDAPResult',Data) -> 'dec_LDAPResult'(Data);
decode_disp('Referral',Data) -> 'dec_Referral'(Data);
decode_disp('LDAPURL',Data) -> 'dec_LDAPURL'(Data);
decode_disp('Controls',Data) -> 'dec_Controls'(Data);
decode_disp('Control',Data) -> 'dec_Control'(Data);
decode_disp('BindRequest',Data) -> 'dec_BindRequest'(Data);
decode_disp('AuthenticationChoice',Data) -> 'dec_AuthenticationChoice'(Data);
decode_disp('SaslCredentials',Data) -> 'dec_SaslCredentials'(Data);
decode_disp('BindResponse',Data) -> 'dec_BindResponse'(Data);
decode_disp('UnbindRequest',Data) -> 'dec_UnbindRequest'(Data);
decode_disp('SearchRequest',Data) -> 'dec_SearchRequest'(Data);
decode_disp('Filter',Data) -> 'dec_Filter'(Data);
decode_disp('SubstringFilter',Data) -> 'dec_SubstringFilter'(Data);
decode_disp('MatchingRuleAssertion',Data) -> 'dec_MatchingRuleAssertion'(Data);
decode_disp('SearchResultEntry',Data) -> 'dec_SearchResultEntry'(Data);
decode_disp('PartialAttributeList',Data) -> 'dec_PartialAttributeList'(Data);
decode_disp('SearchResultReference',Data) -> 'dec_SearchResultReference'(Data);
decode_disp('SearchResultDone',Data) -> 'dec_SearchResultDone'(Data);
decode_disp('ModifyRequest',Data) -> 'dec_ModifyRequest'(Data);
decode_disp('AttributeTypeAndValues',Data) -> 'dec_AttributeTypeAndValues'(Data);
decode_disp('ModifyResponse',Data) -> 'dec_ModifyResponse'(Data);
decode_disp('AddRequest',Data) -> 'dec_AddRequest'(Data);
decode_disp('AttributeList',Data) -> 'dec_AttributeList'(Data);
decode_disp('AddResponse',Data) -> 'dec_AddResponse'(Data);
decode_disp('DelRequest',Data) -> 'dec_DelRequest'(Data);
decode_disp('DelResponse',Data) -> 'dec_DelResponse'(Data);
decode_disp('ModifyDNRequest',Data) -> 'dec_ModifyDNRequest'(Data);
decode_disp('ModifyDNResponse',Data) -> 'dec_ModifyDNResponse'(Data);
decode_disp('CompareRequest',Data) -> 'dec_CompareRequest'(Data);
decode_disp('CompareResponse',Data) -> 'dec_CompareResponse'(Data);
decode_disp('AbandonRequest',Data) -> 'dec_AbandonRequest'(Data);
decode_disp('ExtendedRequest',Data) -> 'dec_ExtendedRequest'(Data);
decode_disp('ExtendedResponse',Data) -> 'dec_ExtendedResponse'(Data);
decode_disp('PasswdModifyRequestValue',Data) -> 'dec_PasswdModifyRequestValue'(Data);
decode_disp('PasswdModifyResponseValue',Data) -> 'dec_PasswdModifyResponseValue'(Data);
decode_disp(Type,_Data) -> exit({error,{asn1,{undefined_type,Type}}}).
info() ->
case ?MODULE:module_info(attributes) of
Attributes when is_list(Attributes) ->
case lists:keyfind(asn1_info, 1, Attributes) of
{_,Info} when is_list(Info) ->
Info;
_ ->
[]
end;
_ ->
[]
end.
%%================================
%% LDAPMessage
%%================================
'enc_LDAPMessage'(Val) ->
'enc_LDAPMessage'(Val, [<<48>>]).
'enc_LDAPMessage'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3} = Val,
%%-------------------------------------------------
%% attribute messageID(1) with type INTEGER
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_integer(Cindex1, [<<2>>]),
%%-------------------------------------------------
%% attribute protocolOp(2) with type CHOICE
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_LDAPMessage_protocolOp'(Cindex2, []),
%%-------------------------------------------------
%% attribute controls(3) External ELDAPv3:Controls OPTIONAL
%%-------------------------------------------------
{EncBytes3,EncLen3} = case Cindex3 of
asn1_NOVALUE -> {<<>>,0};
_ ->
'enc_Controls'(Cindex3, [<<160>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3],
LenSoFar = EncLen1 + EncLen2 + EncLen3,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% LDAPMessage_protocolOp
%%================================
'enc_LDAPMessage_protocolOp'(Val, TagIn) ->
{EncBytes,EncLen} = case element(1,Val) of
bindRequest ->
'enc_BindRequest'(element(2,Val), [<<96>>]);
bindResponse ->
'enc_BindResponse'(element(2,Val), [<<97>>]);
unbindRequest ->
encode_null(element(2,Val), [<<66>>]);
searchRequest ->
'enc_SearchRequest'(element(2,Val), [<<99>>]);
searchResEntry ->
'enc_SearchResultEntry'(element(2,Val), [<<100>>]);
searchResDone ->
'enc_SearchResultDone'(element(2,Val), [<<101>>]);
searchResRef ->
'enc_SearchResultReference'(element(2,Val), [<<115>>]);
modifyRequest ->
'enc_ModifyRequest'(element(2,Val), [<<102>>]);
modifyResponse ->
'enc_ModifyResponse'(element(2,Val), [<<103>>]);
addRequest ->
'enc_AddRequest'(element(2,Val), [<<104>>]);
addResponse ->
'enc_AddResponse'(element(2,Val), [<<105>>]);
delRequest ->
encode_restricted_string(element(2,Val), [<<74>>]);
delResponse ->
'enc_DelResponse'(element(2,Val), [<<107>>]);
modDNRequest ->
'enc_ModifyDNRequest'(element(2,Val), [<<108>>]);
modDNResponse ->
'enc_ModifyDNResponse'(element(2,Val), [<<109>>]);
compareRequest ->
'enc_CompareRequest'(element(2,Val), [<<110>>]);
compareResponse ->
'enc_CompareResponse'(element(2,Val), [<<111>>]);
abandonRequest ->
encode_integer(element(2,Val), [<<80>>]);
extendedReq ->
'enc_ExtendedRequest'(element(2,Val), [<<119>>]);
extendedResp ->
'enc_ExtendedResponse'(element(2,Val), [<<120>>]);
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_type,Else}}})
end,
encode_tags(TagIn, EncBytes, EncLen).
'dec_LDAPMessage_protocolOp'(Tlv, TagIn) ->
Tlv1 = match_tags(Tlv, TagIn),
case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
%% 'bindRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65536, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{bindRequest, 'dec_BindRequest'(V1, [])};
%% 'bindResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65537, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{bindResponse, 'dec_BindResponse'(V1, [])};
%% 'unbindRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65538, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{unbindRequest, decode_null(V1,[])};
%% 'searchRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65539, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{searchRequest, 'dec_SearchRequest'(V1, [])};
%% 'searchResEntry'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65540, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{searchResEntry, 'dec_SearchResultEntry'(V1, [])};
%% 'searchResDone'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65541, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{searchResDone, 'dec_SearchResultDone'(V1, [])};
%% 'searchResRef'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65555, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{searchResRef, 'dec_SearchResultReference'(V1, [])};
%% 'modifyRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65542, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{modifyRequest, 'dec_ModifyRequest'(V1, [])};
%% 'modifyResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65543, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{modifyResponse, 'dec_ModifyResponse'(V1, [])};
%% 'addRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65544, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{addRequest, 'dec_AddRequest'(V1, [])};
%% 'addResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65545, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{addResponse, 'dec_AddResponse'(V1, [])};
%% 'delRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65546, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{delRequest, decode_restricted_string(V1,[])};
%% 'delResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65547, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{delResponse, 'dec_DelResponse'(V1, [])};
%% 'modDNRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65548, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{modDNRequest, 'dec_ModifyDNRequest'(V1, [])};
%% 'modDNResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65549, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{modDNResponse, 'dec_ModifyDNResponse'(V1, [])};
%% 'compareRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65550, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{compareRequest, 'dec_CompareRequest'(V1, [])};
%% 'compareResponse'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65551, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{compareResponse, 'dec_CompareResponse'(V1, [])};
%% 'abandonRequest'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65552, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{abandonRequest, decode_integer(V1,{0,2147483647},[])};
%% 'extendedReq'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65559, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{extendedReq, 'dec_ExtendedRequest'(V1, [])};
%% 'extendedResp'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{65560, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{extendedResp, 'dec_ExtendedResponse'(V1, [])};
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_tag,Else}}})
end
.
'dec_LDAPMessage'(Tlv) ->
'dec_LDAPMessage'(Tlv, [16]).
'dec_LDAPMessage'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute messageID(1) with type INTEGER
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_integer(V1,{0,2147483647},[2]),
%%-------------------------------------------------
%% attribute protocolOp(2) with type CHOICE
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_LDAPMessage_protocolOp'(V2, []),
%%-------------------------------------------------
%% attribute controls(3) External ELDAPv3:Controls OPTIONAL
%%-------------------------------------------------
{Term3,Tlv4} = case Tlv3 of
[{131072,V3}|TempTlv4] ->
{'dec_Controls'(V3, []), TempTlv4};
_ ->
{ asn1_NOVALUE, Tlv3}
end,
case Tlv4 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv4}}}) % extra fields not allowed
end,
{'LDAPMessage', Term1, Term2, Term3}.
%%================================
%% MessageID
%%================================
'enc_MessageID'(Val) ->
'enc_MessageID'(Val, [<<2>>]).
'enc_MessageID'(Val, TagIn) ->
encode_integer(Val, TagIn).
'dec_MessageID'(Tlv) ->
'dec_MessageID'(Tlv, [2]).
'dec_MessageID'(Tlv, TagIn) ->
decode_integer(Tlv,{0,2147483647},TagIn).
%%================================
%% LDAPString
%%================================
'enc_LDAPString'(Val) ->
'enc_LDAPString'(Val, [<<4>>]).
'enc_LDAPString'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_LDAPString'(Tlv) ->
'dec_LDAPString'(Tlv, [4]).
'dec_LDAPString'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% LDAPOID
%%================================
'enc_LDAPOID'(Val) ->
'enc_LDAPOID'(Val, [<<4>>]).
'enc_LDAPOID'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_LDAPOID'(Tlv) ->
'dec_LDAPOID'(Tlv, [4]).
'dec_LDAPOID'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% LDAPDN
%%================================
'enc_LDAPDN'(Val) ->
'enc_LDAPDN'(Val, [<<4>>]).
'enc_LDAPDN'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_LDAPDN'(Tlv) ->
'dec_LDAPDN'(Tlv, [4]).
'dec_LDAPDN'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% RelativeLDAPDN
%%================================
'enc_RelativeLDAPDN'(Val) ->
'enc_RelativeLDAPDN'(Val, [<<4>>]).
'enc_RelativeLDAPDN'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_RelativeLDAPDN'(Tlv) ->
'dec_RelativeLDAPDN'(Tlv, [4]).
'dec_RelativeLDAPDN'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% AttributeType
%%================================
'enc_AttributeType'(Val) ->
'enc_AttributeType'(Val, [<<4>>]).
'enc_AttributeType'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_AttributeType'(Tlv) ->
'dec_AttributeType'(Tlv, [4]).
'dec_AttributeType'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% AttributeDescription
%%================================
'enc_AttributeDescription'(Val) ->
'enc_AttributeDescription'(Val, [<<4>>]).
'enc_AttributeDescription'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_AttributeDescription'(Tlv) ->
'dec_AttributeDescription'(Tlv, [4]).
'dec_AttributeDescription'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% AttributeDescriptionList
%%================================
'enc_AttributeDescriptionList'(Val) ->
'enc_AttributeDescriptionList'(Val, [<<48>>]).
'enc_AttributeDescriptionList'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_AttributeDescriptionList_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_AttributeDescriptionList_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_AttributeDescriptionList_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_AttributeDescriptionList_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_AttributeDescriptionList'(Tlv) ->
'dec_AttributeDescriptionList'(Tlv, [16]).
'dec_AttributeDescriptionList'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
%%================================
%% AttributeValue
%%================================
'enc_AttributeValue'(Val) ->
'enc_AttributeValue'(Val, [<<4>>]).
'enc_AttributeValue'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_AttributeValue'(Tlv) ->
'dec_AttributeValue'(Tlv, [4]).
'dec_AttributeValue'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% AttributeValueAssertion
%%================================
'enc_AttributeValueAssertion'(Val) ->
'enc_AttributeValueAssertion'(Val, [<<48>>]).
'enc_AttributeValueAssertion'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute attributeDesc(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute assertionValue(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_AttributeValueAssertion'(Tlv) ->
'dec_AttributeValueAssertion'(Tlv, [16]).
'dec_AttributeValueAssertion'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute attributeDesc(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute assertionValue(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'AttributeValueAssertion', Term1, Term2}.
%%================================
%% AssertionValue
%%================================
'enc_AssertionValue'(Val) ->
'enc_AssertionValue'(Val, [<<4>>]).
'enc_AssertionValue'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_AssertionValue'(Tlv) ->
'dec_AssertionValue'(Tlv, [4]).
'dec_AssertionValue'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% Attribute
%%================================
'enc_Attribute'(Val) ->
'enc_Attribute'(Val, [<<48>>]).
'enc_Attribute'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_Attribute_vals'(Cindex2, [<<49>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% Attribute_vals
%%================================
'enc_Attribute_vals'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_Attribute_vals_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_Attribute_vals_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_Attribute_vals_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_Attribute_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_Attribute_vals'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
'dec_Attribute'(Tlv) ->
'dec_Attribute'(Tlv, [16]).
'dec_Attribute'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_Attribute_vals'(V2, [17]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'Attribute', Term1, Term2}.
%%================================
%% MatchingRuleId
%%================================
'enc_MatchingRuleId'(Val) ->
'enc_MatchingRuleId'(Val, [<<4>>]).
'enc_MatchingRuleId'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_MatchingRuleId'(Tlv) ->
'dec_MatchingRuleId'(Tlv, [4]).
'dec_MatchingRuleId'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% LDAPResult
%%================================
'enc_LDAPResult'(Val) ->
'enc_LDAPResult'(Val, [<<48>>]).
'enc_LDAPResult'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4} = Val,
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
success -> encode_enumerated(0, [<<10>>]);
operationsError -> encode_enumerated(1, [<<10>>]);
protocolError -> encode_enumerated(2, [<<10>>]);
timeLimitExceeded -> encode_enumerated(3, [<<10>>]);
sizeLimitExceeded -> encode_enumerated(4, [<<10>>]);
compareFalse -> encode_enumerated(5, [<<10>>]);
compareTrue -> encode_enumerated(6, [<<10>>]);
authMethodNotSupported -> encode_enumerated(7, [<<10>>]);
strongAuthRequired -> encode_enumerated(8, [<<10>>]);
referral -> encode_enumerated(10, [<<10>>]);
adminLimitExceeded -> encode_enumerated(11, [<<10>>]);
unavailableCriticalExtension -> encode_enumerated(12, [<<10>>]);
confidentialityRequired -> encode_enumerated(13, [<<10>>]);
saslBindInProgress -> encode_enumerated(14, [<<10>>]);
noSuchAttribute -> encode_enumerated(16, [<<10>>]);
undefinedAttributeType -> encode_enumerated(17, [<<10>>]);
inappropriateMatching -> encode_enumerated(18, [<<10>>]);
constraintViolation -> encode_enumerated(19, [<<10>>]);
attributeOrValueExists -> encode_enumerated(20, [<<10>>]);
invalidAttributeSyntax -> encode_enumerated(21, [<<10>>]);
noSuchObject -> encode_enumerated(32, [<<10>>]);
aliasProblem -> encode_enumerated(33, [<<10>>]);
invalidDNSyntax -> encode_enumerated(34, [<<10>>]);
aliasDereferencingProblem -> encode_enumerated(36, [<<10>>]);
inappropriateAuthentication -> encode_enumerated(48, [<<10>>]);
invalidCredentials -> encode_enumerated(49, [<<10>>]);
insufficientAccessRights -> encode_enumerated(50, [<<10>>]);
busy -> encode_enumerated(51, [<<10>>]);
unavailable -> encode_enumerated(52, [<<10>>]);
unwillingToPerform -> encode_enumerated(53, [<<10>>]);
loopDetect -> encode_enumerated(54, [<<10>>]);
namingViolation -> encode_enumerated(64, [<<10>>]);
objectClassViolation -> encode_enumerated(65, [<<10>>]);
notAllowedOnNonLeaf -> encode_enumerated(66, [<<10>>]);
notAllowedOnRDN -> encode_enumerated(67, [<<10>>]);
entryAlreadyExists -> encode_enumerated(68, [<<10>>]);
objectClassModsProhibited -> encode_enumerated(69, [<<10>>]);
affectsMultipleDSAs -> encode_enumerated(71, [<<10>>]);
other -> encode_enumerated(80, [<<10>>]);
Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}})
end,
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
{EncBytes3,EncLen3} = encode_restricted_string(Cindex3, [<<4>>]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{EncBytes4,EncLen4} = case Cindex4 of
asn1_NOVALUE -> {<<>>,0};
_ ->
'enc_Referral'(Cindex4, [<<163>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_LDAPResult'(Tlv) ->
'dec_LDAPResult'(Tlv, [16]).
'dec_LDAPResult'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_enumerated(V1,[{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}],[10]),
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_restricted_string(V3,[4]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{Term4,Tlv5} = case Tlv4 of
[{131075,V4}|TempTlv5] ->
{'dec_Referral'(V4, []), TempTlv5};
_ ->
{ asn1_NOVALUE, Tlv4}
end,
case Tlv5 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv5}}}) % extra fields not allowed
end,
{'LDAPResult', Term1, Term2, Term3, Term4}.
%%================================
%% Referral
%%================================
'enc_Referral'(Val) ->
'enc_Referral'(Val, [<<48>>]).
'enc_Referral'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_Referral_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_Referral_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_Referral_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_Referral_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_Referral'(Tlv) ->
'dec_Referral'(Tlv, [16]).
'dec_Referral'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
%%================================
%% LDAPURL
%%================================
'enc_LDAPURL'(Val) ->
'enc_LDAPURL'(Val, [<<4>>]).
'enc_LDAPURL'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_LDAPURL'(Tlv) ->
'dec_LDAPURL'(Tlv, [4]).
'dec_LDAPURL'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% Controls
%%================================
'enc_Controls'(Val) ->
'enc_Controls'(Val, [<<48>>]).
'enc_Controls'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_Controls_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_Controls_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_Controls_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = 'enc_Control'(H, [<<48>>]),
'enc_Controls_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_Controls'(Tlv) ->
'dec_Controls'(Tlv, [16]).
'dec_Controls'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_Control'(V1, [16]) || V1 <- Tlv1].
%%================================
%% Control
%%================================
'enc_Control'(Val) ->
'enc_Control'(Val, [<<48>>]).
'enc_Control'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3} = Val,
%%-------------------------------------------------
%% attribute controlType(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute criticality(2) with type BOOLEAN DEFAULT = false
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
asn1_DEFAULT -> {<<>>,0};
false -> {<<>>,0};
_ ->
encode_boolean(Cindex2, [<<1>>])
end,
%%-------------------------------------------------
%% attribute controlValue(3) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes3,EncLen3} = case Cindex3 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex3, [<<4>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3],
LenSoFar = EncLen1 + EncLen2 + EncLen3,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_Control'(Tlv) ->
'dec_Control'(Tlv, [16]).
'dec_Control'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute controlType(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute criticality(2) with type BOOLEAN DEFAULT = false
%%-------------------------------------------------
{Term2,Tlv3} = case Tlv2 of
[{1,V2}|TempTlv3] ->
{decode_boolean(V2,[]), TempTlv3};
_ ->
{false,Tlv2}
end,
%%-------------------------------------------------
%% attribute controlValue(3) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term3,Tlv4} = case Tlv3 of
[{4,V3}|TempTlv4] ->
{decode_restricted_string(V3,[]), TempTlv4};
_ ->
{ asn1_NOVALUE, Tlv3}
end,
case Tlv4 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv4}}}) % extra fields not allowed
end,
{'Control', Term1, Term2, Term3}.
%%================================
%% BindRequest
%%================================
'enc_BindRequest'(Val) ->
'enc_BindRequest'(Val, [<<96>>]).
'enc_BindRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3} = Val,
%%-------------------------------------------------
%% attribute version(1) with type INTEGER
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_integer(Cindex1, [<<2>>]),
%%-------------------------------------------------
%% attribute name(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
%%-------------------------------------------------
%% attribute authentication(3) External ELDAPv3:AuthenticationChoice
%%-------------------------------------------------
{EncBytes3,EncLen3} = 'enc_AuthenticationChoice'(Cindex3, []),
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3],
LenSoFar = EncLen1 + EncLen2 + EncLen3,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_BindRequest'(Tlv) ->
'dec_BindRequest'(Tlv, [65536]).
'dec_BindRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute version(1) with type INTEGER
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_integer(V1,{1,127},[2]),
%%-------------------------------------------------
%% attribute name(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
%%-------------------------------------------------
%% attribute authentication(3) External ELDAPv3:AuthenticationChoice
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = 'dec_AuthenticationChoice'(V3, []),
case Tlv4 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv4}}}) % extra fields not allowed
end,
{'BindRequest', Term1, Term2, Term3}.
%%================================
%% AuthenticationChoice
%%================================
'enc_AuthenticationChoice'(Val) ->
'enc_AuthenticationChoice'(Val, []).
'enc_AuthenticationChoice'(Val, TagIn) ->
{EncBytes,EncLen} = case element(1,Val) of
simple ->
encode_restricted_string(element(2,Val), [<<128>>]);
sasl ->
'enc_SaslCredentials'(element(2,Val), [<<163>>]);
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_type,Else}}})
end,
encode_tags(TagIn, EncBytes, EncLen).
'dec_AuthenticationChoice'(Tlv) ->
'dec_AuthenticationChoice'(Tlv, []).
'dec_AuthenticationChoice'(Tlv, TagIn) ->
Tlv1 = match_tags(Tlv, TagIn),
case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
%% 'simple'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131072, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{simple, decode_restricted_string(V1,[])};
%% 'sasl'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131075, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{sasl, 'dec_SaslCredentials'(V1, [])};
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_tag,Else}}})
end
.
%%================================
%% SaslCredentials
%%================================
'enc_SaslCredentials'(Val) ->
'enc_SaslCredentials'(Val, [<<48>>]).
'enc_SaslCredentials'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute mechanism(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute credentials(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex2, [<<4>>])
end,
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_SaslCredentials'(Tlv) ->
'dec_SaslCredentials'(Tlv, [16]).
'dec_SaslCredentials'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute mechanism(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute credentials(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term2,Tlv3} = case Tlv2 of
[{4,V2}|TempTlv3] ->
{decode_restricted_string(V2,[]), TempTlv3};
_ ->
{ asn1_NOVALUE, Tlv2}
end,
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'SaslCredentials', Term1, Term2}.
%%================================
%% BindResponse
%%================================
'enc_BindResponse'(Val) ->
'enc_BindResponse'(Val, [<<97>>]).
'enc_BindResponse'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4, Cindex5} = Val,
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
success -> encode_enumerated(0, [<<10>>]);
operationsError -> encode_enumerated(1, [<<10>>]);
protocolError -> encode_enumerated(2, [<<10>>]);
timeLimitExceeded -> encode_enumerated(3, [<<10>>]);
sizeLimitExceeded -> encode_enumerated(4, [<<10>>]);
compareFalse -> encode_enumerated(5, [<<10>>]);
compareTrue -> encode_enumerated(6, [<<10>>]);
authMethodNotSupported -> encode_enumerated(7, [<<10>>]);
strongAuthRequired -> encode_enumerated(8, [<<10>>]);
referral -> encode_enumerated(10, [<<10>>]);
adminLimitExceeded -> encode_enumerated(11, [<<10>>]);
unavailableCriticalExtension -> encode_enumerated(12, [<<10>>]);
confidentialityRequired -> encode_enumerated(13, [<<10>>]);
saslBindInProgress -> encode_enumerated(14, [<<10>>]);
noSuchAttribute -> encode_enumerated(16, [<<10>>]);
undefinedAttributeType -> encode_enumerated(17, [<<10>>]);
inappropriateMatching -> encode_enumerated(18, [<<10>>]);
constraintViolation -> encode_enumerated(19, [<<10>>]);
attributeOrValueExists -> encode_enumerated(20, [<<10>>]);
invalidAttributeSyntax -> encode_enumerated(21, [<<10>>]);
noSuchObject -> encode_enumerated(32, [<<10>>]);
aliasProblem -> encode_enumerated(33, [<<10>>]);
invalidDNSyntax -> encode_enumerated(34, [<<10>>]);
aliasDereferencingProblem -> encode_enumerated(36, [<<10>>]);
inappropriateAuthentication -> encode_enumerated(48, [<<10>>]);
invalidCredentials -> encode_enumerated(49, [<<10>>]);
insufficientAccessRights -> encode_enumerated(50, [<<10>>]);
busy -> encode_enumerated(51, [<<10>>]);
unavailable -> encode_enumerated(52, [<<10>>]);
unwillingToPerform -> encode_enumerated(53, [<<10>>]);
loopDetect -> encode_enumerated(54, [<<10>>]);
namingViolation -> encode_enumerated(64, [<<10>>]);
objectClassViolation -> encode_enumerated(65, [<<10>>]);
notAllowedOnNonLeaf -> encode_enumerated(66, [<<10>>]);
notAllowedOnRDN -> encode_enumerated(67, [<<10>>]);
entryAlreadyExists -> encode_enumerated(68, [<<10>>]);
objectClassModsProhibited -> encode_enumerated(69, [<<10>>]);
affectsMultipleDSAs -> encode_enumerated(71, [<<10>>]);
other -> encode_enumerated(80, [<<10>>]);
Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}})
end,
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
{EncBytes3,EncLen3} = encode_restricted_string(Cindex3, [<<4>>]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{EncBytes4,EncLen4} = case Cindex4 of
asn1_NOVALUE -> {<<>>,0};
_ ->
'enc_Referral'(Cindex4, [<<163>>])
end,
%%-------------------------------------------------
%% attribute serverSaslCreds(5) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes5,EncLen5} = case Cindex5 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex5, [<<135>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_BindResponse'(Tlv) ->
'dec_BindResponse'(Tlv, [65537]).
'dec_BindResponse'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_enumerated(V1,[{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}],[10]),
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_restricted_string(V3,[4]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{Term4,Tlv5} = case Tlv4 of
[{131075,V4}|TempTlv5] ->
{'dec_Referral'(V4, []), TempTlv5};
_ ->
{ asn1_NOVALUE, Tlv4}
end,
%%-------------------------------------------------
%% attribute serverSaslCreds(5) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term5,Tlv6} = case Tlv5 of
[{131079,V5}|TempTlv6] ->
{decode_restricted_string(V5,[]), TempTlv6};
_ ->
{ asn1_NOVALUE, Tlv5}
end,
case Tlv6 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv6}}}) % extra fields not allowed
end,
{'BindResponse', Term1, Term2, Term3, Term4, Term5}.
%%================================
%% UnbindRequest
%%================================
'enc_UnbindRequest'(Val) ->
'enc_UnbindRequest'(Val, [<<66>>]).
'enc_UnbindRequest'(Val, TagIn) ->
encode_null(Val, TagIn).
'dec_UnbindRequest'(Tlv) ->
'dec_UnbindRequest'(Tlv, [65538]).
'dec_UnbindRequest'(Tlv, TagIn) ->
decode_null(Tlv,TagIn).
%%================================
%% SearchRequest
%%================================
'enc_SearchRequest'(Val) ->
'enc_SearchRequest'(Val, [<<99>>]).
'enc_SearchRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4, Cindex5, Cindex6, Cindex7, Cindex8} = Val,
%%-------------------------------------------------
%% attribute baseObject(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute scope(2) with type ENUMERATED
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
baseObject -> encode_enumerated(0, [<<10>>]);
singleLevel -> encode_enumerated(1, [<<10>>]);
wholeSubtree -> encode_enumerated(2, [<<10>>]);
Enumval2 -> exit({error,{asn1, {enumerated_not_in_range,Enumval2}}})
end,
%%-------------------------------------------------
%% attribute derefAliases(3) with type ENUMERATED
%%-------------------------------------------------
{EncBytes3,EncLen3} = case Cindex3 of
neverDerefAliases -> encode_enumerated(0, [<<10>>]);
derefInSearching -> encode_enumerated(1, [<<10>>]);
derefFindingBaseObj -> encode_enumerated(2, [<<10>>]);
derefAlways -> encode_enumerated(3, [<<10>>]);
Enumval3 -> exit({error,{asn1, {enumerated_not_in_range,Enumval3}}})
end,
%%-------------------------------------------------
%% attribute sizeLimit(4) with type INTEGER
%%-------------------------------------------------
{EncBytes4,EncLen4} = encode_integer(Cindex4, [<<2>>]),
%%-------------------------------------------------
%% attribute timeLimit(5) with type INTEGER
%%-------------------------------------------------
{EncBytes5,EncLen5} = encode_integer(Cindex5, [<<2>>]),
%%-------------------------------------------------
%% attribute typesOnly(6) with type BOOLEAN
%%-------------------------------------------------
{EncBytes6,EncLen6} = encode_boolean(Cindex6, [<<1>>]),
%%-------------------------------------------------
%% attribute filter(7) External ELDAPv3:Filter
%%-------------------------------------------------
{EncBytes7,EncLen7} = 'enc_Filter'(Cindex7, []),
%%-------------------------------------------------
%% attribute attributes(8) External ELDAPv3:AttributeDescriptionList
%%-------------------------------------------------
{EncBytes8,EncLen8} = 'enc_AttributeDescriptionList'(Cindex8, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5, EncBytes6, EncBytes7, EncBytes8],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5 + EncLen6 + EncLen7 + EncLen8,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_SearchRequest'(Tlv) ->
'dec_SearchRequest'(Tlv, [65539]).
'dec_SearchRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute baseObject(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute scope(2) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_enumerated(V2,[{baseObject,0},{singleLevel,1},{wholeSubtree,2}],[10]),
%%-------------------------------------------------
%% attribute derefAliases(3) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_enumerated(V3,[{neverDerefAliases,0},{derefInSearching,1},{derefFindingBaseObj,2},{derefAlways,3}],[10]),
%%-------------------------------------------------
%% attribute sizeLimit(4) with type INTEGER
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V4|Tlv5] = Tlv4,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term4 = decode_integer(V4,{0,2147483647},[2]),
%%-------------------------------------------------
%% attribute timeLimit(5) with type INTEGER
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V5|Tlv6] = Tlv5,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term5 = decode_integer(V5,{0,2147483647},[2]),
%%-------------------------------------------------
%% attribute typesOnly(6) with type BOOLEAN
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V6|Tlv7] = Tlv6,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term6 = decode_boolean(V6,[1]),
%%-------------------------------------------------
%% attribute filter(7) External ELDAPv3:Filter
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V7|Tlv8] = Tlv7,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term7 = 'dec_Filter'(V7, []),
%%-------------------------------------------------
%% attribute attributes(8) External ELDAPv3:AttributeDescriptionList
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V8|Tlv9] = Tlv8,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term8 = 'dec_AttributeDescriptionList'(V8, [16]),
case Tlv9 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv9}}}) % extra fields not allowed
end,
{'SearchRequest', Term1, Term2, Term3, Term4, Term5, Term6, Term7, Term8}.
%%================================
%% Filter
%%================================
'enc_Filter'(Val) ->
'enc_Filter'(Val, []).
'enc_Filter'(Val, TagIn) ->
{EncBytes,EncLen} = case element(1,Val) of
'and' ->
'enc_Filter_and'(element(2,Val), [<<160>>]);
'or' ->
'enc_Filter_or'(element(2,Val), [<<161>>]);
'not' ->
'enc_Filter'(element(2,Val), [<<162>>]);
equalityMatch ->
'enc_AttributeValueAssertion'(element(2,Val), [<<163>>]);
substrings ->
'enc_SubstringFilter'(element(2,Val), [<<164>>]);
greaterOrEqual ->
'enc_AttributeValueAssertion'(element(2,Val), [<<165>>]);
lessOrEqual ->
'enc_AttributeValueAssertion'(element(2,Val), [<<166>>]);
present ->
encode_restricted_string(element(2,Val), [<<135>>]);
approxMatch ->
'enc_AttributeValueAssertion'(element(2,Val), [<<168>>]);
extensibleMatch ->
'enc_MatchingRuleAssertion'(element(2,Val), [<<169>>]);
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_type,Else}}})
end,
encode_tags(TagIn, EncBytes, EncLen).
%%================================
%% Filter_and
%%================================
'enc_Filter_and'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_Filter_and_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_Filter_and_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{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'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_Filter'(V1, []) || V1 <- Tlv1].
%%================================
%% Filter_or
%%================================
'enc_Filter_or'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_Filter_or_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_Filter_or_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{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'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_Filter'(V1, []) || V1 <- Tlv1].
'dec_Filter'(Tlv) ->
'dec_Filter'(Tlv, []).
'dec_Filter'(Tlv, TagIn) ->
Tlv1 = match_tags(Tlv, TagIn),
case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
%% 'and'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131072, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{'and', 'dec_Filter_and'(V1, [])};
%% 'or'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131073, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{'or', 'dec_Filter_or'(V1, [])};
%% 'not'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131074, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{'not', 'dec_Filter'(V1, [])};
%% 'equalityMatch'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131075, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{equalityMatch, 'dec_AttributeValueAssertion'(V1, [])};
%% 'substrings'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131076, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{substrings, 'dec_SubstringFilter'(V1, [])};
%% 'greaterOrEqual'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131077, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{greaterOrEqual, 'dec_AttributeValueAssertion'(V1, [])};
%% 'lessOrEqual'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131078, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lessOrEqual, 'dec_AttributeValueAssertion'(V1, [])};
%% 'present'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131079, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{present, decode_restricted_string(V1,[])};
%% 'approxMatch'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131080, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{approxMatch, 'dec_AttributeValueAssertion'(V1, [])};
%% 'extensibleMatch'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131081, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{extensibleMatch, 'dec_MatchingRuleAssertion'(V1, [])};
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_tag,Else}}})
end
.
%%================================
%% SubstringFilter
%%================================
'enc_SubstringFilter'(Val) ->
'enc_SubstringFilter'(Val, [<<48>>]).
'enc_SubstringFilter'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute substrings(2) with type SEQUENCE OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_SubstringFilter_substrings'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% SubstringFilter_substrings
%%================================
'enc_SubstringFilter_substrings'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_SubstringFilter_substrings_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_SubstringFilter_substrings_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{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'(Val, TagIn) ->
{EncBytes,EncLen} = case element(1,Val) of
initial ->
encode_restricted_string(element(2,Val), [<<128>>]);
any ->
encode_restricted_string(element(2,Val), [<<129>>]);
final ->
encode_restricted_string(element(2,Val), [<<130>>]);
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_type,Else}}})
end,
encode_tags(TagIn, EncBytes, EncLen).
'dec_SubstringFilter_substrings_SEQOF'(Tlv, TagIn) ->
Tlv1 = match_tags(Tlv, TagIn),
case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
%% 'initial'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131072, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{initial, decode_restricted_string(V1,[])};
%% 'any'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131073, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{any, decode_restricted_string(V1,[])};
%% 'final'
Use new configuration validator
2019-06-14 11:33:26 +02:00
{131074, V1} ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{final, decode_restricted_string(V1,[])};
Use new configuration validator
2019-06-14 11:33:26 +02:00
Else ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
exit({error,{asn1,{invalid_choice_tag,Else}}})
end
.
'dec_SubstringFilter_substrings'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_SubstringFilter_substrings_SEQOF'(V1, []) || V1 <- Tlv1].
'dec_SubstringFilter'(Tlv) ->
'dec_SubstringFilter'(Tlv, [16]).
'dec_SubstringFilter'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute substrings(2) with type SEQUENCE OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_SubstringFilter_substrings'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'SubstringFilter', Term1, Term2}.
%%================================
%% MatchingRuleAssertion
%%================================
'enc_MatchingRuleAssertion'(Val) ->
'enc_MatchingRuleAssertion'(Val, [<<48>>]).
'enc_MatchingRuleAssertion'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4} = Val,
%%-------------------------------------------------
%% attribute matchingRule(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex1, [<<129>>])
end,
%%-------------------------------------------------
%% attribute type(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex2, [<<130>>])
end,
%%-------------------------------------------------
%% attribute matchValue(3) with type OCTET STRING
%%-------------------------------------------------
{EncBytes3,EncLen3} = encode_restricted_string(Cindex3, [<<131>>]),
%%-------------------------------------------------
%% attribute dnAttributes(4) with type BOOLEAN DEFAULT = false
%%-------------------------------------------------
{EncBytes4,EncLen4} = case Cindex4 of
asn1_DEFAULT -> {<<>>,0};
false -> {<<>>,0};
_ ->
encode_boolean(Cindex4, [<<132>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_MatchingRuleAssertion'(Tlv) ->
'dec_MatchingRuleAssertion'(Tlv, [16]).
'dec_MatchingRuleAssertion'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute matchingRule(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term1,Tlv2} = case Tlv1 of
[{131073,V1}|TempTlv2] ->
{decode_restricted_string(V1,[]), TempTlv2};
_ ->
{ asn1_NOVALUE, Tlv1}
end,
%%-------------------------------------------------
%% attribute type(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term2,Tlv3} = case Tlv2 of
[{131074,V2}|TempTlv3] ->
{decode_restricted_string(V2,[]), TempTlv3};
_ ->
{ asn1_NOVALUE, Tlv2}
end,
%%-------------------------------------------------
%% attribute matchValue(3) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_restricted_string(V3,[131075]),
%%-------------------------------------------------
%% attribute dnAttributes(4) with type BOOLEAN DEFAULT = false
%%-------------------------------------------------
{Term4,Tlv5} = case Tlv4 of
[{131076,V4}|TempTlv5] ->
{decode_boolean(V4,[]), TempTlv5};
_ ->
{false,Tlv4}
end,
case Tlv5 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv5}}}) % extra fields not allowed
end,
{'MatchingRuleAssertion', Term1, Term2, Term3, Term4}.
%%================================
%% SearchResultEntry
%%================================
'enc_SearchResultEntry'(Val) ->
'enc_SearchResultEntry'(Val, [<<100>>]).
'enc_SearchResultEntry'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute objectName(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute attributes(2) External ELDAPv3:PartialAttributeList
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_PartialAttributeList'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_SearchResultEntry'(Tlv) ->
'dec_SearchResultEntry'(Tlv, [65540]).
'dec_SearchResultEntry'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute objectName(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute attributes(2) External ELDAPv3:PartialAttributeList
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_PartialAttributeList'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'SearchResultEntry', Term1, Term2}.
%%================================
%% PartialAttributeList
%%================================
'enc_PartialAttributeList'(Val) ->
'enc_PartialAttributeList'(Val, [<<48>>]).
'enc_PartialAttributeList'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_PartialAttributeList_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_PartialAttributeList_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_PartialAttributeList_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = 'enc_PartialAttributeList_SEQOF'(H, [<<48>>]),
'enc_PartialAttributeList_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
%%================================
%% PartialAttributeList_SEQOF
%%================================
'enc_PartialAttributeList_SEQOF'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_PartialAttributeList_SEQOF_vals'(Cindex2, [<<49>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% PartialAttributeList_SEQOF_vals
%%================================
'enc_PartialAttributeList_SEQOF_vals'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_PartialAttributeList_SEQOF_vals_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_PartialAttributeList_SEQOF_vals_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_PartialAttributeList_SEQOF_vals_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_PartialAttributeList_SEQOF_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_PartialAttributeList_SEQOF_vals'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
'dec_PartialAttributeList_SEQOF'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_PartialAttributeList_SEQOF_vals'(V2, [17]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'PartialAttributeList_SEQOF', Term1, Term2}.
'dec_PartialAttributeList'(Tlv) ->
'dec_PartialAttributeList'(Tlv, [16]).
'dec_PartialAttributeList'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_PartialAttributeList_SEQOF'(V1, [16]) || V1 <- Tlv1].
%%================================
%% SearchResultReference
%%================================
'enc_SearchResultReference'(Val) ->
'enc_SearchResultReference'(Val, [<<115>>]).
'enc_SearchResultReference'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_SearchResultReference_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_SearchResultReference_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_SearchResultReference_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_SearchResultReference_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_SearchResultReference'(Tlv) ->
'dec_SearchResultReference'(Tlv, [65555]).
'dec_SearchResultReference'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
%%================================
%% SearchResultDone
%%================================
'enc_SearchResultDone'(Val) ->
'enc_SearchResultDone'(Val, [<<101>>]).
'enc_SearchResultDone'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_SearchResultDone'(Tlv) ->
'dec_SearchResultDone'(Tlv, [65541]).
'dec_SearchResultDone'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% ModifyRequest
%%================================
'enc_ModifyRequest'(Val) ->
'enc_ModifyRequest'(Val, [<<102>>]).
'enc_ModifyRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute object(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute modification(2) with type SEQUENCE OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_ModifyRequest_modification'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% ModifyRequest_modification
%%================================
'enc_ModifyRequest_modification'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_ModifyRequest_modification_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_ModifyRequest_modification_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_ModifyRequest_modification_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = 'enc_ModifyRequest_modification_SEQOF'(H, [<<48>>]),
'enc_ModifyRequest_modification_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
%%================================
%% ModifyRequest_modification_SEQOF
%%================================
'enc_ModifyRequest_modification_SEQOF'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute operation(1) with type ENUMERATED
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
add -> encode_enumerated(0, [<<10>>]);
delete -> encode_enumerated(1, [<<10>>]);
replace -> encode_enumerated(2, [<<10>>]);
Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}})
end,
%%-------------------------------------------------
%% attribute modification(2) External ELDAPv3:AttributeTypeAndValues
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_AttributeTypeAndValues'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_ModifyRequest_modification_SEQOF'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute operation(1) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_enumerated(V1,[{add,0},{delete,1},{replace,2}],[10]),
%%-------------------------------------------------
%% attribute modification(2) External ELDAPv3:AttributeTypeAndValues
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_AttributeTypeAndValues'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'ModifyRequest_modification_SEQOF', Term1, Term2}.
'dec_ModifyRequest_modification'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_ModifyRequest_modification_SEQOF'(V1, [16]) || V1 <- Tlv1].
'dec_ModifyRequest'(Tlv) ->
'dec_ModifyRequest'(Tlv, [65542]).
'dec_ModifyRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute object(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute modification(2) with type SEQUENCE OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_ModifyRequest_modification'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'ModifyRequest', Term1, Term2}.
%%================================
%% AttributeTypeAndValues
%%================================
'enc_AttributeTypeAndValues'(Val) ->
'enc_AttributeTypeAndValues'(Val, [<<48>>]).
'enc_AttributeTypeAndValues'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_AttributeTypeAndValues_vals'(Cindex2, [<<49>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% AttributeTypeAndValues_vals
%%================================
'enc_AttributeTypeAndValues_vals'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_AttributeTypeAndValues_vals_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_AttributeTypeAndValues_vals_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_AttributeTypeAndValues_vals_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_AttributeTypeAndValues_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_AttributeTypeAndValues_vals'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
'dec_AttributeTypeAndValues'(Tlv) ->
'dec_AttributeTypeAndValues'(Tlv, [16]).
'dec_AttributeTypeAndValues'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_AttributeTypeAndValues_vals'(V2, [17]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'AttributeTypeAndValues', Term1, Term2}.
%%================================
%% ModifyResponse
%%================================
'enc_ModifyResponse'(Val) ->
'enc_ModifyResponse'(Val, [<<103>>]).
'enc_ModifyResponse'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_ModifyResponse'(Tlv) ->
'dec_ModifyResponse'(Tlv, [65543]).
'dec_ModifyResponse'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% AddRequest
%%================================
'enc_AddRequest'(Val) ->
'enc_AddRequest'(Val, [<<104>>]).
'enc_AddRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute attributes(2) External ELDAPv3:AttributeList
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_AttributeList'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_AddRequest'(Tlv) ->
'dec_AddRequest'(Tlv, [65544]).
'dec_AddRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute attributes(2) External ELDAPv3:AttributeList
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_AttributeList'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'AddRequest', Term1, Term2}.
%%================================
%% AttributeList
%%================================
'enc_AttributeList'(Val) ->
'enc_AttributeList'(Val, [<<48>>]).
'enc_AttributeList'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_AttributeList_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_AttributeList_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_AttributeList_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = 'enc_AttributeList_SEQOF'(H, [<<48>>]),
'enc_AttributeList_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
%%================================
%% AttributeList_SEQOF
%%================================
'enc_AttributeList_SEQOF'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_AttributeList_SEQOF_vals'(Cindex2, [<<49>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
%%================================
%% AttributeList_SEQOF_vals
%%================================
'enc_AttributeList_SEQOF_vals'(Val, TagIn) ->
{EncBytes,EncLen} = 'enc_AttributeList_SEQOF_vals_components'(Val,[],0),
encode_tags(TagIn, EncBytes, EncLen).
Use new configuration validator
2019-06-14 11:33:26 +02:00
'enc_AttributeList_SEQOF_vals_components'([], AccBytes, AccLen) ->
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
{lists:reverse(AccBytes),AccLen};
'enc_AttributeList_SEQOF_vals_components'([H|T],AccBytes, AccLen) ->
{EncBytes,EncLen} = encode_restricted_string(H, [<<4>>]),
'enc_AttributeList_SEQOF_vals_components'(T,[EncBytes|AccBytes], AccLen + EncLen).
'dec_AttributeList_SEQOF_vals'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
[decode_restricted_string(V1,[4]) || V1 <- Tlv1].
'dec_AttributeList_SEQOF'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute type(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute vals(2) with type SET OF
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_AttributeList_SEQOF_vals'(V2, [17]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'AttributeList_SEQOF', Term1, Term2}.
'dec_AttributeList'(Tlv) ->
'dec_AttributeList'(Tlv, [16]).
'dec_AttributeList'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
['dec_AttributeList_SEQOF'(V1, [16]) || V1 <- Tlv1].
%%================================
%% AddResponse
%%================================
'enc_AddResponse'(Val) ->
'enc_AddResponse'(Val, [<<105>>]).
'enc_AddResponse'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_AddResponse'(Tlv) ->
'dec_AddResponse'(Tlv, [65545]).
'dec_AddResponse'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% DelRequest
%%================================
'enc_DelRequest'(Val) ->
'enc_DelRequest'(Val, [<<74>>]).
'enc_DelRequest'(Val, TagIn) ->
encode_restricted_string(Val, TagIn).
'dec_DelRequest'(Tlv) ->
'dec_DelRequest'(Tlv, [65546]).
'dec_DelRequest'(Tlv, TagIn) ->
decode_restricted_string(Tlv,TagIn).
%%================================
%% DelResponse
%%================================
'enc_DelResponse'(Val) ->
'enc_DelResponse'(Val, [<<107>>]).
'enc_DelResponse'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_DelResponse'(Tlv) ->
'dec_DelResponse'(Tlv, [65547]).
'dec_DelResponse'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% ModifyDNRequest
%%================================
'enc_ModifyDNRequest'(Val) ->
'enc_ModifyDNRequest'(Val, [<<108>>]).
'enc_ModifyDNRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4} = Val,
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute newrdn(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
%%-------------------------------------------------
%% attribute deleteoldrdn(3) with type BOOLEAN
%%-------------------------------------------------
{EncBytes3,EncLen3} = encode_boolean(Cindex3, [<<1>>]),
%%-------------------------------------------------
%% attribute newSuperior(4) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes4,EncLen4} = case Cindex4 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex4, [<<128>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_ModifyDNRequest'(Tlv) ->
'dec_ModifyDNRequest'(Tlv, [65548]).
'dec_ModifyDNRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute newrdn(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
%%-------------------------------------------------
%% attribute deleteoldrdn(3) with type BOOLEAN
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_boolean(V3,[1]),
%%-------------------------------------------------
%% attribute newSuperior(4) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term4,Tlv5} = case Tlv4 of
[{131072,V4}|TempTlv5] ->
{decode_restricted_string(V4,[]), TempTlv5};
_ ->
{ asn1_NOVALUE, Tlv4}
end,
case Tlv5 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv5}}}) % extra fields not allowed
end,
{'ModifyDNRequest', Term1, Term2, Term3, Term4}.
%%================================
%% ModifyDNResponse
%%================================
'enc_ModifyDNResponse'(Val) ->
'enc_ModifyDNResponse'(Val, [<<109>>]).
'enc_ModifyDNResponse'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_ModifyDNResponse'(Tlv) ->
'dec_ModifyDNResponse'(Tlv, [65549]).
'dec_ModifyDNResponse'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% CompareRequest
%%================================
'enc_CompareRequest'(Val) ->
'enc_CompareRequest'(Val, [<<110>>]).
'enc_CompareRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<4>>]),
%%-------------------------------------------------
%% attribute ava(2) External ELDAPv3:AttributeValueAssertion
%%-------------------------------------------------
{EncBytes2,EncLen2} = 'enc_AttributeValueAssertion'(Cindex2, [<<48>>]),
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_CompareRequest'(Tlv) ->
'dec_CompareRequest'(Tlv, [65550]).
'dec_CompareRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute entry(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[4]),
%%-------------------------------------------------
%% attribute ava(2) External ELDAPv3:AttributeValueAssertion
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = 'dec_AttributeValueAssertion'(V2, [16]),
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'CompareRequest', Term1, Term2}.
%%================================
%% CompareResponse
%%================================
'enc_CompareResponse'(Val) ->
'enc_CompareResponse'(Val, [<<111>>]).
'enc_CompareResponse'(Val, TagIn) ->
'enc_LDAPResult'(Val, TagIn).
'dec_CompareResponse'(Tlv) ->
'dec_CompareResponse'(Tlv, [65551]).
'dec_CompareResponse'(Tlv, TagIn) ->
'dec_LDAPResult'(Tlv, TagIn).
%%================================
%% AbandonRequest
%%================================
'enc_AbandonRequest'(Val) ->
'enc_AbandonRequest'(Val, [<<80>>]).
'enc_AbandonRequest'(Val, TagIn) ->
encode_integer(Val, TagIn).
'dec_AbandonRequest'(Tlv) ->
'dec_AbandonRequest'(Tlv, [65552]).
'dec_AbandonRequest'(Tlv, TagIn) ->
decode_integer(Tlv,{0,2147483647},TagIn).
%%================================
%% ExtendedRequest
%%================================
'enc_ExtendedRequest'(Val) ->
'enc_ExtendedRequest'(Val, [<<119>>]).
'enc_ExtendedRequest'(Val, TagIn) ->
{_,Cindex1, Cindex2} = Val,
%%-------------------------------------------------
%% attribute requestName(1) with type OCTET STRING
%%-------------------------------------------------
{EncBytes1,EncLen1} = encode_restricted_string(Cindex1, [<<128>>]),
%%-------------------------------------------------
%% attribute requestValue(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex2, [<<129>>])
end,
BytesSoFar = [EncBytes1, EncBytes2],
LenSoFar = EncLen1 + EncLen2,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_ExtendedRequest'(Tlv) ->
'dec_ExtendedRequest'(Tlv, [65559]).
'dec_ExtendedRequest'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute requestName(1) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_restricted_string(V1,[131072]),
%%-------------------------------------------------
%% attribute requestValue(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term2,Tlv3} = case Tlv2 of
[{131073,V2}|TempTlv3] ->
{decode_restricted_string(V2,[]), TempTlv3};
_ ->
{ asn1_NOVALUE, Tlv2}
end,
case Tlv3 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
end,
{'ExtendedRequest', Term1, Term2}.
%%================================
%% ExtendedResponse
%%================================
'enc_ExtendedResponse'(Val) ->
'enc_ExtendedResponse'(Val, [<<120>>]).
'enc_ExtendedResponse'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3, Cindex4, Cindex5, Cindex6} = Val,
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
success -> encode_enumerated(0, [<<10>>]);
operationsError -> encode_enumerated(1, [<<10>>]);
protocolError -> encode_enumerated(2, [<<10>>]);
timeLimitExceeded -> encode_enumerated(3, [<<10>>]);
sizeLimitExceeded -> encode_enumerated(4, [<<10>>]);
compareFalse -> encode_enumerated(5, [<<10>>]);
compareTrue -> encode_enumerated(6, [<<10>>]);
authMethodNotSupported -> encode_enumerated(7, [<<10>>]);
strongAuthRequired -> encode_enumerated(8, [<<10>>]);
referral -> encode_enumerated(10, [<<10>>]);
adminLimitExceeded -> encode_enumerated(11, [<<10>>]);
unavailableCriticalExtension -> encode_enumerated(12, [<<10>>]);
confidentialityRequired -> encode_enumerated(13, [<<10>>]);
saslBindInProgress -> encode_enumerated(14, [<<10>>]);
noSuchAttribute -> encode_enumerated(16, [<<10>>]);
undefinedAttributeType -> encode_enumerated(17, [<<10>>]);
inappropriateMatching -> encode_enumerated(18, [<<10>>]);
constraintViolation -> encode_enumerated(19, [<<10>>]);
attributeOrValueExists -> encode_enumerated(20, [<<10>>]);
invalidAttributeSyntax -> encode_enumerated(21, [<<10>>]);
noSuchObject -> encode_enumerated(32, [<<10>>]);
aliasProblem -> encode_enumerated(33, [<<10>>]);
invalidDNSyntax -> encode_enumerated(34, [<<10>>]);
aliasDereferencingProblem -> encode_enumerated(36, [<<10>>]);
inappropriateAuthentication -> encode_enumerated(48, [<<10>>]);
invalidCredentials -> encode_enumerated(49, [<<10>>]);
insufficientAccessRights -> encode_enumerated(50, [<<10>>]);
busy -> encode_enumerated(51, [<<10>>]);
unavailable -> encode_enumerated(52, [<<10>>]);
unwillingToPerform -> encode_enumerated(53, [<<10>>]);
loopDetect -> encode_enumerated(54, [<<10>>]);
namingViolation -> encode_enumerated(64, [<<10>>]);
objectClassViolation -> encode_enumerated(65, [<<10>>]);
notAllowedOnNonLeaf -> encode_enumerated(66, [<<10>>]);
notAllowedOnRDN -> encode_enumerated(67, [<<10>>]);
entryAlreadyExists -> encode_enumerated(68, [<<10>>]);
objectClassModsProhibited -> encode_enumerated(69, [<<10>>]);
affectsMultipleDSAs -> encode_enumerated(71, [<<10>>]);
other -> encode_enumerated(80, [<<10>>]);
Enumval1 -> exit({error,{asn1, {enumerated_not_in_range,Enumval1}}})
end,
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
{EncBytes2,EncLen2} = encode_restricted_string(Cindex2, [<<4>>]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
{EncBytes3,EncLen3} = encode_restricted_string(Cindex3, [<<4>>]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{EncBytes4,EncLen4} = case Cindex4 of
asn1_NOVALUE -> {<<>>,0};
_ ->
'enc_Referral'(Cindex4, [<<163>>])
end,
%%-------------------------------------------------
%% attribute responseName(5) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes5,EncLen5} = case Cindex5 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex5, [<<138>>])
end,
%%-------------------------------------------------
%% attribute response(6) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes6,EncLen6} = case Cindex6 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex6, [<<139>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4, EncBytes5, EncBytes6],
LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4 + EncLen5 + EncLen6,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_ExtendedResponse'(Tlv) ->
'dec_ExtendedResponse'(Tlv, [65560]).
'dec_ExtendedResponse'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute resultCode(1) with type ENUMERATED
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V1|Tlv2] = Tlv1,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term1 = decode_enumerated(V1,[{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}],[10]),
%%-------------------------------------------------
%% attribute matchedDN(2) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V2|Tlv3] = Tlv2,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term2 = decode_restricted_string(V2,[4]),
%%-------------------------------------------------
%% attribute errorMessage(3) with type OCTET STRING
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
[V3|Tlv4] = Tlv3,
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
Term3 = decode_restricted_string(V3,[4]),
%%-------------------------------------------------
%% attribute referral(4) External ELDAPv3:Referral OPTIONAL
%%-------------------------------------------------
{Term4,Tlv5} = case Tlv4 of
[{131075,V4}|TempTlv5] ->
{'dec_Referral'(V4, []), TempTlv5};
_ ->
{ asn1_NOVALUE, Tlv4}
end,
%%-------------------------------------------------
%% attribute responseName(5) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term5,Tlv6} = case Tlv5 of
[{131082,V5}|TempTlv6] ->
{decode_restricted_string(V5,[]), TempTlv6};
_ ->
{ asn1_NOVALUE, Tlv5}
end,
%%-------------------------------------------------
%% attribute response(6) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term6,Tlv7} = case Tlv6 of
[{131083,V6}|TempTlv7] ->
{decode_restricted_string(V6,[]), TempTlv7};
_ ->
{ asn1_NOVALUE, Tlv6}
end,
case Tlv7 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv7}}}) % extra fields not allowed
end,
{'ExtendedResponse', Term1, Term2, Term3, Term4, Term5, Term6}.
%%================================
%% PasswdModifyRequestValue
%%================================
'enc_PasswdModifyRequestValue'(Val) ->
'enc_PasswdModifyRequestValue'(Val, [<<48>>]).
'enc_PasswdModifyRequestValue'(Val, TagIn) ->
{_,Cindex1, Cindex2, Cindex3} = Val,
%%-------------------------------------------------
%% attribute userIdentity(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex1, [<<128>>])
end,
%%-------------------------------------------------
%% attribute oldPasswd(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes2,EncLen2} = case Cindex2 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex2, [<<129>>])
end,
%%-------------------------------------------------
%% attribute newPasswd(3) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes3,EncLen3} = case Cindex3 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex3, [<<130>>])
end,
BytesSoFar = [EncBytes1, EncBytes2, EncBytes3],
LenSoFar = EncLen1 + EncLen2 + EncLen3,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_PasswdModifyRequestValue'(Tlv) ->
'dec_PasswdModifyRequestValue'(Tlv, [16]).
'dec_PasswdModifyRequestValue'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute userIdentity(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term1,Tlv2} = case Tlv1 of
[{131072,V1}|TempTlv2] ->
{decode_restricted_string(V1,[]), TempTlv2};
_ ->
{ asn1_NOVALUE, Tlv1}
end,
%%-------------------------------------------------
%% attribute oldPasswd(2) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term2,Tlv3} = case Tlv2 of
[{131073,V2}|TempTlv3] ->
{decode_restricted_string(V2,[]), TempTlv3};
_ ->
{ asn1_NOVALUE, Tlv2}
end,
%%-------------------------------------------------
%% attribute newPasswd(3) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term3,Tlv4} = case Tlv3 of
[{131074,V3}|TempTlv4] ->
{decode_restricted_string(V3,[]), TempTlv4};
_ ->
{ asn1_NOVALUE, Tlv3}
end,
case Tlv4 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv4}}}) % extra fields not allowed
end,
{'PasswdModifyRequestValue', Term1, Term2, Term3}.
%%================================
%% PasswdModifyResponseValue
%%================================
'enc_PasswdModifyResponseValue'(Val) ->
'enc_PasswdModifyResponseValue'(Val, [<<48>>]).
'enc_PasswdModifyResponseValue'(Val, TagIn) ->
{_,Cindex1} = Val,
%%-------------------------------------------------
%% attribute genPasswd(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{EncBytes1,EncLen1} = case Cindex1 of
asn1_NOVALUE -> {<<>>,0};
_ ->
encode_restricted_string(Cindex1, [<<128>>])
end,
BytesSoFar = [EncBytes1],
LenSoFar = EncLen1,
encode_tags(TagIn, BytesSoFar, LenSoFar).
'dec_PasswdModifyResponseValue'(Tlv) ->
'dec_PasswdModifyResponseValue'(Tlv, [16]).
'dec_PasswdModifyResponseValue'(Tlv, TagIn) ->
%%-------------------------------------------------
Use new configuration validator
2019-06-14 11:33:26 +02:00
%% decode tag and length
Do not generate LDAP's ASN.1 code when compiling ejabberd. We need ASN.1 codec to decode messages into binaries, so we fixed generated ELDAPv3.erl. A better solution is needed to be found.
2013-06-21 19:18:38 +02:00
%%-------------------------------------------------
Tlv1 = match_tags(Tlv, TagIn),
%%-------------------------------------------------
%% attribute genPasswd(1) with type OCTET STRING OPTIONAL
%%-------------------------------------------------
{Term1,Tlv2} = case Tlv1 of
[{131072,V1}|TempTlv2] ->
{decode_restricted_string(V1,[]), TempTlv2};
_ ->
{ asn1_NOVALUE, Tlv1}
end,
case Tlv2 of
[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv2}}}) % extra fields not allowed
end,
{'PasswdModifyResponseValue', Term1}.
'maxInt'() ->
2147483647.
'passwdModifyOID'() ->
[49,46,51,46,54,46,49,46,52,46,49,46,52,50,48,51,46,49,46,49,49,46,49].
%%%
%%% Run-time functions.
%%%
ber_decode_nif(B) ->
asn1rt_nif:decode_ber_tlv(B).
collect_parts(TlvList) ->
collect_parts(TlvList, []).
collect_parts([{_,L}|Rest], Acc) when is_list(L) ->
collect_parts(Rest, [collect_parts(L)|Acc]);
collect_parts([{3,<<Unused,Bits/binary>>}|Rest], _Acc) ->
collect_parts_bit(Rest, [Bits], Unused);
collect_parts([{_T,V}|Rest], Acc) ->
collect_parts(Rest, [V|Acc]);
collect_parts([], Acc) ->
list_to_binary(lists:reverse(Acc)).
collect_parts_bit([{3,<<Unused,Bits/binary>>}|Rest], Acc, Uacc) ->
collect_parts_bit(Rest, [Bits|Acc], Unused + Uacc);
collect_parts_bit([], Acc, Uacc) ->
list_to_binary([Uacc|lists:reverse(Acc)]).
decode_boolean(Tlv, TagIn) ->
Val = match_tags(Tlv, TagIn),
case Val of
<<0:8>> ->
false;
<<_:8>> ->
true;
_ ->
exit({error,{asn1,{decode_boolean,Val}}})
end.
decode_enumerated(Tlv, NamedNumberList, Tags) ->
Buffer = match_tags(Tlv, Tags),
decode_enumerated_notag(Buffer, NamedNumberList, Tags).
decode_enumerated1(Val, NamedNumberList) ->
case lists:keyfind(Val, 2, NamedNumberList) of
{NamedVal,_} ->
NamedVal;
_ ->
{asn1_enum,Val}
end.
decode_enumerated_notag(Buffer, {NamedNumberList,ExtList}, _Tags) ->
IVal = decode_integer(Buffer),
case decode_enumerated1(IVal, NamedNumberList) of
{asn1_enum,IVal} ->
decode_enumerated1(IVal, ExtList);
EVal ->
EVal
end;
decode_enumerated_notag(Buffer, NNList, _Tags) ->
IVal = decode_integer(Buffer),
case decode_enumerated1(IVal, NNList) of
{asn1_enum,_} ->
exit({error,{asn1,{illegal_enumerated,IVal}}});
EVal ->
EVal
end.
decode_integer(Bin) ->
Len = byte_size(Bin),
<<Int:Len/signed-unit:8>> = Bin,
Int.
decode_integer(Tlv, Range, TagIn) ->
V = match_tags(Tlv, TagIn),
Int = decode_integer(V),
range_check_integer(Int, Range).
decode_null(Tlv, Tags) ->
Val = match_tags(Tlv, Tags),
case Val of
<<>> ->
'NULL';
_ ->
exit({error,{asn1,{decode_null,Val}}})
end.
decode_restricted_string(Tlv, TagsIn) ->
Bin = match_and_collect(Tlv, TagsIn),
Bin.
encode_boolean(true, TagIn) ->
encode_tags(TagIn, [255], 1);
encode_boolean(false, TagIn) ->
encode_tags(TagIn, [0], 1);
encode_boolean(X, _) ->
exit({error,{asn1,{encode_boolean,X}}}).
encode_enumerated(Val, TagIn) when is_integer(Val) ->
encode_tags(TagIn, encode_integer(Val)).
encode_integer(Val) ->
Bytes =
if
Val >= 0 ->
encode_integer_pos(Val, []);
true ->
encode_integer_neg(Val, [])
end,
{Bytes,length(Bytes)}.
encode_integer(Val, Tag) when is_integer(Val) ->
encode_tags(Tag, encode_integer(Val));
encode_integer(Val, _Tag) ->
exit({error,{asn1,{encode_integer,Val}}}).
encode_integer_neg(- 1, [B1|_T] = L) when B1 > 127 ->
L;
encode_integer_neg(N, Acc) ->
encode_integer_neg(N bsr 8, [N band 255|Acc]).
encode_integer_pos(0, [B|_Acc] = L) when B < 128 ->
L;
encode_integer_pos(N, Acc) ->
encode_integer_pos(N bsr 8, [N band 255|Acc]).
encode_length(L) when L =< 127 ->
{[L],1};
encode_length(L) ->
Oct = minimum_octets(L),
Len = length(Oct),
if
Len =< 126 ->
{[128 bor Len|Oct],Len + 1};
true ->
exit({error,{asn1,too_long_length_oct,Len}})
end.
encode_null(_Val, TagIn) ->
encode_tags(TagIn, [], 0).
encode_restricted_string(OctetList, TagIn) when is_binary(OctetList) ->
encode_tags(TagIn, OctetList, byte_size(OctetList));
encode_restricted_string(OctetList, TagIn) when is_list(OctetList) ->
encode_tags(TagIn, OctetList, length(OctetList)).
encode_tags(TagIn, {BytesSoFar,LenSoFar}) ->
encode_tags(TagIn, BytesSoFar, LenSoFar).
encode_tags([Tag|Trest], BytesSoFar, LenSoFar) ->
{Bytes2,L2} = encode_length(LenSoFar),
encode_tags(Trest,
[Tag,Bytes2|BytesSoFar],
LenSoFar + byte_size(Tag) + L2);
encode_tags([], BytesSoFar, LenSoFar) ->
{BytesSoFar,LenSoFar}.
match_and_collect(Tlv, TagsIn) ->
Val = match_tags(Tlv, TagsIn),
case Val of
[_|_] = PartList ->
collect_parts(PartList);
Bin when is_binary(Bin) ->
Bin
end.
match_tags({T,V}, [T]) ->
V;
match_tags({T,V}, [T|Tt]) ->
match_tags(V, Tt);
match_tags([{T,V}], [T|Tt]) ->
match_tags(V, Tt);
match_tags([{T,_V}|_] = Vlist, [T]) ->
Vlist;
match_tags(Tlv, []) ->
Tlv;
match_tags({Tag,_V} = Tlv, [T|_Tt]) ->
exit({error,{asn1,{wrong_tag,{{expected,T},{got,Tag,Tlv}}}}}).
minimum_octets(0, Acc) ->
Acc;
minimum_octets(Val, Acc) ->
minimum_octets(Val bsr 8, [Val band 255|Acc]).
minimum_octets(Val) ->
minimum_octets(Val, []).
range_check_integer(Int, Range) ->
case Range of
[] ->
Int;
{Lb,Ub} when Int >= Lb, Ub >= Int ->
Int;
{_,_} ->
exit({error,{asn1,{integer_range,Range,Int}}});
Int ->
Int;
SingleValue when is_integer(SingleValue) ->
exit({error,{asn1,{integer_range,Range,Int}}});
_ ->
Int
end.
Copy Permalink