You are here

libraries.admin.inc in Libraries API 7.2

Provides administrative page and form callbacks for Libraries module.

File

libraries.admin.inc
View source
<?php

/**
 * @file
 * Provides administrative page and form callbacks for Libraries module.
 */

/**
 * Form generation callback for the libraries overview table.
 *
 * This is a form instead of a page to allow easier extending in contributed
 * modules.
 *
 * @param array $form
 *   An associative array containing the structure of the form.
 * @param array $form_state
 *   A keyed array containing the current state of the form.
 *
 * @return array
 *   The form array for the overview form.
 */
function libraries_admin_overview(array $form, array &$form_state) {

  // Only show variants for installed libraries.
  $header_installed = array(
    t('Name'),
    t('Version'),
    t('Variants'),
    t('Dependencies'),
    t('Provider'),
    t('Links'),
  );

  // Only show status for libraries with an error.
  $header_error = array(
    t('Name'),
    t('Status'),
    t('Version'),
    t('Dependencies'),
    t('Provider'),
    t('Links'),
  );

  // For unregistered libraries the only information we can show is the path.
  $header_unregistered = array(
    t('Name'),
    t('Path'),
  );
  $rows_installed = array();
  $rows_error = array();
  $rows_unregistered = array();

  // Registered libraries: we prefer to use libraries_detect() since it provides
  // library metadata.
  $libraries_registered = libraries_detect();
  uasort($libraries_registered, 'libraries_admin_sort_title');

  // Unregistered libraries: modules can depend on Libraries API without sharing
  // metadata by using libraries_get_path(). Libraries can also be placed in the
  // filesystem that are incorrectly installed, a wrong version, or a standalone
  // not connected to any module. In these cases, libraries_get_libraries()
  // provides a full library list. Libraries found by libraries_get_libraries(),
  // but not identified by libraries_detect, are displayed in a separate table.
  $libraries_unregistered = libraries_get_libraries();
  natcasesort($libraries_unregistered);
  foreach ($libraries_registered as $machine_name => $library) {
    $actions = array();
    $row = array();
    if ($library['vendor url']) {
      $actions[] = l(t('Homepage'), $library['vendor url']);
    }
    if ($library['download url']) {
      $actions[] = l(t('Download'), $library['download url']);
    }
    $row['data'][] = l($library['name'], 'admin/reports/libraries/' . $machine_name);

    // Only show status for libraries with an error. See above.
    if (!$library['installed']) {
      $row['data'][] = drupal_ucfirst($library['error']);
    }
    $row['data'][] = isset($library['version']) ? $library['version'] : '';
    if ($library['installed']) {
      $row['data'][] = implode(', ', array_keys($library['variants']));
    }
    $row['data'][] = libraries_admin_get_dependencies($library);
    $row['data'][] = libraries_admin_get_provider_with_type($library);
    $row['data'][] = implode(' | ', $actions);
    $row['class'] = $library['installed'] ? array(
      'ok',
    ) : array(
      'warning',
    );
    if ($library['installed']) {
      $rows_installed[] = $row;
    }
    else {
      $rows_error[] = $row;
    }

    // Filter registered libraries from unregistered libraries.
    unset($libraries_unregistered[$library['machine name']]);
  }

  // Build table of registered libraries with installed status.
  $form['libraries']['installed'] = array(
    '#theme' => 'libraries_table_with_title',
    '#title' => t('Installed'),
    '#header' => $header_installed,
    '#rows' => $rows_installed,
    '#description' => t('These libraries are registered and installed correctly.'),
    '#empty' => t('There are currently no libraries that are registered and installed.'),
  );

  // Build table of registered libraries with error status.
  $form['libraries']['error'] = array(
    '#theme' => 'libraries_table_with_title',
    '#title' => t('Uninstalled'),
    '#header' => $header_error,
    '#rows' => $rows_error,
    '#description' => t('These libraries are registered but not installed. They may not need to be installed in case a module or theme provides optional integration with a library.'),
    '#empty' => t('There are currently no libraries that are registered but not installed.'),
  );

  // Build table of unregistered libraries.
  foreach ($libraries_unregistered as $name => $path) {
    $rows_unregistered[] = array(
      'data' => array(
        $name,
        $path,
      ),
    );
  }
  $form['libraries']['unregistered'] = array(
    '#theme' => 'libraries_table_with_title',
    '#title' => t('Unregistered'),
    '#header' => $header_unregistered,
    '#rows' => $rows_unregistered,
    '#description' => t('These libraries were found in the filesystem but there is no metadata about them.'),
    // Do not show the table at all, if there are no unregistered libraries.
    '#access' => (bool) $libraries_unregistered,
  );

  // Clear the cached library information so that the library can be loaded if
  // it was just downloaded. Because these instructions use libraries_detect()
  // directly, they will never use the cached information, but this avoids the
  // overview showing a library as installed but it not being loadable.
  libraries_cache_clear();
  return $form;
}

