<?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']]);

      }

    }

  }

}