<?php
// $Id:
/**
 * @file
 * TinyBrowser module
 * - implements TinyBrowser plugin for TinyMCE WYSIWYG content editor
 */

include_once './'. drupal_get_path('module', 'tinybrowser') .'/tinybrowser.profile.inc';
include_once './'. drupal_get_path('module', 'tinybrowser') .'/tinybrowser.userpage.inc';

/**
 * Function to get the tinyMCE directory (where tiny_mce.js exists)
 */
function tinybrowser_get_tinymce_root() {
  if (module_exists("tinytinymce")) {
    $install_dir = drupal_get_path('module', 'tinytinymce');
    if (file_exists($install_dir . '/tinymce/jscripts/tiny_mce/tiny_mce.js')) {
      return '../../tinytinymce/tinymce/jscripts/tiny_mce';
    }
  }
  else if (module_exists("wysiwyg")) {
    $install_dir = wysiwyg_get_path('');
    if (file_exists($install_dir . '/tinymce/jscripts/tiny_mce/tiny_mce.js')) {
      return '../../../libraries/tinymce/jscripts/tiny_mce';
    }
  }
  return '';
}

/**
 * Implementation of hook_init().
 */
function tinybrowser_init() {
  if (module_exists("tinytinymce") || module_exists("fckeditor")) {
    if (tinybrowser_access()) {
      drupal_add_js(drupal_get_path('module', 'tinybrowser') .'/tinybrowser/tb_tinymce.js.php');
      $_SESSION['tinybrowser_module'] = TRUE;
    }
  }
}

/**
 * Implementation of hook_wysiwyg_plugin().
 */
function tinybrowser_wysiwyg_plugin($editor, $version) {
  static $integrated = array();

  switch ($editor) {
    case 'tinymce':
      if (!tinybrowser_access()) {
        return;
      }
      if (!isset($integrated[$editor])) {
        $integrated[$editor] = TRUE;
        drupal_add_js(drupal_get_path('module', 'tinybrowser') .'/tinybrowser/tb_tinymce.js.php');
        $_SESSION['tinybrowser_module'] = TRUE;
      }
      return array(
        'tinybrowser' => array(
          'extensions' => array('tinybrowser' => t('TinyBrowser')),
          'url' => 'http://www.lunarvis.com/products/tinymcefilebrowserwithupload.php',          'options' => array(
            'file_browser_callback' => 'tinyBrowser',
            'inline_styles' => TRUE,
          ),
          'load' => FALSE,
        ),
      );
      break;
    case 'fckeditor':
      if (!tinybrowser_access()) {
        return;
      }
      if (!isset($integrated[$editor])) {
        $integrated[$editor] = TRUE;
        drupal_add_js(drupal_get_path('module', 'tinybrowser') .'/tinybrowser/tb_tinymce.js.php');
        $_SESSION['tinybrowser_module'] = TRUE;
      }
      $popup_win_size = variable_get('tinybrowser_popup_window_size', '770x480');
      $popup_win_size = preg_replace('/\s*/', '', $popup_win_size);
      $popup_win_size = strtolower($popup_win_size);
      $win_size = split('x', $popup_win_size);
      return array(
        'tinybrowser' => array(
          'extensions' => array('tinybrowser' => t('TinyBrowser')),
          'url' => 'http://www.lunarvis.com/products/tinymcefilebrowserwithupload.php',          'options' => array(
            'LinkBrowser' => TRUE,
            'ImageBrowser' => TRUE,
            'FlashBrowser' => TRUE,
            'LinkBrowserURL' => base_path() . drupal_get_path('module', 'tinybrowser') . '/tinybrowser/tinybrowser.php?type=file',
            'ImageBrowserURL' => base_path() . drupal_get_path('module', 'tinybrowser') . '/tinybrowser/tinybrowser.php?type=image',
            'FlashBrowserURL' => base_path() . drupal_get_path('module', 'tinybrowser') . '/tinybrowser/tinybrowser.php?type=media',
            'LinkBrowserWindowWidth' => $win_size[0],
            'LinkBrowserWindowHeight' => $win_size[1],
            'ImageBrowserWindowWidth' => $win_size[0],
            'ImageBrowserWindowHeight' => $win_size[1],
            'FlashBrowserWindowWidth' => $win_size[0],
            'FlashBrowserWindowHeight' => $win_size[1],
          ),
          'load' => FALSE,
        ),
      );
      break;
  }
}
/**
 * Implementation of hook_help()
 */
function tinybrowser_help($path, $arg) {
  $output = '';
  switch ($path) {
    case 'admin/settings/tinybrowser':
      // $output = '<p>' . t('File upload function requires <em>Adobe Flash Player 9</em> or later version installed to your web browser.') . '</p>';
      return $output;
  }
}

/**
 * Implementation of hook_menu
 */
