purl.admin.inc in Persistent URL 6

Admin pages for the purl module.

File

purl.admin.inc

<?php

/**
 * @file
 *
 * Admin pages for the purl module.
 */

/**
 * Page callback for the purl administration page.
 */
function purl_admin() {
  global $pager_page_array, $pager_total, $pager_total_items;
  $page = isset($_GET['page']) ? $_GET['page'] : 0;
  $element = 0;
  $limit = 20;
  $providers = purl_providers();

  // Convert $page to an array, used by other functions.
  $pager_page_array = array(
    $page,
  );
  $methods = _purl_options();
  $merged = array();
  foreach (array_keys($methods) as $method) {
    foreach (purl_modifiers($method) as $value => $info) {
      $info['value'] = $value;
      $merged[] = $info;
    }
  }
  $rows = array();
  for ($i = $page * $limit; $i < ($page + 1) * $limit && $i < count($merged); $i++) {
    $rows[] = array(
      $providers[$merged[$i]['provider']]['name'],
      $merged[$i]['value'],
      $merged[$i]['id'],
      $methods[variable_get('purl_method_' . $merged[$i]['provider'], 'path')],
    );
  }

  // We calculate the total of pages as ceil(items / limit).
  $pager_total_items[$element] = count($merged);
  $pager_total[$element] = ceil($pager_total_items[$element] / $limit);
  $pager_page_array[$element] = max(0, min((int) $pager_page_array[$element], (int) $pager_total[$element] - 1));
  if ($rows) {
    $output = theme('table', array(
      t('Provider'),
      t('Modifier'),
      t('ID'),
      t('Method'),
    ), $rows);
    $output .= theme('pager');
  }
  else {
    $output = "<p>" . t('No persistent urls have been registered.') . "</p>";
  }
  return $output;
}

/**
 * Settings form for choosing the operating mode of purl
 */
function purl_settings_form() {
  $form = array();
  $options = _purl_options();
  foreach (purl_providers() as $id => $provider) {

    // Check to see whether provider has limited the available valueing methods
    if (isset($provider['methods']) && count($provider['methods'])) {
      $provider_options = array();
      foreach ($provider['methods'] as $method) {
        $provider_options[$method] = $options[$method];
      }
    }
    else {
      $provider_options = $options;
    }
    $form[$id] = array(
      '#fieldset' => true,
      '#provider' => true,
      '#title' => $provider['name'],
      '#description' => $provider['description'],
    );
    $form[$id]['purl_method_' . $id] = array(
      '#title' => t('Method'),
      '#type' => 'select',
      '#options' => $provider_options,
      '#default_value' => variable_get('purl_method_' . $id, 'path'),
    );

    // Allow processors to alter the form.
    foreach ($provider_options as $k => $v) {
      purl_get_processor($k)
        ->admin_form($form, $id);
    }
  }
  $form = system_settings_form($form);
  $form['#theme'] = 'purl_settings_form';
  return $form;
}

/**
 * Validate a key element and move its value to the correct key if validated.
 */
function purl_admin_form_key_validate(&$element, &$form_state) {

  // Check for string identifier sanity
  if (!empty($element['#value'])) {
    if (!preg_match('!^[A-Za-z0-9_-]+$!', $element['#value'])) {
      form_set_error($element['#name'], t('The key may only consist of letters, numbers, dashes and underscores.'));
    }
    else {
      $form_state['values']["purl_method_{$element['#provider_id']}_key"] = $element['#value'];
    }
  }
  unset($form_state['values'][$element['#name']]);
}

/**
 * Validate that an element has been set with a fully qualified domain name.
 */
function purl_validate_fqdn(&$element, &$form_state) {
  if (!empty($element['#value']) && !valid_url($element['#value'], TRUE)) {
    form_set_error($element['#name'], t('The domain must be a fully qualified domain name of the form `http://www.example.com`.'));
  }
}

/**
 * Theme function for purl_settings_form()
 */
function theme_purl_settings_form($form) {
  $output = '';
  $rows = array();
  foreach (element_children($form) as $id) {
    $row = array();
    if (isset($form[$id]['#provider'])) {
      $name = $form[$id]['#title'];
      $description = $form[$id]['#description'];
      unset($form[$id]['#title']);
      unset($form[$id]['#description']);
      $row[] = "<strong>{$name}</strong><div class='description'>{$description}</div>";
      $cell = $extra = '';
      foreach (element_children($form[$id]) as $item) {
        unset($form[$id][$item]['#title']);
        if ($item == 'extra') {
          $extra = drupal_render($form[$id][$item]);
        }
        $cell .= drupal_render($form[$id][$item]);
      }
      $row[] = $cell;
      $row[] = $extra;
    }
    $rows[] = $row;
  }
  $output .= theme('table', array(
    t('Provider'),
    t('Modifier type'),
    t('Settings'),
  ), $rows);
  $output .= drupal_render($form);
  drupal_add_js(drupal_get_path("module", "purl") . "/purl.admin.js");
  return $output;
}

/**
 * Allow administrators to enable purl methods.
 */
function purl_types_form() {
  $form = array();
  $form['purl_types'] = array(
    '#type' => 'checkboxes',
    '#title' => t('Types'),
    '#options' => _purl_options(false),
    '#default_value' => variable_get('purl_types', array()),
    '#description' => t('Enabled URL modification types.'),
  );
  return system_settings_form($form);
}

/**
 * Private implementation of hook_form_alter()
 */
