openldap/servers/slapd/back-tcl/tcl_util.c

157 lines
3.4 KiB
C
Raw Normal View History

/*
* result.c - tcl backend utility functions
*
* Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
*
* Redistribution and use in source and binary forms are permitted only
* as authorized by the OpenLDAP Public License. A copy of this
* license is available at http://www.OpenLDAP.org/license.html or
* in file LICENSE in the top-level directory of the distribution.
1999-02-17 10:05:28 +08:00
*
* $Id$
*
* $Log$
*/
#include "portable.h"
#include <stdio.h>
#include <ac/string.h>
#include <ac/socket.h>
#include <ac/unistd.h>
#include "slap.h"
#include "tcl_back.h"
int
interp_send_results(
Backend *be,
Connection *conn,
Operation *op,
char *result,
char **attrs,
int attrsonly
)
{
int bsize, len, argcPtr, i, err, code;
char *buf, *bp, **argvPtr, *line, *matched, *info;
Entry *e;
struct tclinfo *ti = (struct tclinfo *) be->be_private;
/* read in the result and send it along */
buf = (char *) ch_malloc( BUFSIZ );
buf[0] = '\0';
bsize = BUFSIZ;
bp = buf;
code = Tcl_SplitList(ti->ti_ii->interp, result, &argcPtr, &argvPtr);
if (code != TCL_OK) {
argcPtr = 0;
send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL,
"internal backend error");
return -1;
}
for ( i = 0 ; i < argcPtr ; i++ ) {
line = argvPtr[i];
Debug( LDAP_DEBUG_ANY, "tcl search reading line (%s)\n",
line, 0, 0 );
/* ignore lines beginning with DEBUG: */
if ( strncasecmp( line, "DEBUG:", 6 ) == 0 ) {
continue;
}
len = strlen( line ) + 1;
while ( bp + len - buf > bsize ) {
bsize += BUFSIZ;
buf = (char *) ch_realloc( buf, bsize );
}
sprintf( bp, "%s\n", line );
bp += len;
/* line marked the end of an entry or result */
if ( line[0] == '\0' ) {
if ( strncasecmp( buf, "RESULT", 6 ) == 0 ) {
break;
}
if ( (e = str2entry( buf )) == NULL ) {
Debug( LDAP_DEBUG_ANY, "str2entry(%s) failed\n",
buf, 0, 0 );
} else {
send_search_entry( be, conn, op, e, attrs,
attrsonly );
entry_free( e );
}
bp = buf;
}
}
(void) str2result( buf, &err, &matched, &info );
/* otherwise, front end will send this result */
if ( err != 0 || op->o_tag != LDAP_REQ_BIND ) {
send_ldap_result( conn, op, err, matched, info );
}
free( buf );
Tcl_Free( result );
Tcl_Free( (char *) argvPtr );
return( err );
}
char *tcl_clean_entry (Entry *e)
{
1999-02-17 10:05:28 +08:00
char *entrystr, *mark1, *mark2, *buf, *bp, *dup;
int len, bsize;
1999-02-17 10:05:28 +08:00
pthread_mutex_lock( &entry2str_mutex );
entrystr = entry2str( e, &len, 0 );
pthread_mutex_unlock( &entry2str_mutex );
1999-02-17 10:05:28 +08:00
buf = (char *) ch_malloc( BUFSIZ );
buf[0] = '\0';
bsize = BUFSIZ;
bp = buf;
bp++[0] = ' ';
1999-02-17 10:05:28 +08:00
mark1 = entrystr;
do {
if (mark1[0] == '\n') {
1999-02-17 10:05:28 +08:00
mark1++;
}
dup = (char *) strdup(mark1);
1999-02-17 10:05:28 +08:00
if (dup[0] != '\0') {
if ((mark2 = (char *) strchr (dup, '\n')) != NULL) {
mark2[0] = '\0';
1999-02-17 10:05:28 +08:00
}
len = strlen( dup ) + 3;
while ( bp + len - buf > bsize ) {
bsize += BUFSIZ;
buf = (char *) ch_realloc( buf, bsize );
1999-02-17 10:05:28 +08:00
}
if (mark1[0] == '\0') {
sprintf(bp, "{} ");
1999-02-17 10:05:28 +08:00
} else {
sprintf(bp, "{%s} ", dup);
1999-02-17 10:05:28 +08:00
}
bp += len;
if (mark2 != NULL) {
mark2[0] = '\n';
1999-02-17 10:05:28 +08:00
}
}
free(dup);
1999-02-17 10:05:28 +08:00
} while ((mark1 = (char *) strchr (mark1, '\n')) != NULL);
return buf;
}
int tcl_ldap_debug (
ClientData clientData,
Tcl_Interp *interp,
int argc,
char *argv[]
)
{
1999-02-17 10:05:28 +08:00
if (argv[1] != NULL) {
Debug(LDAP_DEBUG_ANY, "tcl_debug: %s\n", argv[1], 0, 0);
1999-02-17 10:05:28 +08:00
}
return TCL_OK;
}