function tinybrowser_menu() {
  $items = array();

  $items['admin/settings/tinybrowser'] = array(
    'title' => 'TinyBrowser',
    'description' => 'File manager and uploader plugin for TinyMCE editor.',
    'page callback' => 'tinybrowser_admin',
    'access arguments' => array('access administration pages'),
    'type' => MENU_NORMAL_ITEM,
  );
  $items['admin/settings/tinybrowser/profile'] = array(
    'title' => 'Add new profile',
    'page callback' => 'tinybrowser_profile_operations',
    'access arguments' => array('access administration pages'),
    'type' => MENU_CALLBACK,
  );
  $items['user/%user/tinybrowser'] = array(
    'title' => 'TinyBrowser',
    'page callback' => 'tinybrowser_user_page',
    'page arguments' => array(1),
    'access callback' => 'tinybrowser_user_page_access',
    'access arguments' => array(1),
    'type' => MENU_LOCAL_TASK,
    'weight' => 10,
  );
  return $items;
}

/**
 * Implementation of hook_theme
 */
function tinybrowser_theme() {
  $theme['tinybrowser_admin']['function'] = 'tinybrowser_admin_theme';
  return $theme;
}

/**
 * Admin page
 */
function tinybrowser_admin() {

  //------ Configuration profiles ------

  $profiles = variable_get('tinybrowser_profiles', array());
  if (empty($profiles)) {
    // first time after the new installation
    $profiles = tinybrowser_install_profiles();
  }
  $header = array(
    t('Profile name'),
    array('data' => t('Operations'), 'colspan' => 2)
  );
  $attributes = array('style' => 'width:100%');
  $rows = array();
  foreach ($profiles as $pid => $profile) {
    $rows[] = array(
      $profile['name'],
      l(t('Edit'), 'admin/settings/tinybrowser/profile/edit/' . $pid),
      $pid == 1 ? '' : l(t('Delete'), 'admin/settings/tinybrowser/profile/delete/' . $pid),
    );
  }
  $rows[] = array('', array('data' => l(t('Add new profile'), 'admin/settings/tinybrowser/profile'), 'colspan' => 2));
  $output = '<h2 class="title">' . t('Configuration profiles') . '</h2>';
  $output .= theme('table', $header, $rows, $attributes);
  $output .= '<br/>';
  $output .= drupal_get_form('tinybrowser_settings_form');

  return $output;
}

/**
 * Role profile form
 */
function tinybrowser_role_form($role, $weight = TRUE, $core = TRUE) {
  $form['name'] = array(
    '#type' => 'markup',
    '#value' => $role['name'],
  );
  if ($weight) {
    $form['weight'] = $core ? array(
      '#type' => 'textfield',
      '#value' => $role['weight'],
      '#attributes' => array('readonly' => 'readonly', 'style' => 'border:none; width: 2em; background-color: transparent;'),
    ) : array(
      '#type' => 'weight',
      '#default_value' => $role['weight'],
      '#attributes' => array('class' => 'tinybrowser-weight'),
    );
  }
  $options = array(t('none'));
  foreach (variable_get('tinybrowser_profiles', array()) as $pid => $profile) {
    $options[$pid] = $profile['name'];
  }
  $form['pid'] = array(
    '#type' => 'select',
    '#options' => $options,
    '#default_value' => $role['pid'],
  );
  return $form;
}

/**
 * Form: Configutation Settings
 */
