[PATCH] Handling LDAP binary values...
This lets the LDAP code return real binary information (like JPEGs or
certificates) out of the directory.
-Bill P.
*** eldap.c 1999/03/30 19:05:04 1.1
--- eldap.c 1999/03/30 19:08:21
***************
*** 356,362 ****
struct ldap_unwind_struct
{
LDAPMessage *res;
! char **vals;
};
--- 356,362 ----
struct ldap_unwind_struct
{
LDAPMessage *res;
! struct berval **vals;
};
***************
*** 368,374 ****
if (unwind->res)
ldap_msgfree (unwind->res);
if (unwind->vals)
! ldap_value_free (unwind->vals);
return Qnil;
}
--- 368,374 ----
if (unwind->res)
ldap_msgfree (unwind->res);
if (unwind->vals)
! ldap_value_free_len (unwind->vals);
return Qnil;
}
***************
*** 502,519 ****
a= ldap_next_attribute (ld, e, ptr) )
{
list = Fcons (build_ext_string (a, FORMAT_OS), Qnil);
! unwind.vals = ldap_get_values (ld, e, a);
if (unwind.vals != NULL)
{
for (i = 0; unwind.vals[i] != NULL; i++)
{
! list = Fcons (build_ext_string (unwind.vals[i], FORMAT_OS),
list);
}
}
entry = Fcons (Fnreverse (list),
entry);
! ldap_value_free (unwind.vals);
unwind.vals = NULL;
}
result = Fcons (Fnreverse (entry),
--- 502,519 ----
a= ldap_next_attribute (ld, e, ptr) )
{
list = Fcons (build_ext_string (a, FORMAT_OS), Qnil);
! unwind.vals = ldap_get_values_len (ld, e, a);
if (unwind.vals != NULL)
{
for (i = 0; unwind.vals[i] != NULL; i++)
{
! list = Fcons (make_ext_string
(unwind.vals[i]->bv_val,unwind.vals[i]->bv_len,FORMAT_OS),
list);
}
}
entry = Fcons (Fnreverse (list),
entry);
! ldap_value_free_len (unwind.vals);
unwind.vals = NULL;
}
result = Fcons (Fnreverse (entry),