vbulletin tcl

[ReaL|DoG]

question: where can I get this .tcl ?.. please.. i really need it

[rosc2112]

google?

[ReaL|DoG]

on google are only 2 pages with vbulletin.tcl and there is only one site where i can download that file, but i need to have a licence (the licence cost about 78$) .... I've searched on live.com, seach.yahoo.com too.. but nothing.

[Alchera]

on google are only 2 pages with vbulletin.tcl and there is only one site where i can download that file, but i need to have a licence (the licence cost about 78$) .... I've searched on live.com, seach.yahoo.com too.. but nothing.

vBulletin is proprietary software. Why would you think there would be no fee?

The script itself (if available) is open source (and free) not what it connects to (vBulletin).

[ReaL|DoG]

i already have vbulletin software.. i need only the script .tcl
If it's possible to have it.. it's ok.. if not.. it's ok too

[Alchera]

i already have vbulletin software.. i need only the script .tcl
If it's possible to have it.. it's ok.. if not.. it's ok too

but i need to have a licence (the licence cost about 78$)

Tcl is released under the GNU General Public License.

If you cannot find this particular script in the Tcl Archive or via Google then the indications are there is no such script readily available and you're probably better served by making a request in the Script Requests forum.

[ReaL|DoG]

Ok I did reply earlier but figure you may as well just use the following so I edited the post.

This is tried and tested and does work I promise

Code: Select all

add to functions.php or create a seperate file and add to newthread.php 
require_once('./your_new_file_name.php');

// THE PHP
function irc_send($ta,$text) {

 // options
 $serverip	= "123.123.123.123"; // PUT IP OF YOUR BOT HERE
 $serverport	= "13481";

 // check if target and text aint empty
 if ($ta=="" || $text=="") {
  return;
 }

 // do splitchar
 $text = ereg_replace(";", ":", $text);
 $text = ereg_replace("<br>", ";", $text);

 // add md5 hash
 $line="$ta $text";

 // open socket and put the line
 $socket = @fsockopen ($serverip, $serverport, $null, $null, 30);
  if (!$socket) {
  echo " no connection made ";
}
 if ($socket) {
  @fputs($socket,"$line\n");
          for($i=0;$i<400000;$i++)
        {
            $g=$i;
        }
		  fclose($socket);
 }
}

function irc_checkid($forumid) {

  $public[forumids]	="2 4 5 6 9 10 11 13 14 15 16 17 18 19 20 21 27 28 29 30 31 32 33 34";
  $public[chan]		="#yourchan";
  
  $forumids=explode(" ", $public[forumids]);
  while ( list($n, $id) = each($forumids)) { 
   if ($forumid == $id) {
    return "$public[chan]";
   }
  }

    return "";
}
// END OF FUNCTIONS

Now in newthread.php
somewhere just before the following :
 eval("standardredirect("".gettemplate("redirect_postthanks")."","$goto");");

ADD THIS

	$text2  = "\002[\00311,01Board\00300,01]\002 New thread in: \002$forumname[title]\002 Poster: \002$postusername \002 Subject: \002 $subject\002<br>";
	$text2 .= 002[\00311,01Board\00300,01]\002 Link: http://www.mydomain.com/showthread.php?threadid=$threadid\002";
	
	$chan=irc_checkid($forumid);
	irc_send($ta=$chan,$text=$text2);

OK NOW THE TCL 

listen 13481 script vbulletinaccept
proc vbulletinaccept {idx} {
control $idx vbincoming
}

proc vbincoming {idx args} {

putlog "$args"
             set line [join $args]
        if {[join $args] != "" } {
              set chan [lindex $line 0]
set line [lrange $line 1 end] 
set line [join $line]
               set line [split $line ";"]
foreach line $line { putserv "PRIVMSG $chan :$line" }
putlog "$line"
        }
killdcc $idx
}
putlog "vbulletin.tcl Loaded..."

Proof if it was needed hehe

1:48:28 AM <@STS-BoT> [New Post Announcement]
1:48:29 AM <@STS-BoT> Topic by ShavedApe: Trivia now running on STS-bot in GENERAL-CONVERSATION
1:48:30 AM <@STS-BoT> Url: http://virgo.lunarpages.com/~q-rpc02/sh ... readid=335
1:54:33 AM <@STS-BoT> [New Post Announcement]
1:54:34 AM <@STS-BoT> Topic by venmx: which side are you on, sony or microsoft? in GAMES-AND-CONSOLES-DISCUSSION
1:54:35 AM <@STS-BoT> Url: http://virgo.lunarpages.com/~q-rpc02/sh ... readid=336

Does this script works for 3.6.0 ?..
When I edit newthread.php, I connot find

Code: Select all

eval("standardredirect("".gettemplate("redirect_postthanks")."","$goto");");

// THE PHP
function irc_send($ta,$text) {

I need to put it in my new file.. or in functions.php ?

[rosc2112]

Doesnt look like a tcl script to me, tcl doesn't use // for comments that I'm aware of..

[ReaL|DoG]

Code: Select all

OK NOW THE TCL 

listen 13481 script vbulletinaccept 
proc vbulletinaccept {idx} { 
control $idx vbincoming 
} 

proc vbincoming {idx args} { 

putlog "$args" 
             set line [join $args] 
        if {[join $args] != "" } { 
              set chan [lindex $line 0] 
set line [lrange $line 1 end] 
set line [join $line] 
               set line [split $line ";"] 
foreach line $line { putserv "PRIVMSG $chan :$line" } 
putlog "$line" 
        } 
killdcc $idx 
} 
putlog "vbulletin.tcl Loaded..."

there is a small part with tcl script.

Anyway.. thanks for help.. i've already founded what I need.

[Gordon]

they have got it working in #zerodayxxxpasswords @ EFNet

it looks pretty good, any idea what script they are using?

(channel is not related to its name, its a support chan for a vbulletin board)