function tinybrowser_settings_form(&$form_state) {

  $node = '';

  //------ Roles profiles ------

  $form['roles'] = array('#tree' => TRUE);
  $roles = tinybrowser_sorted_roles();
  $form['#weighted'] = count($roles) >= 2;

  foreach ($roles as $rid => $role) {
    $core = $rid == DRUPAL_AUTHENTICATED_RID;
    $form['roles'][$rid] = tinybrowser_role_form($role, $form['#weighted'], $core);
  }
  //------ WYSIWYG Editor ------
  $form['editor'] = array(
    '#type' => 'fieldset', '#title' => t('WYSIWYG editor'),
    '#collapsible' => FALSE, '#collapsed' => FALSE,
  );
  if (module_exists("tinytinymce")) {
    $default_editor = 'tinymce';
  }
  else if (module_exists("fckeditor")) {
    $default_editor = 'fckeditor';
  }
  else if (module_exists("wysiwyg")) {
    $install_dir = wysiwyg_get_path('');
    if (file_exists($install_dir . '/tinymce/jscripts/tiny_mce/tiny_mce.js')) {
      $default_editor = 'tinymce';
    }
    else if (file_exists($install_dir . '/fckeditor/fckedito.js')) {
      $default_editor = 'fckeditor';
    }
    else {
      $default_editor = 'none';
    }
  }
  else {
    $default_editor = 'none';
  }
  $editor = variable_get('tinybrowser_editor', $default_editor);
  $form['editor']['tinybrowser_editor'] = array(
    '#type' => 'select',
    '#title' => t('WYSIWYG editor to be used with '),
    '#default_value' => $editor,
    '#options' => array('none' => t('None'), 'tinymce' => t('TinyMCE'), 'fckeditor' => t('FCKeditor')),
  );
  //-------- tinymce --------
  if ($editor == 'tinymce') {
  $tinymce_root = tinybrowser_get_tinymce_root();
    if (!$tinymce_root) {
      // could not find TinyMCE
      $note .= t('TinyMCE is not installed properly with either TinyTinyMCE or Wysiwyg module. TinyBrowser requires either one of these module and TinyMCE installed properly.');
    }
    else {
      variable_set('tinybrowser_tinymce_root', $tinymce_root);
      $module = '';
      if (module_exists("tinytinymce")) {
        $module = 'TinyTinyMCE';
      }
      else if (module_exists("wysiwyg")) {
        $module = 'Wysiwyg';
      }
      else {
        // could not find FCKeditor
        $note .= t('TinyMCE is not installed properly with either TinyTinyMCE or Wysiwyg module. TinyBrowser requires either one of these module and TinyMCE installed properly.');
      }
      $editor_info = $module == '' ? '<p>' . t('Can find neither TinyTinyMCE module nor Wysiwyg module. Please make sure to enable either one of them.') . '</p>' : '<p>' . t('You are currently using TinyMCE with <b>!module</b> module.', array('!module' => $module)) . '</p>';
      $form['editor']['tinybrowser_editor_info'] = array(
        '#type' => 'markup',
        '#value' => $editor_info,
      );
      if ($module == 'TinyTinyMCE') {
        $init_script = variable_get('tinytinymce_advanced', '');
        if (!preg_match('/file_browser_callback\s*:\s*"tinyBrowser"/', $init_script)) {
          $note  .= '<p>' . t('TinyTinyMCE module setting needs to be modified!  Please add the following line to the init script of the advanced mode of the TinyTinyMCE in order to use TinyBrowser with TinyMCE advanced mode.<br/><b>file_browser_callback: "tinyBrowser"</b>') . '</p>';
        } 
      }
    }
  }
  //-------- fkceditor --------
  else if ($editor == 'fckeditor') {
  $tinymce_root = '';
    variable_set('tinybrowser_tinymce_root', $tinymce_root);
    $module = '';
    if (module_exists("fckeditor")) {
      $module = 'FCKeditor';
    }
    else if (module_exists("wysiwyg")) {
      $module = 'Wysiwyg';
    }
    else {
      // could not find FCKeditor
      $note .= t('FCKeditor is not installed properly with either FCKeditor module or Wysiwyg module. TinyBrowser requires either one of these module and FKCeditor installed properly.');
    }
    $editor_info = $module == '' ? '<p>' . t('Can find neither FCKeditor module nor Wysiwyg module. Please make sure to enable either one of them.') . '</p>' : '<p>' . t('You are currently using TinyMCE with <b>!module</b> module.', array('!module' => $module)) . '</p>';
    $form['editor']['tinybrowser_editor_info'] = array(
      '#type' => 'markup',
      '#value' => $editor_info,
    );
  }
  if ($note) {
    drupal_set_message($note, 'error');
  }

  // check if $cookie_domain is set or not
  if (!tinybrowser_requirements_check_cookie_domain()) {
    $note = '<p>' . t('TinyBrowser requires $cookie_domain to be set, but it is not set in your settings.php.') . '</p>';
    drupal_set_message($note, 'error');
  }

  //------ Extensions ------

  $form['extensions'] = array(
    '#type' => 'fieldset', '#title' => t('Extensions'),
    '#collapsible' => TRUE, '#collapsed' => FALSE,
  );
  $form['extensions']['tinybrowser_ext_note'] = array(
    '#type' => 'markup',
    '#value' => '<p>' . t('Separate extensions with a space character and do not include leading dot.') . '</p>',
  );
/*
  $form['extensions']['tinybrowser_ok_ext_file'] = array(
    '#type' => 'textfield',
    '#title' => t('Permitted file extensions'),
    '#default_value' => variable_get('tinybrowser_ok_ext_file', '*'),
    '#size' => 100,
    '#maxlength' => 120,
  );
*/
  $form['extensions']['tinybrowser_ok_ext_image'] = array(
    '#type' => 'textfield',
    '#title' => t('Permitted image file extensions'),
    '#default_value' => variable_get('tinybrowser_ok_ext_image', 'jpg jpeg gif png'),
    '#size' => 100,
    '#maxlength' => 120,
  );
  $form['extensions']['tinybrowser_ok_ext_media'] = array(
    '#type' => 'textfield',
    '#title' => t('Permitted media file extensions'),
    '#default_value' => variable_get('tinybrowser_ok_ext_media', 'swf dcr mov qt mpg mp3 mp4 mpeg avi wmv wm asf asx wmx wvx rm ra ram'),
    '#size' => 100,
    '#maxlength' => 120,
  );
  $form['extensions']['tinybrowser_prohibited_ext'] = array(
    '#type' => 'textfield',
    '#title' => t('Prohibited extensions'),
    '#default_value' => variable_get('tinybrowser_prohibited_ext', 'php php3 php4 phtml asp aspx ascx jsp cfm cfc pl bat exe dll reg cgi sh py asa asax config com inc'),
    '#size' => 100,
    '#maxlength' => 160,
    '#description' => t('These extensions are totally prohibited. You can not upload, edit and see it even if it\'s in the current folder. This setting has higher precedence over permitted extensions above. Most probably you do not want to change this. Any extensions other than these are permitted for the regular file operations.'),
  );

  //------ General ------

  $form['general'] = array(
    '#type' => 'fieldset', '#title' => t('General settings'),
    '#collapsible' => TRUE, '#collapsed' => FALSE,
  );
  $form['general']['tinybrowser_textarea'] = array(
    '#type' => 'textfield',
    '#title' => t('Enable inline image/file insertion into plain textareas'),
    '#default_value' => variable_get('tinybrowser_textarea', ''),
    '#maxlength' => NULL,
    '#description' => t('If you don\'t use any WYSIWYG editor, this feature will allow you to add your images or files as <strong>html code into any plain textarea</strong>. Enter <strong>comma separated textarea IDs</strong> under which you want to enable a link to TinyBrowser. Hint: ID of Body fields in most node types is edit-body.'),
  );
  $form['general']['tinybrowser_absolute_url'] = array(
    '#type' => 'checkbox',
    '#title' => t('Absolute URLs'),
    '#default_value' => variable_get('tinybrowser_absolute_url', 0),
    '#description' => t('If checked, absolute URLs including host name are returned instead of relative URL.'),
  );
  $form['general']['tinybrowser_upload_mode'] = array(
    '#type' => 'radios',
    '#title' => t('Default behavior for existing files during file uploads'),
    '#options' => array(
       '1' => t('Replace the existing file with the new one'),
       '2' => t('Keep the existing file and rename the new one'),
       '3' => t('Keep the existing file and reject the new one'),
    ),
    '#default_value' => variable_get('tinybrowser_upload_mode', 1),
  );
  $form['general']['tinybrowser_thumbnail_size'] = array(
    '#type' => 'textfield',
    '#title' => t('Thumbnail size'),
    '#size' => 10,
    '#maxlength' => 10,
    '#default_value' => variable_get('tinybrowser_thumbnail_size', 80),
    '#description' => '<p>' . t('If you change the thumbnail size, you need to flush all existing thumbnail images and regenerate them with a new size. Save the configuration first, then use the button below to do this.') . '</p>',
  );
  $form['general']['tinybrowser_flush_thumbnail'] = array(
    '#type' => 'submit',
    '#value' => t('Flush all thumbnails'),
    '#submit' => array('tinybrowser_flush_all_thumbnails'),
  );

  //------ Advanced ------

  $form['advanced'] = array(
    '#type' => 'fieldset', '#title' => t('Advanced settings'),
    '#collapsible' => TRUE, '#collapsed' => TRUE,
  );
  $form['advanced']['tinybrowser_default_view'] = array(
    '#type' => 'select',
    '#title' => t('Default view for the image browser'),
    '#default_value' => variable_get('tinybrowser_default_view', 'thumb'),
    '#options' => array('thumb' => t('Thumbnail'), 'detail' => t('Detail')),
  );
  $form['advanced']['tinybrowser_default_sort'] = array(
    '#type' => 'select',
    '#title' => t('Default sort mode'),
    '#default_value' => variable_get('tinybrowser_default_sort', 3),
    '#options' => array(
      0 => t('by name (acsending)'), 
      1 => t('by name (descending)'),
      2 => t('by date (acsending)'), 
      3 => t('by date (descending)'),
    ),
  );
  $form['advanced']['tinybrowser_pagination'] = array(
    '#type' => 'textfield',
    '#title' => t('Number of files per page'),
    '#size' => 10,
    '#maxlength' => 10,
    '#default_value' => variable_get('tinybrowser_pagination', 0),
    '#description' => t('Specify the maximum number of files to be shown in a page of image browser and editor. Set 0 for no pagination.'),
  );
  $form['advanced']['tinybrowser_popup_window_size'] = array(
    '#type' => 'textfield',
    '#title' => t('Popup window size'),
    '#size' => 20,
    '#maxlength' => 20,
    '#field_suffix' => t('WIDTHxHEIGHT'),
    '#default_value' => variable_get('tinybrowser_popup_window_size', '770x480'),
    '#description' => t('Size of the TinyBrowser\'s popup window (default size: 770x480).'),
  );

  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Save configuration'),
  );
  $form['#theme'] = 'tinybrowser_admin';
  $form['#submit'][] = 'tinybrowser_admin_submit';
  return $form;
}

