package = Social networking

Thanks for clarifying that and suggesting the exact solution that I was seeking for. Is anybody working on your suggestion?

The main reason I'd even care about Package or Recommended is the visual grouping on the admin page. I'd definitely want Invite and Privatemsg to be visually grouped with Buddylist.

Perhaps this is off topic, but I've added a module to simplify mybloglog integration: http://drupal.org/project/mybloglog

4.7 only at present, but I'll be working on a 5.0 version ASAP.

Does that qualify as a "social networking" module? ('package' usage issues notwithstanding - per other comments in this thread.)

Michael Curry
Exodus Development | Drupal and other developer info

Hi, I wrote a small piece of code which object is to write a Story for an specific buddy in my buddylist using ACL. So, that buddy can only view/write a comment in my Story.
I based the code taking as example Forum Access.

<?php
//$Id: storyacl.module
/**
* @file storyacl.module
*
* A story for my buddies in my buddylist using ACL 
*/
/**
* Redefines "add Story"
*/

function storyacl_perm(){
  return array('Create story with ACL');
}

function storyacl_form_alter($form_id, &$form){
  if ($form['type']['#value'] == 'story'){
    storyacl_form_form($form_id, $form);
  }
}

function storyacl_nodeapi(&$node, $op, $a3 = NULL, $a4 = NULL) {
  switch ($op) {
    case 'submit':
      break;
    case 'insert':
      if ($node && $node->type == 'story') {
        $acl_id = db_result(db_query("SELECT a.acl_id from {acl} as a WHERE module = 'storyacl'"));
        acl_node_add_acl($node->nid, $acl_id, 1, 1, 1);
      }
      break;
    case 'update':
      break;
    case 'view':
      storyacl_init($node);
      break;
  }
} 

function storyacl_form_form($form_id, &$form){
  global $user;
  $form['storyacl'] = array('#type' => 'fieldset',
    '#title' => t('Contactos'),
    '#collapsible' => FALSE,
    '#tree' => TRUE,
  );
    
  $sql = "SELECT b.buddy buddy, u.name FROM {users} as u, {buddylist} as b WHERE b.buddy = u.uid AND b.uid=%d";
  $result = db_query($sql,$user->uid);
  while ($row = db_fetch_object($result)) {
    $listbuddy[$row->buddy] = $row->name;
  }  
  if ($form['nid']['#value']){
    $sql = "SELECT * FROM {acl_user} as au, {acl_node} as an  WHERE an.acl_id = au.acl_id AND an.nid = %d AND au.uid = %d";
    $result = db_query($sql, $form['nid']['#value'],$listbuddy);
    if (db_num_rows($result) == 0){
      $view = $update = array(1,2);
    }    
    while ($access = db_fetch_object($result)){
      if ($access->grant_view){
          $view[] = $access->uid;
      }
    }
  }
  else{
    $view = array();
  }
       
  $form['storyacl']['view'] = array('#type' => 'checkboxes',
      '#prefix' => '<div>',
      '#suffix' => '</div>',
      '#options' => $listbuddy,
      '#default_value' => $view
  );  

  if ($form['nid']['#value']) {
    $acl_id = db_result(db_query("SELECT a.acl_id from {acl} as a, {acl_node} as n WHERE a.module = 'storyacl' AND a.acl_id = n.acl_id AND n.nid = %d", $form['nid']['#value']));
    if (!$acl_id) { // create one
      $acl_id = acl_create_new_acl('storyacl', $form['nid']['#value']);
      // update every existing node in this forum to use this acl. 
      // I only give permission to read, not to update neither delete
      acl_node_add_acl($form['nid']['#value'], $acl_id, 1, 0, 0);
    }    
    $form['#submit']['storyacl_form_submit'] = current($form['#submit']);
  }
}

function storyacl_form_submit($form_id,$form_values){
  $access = $form_values['storyacl'];
  foreach($access['view'] as $listbuddy => $checked) {
    $grants[] = array(
      'realm' => 'storyacl',
      'gid' => $listbuddy,
      'grant_view' => TRUE,
      'grant_update' => FALSE,
      'grant_delete' => FALSE,
    );
    
    if ($checked){
      $result = db_query("SELECT acl_id FROM {acl_node} WHERE nid = %d",$form_values['nid']);
      $acl = db_fetch_object($result);
      $acl_id = $acl->acl_id;
      acl_add_user($acl_id,$listbuddy);
   }
  }
}

/**
* use hook init to deny access to story if the user does not have access
* to it.
*/

function storyacl_init($node = NULL) {
  if (!function_exists('storyacl_access')) {
   // page is cached
   return;
  }          
  global $user;
  if ($node->type == 'story' && !storyacl_access($node->nid, 'view')){
    drupal_access_denied();
    module_invoke_all('exit');
    exit;
  }  
}

function storyacl_access($nid, $type, $account = NULL) {
  static $cache = array();
  if (!$account) {
    global $user;
    $account = $user;
  }
  if (!isset($cache[$nid])){
    $acl_id = db_query("
      SELECT
        count(*)
      FROM
        {acl} as a,
    {acl_node} as n,
   {acl_user} as u
      WHERE
        a.module = 'storyacl' AND a.acl_id = n.acl_id AND a.acl_id = u.acl_id AND u.uid = %d AND n.nid = %d",
   $account->uid, $nid);     
    
    //we found something, ok
    if ((db_result($acl_id))!=0){
      $cache[$nid] = TRUE;      
    }
    else {     // In case no node with access is found, I can't authorize the access
      $cache[$nid] = FALSE;
    }
  } 
  return $cache[$nid];
}
?>

Hope it helps.

A.

http://nadaenespecial.com.ar