<?php /* $Id: send.inc,v 1.25 2008-10-27 05:16:09 vauxia Exp $ */

/*
 * All-purpose settings form
 */
function _send_settings_form($module, $nodetype = '', $node = NULL) {
  $type = $nodetype ? "_$nodetype" : "";

  $form["{$module}{$type}_fulltext"] = array(
    '#type'          => 'checkbox',
    '#title'         => t('Allow visitors to send full item text'),
    '#default_value' => _send_value('fulltext', $module, $nodetype, $node),
    '#description'   => t("Send the full body of the node via email.  If this setting is not enabled, messages will only contain a teaser view."),
  );
  $form["{$module}{$type}_linktext"] = array(
    '#type'          => 'textfield',
    '#title'         => t("Link text"),
    '#default_value' => _send_value('linktext', $module, $nodetype, $node),
    '#size'          => 30,
    '#maxsize'       => 100,
    '#description'   => t('The text for the link to the email form. Use <em>&lt;none&gt;</em> to hide this link.'),
  );
  $form["{$module}{$type}_subject"] = array(
    '#type'          => 'textfield',
    '#title'         => t("E-mail subject line"),
    '#default_value' => _send_value('subject', $module, $nodetype, $node),
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form["{$module}{$type}_message"] = array(
    '#type'          => 'textarea',
    '#title'         => t("Default message text"),
    '#default_value' => _send_value('message', $module, $nodetype, $node),
    '#cols'          => 70,
    '#rows'          => 10,
  );
  $form["{$module}{$type}_template"] = array(
    '#type'          => 'textarea',
    '#title'         => t('Email Template'),
    '#default_value' => _send_value('template', $module, $nodetype, $node),
    '#rows'          => 30,
    '#cols'          => 70,
    '#description'   => t("This template controls the appearance of HTML messages.  You can use the tokens %body and %message to place message content and include additional HTML, images and styles to format messages."),
  );

  $value = _send_value('template_format', $module, $nodetype, $node);
  if (!$value) $value = FILTER_FORMAT_DEFAULT;
  $form["{$module}{$type}_template_format"] = filter_form($value, NULL, array("{$module}{$type}_template_format"));

  if ($module_settings = module_invoke($module, 'send', 'settings', $module)) {
    $form = array_merge($form, $module_settings);
  }
  return $form;
}

/**
 * module-specific settings
 */
function _send_module_form($form_state, $module='default') {
  $form = _send_settings_form($module);
  $form['#submit'][] = '_send_settings_submit';

  $form["{$module}_threshold"] = array(
    '#type'          => 'textfield',
    '#title'         => t('Send Threshold'),
    '#description'   => t('The maximum number of times per hour a user can send a message.  0 for unlimited'),
    '#default_value' => _send_value('threshold', $module),
    '#size'          => 3,
    '#maxlength'     => 3,
    '#weight'        => -9,
  );

  $form['module'] = array('#type' => 'value', '#value' => $module);
  $form['submit'] = array('#type' => 'submit', '#value' => t('Save configuration'));

  return $form;
}

/**
 * nodetype-specific settings
 */
function _send_nodetype_form($form) {
  $form['#submit'][] = '_send_settings_submit';
  $form['send'] = array();

  if ($type = $form['#node_type']->type) {
    $form['send']['send_type'] = array( '#type' => 'value', '#value' => $type);
  }

  // goofy hack to get the buttons at the end of the array :(
  $form['submit']['#weight'] += 1;
  $form['delete']['#weight'] += 1;

  foreach (send_modules() as $module => $name) {
    $module_name = module_invoke($module, 'send', 'name', $module);
    $form['send'][$module] = _send_settings_form($module, $type);

    $form['send'][$module]['#title'] = $module_name;
    $form['send'][$module]['#type'] = 'fieldset';
    $form['send'][$module]['#collapsible'] = TRUE;
    $form['send'][$module]['#collapsed']   = TRUE;

    // enable this send type
    $form['send'][$module]["{$module}_{$type}"] = array(
      '#type'          => 'checkbox',
      '#weight'        => -10,
      '#title'         => t('Enable "%name" functionality', array('%name' => $module_name)),
      '#default_value' => variable_get("{$module}_{$type}", 0),
      '#description'   => t("Adds a link to a form that generates an HTML-formatted e-mail from your site's content."),
    );

    // allow per-node overrides
    $form['send'][$module]["{$module}_{$type}_pernode"] = array(
      '#type'          => 'checkbox',
      '#weight'        => -9,
      '#title'         => t('Permit changes on every post'),
      '#default_value' => _send_value('pernode', $module, $type),
      '#description'   => t("Show this settings form on all nodes of this type, permitting you to cusomize the link text, template and other settings for each node."),
    );
  }
  return $form;
}

/**
 * node-specific settings
 */
function _send_node_form($form) {
  $type = $form['type']['#value'];
  $node = $form['#node'];

  $form['send'] = array('#weight' => 50);

  foreach (send_modules() as $module => $name) {
    if (!variable_get("{$module}_{$type}", 0)) continue;
    if (!variable_get("{$module}_{$type}_pernode", 0)) continue;

    $form['send']['send_type'] = array('#type' => 'value', '#value' => $type);
    $form['send'][$module] = _send_settings_form($module, $type, $node);
    $form['send'][$module]['#title'] = module_invoke($module, 'send', 'name', $module);
    $form['send'][$module]['#type'] = 'fieldset';
    $form['send'][$module]['#collapsible'] = TRUE;
    $form['send'][$module]['#collapsed']   = TRUE;
  }
  return $form;
}

function _send_settings_submit($form, &$form_state) {
  /* We don't want to junk up the variable namespace with our module settings
     since we're relying on our own cascading variable storage.
     Import the variables into our storage handler and then delete them
  */
  $values = $form_state['values'];

  $type = isset($values['send_type']) ? $values['send_type'] : NULL;
  $node = isset($values['nid'])  ? (object)$values : NULL;

  foreach (send_modules() as $module => $name) {

    $namespace = "{$module}_";

    if ($type) {
      $namespace .= "{$type}_";

      if (!$node) {
        db_query("DELETE FROM {variable} WHERE name LIKE '%s_%%_%s'", $module, $type);
        // variables to keep in $conf
        foreach (array('linktext', 'pernode') as $var) {
          $varname = $namespace . $var;
          variable_set($varname, $values[$varname]);
        }
        $varname = $module .'_'. $type;
        variable_set($varname, $values[$varname]);
      }

    }

    foreach ($values as $varname => $value) {
      $name = str_replace($namespace, '', $varname);
      if ($name != $varname) {
        _send_value($name, $module, $type, $node, $value);
      }
    }
  }
}

function _send_page($module = 'send', $nids = array(), $mode = 'teaser') {

  $modules = send_modules();
  if (!isset($modules[$module])) return drupal_not_found();

  drupal_set_title(module_invoke($module, 'send', 'name', $module));

  // node id's from url path
  if ($nids && !is_array($nids)) {
    $nids = is_numeric($nids) ? array($nids) : explode(' ', $nids);
  }
  if (!count($nids)) {
    return module_invoke($module, 'send', 'default action', $module);
  }

  // basic security checks
  foreach ($nids as $n) {
    if (!is_numeric($n) || !node_access('view', $node = node_load($n))) {
      drupal_set_message(t('There was a problem loading this item'), 'error');
      drupal_goto();
    }
    elseif (!variable_get("{$module}_{$node->type}", 0)) {
      drupal_set_message(t('Unable to send this item'), 'error');
      drupal_goto();
    }
  }

  // check against threshold
  $threshold = _send_value('threshold', $module);
  if ($threshold && !flood_is_allowed("send $module", $threshold)) {
    drupal_set_message(t('You have exceeded the limit for sending items'), 'error');
    drupal_goto();
  }

  return drupal_get_form('send_form', $module, $nids);
}

function send_form($form_state, $module, $nids ) {
  if ($form = module_invoke($module, 'send', 'form', $module)) {
    return $form;
  }

  global $user;

  $sender = array('first_name' => '', 'last_name' => '');

  $mode = 'teaser';
  $node = count($nids) ? node_load($nids[0]) : NULL;
  $type = $node->type;

  if (count($nids) == 1) {
    if (_send_value('fulltext', $module, $type, $node)) $mode = 'body';
  }

  $form = array(
    '#module'        => $module,
  );

  $form['from'] = array();
  $form['from']['sender_mail'] = array(
    '#type'          => 'textfield',
    '#title'         => t('Email'),
    '#default_value' => $user->mail,
    '#required'      => TRUE,
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form['from']['sender_first_name'] = array(
    '#type'          => 'textfield',
    '#title'         => t('First Name'),
    '#default_value' => $sender['first_name'],
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form['from']['sender_last_name'] = array(
    '#type'          => 'textfield',
    '#title'         => t('Last Name'),
    '#default_value' => $sender['last_name'],
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form['from']['sender_cc'] = array(
    '#type'          => 'checkbox',
    '#title'         => t('Send a copy to myself'),
    '#default_value' => 0,
  );
  $form['to'] = array();
  $form['to']['recipient_mail'] = array(
    '#type'          => 'textfield',
    '#title'         => t('Email'),
    '#required'      => TRUE,
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form['to']['recipient_first_name'] = array(
    '#type'          => 'textfield',
    '#title'         => t('First Name'),
    '#size'          => 30,
    '#maxsize'       => 100,
  );
  $form['to']['recipient_last_name'] = array(
    '#type'          => 'textfield',
    '#title'         => t('Last Name'),
    '#size'          => 30,
    '#maxsize'       => 100,
  );

  $subject = _send_value('subject', $module, $type, $node);
  $form['subject'] = array();
  $form['subject']['subject_view'] = array(
    '#type'          => 'markup',
    '#value'         => $subject,
  );
  $form['subject']['subject'] = array(
    '#type'          => 'value',
    '#title'         => t('E-mail Subject Line'),
    '#value'         => $subject,
  );

  $template = _send_value('template', $module, $type, $node);
  $form['template'] = array();
  $form['template']['template_view'] = array(
    '#type' => 'markup', '#value' => $template,
  );
  $form['template']['template'] = array(
    '#type' => 'value', '#value' => $template,
  );
  $template_format = _send_value('template_format', $module, $type, $node);
  $form['template']['template_format'] = array(
    '#type' => 'value', '#value' => $template_format,
  );

  $body = _send_body('', $nids, $module, $mode);
  $message = _send_value('message', $module, $type, $node);
  $form['message'] = array();
  $form['message']['message'] = array(
    '#type'          => 'textarea',
    '#title'         => t('Message Text'),
    '#cols'          => 70,
    '#rows'          => $body ? 10 : 30,  // longer if no body
    '#default_value' => $message,
  );

  $form['body'] = array();
  $form['body']['node_body_view'] = array(
    '#type'          => 'markup',
    '#value'         => $body,
  );
  $form['body']['node_body'] = array(
    '#type'          => 'value',
    '#value'         => $body,
    '#cols'          => 70,
    '#rows'          => 30,
  );

  $form['extra']['nids']   = array( '#type' => 'value', '#value' => $nids);
  $form['extra']['mode']   = array( '#type' => 'value', '#value' => $mode, );
  $form['extra']['module'] = array( '#type' => 'value', '#value' => $module, );
  $form['extra']['nodetype'] = array( '#type' => 'value', '#value' => $type, );
  $form['extra']['nid']    = array( '#type' => 'value', '#value' => $node, );

  // These values will be computed during the validate phase
  $form['values'] = array(
    'body'   => array('#type' => 'value', '#value' => ''),
    'sender' => array('#type' => 'value', '#value' => ''),
    'sid'    => array('#type' => 'value', '#value' => ''),
  );

  $form['buttons'] = array();
  $form['buttons']['submit'] = array(
    '#type' => 'submit', '#value' => t('Send'),
  );
  return $form;
}

function send_form_validate($form, &$form_state) {
  $ret = TRUE;

  if (!valid_email_address($form_state['values']['sender_mail'])) {
    form_set_error('sender_mail', t('Invalid from address'));
    $ret = FALSE;
  }

  if (isset($form_state['values']['recipient_mail']) && !valid_email_address($form_state['values']['recipient_mail'])) {
    form_set_error('recipient_mail', t('Invalid recipient address'));
    $ret = FALSE;
  }
  return $ret;
}

function send_form_submit($form, &$form_state) {
  global $user;

  $values = $form_state['values'];

  $module  = $values['module'];
  $uid     = $user->uid;
  $message = $values['message'];
  $subject = $values['subject'];
  $sender  = $values['sender'];

  $mail    = $values['sender_mail'];
  $first_name = $values['sender_first_name'];
  $last_name  = $values['sender_last_name'];
  ($name = trim($first_name .' '. $last_name)) || ($name = $values['sender_name']);

  // Create a $sender array for delivery functions
  $sender = array('mail' => $mail, 'name' => $name);
  if (!$sender['name']) $sender['name'] = $user->name;

  // Fetch a themed body
  if (!$values['body'] = theme("{$module}_body", $values)) {
    $values['body'] = theme('send_body', $values);
  }

  // log send action
  db_query("INSERT INTO {send}
    ( module ,uid ,mail ,timestamp ,message, subject, name )
    VALUES ( '%s' ,%d ,'%s' ,%d ,'%s', '%s', '%s')"
    , $module, $uid, $sender['mail'], time(), $message, $subject, $sender['name']);

  // Generate a send id.  This is needed early on for other tracking
  $values['sid'] = db_last_insert_id('send', 'sid');

  // get delivery callback
  if (!$deliver = module_invoke($module, 'send', 'deliver', $module)) {
    $deliver = module_invoke('send', 'send', 'deliver', 'send');
  }

  $recipients = array();
  // recipients are from a space/line-delimited textarea
  if (isset($values['recipients'])) {
    if (!is_array($recipients = $values['recipients'])) {
      $recipients = array();
      foreach (explode(',', preg_replace(array('/\s/ms', '/,+/'), ',', $values['recipients'])) as $r) {
        if (valid_email_address($r)) {
          $recipients[] = array('mail' => $r);
        }
        else {
          $recipients[] = $r;
        }
      }
    }
  }

  // recipients expanded into separate form fields
  // e.g. recipient1_first_name, recipient2_mail,  and so-on
  if (!count($recipients)) {
    foreach ($values as $key => $value) {
      if ($key != ($name = preg_replace('/^recipient(\d*)_/', '\1 ', $key))) {
        list($i, $name) = explode(' ', $name);
        if (!$i) $i = 1;
        $i--;
        if (!isset($recipients[$i])) $recipients[$i] = array();
        $recipients[$i][$name] = $value;
      }
    }
  }

  // recipient type - for now, 'node' or 'user'
  ($rtype = module_invoke($module, 'send', 'recipient type', $module))
    || ($rtype = module_invoke('send', 'send', 'recipient type', $module));

  $ret = TRUE;
  foreach ($recipients as $r) {
    $rid = 0;

    switch ($rtype) {
      case 'user':
        if (is_array($r) && isset($r['mail'])) {
          $recipient_user = user_load(array('mail'=>$r['mail']));
          $rid = $recipient_user->uid;
          if (!$r['name']) {
            $r['name'] = trim($r['first_name'] .' '. $r['last_name']);
            if (!$r['name']) $r['name'] = $recipient_user->name;
          }
          $r_name = $r['name'];
          $r_mail = $r['mail'];
        }
        break;
      case 'node':
        // when the type is "node" each recipient is a nid
        $rid    = $r;
        $r      = node_load($rid);
        $r_name = $r->title;
        $r_mail = '';
        break;
    }

    // Add querystrings to urls in the message body
    $qs = array();
    foreach (send_modules() as $m => $name) {
      if ($callback = module_invoke($m, 'send', 'querystring', $module)) {
        $qs = array_merge($qs, call_user_func($callback, $sender, $r, $values));
      }
    }

    if (count($qs)) {
      foreach ($qs as $n => $v) $qs[$n] = urlencode($n) .'='. urlencode($v);
      $qs = join('&', $qs);
      $body = preg_replace('/(<a[^>]+href=")([^"]*)/emi', '"\\1"._send_qs("\2","'. $qs .'")', $body);
    }

    // call the delivery callback
    $ret = (($count = call_user_func($deliver, $sender, $r, $values)) !== FALSE )
      && $ret;

    // log the recipient if there are no nodes in the message
    if (!count($values['nids'])) {
      db_query("INSERT INTO {send_recipient}
          ( sid ,nid ,rid ,rtype  ,mail, name, rcount )
          VALUES ( %d ,%d ,%d ,'%s', '%s', '%s', %d )",
        $values['sid'], 0, $rid, $rtype, $r_mail, $r_name, $count );
    }
    // log each node/user combination
    foreach ($values['nids'] as $nid) {
      db_query("INSERT INTO {send_recipient}
          ( sid ,nid ,rid ,rtype  ,mail, name, rcount )
          VALUES ( %d ,%d ,%d ,'%s', '%s', '%s', %d )",
        $values['sid'], $nid, $rid, $rtype, $r_mail, $r_name, $count );
    }

  }
  if ($ret) {
    flood_register_event("send $module");

    if ($values['sender_cc']) {
      $self = $user->uid ? $user : $sender; //if it's a registered user, use their "real" address

      mimemail($sender, $self, $subject, $values['body']);
      drupal_set_message(t('A copy of this message has also been sent to %mail', array('%mail' => $values['sender_mail'])));
    }
  }

  // get confirmation callback
  if ($callback = module_invoke($module, 'send', 'confirm', $module)) {
    $form_state['redirect'] = call_user_func($callback, $values);
  }
  $form_state['redirect'] = _send_confirm($values);
}

function _send_deliver($sender, $recipient, $values) {
  if (mimemail($sender, $recipient, $values['subject'], $values['body'])) {
    drupal_set_message(t('Message sent to %mail', array('%mail' => $recipient['mail'])));
  }
  // return the count of recipients
  if (is_object($recipient) || isset($recipient['mail'])) return 1;
  return count($recipient);
}

function _send_confirm($values) {
  return 'node/'. $values['nids'][0];
}

/**
 * build the body text
 */
function _send_body($message, $nids, $module, $mode) {
  $modules = send_modules();

  $body = '';

  foreach ($nids as $nid) {
    $node = node_load($nid);
    switch ($mode) {

      case 'title' :
        $body .= $node->title .'<br />';
        break;

      case 'teaser' :
        $text = node_view($node, TRUE, FALSE, FALSE);
        $body .= _send_hook_modify($text, 'node', $module, $node->type, $node);
        break;

      case 'body' :
        $text = node_view($node, FALSE, FALSE, FALSE);
        $body .= _send_hook_modify($text, 'node', $module, $node->type, $node);
        break;
    }
  }

  // let modules prepend / append stuff to the body, or otherwise modify it
  $body = _send_hook_modify($body, 'node', $module, $node->type, $node);
  return $body;
}

// callback for querystring preg
function _send_qs($url, $qs) {
  return $url . (strpos($url, '?') !== FALSE ? '&' : '?') . $qs;
}

function _send_hook_modify($text, $op, $module, $nodetype='', $node=NULL) {
  $modules = send_modules();
  foreach ($modules as $m => $name) {
    $callback = module_invoke($m, 'send', $op, $nodetype, $node);
    if ($callback && !is_null($altered = call_user_func($callback, $text))) {
      $text = $altered;
    }
  }
  return $text;
}

/**
 * Set configuration variables for send
 */
function _send_value($name, $module='', $nodetype = '', $node = NULL, $value = NULL) {
  $nid = is_object($node) ? $node->nid : 0;
  $pernode = variable_get("{$module}_{$nodetype}_pernode", 0);

  // set a new value
  if (!is_null($value)) {
    if ($nid && !$pernode) {
      return;               // trying to set a per-node value but can't
    }

    db_query("DELETE FROM {send_setting}
      WHERE name='%s' AND module='%s' AND nodetype='%s' AND nid=%d"
        , $name, $module, $nodetype, $nid);

    /* We override in this order: module, nodetype, node
       don't set this value if it's the same as the one above it in the stack
    */
    if ($nid) {
      // this node has the same value as its nodetype
      if ($value == _send_value($name, $module, $nodetype)) return;
    }

    elseif ($nodetype) {
      // this nodetype has the same value as its module
      if ($value == _send_value($name, $module)) return;

      // for future consistency, delete children that would inherit this value
      db_query("DELETE FROM {send_setting}
        WHERE name='%s' AND module='%s' AND nodetype='%s' AND value='%s'"
          , $name, $module, $nodetype, $value);
    }

    elseif ($module) {
      // this module has the same value as the default
      if ($value == _send_value($name)) return;

      // for future consistency, delete children that would inherit this value
      db_query("DELETE FROM {send_setting}
        WHERE name='%s' AND module='%s' AND value='%s'"
          , $name, $module, $value);
    }

    // save the value
    db_query("INSERT INTO {send_setting} ( name, module, nodetype, nid, value )
        VALUES ('%s', '%s', '%s', %d, '%s')", $name, $module, $nodetype, $nid, $value);
    return;
  }

  // try getting value from variables to save resources
  if (!$pernode && $val = variable_get("{$module}_{$nodetype}_{$name}", FALSE)) {
    return $val;
  }

  // get value from database
  if ($val = db_result(db_query("SELECT value FROM {send_setting}
      WHERE name='%s' AND
      nid IN (0, %d) AND nodetype IN ('', '%s') AND module IN ('', '%s')
      ORDER BY (nid = 0), (nodetype = ''), (module = '')
      LIMIT 1", $name, $nid, $nodetype, $module))) {

    return $val;
  }

  // return module's default value
  if ($val = module_invoke($module, 'send', $name, $module, $nodetype, $node)) {
    return $val;
  }

  // return send's default value
  if ($val = module_invoke('send', 'send', $name, $module, $nodetype, $node)) {
    return $val;
  }
  return;
}

function theme_send_form(&$form) {
  $from    = drupal_render($form['from']);
  $to      = drupal_render($form['to']);
  $buttons = drupal_render($form['buttons']);
  $subject = drupal_render($form['subject']);
  $message = drupal_render($form['message']);
  $template= check_markup(drupal_render($form['template']), $form['template']['template_format']['#value']);
  $body    = drupal_render($form['body']);
  $extra   = drupal_render($form);

  $replace = array('%message', '%body');
  $values  = array($message, $body);
  $content = str_replace($replace, $values, $template);

  $headers = theme('table', array(t('From'), t('To')), array(array('data' => array($from, $to), 'valign' => 'top')), array('width' => '100%'));

  return $headers .'<br class="clear" />'. $extra . $buttons .'<br class="clear" />'. $subject .'<br class="clear" />'. $content;
}

function theme_send_template() {
  $template = "%message\n%body\n";
  return $template;
}

function theme_send_body($values) {
  $template = check_markup($values['template'], $values['template_format']);

  $message = '';
  if ($values['message']) {
    $message = '<div class="messages">'. check_markup($values['message']) .'</div>';
  }
  $body = $values['node_body'];
  $replace = array('%message', '%body');
  $values  = array($message, $body);

  return str_replace($replace, $values, $template);
}