<?php
// $Id: nodewords_basic.module,v 1.8 2009-10-25 08:21:14 kiam Exp $

/**
 * @file
 * Allows users to add basic meta tags to Drupal pages.
 */

/**
 * @addtogroup nodewords_basic
 * @{
 */

/*****************************************************************************
 * Drupal hooks.
 ****************************************************************************/

/**
 * Implementation of hook_node_type().
 */
function nodewords_basic_node_type($op) {
  switch ($op){
    case 'delete':
      variable_del('nodewords_use_teaser_' . $info->type);
      break;
    case 'update':
      if (!empty($info->old_type) && $info->old_type != $info->type) {
        $setting = variable_get('nodewords_use_teaser_' . $info->old_type, FALSE);
        variable_del('nodewords_use_teaser_' . $info->old_type);
        variable_set('nodewords_use_teaser_' . $info->type, $setting);
      }
      break;
  }
}

/**
 * Implementation of hook_nodewords_api().
 */
function nodewords_basic_nodewords_api() {
  return array(
    'version' => 1.1,
  );
}

/**
 * Implementation of hook_nodewords_tags_info().
 */
function nodewords_basic_nodewords_tags_info() {
  $tags = array(
    'abstract' => array(
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_abstract',
      'tag:template' => array('abstract' => NODEWORDS_META),
      'tag:tokens' => TRUE,
      'widget:label' => t('Abstract'),
      'widget:permission' => 'edit meta tag ABSTRACT',
    ),
    'canonical' => array(
      'tag:context:denied' => array(NODEWORDS_MT_TYPE_DEFAULT, NODEWORDS_MT_TYPE_ERRORPAGE, NODEWORDS_MT_TYPE_TRACKER, NODEWORDS_MT_TYPE_PAGER),
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_canonical',
      'tag:pager' => TRUE,
      'tag:template' => array('canonical' => NODEWORDS_LINK_REL),
      'tag:weight' => array('schema.dc' => -20),
      'widget:label' => t('Canonical URL'),
      'widget:permission' => 'edit canonical URL meta tag',
    ),
    'copyright' => array(
      'tag:context:denied' => array(NODEWORDS_MT_TYPE_PAGER),
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_copyright',
      'tag:template' => array('copyright' => NODEWORDS_META),
      'tag:tokens' => TRUE,
      'widget:label' => t('Copyright'),
      'widget:permission' => 'edit meta tag COPYRIGHT',
    ),
    'description' => array(
      'tag:context:denied' => array(NODEWORDS_MT_TYPE_PAGER),
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_description',
      'tag:template' => array('description' => NODEWORDS_META),
      'tag:template:index' => '<h3>%content</h3>',
      'tag:tokens' => TRUE,
      'widget:label' => t('Description'),
      'widget:permission' => 'edit meta tag DESCRIPTION',
    ),
    'keywords' => array(
      'tag:context:denied' => array(NODEWORDS_MT_TYPE_PAGER),
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_keywords',
      'tag:template' => array('keywords' => NODEWORDS_META),
      'tag:template:index' => '<h2>%content</h2>',
      'tag:tokens' => TRUE,
      'widget:label' => t('Keywords'),
      'widget:permission' => 'edit meta tag KEYWORDS',
    ),
    'revisit-after' => array(
      'tag:db:type' => 'string',
      'tag:function:prefix' => 'nodewords_basic_revisit_after',
      'tag:template' => array('revisit-after' => NODEWORDS_META),
      'widget:label' => t('Revisit after'),
      'widget:permission' => 'edit meta tag REVISIT-AFTER',
    ),
    'robots' => array(
      'tag:db:type' => 'array',
      'tag:function:prefix' => 'nodewords_basic_robots',
      'tag:template' => array('robots' => NODEWORDS_META),
      'widget:label' => t('Robots'),
      'widget:permission' => 'edit meta tag ROBOTS',
    ),
  );

  return $tags;
}

/**
 * Implementation of hook_perm().
 */
function nodewords_basic_perm() {
  return array(
    'edit meta tag ABSTRACT',
    'edit canonical URL meta tag',
    'edit meta tag COPYRIGHT',
    'edit meta tag DESCRIPTION',
    'edit meta tag KEYWORDS',
    'edit meta tag REVISIT-AFTER',
    'edit meta tag ROBOTS',
  );
}

