Gazelle/classes/irc.class.php

<?php
class IRC_DB extends DB_MYSQL
{
    public function halt($Msg)
    {
        global $Bot;
        $Bot->send_to($Bot->get_channel(), 'The database is currently unavailable; try again later.');
    }
}

abstract class IRC_BOT
{
    abstract protected function connect_events();
    abstract protected function channel_events();
    abstract protected function query_events();
    abstract protected function irc_events();
    abstract protected function listener_events();

    protected $Debug = false;
    protected $Socket = false;
    protected $Data = false;
    protected $Whois = false;
    protected $Identified = [];
    protected $Channels = [];
    protected $Messages = [];
    protected $LastChan = false;
    protected $ListenSocket = false;
    protected $Listened = false;
    protected $Connecting = false;
    protected $State = 1; // Drone is live
    public $Restart = 0; // Die by default

    public function __construct()
    {
        if (isset($_SERVER['HOME']) && is_dir($_SERVER['HOME']) && getcwd() != $_SERVER['HOME']) {
            chdir($_SERVER['HOME']);
        }
        ob_end_clean();
        restore_error_handler(); //Avoid PHP error logging
        set_time_limit(0);
    }

    public function connect()
    {
        $this->connect_irc();
        $this->connect_listener();
        $this->post_connect();
    }

    private function connect_irc($Reconnect = false)
    {
        $this->Connecting = true;
        //Open a socket to the IRC server
        if (defined('BOT_PORT_SSL')) {
            $IrcAddress = 'tls://' . BOT_SERVER . ':' . BOT_PORT_SSL;
        } else {
            $IrcAddress = 'tcp://' . BOT_SERVER . ':' . BOT_PORT;
        }
        while (!$this->Socket = stream_socket_client($IrcAddress, $ErrNr, $ErrStr)) {
            sleep(15);
        }
        stream_set_blocking($this->Socket, 0);
        $this->Connecting = false;
        if ($Reconnect) {
            $this->post_connect();
        }
    }

    private function connect_listener()
    {
        //create a socket to listen on
        $ListenAddress = 'tcp://' . SOCKET_LISTEN_ADDRESS . ':' . SOCKET_LISTEN_PORT;
        if (!$this->ListenSocket = stream_socket_server($ListenAddress, $ErrNr, $ErrStr)) {
            die("Cannot create listen socket: $ErrStr");
        }
        stream_set_blocking($this->ListenSocket, false);
    }

    private function post_connect()
    {
        fwrite($this->Socket, "NICK ".BOT_NICK."Init\n");
        fwrite($this->Socket, "USER ".BOT_NICK." * * :IRC Bot\n");
        $this->listen();
    }

    public function disconnect()
    {
        fclose($this->ListenSocket);
        $this->State = 0; //Drones dead
    }

    public function get_channel()
    {
        preg_match('/.+ PRIVMSG ([^:]+) :.+/', $this->Data, $Channel);
        if (preg_match('/#.+/', $Channel[1])) {
            return $Channel[1];
        } else {
            return false;
        }
    }

    public function get_nick()
    {
        preg_match('/:([^!:]+)!.+@[^\s]+ PRIVMSG [^:]+ :.+/', $this->Data, $Nick);
        return $Nick[1];
    }

    protected function get_message()
    {
        preg_match('/:.+ PRIVMSG [^:]+ :(.+)/', $this->Data, $Msg);
        return trim($Msg[1]);
    }

    protected function get_irc_host()
    {
        preg_match('/:[^!:]+!.+@([^\s]+) PRIVMSG [^:]+ :.+/', $this->Data, $Host);
        return trim($Host[1]);
    }

    protected function get_word($Select = 1)
    {
        preg_match('/:.+ PRIVMSG [^:]+ :(.+)/', $this->Data, $Word);
        $Word = preg_split(' ', $Word[1]);
        return trim($Word[$Select]);
    }

    protected function get_action()
    {
        preg_match('/:.+ PRIVMSG [^:]+ :!(\S+)/', $this->Data, $Action);
        return strtoupper($Action[1]);
    }

    protected function send_raw($Text)
    {
        if (!feof($this->Socket)) {
            fwrite($this->Socket, "$Text\n");
        } elseif (!$this->Connecting) {
            $this->Connecting = true;
            sleep(120);
            $this->connect_irc(true);
        }
    }

    public function send_to($Channel, $Text)
    {
        // split the message up into <= 460 character strings and send each individually
        // this is used to prevent messages from getting truncated
        $Text = wordwrap($Text, 460, "\n", true);
        $TextArray = explode("\n", $Text);
        foreach ($TextArray as $Text) {
            $this->send_raw("PRIVMSG $Channel :$Text");
        }
    }

    protected function whois($Nick)
    {
        $this->Whois = $Nick;
        $this->send_raw("WHOIS $Nick");
    }

    /*
    This function uses blacklisted_ip, which is no longer in RC2.
    You can probably find it in old RC1 code kicking aronud if you need it.
    protected function ip_check($IP, $Gline = false, $Channel = BOT_REPORT_CHAN) {
      if (blacklisted_ip($IP)) {
        $this->send_to($Channel, 'TOR IP Detected: '.$IP);
        if ($Gline) {
          $this->send_raw('GLINE *@'.$IP.' 90d :DNSBL Proxy');
        }
      }
      if (Tools::site_ban_ip($IP)) {
        $this->send_to($Channel, 'Site IP Ban Detected: '.$IP);
        if ($Gline) {
          $this->send_raw('GLINE *@'.$IP.' 90d :IP Ban');
        }
      }
    }*/

    protected function listen()
    {
        G::$Cache->InternalCache = false;
        stream_set_timeout($this->Socket, 10000000000);
        while ($this->State == 1) {
            $NullSock = null;
            $Sockets = array($this->Socket, $this->ListenSocket);
            if (stream_select($Sockets, $NullSock, $NullSock, null) === false) {
                die();
            }
            foreach ($Sockets as $Socket) {
                if ($Socket === $this->Socket) {
                    $this->irc_events();
                } else {
                    $this->Listened = stream_socket_accept($Socket);
                    $this->listener_events();
                }
            }
            G::$DB->LinkID = false;
            G::$DB->Queries = [];
        }
    }
}