/**
 * Form generation callback for the status overview for a single library.
 *
 * This is a form instead of a page to allow easier extending in contributed
 * modules.
 *
 * @param array $form
 *   An associative array containing the structure of the form.
 * @param array $form_state
 *   A keyed array containing the current state of the form.
 * @param array $library
 *   A library information array.
 *
 * @return array|null
 *   The form array for the status form or NULL if the library was not found.
 *
 * @todo Add some var_export($library)-style output
 */
function libraries_admin_library_status_form(array $form, array &$form_state, $library) {
  drupal_set_title(t('Status report for library %library', array(
    '%library' => $library['name'],
  )), PASS_THROUGH);
  if ($library['installed']) {
    drupal_set_message(t('The %name library is installed correctly.', array(
      '%name' => $library['name'],
    )));
    $form['status'] = libraries_admin_status_table($library);
  }
  else {
    drupal_set_message($library['error message'], 'error');
    switch ($library['error']) {
      case 'not found':
        $form['instructions'] = libraries_admin_instructions_missing($library);
        break;
      case 'not detected':
        $form['instructions'] = libraries_admin_instructions_undetected($library);
        break;
      case 'not supported':
        $form['instructions'] = libraries_admin_instructions_unsupported($library);
        break;
      case 'missing dependency':
        $form['instructions']['instruction']['#markup'] = t('There is a missing dependency in your configuration that prevents this library from working properly.') . '<br>';
        break;
      case 'incompatible dependency':
        $form['instructions']['instruction']['#markup'] = t('There is an incompatible dependency in your configuration that prevents this library from working properly.') . '<br>';
        break;
    }
  }
  return $form;
}

/**
 * Displays a table of status information about a library.
 *
 * @param array $library
 *   A library information array.
 *
 * @return array
 *   A renderable array containing a table with status information.
 */
function libraries_admin_status_table(array $library) {
  $header = array(
    array(
      // @todo The title implies that other type of information is displayed, as
      //   well, but this is currently not the case.
      // @todo Use CSS instead of a <strong> element.
      'data' => '<strong>' . t('General information') . '</strong>',
      'colspan' => 2,
      'class' => 'table-heading',
      'no_striping' => TRUE,
    ),
  );
  $rows = array();

  // @todo Use CSS instead of <strong> elements.
  $rows['name'] = array(
    '<strong>' . t('Name') . '</strong>',
    check_plain($library['name']),
  );
  $rows['machine_name'] = array(
    '<strong>' . t('Machine name') . '</strong>',
    check_plain($library['machine name']),
  );
  if ($library['vendor url']) {
    $rows['vendor_url'] = array(
      '<strong>' . t('Vendor URL') . '</strong>',
      l($library['vendor url'], $library['vendor url']),
    );
  }
  if ($library['download url']) {
    $rows['download_url'] = array(
      '<strong>' . t('Download URL') . '</strong>',
      l($library['download url'], $library['download url']),
    );
  }
  $rows['provider'] = array(
    '<strong>' . t('Provider') . '</strong>',
    libraries_admin_get_provider_with_type($library),
  );
  $rows['library_path'] = array(
    '<strong>' . t('Library path') . '</strong>',
    $library['library path'],
  );
  $rows['version'] = array(
    '<strong>' . t('Version') . '</strong>',
    $library['version'],
  );
  if (!empty($library['variants'])) {
    $rows['variants'] = array(
      '<strong>' . t('Variants') . '</strong>',
      implode(', ', array_keys($library['variants'])),
    );
  }
  return array(
    '#theme' => 'table',
    '#header' => $header,
    '#rows' => $rows,
  );
}

