git.sur5r.net Git - openldap/blob - libraries/libldap/passwd.c

   1 /* $OpenLDAP$ */
   2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   3  *
   4  * Copyright 1998-2005 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 /* ACKNOWLEDGEMENTS:
  16  * This program was orignally developed by Kurt D. Zeilenga for inclusion in
  17  * OpenLDAP Software.
  18  */
  19
  20 #include "portable.h"
  21
  22 #include <stdio.h>
  23 #include <ac/stdlib.h>
  24 #include <ac/string.h>
  25 #include <ac/time.h>
  26
  27 #include "ldap-int.h"
  28
  29 /*
  30  * LDAP Password Modify (Extended) Operation <RFC 3062>
  31  */
  32
  33 int ldap_parse_passwd(
  34         LDAP *ld,
  35         LDAPMessage *res,
  36         struct berval *newpasswd )
  37 {
  38         int rc;
  39         char *retoid = NULL;
  40         struct berval *retdata;
  41
  42         assert( ld != NULL );
  43         assert( LDAP_VALID( ld ) );
  44         assert( res != NULL );
  45         assert( newpasswd != NULL );
  46
  47         newpasswd->bv_val = NULL;
  48         newpasswd->bv_len = 0;
  49
  50         rc = ldap_parse_extended_result( ld, res, &retoid, &retdata, 0 );
  51
  52         if( rc != LDAP_SUCCESS ) {
  53                 return rc;
  54         }
  55
  56         if( retdata != NULL ) {
  57                 ber_tag_t tag;
  58                 BerElement *ber = ber_init( retdata );
  59
  60                 if( ber == NULL ) {
  61                         ld->ld_errno = LDAP_NO_MEMORY;
  62                         return ld->ld_errno;
  63                 }
  64
  65                 /* we should check the tag */
  66                 tag = ber_scanf( ber, "{o}", newpasswd );
  67                 ber_free( ber, 1 );
  68
  69                 if( tag == LBER_ERROR ) {
  70                         rc = ld->ld_errno = LDAP_DECODING_ERROR;
  71                 }
  72         }
  73
  74         ber_memfree( retoid );
  75         return rc;
  76 }
  77
  78 int
  79 ldap_passwd( LDAP *ld,
  80         struct berval   *user,
  81         struct berval   *oldpw,
  82         struct berval   *newpw,
  83         LDAPControl             **sctrls,
  84         LDAPControl             **cctrls,
  85         int                             *msgidp )
  86 {
  87         int rc;
  88         struct berval bv = BER_BVNULL;
  89         BerElement *ber = NULL;
  90
  91         assert( ld != NULL );
  92         assert( LDAP_VALID( ld ) );
  93         assert( msgidp != NULL );
  94
  95         if( user != NULL || oldpw != NULL || newpw != NULL ) {
  96                 /* build change password control */
  97                 ber = ber_alloc_t( LBER_USE_DER );
  98
  99                 if( ber == NULL ) {
 100                         ld->ld_errno = LDAP_NO_MEMORY;
 101                         return ld->ld_errno;
 102                 }
 103
 104                 ber_printf( ber, "{" /*}*/ );
 105
 106                 if( user != NULL ) {
 107                         ber_printf( ber, "tO",
 108                                 LDAP_TAG_EXOP_MODIFY_PASSWD_ID, user );
 109                 }
 110
 111                 if( oldpw != NULL ) {
 112                         ber_printf( ber, "tO",
 113                                 LDAP_TAG_EXOP_MODIFY_PASSWD_OLD, oldpw );
 114                 }
 115
 116                 if( newpw != NULL ) {
 117                         ber_printf( ber, "tO",
 118                                 LDAP_TAG_EXOP_MODIFY_PASSWD_NEW, newpw );
 119                 }
 120
 121                 ber_printf( ber, /*{*/ "N}" );
 122
 123                 rc = ber_flatten2( ber, &bv, 0 );
 124
 125                 if( rc < 0 ) {
 126                         ld->ld_errno = LDAP_ENCODING_ERROR;
 127                         return ld->ld_errno;
 128                 }
 129
 130         }
 131
 132         rc = ldap_extended_operation( ld, LDAP_EXOP_MODIFY_PASSWD,
 133                 bv.bv_val ? &bv : NULL, sctrls, cctrls, msgidp );
 134
 135         ber_free( ber, 1 );
 136
 137         return rc;
 138 }
 139
 140 int
 141 ldap_passwd_s(
 142         LDAP *ld,
 143         struct berval   *user,
 144         struct berval   *oldpw,
 145         struct berval   *newpw,
 146         struct berval *newpasswd,
 147         LDAPControl **sctrls,
 148         LDAPControl **cctrls )
 149 {
 150         int             rc;
 151         int             msgid;
 152         LDAPMessage     *res;
 153
 154         rc = ldap_passwd( ld, user, oldpw, newpw, sctrls, cctrls, &msgid );
 155         if ( rc != LDAP_SUCCESS ) {
 156                 return rc;
 157         }
 158
 159         if ( ldap_result( ld, msgid, 1, (struct timeval *) NULL, &res ) == -1 ) {
 160                 return ld->ld_errno;
 161         }
 162
 163         rc = ldap_parse_passwd( ld, res, newpasswd );
 164         if( rc != LDAP_SUCCESS ) {
 165                 ldap_msgfree( res );
 166                 return rc;
 167         }
 168
 169         return( ldap_result2error( ld, res, 1 ) );
 170 }