<?php
// $Id: ckeditor_swf.module,v 1.12.2.1 2011/02/13 22:59:17 anrikun Exp $

/**
 * @file
 * Written by Henri MEDOT <henri.medot[AT]absyx[DOT]fr>
 * http://www.absyx.fr
 */

define('CKEDITOR_SWF_CLSID', 'd27cdb6e-ae6d-11cf-96b8-444553540000');

/**
 * Implementation of hook_menu().
 */
function ckeditor_swf_menu() {
  $items['ckeditor_swf/getinfo'] = array(
    'page callback' => 'ckeditor_swf_getinfo',
    'access arguments' => array('access content'),
    'type' => MENU_CALLBACK,
  );
  $items['admin/config/content/ckeditor_swf'] = array(
    'title' => 'CKEditor SWF',
    'description' => 'Configure CKEditor SWF.',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('ckeditor_swf_admin_form'),
    'access callback' => 'ckeditor_swf_admin_access',
    'file' => 'ckeditor_swf.admin.inc',
  );
  $items['admin/config/content/ckeditor_swf/players'] = array(
    'title' => 'Media players',
    'type' => MENU_DEFAULT_LOCAL_TASK,
    'weight' => 0,
  );
  $items['admin/config/content/ckeditor_swf/filter'] = array(
    'title' => 'CKEditor SWF Filter',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('ckeditor_swf_admin_filter_form'),
    'access callback' => 'ckeditor_swf_admin_access',
    'file' => 'ckeditor_swf.admin.inc',
    'type' => MENU_LOCAL_TASK,
    'weight' => 10,
  );
  return $items;
}

function ckeditor_swf_admin_access() {
  return user_access('administer filters') || module_exists('ckeditor') && user_access('administer ckeditor');
}

function ckeditor_swf_getinfo() {
  drupal_add_http_header('Content-Type', 'text/javascript; charset=utf-8');
  $output = 'null';
  $url = check_url($_REQUEST['src']);

  // Attempt to retrieve info using GD2.
  $info = @getimagesize($url);
  if ($info) {
    if ($info['mime'] == 'application/x-shockwave-flash') {
      $output = '{"mime":"application/x-shockwave-flash", "width":'. $info[0] .', "height":'. $info[1] .'}';
    }
  }
  else {
    // Attempt to retrieve info using getID3
    $filename = ckeditor_swf_filename($url);
    if ($filename && ckeditor_swf_getid3_load()) {
      $getid3 = new getID3();
      $info = $getid3->analyze($filename);
      if (isset($info['mime_type'], $info['fileformat'])) {
        $mime = $info['mime_type'];
        $format = $info['fileformat'];
        $prefix = substr($mime, 0, 6);
        if (isset($info['video']['resolution_x'], $info['video']['resolution_y']) && (($prefix == 'video/') || ($mime = 'video/'. $format))) {
          $output = '{"mime":"'. $mime .'", "width":'. $info['video']['resolution_x'] .', "height":'. $info['video']['resolution_y'] .'}';
        }
        elseif (isset($info['audio']) && (($prefix == 'audio/') || ($mime = 'audio/'. $format))) {
          $output = '{"mime":"'. $mime .'"}';
        }
      }
    }
  }

  print $output;
  exit;
}

/**
 * Implementation of hook_form_alter().
 */
function ckeditor_swf_form_alter(&$form, &$form_state) {
  $form['#after_build'][] = 'ckeditor_swf_process_form';
}

function ckeditor_swf_process_form(&$form, &$form_state) {
  static $added = FALSE;
  if (!$added && ($js = drupal_add_js()) && isset($js['settings']['data'])) {
    $settings = call_user_func_array('array_merge_recursive', $js['settings']['data']);
    if (isset($settings['ckeditor']) || isset($settings['wysiwyg']['configs']['ckeditor'])) {
      drupal_add_js(array('ckeditor_swf' => array(
        'module_path' => base_path() . drupal_get_path('module', 'ckeditor_swf'),
        'getinfo_path' => url('ckeditor_swf/getinfo'),
        'players' => ckeditor_swf_players(),
      )), 'setting');
      $added = TRUE;
    }
  }
  return $form;
}

/**
 * Implementation of hook_filter_info().
 */
function ckeditor_swf_filter_info() {
  $filters['ckeditor_swf_filter'] = array(
    'title' => t('CKEditor SWF Filter'),
    'description' => t('Converts SWF content markup generated by CKEditor into standards compliant markup.'),
    'process callback' => '_ckeditor_swf_filter_process',
    'settings callback' => '_ckeditor_swf_filter_settings',
  );
  return $filters;
}

