function cleantalk_settings_form in Anti Spam by CleanTalk 7

Same name and namespace in other branches

1. 8 cleantalk.admin.inc \cleantalk_settings_form()
2. 7.5 src/Form/CleantalkSettingsForm.php \cleantalk_settings_form()
3. 7.2 cleantalk.admin.inc \cleantalk_settings_form()
4. 7.4 src/Form/CleantalkSettingsForm.php \cleantalk_settings_form()

Cleantalk settings form.

1 string reference to 'cleantalk_settings_form'

cleantalk_menu in ./cleantalk.module

Implements hook_menu().

File

./cleantalk.admin.inc, line 11

CleanTalk module admin functions.

Code

function cleantalk_settings_form($form, &$form_state) {
  $ct_comments_default = 3;
  $ct_authkey = variable_get('cleantalk_authkey', '');
  $ct_comments = variable_get('cleantalk_comments', $ct_comments_default);
  $ct_automod = variable_get('cleantalk_automod', 1);
  $ct_ccf = variable_get('cleantalk_ccf', 0);
  $ct_link = variable_get('cleantalk_link', 0);
  $form['cleantalk_authkey'] = array(
    '#type' => 'textfield',
    '#title' => t('Access key'),
    '#size' => 20,
    '#maxlength' => 20,
    '#default_value' => $ct_authkey ? $ct_authkey : '',
    '#description' => t('Click <a target="_blank" href="!ct_link">here</a> to get access key.', array(
      '!ct_link' => url('http://cleantalk.org/register?platform=drupal'),
    )),
  );
  $form['cleantalk_comments'] = array(
    '#type' => 'textfield',
    '#title' => t('Minimum approved comments per registered user'),
    '#size' => 5,
    '#maxlength' => 5,
    '#default_value' => $ct_comments,
    '#element_validate' => array(
      'element_validate_integer_positive',
    ),
    '#description' => t('Moderate messages of guests and registered users who have approved messages less than this value (must be more than 0).'),
  );
  $form['cleantalk_automod'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable automoderation'),
    '#default_value' => $ct_automod,
    '#description' => t('Automatically publish good messages and put bad ones to admin approvement.') . '<br /><span class="admin-enabled">' . t('Note: It overrides "Skip comment approval" permissions') . '</span>',
  );
  $form['cleantalk_ccf'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable custom contact forms checking'),
    '#default_value' => $ct_ccf,
    '#description' => t('Enabling this option will aloow you to check all submissions to your site.'),
  );
  $form['cleantalk_link'] = array(
    '#type' => 'checkbox',
    '#title' => t('Tell others about CleanTalk'),
    '#default_value' => $ct_link,
    '#description' => t('Checking this box places a small link under the comment form that lets others know what anti-spam tool protects your site.'),
  );
  return system_settings_form($form);
}