/*****************************************************************************
 * Meta tags implementation functions.
 ****************************************************************************/

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_abstract_form(&$form, $content, $options) {
  $form['abstract'] = array(
    '#type' => 'fieldset',
    '#title' => t('Abstract'),
    '#description' => t('Enter a short abstract. Typically it is one sentence.'),
    '#collapsible' => TRUE,
    '#collapsed' => !(empty($content['value']) && empty($options['default']['abstract']['value'])),
    '#tree' => TRUE,
  );

  $form['abstract']['value'] = array(
    '#type' => 'textfield',
    '#default_value' => empty($content['value']) ? (!empty($options['default']['abstract']['value']) ? $options['default']['abstract']['value'] : '') : $content['value'],
    '#size' => 60,
    '#maxlength' => variable_get('nodewords_max_size', 350),
  );
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_abstract_prepare(&$tags, $content, $options) {
  $value = empty($content['value']) ? (!empty($options['default']['abstract']['value']) ? $options['default']['abstract']['value'] : '') : $content['value'];
  $tags['abstract'] = nodewords_replace_tokens($options['type'], $options['ids'], $value);
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_canonical_form(&$form, $content, $options) {
  $form['canonical'] = array(
    '#type' => 'fieldset',
    '#title' => t('Canonical URL'),
    '#description' => t('Canonical URLs are used from the search engines, and allow them to not report duplicate titles for HTML pages that are accessible from different URLs. Use a relative URL without the initial slash; canonical URLs that point to a different domain are normally not accepted.'),
    '#collapsible' => TRUE,
    '#collapsed' => !empty($content['value']),
    '#tree' => TRUE,
  );

  $form['canonical']['value'] = array(
    '#type' => 'textfield',
    '#default_value' => empty($content['value']) ? '' : $content['value'],
    '#element_validate' => array('nodewords_basic_canonical_form_validate'),
    '#size' => 60,
    '#maxlength' => variable_get('nodewords_max_size', 350),
  );
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_canonical_prepare(&$tags, $content, $options) {
  if (empty($content['value'])) {
    $path = '';

    switch ($options['type']) {
      case NODEWORDS_MT_TYPE_FRONTPAGE:
        $content['value'] = '<front>';
        break;

      case NODEWORDS_MT_TYPE_NODE:
        if (count($options['ids']) == 1) {
          $path = 'node/' . $options['ids'][0];
        }
        break;

      case NODEWORDS_MT_TYPE_PAGE:
        if (count($options['ids']) == 1 && !empty($options['ids'][0])) {
          $path = $options['ids'][0];
        }
        break;

      case NODEWORDS_MT_TYPE_TERM:
        if (count($options['ids']) == 1) {
          $path = 'taxonomy/term/' . $options['ids'][0];
        }
        break;

      case NODEWORDS_MT_TYPE_TRACKER:
        if (count($options['ids']) == 1) {
          if ($options['ids'][0] = -1) {
            $path = 'tracker';
          }
          elseif (is_numeric($options['ids'][0])) {
            $path = 'user/' . $options['ids'][0] . '/track';
          }
        }
        break;

      case NODEWORDS_MT_TYPE_USER:
        if (count($options['ids']) == 1) {
          $path = 'user/' . $options['ids'][0];
        }
        break;

      default:
        $path = $_GET['q'];
    }

    if ($path) {
      $content['value'] = drupal_get_path_alias($path);
    }
  }
  elseif (!empty($content['value']) && strpos($content['value'], '/') === 0) {
    $content['value'] = drupal_substr($content['value'], 1);
  }

  $tags['canonical'] = !empty($content['value']) ? check_url(url($content['value'], array('absolute' => TRUE))) : '';
}

function nodewords_basic_canonical_form_validate($element, &$form_state) {
  if (!empty($element['#value']) && preg_match('%^(http://|https://|ftp://|mailto:|smb://|afp://|file://|gopher://|news://|ssl://|sslv2://|sslv3://|tls://|tcp://|udp://)%', $element['#value'])) {
    form_error($element, t('Canonical URL must be a relative URL.'));
  }
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_copyright_form(&$form, $content, $options) {
  $form['copyright'] = array(
    '#type' => 'fieldset',
    '#title' => t('Copyright'),
    '#description' => t('Enter a short copyright statement.'),
    '#collapsible' => TRUE,
    '#collapsed' => !(empty($content['value']) && empty($options['default']['copyright']['value'])),
    '#tree' => TRUE,
  );

  $form['copyright']['value'] = array(
    '#type' => 'textfield',
    '#default_value' => empty($content['value']) ? (!empty($options['default']['copyright']['value']) ? $options['default']['copyright']['value'] : '') : $content['value'],
    '#size' => 60,
    '#maxlength' => variable_get('nodewords_max_size', 350),
  );
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_copyright_prepare(&$tags, $content, $options) {
  $value = empty($content['value']) ? (!empty($options['default']['copyright']['value']) ? $options['default']['copyright']['value'] : '') : $content['value'];
  $tags['copyright'] = nodewords_replace_tokens($options['type'], $options['ids'], $value);
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_description_form(&$form, $content, $options) {
  $bool = (
    isset($options['node_type']) &&
    variable_get('nodewords_use_teaser_' . $options['node_type'], variable_get('nodewords_use_teaser', FALSE))
  );

  if (!$bool) {
    $form['description'] = array(
      '#type' => 'fieldset',
      '#title' => t('Description'),
      '#description' => t('Enter a description. Limit your description to about 20 words, with a maximum of %count characters. It should not contain any HTML tags or other formatting.', array('%count' => variable_get('nodewords_max_size', 350))),
      '#collapsible' => TRUE,
      '#collapsed' => !(empty($content['value']) && empty($options['default']['description']['value'])),
      '#tree' => TRUE,
    );

    $form['description']['value'] = array(
      '#type' => 'textarea',
      '#default_value' => empty($content['value']) ? (!empty($options['default']['description']['value']) ? $options['default']['description']['value'] : '') : $content['value'],
      '#cols' => 60,
      '#rows' => 6,
    );
  }
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_description_prepare(&$tags, $content, $options) {
  switch ($options['type']) {
    case NODEWORDS_MT_TYPE_NODE:
      $bool = (
        count($options['ids']) == 1 &&
        ($node = node_load(array('vid' => $options['ids'][0]))) &&
        variable_get('nodewords_use_teaser_' . $node->type, variable_get('nodewords_use_teaser', FALSE))
      );

      if ($bool) {
        $content['value'] = nodewords_metatag_from_teaser($node->body,
          $node->format,
          variable_get('nodewords_use_alt_attribute', FALSE)
        );
      }
      break;

    case NODEWORDS_MT_TYPE_TERM:
      if (empty($content['value']) && count($options['ids']) == 1) {
        $term = nodewords_get_term($options['ids'][0]);
        if ($term) {
          $content['value'] = $term->description;
        }
      }
        break;

    case NODEWORDS_MT_TYPE_VOCABULARY:
      // TODO: probably we have to do a db_rewrite_sql() query here so access is restricted
      $bool = (
        empty($content['value']) &&
        count($options['ids']) == 1 &&
        ($voc = taxonomy_vocabulary_load($options['ids'][0]))
      );

      if ($bool) {
        $content['value'] = $voc->description;
      }
      break;
  }

  $value = empty($content['value']) ? (!empty($options['default']['description']['value']) ? $options['default']['description']['value'] : '') : $content['value'];
  $tags['description'] = nodewords_replace_tokens($options['type'], $options['ids'], $value);
}

function nodewords_basic_description_settings_form(&$form, $form_id, $options) {
  switch ($form_id) {
    case 'advanced_settings':
      $form['advanced']['nodewords_use_teaser'] = array(
        '#type' => 'checkbox',
        '#title' => t('Use the node teaser if the description meta tag is not set'),
        '#description' => t('Using the node teaser to populate the meta tag DESCRIPTION can cause problems with some content types; rather than enabling this option globally, it would be better to enable it separately for each content type (when it has been verified that enabling it for a specific content type does not create problems). When this option is enabled, the form fields used for the meta tag DESCRIPTION will not appear in the meta tags edit form; this option is overwritten from the similar option for the content type.'),
        '#default_value' => variable_get('nodewords_use_teaser', FALSE),
      );

      $form['advanced']['nodewords_use_alt_attribute'] = array(
        '#type' => 'checkbox',
        '#title' => t('Include the attribute ALT of images in the description meta tag created from the node teaser'),
        '#default_value' => variable_get('nodewords_use_alt_attribute', TRUE),
      );
      break;

    case 'node_type_form':
      $form['nodewords']['nodewords_use_teaser'] = array(
        '#type' => 'checkbox',
        '#title' => t('Use the node teaser if the description meta tag is not set'),
        '#description' => t('Using the node teaser to populate the meta tag DESCRIPTION can cause problems with some content types; before to enable the option permanently, verify it does not create problems when used with the content type. When this option is enabled, the form fields used for the meta tag DESCRIPTION will not appear in the meta tags edit form.'),
        '#default_value' => variable_get('nodewords_use_teaser_' . $form['#node_type']->type, variable_get('nodewords_use_teaser', FALSE)),
      );
      break;
  }
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_keywords_form(&$form, $content, $options) {
  $form['keywords'] = array(
    '#type' => 'fieldset',
    '#title' => t('Keywords'),
    '#description' => t('Enter a comma separated list of keywords. Avoid duplication of words as this will lower your search engine ranking.'),
    '#collapsible' => TRUE,
    '#collapsed' => !(empty($content['value']) && empty($options['default']['keywords']['value'])),
    '#tree' => TRUE,
  );

  $form['keywords']['value'] = array(
    '#type' => 'textfield',
    '#default_value' => empty($content['value']) ? (!empty($options['default']['keywords']['value']) ? $options['default']['keywords']['value'] : '') : $content['value'],
    '#size' => 60,
    '#element_validate' => array('nodewords_basic_keywords_form_validate'),
    '#maxlength' => variable_get('nodewords_max_size', 350),
  );
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_keywords_prepare(&$tags, $content, $options) {
  $value = variable_get('nodewords_global_keywords', '');

  if (empty($content['value'])) {
    $value .= ',' . (!empty($options['default']['keywords']['value']) ? $options['default']['keywords']['value'] : '');
  }
  else {
    $value .= ',' . $content['value'];
  }

  if ($options['type'] == NODEWORDS_MT_TYPE_NODE && module_exists('taxonomy') && count($options['ids']) == 1) {
    $node = node_load(array('vid' => $options['ids'][0]));
    foreach (taxonomy_node_get_terms($node) as $term) {
      if (in_array($term->vid, variable_get('nodewords_keyword_vids', array()))) {
        $value .= ',' . $term->name;
      }
    }
  }
  elseif ($options['type'] == NODEWORDS_MT_TYPE_TERM) {
    $terms = array();

    foreach ($options['ids'] as $id) {
      $term = nodewords_get_term($id);
      if ($term) {
        $terms[] = $term->name;
      }
    }

    if (count($terms)) {
      $value .= ',' . implode(',', $terms);
    }
  }

  $value = nodewords_unique($value);
  $tags['keywords'] = nodewords_replace_tokens($options['type'], $options['ids'], $value);
}

/**
 * Validate the values passed as keywords.
 */
function nodewords_basic_keywords_form_validate($element, &$form_state) {
  if (trim($element['#value']) == ',') {
    form_error($element, t('The meta tag KEYWORDS value must be a comma separated list of words.'));
  }
}

function nodewords_basic_keywords_settings_form(&$form, $form_id, $options) {
  if ($form_id == 'advanced_settings') {
    $form['advanced']['nodewords_global_keywords'] = array(
      '#type' => 'textfield',
      '#title' => t('Global keywords'),
      '#description' => t('Enter a comma separated list of keywords. Global keywords will be always added to each page.'),
      '#default_value' => variable_get('nodewords_global_keywords', ''),
      '#size' => 60,
      '#element_validate' => array('nodewords_basic_keywords_form_validate'),
      '#maxlength' => variable_get('nodewords_max_size', 350),
    );
  }
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_revisit_after_form(&$form, $content, $options) {
  $form['revisit-after'] = array(
    '#type' => 'fieldset',
    '#title' => t('Revisit after'),
    '#description' => t('The Revisit-After META tag defines how often a search engine or spider should come to your website for re-indexing. This tag is used for websites that change their content and on a regular basis. This tag can also be beneficial in boosting your rankings if search engines display results based on the most recent submissions.'),
    '#collapsible' => TRUE,
    '#collapsed' => !(empty($content['value']) && empty($options['default']['revisit-after']['value'])),
    '#tree' => TRUE,
  );

  $form['revisit-after']['value'] = array(
    '#type' => 'textfield',
    '#default_value' => empty($content['value']) ? (!empty($options['default']['revisit-after']['value']) ? (integer) $options['default']['revisit-after']['value'] : 1) : (integer) $content['value'],
    '#size' => 3,
    '#element_validate' => array('nodewords_basic_revisit_after_form_validate'),
    '#maxlength' => 3,
    '#field_suffix' => t('day(s)'),
  );
}

/**
 * Validate the meta tag value.
 */
function nodewords_basic_revisit_after_form_validate($element, &$form_state) {
  if (!preg_match('/^[0-9]*$/', $element['#value'])) {
    form_error($element, t('The meta tag REVISIT-AFTER value must be a positive number.'));
  }
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_revisit_after_prepare(&$tags, $content, $options) {
  $value = empty($content['value']) ? (!empty($options['default']['revisit-after']['value']) ? (integer) $options['default']['revisit-after']['value'] : 1) : (integer) $content['value'];
  $tags['revisit-after'] = $value > 1 ? "$value days" : '1 day';
}

/**
 * Set the form fields used to implement the options for the meta tag.
 */
function nodewords_basic_robots_form(&$form, $content, $options) {
  $field_options = array(
    'noarchive' => t('NOARCHIVE'),
    'nofollow' => t('NOFOLLOW'),
    'noindex' => t('NOINDEX'),
    'noodp' => t('NOODP'),
    'nosnippet' => t('NOSNIPPET'),
    'noydir' => t('NOYDIR'),
  );

  if (isset($content['value']['noopd'])) {
    $content['value']['noodp'] = is_string($content['value']['noopd']) ? 'noodp' : 0;
    unset($content['value']['noopd']);
  }

  $form['robots'] = array(
    '#type' => 'fieldset',
    '#title' => t('Robots'),
    '#description' => t('The meta tag ROBOTS offers a simple mechanism to indicate to web robots and crawlers whether the page should be indexed (NOINDEX) and whether links on the page should be followed (NOFOLLOW).'),
    '#collapsible' => TRUE,
    '#collapsed' => empty($content['value']) ? FALSE : count(array_filter($content['value'])) != 0,
    '#tree' => TRUE,
  );

  $form['robots']['value'] = array(
    '#type' => 'checkboxes',
    '#default_value' => empty($content['value']) ? array() : $content['value'],
    '#options' => $field_options,
    '#checkall' => TRUE,
  );

  if ($options['type'] != NODEWORDS_MT_TYPE_DEFAULT) {
    $form['robots']['use_default'] = array(
      '#type' => 'checkbox',
      '#title' => t('Use the default value'),
      '#default_value' => !empty($content['use_default']),
    );

    if (!empty($options['default']['robots']['value'])) {
      $default_values = array_keys(array_filter($options['default']['robots']['value']));
    }

    if (!empty($default_values)) {
      $description = t(
        'The default value is currently %default_values.',
        array('%default_values' => implode(', ', $default_values))
      );
    }
    else {
      $description = t('The default value is currently not set.');
    }

    $form['robots']['use_default']['#description'] = $description;
  }
}

/**
 * Set the meta tag content.
 */
function nodewords_basic_robots_prepare(&$tags, $content, $options) {
  $value = !empty($content['value']) ? array_keys(array_filter($content['value'])) : array();

  if (empty($value) && !empty($content['use_default'])) {
    $value = !empty($options['default']['robots']['value']) ? array_keys(array_filter($options['default']['robots']['value'])) : array();
  }

  if (!empty($value)) {
    $tags['robots'] = implode(', ', $value);
  }
}

/**
 * @} End of "addtogroup nodewords_basic".
 */