function _ckeditor_swf_filter_process($text, $filter, $format, $langcode, $cache, $cache_id) {

  // Get object tags.
  unset($matches);
  if (!preg_match_all('`</?object\b.*?>`is', $text, $matches, PREG_OFFSET_CAPTURE)) {
    return $text;
  }

  // Get object elements, ignoring nested ones.
  $elements = array();
  $i = -1;
  $depth = 0;
  foreach ($matches[0] as $match) {
    if (substr($match[0], 0, 2) != '</') {
      if ($depth == 0) {
        $elements[++$i]['start'] = $match;
      }
      $depth++;
    }
    elseif ($depth > 0) {
      $depth--;
      if ($depth == 0) {
        $elements[$i]['end'] = $match;
        $start = $elements[$i]['start'][1] + strlen($elements[$i]['start'][0]);
        $elements[$i]['inner_html'] = substr($text, $start, $match[1] - $start);
      }
    }
  }

  // Parse object elements.
  foreach ($elements as $i => $element) {

    // Parse attributes.
    $attributes = ckeditor_swf_parse_attributes($element['start'][0]);

    // Ignore non-Flash objects.
    if (!isset($attributes['classid']) && variable_get('ckeditor_swf_skip_no_classid', 0)
      || isset($attributes['classid']) && (strtolower(substr($attributes['classid'], -strlen(CKEDITOR_SWF_CLSID))) != CKEDITOR_SWF_CLSID)) {
      unset($elements[$i]);
      continue;
    }

    // HTML Filter might have broken the classid attribute (See http://drupal.org/node/812590)
    // or some filters might have removed it.
    $attributes['classid'] = 'clsid:'.CKEDITOR_SWF_CLSID;

    $elements[$i]['attributes'] = $attributes;

    // Parse param elements.
    $params = array();
    unset($matches);
    if (preg_match_all('`<param\b.*?>`is', $element['inner_html'], $matches)) {
      foreach ($matches[0] as $match) {
        $attributes = ckeditor_swf_parse_attributes($match);
        $name = strtolower(@$attributes['name']);
        if (!isset($params[$name])) {
          $params[$name] = @$attributes['value'];
        }
      }
    }
    $elements[$i]['params'] = $params;

    // Get alternative content.
    $alt = preg_replace('`</?(?:object|param|embed)\b.*?>`is', '', $element['inner_html']);
    $alt = preg_replace('`<!--.*?-->`s', '', $alt);
    $alt = ckeditor_swf_trim($alt);
    $elements[$i]['alt'] = $alt;
  }

  // Render elements.
  $js = '';
  if (ckeditor_swf_filter_use_swfobject()) {

    // Render elements as SWFObject placeholders.
    $keys = array('name' => 'name', 'class' => 'styleclass', 'align' => 'align');
    $version = variable_get('ckeditor_swf_filter_swfobject_version', '6.0.65');
    foreach ($elements as $i => $element) {
      $element_attributes = $element['attributes'];
      $attributes = array();
      foreach ($keys as $k => $key) {
        if (isset($element_attributes[$k])) {
          $attributes[$key] = $element_attributes[$k];
        }
      }
      $id = (isset($element_attributes['id'])) ? $element_attributes['id'] : ckeditor_swf_filter_uniqid();
      $output  = '<span id="'.$id.'">'."\n";
      $output .= $element['alt']."\n";
      $output .= '</span>';
      $elements[$i]['output'] = $output;

      $params = $element['params'];
      $swf_url = $params['movie'];
      unset($params['movie']);
      $js .= sprintf('swfobject.embedSWF("%s", "%s", "%s", "%s", "%s", null, null, %s, %s);', $swf_url, $id, $element_attributes['width'], $element_attributes['height'], $version, drupal_to_js($params), drupal_to_js($attributes)) ."\n";
    }
  }
  else {

    // Render standards compliant object elements.
    foreach ($elements as $i => $element) {
      $attributes = $element['attributes'];
      $params = $element['params'];
      unset($attributes['codebase']);
      $output  = '<object'.ckeditor_swf_attributes($attributes).'>'."\n";
      $output .= ckeditor_swf_params($params);
      $attributes['type'] = 'application/x-shockwave-flash';
      $attributes['data'] = @$params['movie'];
      unset($attributes['classid']);
      unset($attributes['id']);
      unset($params['movie']);
      $output .= '<!--[if !IE]>-->'."\n";
      $output .= '<object'.ckeditor_swf_attributes($attributes).'>'."\n";
      $output .= ckeditor_swf_params($params);
      $output .= '<!--<![endif]-->'."\n";
      $output .= $element['alt']."\n";
      $output .= '<!--[if !IE]>-->'."\n";
      $output .= '</object>'."\n";
      $output .= '<!--<![endif]-->'."\n";
      $output .= '</object>';
      $elements[$i]['output'] = $output;
    }
  }

  // Replace text.
  $start = 0;
  $output = '';
  foreach ($elements as $element) {
    $output .= substr($text, $start, $element['start'][1] - $start);
    $output .= $element['output'];
    $start = $element['end'][1] + strlen($element['end'][0]);
  }
  $output .= substr($text, $start);
  if ($js) {
    $output .= "<script type=\"text/javascript\">\n<!--//--><![CDATA[//><!--\n$js//--><!]]>\n</script>\n";
  }
  return $output;
}

