<?php
// $Id$

if (module_exist('views')) {
  include_once('buddylist_views.inc');
}

define('BUDDYLIST_ADD_SUBJECT', variable_get('buddylist_add_subject', "[%site] You are %adder_name's newest buddy"));
define('BUDDYLIST_REMOVE_SUBJECT', variable_get('buddylist_remove_subject', "[%site] You have been removed from %adder_name's buddy list"));
define('BUDDYLIST_REQUEST_SUBJECT', variable_get('buddylist_request_subject', "[%site] %adder_name has requested to add you to his/her %buddy list"));
define('BUDDYLIST_APPROVAL_SUBJECT', variable_get('buddylist_approval_subject', "[%site] %addee_name has approved your %buddy list add request"));

/**
 * returns an array of common translation placeholders
 */
function buddylist_translation() {
  return variable_get('buddylist_translation', 
    array('%buddy' => t('buddy'),
      '%Buddy' => t('Buddy'),
      '%buddylist' => t('buddylist'),
      '%buddies' => t('buddies'),
      '%Buddies' => t('Buddies'),
      '%buddyof' => t('buddy of'),
      '%Buddylist' => t('Buddylist'),
    )
  );
}

/**
 * Implementation of hook_help
 */
function buddylist_help($section) {
  switch ($section) {
    case 'admin/modules#description':
      return t('Enable %buddy list functionality.', buddylist_translation());
    case 'admin/help#buddylist':
      $output = t("
<p>%Buddy list enables users to keep a list of %buddies from their social network in their user account.  Users can also track what their %buddies are posting to the site.  Furthermore, they can track their <i>%buddies'</i> %buddies and thereby explore their social network.</p>
<p>If the administrator has enabled the profile module, users can add %buddies via their %buddies' user profiles.   On the \"View\" tab of each user's profile, there is a \"%Buddy list\" section.  Select the 'add %buddy' action to add the user to your %buddy list.  If a user is already in your %buddy list, the 'delete' action will remove the %buddy. Administrators can also enable the %buddylist block.  This block allows you to see a list of your %buddies. If the Friends Of A Friend (FOAF) module is enabled, it will be possible to share %buddy lists with other FOAF-aware social networking applications.</p>
<p>You can</p>
<ul>
<li>add a %buddy by looking at their profile: <a href = \"%Userprofiles\" title = \"View user profiles\">view user profiles</a></li>
<li>allow users to view profiles in <a href = \"%setaccesspermissions\" title = \"set access permissions\"> administer &raquo; access control</a></li>
<li>enable the %buddy list block at <a href = \"%blockadministration\" title = \"block administration\">administer &raquo; block</a></li>
<li>administer the %buddy list block at <a href = \"%buddylistsettings\" title = \"%buddylist settings\">administer &raquo; settings &raquo; %buddylist</a></li>
</ul>

<p>For more information, read the configuration and customization handbook <a href=\"http://drupal.org/handbook/modules/Buddylist\" title=\"Buddylist page\">Buddylist page</a></p>",
array('%Userprofiles' => url('profile'),
      '%setaccesspermissions' => url('admin/access/permission'),
      '%blockadministration' => url('admin/block'),
      '%buddylistsettings' => url('admin/settings/buddylist')
      ) + buddylist_translation());
      return $output;
  }
}


/**
 * Implementation of hook_perm
 */
function buddylist_perm() {
  return array('maintain buddy list', 'view buddy lists');
}

/**
 * Implementation of hook_menu
 */
function buddylist_menu($may_cache) {
  global $user;

  $items = array();
  $id = is_numeric(arg(1)) ? arg(1) : $user->uid;

  if ($may_cache) {
    // my buddylist menu item
    $items[] = array(
      'path' => 'buddylist',
      'title' => t('my %buddylist', buddylist_translation()),
      'access' => (user_access('maintain buddy list') && $id),
      'callback' => 'buddylist_buddylisting_page',
      'callback arguments' => array($user->uid,'buddies'),
    );
  }
  else {
    // 'edit access' only granted to user's own buddy list or to administrative users
    $editAccess = (
      ($id == $user->uid && user_access('maintain buddy list') && $user->uid)
      || user_access('administer users'));
    
    $approval_required = variable_get('buddylist_require_approval', 0);

    $items[] = array(
      'path' => 'buddy/add',
      'title' => t('add to %buddylist', buddylist_translation()),
      'access' => $editAccess,
      'callback' => 'buddylist_addbuddy',
      'type' => MENU_CALLBACK,
    );
    $items[] = array(
      'path' => 'buddy/delete',
      'title' => t('delete from %buddylist', buddylist_translation()),
      'access' => $editAccess,
      'callback' => 'buddylist_deletebuddy',
      'type' => MENU_CALLBACK,
    );

    // 'view only' tabs
    $viewAccess = (($id == $user->uid) || user_access('view buddy lists'));
    $items[] = array(
      'path' => 'buddylist/'. $id .'/buddies',
      'title' => t('%buddies', buddylist_translation()),
      'access' => $viewAccess,
      'callback' => 'buddylist_buddylisting_page',
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -1,
      'callback arguments' => array($id)
    );
    
    // If buddylist approval is required, then upon approval, both parties become buddies of each other.
    // So, in effect, idea 'buddyof' becomes redundant. 
    if (!$approval_required) {
      $items[] = array(
        'path' => 'buddylist/'. $id .'/buddyof',
        'title' => t('%buddyof', buddylist_translation()),
        'access' => $viewAccess,
        'callback' => 'buddylist_buddylisting_page',
        'type' => MENU_LOCAL_TASK,
        'weight' => 1,
        'callback arguments' => array($id, 'buddyof')
      );
    }

    // subtabs
    $items[] = array(
      'path' => 'buddylist/'. $id .'/buddies/list',
      'title' => t('list'),
      'access' => $viewAccess,
      'callback' => 'buddylist_buddylisting_page',
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -1,
      'callback arguments' => array($id),
    );
    $items[] = array(
      'path' => 'buddylist/'. $id .'/buddies/recent',
      'title' => t('recent posts'),
      'access' => ($viewAccess && module_exist('tracker')),
      'callback' => 'buddylist_buddiesrecent_page',
      'type' => MENU_LOCAL_TASK,
      'weight' => 1,
      'callback arguments' => array($id),
    );
    if (variable_get('buddylist_buddygroups', FALSE)) {
      $items[] = array(
        'path' => 'buddylist/'. $id .'/buddies/groups/view',
        'title' => t('view groups'),
        'access' => $viewAccess,
        'callback' => 'buddylist_buddiesgroups_page',
        'type' => MENU_LOCAL_TASK,
        'weight' => 2,
        'callback arguments' => array($id),
      );
      $items[] = array(
        'path' => 'buddylist/'. $id .'/buddies/groups/edit',
        'title' => t('edit groups'),
        'access' => $editAccess,
        'callback' => 'buddylist_buddiesgroups_form',
        'type' => MENU_LOCAL_TASK,
        'weight' => 3,
        'callback arguments' => array($id)
      );
    }
    
    // sub-subtabs
    if ($approval_required && $editAccess) {
      $items[] = array(
        'path' => 'buddylist/'. $id .'/buddies/requests',
        'title' => t('Requests'),
        'access' => $editAccess,
        'callback' => 'buddylist_pending_requests_list',
        'type' => MENU_LOCAL_TASK,
        'weight' => 0,
        'callback arguments' => array($id)
      );
      
      $items[] = array(
        'path' => 'buddylist/'. $id .'/buddies/requested',
        'title' => t('Requested'),
        'access' => $editAccess,
        'callback' => 'buddylist_pending_requested_list',
        'type' => MENU_LOCAL_TASK,
        'weight' => 1,
        'callback arguments' => array($id)
      );
    }

    // other callbacks
    if ($id != $user->uid) {
      // This callback can interfere with the 'my buddylist' menu item,
      // so we only load it if the user is viewing another user's list.
      $items[] = array(
        'path' => 'buddylist/'. $id,
        'title' => t('%buddylist', buddylist_translation()),
        'access' => (($viewAccess || $editAccess) && $id),
        'callback' => 'buddylist_buddylisting_page',
        'type' => MENU_CALLBACK,
        'callback arguments' => array($id),
      );
    }
    $items[] = array(
      'path' => 'buddylist/'. $id .'/buddies/recent/feed',
      'title' => t('xml feed'),
      'access' => $viewAccess,
      'callback' => 'buddylist_buddyfeed',
      'type' => MENU_CALLBACK,
      'callback arguments' => array($id),
    );
  }

  return $items;
}