/**
 * Returns instructions for dealing with a missing library.
 *
 * @param array $library
 *   A library information array.
 *
 * @return array
 *   A renderable array containing the instructions.
 */
function libraries_admin_instructions_missing(array $library) {
  $build = array();
  $build['instruction']['#markup'] = t('Follow these steps to install the library:');
  $items = array();

  // 1. Download the library.
  // If no supported versions are specified, the latest version is
  // recommended.
  if (empty($library['versions'])) {
    $items[] = t('Download the latest version of the library <a href="@download-url">here</a>.', array(
      '@download-url' => $library['download url'],
    ));
  }
  else {
    $versions = array_keys($library['versions']);
    usort($versions, 'version_compare');
    $versions = array_reverse($versions);
    $version = $versions[0];
    $items[] = t('Download version %version of the library <a href="@download-url">here</a>.', array(
      '%version' => $version,
      '@download-url' => $library['download url'],
    ));
  }

  // 2. Unpack it.
  $items[] = t('If the library is an archive, i.e. if the file ending is for example <em>.tar.gz</em> or <em>.zip</em>, unpack it.');

  // 3. Create the libraries folder.
  $items[] = t('In the %library-directory directory of your Drupal installation create a %library directory.', array(
    '%library-directory' => 'sites/all/libraries',
    '%library' => $library['machine name'],
  ));

  // 4. Upload it.
  // If the library has variant-independent files, give the user the
  // location of an example file to check his filesystem against.
  if ($directory_layout = libraries_admin_directory_layout($library)) {
    $items[] = t('Upload the whole library (which can consist of multiple directories) into the newly created %library-path directory. The following files and directories should be contained in that directory: !directory-layout', array(
      '%library-path' => 'sites/all/libraries/' . $library['machine name'],
      '!directory-layout' => drupal_render($directory_layout),
    ));
  }
  else {
    $items[] = t('Upload the whole library (which can consist of multiple directories) into the newly created %library-path directory.', array(
      '%library-path' => 'sites/all/libraries/' . $library['machine name'],
    ));
  }

  // 5. Reload.
  $items[] = t('<a href="">Reload</a> the page. If successful, you should see status information about this library.');
  $build['steps'] = array(
    '#theme' => 'item_list',
    '#items' => $items,
    '#type' => 'ol',
  );
  return $build;
}

/**
 * Returns instructions for dealing with an undetected library.
 *
 * @param array $library
 *   A library information array.
 *
 * @return array
 *   A renderable array containing the instructions.
 */
function libraries_admin_instructions_undetected($library) {
  $build = array();

  // Re-check location.
  // @todo Avoid usage of <br> elements.
  $build['instruction']['#markup'] = t('Check that the whole library is located at %library-path.', array(
    '%library-path' => $library['library path'],
  )) . '<br>';

  // If the library has variant-independent files, give the user the
  // exact location of the files to check against.
  // @todo It should be possible to display even variant-specific files
  //   in case the variant is installed, but libraries_detect() does not
  //   detect variants if the library version cannot be detected.
  if ($directory_layout = libraries_admin_directory_layout($library)) {
    $build['directory_layout'] = $directory_layout;
    $build['directory_layout']['#prefix'] = t('The following files and directories should be contained in that directory:');
  }

  // If the library is placed correctly the library information is
  // incorrect.
  // This switch could be avoided by using $library['info type'], but that would
  // hinder properly translating these strings.
  $build['reload']['#markup'] = t('If you have moved any files, <a href="">reload</a> the page. If successful, you should see status information about this library.') . '<br>';
  $build['notice']['#markup'] = t('If the files are placed correctly and the version can still not be detected, the library information is incorrect.') . '<br>';
  $provider = libraries_admin_get_provider($library);
  switch ($library['info type']) {
    case 'module':
      $build['contact']['#markup'] = t('Contact the maintainer of the %module module to correct this.', array(
        '%module' => $provider,
      )) . '<br>';
      break;
    case 'theme':
      $build['contact']['#markup'] = t('Contact the maintainer of the %theme theme to correct this.', array(
        '%theme' => $provider,
      )) . '<br>';
      break;
    case 'info file':
      $build['contact']['#markup'] = t('Contact the maintainer of the %info-file info file to correct this.', array(
        '%info-file' => $provider,
      )) . '<br>';
      break;
  }
  return $build;
}

