<?php
// $Id: ldapprov.admin.inc,v 1.21 2010-09-09 12:33:24 miglius Exp $

/**
 * @file
 * Module admin page callbacks.
 */

//////////////////////////////////////////////////////////////////////////////
// ldapprov settings

/**
 * Implements the settings page.
 *
 * @return
 *   The form structure.
 */
function ldapprov_admin_settings() {
  drupal_add_js(drupal_get_path('module', 'ldapprov') .'/ldapprov.admin.js');

  // General settings
  $form['general'] = array('#type' => 'fieldset', '#title' => t('General settings'), '#collapsible' => TRUE, '#collapsed' => FALSE);
  $form['general']['ldapprov_enabled'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable LDAP user provisioning'),
    '#default_value' => LDAPPROV_ENABLED,
  );
  $form['general']['ldapprov_allow_username'] = array(
    '#type' => 'radios',
    '#title' => t('Custom username'),
    '#options' => array('1' => t('Yes'), '0' => t('No')),
    '#default_value' => LDAPPROV_ALLOW_USERNAME,
    '#description' => t('Allow to choose custom username in the registration form.'),
  );
  $form['general']['ldapprov_username'] = array(
    '#type' => 'textfield',
    '#title' => t('Username template'),
    '#size' => 50,
    '#maxlength' => 255,
    '#default_value' => LDAPPROV_USERNAME,
    '#description' => t('Customize the username. Available variables are: !f (first name), !f1 (first letter of first name, etc), !l (last name), !l2 (first two letters of last name, etc). Use !F and !L to capitalize first letters.', array('!f' => '%f', '!f1' => '%f1', '!l' => '%l', '!l2' => '%l2', '!F' => '%F', '!L' => '%L')),
  );
  if (module_exists('captcha')) {
    $result = db_query("SELECT * FROM {captcha_points} WHERE form_id = 'ldapprov_register'");
    $captcha = ($row = db_fetch_object($result)) ? 1 : 0;
    $form['general']['ldapprov_captcha'] = array(
      '#type' => 'checkbox',
      '#title' => t('Use captcha in the registration form.'),
      '#default_value' => $captcha,
    );
  }
  $form['general']['ldapprov_disable_create'] = array(
    '#type' => 'checkbox',
    '#title' => t('Disable drupal user creation'),
    '#description' => t('Whether the drupal user creation form for admin users should be disabled.'),
    '#default_value' => LDAPPROV_DISABLE_CREATE,
  );
  $form['general']['ldapprov_pass_enable'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable custom initial password'),
    '#description' => t('Allow to set an initial user password for the account manager. A random password will be generated if disabled.'),
    '#default_value' => LDAPPROV_PASS_ENABLE,
  );
  $form['general']['ldapprov_pass_length'] = array(
    '#type' => 'textfield',
    '#title' => t('Password length'),
    '#size' => 2,
    '#maxlength' => 2,
    '#default_value' => LDAPPROV_PASS_LENGTH,
    '#description' => t('Minimum password length for the new users.'),
  );
  $form['general']['ldapprov_debug'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable debugging'),
    '#description' => t('The LDIF entry will be print on the screen for configuration debugging.'),
    '#default_value' => LDAPPROV_DEBUG,
  );

  // Registration form.
  $form['registration'] = array('#type' => 'fieldset', '#title' => t('Registration form'), '#collapsible' => TRUE, '#collapsed' => TRUE);
  if (module_exists('og')) {
    $form['registration']['ldapprov_og'] = array(
      '#type' => 'checkbox',
      '#title' => t('Show groups in the registration form'),
      '#default_value' => LDAPPROV_OG,
      '#description' => t('Groups are shown on the registration form according to their setup.'),
    );
  }
  if (module_exists('profile')) {
    $form['registration']['profile'] = array('#type' => 'fieldset', '#title' => ('Profile integration'), '#collapsible' => TRUE, '#collapsed' => TRUE);
    $form['registration']['profile']['ldapprov_profile'] = array(
      '#type' => 'checkbox',
      '#title' => t('Use profile fields in the registration form'),
      '#default_value' => LDAPPROV_PROFILE,
      '#description' => t('Profile fields are shown on the registration form according to their setup in the profile.'),
    );
    $form['registration']['profile']['ldapprov_profile_first'] = array(
      '#type' => 'textfield',
      '#title' => t('Profile first name'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => LDAPPROV_PROFILE_FIRST,
      '#description' => t('Profile field associated with the user\'s first name. When the field is set and custom usernames are not allowed, this field will be used to construct a username.'),
    );
    $form['registration']['profile']['ldapprov_profile_last'] = array(
      '#type' => 'textfield',
      '#title' => t('Profile last name'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => LDAPPROV_PROFILE_LAST,
      '#description' => t('Profile field associated with the user\'s last name. When the field is set and custom usernames are not allowed, this field will be used to construct a username.'),
    );
  }
  if (module_exists('content_profile_registration')) {
    $form['registration']['content_profile'] = array('#type' => 'fieldset', '#title' => ('Content profile integration'), '#collapsible' => TRUE, '#collapsed' => TRUE);
    $form['registration']['content_profile']['ldapprov_content_profile'] = array(
      '#type' => 'checkbox',
      '#title' => t('Use profile fields in the registration form'),
      '#default_value' => LDAPPROV_CONTENT_PROFILE,
      '#description' => t('Profile fields are shown on the registration form according to their setup in the profile.'),
    );
    $form['registration']['content_profile']['ldapprov_content_profile_first'] = array(
      '#type' => 'textfield',
      '#title' => t('Content profile first name'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => LDAPPROV_CONTENT_PROFILE_FIRST,
      '#description' => t('Content profile field associated with the user\'s first name. When the field is set and custom usernames are not allowed, this field will be used to construct a username.'),
    );
    $form['registration']['content_profile']['ldapprov_content_profile_last'] = array(
      '#type' => 'textfield',
      '#title' => t('Content profile last name'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => LDAPPROV_CONTENT_PROFILE_LAST,
      '#description' => t('Content profile field associated with the user\'s last name. When the field is set and custom usernames are not allowed, this field will be used to construct a username.'),
    );
    if (module_exists('notifications')) {
      $form['registration']['content_profile']['ldapprov_notifications_unsubscribe'] = array(
        '#type' => 'checkbox',
        '#title' => t('Unsubscribe account creator from the created profile'),
        '#default_value' => LDAPPROV_NOTIFICATIONS_UNSUBSCRIBE,
        '#description' => t('If autosubscribe is configured, this setting unsubscribes the account manager from the user profiles he creates.'),
      );
    }
  }
  if (module_exists('ldapdata')) {
    $server = _ldapprov_get_server();
    $rwattrs = $server ? _ldapdata_ldap_info($server->sid, 'ldapdata_rwattrs') : array();
    if (!empty($rwattrs)) {
      $options = array('not shown', 'optional', 'required');
      $ldapdata_defaults = variable_get('ldapprov_ldapdata', array());
      $ldapdata_attributes = _ldapdata_ldap_info($server->sid, 'ldapdata_attrs');
      foreach ($rwattrs as $attribute) {
        if ($attribute != LDAPPROV_LDAP_FIRST_NAME && $attribute != LDAPPROV_LDAP_LAST_NAME) {
          $attr_info = $ldapdata_attributes[$attribute];
          $form_ldapdata['registration']['ldapdata']['ldapprov_ldapdata_'. $attribute] = array(
            '#type' => 'select',
            '#title' => t($attr_info[2]),
            '#options' => $options,
            '#default_value' => isset($ldapdata_defaults[$attribute]) ? $ldapdata_defaults[$attribute] : NULL,
            '#description' => t('LDAP attribute %attr.', array('%attr' => $attribute)),
          );
        }
      }
    }
    if (!empty($form_ldapdata)) {
      $form['registration']['ldapdata'] = array('#type' => 'fieldset', '#title' => ('LDAP data fields'), '#collapsible' => TRUE, '#collapsed' => TRUE);
      $form = array_merge_recursive($form, $form_ldapdata);
    }
  }
  $form['registration']['custom'] = array('#type' => 'fieldset', '#title' => ('Custom elements'), '#collapsible' => TRUE, '#collapsed' => TRUE);
  $ldapprov_custom = '';
  foreach (variable_get('ldapprov_custom', array()) as $name => $data) {
    array_walk($data, create_function('&$v, $k', '$v = drupal_substr($k, 1) .\'=>\'. $v;'));
    $ldapprov_custom .= drupal_substr($name, 7) .'|'. implode('|', $data) ."\n";
  }
  $form['registration']['custom']['ldapprov_custom'] = array(
    '#type' => 'textarea',
    '#title' => t('Additional registration attributes'),
    '#default_value' => $ldapprov_custom,
    '#rows' => 5,
    '#description' => t('A list of the custom attributes and corresponding form data to be shown on the registration form. The element type may be \'textifield\' or \'textarea\'. Please look at the following examples:<br /><code>sponsor|type=>textfield|title=>Sponsor POC|weigth=>4|size=>64|maxlemgth=>64|required=>1|description=>Sponsor Point of Contact.</code><br /><code>remarks|type=>textarea|title=>Remarks|weigth=>3|rows=>6|description=>Additional registration remarks.</code>'),
  );

  // LDAP authentication.
  $form['ldap'] = array('#type' => 'fieldset', '#title' => ('LDAP authentication'), '#collapsible' => TRUE, '#collapsed' => FALSE, '#description' => t('<p>Choose LDAP server new accounts will be created in.</p>'));
  $ldap_servers = array();
  $result = db_query("SELECT sid, name, status FROM {ldapauth} ORDER BY weight");
  while ($row = db_fetch_object($result)) {
    $ldap_servers[$row->sid] = $row->name;
  }
  $form['ldap']['ldapprov_server'] = array(
    '#type' => 'select',
    '#title' => t('LDAP server'),
    '#options' => $ldap_servers,
    '#default_value' => LDAPPROV_SERVER,
    '#description' => t('Select LDAP server to create LDAP accounts in.'),
  );
  if (LDAPPROV_PASS_CLEAR || !LDAPPROV_PASS) {
    $form['ldap']['ldapprov_dn'] = array(
      '#type' => 'textfield',
      '#title' => t('Bind DN'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => LDAPPROV_DN,
      '#description' => t('Bind DN should have the rights to create new LDAP entries.'),
    );
    variable_del('ldapprov_pass');
    $form['ldap']['ldapprov_pass'] = array(
      '#type' => 'password',
      '#title' => t('Password'),
      '#size' => 50,
      '#maxlength' => 255,
      '#default_value' => '',
    );
    variable_set('ldapprov_pass_clear', FALSE);
  }
  else {
    $form['ldap']['ldapprov_dn'] =  array(
      '#type' => 'item',
      '#title' => t('Bind DN'),
      '#value' => LDAPPROV_DN,
    );
    $form['ldap']['ldapprov_pass_clear'] = array(
      '#type' => 'checkbox',
      '#title' => t('Clear current password and change DN'),
      '#default_value' => FALSE,
    );
  }
  $form['ldap']['test'] = array(
    '#type'  => 'submit',
    '#value' => t('Test'),
    '#suffix' => '<div id="test-spinner" style="display: none;">'. theme_image(drupal_get_path('module', 'ldapauth') .'/images/spinner.gif') .'</div><div id="test-message" class="messages" style="display: none;"></div>',

  );

  // LDAP fields.
  $form['ldap_attributes'] = array('#type' => 'fieldset', '#title' => t('LDAP attributes'), '#collapsible' => TRUE, '#collapsed' => TRUE);
  $form['ldap_attributes']['ldapprov_user_entry'] = array(
    '#type' => 'textarea',
    '#title' => t('Basic LDAP attributes'),
    '#rows' => 15,
    '#default_value' => LDAPPROV_USER_ENTRY,
    '#description' => t('Customize the rest LDAP attributes in LDIF style.') .' '. t('Available variables are:') .' !uid, !base_dn, !mail, !first_name, !last_name, !pass. '. t('Empty lines and lines starting with "#" will be ignored.'),
  );

  // E-mail notification.
  $form['mail'] = array(
    '#type' => 'fieldset',
    '#title' => t('E-mail settings'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Drupal sends emails whenever new users register on your site, and optionally, may also notify users after other account actions. Using a simple set of content templates, notification e-mails can be customized to fit the specific needs of your site.'),
    );
  $form['mail']['code'] = array(
    '#type' => 'fieldset',
    '#title' => t('Email validate'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Customize request validate messages sent to new members upon registering.') .' '. t('Available variables are:') .' !site, !validate_url, !validate_uri, !mailto, !first_name, !last_name, !date, !code.',
  );
  $form['mail']['code']['ldapprov_mail_code_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Subject of validate e-mail'),
    '#maxlength' => 180,
    '#default_value' => _ldapprov_mail_text('code_subject'),
  );
  $form['mail']['code']['ldapprov_mail_code_body'] = array(
    '#type' => 'textarea',
    '#title' => t('Body of validate e-mail'),
    '#rows' => 15,
    '#default_value' => _ldapprov_mail_text('code_body'),
  );
  $form['mail']['notify'] = array(
    '#type' => 'fieldset',
    '#title' => t('Account manager notify email'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Customize account manager notification messages.') .' '. t('Available variables are:') .' !site, !mailto, !first_name, !last_name, !date, !create_url.',
  );
  $form['mail']['notify']['ldapprov_mail_notify_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Subject of notify e-mail'),
    '#maxlength' => 180,
    '#default_value' => _ldapprov_mail_text('notify_subject'),
  );
  $form['mail']['notify']['ldapprov_mail_notify_body'] = array(
    '#type' => 'textarea',
    '#title' => t('Body of notify e-mail'),
    '#rows' => 15,
    '#default_value' => _ldapprov_mail_text('notify_body'),
  );
  $form['mail']['reject'] = array(
    '#type' => 'fieldset',
    '#title' => t('Account reject email'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Customize request reject messages.') .' '. t('Available variables are:') .' !site, !mailto, !first_name, !last_name, !date, !message.',
  );
  $form['mail']['reject']['ldapprov_mail_reject_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Subject of reject e-mail'),
    '#maxlength' => 180,
    '#default_value' => _ldapprov_mail_text('reject_subject'),
  );
  $form['mail']['reject']['ldapprov_mail_reject_body'] = array(
    '#type' => 'textarea',
    '#title' => t('Body of reject e-mail'),
    '#rows' => 15,
    '#default_value' => _ldapprov_mail_text('reject_body'),
  );
  $form['mail']['create'] = array(
    '#type' => 'fieldset',
    '#title' => t('Account create email'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Customize account creation notification messages.') .' '. t('Available variables are:') .' !site, !login_uri, !login_url, !mailto, !first_name, !last_name, !date, !username, !password, !message.',
  );
  $form['mail']['create']['ldapprov_mail_create_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Subject of creation e-mail'),
    '#maxlength' => 180,
    '#default_value' => _ldapprov_mail_text('create_subject'),
  );
  $form['mail']['create']['ldapprov_mail_create_body'] = array(
    '#type' => 'textarea',
    '#title' => t('Body of creation e-mail'),
    '#rows' => 15,
    '#default_value' => _ldapprov_mail_text('create_body'),
  );
  $form['mail']['delete'] = array(
    '#type' => 'fieldset',
    '#title' => t('Account delete email'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Customize account deletion notification messages.') .' '. t('Available variables are:') .' !site, !mailto, !first_name, !last_name, !date, !username.',
  );
  $form['mail']['delete']['ldapprov_mail_delete_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Subject of deletion e-mail'),
    '#maxlength' => 180,
    '#default_value' => _ldapprov_mail_text('delete_subject'),
  );
  $form['mail']['delete']['ldapprov_mail_delete_body'] = array(
    '#type' => 'textarea',
    '#title' => t('Body of deletion e-mail'),
    '#rows' => 15,
    '#default_value' => _ldapprov_mail_text('delete_body'),
  );

  $form['submit'] = array(
    '#type'  => 'submit',
    '#value' => t('Save configuration'),
  );
  $form['reset'] = array(
    '#type'  => 'submit',
    '#value' => t('Reset to defaults'),
  );
  return $form;
}

/**
 * Validate hook for the settings form.
 */
function ldapprov_admin_settings_validate($form, &$form_state) {
  $op = $form_state['clicked_button']['#value'];
  $values = $form_state['values'];
  switch ($op) {
    case t('Save configuration'):
      if (!is_numeric($values['ldapprov_pass_length'])) {
        form_set_error('ldapprov_pass_length', t('Password lenght should be numeric.'));
      }

      if (!LDAPPROV_ALLOW_USERNAME) {

        // Check the profile first and last names
        if (module_exists('profile')) {
          if (!empty($values['ldapprov_profile_first'])) {
            $result = db_query("SELECT * FROM {profile_fields} WHERE name = '%s'", $values['ldapprov_profile_first']);
            $row = db_fetch_object($result);
            if (empty($row)) {
              form_set_error('ldapprov_profile_first', t('Profile field %s is not found.', array('%s' => $values['ldapprov_profile_first'])));
            }
            elseif ($row->required == 0 || $row->register == 0) {
              form_set_error('ldapprov_profile_first', t('Profile field %s should be configured as "', array('%s' => $values['ldapprov_profile_first'])) . t('Visible in user registration form') . t('" and "') . t('The user must enter a value') .'".');
            }
          }
          if (!empty($values['ldapprov_profile_last'])) {
            $result = db_query("SELECT * FROM {profile_fields} WHERE name = '%s'", $values['ldapprov_profile_last']);
            $row = db_fetch_object($result);
            if (empty($row)) {
              form_set_error('ldapprov_profile_last', t('Profile field %s is not found.', array('%s' => $values['ldapprov_profile_last'])));
            }
            elseif ($row->required == 0 || $row->register == 0) {
              form_set_error('ldapprov_profile_last', t('Profile field %s should be configured as "', array('%s' => $values['ldapprov_profile_last'])) . t('Visible in user registration form') . t('" and "') . t('The user must enter a value') .'".');
            }
          }
          if (!empty($values['ldapprov_profile_first']) && empty($values['ldapprov_profile_last'])) {
            form_set_error('ldapprov_profile_last', t('If profile first name is set, the last name should be set as well.'));
          }
          if (!empty($values['ldapprov_profile_last']) && empty($values['ldapprov_profile_first'])) {
            form_set_error('ldapprov_profile_first', t('If profile last name is set, the first name should be set as well.'));
          }
        }

        // Check the content profile first and last names
        if (module_exists('content_profile_registration')) {
          $profile_types = content_profile_get_types('names', 'registration_use');
          $profile_fields = array();
          foreach (array_keys($profile_types) as $type) {
            $typeinfo = content_types($type);
            $profile_fields += $typeinfo['fields'];
          }
          if (!empty($values['ldapprov_content_profile_first'])) {
            if (!array_key_exists($values['ldapprov_content_profile_first'], $profile_fields)) {
              form_set_error('ldapprov_content_profile_first', t('Content profile field %s is not found.', array('%s' => $values['ldapprov_content_profile_first'])));
            }
            elseif (!$profile_fields[$values['ldapprov_content_profile_first']]['required']) {
              form_set_error('ldapprov_content_profile_first', t('Content profile field %s should be configured as required', array('%s' => $values['ldapprov_content_profile_first'])));
            }
          }
          if (!empty($values['ldapprov_content_profile_last'])) {
            if (!array_key_exists($values['ldapprov_content_profile_last'], $profile_fields)) {
              form_set_error('ldapprov_content_profile_last', t('Content profile field %s is not found.', array('%s' => $values['ldapprov_content_profile_last'])));
            }
            elseif (!$profile_fields[$values['ldapprov_content_profile_last']]['required']) {
              form_set_error('ldapprov_content_profile_last', t('Content profile field %s should be configured as required', array('%s' => $values['ldapprov_content_profile_last'])));
            }
          }
          if (!empty($values['ldapprov_content_profile_first']) && empty($values['ldapprov_content_profile_last'])) {
            form_set_error('ldapprov_content_profile_last', t('If content profile first name is set, the last name should be set as well.'));
          }
          if (!empty($values['ldapprov_content_profile_last']) && empty($values['ldapprov_content_profile_first'])) {
            form_set_error('ldapprov_content_profile_first', t('If content profile last name is set, the first name should be set as well.'));
          }
        }
      }

      $form_state['ldapprov_custom'] = array();
      $ldapprov_custom = TRUE;
      foreach ((trim($values['ldapprov_custom']) ? explode("\n", trim($values['ldapprov_custom'])) : array()) as $line) {
        if (count($data = explode('|', trim($line))) > 1) {
          if ($name = trim(array_shift($data))) {
            $field = array();
            foreach ($data as $pair) {
              list($k, $v) = explode('=>', $pair);
              $field += array('#'. trim($k) => trim($v));
            }
            if (count(array_intersect(array_keys($field), array('#type', '#title'))) == 2)
              $form_state['ldapprov_custom'] += array('custom_'. $name => $field);
            else
              form_set_error('ldapprov_custom', t('type and title are required.'));
          }
          else
            $ldapprov_custom = FALSE;
        }
        else
          $ldapprov_custom = FALSE;
      }
      if (!$ldapprov_custom)
        form_set_error('ldapprov_custom', t('Bad attribute syntax.'));
      break;
  }
}

/**
 * Submit hook for the settings form.
 */
function ldapprov_admin_settings_submit($form, &$form_state) {
  $op = $form_state['clicked_button']['#value'];
  switch ($op) {
    case t('Save configuration'):
      $values = $form_state['values'];

      // General settings.
      variable_set('ldapprov_enabled', $values['ldapprov_enabled']);
      variable_set('ldapprov_allow_username', $values['ldapprov_allow_username']);
      variable_set('ldapprov_username', $values['ldapprov_username']);

      if (module_exists('captcha')) {
        $result = db_query("SELECT * FROM {captcha_points} WHERE form_id = 'ldapprov_register'");
        $row = db_fetch_object($result);
        if ($values['ldapprov_captcha'] == 1 && empty($row)) {
          db_query("INSERT INTO {captcha_points} (form_id) VALUES ('ldapprov_register')");
        }
        elseif ($values['ldapprov_captcha'] == 0 && !empty($row)) {
          db_query("DELETE FROM {captcha_points} WHERE form_id = 'ldapprov_register'");
        }
      }

      variable_set('ldapprov_disable_create', $values['ldapprov_disable_create']);
      variable_set('ldapprov_pass_enable', $values['ldapprov_pass_enable']);
      variable_set('ldapprov_pass_length', $values['ldapprov_pass_length']);
      variable_set('ldapprov_debug', $values['ldapprov_debug']);

      // OG.
      if (module_exists('og')) {
        variable_set('ldapprov_og', $values['ldapprov_og']);
      }

      // Profiles.
      if (module_exists('profile')) {
        variable_set('ldapprov_profile', $values['ldapprov_profile']);
        variable_set('ldapprov_profile_first', $values['ldapprov_profile_first']);
        variable_set('ldapprov_profile_last', $values['ldapprov_profile_last']);
      }

      // Content profiles.
      if (module_exists('content_profile_registration')) {
        variable_set('ldapprov_content_profile', $values['ldapprov_content_profile']);
        variable_set('ldapprov_content_profile_first', $values['ldapprov_content_profile_first']);
        variable_set('ldapprov_content_profile_last', $values['ldapprov_content_profile_last']);
        if (module_exists('notifications'))
          variable_set('ldapprov_notifications_unsubscribe', $values['ldapprov_notifications_unsubscribe']);
      }

      // Registration form.
      variable_set('ldapprov_custom', $form_state['ldapprov_custom']);

      // LDAP authentication.
      variable_set('ldapprov_server', $values['ldapprov_server']);
      if (!empty($values['ldapprov_pass'])) {
        variable_set('ldapprov_dn', $values['ldapprov_dn']);
        variable_set('ldapprov_pass', $values['ldapprov_pass']);
      }
      if (isset($values['ldapprov_pass_clear']) && $values['ldapprov_pass_clear'] == 1) {
        variable_set('ldapprov_pass', '');
      }

      // LDAP fields.
      if (module_exists('ldapdata')) {
        $ldapprov_ldapdata = array();
        foreach ($values as $key => $val) {
          if (preg_match("/^ldapprov_ldapdata_/", $key)) {
            $ldapprov_ldapdata[preg_replace("/^ldapprov_ldapdata_/", '', $key)] = $val;
          }
        }
        variable_set('ldapprov_ldapdata', $ldapprov_ldapdata);
      }
      variable_set('ldapprov_user_entry', $values['ldapprov_user_entry']);

      // E-mail notification.
      variable_set('ldapprov_mail_code_subject', $values['ldapprov_mail_code_subject']);
      variable_set('ldapprov_mail_code_body', $values['ldapprov_mail_code_body']);
      variable_set('ldapprov_mail_notify_subject', $values['ldapprov_mail_notify_subject']);
      variable_set('ldapprov_mail_notify_body', $values['ldapprov_mail_notify_body']);
      variable_set('ldapprov_mail_reject_subject', $values['ldapprov_mail_reject_subject']);
      variable_set('ldapprov_mail_reject_body', $values['ldapprov_mail_reject_body']);
      variable_set('ldapprov_mail_create_subject', $values['ldapprov_mail_create_subject']);
      variable_set('ldapprov_mail_create_body', $values['ldapprov_mail_create_body']);
      variable_set('ldapprov_mail_delete_subject', $values['ldapprov_mail_delete_subject']);
      variable_set('ldapprov_mail_delete_body', $values['ldapprov_mail_delete_body']);

      drupal_set_message(t('The configuration options have been saved.'));
      break;
    case t('Reset to defaults'):
      $values = $form_state['values'];

      // General settings.
      variable_del('ldapprov_enabled');
      variable_del('ldapprov_allow_username');
      variable_del('ldapprov_username');

      if (module_exists('captcha')) {
        db_query("DELETE FROM {captcha_points} WHERE form_id = 'ldapprov_register'");
      }

      variable_del('ldapprov_disable_create');
      variable_del('ldapprov_pass_enable');
      variable_del('ldapprov_pass_length');
      variable_del('ldapprov_debug');

      variable_del('ldapprov_og');

      variable_del('ldapprov_profile');
      variable_del('ldapprov_profile_first');
      variable_del('ldapprov_profile_last');

      variable_del('ldapprov_content_profile');
      variable_del('ldapprov_content_profile_first');
      variable_del('ldapprov_content_profile_last');
      variable_del('ldapprov_notifications_unsubscribe');

      // Registration form.
      variable_del('ldapprov_custom');

      // LDAP authentication.
      variable_del('ldapprov_server');
      variable_del('ldapprov_dn');
      variable_del('ldapprov_pass');
      variable_del('ldapprov_pass_clear');

      // LDAP fields.
      variable_del('ldapprov_ldapdata');
      variable_del('ldapprov_user_entry');

      // E-mail notification.
      variable_del('ldapprov_mail_code_subject');
      variable_del('ldapprov_mail_code_body');
      variable_del('ldapprov_mail_notify_subject');
      variable_del('ldapprov_mail_notify_body');
      variable_del('ldapprov_mail_reject_subject');
      variable_del('ldapprov_mail_reject_body');
      variable_del('ldapprov_mail_create_subject');
      variable_del('ldapprov_mail_create_body');
      variable_del('ldapprov_mail_delete_subject');
      variable_del('ldapprov_mail_delete_body');

      drupal_set_message(t('The configuration options have been reset to their default values.'));
      break;
    case t('Test'):
      global $_ldapprov_ldap;
      if (_ldapprov_init()) {
        // Try to authenticate.
        if (!$_ldapprov_ldap->connect(LDAPPROV_DN, LDAPPROV_PASS)) {
          drupal_set_message(t('Authentication with the LDAP server for the dn %dn and saved password failed.', array('%dn' => LDAPPROV_DN)), 'error');
        }
        else {
          drupal_set_message(t('Authentication with the LDAP server for the dn %dn and saved password succeeded.', array('%dn' => LDAPPROV_DN)));
        }
      }
      else {
        drupal_set_message(t('Cannot load server settings. Please save configuration first.'), 'error');
      }
      return;
  }

  // Rebuild the menu router.
  menu_rebuild();
}

/**
 * Implements the AJAX server test.
 *
 * @return
 *   The JSON data.
 */
function _ldapprov_ajax_test() {
  global $_ldapprov_ldap;

  $sid = $_POST['sid'];
  if (!is_numeric($sid)) {
    return;
  }

  _ldapprov_init($sid);

  if ($_POST['bindpw_clear'] == 'undefined') {
    $binddn = $_POST['binddn'];
    $bindpw = $_POST['bindpw'];
  }
  else {
    $binddn = LDAPPROV_DN;
    $bindpw = LDAPPROV_PASS;
  }

  drupal_json($_ldapprov_ldap->connect($binddn, $bindpw) ? array('status' => 1, 'message' => t('Authentication with the LDAP server succeeded.')) : array('status' => 0, 'message' => t('Authentication with the LDAP server failed.')));
  exit;
}