There are no bots connected from the same ip.
This bot stands alone.
It's a script for vbb
this is the php file
<?
function postonirc ($posttext) {
global $goto, $DB_site, $Action, $homeurl, $ircdata;
$fp = fsockopen ($ircdata[ircserver], $ircdata[ircport], $errno, $errstr, 30);
if (!$fp) { echo "$errstr ($errno)<br>\n";}
else
{
global $threadid, $postusername, $subject, $forumid;
if($ircdata[ircchannel1] != FALSE){
fputs($fp,$posttext);
}
$info .= fgets ($fp,1280);
fclose ($fp);
}
}
$forumname = $DB_site->query_first("SELECT title FROM forum WHERE forumid=".$forumid);
$putstring = "§".$ircdata[ircchannel1]." ";
$putstring .= "§\002[\00311,01Board\00300,01]\002 New thread in: \002".$forumname[title]."\002 Poster: \002".$postusername." \002 Subject: \002".$subject."\002";
$putstring .= "§\002[\00311,01Board\00300,01]\002 Link:
http://www.mydomain.com/".$goto."\002";
$putstring .= "\n";
postonirc($putstring);
?>
And this is the tcl
listen 13481 script vbulletinaccept5
proc vbulletinaccept5 {idx5} {
control $idx5 vbincoming5
}
proc vbincoming5 {idx5 args5} {
if {[join $args5] != "" } {
set chan [lindex [split $args5 §] 1]
set msg [lindex [split $args5 §] 2]
set msg3 [lindex [split $args5 §] 3]
set msg4 [lindex [split $args5 §] 4]
set msg5 [lindex [split $args5 §] 5]
set msg6 [lindex [split $args5 §] 6]
set msg7 [lindex [split $args5 §] 7]
set msg8 [lindex [split $args5 §] 8]
if {[join $msg] != "" } {
putserv "PRIVMSG $chan : $msg"
}
if {[join $msg3] != "" } {
putserv "PRIVMSG $chan : $msg3"
}
if {[join $msg4] != "" } {
putserv "PRIVMSG $chan : $msg4"
}
if {[join $msg5] != "" } {
putserv "PRIVMSG $chan : $msg5"
}
if {[join $msg6] != "" } {
putserv "PRIVMSG $chan : $msg6"
}
if {[join $msg7] != "" } {
putserv "PRIVMSG $chan : $msg7"
}
if {[join $msg8] != "" } {
putserv "PRIVMSG $chan : $msg8"
}
}
killdcc $idx5
}
putlog "vbulletin announce script Loaded."
Port in the tcl and the port on the php are the same.
Grtz and thx for helping out