?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Patrick Welche <prlw1@cam.ac.uk>
[netbsd-mini2440.git] / external / bsd / openldap / dist / servers / slapd / back-monitor / conn.c
blobf836b0004af914f2001be250d942b9d6935e478c
1 /* conn.c - deal with connection subsystem */
2 /* $OpenLDAP: pkg/ldap/servers/slapd/back-monitor/conn.c,v 1.72.2.7 2008/02/11 23:26:47 kurt Exp $ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4 *
5 * Copyright 2001-2008 The OpenLDAP Foundation.
6 * Portions Copyright 2001-2003 Pierangelo Masarati.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted only as authorized by the OpenLDAP
11 * Public License.
12 *
13 * A copy of this license is available in file LICENSE in the
14 * top-level directory of the distribution or, alternatively, at
15 * <http://www.OpenLDAP.org/license.html>.
16 */
17 /* ACKNOWLEDGEMENTS:
18 * This work was initially developed by Pierangelo Masarati for inclusion
19 * in OpenLDAP Software.
20 */
21
22 #include "portable.h"
23
24 #include <stdio.h>
25 #include <ac/string.h>
26
27 #include "slap.h"
28 #include "lutil.h"
29 #include "back-monitor.h"
30
31 static int
32 monitor_subsys_conn_update(
33 Operation *op,
34 SlapReply *rs,
35 Entry *e );
36
37 static int
38 monitor_subsys_conn_create(
39 Operation *op,
40 SlapReply *rs,
41 struct berval *ndn,
42 Entry *e_parent,
43 Entry **ep );
44
45 int
46 monitor_subsys_conn_init(
47 BackendDB *be,
48 monitor_subsys_t *ms )
49 {
50 monitor_info_t *mi;
51 Entry *e, **ep, *e_conn;
52 monitor_entry_t *mp;
53 char buf[ BACKMONITOR_BUFSIZE ];
54 struct berval bv;
55
56 assert( be != NULL );
57
58 ms->mss_update = monitor_subsys_conn_update;
59 ms->mss_create = monitor_subsys_conn_create;
60
61 mi = ( monitor_info_t * )be->be_private;
62
63 if ( monitor_cache_get( mi, &ms->mss_ndn, &e_conn ) ) {
64 Debug( LDAP_DEBUG_ANY,
65 "monitor_subsys_conn_init: "
66 "unable to get entry \"%s\"\n",
67 ms->mss_ndn.bv_val, 0, 0 );
68 return( -1 );
69 }
70
71 mp = ( monitor_entry_t * )e_conn->e_private;
72 mp->mp_children = NULL;
73 ep = &mp->mp_children;
74
75 /*
76 * Max file descriptors
77 */
78 BER_BVSTR( &bv, "cn=Max File Descriptors" );
79 e = monitor_entry_stub( &ms->mss_dn, &ms->mss_ndn, &bv,
80 mi->mi_oc_monitorCounterObject, mi, NULL, NULL );
81
82 if ( e == NULL ) {
83 Debug( LDAP_DEBUG_ANY,
84 "monitor_subsys_conn_init: "
85 "unable to create entry \"%s,%s\"\n",
86 bv.bv_val, ms->mss_ndn.bv_val, 0 );
87 return( -1 );
88 }
89
90 if ( dtblsize ) {
91 bv.bv_val = buf;
92 bv.bv_len = snprintf( buf, sizeof( buf ), "%d", dtblsize );
93
94 } else {
95 BER_BVSTR( &bv, "0" );
96 }
97 attr_merge_one( e, mi->mi_ad_monitorCounter, &bv, &bv );
98
99 mp = monitor_entrypriv_create();
100 if ( mp == NULL ) {
101 return -1;
102 }
103 e->e_private = ( void * )mp;
104 mp->mp_info = ms;
105 mp->mp_flags = ms->mss_flags \
106 | MONITOR_F_SUB | MONITOR_F_PERSISTENT;
107 mp->mp_flags &= ~MONITOR_F_VOLATILE_CH;
108
109 if ( monitor_cache_add( mi, e ) ) {
110 Debug( LDAP_DEBUG_ANY,
111 "monitor_subsys_conn_init: "
112 "unable to add entry \"cn=Total,%s\"\n",
113 ms->mss_ndn.bv_val, 0, 0 );
114 return( -1 );
115 }
116
117 *ep = e;
118 ep = &mp->mp_next;
119
120 /*
121 * Total conns
122 */
123 BER_BVSTR( &bv, "cn=Total" );
124 e = monitor_entry_stub( &ms->mss_dn, &ms->mss_ndn, &bv,
125 mi->mi_oc_monitorCounterObject, mi, NULL, NULL );
126
127 if ( e == NULL ) {
128 Debug( LDAP_DEBUG_ANY,
129 "monitor_subsys_conn_init: "
130 "unable to create entry \"cn=Total,%s\"\n",
131 ms->mss_ndn.bv_val, 0, 0 );
132 return( -1 );
133 }
134
135 BER_BVSTR( &bv, "-1" );
136 attr_merge_one( e, mi->mi_ad_monitorCounter, &bv, &bv );
137
138 mp = monitor_entrypriv_create();
139 if ( mp == NULL ) {
140 return -1;
141 }
142 e->e_private = ( void * )mp;
143 mp->mp_info = ms;
144 mp->mp_flags = ms->mss_flags \
145 | MONITOR_F_SUB | MONITOR_F_PERSISTENT;
146 mp->mp_flags &= ~MONITOR_F_VOLATILE_CH;
147
148 if ( monitor_cache_add( mi, e ) ) {
149 Debug( LDAP_DEBUG_ANY,
150 "monitor_subsys_conn_init: "
151 "unable to add entry \"cn=Total,%s\"\n",
152 ms->mss_ndn.bv_val, 0, 0 );
153 return( -1 );
154 }
155
156 *ep = e;
157 ep = &mp->mp_next;
158
159 /*
160 * Current conns
161 */
162 BER_BVSTR( &bv, "cn=Current" );
163 e = monitor_entry_stub( &ms->mss_dn, &ms->mss_ndn, &bv,
164 mi->mi_oc_monitorCounterObject, mi, NULL, NULL );
165
166 if ( e == NULL ) {
167 Debug( LDAP_DEBUG_ANY,
168 "monitor_subsys_conn_init: "
169 "unable to create entry \"cn=Current,%s\"\n",
170 ms->mss_ndn.bv_val, 0, 0 );
171 return( -1 );
172 }
173
174 BER_BVSTR( &bv, "0" );
175 attr_merge_one( e, mi->mi_ad_monitorCounter, &bv, &bv );
176
177 mp = monitor_entrypriv_create();
178 if ( mp == NULL ) {
179 return -1;
180 }
181 e->e_private = ( void * )mp;
182 mp->mp_info = ms;
183 mp->mp_flags = ms->mss_flags \
184 | MONITOR_F_SUB | MONITOR_F_PERSISTENT;
185 mp->mp_flags &= ~MONITOR_F_VOLATILE_CH;
186
187 if ( monitor_cache_add( mi, e ) ) {
188 Debug( LDAP_DEBUG_ANY,
189 "monitor_subsys_conn_init: "
190 "unable to add entry \"cn=Current,%s\"\n",
191 ms->mss_ndn.bv_val, 0, 0 );
192 return( -1 );
193 }
194
195 *ep = e;
196 ep = &mp->mp_next;
197
198 monitor_cache_release( mi, e_conn );
199
200 return( 0 );
201 }
202
203 static int
204 monitor_subsys_conn_update(
205 Operation *op,
206 SlapReply *rs,
207 Entry *e )
208 {
209 monitor_info_t *mi = ( monitor_info_t * )op->o_bd->be_private;
210
211 long n = -1;
212 static struct berval total_bv = BER_BVC( "cn=total" ),
213 current_bv = BER_BVC( "cn=current" );
214 struct berval rdn;
215
216 assert( mi != NULL );
217 assert( e != NULL );
218
219 dnRdn( &e->e_nname, &rdn );
220
221 if ( dn_match( &rdn, &total_bv ) ) {
222 n = connections_nextid();
223
224 } else if ( dn_match( &rdn, &current_bv ) ) {
225 Connection *c;
226 int connindex;
227
228 for ( n = 0, c = connection_first( &connindex );
229 c != NULL;
230 n++, c = connection_next( c, &connindex ) )
231 {
232 /* No Op */ ;
233 }
234 connection_done( c );
235 }
236
237 if ( n != -1 ) {
238 Attribute *a;
239 char buf[LDAP_PVT_INTTYPE_CHARS(long)];
240 ber_len_t len;
241
242 a = attr_find( e->e_attrs, mi->mi_ad_monitorCounter );
243 if ( a == NULL ) {
244 return( -1 );
245 }
246
247 snprintf( buf, sizeof( buf ), "%ld", n );
248 len = strlen( buf );
249 if ( len > a->a_vals[ 0 ].bv_len ) {
250 a->a_vals[ 0 ].bv_val = ber_memrealloc( a->a_vals[ 0 ].bv_val, len + 1 );
251 }
252 a->a_vals[ 0 ].bv_len = len;
253 AC_MEMCPY( a->a_vals[ 0 ].bv_val, buf, len + 1 );
254
255 /* FIXME: touch modifyTimestamp? */
256 }
257
258 return SLAP_CB_CONTINUE;
259 }
260
261 static int
262 conn_create(
263 monitor_info_t *mi,
264 Connection *c,
265 Entry **ep,
266 monitor_subsys_t *ms )
267 {
268 monitor_entry_t *mp;
269 struct tm *tm;
270 char buf[ BACKMONITOR_BUFSIZE ];
271 char buf2[ LDAP_LUTIL_GENTIME_BUFSIZE ];
272 char buf3[ LDAP_LUTIL_GENTIME_BUFSIZE ];
273
274 struct berval bv, ctmbv, mtmbv, bv2, bv3;
275 struct berval bv_unknown= BER_BVC("unknown");
276
277 Entry *e;
278
279 #ifdef HACK_LOCAL_TIME
280 char ctmbuf[ LDAP_LUTIL_GENTIME_BUFSIZE ];
281 char mtmbuf[ LDAP_LUTIL_GENTIME_BUFSIZE ];
282 #endif
283 #ifdef HAVE_GMTIME_R
284 struct tm tm_buf;
285 #endif /* HAVE_GMTIME_R */
286
287 assert( c != NULL );
288 assert( ep != NULL );
289
290 #ifndef HAVE_GMTIME_R
291 ldap_pvt_thread_mutex_lock( &gmtime_mutex );
292 #endif
293
294 #ifdef HAVE_GMTIME_R
295 tm = gmtime_r( &c->c_starttime, &tm_buf );
296 #else
297 tm = gmtime( &c->c_starttime );
298 #endif
299 bv2.bv_len = lutil_gentime( buf2, sizeof( buf2 ), tm );
300 bv2.bv_val = buf2;
301 #ifdef HACK_LOCAL_TIME
302 # ifdef HAVE_LOCALTIME_R
303 tm = localtime_r( &c->c_starttime, &tm_buf );
304 # else
305 tm = localtime( &c->c_starttime );
306 # endif
307 ctmbv.bv_len = lutil_localtime( ctmbuf, sizeof( ctmbuf ), tm, -timezone );
308 ctmbv.bv_val = ctmbuf;
309 #else /* !HACK_LOCAL_TIME */
310 ctmbv = bv2;
311 #endif
312
313 #ifdef HAVE_GMTIME_R
314 tm = gmtime_r( &c->c_activitytime, &tm_buf );
315 #else
316 tm = gmtime( &c->c_activitytime );
317 #endif
318 bv3.bv_len = lutil_gentime( buf3, sizeof( buf3 ), tm );
319 bv3.bv_val = buf3;
320 #ifdef HACK_LOCAL_TIME
321 # ifdef HAVE_LOCALTIME_R
322 tm = localtime_r( &c->c_activitytime, &tm_buf );
323 # else
324 tm = localtime( &c->c_activitytime );
325 # endif /* HAVE_LOCALTIME_R */
326 mtmbv.bv_len = lutil_localtime( mtmbuf, sizeof( mtmbuf ), tm, -timezone );
327 mtmbv.bv_val = mtmbuf;
328 #else /* !HACK_LOCAL_TIME */
329 mtmbv = bv3;
330 #endif
331
332 #ifndef HAVE_GMTIME_R
333 ldap_pvt_thread_mutex_unlock( &gmtime_mutex );
334 #endif
335
336 bv.bv_len = snprintf( buf, sizeof( buf ),
337 "cn=Connection %ld", c->c_connid );
338 bv.bv_val = buf;
339 e = monitor_entry_stub( &ms->mss_dn, &ms->mss_ndn, &bv,
340 mi->mi_oc_monitorConnection, mi, &ctmbv, &mtmbv );
341
342 if ( e == NULL) {
343 Debug( LDAP_DEBUG_ANY,
344 "monitor_subsys_conn_create: "
345 "unable to create entry "
346 "\"cn=Connection %ld,%s\"\n",
347 c->c_connid,
348 ms->mss_dn.bv_val, 0 );
349 return( -1 );
350 }
351
352 #ifdef MONITOR_LEGACY_CONN
353 /* NOTE: this will disappear, as the exploded data
354 * has been moved to dedicated attributes */
355 bv.bv_len = snprintf( buf, sizeof( buf ),
356 "%ld "
357 ": %ld "
358 ": %ld/%ld/%ld/%ld "
359 ": %ld/%ld/%ld "
360 ": %s%s%s%s%s%s "
361 ": %s "
362 ": %s "
363 ": %s "
364 ": %s "
365 ": %s "
366 ": %s "
367 ": %s",
368 c->c_connid,
369 (long) c->c_protocol,
370 c->c_n_ops_received, c->c_n_ops_executing,
371 c->c_n_ops_pending, c->c_n_ops_completed,
372
373 /* add low-level counters here */
374 c->c_n_get, c->c_n_read, c->c_n_write,
375
376 c->c_currentber ? "r" : "",
377 c->c_writewaiter ? "w" : "",
378 LDAP_STAILQ_EMPTY( &c->c_ops ) ? "" : "x",
379 LDAP_STAILQ_EMPTY( &c->c_pending_ops ) ? "" : "p",
380 connection_state2str( c->c_conn_state ),
381 c->c_sasl_bind_in_progress ? "S" : "",
382
383 c->c_dn.bv_len ? c->c_dn.bv_val : SLAPD_ANONYMOUS,
384
385 c->c_listener_url.bv_val,
386 BER_BVISNULL( &c->c_peer_domain )
387 ? "" : c->c_peer_domain.bv_val,
388 BER_BVISNULL( &c->c_peer_name )
389 ? "" : c->c_peer_name.bv_val,
390 c->c_sock_name.bv_val,
391
392 buf2,
393 buf3 );
394 attr_merge_normalize_one( e, mi->mi_ad_monitoredInfo, &bv, NULL );
395 #endif /* MONITOR_LEGACY_CONN */
396
397 bv.bv_len = snprintf( buf, sizeof( buf ), "%lu", c->c_connid );
398 attr_merge_one( e, mi->mi_ad_monitorConnectionNumber, &bv, NULL );
399
400 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", (long) c->c_protocol );
401 attr_merge_one( e, mi->mi_ad_monitorConnectionProtocol, &bv, NULL );
402
403 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_ops_received );
404 attr_merge_one( e, mi->mi_ad_monitorConnectionOpsReceived, &bv, NULL );
405
406 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_ops_executing );
407 attr_merge_one( e, mi->mi_ad_monitorConnectionOpsExecuting, &bv, NULL );
408
409 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_ops_pending );
410 attr_merge_one( e, mi->mi_ad_monitorConnectionOpsPending, &bv, NULL );
411
412 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_ops_completed );
413 attr_merge_one( e, mi->mi_ad_monitorConnectionOpsCompleted, &bv, NULL );
414
415 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_get );
416 attr_merge_one( e, mi->mi_ad_monitorConnectionGet, &bv, NULL );
417
418 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_read );
419 attr_merge_one( e, mi->mi_ad_monitorConnectionRead, &bv, NULL );
420
421 bv.bv_len = snprintf( buf, sizeof( buf ), "%ld", c->c_n_write );
422 attr_merge_one( e, mi->mi_ad_monitorConnectionWrite, &bv, NULL );
423
424 bv.bv_len = snprintf( buf, sizeof( buf ), "%s%s%s%s%s%s",
425 c->c_currentber ? "r" : "",
426 c->c_writewaiter ? "w" : "",
427 LDAP_STAILQ_EMPTY( &c->c_ops ) ? "" : "x",
428 LDAP_STAILQ_EMPTY( &c->c_pending_ops ) ? "" : "p",
429 connection_state2str( c->c_conn_state ),
430 c->c_sasl_bind_in_progress ? "S" : "" );
431 attr_merge_one( e, mi->mi_ad_monitorConnectionMask, &bv, NULL );
432
433 attr_merge_one( e, mi->mi_ad_monitorConnectionAuthzDN,
434 &c->c_dn, &c->c_ndn );
435
436 /* NOTE: client connections leave the c_peer_* fields NULL */
437 assert( !BER_BVISNULL( &c->c_listener_url ) );
438 attr_merge_one( e, mi->mi_ad_monitorConnectionListener,
439 &c->c_listener_url, NULL );
440
441 attr_merge_one( e, mi->mi_ad_monitorConnectionPeerDomain,
442 BER_BVISNULL( &c->c_peer_domain ) ? &bv_unknown : &c->c_peer_domain,
443 NULL );
444
445 attr_merge_one( e, mi->mi_ad_monitorConnectionPeerAddress,
446 BER_BVISNULL( &c->c_peer_name ) ? &bv_unknown : &c->c_peer_name,
447 NULL );
448
449 assert( !BER_BVISNULL( &c->c_sock_name ) );
450 attr_merge_one( e, mi->mi_ad_monitorConnectionLocalAddress,
451 &c->c_sock_name, NULL );
452
453 attr_merge_one( e, mi->mi_ad_monitorConnectionStartTime, &bv2, NULL );
454
455 attr_merge_one( e, mi->mi_ad_monitorConnectionActivityTime, &bv3, NULL );
456
457 mp = monitor_entrypriv_create();
458 if ( mp == NULL ) {
459 return LDAP_OTHER;
460 }
461 e->e_private = ( void * )mp;
462 mp->mp_info = ms;
463 mp->mp_flags = MONITOR_F_SUB | MONITOR_F_VOLATILE;
464
465 *ep = e;
466
467 return SLAP_CB_CONTINUE;
468 }
469
470 static int
471 monitor_subsys_conn_create(
472 Operation *op,
473 SlapReply *rs,
474 struct berval *ndn,
475 Entry *e_parent,
476 Entry **ep )
477 {
478 monitor_info_t *mi = ( monitor_info_t * )op->o_bd->be_private;
479
480 int rc = SLAP_CB_CONTINUE;
481 monitor_subsys_t *ms;
482
483 assert( mi != NULL );
484 assert( e_parent != NULL );
485 assert( ep != NULL );
486
487 ms = (( monitor_entry_t *)e_parent->e_private)->mp_info;
488
489 *ep = NULL;
490
491 if ( ndn == NULL ) {
492 Connection *c;
493 int connindex;
494 Entry *e = NULL,
495 *e_tmp = NULL;
496
497 /* create all the children of e_parent */
498 for ( c = connection_first( &connindex );
499 c != NULL;
500 c = connection_next( c, &connindex ) )
501 {
502 monitor_entry_t *mp;
503
504 if ( conn_create( mi, c, &e, ms ) != SLAP_CB_CONTINUE
505 || e == NULL )
506 {
507 for ( ; e_tmp != NULL; ) {
508 mp = ( monitor_entry_t * )e_tmp->e_private;
509 e = mp->mp_next;
510
511 ch_free( mp );
512 e_tmp->e_private = NULL;
513 entry_free( e_tmp );
514
515 e_tmp = e;
516 }
517 rc = rs->sr_err = LDAP_OTHER;
518 break;
519 }
520 mp = ( monitor_entry_t * )e->e_private;
521 mp->mp_next = e_tmp;
522 e_tmp = e;
523 }
524 connection_done( c );
525 *ep = e;
526
527 } else {
528 Connection *c;
529 int connindex;
530 unsigned long connid;
531 char *next = NULL;
532 static struct berval nconn_bv = BER_BVC( "cn=connection " );
533
534 rc = LDAP_NO_SUCH_OBJECT;
535
536 /* create exactly the required entry;
537 * the normalized DN must start with "cn=connection ",
538 * followed by the connection id, followed by
539 * the RDN separator "," */
540 if ( ndn->bv_len <= nconn_bv.bv_len
541 || strncmp( ndn->bv_val, nconn_bv.bv_val, nconn_bv.bv_len ) != 0 )
542 {
543 return -1;
544 }
545
546 connid = strtol( &ndn->bv_val[ nconn_bv.bv_len ], &next, 10 );
547 if ( next[ 0 ] != ',' ) {
548 return ( rs->sr_err = LDAP_OTHER );
549 }
550
551 for ( c = connection_first( &connindex );
552 c != NULL;
553 c = connection_next( c, &connindex ) )
554 {
555 if ( c->c_connid == connid ) {
556 rc = conn_create( mi, c, ep, ms );
557 if ( rc != SLAP_CB_CONTINUE ) {
558 rs->sr_err = rc;
559
560 } else if ( *ep == NULL ) {
561 rc = rs->sr_err = LDAP_OTHER;
562 }
563
564 break;
565 }
566 }
567
568 connection_done( c );
569 }
570
571 return rc;
572 }
573
NetBSD on the FriendlyARM MINI2440