/**
 * Admin form themed
 */
function tinybrowser_admin_theme($form = array()) {
  $rows = array();
  $header = array(
    t('User role'),
    t('Assigned profile'),
  );
  // add 'id' attribute to make table draggable
  $attributes = array('style' => 'width:100%', 'id' => 'tinybrowser-table');
  $adminp = tinybrowser_admin_profile();
  $keys = array('name', 'pid');
  $rows[0] = array(t('Admin'), $adminp['name']);
  $info = '';

  if ($form['#weighted']) {
    $header[] = t('Weight');
    $keys[] = 'weight';
    $rows[0][] = t('n/a');
    $info = t('For users who have <strong>multiple roles</strong>, the higher role with assigned profile in the list will take the precedence. Amin user role is always the top of the list and authenticated user role is the bottom of the list. The role that does not have any profile assigned can not use the TinyBrowser.');
  }
  foreach (element_children($form['roles']) as $rid) {
    $cells = array();
    $draggable = 1;
    foreach ($keys as $key) {
      $cells[] = drupal_render($form['roles'][$rid][$key]);
      // exclude authenticated user role
      if ($key == 'weight' && $form['roles'][$rid][$key]['#value'] == 11) {
        $draggable = 0;
      }
    }
    $rows[] = $draggable? array('data' => $cells, 'class' => 'draggable') : $cells;
  }
  $output = '<h2 class="title">'. t('Role-profile assignments') .'</h2>';
  $output .= theme('table', $header, $rows, $attributes);
  // make the table row draggable for weight
  drupal_add_tabledrag('tinybrowser-table', 'order', 'sibling', 'tinybrowser-weight');
  $output .= '<div class="form-item"><div class="description">' . t('Assign profiles to user roles.') . ' ' . $info . '</div></div>';
  $output .= drupal_render($form);
  return $output;
}

