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