Code: Select all
#settings
set settings(port) "32578"
set settings(pass) "WkdwemEzTmtZV2wzY2c"
set settings(chan) "#MidnightArab-Torrents"
listen $settings(port) script listen:grab
proc listen:grab {idx} {
control $idx listen:control
}
proc listen:control {idx args} {
global settings
if{ [scan $args "%s %\[\n\]" pass message] == 2 && $pass == $settings(pass) } {
putquick "PRIVMSG $settings(chan) : $message"
}
}
putlog "New torrents announce script loaded!"
This TLC receive information via php:
Code: Select all
function ircbot($msg)
{
$bot = array("ip"=>"ip",
"port"=>0,
"pass" => "password",
);
if(empty($msg))
return;
$fp = fsockopen($bot["ip"], $bot["port"] , $errno, $errstr, 45);
if($fp)
{
sleep(1);
fputs($fp, $bot["pass"] . " " . $msg . "\n");
sleep(1);
fclose($fp);
}
}
But not working. Eggdrop give this error:
<bot> [04:23:47] Telnet connection: ip/56217
<bot> [04:23:47] Timeout/EOF ident connection
<bot> [04:23:55] Lost telnet connection to telnet@ip/56217
How to fix this problem? Need Help pls
