#include "portable.h"
#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
+
+#include <ac/stdlib.h>
+#include <ac/ctype.h>
#include <ac/string.h>
#include <ac/socket.h>
#define RIGHT4 0x0f
#define CONTINUED_LINE_MARKER '\001'
-static const char nib2b64[0x40f] =
+static const char nib2b64[0x40] =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
static const unsigned char b642nib[0x80] = {
int
ldif_parse_line(
LDAP_CONST char *line,
- char **type,
- char **value,
- int *vlen
+ char **typep,
+ char **valuep,
+ ber_len_t *vlenp
)
{
- char *p, *s, *d, *byte, *stop;
+ char *s, *p, *d;
char nib;
- int i, b64;
+ int b64, url;
+ char *freeme, *type, *value;
+ ber_len_t vlen;
+
+ *typep = NULL;
+ *valuep = NULL;
+ *vlenp = 0;
/* skip any leading space */
while ( isspace( (unsigned char) *line ) ) {
line++;
}
- *type = line;
- for ( s = line; *s && *s != ':'; s++ )
- ; /* NULL */
- if ( *s == '\0' ) {
+ freeme = ber_strdup( line );
+
+ if( freeme == NULL ) {
+ ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
+ "ldif_parse_line: line malloc failed\n");
+ return( -1 );
+ }
+
+ type = freeme;
+
+ s = strchr( type, ':' );
+
+ if ( s == NULL ) {
ber_pvt_log_printf( LDAP_DEBUG_PARSE, ldif_debug,
- "ldif_parse_line missing ':'\n");
+ "ldif_parse_line: missing ':' after %s\n",
+ type );
+ ber_memfree( freeme );
return( -1 );
}
/* trim any space between type and : */
- for ( p = s - 1; p > line && isspace( (unsigned char) *p ); p-- ) {
+ for ( p = &s[-1]; p > type && isspace( * (unsigned char *) p ); p-- ) {
*p = '\0';
}
*s++ = '\0';
- /* check for double : - indicates base 64 encoded value */
- if ( *s == ':' ) {
+ if ( *s == '\0' ) {
+ /* no value */
+ value = NULL;
+ vlen = 0;
+ goto done;
+ }
+
+ url = 0;
+ b64 = 0;
+
+ if ( *s == '<' ) {
+ s++;
+ url = 1;
+ } else if ( *s == ':' ) {
+ /* base 64 encoded value */
s++;
b64 = 1;
-
- /* single : - normally encoded value */
- } else {
- b64 = 0;
}
/* skip space between : and value */
/* if no value is present, error out */
if ( *s == '\0' ) {
ber_pvt_log_printf( LDAP_DEBUG_PARSE, ldif_debug,
- "ldif_parse_line missing value\n");
- return( -1 );
+ "ldif_parse_line: %s missing %svalue\n", type,
+ url ? "URL " : b64 ? "base64 " : "" );
+ value = NULL;
+ vlen = 0;
+ goto done;
}
/* check for continued line markers that should be deleted */
}
*d = '\0';
- *value = s;
if ( b64 ) {
- stop = strchr( s, '\0' );
- byte = s;
- for ( p = s, *vlen = 0; p < stop; p += 4, *vlen += 3 ) {
+ char *byte = s;
+
+ value = s;
+
+ for ( p = s, vlen = 0; p < d; p += 4, vlen += 3 ) {
+ int i;
for ( i = 0; i < 4; i++ ) {
if ( p[i] != '=' && (p[i] & 0x80 ||
b642nib[ p[i] & 0x7f ] > 0x3f) ) {
ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
-"ldif_parse_line: invalid base 64 encoding char (%c) 0x%x\n",
- p[i], p[i] );
+ "ldif_parse_line: %s: invalid base64 encoding"
+ " char (%c) 0x%x\n",
+ type, p[i], p[i] );
+ ber_memfree( freeme );
return( -1 );
}
}
byte[1] = (nib & RIGHT4) << 4;
/* third digit */
if ( p[2] == '=' ) {
- *vlen += 1;
+ vlen += 1;
break;
}
nib = b642nib[ p[2] & 0x7f ];
byte[2] = (nib & RIGHT2) << 6;
/* fourth digit */
if ( p[3] == '=' ) {
- *vlen += 2;
+ vlen += 2;
break;
}
nib = b642nib[ p[3] & 0x7f ];
byte += 3;
}
- s[ *vlen ] = '\0';
+ s[ vlen ] = '\0';
+
+ } else if ( url ) {
+ if( ldif_fetch_url( s, &value, &vlen ) ) {
+ ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
+ "ldif_parse_line: %s: URL \"%s\" fetch failed\n",
+ type, s );
+ ber_memfree( freeme );
+ return( -1 );
+ }
+
} else {
- *vlen = (int) (d - s);
+ value = s;
+ vlen = (int) (d - s);
}
+done:
+ type = ber_strdup( type );
+
+ if( type == NULL ) {
+ ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
+ "ldif_parse_line: type malloc failed\n");
+ ber_memfree( freeme );
+ return( -1 );
+ }
+
+ if( !url && value != NULL ) {
+ value = ber_strdup( value );
+ if( value == NULL ) {
+ ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
+ "ldif_parse_line: value malloc failed\n");
+ ber_memfree( type );
+ ber_memfree( freeme );
+ return( -1 );
+ }
+ }
+
+ ber_memfree( freeme );
+
+ *typep = type;
+ *valuep = value;
+ *vlenp = vlen;
+
return( 0 );
}
* space character, it is a continuation of the previous line. the white
* space character (nb: only one char), and preceeding newline are changed
* into CONTINUED_LINE_MARKER chars, to be deleted later by the
- * str_parse_line() routine above.
+ * ldif_parse_line() routine above.
*
- * it takes a pointer to a pointer to the buffer on the first call,
+ * ldif_getline will skip over any line which starts '#'.
+ *
+ * ldif_getline takes a pointer to a pointer to the buffer on the first call,
* which it updates and must be supplied on subsequent calls.
*/
char *
ldif_getline( char **next )
{
- char *l;
+ char *line;
- if ( *next == NULL || **next == '\n' || **next == '\0' ) {
- return( NULL );
- }
+ do {
+ if ( *next == NULL || **next == '\n' || **next == '\0' ) {
+ return( NULL );
+ }
+
+ line = *next;
+
+ while ( (*next = strchr( *next, '\n' )) != NULL ) {
+ unsigned char c = *(*next + 1);
+
+ if ( !isspace( c ) || c == '\n' ) {
+ *(*next)++ = '\0';
+ break;
+ }
- l = *next;
- while ( (*next = strchr( *next, '\n' )) != NULL ) {
- unsigned char c = *(*next + 1);
- if ( isspace( c ) && c != '\n' ) {
**next = CONTINUED_LINE_MARKER;
*(*next+1) = CONTINUED_LINE_MARKER;
- } else {
- *(*next)++ = '\0';
- break;
+ (*next)++;
}
- (*next)++;
- }
+ } while( *line == '#' );
- return( l );
+ return( line );
}
+/* compatibility with U-Mich off by one bug */
+#define LDIF_KLUDGE 1
+
void
-ldif_put_type_and_value(
+ldif_sput(
char **out,
- LDAP_CONST char *t,
+ int type,
+ LDAP_CONST char *name,
LDAP_CONST char *val,
- int vlen )
+ ber_len_t vlen )
{
- unsigned char *byte, *p, *stop;
+ unsigned char *byte, *stop;
unsigned char buf[3];
unsigned long bits;
char *save;
- int i, b64, pad, len, savelen;
- len = 0;
+ int pad;
- /* put the type + ": " */
- for ( p = (unsigned char *) t; *p; p++, len++ ) {
- *(*out)++ = *p;
+ ber_len_t savelen;
+ ber_len_t len=0;
+ ber_len_t i;
+
+ /* prefix */
+ switch( type ) {
+ case LDIF_PUT_COMMENT:
+ if( name != NULL ) break;
+
+ *(*out)++ = '#';
+ len++;
+
+ if( vlen ) {
+ *(*out)++ = ' ';
+ len++;
+ break;
+ }
+
+ /* no value, fall-thru */
+
+ case LDIF_PUT_SEP:
+ *(*out)++ = '\n';
+ return;
}
- *(*out)++ = ':';
- len++;
+
+ /* name (attribute type) */
+ if( name != NULL ) {
+ /* put the name + ":" */
+ for ( i=0 ; name[i]; i++ ) {
+ *(*out)++ = name[i];
+ len++;
+ }
+
+ if( type != LDIF_PUT_COMMENT ) {
+ *(*out)++ = ':';
+ len++;
+ }
+
+#ifdef LDAP_DEBUG
+ } else {
+ assert( type == LDIF_PUT_COMMENT );
+#endif
+ }
+
+ switch( type ) {
+ case LDIF_PUT_NOVALUE:
+ *(*out)++ = '\n';
+ return;
+
+ case LDIF_PUT_URL: /* url value */
+ *(*out)++ = '<';
+ len++;
+ break;
+
+ case LDIF_PUT_B64: /* base64 value */
+ *(*out)++ = ':';
+ len++;
+ break;
+ }
+
+ switch( type ) {
+ case LDIF_PUT_TEXT:
+ case LDIF_PUT_URL:
+ case LDIF_PUT_B64:
+ *(*out)++ = ' ';
+ len++;
+ /* fall-thru */
+
+ case LDIF_PUT_COMMENT:
+ /* pre-encoded names */
+ for ( i=0; i < vlen; i++ ) {
+ if ( len > LDIF_LINE_WIDTH ) {
+ *(*out)++ = '\n';
+ *(*out)++ = ' ';
+ len = 1;
+ }
+
+ *(*out)++ = val[i];
+ len++;
+ }
+ *(*out)++ = '\n';
+ return;
+ }
+
save = *out;
savelen = len;
+
*(*out)++ = ' ';
- b64 = 0;
+ len++;
+
+ if( vlen == 0 ) {
+ *(*out)++ = '\n';
+ return;
+ }
stop = (unsigned char *) (val + vlen);
- if ( isascii( val[0] ) && (isspace( val[0] ) || val[0] == ':') ) {
- b64 = 1;
- } else {
+
+ if ( type == LDIF_PUT_VALUE &&
+ isgraph( val[0] ) && val[0] != ':' && val[0] != '<' &&
+ isgraph( val[vlen-1] ) )
+ {
+ int b64 = 0;
+
for ( byte = (unsigned char *) val; byte < stop;
- byte++, len++ ) {
+ byte++, len++ )
+ {
if ( !isascii( *byte ) || !isprint( *byte ) ) {
b64 = 1;
break;
}
- if ( len > LDIF_LINE_WIDTH ) {
+ if ( len > LDIF_LINE_WIDTH+LDIF_KLUDGE ) {
*(*out)++ = '\n';
*(*out)++ = ' ';
len = 1;
}
*(*out)++ = *byte;
}
+
+ if( !b64 ) {
+ *(*out)++ = '\n';
+ return;
+ }
}
- if ( b64 ) {
- *out = save;
- *(*out)++ = ':';
- *(*out)++ = ' ';
- len = savelen + 2;
- /* convert to base 64 (3 bytes => 4 base 64 digits) */
- for ( byte = (unsigned char *) val; byte < stop - 2;
- byte += 3 ) {
- bits = (byte[0] & 0xff) << 16;
- bits |= (byte[1] & 0xff) << 8;
- bits |= (byte[2] & 0xff);
-
- for ( i = 0; i < 4; i++, len++, bits <<= 6 ) {
- if ( len > LDIF_LINE_WIDTH ) {
- *(*out)++ = '\n';
- *(*out)++ = ' ';
- len = 1;
- }
- /* get b64 digit from high order 6 bits */
- *(*out)++ = nib2b64[ (bits & 0xfc0000L) >> 18 ];
+ *out = save;
+ *(*out)++ = ':';
+ *(*out)++ = ' ';
+ len = savelen + 2;
+
+ /* convert to base 64 (3 bytes => 4 base 64 digits) */
+ for ( byte = (unsigned char *) val;
+ byte < stop - 2;
+ byte += 3 )
+ {
+ bits = (byte[0] & 0xff) << 16;
+ bits |= (byte[1] & 0xff) << 8;
+ bits |= (byte[2] & 0xff);
+
+ for ( i = 0; i < 4; i++, len++, bits <<= 6 ) {
+ if ( len > LDIF_LINE_WIDTH+LDIF_KLUDGE ) {
+ *(*out)++ = '\n';
+ *(*out)++ = ' ';
+ len = 1;
}
+
+ /* get b64 digit from high order 6 bits */
+ *(*out)++ = nib2b64[ (bits & 0xfc0000L) >> 18 ];
}
+ }
- /* add padding if necessary */
- if ( byte < stop ) {
- for ( i = 0; byte + i < stop; i++ ) {
- buf[i] = byte[i];
- }
- for ( pad = 0; i < 3; i++, pad++ ) {
- buf[i] = '\0';
+ /* add padding if necessary */
+ if ( byte < stop ) {
+ for ( i = 0; byte + i < stop; i++ ) {
+ buf[i] = byte[i];
+ }
+ for ( pad = 0; i < 3; i++, pad++ ) {
+ buf[i] = '\0';
+ }
+ byte = buf;
+ bits = (byte[0] & 0xff) << 16;
+ bits |= (byte[1] & 0xff) << 8;
+ bits |= (byte[2] & 0xff);
+
+ for ( i = 0; i < 4; i++, len++, bits <<= 6 ) {
+ if ( len > LDIF_LINE_WIDTH+LDIF_KLUDGE ) {
+ *(*out)++ = '\n';
+ *(*out)++ = ' ';
+ len = 1;
}
- byte = buf;
- bits = (byte[0] & 0xff) << 16;
- bits |= (byte[1] & 0xff) << 8;
- bits |= (byte[2] & 0xff);
-
- for ( i = 0; i < 4; i++, len++, bits <<= 6 ) {
- if ( len > LDIF_LINE_WIDTH ) {
- *(*out)++ = '\n';
- *(*out)++ = ' ';
- len = 1;
- }
- if( i + pad < 4 ) {
- /* get b64 digit from low order 6 bits */
- *(*out)++ = nib2b64[ (bits & 0xfc0000L) >> 18 ];
- } else {
- *(*out)++ = '=';
- }
+ if( i + pad < 4 ) {
+ /* get b64 digit from low order 6 bits */
+ *(*out)++ = nib2b64[ (bits & 0xfc0000L) >> 18 ];
+ } else {
+ *(*out)++ = '=';
}
}
}
}
-char *
-ldif_type_and_value( LDAP_CONST char *type, LDAP_CONST char *val, int vlen )
/*
- * return BER malloc'd, zero-terminated LDIF line
+ * ldif_type_and_value return BER malloc'd, zero-terminated LDIF line
*/
+char *
+ldif_put(
+ int type,
+ LDAP_CONST char *name,
+ LDAP_CONST char *val,
+ ber_len_t vlen )
{
char *buf, *p;
- int tlen;
+ ber_len_t nlen;
- tlen = strlen( type );
- if (( buf = (char *) ber_memalloc( LDIF_SIZE_NEEDED( tlen, vlen ) + 1 ))
- == NULL )
- {
+ nlen = ( name != NULL ) ? strlen( name ) : 0;
+
+ buf = (char *) ber_memalloc( LDIF_SIZE_NEEDED( nlen, vlen ) + 1 );
+
+ if ( buf == NULL ) {
ber_pvt_log_printf( LDAP_DEBUG_ANY, ldif_debug,
"ldif_type_and_value: malloc failed!" );
return NULL;
}
p = buf;
- ldif_put_type_and_value( &p, type, val, vlen );
+ ldif_sput( &p, type, name, val, vlen );
*p = '\0';
return( buf );
}
+
+int ldif_is_not_printable(
+ LDAP_CONST char *val,
+ ber_len_t vlen )
+{
+ if( vlen == 0 || val == NULL ) {
+ return -1;
+ }
+
+ if( isgraph( val[0] ) && val[0] != ':' && val[0] != '<' &&
+ isgraph( val[vlen-1] ) )
+ {
+ ber_len_t i;
+
+ for ( i = 0; val[i]; i++ ) {
+ if ( !isascii( val[i] ) || !isprint( val[i] ) ) {
+ return 1;
+ }
+ }
+
+ return 0;
+ }
+
+ return 1;
+}