/**
 * Implementation of hook_settings
 */
function buddylist_settings() {

  $form['general'] = array(
    '#type' => 'fieldset',
    '#title' => t('General settings'),
  );

  $form['general']['buddylist_require_approval'] = array(
    '#type' => 'radios',
    '#title' => t('Require approval'),
    '#default_value' => variable_get('buddylist_require_approval', 0),
    '#description' => t("Select 'Yes' if a user's request to be someone's %buddy should be approved by the other user first.  Upon approval, both parties will be %buddies of each other.", buddylist_translation()),
    '#options' => array(1 => t('Yes'), 0 => t('No'))
  );
  $form['general']['buddylist_buddygroups'] = array(
    '#type' => 'checkbox',
    '#title' => t('Enable %buddy groups', buddylist_translation()),
    '#description' => t('Enables %buddylist %buddy groups. Users will be able to create %buddy groups to manage their %buddies.', buddylist_translation()),
    '#default_value' => variable_get('buddylist_buddygroups', FALSE),
  );

  // User profile page settings
  $form['profile_settings'] = array(
    '#type' => 'fieldset',
    '#title' => t('Profile page options'),
  );
  $form['profile_settings']['buddylist_prof_buddies'] = array(
    '#type' => 'select',
    '#title' => t('Number of %buddies and users who\'ve added me', buddylist_translation()),
    '#default_value' => variable_get('buddylist_prof_buddies', 5),
    '#options' => drupal_map_assoc(range(0, 10)),
    '#description' => t('The default maximum number of %buddies and users who\'ve added me as a %buddy to display on a user\'s profile page.', buddylist_translation()),
  );

  // TODO: move these to block settings
  $form['block_settings'] = array(
    '#type' => 'fieldset',
    '#title' => t('%Buddylist block options', buddylist_translation()),
  );
  $form['block_settings']['buddylist_blocklisting_size'] = array(
    '#type' => 'select',
    '#title' => t("Number of %buddies to list in the user's %buddy block", buddylist_translation()),
    '#default_value' => variable_get('buddylist_blocklisting_size', 5),
    '#options' => drupal_map_assoc(array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20, 25, 30)),
    '#description' => t('This setting controls the maximum number of %buddies displayed in a user\'s "%buddylist block" given that the "%buddylist block" is enabled in the %link.', array('%link' => l(t('block settings'), 'admin/block')) + buddylist_translation()),
  );
  $form['block_settings']['buddylist_posts_block'] = array(
    '#type' => 'select',
    '#title' => t("Number of posts to list in the %buddies' recent posts block", buddylist_translation()),
    '#default_value' => variable_get('buddylist_posts_block', 7),
    '#options' => drupal_map_assoc(array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20, 25, 30)),
    '#description' => t('This setting controls the maximum number of posts to display in a user\'s "%buddy recent posts" block given that the "%buddies\' recent posts" block is enabled in the %link.', array('%link' => l(t('block settings'), 'admin/block')) + buddylist_translation()),
  );
  $form['block_settings']['buddylist_list_block_title'] = array(
    '#type' => 'textfield',
    '#title' => t('"My %buddies list" block title', buddylist_translation()),
    '#default_value' => variable_get('buddylist_list_block_title', t('My %buddy list', buddylist_translation())),
    '#size' => 70,
    '#maxlength' => 128,
    '#description' => t('This will be the title for the "My %buddy list" block. If none is specified, "My %buddy list" will be used.', buddylist_translation()),
  );
  $form['block_settings']['buddylist_block_title'] = array(
    '#type' => 'textfield',
    '#title' => t('"My %buddies\' recent posts" block title', buddylist_translation()),
    '#default_value' => variable_get('buddylist_block_title', t("My %buddies' recent posts", buddylist_translation())),
    '#size' => 70,
    '#maxlength' => 128,
    '#description' => t('This will be the title for the recent %buddies post block. If none is specified, "My %buddies\' recent posts" will be used.', buddylist_translation()),
  );

   $form['mail'] = array(
    '#type' => 'fieldset',
    '#title' => t('email'),
  );

  $macros = implode(', ', array_keys(buddylist_mail_replacements() + buddylist_translation()));
  $approval_macros = implode(', ', array_keys(buddylist_approval_mail_replacements() + buddylist_translation()));

  $form['mail']['buddylist_send_add'] = array(
    '#type' => 'checkbox',
    '#title' => t('Send add messages'),
    '#default_value' => variable_get('buddylist_send_add', FALSE),
  );

  $form['mail']['buddylist_add_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Added Buddy Email Subject'),
    '#default_value' => BUDDYLIST_ADD_SUBJECT,
  );

  $add_default = buddylist_mail_add_default();

  $form['mail']['buddylist_add_text'] = array(
    '#type' => 'textarea',
    '#title' => t('Added Buddy Email Message'),
    '#default_value' => variable_get('buddylist_add_text', $add_default),
    '#description' => t('Replacement strings are: %macros', array('%macros' => $macros)),
  );

  $form['mail']['buddylist_send_remove'] = array(
    '#type' => 'checkbox',
    '#title' => t('Send remove messages'),
    '#default_value' => variable_get('buddylist_send_remove', FALSE),
  );

  $form['mail']['buddylist_remove_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('Removed Buddy Email Subject'),
    '#default_value' => BUDDYLIST_REMOVE_SUBJECT,
  );

  $remove_default = buddylist_mail_remove_default();

  $form['mail']['buddylist_remove_text'] = array(
    '#type' => 'textarea',
    '#title' => t('Removed %buddy email message', buddylist_translation()),
    '#default_value' => variable_get('buddylist_remove_text', $remove_default),
    '#description' => t('Replacement strings are: %macros', array('%macros' => $macros)),
  ); 
  
  $form['mail']['buddylist_send_request'] = array(
    '#type' => 'checkbox',
    '#title' => t('Send request messages.'),
    '#description' => t('Check this box if you want users to receive an email when someone requests to be their buddy.  This setting only has effect if approval is required to be on someone\'s buddylist. (See <a href="#approval">Approval</a>)'),
    '#default_value' => variable_get('buddylist_send_request', FALSE)
  );  
  $form['mail']['buddylist_request_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('%buddy request email subject', buddylist_translation()),
    '#default_value' => BUDDYLIST_REQUEST_SUBJECT,
  );
  
  $request_default = buddylist_mail_request_default();
  
  $form['mail']['buddylist_request_text'] = array(
    '#type' => 'textarea',
    '#title' => t('%buddy request email message', buddylist_translation()),
    '#default_value' => variable_get('buddylist_request_text', $request_default),
    '#description' => t('Replacement strings are: %macros', array('%macros' => $macros)),
  );
  
  $form['mail']['buddylist_send_approval'] = array(
    '#type' => 'checkbox',
    '#title' => t('Send approval messages'),
    '#default_value' => variable_get('buddylist_send_approval', FALSE),
    '#description' => t('Check this box if you want users to receive an email to the requester when someone approves an add request.  This setting only has effect if approval is required to be on someone\'s %buddylist. (See <a href="#approval">Approval</a>)', buddylist_translation())
  );
  
  $form['mail']['buddylist_approval_subject'] = array(
    '#type' => 'textfield',
    '#title' => t('%buddy request email subject', buddylist_translation()),
    '#default_value' => BUDDYLIST_APPROVAL_SUBJECT,
  );
  
  $approval_default = buddylist_mail_approval_default();
  
  $form['mail']['buddylist_approval_text'] = array(
    '#type' => 'textarea',
    '#title' => t('%buddy approval email message', buddylist_translation()),
    '#default_value' => variable_get('buddylist_approval_text', $request_default),
    '#description' => t('Replacement strings are: %macros', array('%macros' => $approval_macros)),    
  );
  
  return $form;
}


