diff -r 000000000000 -r d02690a8552c enanobot.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/enanobot.php	Sat Mar 15 19:53:27 2008 -0400
@@ -0,0 +1,204 @@
+<?php
+// define('LIBIRC_DEBUG', '');
+require('libirc.php');
+require('config.php');
+
+@ini_set('display_errors', 'on');
+
+$mysql_conn = false;
+
+function mysql_reconnect()
+{
+  global $mysql_conn, $mysql_host, $mysql_user, $mysql_pass;
+  if ( $mysql_conn )
+    @mysql_close($mysql_conn);
+  // connect to MySQL
+  $mysql_conn = @mysql_connect($mysql_host, $mysql_user, $mysql_pass);
+  if ( !$mysql_conn )
+  {
+    $m_e = mysql_error();
+    echo "Error connecting to MySQL: $m_e\n";
+    exit(1);
+  }
+  $q = @mysql_query('USE enanobot;', $mysql_conn);
+  if ( !$q )
+  {
+    $m_e = mysql_error();
+    echo "Error selecting database: $m_e\n";
+    exit(1);
+  }
+}
+
+mysql_reconnect();
+
+$irc = new Request_IRC('irc.freenode.net');
+$irc->connect($nick, $user, $name, $pass);
+$irc->set_privmsg_handler('enanobot_privmsg_event');
+$enano = $irc->join('#enano', 'enanobot_channel_event_enano');
+$enano_dev = $irc->join('#enano-dev', 'enanobot_channel_event_enanodev');
+$irc->privmsg('ChanServ', 'OP #enano EnanoBot');
+$irc->privmsg('ChanServ', 'OP #enano-dev EnanoBot');
+
+$irc->event_loop();
+$irc->close();
+mysql_close($mysql_conn);
+
+function enanobot_channel_event_enano($sockdata, $chan)
+{
+  global $irc, $nick, $mysql_conn, $privileged_list;
+  $sockdata = trim($sockdata);
+  $message = Request_IRC::parse_message($sockdata);
+  switch ( $message['action'] )
+  {
+    case 'JOIN':
+      // if a known op joins the channel, send mode +o
+      if ( in_array($message['nick'], $privileged_list) )
+      {
+        $chan->parent->put("MODE #enano +o {$message['nick']}\r\n");
+      }
+      break;
+    case 'PRIVMSG':
+      enanobot_process_channel_message($sockdata, $chan, $message);
+      break;
+  }
+}
+
+function enanobot_channel_event_enanodev($sockdata, $chan)
+{
+  global $irc, $privileged_list;
+  $sockdata = trim($sockdata);
+  $message = Request_IRC::parse_message($sockdata);
+  switch ( $message['action'] )
+  {
+    case 'JOIN':
+      // if dandaman32 joins the channel, use mode +o
+      if ( in_array($message['nick'], $privileged_list) )
+        $chan->parent->put("MODE #enano-dev +o {$message['nick']}\r\n");
+      break;
+    case 'PRIVMSG':
+      enanobot_process_channel_message($sockdata, $chan, $message);
+      break;
+  }
+}
+
+function enanobot_process_channel_message($sockdata, $chan, $message)
+{
+  global $irc, $nick, $mysql_conn, $privileged_list;
+  
+  // Log the message
+  $chan_db = mysql_real_escape_string($chan->get_channel_name());
+  $nick_db = mysql_real_escape_string($message['nick']);
+  $line_db = mysql_real_escape_string($message['message']);
+  $day     = date('Y-m-d');
+  $time    = time();
+  $m_et = false;
+  while ( true )
+  {
+    $q = @mysql_query("INSERT INTO irclog(channel, day, nick, timestamp, line) VALUES
+                         ( '$chan_db', '$day', '$nick_db', '$time', '$line_db' );");
+    if ( !$q )
+    {
+      $m_e = mysql_error();
+      $m_et = true;
+      if ( $m_e == 'MySQL server has gone away' && !$m_et )
+      {
+        mysql_reconnect();
+        continue;
+      }
+      $irc->close("MySQL query error: $m_e");
+      exit(1);
+    }
+    break;
+  }
+  
+  if ( preg_match('/^\!echo /', $message['message']) && in_array($message['nick'], $privileged_list) )
+  {
+    $chan->msg(preg_replace('/^\!echo /', '', $message['message']), true);
+  }
+  else if ( preg_match('/^\![\s]*([a-z0-9_-]+)([\s]*\|[\s]*([^ ]+))?$/', $message['message'], $match) )
+  {
+    $snippet =& $match[1];
+    if ( @$match[3] === 'me' )
+      $match[3] = $message['nick'];
+    $target_nick = ( !empty($match[3]) ) ? "{$match[3]}, " : "{$message['nick']}, ";
+    // Look for the snippet...
+    $m_et = false;
+    while ( true )
+    {
+      $q = mysql_query('SELECT snippet_text, snippet_channels FROM snippets WHERE snippet_code = \'' . mysql_real_escape_string($snippet) . '\';', $mysql_conn);
+      if ( !$q )
+      {
+        $m_e = mysql_error();
+        $m_et = true;
+        if ( $m_e == 'MySQL server has gone away' && !$m_et )
+        {
+          mysql_reconnect();
+          continue;
+        }
+        $irc->close("MySQL query error: $m_e");
+        exit(1);
+      }
+      break;
+    }
+    if ( mysql_num_rows($q) < 1 )
+    {
+      $chan->msg("{$message['nick']}, I couldn't find that snippet (\"$snippet\") in the database.", true);
+    }
+    else
+    {
+      $row = mysql_fetch_assoc($q);
+      $channels = explode('|', $row['snippet_channels']);
+      if ( in_array($chan->get_channel_name(), $channels) )
+      {
+        $chan->msg("{$target_nick}{$row['snippet_text']}", true);
+      }
+      else
+      {
+        $chan->msg("{$message['nick']}, I couldn't find that snippet (\"$snippet\") in the database.", true);
+      }
+    }
+  }
+  else if ( strpos($message['message'], $nick) && !in_array($message['nick'], $privileged_list) && $message['nick'] != $nick )
+  {
+    $target_nick =& $message['nick'];
+    $chan->msg("{$target_nick}, I'm only a bot. :-) You should probably rely on the advice of humans if you need further assistance.", true);
+  }
+}
+
+function enanobot_privmsg_event($message)
+{
+  global $privileged_list, $irc;
+  static $part_cache = array();
+  if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Suspend' && $message['action'] == 'PRIVMSG' )
+  {
+    foreach ( $irc->channels as $channel )
+    {
+      $part_cache[] = array($channel->get_channel_name(), $channel->get_handler());
+      $channel->msg("I've received a request to stop logging messages and responding to requests from {$message['nick']}. Don't forget to unsuspend me with /msg EnanoBot Resume when finished.", true);
+      $channel->part("Logging and presence suspended by {$message['nick']}", true);
+    }
+  }
+  else if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Resume' && $message['action'] == 'PRIVMSG' )
+  {
+    global $nick;
+    foreach ( $part_cache as $chan_data )
+    {
+      $chan_name = substr($chan_data[0], 1);
+      $GLOBALS[$chan_name] = $irc->join($chan_data[0], $chan_data[1]);
+      $GLOBALS[$chan_name]->msg("Bot resumed by {$message['nick']}.", true);
+      $irc->privmsg('ChanServ', "OP {$chan_data[0]} $nick");
+    }
+    $part_cache = array();
+  }
+  else if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Shutdown' && $message['action'] == 'PRIVMSG' )
+  {
+    $irc->close("Remote bot shutdown ordered by {$message['nick']}", true);
+    return 'BREAK';
+  }
+  else if ( in_array($message['nick'], $privileged_list) && preg_match('/^\!echo-enano /', $message['message']) )
+  {
+    global $enano;
+    $enano->msg(preg_replace('/^\!echo-enano /', '', $message['message']), true);
+  }
+}
+