1 /*
2 * Copyright (c) 2001 by Sun Microsystems, Inc.
3 * All rights reserved.
4 */
5
6 #pragma ident "%Z%%M% %I% %E% SMI"
7
8 /*
9 * The contents of this file are subject to the Netscape Public
10 * License Version 1.1 (the "License"); you may not use this file
11 * except in compliance with the License. You may obtain a copy of
12 * the License at http://www.mozilla.org/NPL/
13 *
14 * Software distributed under the License is distributed on an "AS
15 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
16 * implied. See the License for the specific language governing
17 * rights and limitations under the License.
18 *
19 * The Original Code is Mozilla Communicator client code, released
20 * March 31, 1998.
21 *
22 * The Initial Developer of the Original Code is Netscape
23 * Communications Corporation. Portions created by Netscape are
24 * Copyright (C) 1998-1999 Netscape Communications Corporation. All
25 * Rights Reserved.
26 *
27 * Contributor(s):
28 */
29
30 /*
31 * tmplout.c: display template library output routines for LDAP clients
32 *
33 */
34
35 #include "ldap-int.h"
36 #include "disptmpl.h"
37
38 #if defined(_WINDOWS) || defined(aix) || defined(SCOOS) || defined(OSF1) || defined(SOLARIS)
39 #include <time.h> /* for struct tm and ctime */
40 #endif
41
42
43 /* This is totally lame, since it should be coming from time.h, but isn't. */
44 #if defined(SOLARIS)
45 char *ctime_r(const time_t *, char *, int);
46 #endif
47
48 static int do_entry2text( LDAP *ld, char *buf, char *base, LDAPMessage *entry,
49 struct ldap_disptmpl *tmpl, char **defattrs, char ***defvals,
50 writeptype writeproc, void *writeparm, char *eol, int rdncount,
51 unsigned long opts, char *urlprefix );
52 static int do_entry2text_search( LDAP *ld, char *dn, char *base,
53 LDAPMessage *entry, struct ldap_disptmpl *tmpllist, char **defattrs,
54 char ***defvals, writeptype writeproc, void *writeparm, char *eol,
55 int rdncount, unsigned long opts, char *urlprefix );
56 static int do_vals2text( LDAP *ld, char *buf, char **vals, char *label,
57 int labelwidth, unsigned long syntaxid, writeptype writeproc,
58 void *writeparm, char *eol, int rdncount, char *urlprefix );
59 static int max_label_len( struct ldap_disptmpl *tmpl );
60 static int output_label( char *buf, char *label, int width,
61 writeptype writeproc, void *writeparm, char *eol, int html );
62 static int output_dn( char *buf, char *dn, int width, int rdncount,
63 writeptype writeproc, void *writeparm, char *eol, char *urlprefix );
64 static void strcat_escaped( char *s1, char *s2 );
65 static char *time2text( char *ldtimestr, int dateonly );
66 static long gtime( struct tm *tm );
67 static int searchaction( LDAP *ld, char *buf, char *base, LDAPMessage *entry,
68 char *dn, struct ldap_tmplitem *tip, int labelwidth, int rdncount,
69 writeptype writeproc, void *writeparm, char *eol, char *urlprefix );
70
71 #define DEF_LABEL_WIDTH 15
72 #define SEARCH_TIMEOUT_SECS 120
73 #define OCATTRNAME "objectClass"
74
75
76 #define NONFATAL_LDAP_ERR( err ) ( err == LDAP_SUCCESS || \
77 err == LDAP_TIMELIMIT_EXCEEDED || err == LDAP_SIZELIMIT_EXCEEDED )
78
79 #define DEF_LDAP_URL_PREFIX "ldap:///"
80
81
82 int
83 LDAP_CALL
ldap_entry2text(LDAP * ld,char * buf,LDAPMessage * entry,struct ldap_disptmpl * tmpl,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts)84 ldap_entry2text(
85 LDAP *ld,
86 char *buf, /* NULL for "use internal" */
87 LDAPMessage *entry,
88 struct ldap_disptmpl *tmpl,
89 char **defattrs,
90 char ***defvals,
91 writeptype writeproc,
92 void *writeparm,
93 char *eol,
94 int rdncount,
95 unsigned long opts
96 )
97 {
98 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_entry2text\n", 0, 0, 0 );
99
100 return( do_entry2text( ld, buf, NULL, entry, tmpl, defattrs, defvals,
101 writeproc, writeparm, eol, rdncount, opts, NULL ));
102
103 }
104
105
106
107 int
108 LDAP_CALL
ldap_entry2html(LDAP * ld,char * buf,LDAPMessage * entry,struct ldap_disptmpl * tmpl,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts,char * base,char * urlprefix)109 ldap_entry2html(
110 LDAP *ld,
111 char *buf, /* NULL for "use internal" */
112 LDAPMessage *entry,
113 struct ldap_disptmpl *tmpl,
114 char **defattrs,
115 char ***defvals,
116 writeptype writeproc,
117 void *writeparm,
118 char *eol,
119 int rdncount,
120 unsigned long opts,
121 char *base,
122 char *urlprefix
123 )
124 {
125 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_entry2html\n", 0, 0, 0 );
126
127 if ( urlprefix == NULL ) {
128 urlprefix = DEF_LDAP_URL_PREFIX;
129 }
130
131 return( do_entry2text( ld, buf, base, entry, tmpl, defattrs, defvals,
132 writeproc, writeparm, eol, rdncount, opts, urlprefix ));
133 }
134
135
136 static int
do_entry2text(LDAP * ld,char * buf,char * base,LDAPMessage * entry,struct ldap_disptmpl * tmpl,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts,char * urlprefix)137 do_entry2text(
138 LDAP *ld,
139 char *buf, /* NULL for use-internal */
140 char *base, /* used for search actions */
141 LDAPMessage *entry,
142 struct ldap_disptmpl *tmpl,
143 char **defattrs,
144 char ***defvals,
145 writeptype writeproc,
146 void *writeparm,
147 char *eol,
148 int rdncount,
149 unsigned long opts,
150 char *urlprefix /* if non-NULL, do HTML */
151 )
152 {
153 int i, err, html, show, labelwidth;
154 int freebuf, freevals;
155 char *dn, **vals;
156 struct ldap_tmplitem *rowp, *colp;
157
158 if ( !NSLDAPI_VALID_LDAP_POINTER( ld )) {
159 return( LDAP_PARAM_ERROR );
160 }
161
162 if ( writeproc == NULL ||
163 !NSLDAPI_VALID_LDAPMESSAGE_ENTRY_POINTER( entry )) {
164 err = LDAP_PARAM_ERROR;
165 LDAP_SET_LDERRNO( ld, err, NULL, NULL );
166 return( err );
167 }
168
169 if (( dn = ldap_get_dn( ld, entry )) == NULL ) {
170 return( LDAP_GET_LDERRNO( ld, NULL, NULL ) );
171 }
172
173 if ( buf == NULL ) {
174 if (( buf = NSLDAPI_MALLOC( LDAP_DTMPL_BUFSIZ )) == NULL ) {
175 err = LDAP_NO_MEMORY;
176 LDAP_SET_LDERRNO( ld, err, NULL, NULL );
177 NSLDAPI_FREE( dn );
178 return( err );
179 }
180 freebuf = 1;
181 } else {
182 freebuf = 0;
183 }
184
185 html = ( urlprefix != NULL );
186
187 if ( html ) {
188 /*
189 * add HTML intro. and title
190 */
191 if (!(( opts & LDAP_DISP_OPT_HTMLBODYONLY ) != 0 )) {
192 sprintf( buf, "<HTML>%s<HEAD>%s<TITLE>%s%s - ", eol, eol, eol,
193 ( tmpl == NULL ) ? "Entry" : tmpl->dt_name );
194 (*writeproc)( writeparm, buf, strlen( buf ));
195 output_dn( buf, dn, 0, rdncount, writeproc, writeparm, "", NULL );
196 sprintf( buf, "%s</TITLE>%s</HEAD>%s<BODY>%s<H3>%s - ", eol, eol,
197 eol, eol, ( tmpl == NULL ) ? "Entry" : tmpl->dt_name );
198 (*writeproc)( writeparm, buf, strlen( buf ));
199 output_dn( buf, dn, 0, rdncount, writeproc, writeparm, "", NULL );
200 sprintf( buf, "</H3>%s", eol );
201 (*writeproc)( writeparm, buf, strlen( buf ));
202 }
203
204 if (( opts & LDAP_DISP_OPT_NONLEAF ) != 0 &&
205 ( vals = ldap_explode_dn( dn, 0 )) != NULL ) {
206 char *untagged;
207
208 /*
209 * add "Move Up" link
210 */
211 sprintf( buf, "<A HREF=\"%s", urlprefix );
212 for ( i = 1; vals[ i ] != NULL; ++i ) {
213 if ( i > 1 ) {
214 strcat_escaped( buf, ", " );
215 }
216 strcat_escaped( buf, vals[ i ] );
217 }
218 if ( vals[ 1 ] != NULL ) {
219 untagged = strchr( vals[ 1 ], '=' );
220 } else {
221 untagged = "=The World";
222 }
223 sprintf( buf + strlen( buf ),
224 "%s\">Move Up To <EM>%s</EM></A>%s<BR>",
225 ( vals[ 1 ] == NULL ) ? "??one" : "",
226 ( untagged != NULL ) ? untagged + 1 : vals[ 1 ], eol );
227 (*writeproc)( writeparm, buf, strlen( buf ));
228
229 /*
230 * add "Browse" link
231 */
232 untagged = strchr( vals[ 0 ], '=' );
233 sprintf( buf, "<A HREF=\"%s", urlprefix );
234 strcat_escaped( buf, dn );
235 sprintf( buf + strlen( buf ), "??one?(!(objectClass=dsa))\">Browse Below <EM>%s</EM></A>%s%s",
236 ( untagged != NULL ) ? untagged + 1 : vals[ 0 ], eol, eol );
237 (*writeproc)( writeparm, buf, strlen( buf ));
238
239 ldap_value_free( vals );
240 }
241
242 (*writeproc)( writeparm, "<HR>", 4 ); /* horizontal rule */
243 } else {
244 (*writeproc)( writeparm, "\"", 1 );
245 output_dn( buf, dn, 0, rdncount, writeproc, writeparm, "", NULL );
246 sprintf( buf, "\"%s", eol );
247 (*writeproc)( writeparm, buf, strlen( buf ));
248 }
249
250 if ( tmpl != NULL && ( opts & LDAP_DISP_OPT_AUTOLABELWIDTH ) != 0 ) {
251 labelwidth = max_label_len( tmpl ) + 3;
252 } else {
253 labelwidth = DEF_LABEL_WIDTH;;
254 }
255
256 err = LDAP_SUCCESS;
257
258 if ( tmpl == NULL ) {
259 BerElement *ber;
260 char *attr;
261
262 ber = NULL;
263 for ( attr = ldap_first_attribute( ld, entry, &ber );
264 NONFATAL_LDAP_ERR( err ) && attr != NULL;
265 attr = ldap_next_attribute( ld, entry, ber )) {
266 if (( vals = ldap_get_values( ld, entry, attr )) == NULL ) {
267 freevals = 0;
268 if ( defattrs != NULL ) {
269 for ( i = 0; defattrs[ i ] != NULL; ++i ) {
270 if ( strcasecmp( attr, defattrs[ i ] ) == 0 ) {
271 break;
272 }
273 }
274 if ( defattrs[ i ] != NULL ) {
275 vals = defvals[ i ];
276 }
277 }
278 } else {
279 freevals = 1;
280 }
281
282 if ( islower( *attr )) { /* cosmetic -- upcase attr. name */
283 *attr = toupper( *attr );
284 }
285
286 err = do_vals2text( ld, buf, vals, attr, labelwidth,
287 LDAP_SYN_CASEIGNORESTR, writeproc, writeparm, eol,
288 rdncount, urlprefix );
289 if ( freevals ) {
290 ldap_value_free( vals );
291 }
292 }
293 if ( ber == NULL ) {
294 ber_free( ber, 0 );
295 }
296 /*
297 * XXX check for errors in ldap_first_attribute/ldap_next_attribute
298 * here (but what should we do if there was one?)
299 */
300
301 } else {
302 for ( rowp = ldap_first_tmplrow( tmpl );
303 NONFATAL_LDAP_ERR( err ) && rowp != NULLTMPLITEM;
304 rowp = ldap_next_tmplrow( tmpl, rowp )) {
305 for ( colp = ldap_first_tmplcol( tmpl, rowp ); colp != NULLTMPLITEM;
306 colp = ldap_next_tmplcol( tmpl, rowp, colp )) {
307 vals = NULL;
308 if ( colp->ti_attrname == NULL || ( vals = ldap_get_values( ld,
309 entry, colp->ti_attrname )) == NULL ) {
310 freevals = 0;
311 if ( !LDAP_IS_TMPLITEM_OPTION_SET( colp,
312 LDAP_DITEM_OPT_HIDEIFEMPTY ) && defattrs != NULL
313 && colp->ti_attrname != NULL ) {
314 for ( i = 0; defattrs[ i ] != NULL; ++i ) {
315 if ( strcasecmp( colp->ti_attrname, defattrs[ i ] )
316 == 0 ) {
317 break;
318 }
319 }
320 if ( defattrs[ i ] != NULL ) {
321 vals = defvals[ i ];
322 }
323 }
324 } else {
325 freevals = 1;
326 if ( LDAP_IS_TMPLITEM_OPTION_SET( colp,
327 LDAP_DITEM_OPT_SORTVALUES ) && vals[ 0 ] != NULL
328 && vals[ 1 ] != NULL ) {
329 ldap_sort_values(ld, vals, ldap_sort_strcasecmp);
330 }
331 }
332
333 /*
334 * don't bother even calling do_vals2text() if no values
335 * or boolean with value false and "hide if false" option set
336 */
337 show = ( vals != NULL && vals[ 0 ] != NULL );
338 if ( show && LDAP_GET_SYN_TYPE( colp->ti_syntaxid )
339 == LDAP_SYN_TYPE_BOOLEAN && LDAP_IS_TMPLITEM_OPTION_SET(
340 colp, LDAP_DITEM_OPT_HIDEIFFALSE ) &&
341 toupper( vals[ 0 ][ 0 ] ) != 'T' ) {
342 show = 0;
343 }
344
345 if ( colp->ti_syntaxid == LDAP_SYN_SEARCHACTION ) {
346 if (( opts & LDAP_DISP_OPT_DOSEARCHACTIONS ) != 0 ) {
347 if ( colp->ti_attrname == NULL || ( show &&
348 toupper( vals[ 0 ][ 0 ] ) == 'T' )) {
349 err = searchaction( ld, buf, base, entry, dn, colp,
350 labelwidth, rdncount, writeproc,
351 writeparm, eol, urlprefix );
352 }
353 }
354 show = 0;
355 }
356
357 if ( show ) {
358 err = do_vals2text( ld, buf, vals, colp->ti_label,
359 labelwidth, colp->ti_syntaxid, writeproc, writeparm,
360 eol, rdncount, urlprefix );
361 }
362
363 if ( freevals ) {
364 ldap_value_free( vals );
365 }
366 }
367 }
368 }
369
370 if ( html && !(( opts & LDAP_DISP_OPT_HTMLBODYONLY ) != 0 )) {
371 sprintf( buf, "</BODY>%s</HTML>%s", eol, eol );
372 (*writeproc)( writeparm, buf, strlen( buf ));
373 }
374
375 NSLDAPI_FREE( dn );
376 if ( freebuf ) {
377 NSLDAPI_FREE( buf );
378 }
379
380 return( err );
381 }
382
383
384 int
385 LDAP_CALL
ldap_entry2text_search(LDAP * ld,char * dn,char * base,LDAPMessage * entry,struct ldap_disptmpl * tmpllist,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts)386 ldap_entry2text_search(
387 LDAP *ld,
388 char *dn, /* if NULL, use entry */
389 char *base, /* if NULL, no search actions */
390 LDAPMessage *entry, /* if NULL, use dn */
391 struct ldap_disptmpl* tmpllist, /* if NULL, load default file */
392 char **defattrs,
393 char ***defvals,
394 writeptype writeproc,
395 void *writeparm,
396 char *eol,
397 int rdncount, /* if 0, display full DN */
398 unsigned long opts
399 )
400 {
401 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_entry2text_search\n", 0, 0, 0 );
402
403 return( do_entry2text_search( ld, dn, base, entry, tmpllist, defattrs,
404 defvals, writeproc, writeparm, eol, rdncount, opts, NULL ));
405 }
406
407
408
409 int
410 LDAP_CALL
ldap_entry2html_search(LDAP * ld,char * dn,char * base,LDAPMessage * entry,struct ldap_disptmpl * tmpllist,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts,char * urlprefix)411 ldap_entry2html_search(
412 LDAP *ld,
413 char *dn, /* if NULL, use entry */
414 char *base, /* if NULL, no search actions */
415 LDAPMessage *entry, /* if NULL, use dn */
416 struct ldap_disptmpl* tmpllist, /* if NULL, load default file */
417 char **defattrs,
418 char ***defvals,
419 writeptype writeproc,
420 void *writeparm,
421 char *eol,
422 int rdncount, /* if 0, display full DN */
423 unsigned long opts,
424 char *urlprefix
425 )
426 {
427 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_entry2html_search\n", 0, 0, 0 );
428
429 return( do_entry2text_search( ld, dn, base, entry, tmpllist, defattrs,
430 defvals, writeproc, writeparm, eol, rdncount, opts, urlprefix ));
431 }
432
433
434 static int
do_entry2text_search(LDAP * ld,char * dn,char * base,LDAPMessage * entry,struct ldap_disptmpl * tmpllist,char ** defattrs,char *** defvals,writeptype writeproc,void * writeparm,char * eol,int rdncount,unsigned long opts,char * urlprefix)435 do_entry2text_search(
436 LDAP *ld,
437 char *dn, /* if NULL, use entry */
438 char *base, /* if NULL, no search actions */
439 LDAPMessage *entry, /* if NULL, use dn */
440 struct ldap_disptmpl* tmpllist, /* if NULL, no template used */
441 char **defattrs,
442 char ***defvals,
443 writeptype writeproc,
444 void *writeparm,
445 char *eol,
446 int rdncount, /* if 0, display full DN */
447 unsigned long opts,
448 char *urlprefix
449 )
450 {
451 int err, freedn, html;
452 char *buf, **fetchattrs, **vals;
453 LDAPMessage *ldmp;
454 struct ldap_disptmpl *tmpl;
455 struct timeval timeout;
456
457 if ( !NSLDAPI_VALID_LDAP_POINTER( ld )) {
458 return( LDAP_PARAM_ERROR );
459 }
460
461 if ( dn == NULL && entry == NULLMSG ) {
462 err = LDAP_PARAM_ERROR;
463 LDAP_SET_LDERRNO( ld, err, NULL, NULL );
464 return( err );
465 }
466
467 html = ( urlprefix != NULL );
468
469 timeout.tv_sec = SEARCH_TIMEOUT_SECS;
470 timeout.tv_usec = 0;
471
472 if (( buf = NSLDAPI_MALLOC( LDAP_DTMPL_BUFSIZ )) == NULL ) {
473 err = LDAP_NO_MEMORY;
474 LDAP_SET_LDERRNO( ld, err, NULL, NULL );
475 return( err );
476 }
477
478 freedn = 0;
479 tmpl = NULL;
480
481 if ( dn == NULL ) {
482 if (( dn = ldap_get_dn( ld, entry )) == NULL ) {
483 NSLDAPI_FREE( buf );
484 return( LDAP_GET_LDERRNO( ld, NULL, NULL ) );
485 }
486 freedn = 1;
487 }
488
489
490 if ( tmpllist != NULL ) {
491 ldmp = NULLMSG;
492
493 if ( entry == NULL ) {
494 char *ocattrs[2];
495
496 ocattrs[0] = OCATTRNAME;
497 ocattrs[1] = NULL;
498 #ifdef CLDAP
499 if ( LDAP_IS_CLDAP( ld ))
500 err = cldap_search_s( ld, dn, LDAP_SCOPE_BASE,
501 "objectClass=*", ocattrs, 0, &ldmp, NULL );
502 else
503 #endif /* CLDAP */
504 err = ldap_search_st( ld, dn, LDAP_SCOPE_BASE,
505 "objectClass=*", ocattrs, 0, &timeout, &ldmp );
506
507 if ( err == LDAP_SUCCESS ) {
508 entry = ldap_first_entry( ld, ldmp );
509 }
510 }
511
512 if ( entry != NULL ) {
513 vals = ldap_get_values( ld, entry, OCATTRNAME );
514 tmpl = ldap_oc2template( vals, tmpllist );
515 if ( vals != NULL ) {
516 ldap_value_free( vals );
517 }
518 }
519 if ( ldmp != NULL ) {
520 ldap_msgfree( ldmp );
521 }
522 }
523
524 entry = NULL;
525
526 if ( tmpl == NULL ) {
527 fetchattrs = NULL;
528 } else {
529 fetchattrs = ldap_tmplattrs( tmpl, NULL, 1, LDAP_SYN_OPT_DEFER );
530 }
531
532 #ifdef CLDAP
533 if ( LDAP_IS_CLDAP( ld ))
534 err = cldap_search_s( ld, dn, LDAP_SCOPE_BASE, "objectClass=*",
535 fetchattrs, 0, &ldmp, NULL );
536 else
537 #endif /* CLDAP */
538 err = ldap_search_st( ld, dn, LDAP_SCOPE_BASE, "objectClass=*",
539 fetchattrs, 0, &timeout, &ldmp );
540
541 if ( freedn ) {
542 NSLDAPI_FREE( dn );
543 }
544 if ( fetchattrs != NULL ) {
545 ldap_value_free( fetchattrs );
546 }
547
548 if ( err != LDAP_SUCCESS ||
549 ( entry = ldap_first_entry( ld, ldmp )) == NULL ) {
550 NSLDAPI_FREE( buf );
551 return( LDAP_GET_LDERRNO( ld, NULL, NULL ) );
552 }
553
554 err = do_entry2text( ld, buf, base, entry, tmpl, defattrs, defvals,
555 writeproc, writeparm, eol, rdncount, opts, urlprefix );
556
557 NSLDAPI_FREE( buf );
558 ldap_msgfree( ldmp );
559 return( err );
560 }
561
562
563 int
564 LDAP_CALL
ldap_vals2text(LDAP * ld,char * buf,char ** vals,char * label,int labelwidth,unsigned long syntaxid,writeptype writeproc,void * writeparm,char * eol,int rdncount)565 ldap_vals2text(
566 LDAP *ld,
567 char *buf, /* NULL for "use internal" */
568 char **vals,
569 char *label,
570 int labelwidth, /* 0 means use default */
571 unsigned long syntaxid,
572 writeptype writeproc,
573 void *writeparm,
574 char *eol,
575 int rdncount
576 )
577 {
578 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_vals2text\n", 0, 0, 0 );
579
580 return( do_vals2text( ld, buf, vals, label, labelwidth, syntaxid,
581 writeproc, writeparm, eol, rdncount, NULL ));
582 }
583
584
585 int
586 LDAP_CALL
ldap_vals2html(LDAP * ld,char * buf,char ** vals,char * label,int labelwidth,unsigned long syntaxid,writeptype writeproc,void * writeparm,char * eol,int rdncount,char * urlprefix)587 ldap_vals2html(
588 LDAP *ld,
589 char *buf, /* NULL for "use internal" */
590 char **vals,
591 char *label,
592 int labelwidth, /* 0 means use default */
593 unsigned long syntaxid,
594 writeptype writeproc,
595 void *writeparm,
596 char *eol,
597 int rdncount,
598 char *urlprefix
599 )
600 {
601 LDAPDebug( LDAP_DEBUG_TRACE, "ldap_vals2html\n", 0, 0, 0 );
602
603 if ( urlprefix == NULL ) {
604 urlprefix = DEF_LDAP_URL_PREFIX;
605 }
606
607 return( do_vals2text( ld, buf, vals, label, labelwidth, syntaxid,
608 writeproc, writeparm, eol, rdncount, urlprefix ));
609 }
610
611
612 static int
do_vals2text(LDAP * ld,char * buf,char ** vals,char * label,int labelwidth,unsigned long syntaxid,writeptype writeproc,void * writeparm,char * eol,int rdncount,char * urlprefix)613 do_vals2text(
614 LDAP *ld,
615 char *buf, /* NULL for "use internal" */
616 char **vals,
617 char *label,
618 int labelwidth, /* 0 means use default */
619 unsigned long syntaxid,
620 writeptype writeproc,
621 void *writeparm,
622 char *eol,
623 int rdncount,
624 char *urlprefix
625 )
626 {
627 int err, i, html, writeoutval, freebuf, notascii;
628 char *p, *s, *outval;
629
630 if ( !NSLDAPI_VALID_LDAP_POINTER( ld ) || writeproc == NULL ) {
631 return( LDAP_PARAM_ERROR );
632 }
633
634 if ( vals == NULL ) {
635 return( LDAP_SUCCESS );
636 }
637
638 html = ( urlprefix != NULL );
639
640 switch( LDAP_GET_SYN_TYPE( syntaxid )) {
641 case LDAP_SYN_TYPE_TEXT:
642 case LDAP_SYN_TYPE_BOOLEAN:
643 break; /* we only bother with these two types... */
644 default:
645 return( LDAP_SUCCESS );
646 }
647
648 if ( labelwidth == 0 || labelwidth < 0 ) {
649 labelwidth = DEF_LABEL_WIDTH;
650 }
651
652 if ( buf == NULL ) {
653 if (( buf = NSLDAPI_MALLOC( LDAP_DTMPL_BUFSIZ )) == NULL ) {
654 err = LDAP_NO_MEMORY;
655 LDAP_SET_LDERRNO( ld, err, NULL, NULL );
656 return( err );
657 }
658 freebuf = 1;
659 } else {
660 freebuf = 0;
661 }
662
663 output_label( buf, label, labelwidth, writeproc, writeparm, eol, html );
664
665 for ( i = 0; vals[ i ] != NULL; ++i ) {
666 for ( p = vals[ i ]; *p != '\0'; ++p ) {
667 if ( !isascii( *p )) {
668 break;
669 }
670 }
671 notascii = ( *p != '\0' );
672 outval = notascii ? dgettext(TEXT_DOMAIN,
673 "(unable to display non-ASCII text value)")
674 : vals[ i ];
675
676 writeoutval = 0; /* if non-zero, write outval after switch */
677
678 switch( syntaxid ) {
679 case LDAP_SYN_CASEIGNORESTR:
680 ++writeoutval;
681 break;
682
683 case LDAP_SYN_RFC822ADDR:
684 if ( html ) {
685 strcpy( buf, "<DD><A HREF=\"mailto:" );
686 strcat_escaped( buf, outval );
687 sprintf( buf + strlen( buf ), "\">%s</A><BR>%s", outval, eol );
688 (*writeproc)( writeparm, buf, strlen( buf ));
689 } else {
690 ++writeoutval;
691 }
692 break;
693
694 case LDAP_SYN_DN: /* for now */
695 output_dn( buf, outval, labelwidth, rdncount, writeproc,
696 writeparm, eol, urlprefix );
697 break;
698
699 case LDAP_SYN_MULTILINESTR:
700 if ( i > 0 && !html ) {
701 output_label( buf, label, labelwidth, writeproc,
702 writeparm, eol, html );
703 }
704
705 p = s = outval;
706 while (( s = strchr( s, '$' )) != NULL ) {
707 *s++ = '\0';
708 while ( ldap_utf8isspace( s )) {
709 ++s;
710 }
711 if ( html ) {
712 sprintf( buf, "<DD>%s<BR>%s", p, eol );
713 } else {
714 sprintf( buf, "%-*s%s%s", labelwidth, " ", p, eol );
715 }
716 (*writeproc)( writeparm, buf, strlen( buf ));
717 p = s;
718 }
719 outval = p;
720 ++writeoutval;
721 break;
722
723 case LDAP_SYN_BOOLEAN:
724 outval = toupper( outval[ 0 ] ) == 'T' ?
725 dgettext(TEXT_DOMAIN, "TRUE") : dgettext(TEXT_DOMAIN, "FALSE");
726 ++writeoutval;
727 break;
728
729 case LDAP_SYN_TIME:
730 case LDAP_SYN_DATE:
731 outval = time2text( outval, syntaxid == LDAP_SYN_DATE );
732 ++writeoutval;
733 break;
734
735 case LDAP_SYN_LABELEDURL:
736 if ( !notascii && ( p = strchr( outval, '$' )) != NULL ) {
737 *p++ = '\0';
738 while ( ldap_utf8isspace( p )) {
739 ++p;
740 }
741 s = outval;
742 } else if ( !notascii && ( s = strchr( outval, ' ' )) != NULL ) {
743 *s++ = '\0';
744 while ( ldap_utf8isspace( s )) {
745 ++s;
746 }
747 p = outval;
748 } else {
749 s = "URL";
750 p = outval;
751 }
752
753 /*
754 * at this point `s' points to the label & `p' to the URL
755 */
756 if ( html ) {
757 sprintf( buf, "<DD><A HREF=\"%s\">%s</A><BR>%s", p, s, eol );
758 } else {
759 sprintf( buf, "%-*s%s%s%-*s%s%s", labelwidth, " ",
760 s, eol, labelwidth + 2, " ",p , eol );
761 }
762 (*writeproc)( writeparm, buf, strlen( buf ));
763 break;
764
765 default:
766 sprintf( buf, dgettext(TEXT_DOMAIN,
767 " Can't display item type %ld%s"),
768 syntaxid, eol );
769 (*writeproc)( writeparm, buf, strlen( buf ));
770 }
771
772 if ( writeoutval ) {
773 if ( html ) {
774 sprintf( buf, "<DD>%s<BR>%s", outval, eol );
775 } else {
776 sprintf( buf, "%-*s%s%s", labelwidth, " ", outval, eol );
777 }
778 (*writeproc)( writeparm, buf, strlen( buf ));
779 }
780 }
781
782 if ( freebuf ) {
783 NSLDAPI_FREE( buf );
784 }
785
786 return( LDAP_SUCCESS );
787 }
788
789
790 static int
max_label_len(struct ldap_disptmpl * tmpl)791 max_label_len( struct ldap_disptmpl *tmpl )
792 {
793 struct ldap_tmplitem *rowp, *colp;
794 int len, maxlen;
795
796 maxlen = 0;
797
798 for ( rowp = ldap_first_tmplrow( tmpl ); rowp != NULLTMPLITEM;
799 rowp = ldap_next_tmplrow( tmpl, rowp )) {
800 for ( colp = ldap_first_tmplcol( tmpl, rowp ); colp != NULLTMPLITEM;
801 colp = ldap_next_tmplcol( tmpl, rowp, colp )) {
802 if (( len = strlen( colp->ti_label )) > maxlen ) {
803 maxlen = len;
804 }
805 }
806 }
807
808 return( maxlen );
809 }
810
811
812 static int
output_label(char * buf,char * label,int width,writeptype writeproc,void * writeparm,char * eol,int html)813 output_label( char *buf, char *label, int width, writeptype writeproc,
814 void *writeparm, char *eol, int html )
815 {
816 char *p;
817
818 if ( html ) {
819 sprintf( buf, "<DT><B>%s</B>", label );
820 } else {
821 auto size_t w;
822 sprintf( buf, " %s:", label );
823 p = buf + strlen( buf );
824
825 for (w = ldap_utf8characters(buf); w < (size_t)width; ++w) {
826 *p++ = ' ';
827 }
828
829 *p = '\0';
830 strcat( buf, eol );
831 }
832
833 return ((*writeproc)( writeparm, buf, strlen( buf )));
834 }
835
836
837 static int
output_dn(char * buf,char * dn,int width,int rdncount,writeptype writeproc,void * writeparm,char * eol,char * urlprefix)838 output_dn( char *buf, char *dn, int width, int rdncount,
839 writeptype writeproc, void *writeparm, char *eol, char *urlprefix )
840 {
841 char **dnrdns;
842 int i;
843
844 if (( dnrdns = ldap_explode_dn( dn, 1 )) == NULL ) {
845 return( -1 );
846 }
847
848 if ( urlprefix != NULL ) {
849 sprintf( buf, "<DD><A HREF=\"%s", urlprefix );
850 strcat_escaped( buf, dn );
851 strcat( buf, "\">" );
852 } else if ( width > 0 ) {
853 sprintf( buf, "%-*s", width, " " );
854 } else {
855 *buf = '\0';
856 }
857
858 for ( i = 0; dnrdns[ i ] != NULL && ( rdncount == 0 || i < rdncount );
859 ++i ) {
860 if ( i > 0 ) {
861 strcat( buf, ", " );
862 }
863 strcat( buf, dnrdns[ i ] );
864 }
865
866 if ( urlprefix != NULL ) {
867 strcat( buf, "</A><BR>" );
868 }
869
870 ldap_value_free( dnrdns );
871
872 strcat( buf, eol );
873
874 return ((*writeproc)( writeparm, buf, strlen( buf )));
875 }
876
877
878
879 #define HREF_CHAR_ACCEPTABLE( c ) (( c >= '-' && c <= '9' ) || \
880 ( c >= '@' && c <= 'Z' ) || \
881 ( c == '_' ) || \
882 ( c >= 'a' && c <= 'z' ))
883
884 static void
strcat_escaped(char * s1,char * s2)885 strcat_escaped( char *s1, char *s2 )
886 {
887 char *p, *q;
888 char *hexdig = "0123456789ABCDEF";
889
890 p = s1 + strlen( s1 );
891 for ( q = s2; *q != '\0'; ++q ) {
892 if ( HREF_CHAR_ACCEPTABLE( *q )) {
893 *p++ = *q;
894 } else {
895 *p++ = '%';
896 *p++ = hexdig[ 0x0F & ((*(unsigned char*)q) >> 4) ];
897 *p++ = hexdig[ 0x0F & *q ];
898 }
899 }
900
901 *p = '\0';
902 }
903
904
905 #define GET2BYTENUM( p ) (( *p - '0' ) * 10 + ( *(p+1) - '0' ))
906
907 static char *
time2text(char * ldtimestr,int dateonly)908 time2text( char *ldtimestr, int dateonly )
909 {
910 int len;
911 struct tm t;
912 char *p, *timestr, zone, *fmterr =
913 dgettext(TEXT_DOMAIN, "badly formatted time");
914 time_t gmttime;
915 /* CTIME for this platform doesn't use this. */
916 #if !defined(SUNOS4) && !defined(BSDI) && !defined(LINUX1_2) && \
917 !defined(SNI) && !defined(_WIN32) && !defined(macintosh) && !defined(LINUX)
918 char buf[26];
919 #endif
920
921 memset( (char *)&t, 0, sizeof( struct tm ));
922 if (( len = (int)strlen( ldtimestr )) < 13 ) {
923 return( fmterr );
924 }
925 if ( len > 15 ) { /* throw away excess from 4-digit year time string */
926 len = 15;
927 } else if ( len == 14 ) {
928 len = 13; /* assume we have a time w/2-digit year (len=13) */
929 }
930
931 for ( p = ldtimestr; p - ldtimestr + 1 < len; ++p ) {
932 if ( !isdigit( *p )) {
933 return( fmterr );
934 }
935 }
936
937 p = ldtimestr;
938 t.tm_year = GET2BYTENUM( p ); p += 2;
939 if ( len == 15 ) {
940 t.tm_year = 100 * (t.tm_year - 19);
941 t.tm_year += GET2BYTENUM( p ); p += 2;
942 }
943 else {
944 /* 2 digit years...assumed to be in the range (19)70 through
945 (20)69 ...less than 70 (for now, 38) means 20xx */
946 if(t.tm_year < 70) {
947 t.tm_year += 100;
948 }
949 }
950 t.tm_mon = GET2BYTENUM( p ) - 1; p += 2;
951 t.tm_mday = GET2BYTENUM( p ); p += 2;
952 t.tm_hour = GET2BYTENUM( p ); p += 2;
953 t.tm_min = GET2BYTENUM( p ); p += 2;
954 t.tm_sec = GET2BYTENUM( p ); p += 2;
955
956 if (( zone = *p ) == 'Z' ) { /* GMT */
957 zone = '\0'; /* no need to indicate on screen, so we make it null */
958 }
959
960 gmttime = gtime( &t );
961 timestr = NSLDAPI_CTIME( &gmttime, buf, sizeof(buf) );
962
963 timestr[ strlen( timestr ) - 1 ] = zone; /* replace trailing newline */
964 if ( dateonly ) {
965 strcpy( timestr + 11, timestr + 20 );
966 }
967
968 return( timestr );
969 }
970
971
972
973 /* gtime.c - inverse gmtime */
974
975 #if !defined( macintosh ) && !defined( _WINDOWS ) && !defined( DOS ) && !defined(XP_OS2)
976 #include <sys/time.h>
977 #endif /* !macintosh */
978
979 /* gtime(): the inverse of localtime().
980 This routine was supplied by Mike Accetta at CMU many years ago.
981 */
982
983 static int dmsize[] = {
984 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
985 };
986
987 #define dysize(y) \
988 (((y) % 4) ? 365 : (((y) % 100) ? 366 : (((y) % 400) ? 365 : 366)))
989
990 /*
991 #define YEAR(y) ((y) >= 100 ? (y) : (y) + 1900)
992 */
993 #define YEAR(y) (((y) < 1900) ? ((y) + 1900) : (y))
994
995 /* */
996
gtime(struct tm * tm)997 static long gtime ( struct tm *tm )
998 {
999 register int i,
1000 sec,
1001 mins,
1002 hour,
1003 mday,
1004 mon,
1005 year;
1006 register long result;
1007
1008 if ((sec = tm -> tm_sec) < 0 || sec > 59
1009 || (mins = tm -> tm_min) < 0 || mins > 59
1010 || (hour = tm -> tm_hour) < 0 || hour > 24
1011 || (mday = tm -> tm_mday) < 1 || mday > 31
1012 || (mon = tm -> tm_mon + 1) < 1 || mon > 12)
1013 return ((long) -1);
1014 if (hour == 24) {
1015 hour = 0;
1016 mday++;
1017 }
1018 year = YEAR (tm -> tm_year);
1019
1020 result = 0L;
1021 for (i = 1970; i < year; i++)
1022 result += dysize (i);
1023 if (dysize (year) == 366 && mon >= 3)
1024 result++;
1025 while (--mon)
1026 result += dmsize[mon - 1];
1027 result += mday - 1;
1028 result = 24 * result + hour;
1029 result = 60 * result + mins;
1030 result = 60 * result + sec;
1031
1032 return result;
1033 }
1034
1035 static int
searchaction(LDAP * ld,char * buf,char * base,LDAPMessage * entry,char * dn,struct ldap_tmplitem * tip,int labelwidth,int rdncount,writeptype writeproc,void * writeparm,char * eol,char * urlprefix)1036 searchaction( LDAP *ld, char *buf, char *base, LDAPMessage *entry, char *dn,
1037 struct ldap_tmplitem *tip, int labelwidth, int rdncount,
1038 writeptype writeproc, void *writeparm, char *eol, char *urlprefix )
1039 {
1040 int err = LDAP_SUCCESS, lderr, i, count, html;
1041 char **vals, **members;
1042 char *value, *filtpattern, *attr, *selectname;
1043 char *retattrs[2], filter[ 256 ];
1044 LDAPMessage *ldmp;
1045 struct timeval timeout;
1046
1047 html = ( urlprefix != NULL );
1048
1049 for ( i = 0; tip->ti_args != NULL && tip->ti_args[ i ] != NULL; ++i ) {
1050 ;
1051 }
1052 if ( i < 3 ) {
1053 return( LDAP_PARAM_ERROR );
1054 }
1055 attr = tip->ti_args[ 0 ];
1056 filtpattern = tip->ti_args[ 1 ];
1057 retattrs[ 0 ] = tip->ti_args[ 2 ];
1058 retattrs[ 1 ] = NULL;
1059 selectname = tip->ti_args[ 3 ];
1060
1061 vals = NULL;
1062 if ( attr == NULL ) {
1063 value = NULL;
1064 } else if ( strcasecmp( attr, "-dnb" ) == 0 ) {
1065 return( LDAP_PARAM_ERROR );
1066 } else if ( strcasecmp( attr, "-dnt" ) == 0 ) {
1067 value = dn;
1068 } else if (( vals = ldap_get_values( ld, entry, attr )) != NULL ) {
1069 value = vals[ 0 ];
1070 } else {
1071 value = NULL;
1072 }
1073
1074 ldap_build_filter( filter, sizeof( filter ), filtpattern, NULL, NULL, NULL,
1075 value, NULL );
1076
1077 if ( html ) {
1078 /*
1079 * if we are generating HTML, we add an HREF link that embodies this
1080 * search action as an LDAP URL, instead of actually doing the search
1081 * now.
1082 */
1083 sprintf( buf, "<DT><A HREF=\"%s", urlprefix );
1084 if ( base != NULL ) {
1085 strcat_escaped( buf, base );
1086 }
1087 strcat( buf, "??sub?" );
1088 strcat_escaped( buf, filter );
1089 sprintf( buf + strlen( buf ), "\"><B>%s</B></A><DD><BR>%s",
1090 tip->ti_label, eol );
1091 if ((*writeproc)( writeparm, buf, strlen( buf )) < 0 ) {
1092 return( LDAP_LOCAL_ERROR );
1093 }
1094 return( LDAP_SUCCESS );
1095 }
1096
1097 timeout.tv_sec = SEARCH_TIMEOUT_SECS;
1098 timeout.tv_usec = 0;
1099
1100 #ifdef CLDAP
1101 if ( LDAP_IS_CLDAP( ld ))
1102 lderr = cldap_search_s( ld, base, LDAP_SCOPE_SUBTREE, filter, retattrs,
1103 0, &ldmp, NULL );
1104 else
1105 #endif /* CLDAP */
1106 lderr = ldap_search_st( ld, base, LDAP_SCOPE_SUBTREE, filter,
1107 retattrs, 0, &timeout, &ldmp );
1108
1109 if ( lderr == LDAP_SUCCESS || NONFATAL_LDAP_ERR( lderr )) {
1110 if (( count = ldap_count_entries( ld, ldmp )) > 0 ) {
1111 if (( members = (char **)NSLDAPI_MALLOC( (count + 1)
1112 * sizeof(char *))) == NULL ) {
1113 err = LDAP_NO_MEMORY;
1114 } else {
1115 for ( i = 0, entry = ldap_first_entry( ld, ldmp );
1116 entry != NULL;
1117 entry = ldap_next_entry( ld, entry ), ++i ) {
1118 members[ i ] = ldap_get_dn( ld, entry );
1119 }
1120 members[ i ] = NULL;
1121
1122 ldap_sort_values(ld,members, ldap_sort_strcasecmp);
1123
1124 err = do_vals2text( ld, NULL, members, tip->ti_label,
1125 html ? -1 : 0, LDAP_SYN_DN, writeproc, writeparm,
1126 eol, rdncount, urlprefix );
1127
1128 ldap_value_free( members );
1129 }
1130 }
1131 ldap_msgfree( ldmp );
1132 }
1133
1134
1135 if ( vals != NULL ) {
1136 ldap_value_free( vals );
1137 }
1138
1139 return(( err == LDAP_SUCCESS ) ? lderr : err );
1140 }
1141