IRC bot v PHP

Mmartin

Hmm no mam taky problem, ze som si nasiel kod na php bota na irc , kod:

<?
$CONFIG = array(
"server" => "ogame1.ogamenet.net", // Server, na ktorý sa budeme pripájať
"nick" => "LamerBoather", // Nick
"port" => 6667, // Port servera
"channel" => "#clan-devils", // Kanál/e, na ktoré sa budeme pripájať
"name" => "LamerBother", // Názov bota (potrebné, pre odoslanie príkazu USER)
"uptime" => time(), // Čas spustenia bota
"db_server" => "mysql.webzdarma.cz", // SQL server
"db_user" => "matikar", // SQL používateľ
"db_pass" => "***HESLO***", // SQL heslo
"db_name" => "matikar" // SQL databáza
);

/* Pripojíme sa k SQL serveru */
mysql_connect($CONFIG['db_server'], $CONFIG['db_user'], $CONFIG['db_pass']) or die(mysql_error());
mysql_select_db($CONFIG['db_name']) or die(mysql_error());

set_time_limit(0); // Ignorujeme časový limit
ignore_user_abort(1); // Ignorujeme vypnutie užívatelovho browsera (ak užívateľ vypne browser, skript bude bežať ďalej)

$socket=fsockopen($CONFIG['server'], $CONFIG['port']); // Najdôležitejši časť bota! Pripojenie k IRC serveru
if ($socket) { // Ak sa podarilo pripojiť k IRC serveru
prikaz("USER ".$CONFIG['nick']." Bot by timbulko :". $CONFIG['name']); // Identifikujeme sa na serveri
prikaz("NICK ".$CONFIG['nick'].rand(0,1000)); // Pošleme nick v tvare: nick + náhodné číslo od 0 do 1000 (to je ochrana pred tým, keby bol už nick použitý)
$e=explode(",",$CONFIG['channel']); // Ak je zadaných viac ako jeden kanál, tak ich rozdelíme na časti
foreach ($e as $value) {
prikaz("JOIN ".$value); // Pripojíme sa na kanál/e
}
prikaz("NICK ".$CONFIG['nick']); // Zmeníme si nick na normálnu podobu (bez čísla na konci)
while (!feof($socket)) { // Opakuj, pokiaľ sa dá čítať zo socketu
$r=trim(FRead($socket, 512)); // Prečítame 512 znakov zo socketu
$riadok = ereg_replace(":([^!]*)!([^@]*)@([^ ]*) ([^ ]*) ([^:]*):(.*)","1?2?3?4?5?6",$r); // Rozdelíme riadok socketu na jednotlivé časti
funkcie($riadok); // Nasmerujeme na funkciu funkcie
flush(); // Vyprázdnime zásobník
}
}







