diff -r eb92dc5d9fb4 -r e2f6e3af9959 modules/memberlist.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modules/memberlist.php	Sat Nov 15 15:00:52 2008 -0500
@@ -0,0 +1,123 @@
+<?php
+
+// most of the code in here goes towards keeping track of the list of members currently in the various channels we're in.
+
+$eb_memberlist = array();
+$userflags = array(
+  'o' => '@',
+  'v' => '+'
+);
+
+eb_hook('event_self_join', 'mlist_init_channel($this);');
+eb_hook('event_raw_message', 'mlist_process_message($chan, $message);');
+eb_hook('snippet_dynamic', 'if ( $snippet === "memberlist" ) return mlist_list_members($chan, $message);');
+eb_hook('event_other', 'mlist_handle_other_event($message);');
+
+function mlist_init_channel(&$chan)
+{
+  global $eb_memberlist, $userflags;
+  
+  $channel_name = $chan->get_channel_name();
+  $eb_memberlist[$channel_name] = array();
+  $prefixes_regexp = '/^([' . preg_quote(implode('', $userflags)) . '])+/';
+  $prefixes_flipped = array_flip($userflags);
+  $prefixes_regexp_notlist = '/[^' . preg_quote(implode('', $prefixes_flipped)) . ']/';
+  
+  // read list of members from channel
+  @stream_set_timeout($chan->parent->sock, 3);
+  while ( $msg = $chan->parent->get() )
+  {
+    if ( $ml = strstr($msg, ' 353 ') )
+    {
+      $memberlist = trim(substr(strstr($ml, ':'), 1));
+      $eb_memberlist[$channel_name] = explode(' ', $memberlist);
+      $eb_memberlist[$channel_name] = array_flip($eb_memberlist[$channel_name]);
+      foreach ( $eb_memberlist[$channel_name] as $nick => $_ )
+      {
+        $eb_memberlist[$channel_name][$nick] = '';
+        while ( preg_match($prefixes_regexp, $nick) )
+        {
+          $prefix = substr($nick, 0, 1);
+          $add = preg_replace($prefixes_regexp_notlist, '', strval($eb_memberlist[$channel_name][$nick]));
+          unset($eb_memberlist[$channel_name][$nick]);
+          $nick = substr($nick, 1);
+          $eb_memberlist[$channel_name][$nick] = $prefixes_flipped[$prefix] . $add;
+        }
+      }
+      break;
+    }
+  }
+}
+
+function mlist_process_message(&$chan, $message)
+{
+  global $eb_memberlist;
+  $channel_name = $chan->get_channel_name();
+  if ( !isset($eb_memberlist[$channel_name]) )
+  {
+    return false;
+  }
+  
+  $ml =& $eb_memberlist[$channel_name];
+  
+  // we need to change statistics accordingly depending on the event
+  if ( $message['action'] == 'JOIN' )
+  {
+    // member joined - init their flags and up the member count by one
+    $ml[$message['nick']] = '';
+  }
+  else if ( $message['action'] == 'PART' )
+  {
+    // member left - clear flags and decrement the total member count
+    unset($ml[$message['nick']]);
+  }
+  else if ( $message['action'] == 'MODE' )
+  {
+    // update member list (not sure why this would be useful, but export it anyway - display scripts might find it useful)
+    list($mode, $target) = explode(' ', $message['message']);
+    $action = substr($mode, 0, 1);
+    
+    global $userflags;
+    $ml[$target] = str_replace(substr($mode, 1), '', $ml[$target]);
+    if ( $action == '+' )
+    {
+      $ml[$target] .= substr($mode, 1);
+    }
+  }
+}
+
+function mlist_list_members(&$chan, &$message)
+{
+  global $eb_memberlist;
+  $channel_name = $chan->get_channel_name();
+  if ( !isset($eb_memberlist[$channel_name]) )
+  {
+    return false;
+  }
+  
+  $ml =& $eb_memberlist[$channel_name];
+  
+  $mlt = implode("\n", str_split(str_replace("\n", ' ', print_r($ml, true)), 400));
+  $chan->parent->privmsg($message['nick'], "memberlist:\n" . $mlt);
+  
+  return true;
+}
+
+function mlist_handle_other_event(&$message)
+{
+  global $eb_memberlist;
+  
+  if ( $message['action'] == 'NICK' )
+  {
+    // we have a nick change; go through all channels and replace the old nick with the new
+    foreach ( $eb_memberlist as &$ml )
+    {
+      if ( isset($ml[$message['nick']]) )
+      {
+        $ml[$message['message']] = $ml[$message['nick']];
+        unset($ml[$message['nick']]);
+      }
+    }
+  }
+}
+