securepages.admin.inc in Secure Pages 8

Provide all the administration pages

File

securepages.admin.inc

<?php

/**
 * @file
 * Provide all the administration pages
 */

/**
 * Builds the securepages settings form.
 */
function securepages_settings($form, &$form_state) {
  $form = array();
  $form['securepages_enable'] = array(
    '#type' => 'radios',
    '#title' => t('Enable Secure Pages'),
    '#default_value' => variable_get('securepages_enable', 0),
    '#options' => array(
      t('Disabled'),
      t('Enabled'),
    ),
    '#disabled' => !securepages_test(),
    '#description' => t('To start using secure pages this setting must be enabled. This setting will only be able to changed when the web server has been configured for SSL.<br />If this test has failed then go <a href="!url">here</a>', array(
      '!url' => preg_replace(';^http://;i', 'https://', url($_GET['q'], array(
        'absolute' => TRUE,
      ))),
    )),
  );
  $form['securepages_switch'] = array(
    '#type' => 'checkbox',
    '#title' => t('Switch back to http pages when there are no matches'),
    '#return_value' => TRUE,
    '#default_value' => variable_get('securepages_switch', FALSE),
  );
  $form['securepages_basepath'] = array(
    '#type' => 'textfield',
    '#title' => t('Non-secure Base URL'),
    '#default_value' => variable_get('securepages_basepath', ''),
  );
  $form['securepages_basepath_ssl'] = array(
    '#type' => 'textfield',
    '#title' => t('Secure Base URL'),
    '#default_value' => variable_get('securepages_basepath_ssl', ''),
  );
  $form['securepages_secure'] = array(
    '#type' => 'radios',
    '#title' => t('Pages which will be be secure'),
    '#default_value' => variable_get('securepages_secure', 1),
    '#options' => array(
      t('Make secure every page except the listed pages.'),
      t('Make secure only the listed pages.'),
    ),
  );
  $form['securepages_pages'] = array(
    '#type' => 'textarea',
    '#title' => t('Pages'),
    '#default_value' => variable_get('securepages_pages', SECUREPAGES_PAGES),
    '#cols' => 40,
    '#rows' => 5,
    '#description' => t("Enter one page per line as Drupal paths. The '*' character is a wildcard. Example paths are '<em>blog</em>' for the main blog page and '<em>blog/*</em>' for every personal blog. '<em>&lt;front&gt;</em>' is the front page."),
  );
  $form['securepages_ignore'] = array(
    '#type' => 'textarea',
    '#title' => t('Ignore pages'),
    '#default_value' => variable_get('securepages_ignore', SECUREPAGES_IGNORE),
    '#cols' => 40,
    '#rows' => 5,
    '#description' => t("The pages listed here will be ignored and be either returned in http or https. Enter one page per line as Drupal paths. The '*' character is a wildcard. Example paths are '<em>blog</em>' for the blog page and '<em>blog/*</em>' for every personal blog. '<em>&lt;front&gt;</em>' is the front page."),
  );
  $form['securepages_roles'] = array(
    '#type' => 'checkboxes',
    '#title' => 'User roles',
    '#description' => t('Users with the chosen role(s) are always redirected to https, regardless of path rules.'),
    '#options' => array_map('check_plain', user_roles(TRUE)),
    '#default_value' => variable_get('securepages_roles', array()),
  );
  $form['securepages_forms'] = array(
    '#type' => 'textarea',
    '#title' => t('Secure forms'),
    '#default_value' => variable_get('securepages_forms', SECUREPAGES_FORMS),
    '#cols' => 40,
    '#rows' => 5,
    '#description' => t('List of form ids which will have the https flag set to TRUE.'),
  );
  $form['securepages_debug'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable Debugging'),
    '#default_value' => variable_get('securepages_debug', 0),
    '#description' => t('Turn on debugging to allow easier testing of settings'),
  );
  $form['#submit'] = array(
    'securepages_settings_submit',
  );
  return system_settings_form($form);
}

/**
 * Submit callback for securepages_settings().
 */
function securepages_settings_submit() {

  // The page cache needs to be cleared, since cached redirects may be stale after changing securepages settings.
  cache_clear_all('*', 'cache_page', TRUE);
}

Functions

Name	Description
securepages_settings	Builds the securepages settings form.
securepages_settings_submit	Submit callback for securepages_settings().