/**
 * Submit admin form
 */
function tinybrowser_admin_submit($form, &$form_state) {
  $roles = $form_state['values']['roles'];
  if (count($roles) >= 2) {
    uasort($roles, 'tinybrowser_rolesort');
  }
  variable_set('tinybrowser_roles_profiles', $roles);
  variable_set('tinybrowser_editor', $form_state['values']['tinybrowser_editor']);
  variable_set('tinybrowser_ok_ext_file', $form_state['values']['tinybrowser_ok_ext_file']);
  variable_set('tinybrowser_ok_ext_image', $form_state['values']['tinybrowser_ok_ext_image']);
  variable_set('tinybrowser_ok_ext_media', $form_state['values']['tinybrowser_ok_ext_media']);
  variable_set('tinybrowser_prohibited_ext', $form_state['values']['tinybrowser_prohibited_ext']);
  variable_set('tinybrowser_textarea', $form_state['values']['tinybrowser_textarea']);
  variable_set('tinybrowser_absolute_url', $form_state['values']['tinybrowser_absolute_url']);
  variable_set('tinybrowser_upload_mode', $form_state['values']['tinybrowser_upload_mode']);
  variable_set('tinybrowser_thumbnail_size', $form_state['values']['tinybrowser_thumbnail_size']);
  variable_set('tinybrowser_default_view', $form_state['values']['tinybrowser_default_view']);
  variable_set('tinybrowser_default_sort', $form_state['values']['tinybrowser_default_sort']);
  variable_set('tinybrowser_pagination', $form_state['values']['tinybrowser_pagination']);
  variable_set('tinybrowser_popup_window_size', $form_state['values']['tinybrowser_popup_window_size']);

  drupal_set_message(t('The changes has been saved.'));
  drupal_goto('admin/settings/tinybrowser'); // go back to the admin page
}

/**
 *
 */
function _tinybrowser_recursive_thumbnail_delete($path, $num_deleted, $delete = FALSE) {
  $dcnt = 1;
  $scnt = 1;

  // print "Checking directory: " . $path . " (delete=". $delete . ")<br/>\n";
  $d = dir($path);

  while (($entry = $d->read()) != FALSE) {
    if ($entry == '.' || $entry == '..') continue;
    $entry_path = $path . '/' . $entry;
    if (is_dir($entry_path)) {
      $delete = ($entry == '_thumbs' ? TRUE : FALSE);
      // print "Recursive call(directory=" . $entry_path . ", delete=" . $delete . "<br/>\n";
      $num_deleted += _tinybrowser_recursive_thumbnail_delete($entry_path, 0, $delete);
      $delete = FALSE;
    }
    else if (is_file($entry_path) || is_link($entry_path)) {
      if ($delete) {
        // print "Deleting file($dcnt): " . $entry_path . "<br/>\n";
        unlink($entry_path); // file under _thumbs directory
        $num_deleted++;
        $dcnt++;
      }
      else {
        // print "Skipping file($scnt): " . $entry_path . "<br/>\n";
        $scnt++;
      }
    }
    else { // unknown
    }
  }
  $d->close();
  if ($delete) {
    // print "Deleting directory: " . $path . "<br/>\n";
    rmdir($path);
  }
  // print "-- End of _tinybrowser_recursive_thumbnail_call -- num_deleted=$num_deleted<br/>\n";
  return $num_deleted;
}
/**
 * Flush all thumbnail images from the image path directory and it's subdirectories
 */
