Club Drupal

 * @return

 *   The form structure.

 */

function ldap_servers_test_form($form, &$form_state, $op = NULL, $sid = NULL) {

  $ldap_server = ldap_servers_get_servers($sid, 'all', TRUE);

  $form['#prefix'] = t('This form tests an LDAP configuration to see if

    it can bind and basic user and group functions.  It also shows token examples

    and a sample user.  The only data this function will modify is the test LDAP group, which will be deleted and added');

    '#markup' => theme('ldap_servers_server', $variables),

    '#type' => 'hidden',

    '#default_value' => $sid,

    '#type' => 'password',

    '#title' => t('Password for non-anonymous search'),

    '#size' => 20,

    '#maxlength' => 255,

    '#description' => t('Leave empty to test with currently stored password.'),

    '#type' => 'textfield',

    '#title' => t('Testing Drupal Username'),

    '#default_value' => $ldap_server->testingDrupalUsername,

    '#size' => 30,

    '#maxlength' => 255,

    '#description' => t('This is optional and used for testing this server\'s configuration against an actual username.  The user need not exist in Drupal and testing will not affect the user\'s LDAP or Drupal Account.'),

    '#type' => 'textfield',

    '#title' => t('Testing Drupal DN'),

    '#default_value' => $ldap_server->testingDrupalUserDn,

    '#size' => 120,

    '#maxlength' => 255,

    '#description' => t('This is optional and used for testing this server\'s configuration against an actual username.  The user need not exist in Drupal and testing will not affect the user\'s LDAP or Drupal Account.'),

    '#type' => 'textfield',

    '#title' => t('Testing Group DN'),

    '#default_value' => $ldap_server->groupTestGroupDn,

    '#size' => 120,

    '#maxlength' => 255,

    '#description' => t('This is optional and used for testing this server\'s group configuration.'),

    '#type' => 'textfield',

    '#title' => t('Testing Group DN that is writeable. Warning!  In test, this group will be deleted, created, have members added to it!'),

    '#default_value' => $ldap_server->groupTestGroupDnWriteable,

    '#size' => 120,

    '#maxlength' => 255,

    '#description' => t('This is optional and used for testing this server\'s group configuration.'),

  if ($ldap_server->bind_method == LDAP_SERVERS_BIND_METHOD_ANON_USER) {

      '#type' => 'password',

      '#title' => t('Testing Drupal User Password'),

      '#size' => 30,

      '#maxlength' => 255,

      '#description' => t('This is optional and used for testing this server\'s configuration against the username above.'),

  }

    '#type' => 'submit',

    '#value' => 'Test',

    '#weight' => 100,

  if (!empty($form_state['ldap_server_test_data'])) {

    $test_data = $form_state['ldap_server_test_data'];

    if (isset($test_data['username']) && isset($test_data['ldap_user'])) {

      $form['#prefix'] = theme('ldap_server_ldap_entry_table',

          'entry' => $test_data['ldap_user']['attr'],

          'username' => $test_data['username'],

          'dn' => $test_data['ldap_user']['dn'],

    }

      'basic' => 'Test Results',

      'group1' => 'Group Create, Delete, Add Member, Remove Member Tests',

      'group2' => 'User Group Membership Functions Test',

      'tokens' => 'User Token Samples',

      'groupfromDN' => 'Groups Derived From User DN',

    foreach ($test_data['results_tables'] as $table_name => $table_data) {

    }

    if (function_exists('dpm') && !empty($test_data['username'])) {

  return $form;

}

function ldap_servers_string_binary_check($input) {

  if (preg_match('~[^\x20-\x7E\t\r\n]~', $input) > 0) {

    $truncatedString = truncate_utf8($input, 200);

    form_set_error(NULL, t('No server id found in form'));

  }

  elseif (!$ldap_server = ldap_servers_get_servers($values['sid'], 'all', TRUE)) {

  }

}

 */

function ldap_servers_test_form_submit($form, &$form_state) {

  $form_state['rebuild'] = TRUE;

  ldap_servers_module_load_include('inc', 'ldap_servers', 'ldap_servers.functions');

  $sid = $values['sid'];

  $ldap_server = ldap_servers_get_servers($sid, 'all', TRUE);

  if ($values['bindpw']) {

    $bindpw = $values['bindpw'];

    $bindpw_type = t('entered in form.');

  }

  if ($ldap_server->bind_method == LDAP_SERVERS_BIND_METHOD_SERVICE_ACCT) {

  }

  else {

  }

  if (@$values['grp_test_grp_dn_writeable'] && @$values['grp_test_grp_dn']) {

    $user_test_dn = @$values['grp_test_grp_dn'];

    $group_create_test_dn = $values['grp_test_grp_dn_writeable'];

      $result = $ldap_server->groupRemoveGroup($group_create_test_dn, FALSE);

    }

    $result = ($group_exists === FALSE) ? "PASS" : "FAIL";

    $result = $ldap_server->groupAllMembers($group_create_test_dn);

    $result = ($result === FALSE) ? "PASS" : 'FAIL';

    $result = $ldap_server->groupAddGroup($group_create_test_dn, $group_create_test_attr);

    $result = ($result) ? "PASS" : 'FAIL';

    $attr = serialize($group_create_test_attr);

    $result = $ldap_server->groupAllMembers($group_create_test_dn);

    $result = (is_array($result) && count($result) == 0) ? 'PASS' : 'FAIL';

    $result = $ldap_server->groupAddMember($group_create_test_dn, $user_test_dn);

    $result = is_array($ldap_server->groupAllMembers($group_create_test_dn)) ? 'PASS' : 'FAIL';

    $only_if_group_empty = TRUE;

    $result = $ldap_server->groupRemoveGroup($group_create_test_dn, $only_if_group_empty);

    $result = ($result) ? 'FAIL' : 'PASS';

    $result = $ldap_server->groupRemoveMember($group_create_test_dn, $user_test_dn);

    $result = $ldap_server->groupAllMembers($group_create_test_dn);

    $result = (is_array($result) && count($result) == 0) ? 'PASS' : 'FAIL';

    $only_if_group_empty = TRUE;

    $result = $ldap_server->groupRemoveGroup($group_create_test_dn, $only_if_group_empty);

  }

  list($has_errors, $more_results) = ldap_servers_test_binding_credentials($ldap_server, $bindpw, $results_tables);

  $results = array_merge($results, $more_results);

  if ($ldap_server->bind_method == LDAP_SERVERS_BIND_METHOD_ANON_USER) {

          $mapping[] = "$key = " . $value[0];

        }

      }

    }

    $result = $ldap_server->bind($ldap_user['dn'], $values['testing_drupal_userpw'], FALSE);

    if ($result == LDAP_SUCCESS) {

    }

    else {

    }

  }

    }

    $user = isset($values['testing_drupal_username']) ? $values['testing_drupal_username'] : NULL;

      $nested_display = ($nested) ? 'Yes' : 'No';

      if ($user) {

        $memberships = $ldap_server->groupMembershipsFromUser($user, 'group_dns', $nested);

        $result = ($ldap_server->groupIsMember($group_dn, $user, $nested)) ? 'Yes' : 'No';

        if ($ldap_server->groupUserMembershipsConfigured) {

          $groupusermembershipsfromuserattr = $ldap_server->groupUserMembershipsFromUserAttr($user, $nested);

          $count = count($groupusermembershipsfromuserattr);

        }

        else {

          $result = "'A user LDAP attribute such as memberOf exists that contains a list of their group' is not configured.";

        }

        if ($ldap_server->groupGroupEntryMembershipsConfigured) {

          $groupusermembershipsfromentry = $ldap_server->groupUserMembershipsFromEntry($user, $nested);

        }

        else {

          $result = "Groups by entry not configured.";

        }

        if (count($groupusermembershipsfromentry) && count($groupusermembershipsfromuserattr)) {

          $diff1 = array_diff($groupusermembershipsfromuserattr, $groupusermembershipsfromentry);

          $diff2 = array_diff($groupusermembershipsfromentry, $groupusermembershipsfromuserattr);

        }

      }

    }

    if ($groups_from_dn = $ldap_server->groupUserMembershipsFromDn($user)) {

    }

  }

  list($has_errors, $more_results, $ldap_user) = ldap_servers_test_user_mapping($values['testing_drupal_username'], $ldap_server);

  foreach ($tokens as $key => $value) {

  }

    'username' => $values['testing_drupal_username'],

    'results_tables' => $results_tables,

  if (isset($ldap_user)) {

    $form_state['ldap_server_test_data']['ldap_user'] = $ldap_user;

  }

    $form_state['ldap_server_test_data']['group_entry'] = $group_entry;

  }

/**

 * Submit hook for the LDAP server form.

 */

function ldap_servers_test_binding_credentials(&$ldap_server, $bindpw, &$results_tables) {

  $errors = FALSE;

  $ldap_result = $ldap_server->connect();

  if ($ldap_result != LDAP_SUCCESS) {

    $errors = TRUE;

  }

  if (!$errors) {

    $bind_result = $ldap_server->bind($ldap_server->binddn, $bindpw, FALSE);

    if ($bind_result == LDAP_SUCCESS) {

    }

    else {

      $errors = TRUE;

    }

  }

}

function ldap_servers_test_user_mapping($drupal_username, &$ldap_server, $ldap_context = NULL) {

  $ldap_user = $ldap_server->userUserNameToExistingLdapEntry($drupal_username, $ldap_context);

  $errors = FALSE;

    $results[] = t('Failed to find test user %username by searching on  %user_attr = %username.',

        '%username' => $drupal_username,

      )

      . ' ' . t('Error Message:') . ' ' . $ldap_server->errorMsg('ldap');

    $errors = TRUE;

  }

  else {

    $results[] = t('Found test user %username by searching on  %user_attr = %username.',

  }

}