/**
 * Returns instructions for dealing with an unsupported library.
 *
 * @param array $library
 *   A library information array.
 *
 * @return array
 *   A renderable array containing the instructions.
 */
function libraries_admin_instructions_unsupported($library) {
  $build = array();
  $items = array();

  // Either download a different version of the library...
  $versions = array_keys($library['versions']);
  usort($versions, 'version_compare');
  $versions = array_reverse($versions);
  $version = $versions[0];
  $build['instruction']['#markup'] = t('Please install version %version of the library by following the following steps:', array(
    '%version' => $version,
  ));

  // 1. Delete the old library.
  $items[] = t('Delete the entire contents of the %library-path directory.', array(
    '%library-path' => $library['library path'],
  ));

  // 2. Download the new library.
  $items[] = t('Download version %version of the library <a href="@download-url">here</a>.', array(
    '%version' => $version,
    '@download-url' => $library['download url'],
  ));

  // 3. Unpack it.
  $items[] = t('If the library is an archive, i.e. if the file ending is for example <em>.tar.gz</em> or <em>.zip</em>, unpack it.');

  // 4. Upload the new library.
  // If the library has variant-independent files, give the user the
  // location of an example file to check his filesystem against.
  if ($directory_layout = libraries_admin_directory_layout($library)) {
    $items[] = t('Upload the new files into the %library-path directory. The following files and directories should be contained in that directory: !directory-layout', array(
      '%library-path' => $library['library path'],
      '!directory-layout' => drupal_render($directory_layout),
    ));
  }
  else {
    $items[] = t('Upload the new files into the %library-path directory.', array(
      '%library-path' => $library['library path'],
    ));
  }

  // 5. Reload.
  $items[] = t('<a href="">Reload</a> the page. If successful, you should see status information about this library.');
  $build['steps'] = array(
    '#theme' => 'item_list',
    '#items' => $items,
    '#type' => 'ol',
  );

  // ...or contact the maintainer of the library information.
  $provider = libraries_admin_get_provider($library);
  switch ($library['info type']) {
    case 'module':
      $build['contact']['#markup'] = t('If you are bound to version @version of the library, ask the maintainer of the %module module to provide support for it.', array(
        '@version' => $library['version'],
        '%module' => $provider,
      )) . '<br>';
      break;
    case 'theme':
      $build['contact']['#markup'] = t('If you are bound to version @version of the library, ask the maintainer of the %theme theme to provide support for it.', array(
        '@version' => $library['version'],
        '%theme' => $provider,
      )) . '<br>';
      break;
    case 'info file':
      $build['contact']['#markup'] = t('If you are bound to version @version of the library, ask the maintainer of the %info-file info file to provide support for it.', array(
        '@version' => $library['version'],
        '%info-file' => $provider,
      )) . '<br>';
      break;
  }
  return $build;
}

/**
 * Returns the directory layout of the library, if possible.
 *
 * The result of this function can help users to verify that they have uploaded
 * the library to the correct location.
 *
 * @param array $library
 *   A library information array.
 *
 * @return array|false
 *   A renderable array containing the directory layout of the library or FALSE
 *   if a directory layout could not be generated.
 */
function libraries_admin_directory_layout(array $library) {
  $build = array(
    '#theme' => 'item_list',
    '#type' => 'ul',
    '#items' => array(),
  );
  $items =& $build['#items'];
  if ($library['path']) {
    $items =& libraries_admin_path_to_tree($items, $library['path']);
  }
  foreach (array(
    'js',
    'css',
    'php',
  ) as $type) {
    if (!empty($library['files'][$type])) {
      $files = array_keys($library['files'][$type]);
      foreach ($files as $file) {

        // Skip JavaScript settings.
        if (is_int($file)) {
          continue;
        }
        $children =& $items;
        libraries_admin_path_to_tree($children, $file);
      }
    }
  }
  return $build['#items'] ? $build : FALSE;
}