function tinybrowser_flush_all_thumbnails() {
  $path_image = variable_get('tinybrowser_path_image', $file_dir_path . '/images/');
  $path_image = rtrim($path_image, '/');
  $doc_root = rtrim($_SERVER['DOCUMENT_ROOT'],'/');
  $abs_path_image = $doc_root . $path_image;
  $num_deleted = _tinybrowser_recursive_thumbnail_delete($abs_path_image, 0, FALSE);
  if ($num_deleted) {
    drupal_set_message(t('Total !dcnt thumbnail images are successfully deleted', array('!dcnt' => $num_deleted)));
  }
  else {
    drupal_set_message(t('There were no thumbnail images to be deleted.'));
  }
  drupal_goto('admin/settings/tinybrowser'); // go back to the admin page
}

/**
 * Checks if $cookie_domain is set at settings.php
 *
 * It has to be set at settings.php because conf_init() sets
 * the $cookie_odmain regardless of the presence in the settings.php.
 * So checking the global $cookie_domain is not good enough.
 */
function tinybrowser_requirements_check_cookie_domain() {
  if (file_exists('./' . conf_path() . '/settings.php')) {
    $settings = file_get_contents('./' . conf_path() . '/settings.php');
    if (preg_match('#^\s*\$cookie_domain#m', $settings)) {
      return TRUE;
    }
  }
  return FALSE;
}

/**
 * Add/Edit/Delete profile
 */
function tinybrowser_profile_operations($op = 'add', $pid = 0) {
  if ($op == 'delete') {
    drupal_set_title(t('Delete profile'));
    return drupal_get_form('tinybrowser_profile_delete_form', $pid);
  }
  if ($pid != 1 || $GLOBALS['user']->uid == 1) {
    return drupal_get_form('tinybrowser_profile_form', $pid);
  }
  drupal_access_denied();
}

/**
 * Profile form
 */
function tinybrowser_profile_form(&$form_state, $pid = 0) {
  if ($pid && $profile = tinybrowser_load_profile($pid)) {
    drupal_set_title($profile['name']);
  }
  else {
    $pid = 0;
    $profile = tinybrowser_sample_profile();
    $profile['name'] = '';
  }
  $form_state['profile'] = $profile; // store original profile just in case

  $form = array('#tree' => TRUE);
  $form['name'] = array(
    '#type' => 'textfield',
    '#title' => t('Proile name'),
    '#default_value' => $profile['name'],
    '#description' => t('Give a name to this profile.'),
    '#required' => TRUE,
  );
  $form['max_file_size'] = array(
    '#type' => 'textfield',
    '#title' => t('Maximum size of the file your can upload'),
    '#size' => 20,
    '#maxlength' => 20,
    '#default_value' => $profile['max_file_size'],
    '#description' => t('Set to 0 to use the maximum size available. The PHP settings of the server limit the maximum file size for upload to %size.', array('%size' => format_size(file_upload_max_size()))),
    '#field_suffix' => t('bytes'),
  );
  $form['max_image_size'] = array(
    '#type' => 'textfield',
    '#title' => t('Maximum image resolution'),
    '#size' => 20,
    '#maxlength' => 20,
    '#field_suffix' => t('WIDTHxHEIGHT'),
    '#default_value' => $profile['max_image_size'],
    '#description' => t('Maximum image size allowed (e.g: 640x480). Set 0 for no restriction. Images bigger than this size will be scaled down to fit this size.'),
  );
  $form['path_note'] = array(
    '#type' => 'markup',
    '#value' => '<div class="form-item"><div class="description">' . t('Please specify the directories using absolute path from the server\'s DocumentRoot. They should start and end with a slash character.  If you want to assign separate directory for each user, use <strong>%u</strong> as a placeholder for user ID.  For example, actual directory specified by <em>/sites/default/files/%u/</em> for the user whose ID is 1 will be <em>/sites/default/files/1/</em>') . '</div></div>',
  );
  $form['path_file'] = array(
    '#type' => 'textfield',
    '#title' => t('File directory'),
    '#default_value' => $profile['path_file'],
    '#size' => 60,
    '#maxlength' => 80,
  );
  $form['path_image'] = array(
    '#type' => 'textfield',
    '#title' => t('Image directory'),
    '#default_value' => $profile['path_image'],
    '#size' => 60,
    '#maxlength' => 80,
  );
  $form['path_media'] = array(
    '#type' => 'textfield',
    '#title' => t('Media directory'),
    '#default_value' => $profile['path_media'],
    '#size' => 60,
    '#maxlength' => 80,
  );
  $form['quota'] = array(
    '#type' => 'textfield',
    '#title' => t('Directory quota'),
    '#size' => 20,
    '#maxlength' => 20,
    '#default_value' => $profile['quota'],
    '#description' => t('Define the upload directory quota per file type (image/media/file). Set to 0 to unlimit.'),
    '#field_suffix' => t('bytes'),
  );
  $form['permissions'] = array(
    '#type' => 'checkboxes',
    '#title' => t('Permitted operations'),
    '#default_value' => $profile['permissions'],
    '#options' => array(
      'upload'   => t('Upload files'),
      'edit'     => t('Edit files (rename, resize, rotate)'),
      'folders'  => t('Use subfolders (create, rename, move)'),
      'delete'   => t('Delete files and folders'),
      'userpage' => t('Use TinyBrowser at user account page'),
    ),
    '#description' => t('Even if no permissions are selected above, users still can browse files. File upload function requires <em>Adobe Flash Player 9</em> or later version installed to the web browser. <strong>Please note that allowing file upload will be a possible security risk.</strong>'),
  );
  $form = array('profile' => $form);
  $form['pid'] = array(
    '#type' => 'hidden',
    '#value' => $pid,
  );
  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Save configuration'),
  );
  $form['#submit'][] = 'tinybrowser_profile_submit';
  return $form;
}

