1/* $OpenLDAP$ */
2/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
3 *
4 * Copyright 1998-2011 The OpenLDAP Foundation.
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted only as authorized by the OpenLDAP
9 * Public License.
10 *
11 * A copy of this license is available in the file LICENSE in the
12 * top-level directory of the distribution or, alternatively, at
13 * <http://www.OpenLDAP.org/license.html>.
14 */
15/*
16 * Copyright (c) 1991 Regents of the University of Michigan.
17 * All rights reserved.
18 *
19 * Redistribution and use in source and binary forms are permitted
20 * provided that this notice is preserved and that due credit is given
21 * to the University of Michigan at Ann Arbor. The name of the University
22 * may not be used to endorse or promote products derived from this
23 * software without specific prior written permission. This software
24 * is provided ``as is'' without express or implied warranty.
25 */
26/* ACKNOWLEDGEMENTS:
27 * This work was originally developed by the University of Michigan
28 * (as part of U-MICH LDAP).
29 */
30
31#include "portable.h"
32
33#include <stdio.h>
34
35#include <ac/ctype.h>
36#include <ac/stdarg.h>
37#include <ac/string.h>
38
39#include "lber-int.h"
40
41#define	ber_log_check(errlvl, loglvl)	((errlvl) & (loglvl))
42
43BER_LOG_FN ber_int_log_proc = NULL;
44
45/*
46 * We don't just set ber_pvt_err_file to stderr here, because in NT,
47 * stderr is a symbol imported from a DLL. As such, the compiler
48 * doesn't recognize the symbol as having a constant address. Thus
49 * we set ber_pvt_err_file to stderr later, when it first gets
50 * referenced.
51 */
52FILE *ber_pvt_err_file = NULL;
53
54/*
55 * ber errno
56 */
57BER_ERRNO_FN ber_int_errno_fn = NULL;
58
59int * ber_errno_addr(void)
60{
61	static int ber_int_errno = LBER_ERROR_NONE;
62
63	if( ber_int_errno_fn ) {
64		return (*ber_int_errno_fn)();
65	}
66
67	return &ber_int_errno;
68}
69
70/*
71 * Print stuff
72 */
73void ber_error_print( LDAP_CONST char *data )
74{
75	assert( data != NULL );
76
77	if (!ber_pvt_err_file) ber_pvt_err_file = stderr;
78
79	fputs( data, ber_pvt_err_file );
80
81	/* Print to both streams */
82	if (ber_pvt_err_file != stderr) {
83		fputs( data, stderr );
84		fflush( stderr );
85	}
86
87	fflush( ber_pvt_err_file );
88}
89
90BER_LOG_PRINT_FN ber_pvt_log_print = ber_error_print;
91
92/*
93 * lber log
94 */
95
96int ber_pvt_log_output(
97	const char *subsystem,
98	int level,
99	const char *fmt,
100	... )
101{
102	char buf[1024];
103	va_list vl;
104	va_start( vl, fmt );
105
106	if ( ber_int_log_proc != NULL ) {
107		ber_int_log_proc( ber_pvt_err_file, subsystem, level, fmt, vl );
108
109	} else {
110		int level;
111		ber_get_option( NULL, LBER_OPT_BER_DEBUG, &level );
112		buf[sizeof(buf) - 1] = '\0';
113		vsnprintf( buf, sizeof(buf)-1, fmt, vl );
114		if ( ber_log_check( LDAP_DEBUG_BER, level ) ) {
115			(*ber_pvt_log_print)( buf );
116		}
117	}
118
119	va_end(vl);
120	return 1;
121}
122
123int ber_pvt_log_printf( int errlvl, int loglvl, const char *fmt, ... )
124{
125	char buf[1024];
126	va_list ap;
127
128	assert( fmt != NULL );
129
130	if ( !ber_log_check( errlvl, loglvl )) {
131		return 0;
132	}
133
134	va_start( ap, fmt );
135
136	buf[sizeof(buf) - 1] = '\0';
137	vsnprintf( buf, sizeof(buf)-1, fmt, ap );
138
139	va_end(ap);
140
141	(*ber_pvt_log_print)( buf );
142	return 1;
143}
144
145#if 0
146static int ber_log_puts(int errlvl, int loglvl, char *buf)
147{
148	assert( buf != NULL );
149
150	if ( !ber_log_check( errlvl, loglvl )) {
151		return 0;
152	}
153
154	(*ber_pvt_log_print)( buf );
155	return 1;
156}
157#endif
158
159/*
160 * Print arbitrary stuff, for debugging.
161 */
162
163int
164ber_log_bprint(int errlvl,
165	int loglvl,
166	const char *data,
167	ber_len_t len )
168{
169	assert( data != NULL );
170
171	if ( !ber_log_check( errlvl, loglvl )) {
172		return 0;
173	}
174
175	ber_bprint(data, len);
176	return 1;
177}
178
179void
180ber_bprint(
181	LDAP_CONST char *data,
182	ber_len_t len )
183{
184	static const char hexdig[] = "0123456789abcdef";
185#define BP_OFFSET 9
186#define BP_GRAPH 60
187#define BP_LEN	80
188	char	line[BP_LEN];
189	ber_len_t i;
190
191	assert( data != NULL );
192
193	/* in case len is zero */
194	line[0] = '\n';
195	line[1] = '\0';
196
197	for ( i = 0 ; i < len ; i++ ) {
198		int n = i % 16;
199		unsigned off;
200
201		if( !n ) {
202			if( i ) (*ber_pvt_log_print)( line );
203			memset( line, ' ', sizeof(line)-2 );
204			line[sizeof(line)-2] = '\n';
205			line[sizeof(line)-1] = '\0';
206
207			off = i % 0x0ffffU;
208
209			line[2] = hexdig[0x0f & (off >> 12)];
210			line[3] = hexdig[0x0f & (off >>  8)];
211			line[4] = hexdig[0x0f & (off >>  4)];
212			line[5] = hexdig[0x0f & off];
213			line[6] = ':';
214		}
215
216		off = BP_OFFSET + n*3 + ((n >= 8)?1:0);
217		line[off] = hexdig[0x0f & ( data[i] >> 4 )];
218		line[off+1] = hexdig[0x0f & data[i]];
219
220		off = BP_GRAPH + n + ((n >= 8)?1:0);
221
222		if ( isprint( (unsigned char) data[i] )) {
223			line[BP_GRAPH + n] = data[i];
224		} else {
225			line[BP_GRAPH + n] = '.';
226		}
227	}
228
229	(*ber_pvt_log_print)( line );
230}
231
232
233int
234ber_log_dump(
235	int errlvl,
236	int loglvl,
237	BerElement *ber,
238	int inout )
239{
240	assert( ber != NULL );
241	assert( LBER_VALID( ber ) );
242
243	if ( !ber_log_check( errlvl, loglvl )) {
244		return 0;
245	}
246
247	ber_dump(ber, inout);
248	return 1;
249}
250
251void
252ber_dump(
253	BerElement *ber,
254	int inout )
255{
256	char buf[132];
257	ber_len_t len;
258
259	assert( ber != NULL );
260	assert( LBER_VALID( ber ) );
261
262	if ( inout == 1 ) {
263		len = ber_pvt_ber_remaining(ber);
264	} else {
265		len = ber_pvt_ber_write(ber);
266	}
267
268	sprintf( buf, "ber_dump: buf=%p ptr=%p end=%p len=%ld\n",
269		ber->ber_buf,
270		ber->ber_ptr,
271		ber->ber_end,
272		(long) len );
273
274	(void) (*ber_pvt_log_print)( buf );
275
276	ber_bprint( ber->ber_ptr, len );
277}
278
279typedef struct seqorset Seqorset;
280
281/* Exists for binary compatibility with OpenLDAP 2.4.17-- */
282int
283ber_log_sos_dump(
284	int errlvl,
285	int loglvl,
286	Seqorset *sos )
287{
288	return 0;
289}
290
291/* Exists for binary compatibility with OpenLDAP 2.4.17-- */
292void
293ber_sos_dump(
294	Seqorset *sos )
295{
296}
297