enanobot.php
author Dan
Fri, 09 May 2008 22:37:57 -0400
changeset 7 1d6e762433fe
parent 6 a802bb5b3e08
child 8 0acb8d9a3194
permissions -rw-r--r--
Added daemonizing (forking) support.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
     1
<?php
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     2
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     3
/**
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     4
 * EnanoBot - the Enano CMS IRC logging and help automation bot
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     5
 * GPL and no warranty, see the LICENSE file for more info
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     6
 */
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
     7
7
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
     8
// parse command line
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
     9
if ( isset($argv[1]) )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    10
{
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    11
  $arg =& $argv[1];
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    12
  if ( $arg == '--daemon' || $arg == '-d' )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    13
  {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    14
    // attempt to fork...
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    15
    if ( function_exists('pcntl_fork') )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    16
    {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    17
      $pid = pcntl_fork();
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    18
      if ( $pid == -1 )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    19
      {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    20
        echo "Forking process failed.\n";
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    21
        exit(1);
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    22
      }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    23
      else if ( $pid )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    24
      {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    25
        echo "EnanoBot daemon started, pid $pid\n";
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    26
        exit(0);
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    27
      }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    28
      else
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    29
      {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    30
        // do nothing, just continue.
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    31
      }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    32
    }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    33
    else
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    34
    {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    35
      echo "No pcntl support in PHP, continuing in foreground\n";
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    36
    }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    37
  }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    38
  else if ( $arg == '-v' || $arg == '--verbose' )
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    39
  {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    40
    define('LIBIRC_DEBUG', '');
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    41
  }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    42
  else
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    43
  {
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    44
    echo <<<EOF
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    45
Usage: {$argv[0]}
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    46
Options:
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    47
  -d, --daemon     Run in background (requires pcntl support)
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    48
  -v, --verbose    Log communication to stdout (ignored if -d specified)
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    49
  -h, --help       This help message
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    50
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    51
EOF;
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    52
    exit(1);
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    53
  }
1d6e762433fe Added daemonizing (forking) support.
Dan
parents: 6
diff changeset
    54
}
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
    55
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    56
require('libirc.php');
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    57
require('config.php');
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    58
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    59
@ini_set('display_errors', 'on');
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    60
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    61
$mysql_conn = false;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    62
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    63
function mysql_reconnect()
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    64
{
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    65
  global $mysql_conn, $mysql_host, $mysql_user, $mysql_pass, $mysql_dbname;
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    66
  if ( $mysql_conn )
4
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    67
  {
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    68
    @mysql_close($mysql_conn);
4
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    69
    if ( defined('LIBIRC_DEBUG') )
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    70
    {
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    71
      echo "< > Reconnecting to MySQL\n";
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    72
    }
8f62a406d9d9 Added debug message for MySQL reconnection; it's tested and confirmed working now
Dan
parents: 3
diff changeset
    73
  }
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    74
  // connect to MySQL
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    75
  $mysql_conn = @mysql_connect($mysql_host, $mysql_user, $mysql_pass);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    76
  if ( !$mysql_conn )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    77
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    78
    $m_e = mysql_error();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    79
    echo "Error connecting to MySQL: $m_e\n";
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    80
    exit(1);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    81
  }
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    82
  $q = @mysql_query("USE `$mysql_dbname`;", $mysql_conn);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    83
  if ( !$q )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    84
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    85
    $m_e = mysql_error();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    86
    echo "Error selecting database: $m_e\n";
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    87
    exit(1);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    88
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    89
}
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
    90
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    91
function eb_mysql_query($sql, $conn = false)
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    92
{
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    93
  global $mysql_conn, $irc;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    94
  $m_et = false;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    95
  while ( true )
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    96
  {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    97
    $q = mysql_query($sql, $mysql_conn);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    98
    if ( !$q )
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
    99
    {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   100
      $m_e = mysql_error();
3
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   101
      if ( strpos($m_e, 'gone away') && !$m_et )
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   102
      {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   103
        mysql_reconnect();
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   104
        continue;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   105
      }
3
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   106
      $m_et = true;
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   107
      $irc->close("MySQL query error: $m_e");
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   108
      exit(1);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   109
    }
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   110
    break;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   111
  }
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   112
  return $q;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   113
}
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   114
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   115
mysql_reconnect();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   116
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   117
$libirc_channels = array();
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   118
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   119
$irc = new Request_IRC('irc.freenode.net');
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   120
$irc->connect($nick, $user, $name, $pass);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   121
$irc->set_privmsg_handler('enanobot_privmsg_event');
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   122
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   123
foreach ( $channels as $channel )
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   124
{
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   125
  $libirc_channels[$channel] = $irc->join($channel, 'enanobot_channel_event');
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   126
  $channel_clean = preg_replace('/^[#&]/', '', $channel);
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   127
  $libirc_channels[$channel_clean] =& $libirc_channels[$channel];
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   128
  $irc->privmsg('ChanServ', "OP $channel $nick");
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   129
}
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   130
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   131
$irc->event_loop();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   132
$irc->close();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   133
mysql_close($mysql_conn);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   134
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   135
function enanobot_channel_event($sockdata, $chan)
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   136
{
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   137
  global $irc, $nick, $mysql_conn, $privileged_list;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   138
  $sockdata = trim($sockdata);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   139
  $message = Request_IRC::parse_message($sockdata);
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   140
  $channelname = $chan->get_channel_name();
1
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   141
  enanobot_log_message($chan, $message);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   142
  switch ( $message['action'] )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   143
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   144
    case 'JOIN':
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   145
      // if a known op joins the channel, send mode +o
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   146
      if ( in_array($message['nick'], $privileged_list) )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   147
      {
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   148
        $chan->parent->put("MODE $channelname +o {$message['nick']}\r\n");
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   149
      }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   150
      break;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   151
    case 'PRIVMSG':
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   152
      enanobot_process_channel_message($sockdata, $chan, $message);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   153
      break;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   154
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   155
}
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   156
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   157
function enanobot_process_channel_message($sockdata, $chan, $message)
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   158
{
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   159
  global $irc, $nick, $mysql_conn, $privileged_list;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   160
  
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   161
  if ( preg_match('/^\!echo /', $message['message']) && in_array($message['nick'], $privileged_list) )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   162
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   163
    $chan->msg(preg_replace('/^\!echo /', '', $message['message']), true);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   164
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   165
  else if ( preg_match('/^\![\s]*([a-z0-9_-]+)([\s]*\|[\s]*([^ ]+))?$/', $message['message'], $match) )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   166
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   167
    $snippet =& $match[1];
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   168
    if ( @$match[3] === 'me' )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   169
      $match[3] = $message['nick'];
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   170
    $target_nick = ( !empty($match[3]) ) ? "{$match[3]}, " : "{$message['nick']}, ";
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   171
    if ( $snippet == 'snippets' )
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   172
    {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   173
      // list available snippets
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   174
      $m_et = false;
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   175
      $q = eb_mysql_query('SELECT snippet_code, snippet_channels FROM snippets;');
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   176
      if ( mysql_num_rows($q) < 1 )
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   177
      {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   178
        $chan->msg("{$message['nick']}, I couldn't find that snippet (\"$snippet\") in the database.", true);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   179
      }
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   180
      else
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   181
      {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   182
        $snippets = array();
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   183
        while ( $row = mysql_fetch_assoc($q) )
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   184
        {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   185
          $channels = explode('|', $row['snippet_channels']);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   186
          if ( in_array($chan->get_channel_name(), $channels) )
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   187
          {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   188
            $snippets[] = $row['snippet_code'];
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   189
          }
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   190
        }
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   191
        $snippets = implode(', ', $snippets);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   192
        $chan->msg("{$message['nick']}, the following snippets are available: $snippets", true);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   193
      }
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   194
      @mysql_free_result($q);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   195
    }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   196
    else
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   197
    {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   198
      // Look for the snippet...
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   199
      $q = eb_mysql_query('SELECT snippet_text, snippet_channels FROM snippets WHERE snippet_code = \'' . mysql_real_escape_string($snippet) . '\';');
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   200
      if ( mysql_num_rows($q) < 1 )
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   201
      {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   202
        $chan->msg("{$message['nick']}, I couldn't find that snippet (\"$snippet\") in the database.", true);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   203
      }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   204
      else
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   205
      {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   206
        $row = mysql_fetch_assoc($q);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   207
        $channels = explode('|', $row['snippet_channels']);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   208
        if ( in_array($chan->get_channel_name(), $channels) )
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   209
        {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   210
          $chan->msg("{$target_nick}{$row['snippet_text']}", true);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   211
        }
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   212
        else
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   213
        {
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   214
          $chan->msg("{$message['nick']}, I couldn't find that snippet (\"$snippet\") in the database.", true);
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   215
        }
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   216
      }
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   217
      @mysql_free_result($q);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   218
    }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   219
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   220
  else if ( strpos($message['message'], $nick) && !in_array($message['nick'], $privileged_list) && $message['nick'] != $nick )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   221
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   222
    $target_nick =& $message['nick'];
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   223
    $chan->msg("{$target_nick}, I'm only a bot. :-) You should probably rely on the advice of humans if you need further assistance.", true);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   224
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   225
}
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   226
1
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   227
function enanobot_log_message($chan, $message)
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   228
{
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   229
  global $nick;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   230
  
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   231
  // Log the message
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   232
  $chan_db = mysql_real_escape_string($chan->get_channel_name());
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   233
  $nick_db = mysql_real_escape_string($message['nick']);
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   234
  $line_db = mysql_real_escape_string($message['message']);
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   235
  $day     = date('Y-m-d');
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   236
  $time    = time();
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   237
  $m_et = false;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   238
  $sql = false;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   239
  switch($message['action'])
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   240
  {
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   241
    case 'PRIVMSG':
3
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   242
      if ( substr($line_db, 0, 5) != '[off]' )
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   243
      {
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   244
        $sql = "INSERT INTO irclog(channel, day, nick, timestamp, line) VALUES
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   245
                  ( '$chan_db', '$day', '$nick_db', '$time', '$line_db' );";
02e1c3f8f0ef Hopefully made MySQL reconnection possible
Dan
parents: 2
diff changeset
   246
      }
1
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   247
      break;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   248
    case 'JOIN':
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   249
      $sql = "INSERT INTO irclog(channel, day, nick, timestamp, line) VALUES
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   250
                ( '$chan_db', '$day', '', '$time', '$nick_db has joined $chan_db' );";
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   251
      break;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   252
    case 'PART':
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   253
      $sql = "INSERT INTO irclog(channel, day, nick, timestamp, line) VALUES
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   254
                ( '$chan_db', '$day', '', '$time', '$nick_db has left $chan_db' );";
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   255
      break;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   256
    case 'MODE':
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   257
      list($mode, $target_nick) = explode(' ', $line_db);
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   258
      if ( $message['nick'] != 'ChanServ' && $target_nick != $nick )
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   259
      {
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   260
        $sql = "INSERT INTO irclog(channel, day, nick, timestamp, line) VALUES
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   261
                  ( '$chan_db', '$day', '', '$time', '$nick_db set mode $mode on $target_nick' );";
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   262
      }
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   263
      break;
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   264
  }
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   265
  if ( $sql )
1
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   266
  {
2
c474904ed707 Moved db_name to config.php; added !snippets virtual snippet that lists all snippet codes in database; abstracted database query and error checking code
Dan
parents: 1
diff changeset
   267
    eb_mysql_query($sql);
1
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   268
  }
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   269
}
739423b66116 Added support for logging mode messages and join/part messages
Dan
parents: 0
diff changeset
   270
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   271
function enanobot_privmsg_event($message)
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   272
{
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   273
  global $privileged_list, $irc, $nick;
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   274
  static $part_cache = array();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   275
  if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Suspend' && $message['action'] == 'PRIVMSG' )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   276
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   277
    foreach ( $irc->channels as $channel )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   278
    {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   279
      $part_cache[] = array($channel->get_channel_name(), $channel->get_handler());
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   280
      $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 $nick Resume when finished.", true);
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   281
      $channel->part("Logging and presence suspended by {$message['nick']}", true);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   282
    }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   283
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   284
  else if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Resume' && $message['action'] == 'PRIVMSG' )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   285
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   286
    global $nick;
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   287
    foreach ( $part_cache as $chan_data )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   288
    {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   289
      $chan_name = substr($chan_data[0], 1);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   290
      $GLOBALS[$chan_name] = $irc->join($chan_data[0], $chan_data[1]);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   291
      $GLOBALS[$chan_name]->msg("Bot resumed by {$message['nick']}.", true);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   292
      $irc->privmsg('ChanServ', "OP {$chan_data[0]} $nick");
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   293
    }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   294
    $part_cache = array();
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   295
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   296
  else if ( in_array($message['nick'], $privileged_list) && $message['message'] == 'Shutdown' && $message['action'] == 'PRIVMSG' )
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   297
  {
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   298
    $irc->close("Remote bot shutdown ordered by {$message['nick']}", true);
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   299
    return 'BREAK';
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   300
  }
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   301
  else if ( in_array($message['nick'], $privileged_list) && preg_match("/^\!echo-([^\007, \r\n\a\t]+) /", $message['message'], $match) )
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   302
  {
6
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   303
    global $libirc_channels;
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   304
    $channel_name =& $match[1];
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   305
    if ( isset($libirc_channels[$channel_name]) && is_object($libirc_channels[$channel_name]) )
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   306
    {
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   307
      $libirc_channels[$channel_name]->msg(preg_replace("/^\!echo-([^\007, \r\n\a\t]+) /", '', $message['message']), true);
a802bb5b3e08 Made the channel list completely dynamic now
Dan
parents: 4
diff changeset
   308
    }
0
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   309
  }
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   310
}
d02690a8552c Initial population. EnanoBot v0.1.
Dan
parents:
diff changeset
   311