/**
 * Implementation of hook_validate()
 */
function tinybrowser_profile_form_validate($form_id, $form_values) {
  $op = $form_values['values']['op'];
  if ($op == t('Cancel')) return;
  if (empty($form_values['values']['profile']['name'])) {
    form_set_error('profile][name', t('You need to enter the name of this profile.'));
  }
  if (!preg_match('/^\/.*\/$/', $form_values['values']['profile']['path_file'])) {
    form_set_error('profile][path_file', t('The file directory path must start with a slash and also must end with a slash'));
  }
  if (!preg_match('/^\/.*\/$/', $form_values['values']['profile']['path_image'])) {
    form_set_error('profile][path_image', t('The image directory path must start with a slash and also must end with a slash'));
  }
  if (!preg_match('/^\/.*\/$/', $form_values['values']['profile']['path_media'])) {
    form_set_error('profile][path_media', t('The media directory path must start with a slash and also must end with a slash'));
  }
}

/**
 * Profile form submit
 */
function tinybrowser_profile_submit($form, &$form_state) {
  $profile = $form_state['values']['profile'];
  $pid = $form_state['values']['pid'];
  $message = $pid > 0 ? t('The changes have been saved.') : t('Profile has been added.');
  $pid = tinybrowser_update_profiles($pid, $profile);

  drupal_set_message($message);
  $form_state['redirect'] = 'admin/settings/tinybrowser';
}

/**
 * Profile delete form
 */
function tinybrowser_profile_delete_form(&$form_state, $pid) {
  if ($pid > 1 && $profile = tinybrowser_load_profile($pid)) {
    $form['#submit'][] = 'tinybrowser_profile_delete_submit';
    $form['pid'] = array(
      '#type' => 'hidden',
      '#value' => $pid,
    );
    return confirm_form($form,
      t('Are you sure you want to delete the profile %name?',
        array('%name' => $profile['name'])),
        'admin/settings/tinybrowser',
        '',
        t('Delete'),
        t('Cancel')
    );
  }
  drupal_goto('admin/settings/tinybrowser');
}

/**
 * Profile delete form submit
 */
function tinybrowser_profile_delete_submit($form, &$form_state) {
  tinybrowser_update_profiles($form_state['values']['pid'], NULL);
  drupal_set_message(t('Profile has been deleted.'));
  $form_state['redirect'] = 'admin/settings/tinybrowser';
}

/**
 * Update role profile assignments
 */
function tinybrowser_update_roles($pid) {
  $roles = variable_get('tinybrowser_roles_profiles', array());
  foreach ($roles as $rid => $role) {
    if ($role['pid'] == $pid) {
      $roles[$rid]['pid'] = 0;
    }
    else if ($role['pid'] > $pid) {
      $roles[$rid]['pid']--;
    }
  }
  variable_set('tinybrowser_roles_profiles', $roles);
}

/**
 * Add, update or delete a profile
 */