/**
 * Implementation of hook_user
 */
function buddylist_user($type, &$edit, &$thisuser, $category = NULL) {
  global $user;

  $output = array();
  // show any buddylist notifications upon login and upon viewing own profile
  if (user_access('maintain buddy list') && (($type == 'login') || ($type == 'view') && ($thisuser->uid == $user->uid))) {
    buddylist_setmsg_received($thisuser);
  }
  if ($type == 'view') {
    if ($list = buddylist_get_buddylist($thisuser)) {
      $output[] = array('title' => t('%Buddies', buddylist_translation()), 'value' => $list, 'class' => 'buddylist');
    }
    if ($list = buddylist_get_buddylist($thisuser, TRUE)) {
      $output[] = array('title' => t('%buddy of', buddylist_translation()), 'value' => $list, 'class' => 'buddyoflist');
    }
    if ($actions = buddylist_get_buddy_actions($user, $thisuser)) {
      $output[] = array('title' => t('%Buddy actions', buddylist_translation()), 'value' => theme('item_list', $actions), 'class' => 'buddylist_actions');
    }
    if(count($output) > 0) {
      return array(t('%Buddy List', buddylist_translation()) => $output);
    }
  }
  else if ($type == 'delete') {
    db_query("DELETE FROM {buddylist} WHERE uid = %d OR buddy = %d", $thisuser->uid, $thisuser->uid);
    db_query("DELETE FROM {buddylist_buddy_group} WHERE uid = %d OR buddy = %d", $thisuser->uid, $thisuser->uid);
    db_query("DELETE FROM {buddylist_groups} WHERE uid = %d", $thisuser->uid);
    db_query("DELETE FROM {buddylist_pending_requests} WHERE requester_uid = %d OR requestee_uid = %d", $thisuser->uid, $thisuser->uid);
  }
}

/*
 * Return a formatted list of buddies for the given user
 * @param $buddy_of If set to TRUE, a formatted list of users is returned, for whom this user is a buddy.
 */
function buddylist_get_buddylist($user, $buddy_of = FALSE) {

	if (user_access('view buddy lists') && !$buddy_of) {
    $i = 0;
    if ($buddies = buddylist_get_buddies($user->uid)) {
      foreach(array_keys($buddies) as $buddy) {
        $account = user_load(array('uid' => $buddy));
        $listbuddies[] = $account;
        $i++;
        if ($i > variable_get('buddylist_prof_buddies', 5)) {
          break;
        }
      }
      return theme('user_list', $listbuddies);
    }
	}
  else if (user_access('view buddy lists') && !variable_get('buddylist_require_approval', 0)) {
    // This portion of code is used to see if this $thisuser is a buddy of others and, if s/he is, returns a list
    // of people s/he is a buddy of.
    // Note the distinction between having a buddy and being someone else's buddy (i.e., 'buddyof')
    // Of course, this distinction doesn't exist if approval is required to add a buddy (in which case, buddy relationships are symmetric)
    $sql = 'SELECT b.uid, u.name FROM {buddylist} b INNER JOIN {users} u ON b.uid = u.uid WHERE b.buddy = %d ORDER BY u.access DESC';
    $result = db_query_range($sql, $user->uid, 0, variable_get('buddylist_prof_buddies', 5));
    while ($row = db_fetch_object($result)) {
      $listbuddyof[$row->uid] = $row;
    }
    if ($listbuddyof) {
      return theme('user_list', $listbuddyof);
    }
  }
}


/*
 * Returns an array of posible actions (html) for the viewing user,
 * e.g. a link to make the viewed user a buddy 
 */
function buddylist_get_buddy_actions(&$viewing_user, &$viewed_user) {

  $actions = array();
  if (!user_access('maintain buddy list') || $viewing_user->uid == $viewed_user->uid) {
    return $actions;
  }

  if (variable_get('buddylist_require_approval', FALSE) && in_array($viewed_user->uid, array_keys(buddylist_get_requestees($viewing_user->uid)))) {
    $actions[] = t('You have requested to add this user to your %buddylist. (See !your_pending_requests)', array('!your_pending_requests' => l(t('your pending requests'), 'buddylist/'. $viewing_user->uid .'/buddies/requested')) + buddylist_translation());
  }
  else if (in_array($viewed_user->uid, array_keys(buddylist_get_buddies($viewing_user->uid)))) {
    $actions[] = theme('remove_from_buddylist_link', $viewed_user);
  }
  else if (in_array($viewing_user->uid, array_keys(buddylist_get_requestees($viewed_user->uid)))) {
    $actions[] = t('This user has requested to add you to your %buddylist.', buddylist_translation()) .
                 drupal_get_form('buddylist_approval_form', buddylist_approval_form($viewing_user->uid, $viewed_user->uid));
  }
  else {
    $actions[] = theme('add_to_buddylist_link', $viewed_user);
  }

  return $actions;
}


/**
 * Implementation for hook_block
 */
function buddylist_block($op = 'list', $delta = 0) {
  global $user;

  if ($op == 'list') {
    $block[0]['info'] = variable_get('buddylist_list_block_title', t('My %buddy list', buddylist_translation()));
    $block[1]['info'] = variable_get('buddylist_block_title', t('My %buddies\' recent posts', buddylist_translation()));
    return $block;
  }
  else if ($op == 'view' && user_access('access content') && $user->uid > 0) {
    switch ($delta) {
      case 0 : // Shows buddylist block
        if ($buddies = buddylist_get_buddies()) {
          $i = 0;
          foreach (array_keys($buddies) as $buddy) {
            $users[] = user_load(array('uid' => $buddy));
            $i++;
            if ($i == variable_get('buddylist_blocklisting_size', 5)) {
              break;
            }
          }


          $block['content'] = theme('user_list', $users);
          $block['subject'] = variable_get('buddylist_list_block_title', t('My %buddy list', buddylist_translation()));

          // check if a "more" link should generated by seeing if there are more buddies than the specified $upperlimit
          if (count($buddies) > variable_get('buddylist_blocklisting_size', 5)) {
            $block['content'] .=  '<div class="more-link">' . l(t('more'), 'buddylist', array('title' => t('View more.'))) . '</div>';
          }
          return $block;
        }
        break;

      case 1: // Shows my buddies recent posts block
        $buddies = buddylist_get_buddies();
        $keys = array_keys($buddies);
        if (count($keys) > 0) {
          $str_buddies = implode(',', $keys);
          $result = db_query_range(db_rewrite_sql("SELECT n.nid, n.status, n.type, u.uid, u.name, n.created, n.title FROM {node} n INNER JOIN {users} u ON n.uid = u.uid WHERE n.status = 1 AND n.uid IN ($str_buddies) ORDER BY n.nid DESC"), 0, variable_get('buddylist_posts_block', 7));

          if (db_num_rows($result)) {
            $block['subject'] = variable_get('buddylist_block_title', t('My %buddies\' recent posts', buddylist_translation()));
            $block['content'] = node_title_list($result);

            // check if a "more" link should generated by seeing if there are more buddies than the specified $upperlimit
            $result = db_query(db_rewrite_sql('SELECT COUNT(n.nid) AS node_count FROM {buddylist} b LEFT JOIN {node} n ON n.uid=b.buddy LEFT JOIN {users} u ON n.uid = u.uid WHERE n.status = 1 AND b.uid=%d'), $user->uid);
            $countresult = db_fetch_object($result);

            if (variable_get('buddylist_posts_block', 7) < $countresult->node_count) {
              $block['content'] .= '<div class="more-link">'. l(t('more'), 'buddylist/'. $user->uid .'/buddies/recent', array('title' => t('View more.'))) .'</div>';
            }
            return $block;
          }
        }
        break;
    }
  }
}