function ckeditor_swf_parse_attributes($tag) {
  $attributes = array();
  unset($matches);
  if (preg_match_all('`\b([a-z]+)="(.*?)"`is', $tag, $matches, PREG_SET_ORDER)) {
    foreach ($matches as $match) {
      $attributes[strtolower($match[1])] = $match[2];
    }
  }
  return $attributes;
}

function ckeditor_swf_attributes($attributes) {
  $output = '';
  foreach ($attributes as $name => $value) {
    $output .= ' '.$name.'="'.$value.'"';
  }
  return $output;
}

function ckeditor_swf_params($params) {
  $output = '';
  foreach ($params as $name => $value) {
    $output .= '<param name="'.$name.'" value="'.$value.'" />'."\n";
  }
  return $output;
}

function ckeditor_swf_trim($str) {
  return trim(preg_replace('`\s+`', ' ', $str));
}

function ckeditor_swf_filename($absolute_url) {
  global $base_url;
  $prefix = $base_url .'/';
  $len = strlen($prefix);
  if (substr($absolute_url, 0, $len) != $prefix) return FALSE;
  $uri = substr($absolute_url, $len);

  $args = explode('/', $uri);
  if ((count($args) > 2) && ($args[0] == 'system') && ($args[1] == 'files')) {
    $uri = 'private://'. implode('/', array_slice($args, 2));
  }
  elseif ((count($args) > 3) && ($args[1] == 'system') && ($args[2] == 'files')) {
    $uri = 'private://'. implode('/', array_slice($args, 3));
  }

  return drupal_realpath($uri);
}

function ckeditor_swf_getid3_load() {
  static $success;

  if (!isset($success)) {
    $success = FALSE;

    // Let's rely on the getID3() module to ensure getID3 is properly installed and configured.
    if (module_exists('getid3') && getid3_load(FALSE)) {
      $success = TRUE;
    }
  }

  return $success;
}

function _ckeditor_swf_filter_settings($form, &$form_state, $filter, $format, $defaults, $filters) {
  $elements['notice'] = array(
    '#markup' => t('<a href="@settings">CKEditor SWF Filter settings</a> are shared by all the input formats where it is enabled.', array('@settings' => url('admin/config/content/ckeditor_swf/filter'))),
  );
  return $elements;
}

function ckeditor_swf_filter_swfobject_path_check($form_element, &$form_state) {
  if ($form_state['values']['ckeditor_swf_filter_add_swfobject']) {
    $path = $form_element['#value'];
    if (!file_exists($path)) {
      form_set_error($form_element['#parents'][0], t('The path %path does not exist.', array('%path' => $path)));
    }
  }
  return $form_element;
}

function ckeditor_swf_filter_use_swfobject() {
  return variable_get('ckeditor_swf_filter_use_swfobject', 0) && ckeditor_swf_filter_swfobject_ok();
}

function ckeditor_swf_filter_swfobject_ok() {
  return !variable_get('ckeditor_swf_filter_add_swfobject', 0) || file_exists(ckeditor_swf_filter_swfobject_path());
}

function ckeditor_swf_filter_swfobject_path() {
  return variable_get('ckeditor_swf_filter_swfobject_path', 'sites/all/libraries/swfobject/swfobject.js');
}

function ckeditor_swf_filter_uniqid() {
  return 'swf-'. uniqid(rand());
}

/**
 * Implementation of hook_init().
 */
function ckeditor_swf_init() {
  if (variable_get('ckeditor_swf_filter_add_swfobject', 0) && ckeditor_swf_filter_swfobject_ok()) {
    drupal_add_js(ckeditor_swf_filter_swfobject_path());
  }
}

/**
 * Implementation of hook_wysiwyg_plugin().
 */
function ckeditor_swf_wysiwyg_plugin($editor, $version) {
  if ($editor == 'ckeditor') {
    return array('swf' => array(
      'path' => drupal_get_path('module', 'ckeditor_swf') .'/plugins/swf/',
      'load' => TRUE,
      'extensions' => array('Flash' => t('CKEditor SWF')),
    ));
  }
}

function ckeditor_swf_players() {
  $players = variable_get('ckeditor_swf_players', array());

  foreach ($players as $mime => $player) {
    $path = $player['path'];
    if (file_exists($path)) {
      $players[$mime]['path'] = base_path() . $path;
    }
    else {
      unset($players[$mime]);
    }
  }

  return $players;
}