function funkcie ($riadok) { // Definujeme funkciu funkcie
global $CONFIG,$socket,$r; // Definujeme si globálne premennú pre túto funkciu
list($nick,$id,$dns,$prikaz,$kanal,$text) = explode("?",$riadok); // Rozdelíme si rozsekaný riadok na jednotlivé premenné


if (eregi("PING :(.*)",$r)) { // Ak zacítí bot ping, odpovie na neho pongom
$e=explode(" ",$r);
for($i=0;$i<=count($e);$i++) {
if (eregi("^PING :(.*)$",$e[$i])) {
$e=explode(":",$e[$i]);
prikaz("PONG :".$e[1]);
}
}
}

if ($prikaz=="KICK") { // Ak bot zachití príkaz kickc, pokúsi sa pripojiť späť
prikaz("JOIN ".$kanal);
}

#################################
# Od tejto časti sa začína #
# funkčná/výkonná časť bota. #
# Tu môžete písať svoje vlastné #
# funkcie. Pre príklad som ich #
# sem zopár pridal :) #
#################################

/* Jednoduchý tvar funkcie:

if (eregi("^funkcia",$text)) {
príkazy funkcie
}
elseif (eregi("^iná funkcia",$text)) {
príkazy inej funkcie
}

*/



// užívateľské funkcie
if (eregi("^!up",$text)) {
$bezi = (time()-$CONFIG['uptime']);
$dni = floor($bezi/86400);
$bezi -= ($dni*86400);
$hodin = floor($bezi/3600);
$bezi -= ($hodin*3600);
$minut = floor($bezi/60);
$bezi -= ($minut*60);
$sekund = $bezi;
prikaz("PRIVMSG ".$kanal." :Bot je spusteny ".$dni." dni, ".$hodin." hodin, ".$minut." minut a ".$sekund." sekund");
}



elseif(eregi("^!cas",$text)) {
prikaz("PRIVMSG ".$kanal." :[cas] ".date("H:i:s"));
}





// admin funkcie
elseif (eregi("^#login",$text) && !isset($logins[$nick])) {
if ($text=="#login") {
$res=mysql_query("SELECT * FROM `uzivatelia` WHERE `dns` = '".$dns."'");
}
else {
list(,$login,$heslo)=explode(" ",$text);
$res=mysql_query("SELECT * FROM `uzivatelia` WHERE `login` = '".$login."' AND `pass` = '".$heslo."'");
}
if (mysql_num_rows($res)==1) {
$row=mysql_fetch_array($res);
$logins[$nick]['prava'] = $row['prava'];
$logins[$nick]['last_login'] = $row['last_login'];
$logins[$nick]['login'] = $row['login'];
$logins[$nick]['pass'] = $row['pass'];
$logins[$nick]['id'] = $row['id'];
$logins[$nick]['dns'] = $row['dns'];
$dl=date("j.n.Y o H:i:s",$logins[$nick]['last_login']);
mysql_query("
UPDATE `uzivatelia` SET






`last_login` = '".time()."',
`dns` = '".$dns."'
WHERE `id` = '".$row['id']."';
");
prikaz("NOTICE ".$nick." :Uzivatel ".$nick." bol uspesne prihlaseny! Naposledy ste boli prihlaseny dna ".$dl);
}
else {
prikaz("NOTICE ".$nick." :Uzivatela ".$nick." sa nepodarilo prihlasit!");
}
}



elseif (eregi("^#op",$text)) {
if ($logins[$nick]['prava']>=1) {
if ($text=="#op") {
prikaz("MODE ".$kanal." +o ".$nick);
}
else {
$e=explode(" ",$text);
prikaz("MODE ".$kanal." +o ".$e[1]);
}
}
else {
prikaz("NOTICE ".$nick." :Nie ste prihlaseny!");
}
}



elseif (eregi("^#deop",$text)) {
if ($logins[$nick]['prava']>=1) {
if ($text=="#deop") {
prikaz("MODE ".$kanal." -o ".$nick);
}
else {
$e=explode(" ",$text);
prikaz("MODE ".$kanal." -o ".$e[1]);
}
}
else {
prikaz("NOTICE ".$nick." :Nie ste prihlaseny!");
}
}



elseif (eregi("^#kick",$text)) {
if ($logins[$nick]['prava']>=1) {
$e=explode(" ",$text,3);
prikaz("KICK ".$kanal." ".$e[1]." :".$e[2]);
}
else {
prikaz("NOTICE ".$nick." :Nie ste prihlaseny!");
}
}





// SuperAdmin funkcie
elseif (eregi("^~quit",$text)) {
if ($logins[$nick]['prava']==2) {
prikaz("PRIVMSG ".$kanal." :Odchadzam...");
exit;
}
else {
prikaz("PRIVMSG ".$kanal." :Uzivatel ".$nick." nie je prihlaseny alebo nie je administratorom!");
}
}



elseif (eregi("^~join",$text)) {
if ($logins[$nick]['prava']==2) {
$e=explode(" ",$text);
prikaz("PRIVMSG ".$kanal." :Pripajam sa na kanal ".$e[1]."...");
if (file_exists("kluc.dat")) {
$open=FOpen("kluc.dat","r");
$read=FRead($open,filesize("kluc.dat"));
FClose($open);
prikaz("JOIN ".$e[1]." ".$read);
}
else {
prikaz("JOIN ".$e[1]);
}
prikaz("PRIVMSG ".$kanal." :Bol som pripojeny na kanal ".$e[1]."!");
}
else {
prikaz("PRIVMSG ".$kanal." :Uzivatel ".$nick." nie je prihláseny alebo nie je administratorom!");
}
}



elseif (eregi("^~part",$text)) {
if ($logins[$nick]['prava']==2) {
if ($text=="~part") {
prikaz("PRIVMSG ".$kanal." :Odchadzam...");
prikaz("PART ".$kanal);
}
else {
$e=explode(" ",$text);
prikaz("PRIVMSG ".$kanal." :Odpajam sa z kanalu ".$e[1]."...");
if ($kanal!=$e[1]) {
prikaz("PRIVMSG ".$e[1]." :Odchadzam...");
}
prikaz("PART ".$e[1]);
prikaz("PRIVMSG ".$kanal." :Bol som odpojeny z kanalu ".$e[1]."!");
}
}
else {
prikaz("PRIVMSG ".$kanal." :Uzivatel ".$nick." nie je prihlaseny alebo nie je administratorom!");
}
}
}



// a este fce prikaz, ktora odosle socket
function prikaz($prikaz) {
global $socket,$CONFIG,$bites;
FWrite($socket, $prikaz." ");
}
?>

CREATE TABLE `uzivatelia` (
`id` INT NOT NULL AUTO_INCREMENT,
`login` VARCHAR(50) NOT NULL DEFAULT '',
`pass` VARCHAR(50) NOT NULL DEFAULT '',
`last_login` INT DEFAULT '0',
`prava` INT NOT NULL DEFAULT '1',
PRIMARY KEY (`id`)
);

Avsak, ked si to otvorim v mozzi, vypise mi:

Kód: Vybrať všetko

Warning: set_time_limit error_log ini_alter ini_set dl pfsockopen openlog syslog readlink symlink link leak fsockopen proc_open glob copy eval imap_open() has been disabled for security reasons in /3w/xf.cz/m/matikar/irci/bot.php on line 19

Warning: fsockopen proc_open glob copy eval imap_open() has been disabled for security reasons in /3w/xf.cz/m/matikar/irci/bot.php on line 22
CREATE TABLE `uzivatelia` ( `id` INT NOT NULL AUTO_INCREMENT, `login` VARCHAR(50) NOT NULL DEFAULT '', `pass` VARCHAR(50) NOT NULL DEFAULT '', `last_login` INT DEFAULT '0', `prava` INT NOT NULL DEFAULT '1', PRIMARY KEY (`id`) );

Uz fakt nviem, ako si mam rady. snad mi niekto pomoze

Vdaka

Potrebuješ server, kde je povolená funkcia fsockopen.

Mmartin

Aha, vdaka

na irc cez php by som radšej ale použil nejakú dokonalejšiu triedu, napríklad smartIRC

Mmartin

audiotrack napísal:na irc cez php by som radšej ale použil nejakú dokonalejšiu triedu, napríklad smartIRC

No ja to mam stiahnute, ale neviem nikde najst subor ako config, kde nastavim server, atd

Vies mi poradiT?

najprv naincluduješ tú triedu:

Kód: Vybrať všetko

include_once('./SmartIRC.php');

a potom ju použiješ asi takto nejak:

Kód: Vybrať všetko

$irc = &new Net_SmartIRC();
$irc->setDebug(SMARTIRC_DEBUG_NOTICE|SMARTIRC_DEBUG_IRCMESSAGES);
$irc->setUseSockets(TRUE);
$irc->setChannelSyncing(TRUE);
$irc->connect('irc.i.cz', 6667);
$irc->login('bot', 'bot',0,'bot');
$irc->join("#test");
$irc->listen();
$irc->disconnect();

Mmartin

Vdaka

k+