/**
 *  Implements a simple single select box suitable for use in a block
 *  or in theme, or in another module, for example.
 */
function buddylist_select() {
  global $user;

  if ($buddies = buddylist_get_buddies()) {
    foreach (array_keys($buddies) as $uid) {
      $account = user_load(array('uid' => $uid));
      $options[$account->uid] = $account->name;
    }
    $form['buddy'] = array(
      '#type' => 'select',
      '#default_value' => $edit['buddy'] ? $edit['buddy'] : '',
      '#options' => $options,
    );
    return $form;
  }
}

/**
 *  Implements a simple single select box suitable for use in a block
 *  or in theme, or in another module, for example.
 */
function buddylist_groups_select($uid, $desc, $edit = array()) {
  if ($buddies = buddylist_get_buddies($uid, 'label')) {
    $labels = array_keys($buddies);
    $options = drupal_map_assoc($labels);
    unset($options['all']);
    if ($options) {
      $form['buddylist_groups'] = array(
        '#type' => 'select',
        '#title' => t('%Buddy groups', buddylist_translation()),
        '#default_value' => $edit['buddylist_groups'],
        '#options' => $options,
        '#description' => $desc,
        '#multiple' => TRUE,
      );
      return $form;
    }
  }
}

/**
 * Public API for retrieving buddies. Feel free to use this from other
 * modules.
 * $key can be 'uid' or 'label'.
*/
function buddylist_get_buddies($uid = NULL, $key = 'uid') {
  static $buddies;

  if (!$uid) {
    global $user;
    $uid = $user->uid;
  }
  if (!isset($buddies[$key][$uid])) {
    $buddies[$key][$uid] = array();
    $sql = 'SELECT b.buddy, u.name, u.mail, u.uid FROM {buddylist} b
            INNER JOIN {users} u ON b.buddy = u.uid
            WHERE b.uid = %d';
    $result = db_query($sql, $uid);
    while ($row = db_fetch_object($result)) {
      $buddies[$key][$uid][$row->buddy]['uid'] = $row->uid;
      $buddies[$key][$uid][$row->buddy]['name'] = $row->name;
      $buddies[$key][$uid][$row->buddy]['mail'] = $row->mail;
      $buddies[$key][$uid][$row->buddy]['groups'] = buddylist_get_buddy_groups($uid, $row->buddy);
      $buddies[$key][$uid][$row->buddy]['online'] = 0;
      $selectlist .= $row->buddy.",";
    }
    // Add the online flag
    if (db_num_rows($result)) {
      $sql = 'SELECT uid FROM {sessions} WHERE uid IN (%s) AND timestamp > %d';
      $result = db_query($sql, substr($selectlist,0,-1), time()-1800);
      while ($row = db_fetch_object($result)) {
        $buddies[$key][$uid][$row->uid]['online'] = 1;
      }
    }
  }

  return $buddies[$key][$uid];
}

/**
 * Returns an array of uid => name of people that user with param $uid has made a buddy request to
 */
function buddylist_get_requestees($uid) {
  $buddies = array();
  
  $result = db_query('SELECT bpr.requestee_uid, u.name FROM {buddylist_pending_requests} bpr INNER JOIN {users} u ON bpr.requestee_uid = u.uid WHERE requester_uid = %d', $uid);
  
  while ($row = db_fetch_object($result)) {
    $buddies[$row->requestee_uid] = $row->name;
  }
  
  return $buddies;
}


function buddylist_get_buddy_groups($uid, $buddy) {
  $result = db_query("SELECT bg.label_id, bg.label, bg.visible FROM {buddylist_groups} bg INNER JOIN {buddylist_buddy_group} bbg ON bbg.uid = bg.uid WHERE bbg.uid = %d AND bbg.buddy = %d AND bg.label_id = bbg.label_id", $uid, $buddy);
  $buddy_groups = array();
  while ($row = db_fetch_array($result)) {
    $buddy_groups[] = $row;
  }
  return $buddy_groups;
}


function buddylist_setmsg_received($thisuser) {
  global $user;

  if (variable_get('buddylist_require_approval', 0)) {
    // Go through and find new buddylist add-requests, (i.e., the ones in {buddylist_pending_requests} w/ received column == 0
    $result = db_query('SELECT bpr.requester_uid as uid, u.name FROM {buddylist_pending_requests} bpr INNER JOIN {users} u ON bpr.requester_uid = u.uid WHERE bpr.requestee_uid = %d AND bpr.received = 0', $user->uid);
    $acknowledged_uids = array();
    while ($row = db_fetch_object($result)) {
      drupal_set_message(t('!linktouser has requested to add you to his/her %buddylist.  Please view your !pending_buddy_requests to approve/deny.', array('!linktouser' => theme('username', $row), '!pending_buddy_requests' => l(t('pending buddy requests'), 'buddylist/'. $user->uid .'/buddies/requests')) + buddylist_translation()));
      $acknowledged_uids[] = $row->uid;
    }
    if (count($acknowledged_uids)) {
      db_query('UPDATE {buddylist_pending_requests} SET received = 1 WHERE requestee_uid = %d AND requester_uid IN (%s)', $user->uid, implode(',', $acknowledged_uids));
    }
  }
  else {
    $check_received = db_query('SELECT received, b.uid as uid, u.name FROM {buddylist} b LEFT JOIN {users} u ON u.uid = b.uid WHERE buddy = %d AND received = 1', $thisuser->uid);
    while ($rec = db_fetch_object($check_received)) {
      if (($rec->received) and ($thisuser->uid == $user->uid)) {
        // TODO: This is where integration with Privatemsg could happen. If enabled, send a private message instead.
        drupal_set_message(t('!linktouser has added you to his/her %buddylist.', array('!linktouser' => theme('username', $rec)) + buddylist_translation()));
        db_query('UPDATE {buddylist} SET received = 0 WHERE buddy = %d', $user->uid);
      }
    }
  }
}

/**
 * expose add and remove links to theming.
 */
function theme_remove_from_buddylist_link($buddyuser) {
  return l(t('Remove %name from my %buddy list', array('%name' => theme('placeholder', $buddyuser->name)) + buddylist_translation()), 'buddy/delete/' . $buddyuser->uid, NULL, drupal_get_destination(), NULL, FALSE, TRUE);
}

function theme_add_to_buddylist_link($buddyuser) {
  return l(t('Add %name to my %buddy list', array('%name' => theme('placeholder', $buddyuser->name)) + buddylist_translation()), 'buddy/add/' . $buddyuser->uid, NULL, drupal_get_destination(), NULL, FALSE, TRUE);
}


