git.sur5r.net Git - openldap/blob - servers/slapd/back-perl/unbind.c

   1 /*
   2  *   Copyright 1999, John C. Quillan, All rights reserved.
   3  *
   4  *   Redistribution and use in source and binary forms are permitted only
   5  *   as authorized by the OpenLDAP Public License.  A copy of this
   6  *   license is available at http://www.OpenLDAP.org/license.html or
   7  *   in file LICENSE in the top-level directory of the distribution.
   8  */
   9
  10 #include "portable.h"
  11  /* init.c - initialize shell backend */
  12
  13 #include <stdio.h>
  14 /*      #include <ac/types.h>
  15         #include <ac/socket.h>
  16 */
  17
  18 #include <EXTERN.h>
  19 #include <perl.h>
  20
  21 #include "slap.h"
  22 #include "perl_back.h"
  23
  24
  25 /**********************************************************
  26  *
  27  * UnBind
  28  *
  29  **********************************************************/
  30 int
  31 perl_back_unbind(
  32         Backend *be,
  33         Connection *conn,
  34         Operation *op
  35 )
  36 {
  37         send_ldap_result( conn, op, LDAP_NOT_SUPPORTED,
  38                 "", "not yet implemented" );
  39         Debug( LDAP_DEBUG_TRACE, "Perl UNBIND\n", 0, 0, 0 );
  40         return 0;
  41 }
  42