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 buddies' buddies and thereby explore their social network.
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.
For more information, read the configuration and customization handbook Buddylist page
",
array('%Userprofiles' => url('/profile'),
'%setaccesspermissions' => url('admin/access/permission'),
'%blockadministration' => url('admin/block'),
'%buddylistsettings' => url('admin/settings/buddylist')
));
return $output;
}
}
/**
* 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[$uid][$key])) {
$buddies[$uid][$key] = array();
$sql = "SELECT b.buddy as uid, b.label, u.name, u.mail FROM {buddylist} b INNER JOIN {users} u ON b.buddy = u.uid WHERE b.uid = %d ORDER BY b.timestamp, b.label DESC";
$result = db_query($sql, $uid);
while ($row = db_fetch_object($result)) {
$nonkey = $key == 'uid' ? 'label' : 'uid';
$buddies[$uid][$key][$row->$key][$row->$nonkey] = (object) array('uid' => $row->uid, 'name' => $row->name, 'mail' => $row->mail, 'label' => $row->label);
}
}
return $buddies[$uid][$key];
}
/**
* 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'),
'#default_value' => $edit['buddylist_groups'],
'#options' => $options,
'#description' => $desc,
'#multiple' => TRUE,
);
return $form;
}
}
}
/**
* Implementation of hook_settings
*/
function buddylist_settings() {
// TODO: move these to block settings
$form['block_settings'] = array(
'#type' => 'fieldset',
'#title' => t('Buddylist block options'),
);
$form['block_settings']['buddylist_blocklisting_size'] = array(
'#type' => 'select',
'#title' => t("Number of buddies to list in the user's buddy block"),
'#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')) ),
);
$form['block_settings']['buddylist_posts_block'] = array(
'#type' => 'select',
'#title' => t("Number of posts to list in the buddies' recent posts block"),
'#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')) ),
);
$form['block_settings']['buddylist_list_block_title'] = array(
'#type' => 'textfield',
'#title' => t('"My buddies list" block title'),
'#default_value' => variable_get('buddylist_list_block_title', t('My buddy list')),
'#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.'),
);
$form['block_settings']['buddylist_block_title'] = array(
'#type' => 'textfield',
'#title' => t('"My buddies\' recent posts" block title'),
'#default_value' => variable_get('buddylist_block_title', t("My buddies' recent posts")),
'#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.'),
);
// 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'),
'#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.'),
);
return $form;
}
function buddylist_setmsg_received($thisuser) {
global $user;
$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)) {
drupal_set_message(l($rec->name, 'user/'. $rec->uid) .' has added you to his/her buddylist.');
drupal_set_message(t('%linktouser has added you to his/her buddylist.', array('%linktouser' => theme('placeholder', l($rec->name, 'user/'. $rec->uid)))));
db_query('UPDATE {buddylist} SET received = 0 WHERE buddy = %d', $user->uid);
}
}
}
/**
* Implementation of hook_user
*/
function buddylist_user($type, &$edit, &$thisuser, $category = NULL) {
global $user;
// show any buddylist notifications upon login and upon viewing own profile
if (user_access('view buddy lists') && (($type == 'login') || ($type == 'view') && ($thisuser->uid == $user->uid))) {
buddylist_setmsg_received($thisuser);
}
if ($type == 'view' && user_access('view buddy lists')) {
// if thisuser has friends, show friends
$cnt = variable_get('buddylist_prof_buddies', 5);
$i = 0;
if ($buddies = buddylist_get_buddies($thisuser->uid)) {
foreach(array_keys($buddies) as $buddy) {
$account = user_load(array('uid' => $buddy));
$listbuddies[] = $account;
$i++;
if ($i > $cnt) {
break;
}
}
$output[] = array('title' => t('Buddies'), 'value' => theme('user_list', $listbuddies), 'class' => 'buddylist',);
}
// 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')
$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, $thisuser->uid, 0, $cnt);
while ($row = db_fetch_object($result)) {
$listbuddiesof[$row->uid] = theme('username', $row);
}
if ($listbuddiesof) {
$output[] = array('title' => t('Buddy of'), 'value' => theme('user_list', $listbuddiesof));
}
// Check to see whether or not $thisuser is in global $user's buddy list
// If $thisuser is already in $user's buddy list, a link offering to delete $thisuser from $user's buddy list is generated
// If $thisuser is not on $user's buddy list, and $thisuser != $user, then a link offering to add $thisuser to $user's buddy list
// is generated.
if (@in_array($thisuser->uid, array_keys(buddylist_get_buddies($user->uid))) && user_access('maintain buddy list')) {
$actions[] = theme('remove_from_buddylist_link', $thisuser);
}
else {
if ($user->uid != $thisuser->uid && user_access('maintain buddy list')) {
$actions[] = theme('add_to_buddylist_link', $thisuser);
}
}
if ($actions) {
$output[] = array('title' => t('Buddy actions'), 'value' => theme('user_list', $actions), 'class' => 'buddylist');
}
return array(t('Buddy List') => $output);
}
}
/**
* 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))), '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))), 'buddy/add/' . $buddyuser->uid, NULL, drupal_get_destination(), NULL, FALSE, TRUE);
}
/**
* 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'));
$block[1]['info'] = variable_get('buddylist_block_title', t('My buddies\' recent posts'));
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'));
// 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'] .= '
';
}
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'));
$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'] .= '
';
$buddies_per_page = 20;
// Compile a list of fields to show
$fields = array();
$result = db_query('SELECT name, title, type FROM {profile_fields} WHERE visibility = %d', PROFILE_PUBLIC_LISTINGS);
while ($record = db_fetch_object($result)) {
$fields[] = $record;
}
//TODO: use the get_buddies function instead
if ($mode == 'buddies') {
$sql = "SELECT DISTINCT(buddy) 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 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);
$output .= '