/**
 * Displays a list of a given user's buddies.
 */
function buddylist_buddylisting_page($uid = NULL, $mode = 'buddies') {
  global $user;

  if (empty($uid)) {
    $uid = $user->uid;
  }
  // Check that the uid is valid, not the anonymous user, and the user exists
  if (!(is_numeric($uid) && ($uid > 0) && $thisuser = user_load(array('uid' => $uid)))) {
    drupal_not_found();
    exit();
  }

  drupal_set_title(t('%username\'s %buddylist', array('%username' => $thisuser->name) + buddylist_translation()));

  $buddies_per_page = 20;

  //TODO: use the get_buddies function instead
  if ($mode == 'buddies') {
    $sql = "SELECT DISTINCT(b.buddy), u.access FROM {buddylist} b INNER JOIN {users} u ON b.buddy = u.uid WHERE b.uid = %d ORDER BY u.access DESC";
  }
  else {
    $sql = "SELECT DISTINCT(u.uid) as buddy, u.access FROM {buddylist} b INNER JOIN {users} u ON b.uid = u.uid WHERE b.buddy = %d ORDER BY u.access DESC";
  }
  $result = pager_query($sql, $buddies_per_page, 0 , NULL, $uid);

  $header = array(t('%buddy', buddylist_translation()), t('online'));
  $online_interval = time() - variable_get('user_block_seconds_online', 180);

  if (db_num_rows($result)) {
    while ($account = db_fetch_object($result)) {
      $online = $account->access > $online_interval;
      $rows[] = array(theme('username', user_load(array('uid' => $account->buddy))), theme('buddylist_online', $online));
    }
    $output .= theme('table', $header, $rows);
  }
  else {
    $output .= theme('placeholder',t('No %buddies found.', buddylist_translation()));
  }

  $output .= theme('pager', NULL, $buddies_per_page);

  return $output;
}


/**
 * Displays a list of people who've requested to be added to the given user's buddylist
 */
function buddylist_pending_requests_list($id) {
  global $user;
  
  $account = user_load(array('uid' => $id));
  
  $viewing_own_account = ($user->uid == $id);
  
  $result = db_query('SELECT bpr.requester_uid as uid, u.name FROM {buddylist_pending_requests} bpr INNER JOIN {users} u ON bpr.requester_uid = u.uid WHERE requestee_uid = %d', $id);
  
  if (!db_num_rows($result)) {
    $output = '<p>'. t("!someone currently !does_or_do not have any pending %buddy requests from other users.", array('!someone' => ($viewing_own_account ? t('You') : $account->name), '!does_or_do' => $viewing_own_account ? t('do') : t('does')) + buddylist_translation()) .'</p>';
  }
  else {
    $output = '<p>'. t("The following people have requested to be !someones %buddy.", array('!someones' => ($viewing_own_account ? t('your') : $account->name ."'s ")) + buddylist_translation()) .'</p>';
    
    $item_list = array();
    
    $html_rows = array();
    while ($row = db_fetch_object($result)) {
      $html_row = array();
      $html_row[] = theme('username', $row);
      
      // present the user w/ a buttons for approving/denying buddy requests      
      $html_row[] = drupal_get_form('buddylist_approval_form', buddylist_approval_form($id, $row->uid));
      $html_rows[] = $html_row;
    }
    
    $output .= theme('table', NULL, $html_rows);
  }
  
  return $output;
}

function buddylist_approval_form($requestee_uid, $requester_uid) {
  $form = array();
  
  $form['requestee_uid'] = array(
    '#type' => 'hidden',
    '#value' => $requestee_uid,
  );
  
  $form['requester_uid'] = array(
    '#type' => 'hidden',
    '#value' => $requester_uid
  );
  
  $form['approve'] = array(
    '#type' => 'submit',
    '#value' => t('Approve')
  );
  
  $form['deny'] = array(
    '#type' => 'submit',
    '#value' => t('Deny'),
  );
  
  return $form;
}

function buddylist_approval_form_submit($form_id, $form_values) {
  $requestee_account = user_load(array('uid' => $form_values['requestee_uid'])); // most likely global user, unless admin looking

  // Delete pending request from {buddylist_penging_requests}
  db_query('DELETE FROM {buddylist_pending_requests} WHERE requestee_uid = %d AND requester_uid = %d', $form_values['requestee_uid'], $form_values['requester_uid']);
  
  $requester_account = user_load(array('uid' => $form_values['requester_uid']));
  
  if ($_POST['op'] == t('Approve')) {
    // Make sure, for some weird reason, we don't already have these guys marked as buddies of each other in the database
    $result = db_query('SELECT * FROM {buddylist} WHERE uid = %d AND buddy = %d', $form_values['requestee_uid'], $form_values['reqeuster_uid']);
    
    $time = time();
    
    if (!db_num_rows($result)) {
      db_query('INSERT INTO {buddylist} (uid, buddy, timestamp, received) VALUES (%d, %d, %d, %d)', $form_values['requestee_uid'], $form_values['requester_uid'], $time, 1);
    }
    
    $result = db_query('SELECT * FROM {buddylist} WHERE uid = %d AND buddy = %d', $form_values['requester_uid'], $form_values['requestee_uid']);
    if (!db_num_rows($result)) {
      db_query('INSERT INTO {buddylist} (uid, buddy, timestamp, received) VALUES (%d, %d, %d, %d)', $form_values['requester_uid'], $form_values['requestee_uid'], $time, 1);
    }
    
    if (variable_get('buddylist_send_approval', FALSE)) {
      buddylist_mail_user('approval', $requester_account, $requestee_account);
    }

    drupal_set_message(t('Congratulations! !linktouser is now your %buddy.', array('!linktouser' => theme('username', $requester_account)) + buddylist_translation()));      
  }
  else {
    drupal_set_message(t("!user's request to be your %buddy has been denied.", array('!user' => theme('username', $requester_account)) + buddylist_translation()));
  }
}

/**
 * Displays a list of user's who this given user has requested to be buddies with.
 */
function buddylist_pending_requested_list($id) {
  global $user;
  
  $account = user_load(array('uid' => $id));
  
  $viewing_own_account = ($user->uid == $id);
  
  $result = db_query('SELECT bpr.requestee_uid as uid, u.name FROM {buddylist_pending_requests} bpr INNER JOIN {users} u ON bpr.requestee_uid = u.uid WHERE requester_uid = %d', $account->uid);
  
  if (!db_num_rows($result)) {
    $output = t('!Person !do_or_does not have any pending %buddy requests that !person !have_or_has made.', 
                array(
                  '!Person' => ($viewing_own_account ? t('You') : $account->name), 
                  '!do_or_does' => ($viewing_own_account ? t('do') : t('does')), 
                  '!have_or_has' => ($viewing_own_account ? t('have') : t('has')), 
                  '!person' => ($viewing_own_account ? t('you') : $account->name) ) + buddylist_translation());
  }
  else {
    $output = t('!person !have_or_has requested to be added to the %buddylist of the following users.', array('!person' => ($viewing_own_account ? t('You') : $account->name), '!have_or_has' => ($viewing_own_account ? t('have') : t('has'))) + buddylist_translation());
  
    $html_rows = array();
    while ($row = db_fetch_object($result)) {
      $html_row = array();
      $html_row[] = theme('username', $row);
      $html_row[] = drupal_get_form('buddylist_request_cancel_form', buddylist_request_cancel_form($row->uid, $id));
      $html_rows[] = $html_row;
    }
    
    $output .= theme('table', NULL, $html_rows);
    
  }
  
  return $output;
}