function _purl_form_alter(&$form, &$form_state, $form_id) {
  if ($form_id == 'menu_edit_menu') {
    if (isset($form['menu_name']['#value'])) {
      $form['purl'] = array(
        '#tree' => true,
        '#type' => 'fieldset',
        '#title' => t('Persistent URL behavior'),
        '#description' => t('All links are normally rewritten to contain the active persistent url elements. You may set all items in this menu to maintain existing modifications (the default), or to discard them.'),
      );
      $form['purl']['rewrite'] = array(
        '#type' => 'select',
        '#options' => array(
          'enabled' => t("Maintain"),
          'disabled' => "Discard",
        ),
        '#title' => t('Behavior'),
        '#default_value' => variable_get('purl_menu_behavior_' . $form['menu_name']['#value'], 'enabled'),
      );
      $form['purl']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Submit'),
        '#submit' => array(
          'purl_menu_edit_submit',
        ),
      );
    }
  }
  elseif ($form_id == 'menu_edit_item') {
    $options = $form['menu']['options']['#value'];
    $form['purl'] = array(
      '#tree' => true,
      '#type' => 'fieldset',
      '#title' => t('Persistent URL'),
      '#weight' => -1,
    );
    $form['purl']['disabled'] = array(
      '#type' => 'select',
      '#options' => array(
        0 => t("Maintain"),
        1 => "Discard",
      ),
      '#title' => t('Behavior'),
      '#description' => t('All links are normally rewritten to contain the active persistent url elements. You may set this item to maintain existing modifications (the default), or to discard them.'),
      '#default_value' => isset($options['purl']) && isset($options['purl']['disabled']) ? $options['purl']['disabled'] : 0,
    );

    // Fetch all modifiers.
    $modifiers = array(
      '' => t('<none>'),
    );
    $methods = _purl_options();
    foreach (array_keys($methods) as $method) {
      foreach (purl_modifiers($method) as $value => $info) {
        $modifiers[$info['provider'] . ':' . $info['id']] = $value;
      }
    }
    asort($modifiers);
    $form['purl']['modifier'] = array(
      '#type' => 'select',
      '#options' => $modifiers,
      '#title' => t('Modifier'),
      '#description' => t('Enter a Persistent URL modifier to be used with this path.'),
      '#default_value' => isset($options['purl']) && isset($options['purl']['provider']) && isset($options['purl']['id']) ? $options['purl']['provider'] . ':' . $options['purl']['id'] : '',
    );
    $form['#validate'][] = 'purl_item_edit_validate';
    $form['#submit'][] = 'purl_item_edit_submit';
  }
}

// Submit handler for menu_edit_menu
function purl_menu_edit_submit($form, &$form_state) {
  $menu = $form_state['values'];
  $tree = menu_tree_all_data($menu['menu_name']);

  // Recurse through all items and set each.
  _purl_menu_edit_submit_recurse($tree, $menu['purl']['rewrite']);
  menu_cache_clear($menu['menu_name']);
  if ($menu['purl']['rewrite'] == 'disabled') {
    variable_set('purl_menu_behavior_' . $menu['menu_name'], 'disabled');
  }
  else {
    variable_del('purl_menu_behavior_' . $menu['menu_name']);
  }
}

/**
 * Recuses though a menu tree and applies a purl behavior to each link.
 *
 *  @param $tree
 *    A (portion) of a menu tree as generated by menu_tree_all_data()
 *  @param $behavior
 *   The purl behavior to save in the options array of the menu links. Either
 *   'enabled' or 'disabled'.
 */
function _purl_menu_edit_submit_recurse($tree, $behavior) {
  foreach ($tree as $id => $item) {
    $link = $tree[$id]['link'];
    if ($behavior == 'disabled') {
      $link['options']['purl'] = 'disabled';
    }
    else {
      unset($link['options']['purl']);
    }
    menu_link_save($link);
    if ($link['has_children']) {
      _purl_menu_edit_submit_recurse($tree[$id]['below'], $behavior);
    }
  }
}

/**
 * Validate handler for menu_edit_item
 *
 * Doesn't actually validate, but rather moves data to where
 * menu_edit_item_submit() expects it.
 */
function purl_item_edit_validate($form, &$form_state) {
  $form_state['values']['menu']['options']['purl'] = array();
  if (!empty($form_state['values']['purl']['modifier'])) {
    list($provider, $id) = explode(':', $form_state['values']['purl']['modifier']);
    $form_state['values']['menu']['options']['purl']['provider'] = $provider;
    $form_state['values']['menu']['options']['purl']['id'] = $id;
  }
  if (!empty($form_state['values']['purl']['disabled'])) {
    $form_state['values']['menu']['options']['purl']['disabled'] = 1;
  }
  if (empty($form_state['values']['menu']['options']['purl'])) {
    unset($form_state['values']['menu']['options']['purl']);
  }
}

// Submit handler for menu_edit_item
function purl_item_edit_submit($form, &$form_state) {
  menu_cache_clear($form_state['values']['menu']['menu_name']);
}

Functions

Name	Description
purl_admin	Page callback for the purl administration page.
purl_admin_form_key_validate	Validate a key element and move its value to the correct key if validated.
purl_item_edit_submit
purl_item_edit_validate	Validate handler for menu_edit_item
purl_menu_edit_submit
purl_settings_form	Settings form for choosing the operating mode of purl
purl_types_form	Allow administrators to enable purl methods.
purl_validate_fqdn	Validate that an element has been set with a fully qualified domain name.
theme_purl_settings_form	Theme function for purl_settings_form()
_purl_form_alter	Private implementation of hook_form_alter()
_purl_menu_edit_submit_recurse	Recuses though a menu tree and applies a purl behavior to each link.