/**
 * Converts a file path into a tree structure for use in an item list.
 *
 * For example, the path 'foo/bar/baz' will be converted into the tree structure
 * represented by the following list:
 * - foo
 *   - bar
 *     - baz
 *
 * The $items array that is modified by reference or returned (see below) can
 * be used as the 'items' variable for theme_item_list().
 *
 * This function modifies passed-in $items array, so that multiple paths can
 * be placed into the same tree structure easily.
 *
 * @code
 *   $items = array();
 *   foreach ($paths as $path) {
 *     libraries_admin_path_to_tree($items, $path);
 *   }
 * @endcode
 *
 * It also returns the last item by reference, so that it can also be used to
 * traverse into a sub-structure and add further children there.
 *
 * @code
 *   $items = array();
 *   $children = &libraries_admin_path_to_tree($items, $path);
 *   foreach ($sub_paths as $sub_path) {
 *     libraries_admin_path_to_tree($children, $sub_path);
 *   }
 * @endcode
 *
 * @param array $items
 * @param string $path
 *
 * @return array
 */
function &libraries_admin_path_to_tree(array &$items, $path) {
  $part = strtok($path, '/');
  while ($part) {
    if (!isset($items[$part])) {
      $items[$part] = array(
        'data' => $part,
        'children' => array(),
      );
    }
    $items =& $items[$part]['children'];
    $part = strtok('/');
  }
  return $items;
}

/**
 * Sorts libraries by name.
 *
 * This function can be used as a callback for usort() or uasort().
 *
 * @param array $a
 *   The first library information array.
 * @param array $b
 *   The second library information array.
 *
 * @return int
 *   Returns -1 if $a is considered smaller than $b, 1 if $a considered greater
 *   than $b and 0 if $a and $b are considered equal.
 *
 * @see strnatcasecmp()
 * @see usort()
 * @see uasort()
 */
function libraries_admin_sort_title(array $a, array $b) {
  return strnatcasecmp($a['name'], $b['name']);
}

/**
 * Returns the library's dependencies, if any.
 *
 * @param array $library
 *   A library information array.
 *
 * @return string
 *   The dependencies.
 */
function libraries_admin_get_dependencies($library) {
  $dependencies = array();
  foreach ($library['dependencies'] as $dependency_name) {
    if ($dependency = libraries_info($dependency_name)) {
      $dependencies[] = $dependency['name'];
    }
    else {
      $dependencies[] = $dependency_name;
    }
  }
  return implode(', ', $dependencies);
}

/**
 * Returns the library's provider.
 *
 * The provider can be a module, a theme, or an info file.
 *
 * @param array $library
 *   A library information array.
 *
 * @return string
 *   The provider.
 */
function libraries_admin_get_provider($library) {
  $provider = '';
  switch ($library['info type']) {
    case 'module':
    case 'theme':
      $info = system_get_info($library['info type'], $library[$library['info type']]);
      $provider = $info['name'];
      break;
    case 'info file':
      $provider = basename($library['info file']);
      break;
  }
  return $provider;
}

/**
 * Returns the library's provider and provider type.
 *
 * The provider type is either 'module', 'theme', or 'info file'.
 *
 * @param array $library
 *   A library information array.
 *
 * @return string
 *   The provider and provider type.
 */
function libraries_admin_get_provider_with_type($library) {
  $provider = libraries_admin_get_provider($library);
  $provider_with_type = '';

  // This switch could be avoided by using $library['info type'], but that would
  // hinder properly translating these strings.
  switch ($library['info type']) {
    case 'module':
      $provider_with_type = t('%module module', array(
        '%module' => $provider,
      ));
      break;
    case 'theme':
      $provider_with_type = t('%theme theme', array(
        '%theme' => $provider,
      ));
      break;
    case 'info file':
      $provider_with_type = t('%info-file info file', array(
        '%info-file' => $provider,
      ));
      break;
  }
  return $provider_with_type;
}

Functions

Namesort descending Description
libraries_admin_directory_layout Returns the directory layout of the library, if possible.
libraries_admin_get_dependencies Returns the library's dependencies, if any.
libraries_admin_get_provider Returns the library's provider.
libraries_admin_get_provider_with_type Returns the library's provider and provider type.
libraries_admin_instructions_missing Returns instructions for dealing with a missing library.
libraries_admin_instructions_undetected Returns instructions for dealing with an undetected library.
libraries_admin_instructions_unsupported Returns instructions for dealing with an unsupported library.
libraries_admin_library_status_form Form generation callback for the status overview for a single library.
libraries_admin_overview Form generation callback for the libraries overview table.
libraries_admin_path_to_tree Converts a file path into a tree structure for use in an item list.
libraries_admin_sort_title Sorts libraries by name.
libraries_admin_status_table Displays a table of status information about a library.