function buddylist_request_cancel_form($requestee_uid, $requester_uid) {
  $form['requestee_uid'] = array(
    '#type' => 'hidden',
    '#value' => $requestee_uid,
  );
  
  $form['requester_uid'] = array(
    '#type' => 'hidden',
    '#value' => $requester_uid
  );
  
  $form['cancel'] = array(
    '#type' => 'submit',
    '#value' => t('Cancel')
  );
  
  return $form;
}

function buddylist_request_cancel_form_submit($form_id, $form_values) {
  db_query('DELETE FROM {buddylist_pending_requests} WHERE requester_uid = %d AND requestee_uid = %d', $form_values['requester_uid'], $form_values['requestee_uid']);
  
  $former_potential_buddy = user_load(array('uid' => $form_values['requestee_uid']));
  drupal_set_message(t('The request to add !user_name has been cancelled.', array('!user_name' => theme('username', $former_potential_buddy))));
  
  return 'buddylist/'. $form_values['requester_uid'] .'/buddies/requested';
}


function buddylist_buddiesrecent_page($uid) {
  global $user;

  $thisuser = user_load(array('uid' => $uid));
  drupal_set_title(t('%username\'s %buddylist', array('%username' => $thisuser->name) + buddylist_translation()));

  $buddies = buddylist_get_buddies($uid);
  foreach ($buddies as $user_id => $buddy) {
    $form[] = array('#type' => 'fieldset',
      '#title' => $buddy['name'],
      '#collapsible' => 'true',
      '#value' => tracker_page($user_id),
    );
  }

  $output .= drupal_get_form('buddies_recent', $form);
  $output .= theme('xml_icon', url('buddylist/'. $uid .'/buddies/recent/feed'));
  drupal_set_html_head('<link rel="alternate" type="application/rss+xml" title="'. t('RSS - %buddies posts', buddylist_translation()). '" href="'. url('buddylist/'. $user->uid .'/buddies/recent/feed') .'" />');

  return $output;
}

function buddylist_buddiesgroups_page($uid) {
  global $user;
  $thisuser = user_load(array('uid' => $uid));
  drupal_set_title(t('%username\'s %buddy groups', array('%username' => $thisuser->name) + buddylist_translation()));

  $headers = array(t('%buddy', buddylist_translation()), t('online'), t('# of %buddies', buddylist_translation()), t("%buddy's posts", buddylist_translation()));

  $result = db_query('SELECT label, label_id FROM {buddylist_groups} WHERE uid = %d ORDER BY label ASC', $thisuser->uid);
  $groups = array();
  while ($row = db_fetch_object($result)) {
    $groups[$row->label_id] = $row->label;
  }

  if (count($groups) == 0) {
    if ($thisuser->uid == $user->uid) {
      drupal_set_message(t("To organize your %buddies into groups, visit the %edit_groups page", array('%edit_groups' => l(t('edit groups'), "buddylist/$uid/buddies/groups/edit")) + buddylist_translation()));
    }
    return theme('placeholder',t("No groups found."));
  }

  $online_interval = time() - variable_get('user_block_seconds_online', 180);
  $buddies = buddylist_get_buddies($thisuser->uid);

  foreach ($groups as $label_id => $label) {
    $result = pager_query('SELECT bg.buddy, u.access FROM {buddylist_buddy_group} bg INNER JOIN {users} u ON bg.buddy = u.uid WHERE bg.uid = %d and bg.label_id = %d', 10, 0, NULL, $thisuser->uid, $label_id);
    $rows = array();
    while ($row = db_fetch_object($result)) {
      $online = $row->access > $online_interval;
      $rows[] = array(
        theme('username', (object)$buddies[$row->buddy]),
        theme('buddylist_online', $online),
        buddylist_count_buddies($row->buddy),
        l(t('view posts'), 'user/'. $row->buddy. '/track')
      );
    }
    $output .= theme('box', check_plain($label), $rows ? theme('table', $headers, $rows) : t('Group is empty.'));
  }
  return $output;
}

function buddylist_count_buddies($uid) {
  $result = db_query("SELECT count(DISTINCT buddy) AS buddies FROM {buddylist} WHERE uid = %d", $uid);
  return db_result($result);
}

function buddylist_buddiesgroups_form($uid) {
  $thisuser = user_load(array('uid' => $uid));
  drupal_set_title(t('%username\'s %buddy groups', array('%username' => $thisuser->name) + buddylist_translation()));

  if ($buddies = buddylist_get_buddies($thisuser->uid)) {

    // Add group form
    $form['add']['add_group'] = array(
      '#type' => 'textfield',
      '#title' => t('Add new group'),
      '#description' => t('Groups are a way to keep your %buddies organized. Groups can be named whatever you like.', buddylist_translation()),
    );
    $form['add']['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Add'),
    );
    $output['add'] = drupal_get_form('buddylist_edit_groups_add', $form['add']);

    // Get all groups
    $result = db_query("SELECT label_id, label FROM {buddylist_groups} WHERE uid = %d ORDER BY label ASC", $uid);
    $all_groups = array();
    while ($row = db_fetch_object($result)) {
      if ($row->label != '') {
        $all_groups[$row->label_id] = $row->label;
      }
    }

    if (count($all_groups) > 0) {
      // Make a form to remove groups
      $form['remove']['groups'] = array(
        '#type' => 'checkboxes',
        '#return_value' => 1,
        '#title' => '',
        '#default_value' => null,
        '#options' => $all_groups,
      );
      $form['remove']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Remove'),
      );
    $output['remove'] = drupal_get_form('buddylist_edit_groups_remove', $form['remove']);
    }

    // Build the table with buddies and their groups
    $form['table']['groups'] = array ('#tree' => true);
    foreach ($buddies as $uid => $buddy) {
      $items = array();
      foreach ($buddy['groups'] as $group) {
        $items[] = $group['label_id'];
      }

      if (count($all_groups) > 0) {
        $form['table']['groups'][$uid] = array(
          '#type' => 'checkboxes',
          '#title' => '',
          '#return_value' => '1',
          '#default_value' => $items,
          '#options' => $all_groups,
        );
      }
    }

    $form['table']['user'] = array(
      '#type' => 'value',
      '#value' => $thisuser->uid,
    );

    if (count($form['table']['groups']) == 0) {
      drupal_set_message(t("You don't have any groups defined."));
    }
    else {
      $form['table']['submit'] = array(
        '#type' => 'submit',
        '#value' => t('Submit'),
      );
      $output['table'] = drupal_get_form('buddylist_edit_groups_table', $form['table']);
    }

    return theme('buddylist_edit_groups_form', $output);
  }
  else {
    drupal_set_message(t('Unable to edit %buddy groups. Add %buddies to your %buddylist before making groups.', buddylist_translation()));
    return theme('placeholder',t('No %buddies found.', buddylist_translation()));
  }
}

function theme_buddylist_edit_groups_form($forms) {
  $output = '<span id="buddylist-group-add-form">'.
              $forms['add'].
            '</span>'.
            '<span id="buddylist-group-remove-form">'.
              $forms['remove'].
            '</span>'.
            '<span id="buddlist-groups-form">'.
              $forms['table'].
            '</span>';
  return $output;
}


function theme_buddylist_edit_groups_table($form) {
  $rows = array();

  foreach ($form['groups'] as $key => $value) {
    if(is_numeric($key)) {
      $rows[] = array(theme('username', user_load(array('uid' => $key))), form_render($form['groups'][$key]));
    }
  }

  $headers = array(t('buddy'), t('%buddy groups', buddylist_translation()));
  $output .= theme('table', $headers, $rows);

  $output .= form_render($form);

  return $output;
}

