Код:
#!/usr/local/bin/php
<?php
// Параметры IRC сервера
$irc_server["ip"]='XXX.XXX.XXX.XXX';
$irc_server["port"]=6669;
$irc_server["name"]='irc.mine.net';
// Список каналов на которых будет присутствовать бот
$channels[0]="somechannel0";
$channels[1]="somechannel1";
$channels[2]="somechannel2";
// Таймер для отсчета времни чтобы выдать случайную фразу
$timer=0;
$privates=Array();
// Параметры бота
$bot["nick"]='PHP_Bot';
$bot["user"]='PHP_Bot';
$bot["host"]='bot.mine.net';
$bot["ip"]='XXX.XXX.XXX.XXX';
$bot["hz"]='PHP_Bot';
// Функция из мана используемая для получения "наиболее случайных чисел"
function make_seed() {
list($usec, $sec) = explode(' ', microtime());
return (float) $sec + ((float) $usec * 100000);
}
// Функция установки коннекта к IRC серверу
// Устанавливает начальный коннект
function connect_IRC () {
global $irc_server, $bot, $fp;
// Открываем сокет с заданым сервером и портом
$fp = fsockopen($irc_server["ip"], $irc_server["port"], $errno, $errstr,30);
$flag=0;
// Вычитываем все что даст нам сервер, до ключевой фразы, после которой,
// можно отсылать данные о пользователе
while (!$flag && !feof($fp)) {
$line=fgets ($fp);
if (preg_match("/bFoundsyourshostnameb/", $line)) {
$flag=1;
}
}
// Пишем в сокет данные о авторизации бота
fputs ($fp, sprintf ("NICK %sn", $bot["nick"]));
fputs ($fp, sprintf ("USER %s "%s" "%s" :%sn",
$bot["user"], $bot["host"], $bot["ip"], $bot["hz"]));
$flag=0;
// Снова вычитываем все до ключевого номера 700, после которого можно
// начинать заходить в каналы
while (!$flag && !feof($fp)) {
$line=fgets ($fp);
if (preg_match("/b700b/", $line)) {
$flag=1;
}
}
// Возвращаем указатель на открытый сокет основной части
return ($fp);
}
// Функция для подготовки вывода в канал
// одного из предопределенных случайных выражений
function is_time($chan) {
global $timer, $log_file, $bot;
// Полный путь к текстовому файл в котором определены возможные выражения
$texts=file('/home/myaccount/bot_conf/lyaps');
$message='';
$now=mktime(date ("H"), date("i"), date("s"), date ("m"),
date ("d"), date ("Y"));
// Определяем интервал с которым бот будет что-то говорить в канал
// (в этом примере - 10 минут)
$time_to_say=mktime(date ("H"), date("i")-10, date("s"),
date ("m"), date ("d"), date ("Y"));
// Если пора что-то говорить - формируем фразу,
// если нет - возвращаем пустое значение
if ($timer<$time_to_say) {
// Сбрасываем таймер
$timer=$now;
// Определяем фразу
srand(make_seed());
$mess=rand(1, sizeof($texts));
$texts[$mess]=trim($texts[$mess]);
// Форматируем строку для отсылки серверу
$message = sprintf ("PRIVMSG #%s :%sn",$chan,$texts[$mess]);
// Если выражение не пустое пишем в лог
if ($texts[$mess]!='') {
$log_file='/home/myaccount/irc_log/#'.$chan.date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("[%s] <%s> %sn",
date("H:i"), $bot["nick"], $texts[$mess]));
fclose ($lf);
}
}
//Возвращаем подготовленую строку
return ($message);
}
// Функция отсылки привествия для зашедших на канал пользователей
// берет одно из предопределенных приветствий и подставляет ник
function hello ($str) {
global $bot;
// Полный путь к текстовому файл в котором определены возможные выражения
$texts=file('/home/myaccount/bot_conf/hello');
// Определяем фразу
srand(make_seed());
$mess=rand(1, sizeof($texts));
// Форматируем строку для отсылки серверу
$message = sprintf ("PRIVMSG #%s :%s%s!n",$str[2],$texts[$mess], $str[1]);
// Пишем в лог
$log_file='/home/myaccount/irc_log/#'.$str[2].date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("[%s] <%s> %s%s!n",
date("H:i"), $bot["nick"], $texts[$mess], $str[1]));
fclose ($lf);
// Возвращаем подготовленую строку
return ($message);
}
// Устанавливаем соединение с сервером
if ($sp=connect_IRC()) {
reset ($channels); // Думаю что не нужен, но... на всяк пожарный
while (list(,$channel_name)=each($channels)) {
// Заходим во все определенные каналы
fputs ($sp, sprintf("JOIN #%sn", $channel_name));
fputs ($sp, sprintf("MODE #%sn", $channel_name));
// Ниже бот берет на себя права оператора сервера, для этого
// для него должны быть определены соответствующие настройки сервера
// (см. документацию к серверной части)
fputs ($sp, sprintf("OPER %s PHP_BOT_oper_passwordn", $bot["nick"]));
fputs ($sp, sprintf("MODE %s +an", $bot["nick"]));
fputs ($sp, sprintf("MODE %s +An", $bot["nick"]));
fputs ($sp, sprintf("SAMODE #%s +o %sn", $channel_name, $bot["nick"]));
// Определение регэкспов для отслеживания ключевых выражений
// Вход пользователя на канал
$joined[$channel_name]=
'/:(.+)!.+sJOINs:#('.$channel_name.')/';
// Сообщение от пользователя в канал
$privmsg[$channel_name]=
'/:(.+)!.+sPRIVMSGs#('.$channel_name.')s:(.+)/';
// Выход пользователя с канала
$partmsg[$channel_name]='/:(.+)!.+sPARTs#('.$channel_name.')/';
// Установка темы канала
$topic[$channel_name]=
'/:(.+)!.+sTOPICs#('.$channel_name.')s:(.+)s/';
// Отключение пользователя от сервера
$quitmsg='/:(.+)!.+sQUITs:Quit:s(.*)s/';
// Сообщение в приват боту
$private_me='/:(.+)!.+sPRIVMSGs('.$bot["nick"].')s:(.+)/';
// Смена ника юзером
$nick='/:(.+)!.+sNICKs:(.+)s/';
}
}
$flag=0;
// В принципе - бесконечный цикл (если не оборветься связь с сервером)
while (!$flag && !feof($fp)) {
$line=fgets($sp);
reset($joined);
// Проверяем - если идет команда PING от сервера - отвечаем PONG
$ping='/^(PING)b/';
if (preg_match($ping, $line)) {
fputs ($fp, "PONG :".$irc_server["name"]."n");
}
else {
// Флаг для определения того что бот уже нашел ключевую фразу
$stop=0;
// Запускаем цикл по всем нужным каналам
while ((list($keys, $values)=each($joined)) && !$stop) {
// Проверяем не время ли сказать чего-нибудь в канал
$str_=is_time($keys);
fputs($fp, $str_);
// Проверка на вход кого-либо на канал
if (preg_match($joined[$keys], $line, $matches)) {
$stop=1;
if ($matches[1]!=$bot["nick"]) {
// Пишем в лог
$log_file='/home/myaccount/irc_log/#'.
$matches[2].date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("[%s] * <%s> вошел на канал %sn",
date("H:i"$matches[1], $matches[2]));
fclose ($lf);
// Получаем строку приветствия
$str_=hello($matches);
// Отсылаем фразу серверу
fputs ($fp, $str_);
}
}
else {
// если это просто фраза в канал, либо в приват боту
if (!preg_match($action[$keys], $line, $matches)
&& (preg_match($privmsg[$keys], $line, $matches)
|| preg_match($private_me, $line, $matches))) {
$stop=1;
// Отсылаем функции обработки сообщений
// не рассматривается (в данной статье)
$str_=analyze_msg($matches);
// Выводим результат
fputs ($fp, $str_);
}
else {
// Если пользователь покинул канал
if (preg_match($partmsg[$keys], $line, $matches)) {
// Просто пишем в лог
$log_file='/home/myaccount/irc_log/#'.
$matches[2].date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("[%s] * <%s> покинул канал %sn",
date("H:i"), $matches[1], $matches[2]));
fclose ($lf);
}
else {
// Если пользователь покинул сервер
if (preg_match($quitmsg, $line, $matches)) {
// Просто пишем в лог
$log_file='/home/myaccount/irc_log/#'.
$keys.date("Ymd").'.log';
$textq='';
// Определяем причину выхода (если указана)
if (trim($matches[2])!='') {
$textq="(".trim($matches[2]).")";
}
$lf=fopen($log_file,"a");
fputs ($lf, sprintf(
"[%s] * <%s> покинул IRC сервер %sn",
date("H:i"), $matches[1], $textq));
fclose ($lf);
}
else {
// Если пользователь сменил ник
if (preg_match($nick, $line, $matches)) {
// Пишем в лог
$log_file='/home/myaccount/irc_log/#'.
$keys.date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("[%s] * %s взял имя %sn",
date("H:i"),
$matches[1],
$matches[2]));
fclose ($lf);
}
else {
// Если установлена тема
if (preg_match($topic[$keys],$line,$matches)) {
// Пишем в лог
$log_file='/home/myaccount/irc_log/#'.
$keys.date("Ymd").'.log';
$lf=fopen($log_file,"a");
fputs ($lf, sprintf("............",
date("H:i"),
$matches[1],
$matches[3]));
fclose ($lf);
}
}
}
}
}
}
}
}
// Пауза 1 сек. - чтобы меньше грузить сервер
sleep(1);
}
// Закрытие сокета
fclose ($sp);
?>