function tinybrowser_update_profiles($pid, $profile = NULL) {
  $profiles = variable_get('tinybrowser_profiles', array());

  // add or update
  if (isset($profile)) {
    $pid = isset($profiles[$pid]) ? $pid : count($profiles) + 1;
    $profiles[$pid] = $profile;
  }
  // delete
  else if (isset($profiles[$pid]) && $pid > 1) {
    unset($profiles[$pid]);
    for ($i = $pid + 1 ; isset($profiles[$i]) ; $i++) {
      $profiles[$i - 1] = $profiles[$i];
      unset($profiles[$i]);
    }
    tinybrowser_update_roles($pid);
  } 
  variable_set('tinybrowser_profiles', $profiles);
  return $pid;
}

/**
 * Load profile
 */
function tinybrowser_load_profile($pid) {
  $profiles = variable_get('tinybrowser_profiles', array());
  return isset($profiles[$pid]) ? $profiles[$pid] : NULL;
}

function tinybrowser_sorted_roles() {
  static $sorted;
  if (!isset($sorted)) {
    $sorted = array();
    $member_only = TRUE;
    $roles = user_roles($member_only);
    $profiles = variable_get('tinybrowser_profiles', array());
    $rp = variable_get('tinybrowser_roles_profiles', array());
    // $rp[DRUPAL_ANONYMOUS_RID]['weight'] = 12;
    $rp[DRUPAL_AUTHENTICATED_RID]['weight'] = 11;
    foreach ($roles as $rid => $rname) {
      $sorted[$rid] = array(
        'name' => $rname,
        'weight' => isset($rp[$rid]['weight']) ? $rp[$rid]['weight'] : 0,
        'pid' => isset($rp[$rid]['pid']) && isset($profiles[$rp[$rid]['pid']]) ? $rp[$rid]['pid'] : 0,
      );
    }
    uasort($sorted, 'tinybrowser_rolesort');
  }
  return $sorted;
}

/**
 * Sorting function for roles
 */
function tinybrowser_rolesort($r1, $r2) {
  return $r1['weight'] - $r2['weight'];
}

/**
 * Get the profile for the user
 */
function tinybrowser_get_user_profile($user) {
  $profiles = variable_get('tinybrowser_profiles', array());
  if ($user->uid == 1 && isset($profiles[1])) {
    return $profiles[1];
  }
  else {
    foreach (variable_get('tinybrowser_roles_profiles', array()) as $rid => $role) {
      if (isset($user->roles[$rid]) && isset($profiles[$role['pid']])) {
        return $profiles[$role['pid']];
      }
    }
  }
  return FALSE;
}

/**
 * Check if the user has access or not
 */
function tinybrowser_access($user = FALSE) {
  if ($user === FALSE) {
    global $user;
  }
  if ($user->uid == 1) { // admin
    return TRUE;
  }
  $roles_profiles = variable_get('tinybrowser_roles_profiles', array());
  foreach ($user->roles as $rid => $role) {
    if (isset($roles_profiles[$rid]['pid']) && $roles_profiles[$rid]['pid']) {
      return TRUE;
    }
  }
  return FALSE;
}

/**
 * Implementation of hook_elements().
 */
function tinybrowser_elements() {
  return array('textarea' => array('#process' => array('tinybrowser_textarea')));
}

/**
 * Inline image/link insertion to textareas.
 */
function tinybrowser_textarea($element) {
  static $ids;
  if (!isset($ids)) {
    $ids = FALSE;
    if (tinybrowser_access() && $setting = str_replace(' ', '', variable_get('tinybrowser_textarea', ''))) {
      $ids = array();
      foreach (explode(',', $setting) as $id) {
        $ids[$id] = 1;
      }
    }
  }
  if ($ids && isset($ids[$element['#id']])) {
    drupal_add_js(drupal_get_path('module', 'tinybrowser') .'/tinybrowser/tb_standalone.js.php');
    $element['#description'] .= '<div class="tinybrowser-inline-wrapper">'
      . t('Insert !image or !link.',
        array(
          '!image' => 
          '<a href="" onclick="tinyBrowserPopUp(\'image\',\''.$element['#id'].'\'); return false;">' . t('image') . '</a>',
          '!link' => 
          '<a href="" onclick="tinyBrowserPopUp(\'file\',\''.$element['#id'].'\'); return false;">' . t('link') . '</a>',
        )
      )
      . '</div>';

/*
    $element['#description'] .= '<div class="imce-inline-wrapper" style="display:none">'. t('Insert !image or !link.', array('!image' => l(t('image'), 'imce', array('attributes' => array('name' => $element['#id'] .'-IMCE-image', 'class' => 'imce-inline-image'))), '!link' => l(t('link'), 'imce', array('attributes' => array('name' => $element['#id'] .'-IMCE-link', 'class' => 'imce-inline-link'))))) .'</div>';
*/
  }
  return $element;
}