function buddylist_edit_groups_add_submit($form_id, $form_values) {
  global $user;
  $label_id = buddylist_buddygroup_new($user->uid, $form_values['add_group']);
}

function buddylist_edit_groups_remove_submit($form_id, $form_values) {
  global $user;
  foreach ($form_values['groups'] as $label_id => $remove) {
    if ($remove > 0) {
      buddylist_buddygroup_remove($user->uid, $label_id);
    }
  }
}

function buddylist_edit_groups_table_submit($form_id, $form_values) {
  $userid = $form_values['user'];
  foreach ($form_values['groups'] as $buddy => $groups) {
    foreach ($groups as $label_id => $checked) {
      if ($checked == 0) {
        buddylist_buddygroup_remove_buddy($userid, $buddy, $label_id);
      }
      else {
        buddylist_buddygroup_add_buddy($userid, $buddy, $label_id);
      }
    }
  }

  drupal_set_message(t('%buddy groups saved.', buddylist_translation()));
}

/**
 * Creates a new buddy group for a user
 *
 * @param $uid user id of the user to whom the group will belong.
 * @param $group string; name of the group
 * @param $visible determines whether the user's buddies can see which groups they've been put in.
 *
 * @return $label_id the existing or newly created id for the name of this group.
 */
function buddylist_buddygroup_new($uid, $group, $visible = FALSE) {
  $label_id = db_result(db_query("SELECT label_id FROM {buddylist_groups} WHERE uid = %d AND label = '%s'", $uid, $group));
  if (is_null($label_id)) {
    $new_label_id = db_next_id('buddygroup');
    db_query("INSERT INTO {buddylist_groups} VALUES (%d, %d, '%s', %d)", $uid, $new_label_id, $group, $visible);
    return $new_label_id;
  }
  else {
    return $label_id;
  }
}

/**
 * Removes a buddy group for a user
 *
 * @param $uid user id of the user to whom the group belongs.
 * @param $label_id id of the group
 */
function buddylist_buddygroup_remove($uid, $label_id) {
  db_query("DELETE FROM {buddylist_groups} WHERE uid = %d AND label_id = %d", $uid, $label_id);
  db_query("DELETE FROM {buddylist_buddy_group} WHERE uid = %d AND label_id = %d", $uid, $label_id);
}

function buddylist_buddygroup_remove_buddy($uid, $buddy, $label_id) {
  db_query("DELETE FROM {buddylist_buddy_group} WHERE uid = %d AND buddy = %d AND label_id = %d", $uid, $buddy, $label_id);
}

function buddylist_buddygroup_add_buddy($uid, $buddy, $label_id) {
  db_lock_table('buddylist_buddy_group');
  buddylist_buddygroup_remove_buddy($uid, $buddy, $label_id);
  db_query('INSERT INTO {buddylist_buddy_group} VALUES (%d, %d, %d)', $uid, $buddy, $label_id);
  db_unlock_tables();
}

/**
 * Feed for buddies recent posts
 */
function buddylist_buddyfeed($uid) {
  if (!(is_numeric($uid) && $uid > 0)) {
    return drupal_not_found();
    exit();
  }

  $buddy_ids = array_keys(buddylist_get_buddies($uid));

  // false query to be used if no posts from buddies are available (as in this user has no buddies).
  $result = db_query('SELECT nid FROM {node} WHERE 0');
  if (count($buddy_ids)) {
    $buddy_ids_str = '('. implode(',', $buddy_ids). ')';
    $result = db_query(db_rewrite_sql('SELECT nid FROM {node} WHERE status = 1 AND uid IN %s ORDER BY nid DESC'), $buddy_ids_str);
  }
  $channel['title'] = t('%Buddies recent posts on %site', array('%site' => variable_get('site_name', 'drupal')) + buddylist_translation());
  $channel['link'] = url('buddylist/'. $uid .'/buddies/recent', NULL, NULL, TRUE);

  node_feed($result, $channel);
}


function buddylist_addbuddy($uid) {
  global $user;
  $buddy = user_load(array('uid' => $uid));

  if (empty($buddy->name)) {
    return t('This user does not exist');
  }
  elseif (in_array($uid, array_keys(buddylist_get_buddies($user->uid)))) {
    return t('This user is already on your %buddy list', buddylist_translation());
  }
  elseif ($user->uid == $uid) {
    return t('Cannot add yourself to %buddy list', buddylist_translation());
  }

  $form['uid'] = array('#type' => 'hidden', '#value' => $uid);
  $form['name'] = array('#type' => 'hidden', '#value' => $buddy->name);
  return confirm_form('buddylist_addbuddy_confirm',
    $form,
    t('Add user %name to your %buddy list?', array('%name' => theme('placeholder', $buddy->name)) + buddylist_translation()),
    $_GET['destination'],
    ' ',
    t('Add'), t('Cancel'));
}

/**
 * Confirm and add a buddy.
 */
function buddylist_addbuddy_confirm_submit($form_id, $form_values) {
  if (variable_get('buddylist_require_approval', 0)) {
    buddylist_add_request($form_values['uid']);
  }
  else {
    buddylist_add($form_values['uid']);
    drupal_set_message(t('%name will be be notified the next time s/he logs in.', array('%name' => $form_values['name'])));
  }
  return 'user';
};

/**
 * Removes the user $uid from the global user's account.
 * TODO: generalize this so that two uids can be given
 */
function buddylist_deletebuddy($uid) {
  global $user;
  $buddy = user_load(array('uid' => $uid));

  if (empty($buddy->name)) {
    return t('This user does not exist');
  }
  else if (!in_array($uid, array_keys(buddylist_get_buddies($user->uid)))) {
    return t('This user is not on your %buddy list', buddylist_translation());
  }

  $form['uid'] = array('#type' => 'hidden', '#value' => $uid);
  $form['name'] = array('#type' => 'hidden', '#value' => $buddy->name);
  return confirm_form('buddylist_deletebuddy_confirm',
    $form,
    t('Remove user %name from your %buddy list?', array('%name' => theme('placeholder', $buddy->name)) + buddylist_translation()),
    $_GET['destination'],
    ' ',
    t('Remove'), t('Cancel'));
}


/**
 * Confirm and add a buddy.
 */
function buddylist_deletebuddy_confirm_submit($form_id, $form_values) {
  buddylist_remove($form_values['uid']);
  drupal_set_message(t('%name will be be notified of being removed.', array('%name' => theme('placeholder', $form_values['name']))));
  return 'user';
};


function buddylist_add($id) {
  global $user;
  $user_to_add = user_load(array('uid' => $id));

  if (!in_array($id, array_keys(buddylist_get_buddies($user->uid)))) {
    db_query('INSERT INTO {buddylist} (received, uid, buddy, timestamp) VALUES (1, %d, %d, %d)' , $user->uid , $id , time());
    // DB value buddylist.received set to 1, meaning buddy has a message waiting
    // letting them know you added them as a buddy
    // buddylist.received set back to 0 when user logs in along with being informed of new buddy
    if (variable_get('buddylist_send_add', FALSE)) {
      buddylist_mail_user('add', $user_to_add);
    }
    drupal_set_message(t('%username has been added to your %buddy list', array('%username' => theme('placeholder', $user_to_add->name)) + buddylist_translation()));
  }
  else {
    drupal_set_message(t('%username is already on your %buddylist', array('%username' => theme('placeholder', $user_to_add->name)) + buddylist_translation()));
  }
}

