This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

vbulletin tcl

Support & discussion of released scripts, and announcements of new releases.
R
ReaL|DoG
Voice
Posts: 6
Joined: Sun Apr 09, 2006 7:26 am
Location: Italy
Contact:

Post by ReaL|DoG »

question: where can I get this .tcl ?.. please.. i really need it :)
Don't hate the player, hate the game!!!
User avatar
rosc2112
Revered One
Posts: 1454
Joined: Sun Feb 19, 2006 8:36 pm
Location: Northeast Pennsylvania

Post by rosc2112 »

google?
R
ReaL|DoG
Voice
Posts: 6
Joined: Sun Apr 09, 2006 7:26 am
Location: Italy
Contact:

Post by 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.
Don't hate the player, hate the game!!!
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

ReaL|DoG wrote: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).
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
R
ReaL|DoG
Voice
Posts: 6
Joined: Sun Apr 09, 2006 7:26 am
Location: Italy
Contact:

Post by 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 :)
Don't hate the player, hate the game!!!
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

ReaL|DoG wrote: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 :)
ReaL|DoG wrote: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.
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
R
ReaL|DoG
Voice
Posts: 6
Joined: Sun Apr 09, 2006 7:26 am
Location: Italy
Contact:

Post by ReaL|DoG »

ShavdApe wrote: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 ?
Don't hate the player, hate the game!!!
User avatar
rosc2112
Revered One
Posts: 1454
Joined: Sun Feb 19, 2006 8:36 pm
Location: Northeast Pennsylvania

Post by rosc2112 »

Doesnt look like a tcl script to me, tcl doesn't use // for comments that I'm aware of..
R
ReaL|DoG
Voice
Posts: 6
Joined: Sun Apr 09, 2006 7:26 am
Location: Italy
Contact:

Post by 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.
Don't hate the player, hate the game!!!
G
Gordon
Voice
Posts: 35
Joined: Wed Apr 04, 2007 11:45 am

Post by 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)
Post Reply