function buddylist_add_request($id) {
  global $user;
  $user_to_add = user_load(array('uid' => $id));
  
  $already_requested = in_array($id, array_keys(buddylist_get_requestees($user->uid)));
  $already_buddies = in_array($id, array_keys(buddylist_get_buddies($user->uid)));
  
  if (!$already_requested && !$already_buddies) {
    db_query('INSERT INTO {buddylist_pending_requests} (requester_uid, requestee_uid, received) VALUES (%d, %d, %d)', $user->uid, $id, 0);
    
    if (variable_get('buddylist_send_request', FALSE)) {
      buddylist_mail_user('request', $user_to_add);
    }
    drupal_set_message(t('Your request to add %username to your %buddy list has been submitted.  %username will be notified.', array('%username' => theme('placeholder', $user_to_add->name)) + buddylist_translation()));
  }
  else {
    if ($already_requested) {
      drupal_set_message(t('You have already requested to add %username to your %buddylist', array('%username' => $user_to_add->name) + buddylist_translation()));
    }
    
    if ($already_buddies) {
      drupal_set_message(t('%username is already on your %buddylist', array('%username' => $user_to_add->name) + buddylist_translation()));
    }
  }
}


function buddylist_remove($id) {
  global $user;
  db_query('DELETE FROM {buddylist} WHERE uid = %d AND buddy = %d' , $user->uid , $id);
  $thisuser = user_load(array('uid' => $id));
  if (variable_get('buddylist_send_remove', FALSE)) {
    buddylist_mail_user('remove', $thisuser);
  }
  drupal_set_message(t('%username has been removed from your %buddylist', array('%username' => theme('placeholder', $thisuser->name )) + buddylist_translation()));
  
  if (variable_get('buddylist_require_approval', 0)) {
    db_query('DELETE FROM {buddylist} WHERE uid = %d AND buddy = %d', $id, $user->uid);
  }  
}

function buddylist_cancel_add($id) {
  $thisuser = user_load(array('uid' => $id));
  drupal_set_message(t('User %name was NOT added to your %buddylist.', array('%name' => theme('placeholder', $thisuser->name)) + buddylist_translation()));
}

function buddylist_cancel_remove($id) {
  $thisuser = user_load(array('uid' => $id));
  drupal_set_message(t('User %name was NOT removed from your %buddylist.', array('%name' => theme('placeholder', $thisuser->name)) + buddylist_translation()));
}

function theme_buddylist_online($online) {
  return $online ? t('yes') : t('no');
}

function buddylist_mail_user($op, $account, $user = NULL) {
  if (is_null($user)){
    global $user;
  }
  switch($op) {
    case 'add':
      $subject = BUDDYLIST_ADD_SUBJECT;
      $message = variable_get('buddylist_add_message', buddylist_mail_add_default());
      break;
    case 'remove':
      $subject = BUDDYLIST_REMOVE_SUBJECT;
      $message = variable_get('buddylist_remove_message', buddylist_mail_remove_default());
      break;
    case 'request':
      $subject = BUDDYLIST_REQUEST_SUBJECT;
      $message = variable_get('buddylist_request_message', buddylist_mail_request_default());
      break;
    case 'approval':
      $subject = BUDDYLIST_APPROVAL_SUBJECT;
      $message = variable_get('buddylist_approval_message', buddylist_mail_approval_default());
      break;
  }

  // eval the replacements
  $replacements_raw = buddylist_mail_replacements();
  $replacement_evals = ($op == 'approval') ? buddylist_approval_mail_replacements() : buddylist_mail_replacements();
  foreach($replacement_evals as $key => $code) {
    eval('$replacements_raw["$key"] = '. $code .';');
  }

  // replace the macros
  $replacements_raw = $replacements_raw + buddylist_translation();
  $subject = strtr($subject, $replacements_raw);
  $message = strtr($message, $replacements_raw);

  $site_mail = variable_get('site_mail', "");
  if (!strlen($site_mail)) {
    if (user_access('administer nodes')){
      drupal_set_message(t('You should create an administrator mail address for your site! <a href="%url">Do it here</a>.', array('%url' => url('admin/settings'))), 'error');
    }
    $site_mail = 'nobody@localhost';
  }
  $header = "From: ". $site_mail ."\r\n";
  // send the email
  if ($op != 'approval') {
    if (! user_mail($account->mail, $subject, $message, $header)) {
      $message = t('%type message was sent to %username', array('%type' => $op, '%username' => $account->name));
      watchdog('buddylist', $message);
    }
    else {
      $message = t('There was a problem sending the %type message to %username', array('%type' => $op, '%username' => $account->name));
      watchdog('buddylist', $message, WATCHDOG_WARNING);
    }
  }
  else {
    if (! user_mail($account->mail, $subject, $message, $header)) {
      $message = t('%type message was sent to %username', array('%type' => $op, '%username' => $user->name));
      watchdog('buddylist', $message);
    }
    else {
      $message = t('There was a problem sending the %type message to %username', array('%type' => $op, '%username' => $user->name));
      watchdog('buddylist', $message, WATCHDOG_WARNING);
    }
  }
}

function buddylist_mail_add_default() {
  return t(
'Hi %addee_name,

You are %adder_name\'s newest buddy.

Here\'s a link to %adder_name\'s profile. If you\'d like, you can add them as one of your buddies:

  %adder_link

Regards,
The %site team');
}

function buddylist_mail_remove_default() {
  return t(
'Hi %addee_name,

You have been removed from  %adder_name\'s  buddy list.

Here\'s a link to %adder_name\'s profile:

  %adder_link

Enjoy your new freedom!

Regards,
The %site team');
}


function buddylist_mail_request_default() {
  return <<<MESSAGE
Hi %addee_name,

%adder_name has requested to add you to his/her %buddy list.

Here's a link to %adder_name's profile:

  %adder_link

To approve/deny this request, log in to %siteurl and see your pending %buddy requests
at %pending_requests_link.

Enjoy your new freedom!

Regards,
The %site team
MESSAGE;
}

function buddylist_mail_approval_default() {
  return <<<MESSAGE
Hi %adder_name,

%addee_name has approved your request to join his/her %buddy list.

Here's a link to your buddylist:

  %adder_list_link

Enjoy your new freedom!

Regards,
The %site team

MESSAGE;
}


function buddylist_mail_replacements(){
  return array(
    '%adder_name' => '$user->name',
    '%adder_link' => 'url("user/". $user->uid, NULL, NULL, TRUE)',
    '%adder_uid' => '$user->uid',
    '%addee_name' => '$account->name',
    '%addee_link' => 'url("user/". $account->uid, NULL, NULL, TRUE)',
    '%addee_uid' => '$account->uid',
    '%site' => 'variable_get("site_name", "Drupal")',
    '%siteurl' => '$GLOBALS["base_url"]',
    '%adder_list_link' => 'url("buddylist/". $user->uid ."/buddies/list", NULL, NULL, TRUE)',
    '%pending_requests_link' => 'url("buddylist/". $account->uid ."/buddies/requests", NULL, NULL, TRUE)'
  );
}


function buddylist_approval_mail_replacements() {
  return array(
    '%adder_name' => '$account->name',
    '%adder_link' => 'url("user/". $account->uid, NULL, NULL, TRUE)',
    '%adder_uid' => '$account->uid',
    '%addee_name' => '$user->name',
    '%addee_link' => 'url("user/". $user->uid, NULL, NULL, TRUE)',
    '%addee_uid' => '$user->uid',
    '%site' => 'variable_get("site_name", "Drupal")',
    '%siteurl' => '$GLOBALS["base_url"]',
    '%adder_list_link' => 'url("buddylist/". $account->uid ."/buddies/list", NULL, NULL, TRUE)'
  );
}